paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 14:19:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* destroystack added

Browse Source
This commit is contained in:
peter 2003-11-04 15:40:50 +00:00
parent 30f1eb4705
commit 25530692e9
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
tests/webtbs/tw1103.pp
View File

@ -9,7 +9,7 @@ type
function GetGroupInfo: TestRec; function GetGroupInfo: TestRec;
begin begin
// fillchar(Result, Sizeof(Result), 0); Result.fString := 'Test';
Result.fRetAddr := 0; Result.fRetAddr := 0;
end; end;
@ -23,6 +23,16 @@ begin
SelectGroup; SelectGroup;
end; end;
procedure destroystack;
var
s : string;
i : longint;
begin begin
for i:=0 to 255 do
s[i]:=#$90;
end;
begin
// destroystack;
p; p;
end. end.