Explorar o código

+ added 6502 detection in the system unit

Nikolay Nikolov hai 1 ano
pai
achega
873ebc2294
Modificáronse 1 ficheiros con 8 adicións e 0 borrados
  1. 8 0
      rtl/inc/system.inc

+ 8 - 0
rtl/inc/system.inc

@@ -366,6 +366,14 @@ function do_isdevice(handle:thandle):boolean;forward;
   {$define SYSPROCDEFINED}
 {$endif cpuloongarch64}
 
+{$ifdef cpumos6502}
+  {$ifdef SYSPROCDEFINED}
+    {$Error Can't determine processor type !}
+  {$endif}
+  {$i mos6502.inc}  { Case dependent, don't change }
+  {$define SYSPROCDEFINED}
+{$endif cpumos6502}
+
 {$ifndef SYSPROCDEFINED}
   {$Error Can't determine processor type !}
 {$endif}