paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 11:28:07 +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 type
TestRec = record TestRec = record
fString : AnsiString; fString : AnsiString;
@ -9,7 +9,7 @@ type
function GetGroupInfo: TestRec; function GetGroupInfo: TestRec;
begin begin
fillchar(Result, Sizeof(Result), 0); // fillchar(Result, Sizeof(Result), 0);
Result.fRetAddr := 0; Result.fRetAddr := 0;
end; end;
@ -18,6 +18,11 @@ begin
Result := GetGroupInfo; Result := GetGroupInfo;
end; end;
procedure p;
begin begin
SelectGroup; SelectGroup;
end;
begin
p;
end. end.