Mercurial > repos > rhope
comparison number.rhope @ 49:3e20ed8959c4
Added initial FFI implementation, Array type and 64-bit integers
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Thu, 08 Apr 2010 01:02:18 -0400 |
parents | a24eb366195c |
children | 7d6a6906b648 |
comparison
equal
deleted
inserted
replaced
48:a24eb366195c | 49:3e20ed8959c4 |
---|---|
69 { out <- Fold[["Compile Number Comp Method"]Set Input[2, type], ~, compops] } | 69 { out <- Fold[["Compile Number Comp Method"]Set Input[2, type], ~, compops] } |
70 } | 70 } |
71 | 71 |
72 Generate Number Methods[backend:out] | 72 Generate Number Methods[backend:out] |
73 { | 73 { |
74 numtypes <- ("Int8","Int16","Int32","UInt8","UInt16","UInt32") | 74 numtypes <- ("Int8","Int16","Int32","Int64","UInt8","UInt16","UInt32","UInt64") |
75 | 75 |
76 out <- Fold["_Generate Number Methods", backend, numtypes] | 76 out <- Fold["_Generate Number Methods", backend, numtypes] |
77 } | 77 } |
78 | 78 |
79 Register Number Method[program, method, type, outtype:out] | 79 Register Number Method[program, method, type, outtype:out] |
101 { out <- Fold[[register]Set Input[3, "Boolean"], ~, compmethods] } | 101 { out <- Fold[[register]Set Input[3, "Boolean"], ~, compmethods] } |
102 } | 102 } |
103 | 103 |
104 Register Number Methods[program:out] | 104 Register Number Methods[program:out] |
105 { | 105 { |
106 numtypes <- ("Int8","Int16","Int32","UInt8","UInt16","UInt32") | 106 numtypes <- ("Int8","Int16","Int32","Int64","UInt8","UInt16","UInt32","UInt64") |
107 out <- Fold["_Register Number Methods", program, numtypes] | 107 out <- Fold["_Register Number Methods", program, numtypes] |
108 } | 108 } |
109 | 109 |