paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 05:09:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added pointer const tests to the far pointer arithmetic test tfarptr3.pp

Browse Source 
git-svn-id: trunk@27486 -
This commit is contained in:
nickysn 2014-04-06 15:11:49 +00:00
parent 8d1ed088c8
commit cd90154b9c
1 changed files with 71 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

71
tests/test/cpu16/i8086/tfarptr3.pp
View File

@ -74,6 +74,51 @@ begin
FarPtr := Ptr($1234, $5678); FarPtr := Ptr($1234, $5678);
FarPtr2 := nil; FarPtr2 := nil;
FarPtr2 := $55AAF0AD + FarPtr; FarPtr2 := $55AAF0AD + FarPtr;
if FarPtr2 <> Ptr($1234, $4725) then
Error(1);
{ const }
Writeln('farptr_const + int16_var');
int16 := $F0AD;
FarPtr2 := nil;
FarPtr2 := FarPointer($12345678) + int16;
if FarPtr2 <> Ptr($1234, $4725) then
Error(1);
Writeln('int16_var + farptr_const');
int16 := $F0AD;
FarPtr2 := nil;
FarPtr2 := int16 + FarPointer($12345678);
if FarPtr2 <> Ptr($1234, $4725) then
Error(1);
Writeln('farptr_const + int32_var');
int32 := $55AAF0AD;
FarPtr2 := nil;
FarPtr2 := FarPointer($12345678) + int32;
if FarPtr2 <> Ptr($1234, $4725) then
Error(1);
Writeln('int32_var + farptr_const');
int32 := $55AAF0AD;
FarPtr2 := nil;
FarPtr2 := int32 + FarPointer($12345678);
if FarPtr2 <> Ptr($1234, $4725) then
Error(1);
Writeln('farptr_const + int16_const');
FarPtr2 := nil;
FarPtr2 := FarPointer($12345678) + $F0AD;
if FarPtr2 <> Ptr($1234, $4725) then
Error(1);
Writeln('int16_const + farptr_const');
FarPtr2 := nil;
FarPtr2 := $F0AD + FarPointer($12345678);
if FarPtr2 <> Ptr($1234, $4725) then
Error(1);
Writeln('farptr_const + int32_const');
FarPtr2 := nil;
FarPtr2 := FarPointer($12345678) + $55AAF0AD;
if FarPtr2 <> Ptr($1234, $4725) then
Error(1);
Writeln('int32_const + farptr_const');
FarPtr2 := nil;
FarPtr2 := $55AAF0AD + FarPointer($12345678);
if FarPtr2 <> Ptr($1234, $4725) then if FarPtr2 <> Ptr($1234, $4725) then
Error(1); Error(1);
@ -101,6 +146,32 @@ begin
FarPtr := Ptr($1234, $5678); FarPtr := Ptr($1234, $5678);
FarPtr2 := nil; FarPtr2 := nil;
FarPtr2 := FarPtr - $55AAF0AD; FarPtr2 := FarPtr - $55AAF0AD;
if FarPtr2 <> Ptr($1234, $65CB) then
Error(1);
Writeln('farptr_const - int16_var');
FarPtr := Ptr($1234, $5678);
int16 := $F0AD;
FarPtr2 := nil;
FarPtr2 := FarPointer($12345678) - int16;
if FarPtr2 <> Ptr($1234, $65CB) then
Error(1);
Writeln('farptr_const - int32_var');
FarPtr := Ptr($1234, $5678);
int32 := $55AAF0AD;
FarPtr2 := nil;
FarPtr2 := FarPointer($12345678) - int32;
if FarPtr2 <> Ptr($1234, $65CB) then
Error(1);
Writeln('farptr_const - int16_const');
FarPtr := Ptr($1234, $5678);
FarPtr2 := nil;
FarPtr2 := FarPointer($12345678) - $F0AD;
if FarPtr2 <> Ptr($1234, $65CB) then
Error(1);
Writeln('farptr_const - int32_const');
FarPtr := Ptr($1234, $5678);
FarPtr2 := nil;
FarPtr2 := FarPointer($12345678) - $55AAF0AD;
if FarPtr2 <> Ptr($1234, $65CB) then if FarPtr2 <> Ptr($1234, $65CB) then
Error(1); Error(1);