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

* loadvmtaddrn and loadparentfpn both have complexity 1 (the latter

Browse Source 
fixes compilation of tw0935 with nodeinlining)
This commit is contained in:
Jonas Maebe 2004-11-28 19:29:45 +00:00
parent 21c7a9db2f
commit 97b2ef94c1
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/nutils.pas
View File

@ -448,7 +448,14 @@ implementation
while true do while true do
begin begin
case p.nodetype of case p.nodetype of
temprefn: temprefn,
loadvmtaddrn,
{ main reason for the next one: we can't take the address of }
{ loadparentfpnode, so replacing it by a temp which is the }
{ address of this node's location and then dereferencing }
{ doesn't work. If changed, check whether webtbs/tw0935 }
{ still works with nodeinlining (JM) }
loadparentfpn:
begin begin
result := 1; result := 1;
exit; exit;
@ -519,7 +526,11 @@ end.
{ {
$Log$ $Log$
Revision 1.21 2004-11-08 22:09:59 peter Revision 1.22 2004-11-28 19:29:45 jonas
* loadvmtaddrn and loadparentfpn both have complexity 1 (the latter
fixes compilation of tw0935 with nodeinlining)
Revision 1.21 2004/11/08 22:09:59 peter
* tvarsym splitted * tvarsym splitted
Revision 1.20 2004/11/02 12:55:16 peter Revision 1.20 2004/11/02 12:55:16 peter