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

added some bigint code

Browse Source
This commit is contained in:
hyung-hwan
2014-02-21 16:08:43 +00:00
parent 262d29f262
commit a9bd93d6f4
3 changed files with 177 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
h2/lib/h2-scheme.ads
View File

@ -451,12 +451,22 @@ package H2.Scheme is
procedure Collect_Garbage (Interp: in out Interpreter_Record);
procedure Push_Top (Interp: in out Interpreter_Record;
Source: access Object_Pointer);
procedure Pop_Tops (Interp: in out Interpreter_Record;
Count: in Object_Size);
function Make_String (Interp: access Interpreter_Record;
Source: in Object_Character_Array) return Object_Pointer;
function Make_Symbol (Interp: access Interpreter_Record;
Source: in Object_Character_Array) return Object_Pointer;
function Make_Bigint (Interp: access Interpreter_Record;
Size: Half_Word_Object_Size) return Object_Pointer;
-- -----------------------------------------------------------------------------
@ -577,6 +587,10 @@ private
X: in Object_Pointer;
Y: in Object_Pointer) return Object_Pointer;
function Subtract (Interp: access Interpreter_Record;
X: in Object_Pointer;
Y: in Object_Pointer) return Object_Pointer;
end Bigint;
end H2.Scheme;