Browse Source

* fixed overflows in counters used for operands in case opcode without
operands

git-svn-id: trunk@1323 -

Jonas Maebe 20 years ago
parent
commit
8b82f90b27
2 changed files with 3 additions and 3 deletions
  1. 2 2
      compiler/i386/csopt386.pas
  2. 1 1
      compiler/i386/daopt386.pas

+ 2 - 2
compiler/i386/csopt386.pas

@@ -72,7 +72,7 @@ var
   p, hp: taicpu;
   tmpRef: treference;
   r,regCounter: tsuperregister;
-  opCount: byte;
+  opCount: longint;
   dummy: boolean;
 begin
   modifiesConflictingMemLocation := false;
@@ -1089,7 +1089,7 @@ end;
 
 function doReplaceReadReg(p: taicpu; newReg,orgReg: tsuperregister): boolean;
 var
-  opCount: byte;
+  opCount: longint;
 begin
   doReplaceReadReg := false;
   { handle special case }

+ 1 - 1
compiler/i386/daopt386.pas

@@ -810,7 +810,7 @@ function regInInstruction(supreg: tsuperregister; p1: tai): boolean;
 { this one ignores CH_ALL opcodes, while regModifiedByInstruction doesn't  }
 var
   p: taicpu;
-  opcount: Word;
+  opcount: longint;
 begin
   regInInstruction := false;
   if p1.typ <> ait_instruction then