|
|
@ -552,10 +552,10 @@ testHex(N, Mod, Fun, Args, _) -> |
|
|
tTuple(0, _) -> |
|
|
tTuple(0, _) -> |
|
|
ok; |
|
|
ok; |
|
|
tTuple(N, {tag, OldN}) -> |
|
|
tTuple(N, {tag, OldN}) -> |
|
|
tTuple(N -1, {tag, N}). |
|
|
|
|
|
|
|
|
tTuple(N -1, {tag, OldN}). |
|
|
|
|
|
|
|
|
tPd(0, _) -> |
|
|
tPd(0, _) -> |
|
|
ok; |
|
|
ok; |
|
|
tPd(N, _) -> |
|
|
tPd(N, _) -> |
|
|
erlang:put(pdVpSize, N), |
|
|
|
|
|
tPd(N -1, erlang:get(pdVpSize)). |
|
|
|
|
|
|
|
|
erlang:put(pdVpSize, 0), |
|
|
|
|
|
tPd(N -1, erlang:get(pdVpSize)). |
