ソースを参照

* LastDosExitCode changed back from threadvar temporarily

Tomas Hajny 21 年 前
コミット
7a08fcd395
10 ファイル変更83 行追加20 行削除
  1. 5 2
      rtl/amiga/dos.pp
  2. 5 2
      rtl/beos/dos.pp
  3. 5 2
      rtl/emx/dos.pas
  4. 5 2
      rtl/go32v2/dos.pp
  5. 5 2
      rtl/netware/dos.pp
  6. 5 2
      rtl/os2/dos.pas
  7. 38 2
      rtl/os2/system.pas
  8. 5 2
      rtl/unix/dos.pp
  9. 5 2
      rtl/watcom/dos.pp
  10. 5 2
      rtl/win32/dos.pp

+ 5 - 2
rtl/amiga/dos.pp

@@ -857,7 +857,7 @@ end;
 
 
 {$ifdef HASTHREADVAR}
-threadvar
+{thread}var
 {$else HASTHREADVAR}
 var
 {$endif HASTHREADVAR}
@@ -1612,7 +1612,10 @@ End.
 
 {
   $Log$
-  Revision 1.6  2004-02-15 21:26:37  hajny
+  Revision 1.7  2004-02-16 22:16:55  hajny
+    * LastDosExitCode changed back from threadvar temporarily
+
+  Revision 1.6  2004/02/15 21:26:37  hajny
     * overloaded ExecuteProcess added, EnvStr param changed to longint
 
   Revision 1.5  2004/02/09 12:03:16  michael

+ 5 - 2
rtl/beos/dos.pp

@@ -282,7 +282,7 @@ End;
 ******************************************************************************}
 
 {$ifdef HASTHREADVAR}
-threadvar
+{thread}var
 {$else HASTHREADVAR}
 var
 {$endif HASTHREADVAR}
@@ -969,7 +969,10 @@ finalization
 end.
 {
   $Log$
-  Revision 1.7  2004-02-15 21:26:37  hajny
+  Revision 1.8  2004-02-16 22:16:57  hajny
+    * LastDosExitCode changed back from threadvar temporarily
+
+  Revision 1.7  2004/02/15 21:26:37  hajny
     * overloaded ExecuteProcess added, EnvStr param changed to longint
 
   Revision 1.6  2004/02/09 12:03:16  michael

+ 5 - 2
rtl/emx/dos.pas

@@ -329,7 +329,7 @@ begin
 end;
 
 {$ifdef HASTHREADVAR}
-threadvar
+{thread}var
 {$else HASTHREADVAR}
 var
 {$endif HASTHREADVAR}
@@ -1211,7 +1211,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.10  2004-02-15 21:26:37  hajny
+  Revision 1.11  2004-02-16 22:16:58  hajny
+    * LastDosExitCode changed back from threadvar temporarily
+
+  Revision 1.10  2004/02/15 21:26:37  hajny
     * overloaded ExecuteProcess added, EnvStr param changed to longint
 
   Revision 1.9  2004/02/09 12:03:16  michael

+ 5 - 2
rtl/go32v2/dos.pp

@@ -168,7 +168,7 @@ End;
 ******************************************************************************}
 
 {$ifdef HASTHREADVAR}
-threadvar
+{thread}var
 {$else HASTHREADVAR}
 var
 {$endif HASTHREADVAR}
@@ -950,7 +950,10 @@ End;
 end.
 {
   $Log$
-  Revision 1.19  2004-02-15 21:34:06  hajny
+  Revision 1.20  2004-02-16 22:16:59  hajny
+    * LastDosExitCode changed back from threadvar temporarily
+
+  Revision 1.19  2004/02/15 21:34:06  hajny
     * overloaded ExecuteProcess added, EnvStr param changed to longint
 
   Revision 1.18  2004/02/09 12:03:16  michael

+ 5 - 2
rtl/netware/dos.pp

@@ -135,7 +135,7 @@ End;
 ******************************************************************************}
 
 {$ifdef HASTHREADVAR}
-threadvar
+{thread}var
 {$else HASTHREADVAR}
 var
 {$endif HASTHREADVAR}
@@ -750,7 +750,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.8  2004-02-15 21:34:06  hajny
+  Revision 1.9  2004-02-16 22:16:59  hajny
+    * LastDosExitCode changed back from threadvar temporarily
+
+  Revision 1.8  2004/02/15 21:34:06  hajny
     * overloaded ExecuteProcess added, EnvStr param changed to longint
 
   Revision 1.7  2004/02/09 12:03:16  michael

+ 5 - 2
rtl/os2/dos.pas

@@ -158,7 +158,7 @@ begin
 end;
 
 {$ifdef HASTHREADVAR}
-threadvar
+{thread}var
 {$else HASTHREADVAR}
 var
 {$endif HASTHREADVAR}
