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

* fix bugs with istemp() was wrong, and every reference was a temp

Browse Source
This commit is contained in:
carl 2002-12-01 18:58:26 +00:00
parent 5c35de2252
commit 9b4b57ce01
1 changed files with 17 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/tgobj.pas
View File

@ -342,7 +342,7 @@ unit tgobj;
end; end;
{$ifdef EXTDEBUG} {$ifdef EXTDEBUG}
tl^.posinfo:=aktfilepos; tl^.posinfo:=aktfilepos;
list.concat(tai_tempalloc.allocinfo(tl^.pos,tl^.size,'type '+TempTypeStr[templist^.temptype])); list.concat(tai_tempalloc.allocinfo(tl^.pos,tl^.size,'Temp type '+TempTypeStr[templist^.temptype]));
{$else} {$else}
list.concat(tai_tempalloc.alloc(tl^.pos,tl^.size)); list.concat(tai_tempalloc.alloc(tl^.pos,tl^.size));
{$endif} {$endif}
@ -439,9 +439,18 @@ unit tgobj;
{ ref.index = R_NO was missing { ref.index = R_NO was missing
led to problems with local arrays led to problems with local arrays
with lower bound > 0 (PM) } with lower bound > 0 (PM) }
if direction = 1 then
begin
istemp:=((ref.base=procinfo.framepointer) and istemp:=((ref.base=procinfo.framepointer) and
(ref.index=R_NO) and (ref.index=R_NO) and
(ref.offset*direction>firsttemp)); (ref.offset>firsttemp));
end
else
begin
istemp:=((ref.base=procinfo.framepointer) and
(ref.index=R_NO) and
(ref.offset<firsttemp));
end;
end; end;
@ -528,7 +537,10 @@ finalization
end. end.
{ {
$Log$ $Log$
Revision 1.21 2002-11-24 18:18:04 carl Revision 1.22 2002-12-01 18:58:26 carl
* fix bugs with istemp() was wrong, and every reference was a temp
Revision 1.21 2002/11/24 18:18:04 carl
- remove some unused defines - remove some unused defines
Revision 1.20 2002/11/17 17:49:08 mazen Revision 1.20 2002/11/17 17:49:08 mazen