Parcourir la source

* added ifdef fpc

peter il y a 20 ans
Parent
commit
c883b9fde3
1 fichiers modifiés avec 1 ajouts et 1 suppressions
  1. 1 1
      tests/webtbs/tw3489.pp

+ 1 - 1
tests/webtbs/tw3489.pp

@@ -3,7 +3,7 @@
 { e-mail: [email protected] }
 program itest;
 
-{$mode delphi}
+{$ifdef fpc}{$mode delphi}{$endif}
 
 var
   err : boolean;