Browse Source

* more byte->word

peter 21 years ago
parent
commit
ed708a0650
1 changed files with 8 additions and 5 deletions
  1. 8 5
      compiler/i386/daopt386.pas

+ 8 - 5
compiler/i386/daopt386.pas

@@ -140,7 +140,7 @@ type
   TtaiPropBlock = Array[1..250000] Of TtaiProp;
   PtaiPropBlock = ^TtaiPropBlock;
 
-  TInstrSinceLastMod = Array[RS_EAX..RS_ESP] Of Byte;
+  TInstrSinceLastMod = Array[RS_EAX..RS_ESP] Of Word;
 
   TLabelTableItem = Record
                       taiObj: tai;
@@ -762,7 +762,7 @@ function regInInstruction(supreg: tsuperregister; p1: tai): boolean;
 { this one ignores CH_ALL opcodes, while regModifiedByInstruction doesn't  }
 var
   p: taicpu;
-  opcount: byte;
+  opcount: Word;
 begin
   regInInstruction := false;
   if p1.typ <> ait_instruction then
@@ -841,7 +841,7 @@ function RegModifiedByInstruction(supreg: tsuperregister; p1: tai): boolean;
 var
   InstrProp: TInsProp;
   TmpResult: Boolean;
-  Cnt: Byte;
+  Cnt: Word;
 begin
   TmpResult := False;
   if supreg = RS_INVALID then
@@ -1228,7 +1228,7 @@ function sequenceDependsonReg(const Content: TContent; seqreg: tsuperregister; s
 { "movl (seqreg,reg), seqReg" instruction), this function returns true     }
 var
   p: tai;
-  Counter: Byte;
+  Counter: Word;
   TmpResult: Boolean;
   RegsChecked: TRegSet;
 begin
@@ -2713,7 +2713,10 @@ end.
 
 {
   $Log$
-  Revision 1.63  2003-12-22 23:11:41  peter
+  Revision 1.64  2003-12-23 19:52:55  peter
+    * more byte->word
+
+  Revision 1.63  2003/12/22 23:11:41  peter
     * overflow for instruction counters
 
   Revision 1.62  2003/12/20 22:53:33  jonas