From 7a43ffe6cb08d6abeb01c6b1421d1fe725344194 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Tue, 27 Oct 1998 15:07:16 +0000
Subject: [PATCH]   + Is* flags added   + IsLibrary works also

---
 rtl/win32/syswin32.pp | 17 +++++++++++------
 1 file changed, 11 insertions(+), 6 deletions(-)

diff --git a/rtl/win32/syswin32.pp b/rtl/win32/syswin32.pp
index f2259cdfa0..ce7abea4b5 100644
--- a/rtl/win32/syswin32.pp
+++ b/rtl/win32/syswin32.pp
@@ -65,8 +65,9 @@ var
 { Win32 Info }
   startupinfo : tstartupinfo;
   hprevinst,
-  hinstance,
+  MainInstance,
   cmdshow     : longint;
+  IsLibrary,IsMultiThreaded,IsConsole : boolean;
 
 implementation
 
@@ -723,15 +724,15 @@ end;
 {$endif}
 {$ASMMODE ATT}
 
-
-
-
 begin
 { get some helpful informations }
   GetStartupInfo(@startupinfo);
 { some misc Win32 stuff }
   hprevinst:=0;
-  hinstance:=getmodulehandle(GetCommandFile);
+  MainInstance:=getmodulehandle(GetCommandFile);
+  IsLibrary:=MainInstance=0;
+  IsConsole:=true;
+  IsMultithreaded:=false;
   cmdshow:=startupinfo.wshowwindow;
 { to test stack depth }
   loweststack:=maxlongint;
@@ -756,7 +757,11 @@ end.
 
 {
   $Log$
-  Revision 1.21  1998-10-15 16:26:19  peter
+  Revision 1.22  1998-10-27 15:07:16  florian
+    + Is* flags added
+    + IsLibrary works also
+
+  Revision 1.21  1998/10/15 16:26:19  peter
     + fpuinit
     + end of backtrace indicator