mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 18:47:54 +02:00
048666a25c
at the end of compiling a unit, also remove it from its owning procsym
in case the procsym does get written to the ppu (possible because you
can have extra overloads in the implementation) (mantis #25283)
o also fixes webtbf/tw4103 on the platforms where this still failed
(on the platforms where it worked, it worked by accedent since the
compiler was accessing memory of a freed procdef)
git-svn-id: trunk@35309 -
12 lines
143 B
ObjectPascal
12 lines
143 B
ObjectPascal
{ %fail }
|
|
|
|
program main;
|
|
{$ifdef FPC}{$mode objfpc}{$h+}{$endif}
|
|
uses bugunit;
|
|
|
|
begin
|
|
proc( 1, 2 ); // no error with -B compiler flag
|
|
end.
|
|
|
|
|