Mercurial > repos > rhope

comparison number.rhope @ 49:3e20ed8959c4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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