mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 18:10:29 +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 -
19 lines
218 B
ObjectPascal
19 lines
218 B
ObjectPascal
unit uw25283;
|
|
{$ifdef FPC}{$mode objfpc}{$h+}{$endif}
|
|
interface
|
|
|
|
procedure proc( arg1: longint );
|
|
|
|
implementation
|
|
|
|
procedure proc( arg1: longint );
|
|
begin
|
|
end;
|
|
|
|
procedure proc( arg1, arg2: longint );
|
|
begin
|
|
end;
|
|
|
|
end.
|
|
|