فهرست منبع

Add $goto on for FPC compilation to avoid compile time error

git-svn-id: trunk@32873 -
pierre 9 سال پیش
والد
کامیت
80a7b909e4
2فایلهای تغییر یافته به همراه10 افزوده شده و 0 حذف شده
  1. 5 0
      tests/test/cpu16/i8086/tfarcal3.pp
  2. 5 0
      tests/test/cpu16/i8086/tfarcal4.pp

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

@@ -10,6 +10,11 @@
 
 { this test is Turbo Pascal 7 compatible }
 
+{$ifdef FPC}
+{ FPC needs $goto on to accept labels and gotos }
+{$goto on}
+{$endif FPC}
+
 program tfarcal3;
 
 {$F+}

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

@@ -8,6 +8,11 @@
   manually disassembles the instruction, checks that it is of the correct type
   and then skips the instruction. }
 
+{$ifdef FPC}
+{ FPC needs $goto on to accept labels and gotos }
+{$goto on}
+{$endif FPC}
+
 { this test is Turbo Pascal 7 compatible }
 
 program tfarcal4;