* ifdef fpc

tests/webtbs/tw2834.pp

@@ -1,7 +1,8 @@
 { Source provided for Free Pascal Bug Report 2834 }
 { Submitted by "Mattias Gaertner" on  2003-12-06 }
 { e-mail: [email protected] }
-{$mode objfpc}{$H+}
+
+{$ifdef fpc}{$mode objfpc}{$H+}{$endif}
 
 uses
   uw2834;

tests/webtbs/uw2834.pp

@@ -1,6 +1,6 @@
 unit uw2834;
 
-{$mode objfpc}{$H+}
+{$ifdef fpc}{$mode objfpc}{$H+}{$endif}
 
 interface