Pārlūkot izejas kodu

* added ifdef fpc

peter 20 gadi atpakaļ
vecāks
revīzija
c883b9fde3
1 mainītis faili ar 1 papildinājumiem un 1 dzēšanām
  1. 1 1
      tests/webtbs/tw3489.pp

+ 1 - 1
tests/webtbs/tw3489.pp

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