* not committed by svnmerge.py for some reason

git-svn-id: branches/objc@13349 -

.gitattributes

@@ -686,6 +686,7 @@ ide/fpmdebug.inc svneol=native#text/plain
 ide/fpmedit.inc svneol=native#text/plain
 ide/fpmfile.inc svneol=native#text/plain
 ide/fpmhelp.inc svneol=native#text/plain
+ide/fpmingw.pas svneol=native#text/plain
 ide/fpmopts.inc svneol=native#text/plain
 ide/fpmrun.inc svneol=native#text/plain
 ide/fpmsrch.inc svneol=native#text/plain

ide/fpmingw.pas

@@ -0,0 +1,90 @@
+unit fpmingw;
+{
+    This file is part of the Free Pascal Integrated Development Environment
+    Copyright (c) 2009 by Marco van de Voort
+
+    Mingw helpers. Currently mostly atexit.
+
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}
+
+interface
+
+// mingw put atexit in binaries, so that it can have one atexit, and call it from
+// dll and .exe startup code.
+// This unit provides a similar service for when mingw code (read: libgdb and friends) are statically 
+// linked to FPC. 
+
+Type
+  TCFunction = function:longint cdecl; // prototype of an handler to be registered with atexit
+
+function atexit(p:TCFunction):longint; cdecl;  // export our own atexit handler
+
+implementation
+
+uses gdbint; // force dependancies that hopefully make it execute at the right moment.
+
+// prototype of atexit:
+Type
+  TAtexitFunction = function(p:TCFUnction):longint cdecl;
+
+var _imp__atexit : TAtExitFunction; Cvar;  // "true" atexit in mingw libs.
+
+function atexit(p:TCFunction):longint;cdecl; [public, alias : '_atexit'];
+
+begin
+  atexit:=_imp__atexit(p);  // simply route to "true" atexit
+end; 
+
+procedure __cpu_features_init; cdecl; external;
+procedure _pei386_runtime_relocator; cdecl; external;
+procedure __main; cdecl;external;
+
+procedure doinit;
+// other mingw initialization. Sequence from crt1.c
+begin
+ // not (yet) done: set mingw exception handlers:
+ // SetUnhandledExceptionFilter (_gnu_exception_handler);
+  __cpu_features_init;        // load CPU features. Might be useful for debugger :-)
+
+ // fpreset; 		      // don't do this, we init our own fp mask 
+
+ //  _mingw32_init_mainargs ();  // mingw doesn't handle arguments not necessary.
+ //  _mingw32_init_fmode ();     // Set default filemode. Is not done for libraries, so we don't.
+
+ // Adust references to dllimported data that have non-zero offsets.  
+  _pei386_runtime_relocator;  // 
+
+ // aligns stack here to 16 bytes
+
+  {From libgcc.a, __main calls global class constructors via
+      __do_global_ctors, This in turn  registers  __do_global_dtors
+      as the first entry of the app's atexit table.  We do this
+      explicitly at app startup rather than rely on gcc to generate
+      the call in main's  prologue, since main may be imported from a dll
+      which has its own __do_global_ctors.  }
+ //  __main;                   // should be libgcc initialization but this causes infinite loop. 
+end;
+
+procedure _cexit; cdecl; external;
+
+procedure doatexit;
+begin
+{
+   * Perform exit processing for the C library. This means
+   * flushing output and calling 'atexit' registered functions.
+} 
+ _cexit ();
+end;
+
+initialization
+  doinit;
+finalization
+  doatexit;
+end.