paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 14:27:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

* LastDosExitCode changed back from threadvar temporarily

Browse Source
This commit is contained in:
Tomas Hajny 2004-02-16 22:16:55 +00:00
parent b1f38fa24a
commit 7a08fcd395
10 changed files with 83 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/amiga/dos.pp
View File

@ -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

7
rtl/beos/dos.pp
View File

@ -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

7
rtl/emx/dos.pas
View File

@ -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

7
rtl/go32v2/dos.pp
View File

@ -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

7
rtl/netware/dos.pp
View File

@ -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

7
rtl/os2/dos.pas
View File

@ -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

40
rtl/os2/system.pas
View File

@ -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

7
rtl/unix/dos.pp
View File

@ -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

7
rtl/watcom/dos.pp
View File

@ -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

7
rtl/win32/dos.pp
View File

@ -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