paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 09:26:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* ttempdeletenode.create now sets the nodetype to tempdeleten instead of

Browse Source 
temprefn
This commit is contained in:
Jonas Maebe 2003-04-12 14:53:59 +00:00
parent d81dcf5c47
commit bd90c192c5
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/nbas.pas
View File

@ -692,7 +692,7 @@ implementation
constructor ttempdeletenode.create(const temp: ttempcreatenode); constructor ttempdeletenode.create(const temp: ttempcreatenode);
begin begin
inherited create(temprefn); inherited create(tempdeleten);
tempinfo := temp.tempinfo; tempinfo := temp.tempinfo;
release_to_normal := false; release_to_normal := false;
if not temp.persistent then if not temp.persistent then
@ -764,7 +764,11 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.40 2003-03-17 20:30:46 peter Revision 1.41 2003-04-12 14:53:59 jonas
* ttempdeletenode.create now sets the nodetype to tempdeleten instead of
temprefn
Revision 1.40 2003/03/17 20:30:46 peter
* errornode.mark_write added * errornode.mark_write added
Revision 1.39 2003/01/03 12:15:55 daniel Revision 1.39 2003/01/03 12:15:55 daniel