Pārlūkot izejas kodu

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

git-svn-id: trunk@32175 -
nickysn 10 gadi atpakaļ
vecāks
revīzija
1fc1739c1d

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

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

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

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