paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 02:09:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

* added missing begin/end

Browse Source 
git-svn-id: trunk@10260 -
This commit is contained in:
Jonas Maebe 2008-02-10 10:07:55 +00:00
parent 3b6e5bd6af
commit 058e3762aa
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/i386/csopt386.pas
View File

@ -193,13 +193,15 @@ begin
tmpRef.base := NR_EDI; tmpRef.base := NR_EDI;
tmpRef.index := NR_EDI; tmpRef.index := NR_EDI;
for regCounter := RS_EAX to RS_EDI do for regCounter := RS_EAX to RS_EDI do
if writeToMemDestroysContents(RS_INVALID,tmpRef,regCounter,OS_32,c[regCounter],dummy) then begin
begin if writeToMemDestroysContents(RS_INVALID,tmpRef,regCounter,OS_32,c[regCounter],dummy) then
exclude(regsStillValid,regCounter); begin
modifiesConflictingMemLocation := not(supreg in regsStillValid); exclude(regsStillValid,regCounter);
end; modifiesConflictingMemLocation := not(supreg in regsStillValid);
if (regcounter = supreg) then end;
invalsmemwrite := invalsmemwrite or dummy; if (regcounter = supreg) then
invalsmemwrite := invalsmemwrite or dummy;
end;
end; end;
end; end;
end; end;