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

22
compiler/tgobj.pas
View File

@ -342,7 +342,7 @@ unit tgobj;
end;
{$ifdef EXTDEBUG}
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}
list.concat(tai_tempalloc.alloc(tl^.pos,tl^.size));
{$endif}
@ -439,9 +439,18 @@ unit tgobj;
{ ref.index = R_NO was missing
led to problems with local arrays
with lower bound > 0 (PM) }
istemp:=((ref.base=procinfo.framepointer) and
(ref.index=R_NO) and
(ref.offset*direction>firsttemp));
if direction = 1 then
begin
istemp:=((ref.base=procinfo.framepointer) and
(ref.index=R_NO) and
(ref.offset>firsttemp));
end
else
begin
istemp:=((ref.base=procinfo.framepointer) and
(ref.index=R_NO) and
(ref.offset<firsttemp));
end;
end;
@ -528,7 +537,10 @@ finalization
end.
{
$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
Revision 1.20 2002/11/17 17:49:08 mazen