Преглед изворни кода

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;