diff options
| author | dos-reis <gdr@axiomatics.org> | 2009-09-05 20:48:21 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2009-09-05 20:48:21 +0000 |
| commit | 7fb7062638f05c3748a7aaace55d50cb1ac87fb0 (patch) | |
| tree | f63ba60207cc11e322a9630e8c375c08428a3ef2 /src/interp | |
| parent | c0477ca18e99fcf5e091d2bc4ffe8dd76eae36dd (diff) | |
| download | open-axiom-7fb7062638f05c3748a7aaace55d50cb1ac87fb0.tar.gz | |
* algebra/data.spad.pamphlet: Cleanup.
* interp/compiler.boot (getBasicFFIType): Handle 64-bit integer types.
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/compiler.boot | 5 | ||||
| -rw-r--r-- | src/interp/sys-constants.boot | 7 |
2 files changed, 11 insertions, 1 deletions
diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot index baea9aa2..f2ced87a 100644 --- a/src/interp/compiler.boot +++ b/src/interp/compiler.boot @@ -1331,8 +1331,11 @@ getBasicFFIType: %Mode -> %Symbol getBasicFFIType t == t = $Byte => bootDenotation "byte" t = $Int16 => bootDenotation "int16" + t = $UInt16 => bootDenotation "uint16" t = $Int32 => bootDenotation "int32" --- t = $Int64 => bootDenotation "int64" + t = $UInt32 => bootDenotation "uint32" + t = $Int64 => bootDenotation "int64" + t = $UInt64 => bootDenotation "uint64" t = $SingleInteger => bootDenotation "int" t = $SingleFloat => bootDenotation "float" t = $DoubleFloat => bootDenotation "double" diff --git a/src/interp/sys-constants.boot b/src/interp/sys-constants.boot index bb8c8575..02d6d4b2 100644 --- a/src/interp/sys-constants.boot +++ b/src/interp/sys-constants.boot @@ -373,9 +373,16 @@ $Boolean == '(Boolean) $Byte == '(Byte) + +++ Sized integer types, mostly for system-level programming. $Int16 == '(Int16) +$UInt16 == '(UInt16) + $Int32 == '(Int32) +$UInt32 == '(UInt32) + $Int64 == '(Int64) +$UInt64 == '(UInt64) ++ The SmallInteger domain constructor form $SmallInteger == |