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

added partial bigint divide

Browse Source
This commit is contained in:
hyung-hwan
2014-03-03 15:36:03 +00:00
parent ca3108ebd9
commit a8627af4bf
3 changed files with 309 additions and 136 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -43,6 +43,17 @@ generic
type Character_Type is (<>);
package H2.Scheme is
-----------------------------------------------------------------------------
-- EXCEPTIONS
-----------------------------------------------------------------------------
Allocation_Error: exception;
Size_Error: exception;
Syntax_Error: exception;
Evaluation_Error: exception;
Internal_Error: exception;
IO_Error: exception;
Divide_By_Zero_Error: exception;
type Interpreter_Record is limited private;
type Interpreter_Pointer is access all Interpreter_Record;
@ -475,12 +486,6 @@ package H2.Scheme is
function Make_Bigint (Interp: access Interpreter_Record;
Value: in Object_Integer) return Object_Pointer;
-- Copy as many Half_Word_Slots as Last from the Source
-- and create a Bigint object.
function Make_Bigint (Interp: access Interpreter_Record;
Source: in Object_Pointer;
Last: in Half_Word_Object_Size) return Object_Pointer;
-- -----------------------------------------------------------------------------
@ -612,6 +617,12 @@ private
X: in Object_Pointer;
Y: in Object_Pointer) return Object_Pointer;
procedure Divide (Interp: access Interpreter_Record;
X: in Object_Pointer;
Y: in Object_Pointer;
Q: out Object_Pointer;
R: out Object_Pointer);
end Bigint;
end H2.Scheme;