lazarus/test/bugs/12204/bug12204.pas
mattias 46d6c25c33 tests: fixed compilation and 64bit, bug #25967
git-svn-id: trunk@44597 -
2014-04-03 21:29:00 +00:00

14 lines
212 B
ObjectPascal

program bug12204;
var
s1: AnsiString;
s2: string;
begin
s1 := 's1';
WriteLn('s1 = ', s1, ' : ', SizeOf(s1)+4-SizeOf(pointer));
s2 := 's2';
WriteLn('s2 = ', s2, ' : ', SizeOf(s2)+4-SizeOf(pointer));
end.