@@ -1156,7 +1156,7 @@ constants =
1156 [ ("Integer", AType (ATInt ITBig))
1156 [ ("Integer", AType (ATInt ITBig))
1157 , ("Int", AType (ATInt ITNative))
1157 , ("Int", AType (ATInt ITNative))
1158 , ("Char", AType (ATInt ITChar))
1158 , ("Char", AType (ATInt ITChar))
1159− , ("Float", AType ATFloat)
1159+ , ("Double", AType ATFloat)
1160 , ("String", StrType)
1160 , ("String", StrType)
1161 , ("Ptr", PtrType)
1161 , ("Ptr", PtrType)
1162 , ("ManagedPtr", ManagedPtrType)
1162 , ("ManagedPtr", ManagedPtrType)