paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 01:29:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed tests for systems where the page size <> 4096

Browse Source 
git-svn-id: trunk@12852 -
This commit is contained in:
Jonas Maebe 2009-03-02 16:10:07 +00:00
parent 0af39c77d9
commit 55373cd1a9
2 changed files with 47 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
tests/test/tparray13.pp
View File

@ -133,28 +133,44 @@ $518787,$219852,$48BD56,$827F40,$3CC0A6,$E79AF6
var
i: longint;
{$ifdef unix}
p,p2: pbyte;
p,p2,p3: pbyte;
bp: paa;
mapsize: ptruint;
first: boolean;
{$endif}
begin
if (sizeof(b)<>3*length(results)) then
error(48);
{$ifdef unix}
{ check for reading past end of array }
repeat
p := fpmmap(nil,4096,PROT_READ or PROT_WRITE,MAP_PRIVATE or MAP_ANONYMOUS,-1,0);
p2 := fpmmap(nil,4096,PROT_READ or PROT_WRITE,MAP_PRIVATE or MAP_ANONYMOUS,-1,0);
until (ptruint(p2) = ptruint(p) + 4096);
fpmunmap(p2,4096);
move(b,pbyte(ptruint(p)+4096-sizeof(b))^,sizeof(b));
bp := paa(ptruint(p)+4096-sizeof(b));
mapsize:=4096;
{ look for a place where we can map one page and are certain that there's
no valid page right behind it
}
for i:=1 to 18 do
begin
p:=fpmmap(nil,mapsize*3,PROT_READ or PROT_WRITE,MAP_PRIVATE or MAP_ANONYMOUS,-1,0);
if (p<>pointer(-1)) then
begin
fpmunmap(p,mapsize*3);
p2:=fpmmap(p,mapsize,PROT_READ or PROT_WRITE,MAP_PRIVATE or MAP_ANONYMOUS,-1,0);
if (p2=p) then
break;
p2:=pointer(-1);
end;
end;
if (p2 = pointer(-1)) then
{ didn't find a suitable mapping }
exit;
move(b,pbyte(ptruint(p)+mapsize-sizeof(b))^,sizeof(b));
bp := paa(ptruint(p)+mapsize-sizeof(b));
for i := low(results) to high(results) do
if bp^[i] <> results[i] then
begin
writeln(i);
error(49);
end;
fpmunmap(p,4096);
fpmunmap(p,mapsize);
{$else}
for i := low(results) to high(results) do
if b[i] <> results[i] then

29
tests/test/tparray7.pp
View File

@ -229,18 +229,33 @@ var
{$ifdef unix}
p,p2: pbyte;
bp: paa;
mapsize: ptruint;
{$else}
b: tb;
{$endif}
begin
{$ifdef unix}
{ check for reading/writing past end of array }
repeat
p := fpmmap(nil,4096,PROT_READ or PROT_WRITE,MAP_PRIVATE or MAP_ANONYMOUS,-1,0);
p2 := fpmmap(nil,4096,PROT_READ or PROT_WRITE,MAP_PRIVATE or MAP_ANONYMOUS,-1,0);
until (ptruint(p2) = ptruint(p) + 4096);
fpmunmap(p2,4096);
fillchar(p^,4096,$ff);
{ check for reading past end of array }
mapsize:=4096;
{ look for a place where we can map one page and are certain that there's
no valid page right behind it
}
for i:=1 to 18 do
begin
p:=fpmmap(nil,mapsize*3,PROT_READ or PROT_WRITE,MAP_PRIVATE or MAP_ANONYMOUS,-1,0);
if (p<>pointer(-1)) then
begin
fpmunmap(p,mapsize*3);
p2:=fpmmap(p,mapsize,PROT_READ or PROT_WRITE,MAP_PRIVATE or MAP_ANONYMOUS,-1,0);
if (p2=p) then
break;
p2:=pointer(-1);
end;
end;
if (p2 = pointer(-1)) then
{ didn't find a suitable mapping }
exit;
fillchar(p^,mapsize,$ff);
bp := paa(ptruint(p)+4096-sizeof(tb));
for i := low(results) to high(results) do
begin