2
0
Эх сурвалжийг харах

+ added definitions for 6502 in systemh.inc

Nikolay Nikolov 1 жил өмнө
parent
commit
7be00de65c
1 өөрчлөгдсөн 19 нэмэгдсэн , 0 устгасан
  1. 19 0
      rtl/inc/systemh.inc

+ 19 - 0
rtl/inc/systemh.inc

@@ -407,6 +407,25 @@ Type
   FarPointer = Pointer;
 {$endif CPUZ80}
 
+{$ifdef CPUMOS6502}
+  {$define DEFAULT_SINGLE}
+
+  {$define FPC_INCLUDE_SOFTWARE_MOD_DIV}
+  {$define FPC_INCLUDE_SOFTWARE_MUL}
+  {$define FPC_INCLUDE_SOFTWARE_SHIFT_INT64}
+
+  {$ifndef FPUNONE}
+    {$define SUPPORT_SINGLE}
+    {$define SUPPORT_DOUBLE}
+
+    {$define FPC_INCLUDE_SOFTWARE_INT64_TO_DOUBLE}
+
+    ValReal = Real;
+  {$endif}
+
+  FarPointer = Pointer;
+{$endif CPUMOS6502}
+
 {$ifdef CPUWASM32}
   {$define DEFAULT_DOUBLE}