Browse Source

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

git-svn-id: trunk@32873 -
pierre 9 years ago
parent
commit
80a7b909e4
2 changed files with 10 additions and 0 deletions
  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;