paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 12:49:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* let it crash under all platforms

Browse Source
This commit is contained in:
peter 2003-11-03 19:32:44 +00:00
parent e9aaebe873
commit ea5771fd28
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
tests/webtbs/tw1103.pp
View File

@ -1,4 +1,4 @@
{$MODE OBJFPC }
{$ifdef fpc}{$MODE OBJFPC }{$endif}
type
TestRec = record
fString : AnsiString;
@ -9,7 +9,7 @@ type
function GetGroupInfo: TestRec;
begin
fillchar(Result, Sizeof(Result), 0);
// fillchar(Result, Sizeof(Result), 0);
Result.fRetAddr := 0;
end;
@ -18,6 +18,11 @@ begin
Result := GetGroupInfo;
end;
procedure p;
begin
SelectGroup;
end;
begin
p;
end.