paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-10 05:48:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
operands

git-svn-id: trunk@1323 -
This commit is contained in:
Jonas Maebe 2005-10-08 12:02:39 +00:00
parent cd93450fd6
commit 8b82f90b27
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/i386/csopt386.pas
View File

@ -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 }

2
compiler/i386/daopt386.pas
View File

@ -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