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

* replaced setintvec(x,@proc) in i8086 tests with the memory model independent version setintvec(x,ptr(seg(proc),ofs(proc)))

Browse Source 
git-svn-id: trunk@32249 -
This commit is contained in:
nickysn 2015-11-05 14:18:55 +00:00
parent 4f54f8b3bd
commit 8c81e93a96
8 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/test/cpu16/i8086/tfarcal2.pp
View File

@ -120,9 +120,9 @@ var
g32: longint; g32: longint;
begin begin
GetIntVec(NearInt, OldNearIntVec); GetIntVec(NearInt, OldNearIntVec);
SetIntVec(NearInt, @IntNearHandler); SetIntVec(NearInt, Ptr(Seg(IntNearHandler),Ofs(IntNearHandler)));
GetIntVec(FarInt, OldFarIntVec); GetIntVec(FarInt, OldFarIntVec);
SetIntVec(FarInt, @IntFarHandler); SetIntVec(FarInt, Ptr(Seg(IntFarHandler),Ofs(IntFarHandler)));
asm asm
int NearInt int NearInt

4
tests/test/cpu16/i8086/tfarcal3.pp
View File

@ -96,9 +96,9 @@ label
lbl; lbl;
begin begin
GetIntVec(NearInt, OldNearIntVec); GetIntVec(NearInt, OldNearIntVec);
SetIntVec(NearInt, @IntNearHandler); SetIntVec(NearInt, Ptr(Seg(IntNearHandler),Ofs(IntNearHandler)));
GetIntVec(FarInt, OldFarIntVec); GetIntVec(FarInt, OldFarIntVec);
SetIntVec(FarInt, @IntFarHandler); SetIntVec(FarInt, Ptr(Seg(IntFarHandler),Ofs(IntFarHandler)));
testproc2; testproc2;
asm asm

4
tests/test/cpu16/i8086/tfarcal4.pp
View File

@ -96,9 +96,9 @@ label
lbl; lbl;
begin begin
GetIntVec(NearInt, OldNearIntVec); GetIntVec(NearInt, OldNearIntVec);
SetIntVec(NearInt, @IntNearHandler); SetIntVec(NearInt, Ptr(Seg(IntNearHandler),Ofs(IntNearHandler)));
GetIntVec(FarInt, OldFarIntVec); GetIntVec(FarInt, OldFarIntVec);
SetIntVec(FarInt, @IntFarHandler); SetIntVec(FarInt, Ptr(Seg(IntFarHandler),Ofs(IntFarHandler)));
testproc2; testproc2;
asm asm

4
tests/test/cpu16/i8086/tfarjmp2.pp
View File

@ -120,9 +120,9 @@ var
g32: longint; g32: longint;
begin begin
GetIntVec(NearInt, OldNearIntVec); GetIntVec(NearInt, OldNearIntVec);
SetIntVec(NearInt, @IntNearHandler); SetIntVec(NearInt, Ptr(Seg(IntNearHandler),Ofs(IntNearHandler)));
GetIntVec(FarInt, OldFarIntVec); GetIntVec(FarInt, OldFarIntVec);
SetIntVec(FarInt, @IntFarHandler); SetIntVec(FarInt, Ptr(Seg(IntFarHandler),Ofs(IntFarHandler)));
asm asm
int NearInt int NearInt

2
tests/test/cpu16/i8086/tintr1.pp
View File

@ -47,7 +47,7 @@ begin
Handled := False; Handled := False;
GetIntVec(IntNo, OldHandler); GetIntVec(IntNo, OldHandler);
SetIntVec(IntNo, @OurHandler); SetIntVec(IntNo, Ptr(Seg(OurHandler),Ofs(OurHandler)));
Intr(IntNo, regs); Intr(IntNo, regs);

2
tests/test/cpu16/i8086/tintr2.pp
View File

@ -71,7 +71,7 @@ begin
Handled := False; Handled := False;
GetIntVec(IntNo, OldHandler); GetIntVec(IntNo, OldHandler);
SetIntVec(IntNo, @OurHandler); SetIntVec(IntNo, Ptr(Seg(OurHandler),Ofs(OurHandler)));
Intr(IntNo, regs); Intr(IntNo, regs);

4
tests/test/cpu16/i8086/tretf1.pp
View File

@ -156,9 +156,9 @@ end;
begin begin
GetIntVec(NearInt, OldNearIntVec); GetIntVec(NearInt, OldNearIntVec);
SetIntVec(NearInt, @IntNearHandler); SetIntVec(NearInt, Ptr(Seg(IntNearHandler),Ofs(IntNearHandler)));
GetIntVec(FarInt, OldFarIntVec); GetIntVec(FarInt, OldFarIntVec);
SetIntVec(FarInt, @IntFarHandler); SetIntVec(FarInt, Ptr(Seg(IntFarHandler),Ofs(IntFarHandler)));
TestAsm1; TestAsm1;
TestAsm2; TestAsm2;

4
tests/test/cpu16/i8086/tretf2.pp
View File

@ -156,9 +156,9 @@ end;
begin begin
GetIntVec(NearInt, OldNearIntVec); GetIntVec(NearInt, OldNearIntVec);
SetIntVec(NearInt, @IntNearHandler); SetIntVec(NearInt, Ptr(Seg(IntNearHandler),Ofs(IntNearHandler)));
GetIntVec(FarInt, OldFarIntVec); GetIntVec(FarInt, OldFarIntVec);
SetIntVec(FarInt, @IntFarHandler); SetIntVec(FarInt, Ptr(Seg(IntFarHandler),Ofs(IntFarHandler)));
TestAsm1; TestAsm1;
TestAsm2; TestAsm2;