Browse Source

+ use fpcygwin unit for win32 debug IDE

pierre 23 years ago
parent
commit
7bcac233c5
1 changed files with 15 additions and 1 deletions
  1. 15 1
      ide/fp.pas

+ 15 - 1
ide/fp.pas

@@ -24,6 +24,11 @@ program FP;
 (**********************************************************************)
 (**********************************************************************)
 
 
 uses
 uses
+{$ifndef NODEBUG}
+{$ifdef win32}
+  fpcygwin,
+{$endif win32}
+{$endif NODEBUG}
 {$ifdef IDEHeapTrc}
 {$ifdef IDEHeapTrc}
   HeapTrc,
   HeapTrc,
 {$endif IDEHeapTrc}
 {$endif IDEHeapTrc}
@@ -256,6 +261,12 @@ BEGIN
 {$ifdef win32}
 {$ifdef win32}
   Win32ShowMouse;
   Win32ShowMouse;
 {$endif win32}
 {$endif win32}
+{$ifndef NODEBUG}
+{$ifdef win32}
+  writeln('Using "',GetCygwinFullName,'" version ',GetCygwinVersionString);
+  CheckCygwinVersion;
+{$endif win32}
+{$endif NODEBUG}
 
 
   ProcessParams(true);
   ProcessParams(true);
 
 
@@ -412,7 +423,10 @@ BEGIN
 END.
 END.
 {
 {
   $Log$
   $Log$
-  Revision 1.7  2002-04-12 09:00:01  pierre
+  Revision 1.8  2002-04-12 11:28:55  pierre
+   + use fpcygwin unit for win32 debug IDE
+
+  Revision 1.7  2002/04/12 09:00:01  pierre
    * enhance internal error handling
    * enhance internal error handling
 
 
   Revision 1.6  2002/03/28 16:32:48  pierre
   Revision 1.6  2002/03/28 16:32:48  pierre