浏览代码

+ create the float types for 6502 in psystem.create_intern_types

Nikolay Nikolov 1 年之前
父节点
当前提交
be18fd8446
共有 1 个文件被更改,包括 7 次插入0 次删除
  1. 7 0
      compiler/psystem.pas

+ 7 - 0
compiler/psystem.pas

@@ -374,6 +374,13 @@ implementation
         sc80floattype:=cfloatdef.create(sc80real,true);
         s64currencytype:=corddef.create(scurrency,low(int64),high(int64),true);
 {$endif z80}
+{$ifdef mos6502}
+        s32floattype:=cfloatdef.create(s32real,true);
+        s64floattype:=cfloatdef.create(s64real,true);
+        s80floattype:=cfloatdef.create(s80real,true);
+        sc80floattype:=cfloatdef.create(sc80real,true);
+        s64currencytype:=corddef.create(scurrency,low(int64),high(int64),true);
+{$endif mos6502}
 {$ifdef mips}
         create_fpu_types;
         s64currencytype:=corddef.create(scurrency,low(int64),high(int64),true);