paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 16:29:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ extended test with call/jmp [d]word ptr const, which produces an indirect call or jump under BP7

Browse Source 
git-svn-id: trunk@32177 -
This commit is contained in:
nickysn 2015-10-28 15:22:33 +00:00
parent a7a71f8b9f
commit 83d90c7888
2 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -125,6 +125,15 @@ begin
SetIntVec(FarInt, @IntFarHandler); SetIntVec(FarInt, @IntFarHandler);
asm asm
int NearInt
call word ptr $1234
int NearInt
call word ptr [$1234]
int FarInt
call dword ptr $1234
int FarInt
call dword ptr [$1234]
int NearInt int NearInt
call g16 { near } call g16 { near }

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

@ -125,6 +125,15 @@ begin
SetIntVec(FarInt, @IntFarHandler); SetIntVec(FarInt, @IntFarHandler);
asm asm
int NearInt
jmp word ptr $1234
int NearInt
jmp word ptr [$1234]
int FarInt
jmp dword ptr $1234
int FarInt
jmp dword ptr [$1234]
int NearInt int NearInt
jmp g16 { near } jmp g16 { near }