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

* little redondant code removed

Browse Source
This commit is contained in:
pierre 1999-05-18 22:36:29 +00:00
parent 739eb6860c
commit 79e64c8e75
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/pmodules.pas
View File

@ -1048,9 +1048,6 @@ unit pmodules;
compile_proc_body(names,true,false); compile_proc_body(names,true,false);
names.done; names.done;
codegen_doneprocedure; codegen_doneprocedure;
{ avoid self recursive destructor call !! PM }
aktprocsym^.definition^.localst:=nil;
end; end;
{ the last char should always be a point } { the last char should always be a point }
@ -1344,7 +1341,10 @@ unit pmodules;
end. end.
{ {
$Log$ $Log$
Revision 1.121 1999-05-17 14:43:54 pierre Revision 1.122 1999-05-18 22:36:29 pierre
* little redondant code removed
Revision 1.121 1999/05/17 14:43:54 pierre
* reset current_ppu to nil when appropriate * reset current_ppu to nil when appropriate
Revision 1.120 1999/05/13 21:59:35 peter Revision 1.120 1999/05/13 21:59:35 peter