@@ -684,7 +684,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.36  2004-02-15 21:34:06  hajny
+  Revision 1.37  2004-02-16 22:16:59  hajny
+    * LastDosExitCode changed back from threadvar temporarily
+
+  Revision 1.36  2004/02/15 21:34:06  hajny
     * overloaded ExecuteProcess added, EnvStr param changed to longint
 
   Revision 1.35  2004/02/15 08:02:44  yuri

+ 38 - 2
rtl/os2/system.pas

@@ -500,7 +500,29 @@ begin
 {$ENDIF}
   p:=int_heap_end;
   // commit memory
-  rc:=DosSetMem(p, size, $10+3);
+  rc:=DosSetMem(p, size, $13);
+
+{
+  Not yet working
+  if RC = 8 then
+
+( * Not enough memory was allocated - let's try to allocate more
+   (4 MB steps or as much as requested if more than 4 MB needed). * )
+
+   begin
+    if Size > 4 * 1024 * 1024 then
+     RC := DosAllocMem (P, Size, 3)
+    else
+     RC := DosAllocMem (P, 4 * 1024 * 1024, 3);
+    if RC = 0 then
+     begin
+      Int_Heap := P;
+      Int_Heap_End := Int_Heap;
+      RC := DosSetMem (P, Size, $13);
+     end;
+   end;
+}
+
   if rc<>0 then p:=nil;
 {$IFDEF DUMPGROW}
   WriteLn ('New heap at ', Cardinal(p));
@@ -1405,7 +1427,18 @@ begin
     //   Note: Check for higher limit of heap not implemented yet.
     //   Note: Check for amount of memory for process not implemented yet.
     //         While used hard-coded value of max heapsize (256Mb)
+
+{}
     DosAllocMem(Int_Heap, 256*1024*1024, 3);
+{
+This should be changed as soon as dynamic allocation within sbrk works.
+
+256 MB RAM is way too much - there might not be so much physical RAM and swap
+space on some systems. Let's start on 16 MB - that isn't enough for cycling
+the compiler, of course, but more should get allocated dynamically on demand.
+
+    DosAllocMem(Int_Heap, 16 * 1024 * 1024, 3);
+}
     Int_Heap_End:=Int_Heap;
     InitHeap;
 
@@ -1438,7 +1471,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.65  2004-02-02 03:24:09  yuri
+  Revision 1.66  2004-02-16 22:18:44  hajny
+    * LastDosExitCode changed back from threadvar temporarily
+
+  Revision 1.65  2004/02/02 03:24:09  yuri
   - prt1.as removed
   - removed tmporary code/comments
   - prt1 compilation error workaround removed

+ 5 - 2
rtl/unix/dos.pp

@@ -224,7 +224,7 @@ End;
 ******************************************************************************}
 
 {$ifdef HASTHREADVAR}
-threadvar
+{thread}var
 {$else HASTHREADVAR}
 var
 {$endif HASTHREADVAR}
@@ -828,7 +828,10 @@ End.
 
 {
   $Log$
-  Revision 1.26  2004-02-15 21:36:10  hajny
+  Revision 1.27  2004-02-16 22:18:44  hajny
+    * LastDosExitCode changed back from threadvar temporarily
+
+  Revision 1.26  2004/02/15 21:36:10  hajny
     * overloaded ExecuteProcess added, EnvStr param changed to longint
 
   Revision 1.25  2004/02/09 17:01:28  marco

+ 5 - 2
rtl/watcom/dos.pp

@@ -168,7 +168,7 @@ End;
 ******************************************************************************}
 
 {$ifdef HASTHREADVAR}
-threadvar
+{thread}var
 {$else HASTHREADVAR}
 var
 {$endif HASTHREADVAR}
@@ -951,7 +951,10 @@ end.
 
 {
   $Log$
-  Revision 1.6  2004-02-15 21:36:10  hajny
+  Revision 1.7  2004-02-16 22:18:44  hajny
+    * LastDosExitCode changed back from threadvar temporarily
+
+  Revision 1.6  2004/02/15 21:36:10  hajny
     * overloaded ExecuteProcess added, EnvStr param changed to longint
 
   Revision 1.5  2004/02/09 12:03:16  michael

+ 5 - 2
rtl/win32/dos.pp

@@ -310,7 +310,7 @@ type
      stdcall; external 'kernel32' name 'CloseHandle';
 
 {$ifdef HASTHREADVAR}
-threadvar
+{thread}var
 {$else HASTHREADVAR}
 var
 {$endif HASTHREADVAR}
@@ -960,7 +960,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.24  2004-02-15 21:36:10  hajny
+  Revision 1.25  2004-02-16 22:18:44  hajny
+    * LastDosExitCode changed back from threadvar temporarily
+
+  Revision 1.24  2004/02/15 21:36:10  hajny
     * overloaded ExecuteProcess added, EnvStr param changed to longint
 
   Revision 1.23  2004/02/09 12:03:16  michael