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

+ new test for issue #5641

Browse Source 
git-svn-id: trunk@4478 -
This commit is contained in:
florian 2006-08-20 16:43:19 +00:00
parent 441d5a3c12
commit 35c58e24b4
2 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -7247,6 +7247,7 @@ tests/webtbs/tw5086.pp -text
tests/webtbs/tw5094.pp -text
tests/webtbs/tw5100.pp svneol=native#text/plain
tests/webtbs/tw5100a.pp svneol=native#text/plain
tests/webtbs/tw5641.pp svneol=native#text/plain
tests/webtbs/tw6203.pp svneol=native#text/plain
tests/webtbs/tw6435.pp svneol=native#text/plain
tests/webtbs/tw6491.pp svneol=native#text/plain

23
tests/webtbs/tw5641.pp Normal file
View File

@ -0,0 +1,23 @@
// Title: bad construction status of object.
{$C+}
uses Objects;
var
mempool: Pointer;
obj: PObject;
begin
GetMem(mempool, $2000000);
Assert(mempool<>nil, 'GetMem failed');
obj:=Pointer((Cardinal(mempool) or $FF));
Assert(obj^.init, 'case 1a ((addr and $FF) <> 0)');
Assert(obj^.init, 'case 1b ((addr and $FF) <> 0)');
Assert(obj^.init, 'case 1c ((addr and $FF) <> 0)');
obj:=Pointer((Cardinal(mempool) or $FF) + 1);
Assert(obj^.init, 'case 2 (addr=$xxxxxx00)');
obj:=Pointer((Cardinal(mempool) or $FFFF) + 1);
Assert(obj^.init, 'case 3 (addr=$xxxx0000)');
obj:=Pointer((Cardinal(mempool) or $FFFFFF) + 1);
Assert(obj^.init, 'case 4 (addr=$xx000000)');
FreeMem(mempool);
writeln('ok');
end.