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

* fixed istemp() when tg.direction = 1

Browse Source
This commit is contained in:
Jonas Maebe 2003-04-23 08:40:39 +00:00
parent ad27d96dc3
commit b3a3398faf
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/tgobj.pas
View File

@ -450,7 +450,7 @@ unit tgobj;
begin begin
istemp:=((ref.base.number=procinfo.framepointer.number) and istemp:=((ref.base.number=procinfo.framepointer.number) and
(ref.index.number=NR_NO) and (ref.index.number=NR_NO) and
(ref.offset>firsttemp)); (ref.offset>=firsttemp));
end end
else else
begin begin
@ -544,7 +544,10 @@ finalization
end. end.
{ {
$Log$ $Log$
Revision 1.28 2003-04-22 09:46:17 peter Revision 1.29 2003-04-23 08:40:39 jonas
* fixed istemp() when tg.direction = 1
Revision 1.28 2003/04/22 09:46:17 peter
* always allocate 4 bytes when 0 bytes are asked * always allocate 4 bytes when 0 bytes are asked
Revision 1.27 2003/03/11 21:46:24 jonas Revision 1.27 2003/03/11 21:46:24 jonas