paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 16:09:25 +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; p, hp: taicpu;
tmpRef: treference; tmpRef: treference;
r,regCounter: tsuperregister; r,regCounter: tsuperregister;
opCount: byte; opCount: longint;
dummy: boolean; dummy: boolean;
begin begin
modifiesConflictingMemLocation := false; modifiesConflictingMemLocation := false;
@ -1089,7 +1089,7 @@ end;
function doReplaceReadReg(p: taicpu; newReg,orgReg: tsuperregister): boolean; function doReplaceReadReg(p: taicpu; newReg,orgReg: tsuperregister): boolean;
var var
opCount: byte; opCount: longint;
begin begin
doReplaceReadReg := false; doReplaceReadReg := false;
{ handle special case } { 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 } { this one ignores CH_ALL opcodes, while regModifiedByInstruction doesn't }
var var
p: taicpu; p: taicpu;
opcount: Word; opcount: longint;
begin begin
regInInstruction := false; regInInstruction := false;
if p1.typ <> ait_instruction then if p1.typ <> ait_instruction then