paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 01:09:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed webbug 1268 ("merged")

Browse Source
This commit is contained in:
Jonas Maebe 2000-12-05 15:19:50 +00:00
parent a8af566cd7
commit 779e5fb7e9
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/nmem.pas
View File

@ -331,8 +331,10 @@ implementation
{ remove calln node }
tcallnode(left).right:=nil;
left.free;
left:=hp;
{ first do firstpass, then assignment in case hp }
{ gets changed by firstpass (JM) }
firstpass(hp);
left:=hp;
include(flags,nf_procvarload);
end;
end;
@ -343,6 +345,8 @@ implementation
derefn :
begin
firstpass(hp);
{ in case hp gets changed by firstpass (JM) }
left := hp;
if codegenerror then
exit;
if hp.resulttype^.deftype=procvardef then
@ -869,7 +873,10 @@ implementation
end.
{
$Log$
Revision 1.11 2000-11-29 00:30:34 florian
Revision 1.12 2000-12-05 15:19:50 jonas
* fixed webbug 1268 ("merged")
Revision 1.11 2000/11/29 00:30:34 florian
* unused units removed from uses clause
* some changes for widestrings