paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 20:29:17 +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

2
compiler/i386/csopt386.pas
View File

@ -193,6 +193,7 @@ 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
begin
if writeToMemDestroysContents(RS_INVALID,tmpRef,regCounter,OS_32,c[regCounter],dummy) then if writeToMemDestroysContents(RS_INVALID,tmpRef,regCounter,OS_32,c[regCounter],dummy) then
begin begin
exclude(regsStillValid,regCounter); exclude(regsStillValid,regCounter);
@ -204,6 +205,7 @@ begin
end; end;
end; end;
end; end;
end;
function isSimpleMemLoc(const ref: treference): boolean; function isSimpleMemLoc(const ref: treference): boolean;