Browse Source

+ added 6502 detection in the system unit

Nikolay Nikolov 1 year ago
parent
commit
873ebc2294
1 changed files with 8 additions and 0 deletions
  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}