Browse Source

+ added calls to local labels in a far procedure to the test as well

git-svn-id: trunk@32175 -
nickysn 9 years ago
parent
commit
1fc1739c1d
2 changed files with 22 additions and 0 deletions
  1. 11 0
      tests/test/cpu16/i8086/tfarcal3.pp
  2. 11 0
      tests/test/cpu16/i8086/tfarcal4.pp

+ 11 - 0
tests/test/cpu16/i8086/tfarcal3.pp

@@ -57,7 +57,17 @@ begin
 end;
 end;
 
 
 procedure testproc2; far;
 procedure testproc2; far;
+label
+  lp_lbl;
 begin
 begin
+  asm
+    int NearInt
+    call @@lp_loc_lbl
+lp_lbl:
+    int NearInt
+    call lp_lbl
+@@lp_loc_lbl:
+  end;
 end;
 end;
 
 
 procedure testproc3;
 procedure testproc3;
@@ -90,6 +100,7 @@ begin
   GetIntVec(FarInt, OldFarIntVec);
   GetIntVec(FarInt, OldFarIntVec);
   SetIntVec(FarInt, @IntFarHandler);
   SetIntVec(FarInt, @IntFarHandler);
 
 
+  testproc2;
   asm
   asm
     int NearInt
     int NearInt
     call testproc1
     call testproc1

+ 11 - 0
tests/test/cpu16/i8086/tfarcal4.pp

@@ -57,7 +57,17 @@ begin
 end;
 end;
 
 
 procedure testproc2; far;
 procedure testproc2; far;
+label
+  lp_lbl;
 begin
 begin
+  asm
+    int NearInt
+    call @@lp_loc_lbl
+lp_lbl:
+    int NearInt
+    call lp_lbl
+@@lp_loc_lbl:
+  end;
 end;
 end;
 
 
 procedure testproc3;
 procedure testproc3;
@@ -90,6 +100,7 @@ begin
   GetIntVec(FarInt, OldFarIntVec);
   GetIntVec(FarInt, OldFarIntVec);
   SetIntVec(FarInt, @IntFarHandler);
   SetIntVec(FarInt, @IntFarHandler);
 
 
+  testproc2;
   asm
   asm
     int NearInt
     int NearInt
     call testproc1
     call testproc1