Kaynağa Gözat

+ call to initvariantmanager inserted

florian 23 yıl önce
ebeveyn
işleme
495cb55113

+ 8 - 2
rtl/amiga/system.pas

@@ -1820,12 +1820,18 @@ begin
    argc:=GetParamCount(args);
    OrigDir := 0;
    FileList := nil;
+{$ifdef HASVARIANT}
+   initvariantmanager;
+{$endif HASVARIANT}
 end.
 
 
 {
   $Log$
-  Revision 1.4  2002-09-07 16:01:16  peter
+  Revision 1.5  2002-10-13 09:25:14  florian
+    + call to initvariantmanager inserted
+
+  Revision 1.4  2002/09/07 16:01:16  peter
     * old logs removed and tabs fixed
 
-}
+}

+ 9 - 3
rtl/atari/system.pas

@@ -752,12 +752,18 @@ begin
   InOutRes:=0;
   errno := 0;
 { Setup command line arguments }
- argc:=GetParamCount(args);
+  argc:=GetParamCount(args);
+{$ifdef HASVARIANT}
+  initvariantmanager;
+{$endif HASVARIANT}
 end.
 
 {
   $Log$
-  Revision 1.4  2002-09-07 16:01:16  peter
+  Revision 1.5  2002-10-13 09:25:23  florian
+    + call to initvariantmanager inserted
+
+  Revision 1.4  2002/09/07 16:01:16  peter
     * old logs removed and tabs fixed
 
-}
+}

+ 8 - 2
rtl/beos/system.pp

@@ -519,10 +519,16 @@ begin
 
 { Reset IO Error }
   InOutRes:=0;
+{$ifdef HASVARIANT}
+  initvariantmanager;
+{$endif HASVARIANT}  
 end.
 {
   $Log$
-  Revision 1.4  2002-09-07 16:01:17  peter
+  Revision 1.5  2002-10-13 09:25:31  florian
+    + call to initvariantmanager inserted
+
+  Revision 1.4  2002/09/07 16:01:17  peter
     * old logs removed and tabs fixed
 
-}
+}

+ 8 - 2
rtl/bsd/system.pp

@@ -81,14 +81,20 @@ Begin
   OpenStdIO(StdErr,fmOutput,StdErrorHandle);
 { Reset IO Error }
   InOutRes:=0;
+{$ifdef HASVARIANT}
+  initvariantmanager;
+{$endif HASVARIANT}  
 End.
 
 {
   $Log$
-  Revision 1.2  2002-09-07 16:01:17  peter
+  Revision 1.3  2002-10-13 09:25:39  florian
+    + call to initvariantmanager inserted
+
+  Revision 1.2  2002/09/07 16:01:17  peter
     * old logs removed and tabs fixed
 
   Revision 1.1  2002/08/19 12:29:11  marco
    * First working POSIX *BSD system unit.
 
-}
+}

+ 7 - 1
rtl/go32v2/system.pp

@@ -1504,10 +1504,16 @@ Begin
   InitDPMIExcp;
   InstallDefaultHandlers;
 {$endif  EXCEPTIONS_IN_SYSTEM}
+{$ifdef HASVARIANT}
+  initvariantmanager;
+{$endif HASVARIANT}
 End.
 {
   $Log$
-  Revision 1.21  2002-09-07 21:32:08  carl
+  Revision 1.22  2002-10-13 09:28:44  florian
+    + call to initvariantmanager inserted
+
+  Revision 1.21  2002/09/07 21:32:08  carl
     - removed unused defines
 
   Revision 1.20  2002/09/07 16:01:19  peter

+ 7 - 1
rtl/netware/system.pp

@@ -783,10 +783,16 @@ Begin
   IsLibrary := FALSE;
   IsConsole := TRUE;
   ExitCode  := 0;
+{$ifdef HASVARIANT}
+  initvariantmanager;
+{$endif HASVARIANT}
 End.
 {
   $Log$
-  Revision 1.14  2002-09-07 16:01:21  peter
+  Revision 1.15  2002-10-13 09:28:45  florian
+    + call to initvariantmanager inserted
+
+  Revision 1.14  2002/09/07 16:01:21  peter
     * old logs removed and tabs fixed
 
   Revision 1.13  2002/07/01 16:29:05  peter

+ 8 - 1
rtl/os2/system.pas

@@ -1018,10 +1018,17 @@ begin
 
     { no I/O-Error }
     inoutres:=0;
+
+{$ifdef HASVARIANT}
+    initvariantmanager;
+{$endif HASVARIANT}
 end.
 {
   $Log$
-  Revision 1.23  2002-09-07 16:01:25  peter
+  Revision 1.24  2002-10-13 09:28:45  florian
+    + call to initvariantmanager inserted
+
+  Revision 1.23  2002/09/07 16:01:25  peter
     * old logs removed and tabs fixed
 
   Revision 1.22  2002/07/01 16:29:05  peter

+ 5 - 2
rtl/win32/system.pp

@@ -975,7 +975,7 @@ procedure Exe_entry;[public, alias : '_FPC_EXE_Entry'];
      { This strange construction is needed to solve the _SS problem
        with a smartlinked syswin32 (PFV) }
      asm
-         { allocate space for an excption frame }
+         { allocate space for an exception frame }
         pushl $0
         pushl %fs:(0)
         { movl  %esp,%fs:(0)
@@ -1573,7 +1573,10 @@ end.
 
 {
   $Log$
-  Revision 1.32  2002-09-07 21:28:10  carl
+  Revision 1.33  2002-10-13 09:28:45  florian
+    + call to initvariantmanager inserted
+
+  Revision 1.32  2002/09/07 21:28:10  carl
     - removed os_types
     * fix range check errors