Explorar o código

* moved islibrary,isconsole,ismulithread to systemh as they are
os independent

peter %!s(int64=25) %!d(string=hai) anos
pai
achega
aae7c24beb
Modificáronse 2 ficheiros con 12 adicións e 3 borrados
  1. 7 1
      rtl/inc/systemh.inc
  2. 5 2
      rtl/win32/syswin32.pp

+ 7 - 1
rtl/inc/systemh.inc

@@ -157,6 +157,8 @@ var
   StackBottom,
   LowestStack,
   RandSeed    : Cardinal;
+{ Delphi compatible }
+  IsLibrary,IsMultiThreaded,IsConsole : boolean;
 
 
 {****************************************************************************
@@ -443,7 +445,11 @@ const
 
 {
   $Log$
-  Revision 1.84  2000-06-22 18:05:56  michael
+  Revision 1.85  2000-06-22 18:41:25  peter
+    * moved islibrary,isconsole,ismulithread to systemh as they are
+      os independent
+
+  Revision 1.84  2000/06/22 18:05:56  michael
   + Modifications for exception support in sysutils. Mainly added
      RaiseList function.
 

+ 5 - 2
rtl/win32/syswin32.pp

@@ -72,7 +72,6 @@ var
   HInstance,
   MainInstance,
   cmdshow     : longint;
-  IsLibrary,IsMultiThreaded,IsConsole : boolean;
   DLLreason,DLLparam:longint;
   Win32StackTop : Dword;
 { Thread count for DLL }
@@ -1325,7 +1324,11 @@ end.
 
 {
   $Log$
-  Revision 1.64  2000-05-08 13:25:34  peter
+  Revision 1.65  2000-06-22 18:39:14  peter
+    * moved islibrary,isconsole,ismulithread to systemh as they are
+      os independent
+
+  Revision 1.64  2000/05/08 13:25:34  peter
     * defined filemode constants in windows unit
 
   Revision 1.63  2000/03/31 23:21:19  pierre