Преглед на файлове

Add {$goto on} if FPC macro is defined

git-svn-id: trunk@42186 -
pierre преди 6 години
родител
ревизия
471cb73c5f
променени са 1 файла, в които са добавени 5 реда и са изтрити 0 реда
  1. 5 0
      tests/test/cpu16/i8086/tfarcal2.pp

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

@@ -12,6 +12,11 @@
 
 program tfarcal2;
 
+{$ifdef FPC}
+{ FPC needs $goto on to accept labels and gotos }
+{$goto on}
+{$endif}
+
 uses
   dos;