paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 02:29:19 +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 } { remove calln node }
tcallnode(left).right:=nil; tcallnode(left).right:=nil;
left.free; left.free;
left:=hp; { first do firstpass, then assignment in case hp }
{ gets changed by firstpass (JM) }
firstpass(hp); firstpass(hp);
left:=hp;
include(flags,nf_procvarload); include(flags,nf_procvarload);
end; end;
end; end;
@ -343,6 +345,8 @@ implementation
derefn : derefn :
begin begin
firstpass(hp); firstpass(hp);
{ in case hp gets changed by firstpass (JM) }
left := hp;
if codegenerror then if codegenerror then
exit; exit;
if hp.resulttype^.deftype=procvardef then if hp.resulttype^.deftype=procvardef then
@ -869,7 +873,10 @@ implementation
end. end.
{ {
$Log$ $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 * unused units removed from uses clause
* some changes for widestrings * some changes for widestrings