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

* reset section back to code after localdata

Browse Source
This commit is contained in:
peter 2000-02-08 13:55:13 +00:00
parent 93f51ab18e
commit 119ebd56c6
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/psub.pas
View File

@ -1590,6 +1590,7 @@ begin
begin
procinfo^.aktproccode^.concat(new(pai_section,init(sec_data)));
procinfo^.aktproccode^.concatlist(procinfo^.aktlocaldata);
procinfo^.aktproccode^.concat(new(pai_section,init(sec_code)));
end;
{ now we can insert a cut }
if (cs_create_smart in aktmoduleswitches) then
@ -1969,7 +1970,10 @@ end.
{
$Log$
Revision 1.46 2000-02-04 20:00:22 florian
Revision 1.47 2000-02-08 13:55:13 peter
* reset section back to code after localdata
Revision 1.46 2000/02/04 20:00:22 florian
* an exception in a construcor calls now the destructor (this applies only
to classes)