Home Explore Help
Sign In
pascal
/
fpc
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* ifdef fpc

peter 21 years ago
parent
2fb9b2748a
commit
a2c5d9643d
2 changed files with 3 additions and 2 deletions
Unified View Show Diff Stats
  1. 2 1
      tests/webtbs/tw2834.pp
  2. 1 1
      tests/webtbs/uw2834.pp

+ 2 - 1
tests/webtbs/tw2834.pp
View File 

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

+ 1 - 1
tests/webtbs/uw2834.pp
View File 

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