mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
27ab1c61c5
symdef.pas, getansistringdef: * use a temporary, non-defaware symtablestack to create the ansistringdef + added test git-svn-id: trunk@33214 -
37 lines
395 B
ObjectPascal
37 lines
395 B
ObjectPascal
{ %NORUN }
|
|
|
|
program tw29745;
|
|
|
|
{$apptype console}
|
|
{$ifdef fpc}
|
|
{$mode objfpc}
|
|
{$h+}
|
|
{$codepage utf8}
|
|
{$endif}
|
|
|
|
uses Classes;
|
|
|
|
type
|
|
TFoo = class helper for TStream
|
|
public
|
|
procedure Bar;
|
|
end;
|
|
|
|
procedure TFoo.Bar;
|
|
begin
|
|
end;
|
|
|
|
var
|
|
s: string = '';
|
|
m: TStream;
|
|
begin
|
|
m := TMemoryStream.Create;
|
|
try
|
|
m.Bar;
|
|
finally
|
|
m.Free;
|
|
end;
|
|
writeln(defaultsystemcodepage);
|
|
end.
|
|
|