Explorar o código

* added ifdef fpc

peter %!s(int64=20) %!d(string=hai) anos
pai
achega
c883b9fde3
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  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;