Browse Source

+ Conditional define explanaations

carl 25 years ago
parent
commit
9962e4b9c3
1 changed files with 12 additions and 1 deletions
  1. 12 1
      ide/text/fp.pas

+ 12 - 1
ide/text/fp.pas

@@ -1,3 +1,4 @@
+
 {
 {
     $Id$
     $Id$
     This file is part of the Free Pascal Integrated Development Environment
     This file is part of the Free Pascal Integrated Development Environment
@@ -16,6 +17,12 @@
 program FP;
 program FP;
 
 
 {$I globdir.inc}
 {$I globdir.inc}
+(**********************************************************************)
+(* CONDITIONAL DEFINES                                                *)
+(*  - NODEBUG    No Debugging support                                 *)
+(*  - TP         Turbo Pascal mode                                    *)
+(*  - i386       Target is an i386 IDE                                *)
+(**********************************************************************)
 
 
 uses
 uses
 {$ifdef IDEHeapTrc}
 {$ifdef IDEHeapTrc}
@@ -98,6 +105,7 @@ begin
     if Assigned(Application) then
     if Assigned(Application) then
       ErrorBox('Stream error: '+#13+ErrS,nil)
       ErrorBox('Stream error: '+#13+ErrS,nil)
     else
     else
+
       writeln('Error: ',ErrS);
       writeln('Error: ',ErrS);
   end;
   end;
 end;
 end;
@@ -217,7 +225,10 @@ BEGIN
 END.
 END.
 {
 {
   $Log$
   $Log$
-  Revision 1.38  2000-02-07 11:54:17  pierre
+  Revision 1.39  2000-02-12 23:58:26  carl
+    + Conditional define explanaations
+
+  Revision 1.38  2000/02/07 11:54:17  pierre
    + RegisterWUtils by Gabor
    + RegisterWUtils by Gabor
 
 
   Revision 1.37  2000/01/25 00:26:35  pierre
   Revision 1.37  2000/01/25 00:26:35  pierre