Browse Source

+ create the float types for 6502 in psystem.create_intern_types

Nikolay Nikolov 1 year ago
parent
commit
be18fd8446
1 changed files with 7 additions and 0 deletions
  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);