Explorar o código

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

git-svn-id: trunk@32873 -
pierre %!s(int64=9) %!d(string=hai) anos
pai
achega
80a7b909e4
Modificáronse 2 ficheiros con 10 adicións e 0 borrados
  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;