Răsfoiți Sursa

Allow more than 255 registers.

Margers 6 luni în urmă
părinte
comite
f635354042
1 a modificat fișierele cu 4 adăugiri și 4 ștergeri
  1. 4 4
      compiler/utils/mkx86reg.pp

+ 4 - 4
compiler/utils/mkx86reg.pp

@@ -1,7 +1,7 @@
 {
 {
     Copyright (c) 1998-2002 by Peter Vreman and Florian Klaempfl
     Copyright (c) 1998-2002 by Peter Vreman and Florian Klaempfl
 
 
-    Convert i386reg.dat to several .inc files for usage with
+    Convert x86reg.dat to several .inc files for usage with
     the Free pascal compiler
     the Free pascal compiler
 
 
     See the file COPYING.FPC, included in this distribution,
     See the file COPYING.FPC, included in this distribution,
@@ -16,14 +16,14 @@
 {$i+}
 {$i+}
 program mkx86reg;
 program mkx86reg;
 
 
-const Version = '1.00';
-      max_regcount = 255;
+const Version = '1.01';
+      max_regcount = 511;
 
 
 var s : string;
 var s : string;
     i : longint;
     i : longint;
     line : longint;
     line : longint;
     regcount:longint;
     regcount:longint;
-    regcount_bsstart:byte;
+    regcount_bsstart:longint;
     names,numbers,stdnames,intnames,nasmnames,attnames,stabs,dwarf16,dwarf32,dwarf64,ots,ops:
     names,numbers,stdnames,intnames,nasmnames,attnames,stabs,dwarf16,dwarf32,dwarf64,ots,ops:
         array[0..max_regcount-1] of string[63];
         array[0..max_regcount-1] of string[63];
     regnumber_index,std_regname_index,int_regname_index,att_regname_index,
     regnumber_index,std_regname_index,int_regname_index,att_regname_index,