touched evaluator code

This commit is contained in:
2014-02-11 09:35:44 +00:00
parent 3e6e44cacc
commit 3e7c4547b1
4 changed files with 477 additions and 383 deletions

View File

@ -1863,6 +1863,7 @@ end if;
Interp.Self := Aliased_Interp'Unchecked_Access;
end;
Interp.State := 0;
Interp.Storage_Pool := Storage_Pool;
Interp.Symbol_Table := Nil_Pointer;