hyung-hwan/hcl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

added some code to evaluate

Browse Source
This commit is contained in:
hyung-hwan
2013-12-17 16:04:55 +00:00
parent 0f96ff8851
commit d2b6a11da6
3 changed files with 757 additions and 165 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
cmd/scheme.adb
View File

@ -8,12 +8,18 @@ procedure scheme is
Pool: aliased Storage.Global_Pool;
SI: S.Interpreter_Record;
I: S.Object_Pointer;
O: S.Object_Pointer;
begin
Ada.Text_Io.Put_Line (S.Object_Word'Image(S.Object_Pointer_Bytes));
S.Open (SI, 2_000_000, Pool'Unchecked_Access);
--S.Open (SI, null);
S.Evaluate (SI);
S.Make_Test_Object (SI, I);
S.Evaluate (SI, I, O);
S.Print (SI, I);
Ada.Text_IO.Put_Line ("-------------------------------------------");
S.Print (SI, O);
S.Close (SI);
declare