paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-22 20:29:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Exec cleanup

Browse Source
This commit is contained in:
Tomas Hajny 2004-03-21 20:35:24 +00:00
parent 802a4f713c
commit b1e636e4f9
1 changed files with 43 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
rtl/emx/dos.pas
View File

@ -87,10 +87,27 @@ Type
efwindowed: Run the non-pm program in a window. efwindowed: Run the non-pm program in a window.
} }
type execrunflags=(efwait,efno_wait,efoverlay,efdebug,efsession, const
efdetach,efpm); efWait = 0; (* Spawn child, wait until terminated *)
execwinflags=(efdefault,efminimize,efmaximize,effullscreen, efNo_Wait = 1; (* Not implemented according to EMX documentation! *)
efwindowed); efOverlay = 2; (* Exec child, kill current process *)
efDebug = 3; (* Debug child - use with ptrace syscall *)
efSession = 4; (* Run in a separate session *)
efDetach = 5; (* Run detached *)
efPM = 6; (* Run as a PM program *)
efDefault = 0;
efMinimize = $100;
efMaximize = $200;
efFullScreen = $300;
efWindowed = $400;
efBackground = $1000;
efNoClose = $2000;
efNoSession = $4000;
efMoreFlags = $8000; (* Needed if any flags > $FFFF are supplied *)
efQuote = $10000;
efTilde = $20000;
efDebugDesc = $40000;
{OS/2 specific functions} {OS/2 specific functions}
@ -98,14 +115,28 @@ Type
function GetEnvPChar (EnvVar: string): PChar; function GetEnvPChar (EnvVar: string): PChar;
const {$ifdef HASTHREADVAR}
threadvar
{$else HASTHREADVAR}
var
{$endif HASTHREADVAR}
(* For compatibility with VP/2, used for runflags in Exec procedure. *) (* For compatibility with VP/2, used for runflags in Exec procedure. *)
ExecFlags: cardinal = ord (efwait); ExecFlags: cardinal;
implementation implementation
{$ifdef HASTHREADVAR}
threadvar
{$else HASTHREADVAR}
var var
{$endif HASTHREADVAR}
LastDosExitCode: longint;
LastSR: SearchRec; LastSR: SearchRec;
var
EnvC: longint; external name '_envc'; EnvC: longint; external name '_envc';
EnvP: ppchar; external name '_environ'; EnvP: ppchar; external name '_environ';
@ -326,12 +357,6 @@ begin
end ['eax','ebx','ecx','edx','esi','edi']; end ['eax','ebx','ecx','edx','esi','edi'];
end; end;
{$ifdef HASTHREADVAR}
threadvar
{$else HASTHREADVAR}
var
{$endif HASTHREADVAR}
LastDosExitCode: longint;
procedure exec(const path:pathstr;const comline:comstr); procedure exec(const path:pathstr;const comline:comstr);
@ -459,7 +484,6 @@ begin
jnc .Lexprg1 jnc .Lexprg1
xchgl %eax,%edi xchgl %eax,%edi
xorl %eax,%eax xorl %eax,%eax
decl %eax
.Lexprg1: .Lexprg1:
movw %di,doserror movw %di,doserror
movl %eax, LastDosExitCode movl %eax, LastDosExitCode
@ -1200,10 +1224,15 @@ begin
exitproc:=@doneenvironment; exitproc:=@doneenvironment;
InitEnvironment; InitEnvironment;
LastDosExitCode := 0; LastDosExitCode := 0;
ExecFlags := 0;
end. end.
{ {
$Log$ $Log$
Revision 1.14 2004-03-08 22:31:00 hajny Revision 1.15 2004-03-21 20:35:24 hajny
* Exec cleanup
Revision 1.14 2004/03/08 22:31:00 hajny
* exec fix * exec fix
Revision 1.13 2004/02/22 15:01:49 hajny Revision 1.13 2004/02/22 15:01:49 hajny