mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 14:48:14 +02:00
d91d4afb0f
compiler/pdecobj.pas, object_dec: * since revision 25518 the global symtable of the current module is no longer popped and pushed again so that the defaware symtablestack can add the helper; thus we need to do this not only for static symtables, but for global ones as well * adjusted comment to reflect current situation git-svn-id: trunk@25834 -
29 lines
303 B
ObjectPascal
29 lines
303 B
ObjectPascal
unit tw25210;
|
|
|
|
{$mode objfpc}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes;
|
|
|
|
type
|
|
TStringsHelper = class helper for TStrings
|
|
procedure Test;
|
|
end;
|
|
|
|
implementation
|
|
|
|
procedure TStringsHelper.Test;
|
|
begin
|
|
Writeln('Foobar');
|
|
end;
|
|
|
|
var
|
|
s: TStrings;
|
|
initialization
|
|
s := TStringList.Create;
|
|
s.Test;
|
|
s.Free;
|
|
end.
|