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

+ extended tests with some additional ways to produce call relative near/absolute far in BP7's inline asm

Browse Source 
git-svn-id: trunk@32172 -
This commit is contained in:
nickysn 2015-10-28 13:32:18 +00:00
parent 9c0d550320
commit 13441261f2
2 changed files with 36 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -73,24 +73,42 @@ begin
asm asm
int NearInt int NearInt
call testproc1 call testproc1
int NearInt
call [testproc1]
int FarInt int FarInt
call testproc2 call testproc2
int FarInt int FarInt
call [testproc2]
int FarInt
call testproc3 call testproc3
int FarInt
call [testproc3]
int NearInt int NearInt
call near ptr testproc1 call near ptr testproc1
int NearInt int NearInt
call near ptr [testproc1]
int NearInt
call near ptr testproc2 call near ptr testproc2
int NearInt int NearInt
call near ptr [testproc2]
int NearInt
call near ptr testproc3 call near ptr testproc3
int NearInt
call near ptr [testproc3]
int FarInt int FarInt
call far ptr testproc1 call far ptr testproc1
int FarInt int FarInt
call far ptr [testproc1]
int FarInt
call far ptr testproc2 call far ptr testproc2
int FarInt int FarInt
call far ptr [testproc2]
int FarInt
call far ptr testproc3 call far ptr testproc3
int FarInt
call far ptr [testproc3]
end; end;
Writeln('Ok'); Writeln('Ok');

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

@ -73,24 +73,42 @@ begin
asm asm
int NearInt int NearInt
call testproc1 call testproc1
int NearInt
call [testproc1]
int FarInt int FarInt
call testproc2 call testproc2
int FarInt
call [testproc2]
int NearInt int NearInt
call testproc3 call testproc3
int NearInt
call [testproc3]
int NearInt int NearInt
call near ptr testproc1 call near ptr testproc1
int NearInt int NearInt
call near ptr [testproc1]
int NearInt
call near ptr testproc2 call near ptr testproc2
int NearInt int NearInt
call near ptr [testproc2]
int NearInt
call near ptr testproc3 call near ptr testproc3
int NearInt
call near ptr [testproc3]
int FarInt int FarInt
call far ptr testproc1 call far ptr testproc1
int FarInt int FarInt
call far ptr [testproc1]
int FarInt
call far ptr testproc2 call far ptr testproc2
int FarInt int FarInt
call far ptr [testproc2]
int FarInt
call far ptr testproc3 call far ptr testproc3
int FarInt
call far ptr [testproc3]
end; end;
Writeln('Ok'); Writeln('Ok');