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

* exec fix

Browse Source 
* unused units removed
This commit is contained in:
yuri 2003-11-05 09:13:59 +00:00
parent 1a9e0cc489
commit 2cbdc6b02c
4 changed files with 25 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/os2/classes.pp
View File

@ -24,7 +24,6 @@ unit Classes;
interface interface
uses uses
strings,
sysutils, sysutils,
typinfo; typinfo;
@ -47,7 +46,11 @@ finalization
end. end.
{ {
$Log$ $Log$
Revision 1.1 2003-10-06 21:01:06 peter Revision 1.2 2003-11-05 09:13:59 yuri
* exec fix
* unused units removed
Revision 1.1 2003/10/06 21:01:06 peter
* moved classes unit to rtl * moved classes unit to rtl
Revision 1.1 2003/10/06 20:33:58 peter Revision 1.1 2003/10/06 20:33:58 peter

12
rtl/os2/dos.pas
View File

@ -236,7 +236,7 @@ end;
procedure exec(const path:pathstr;const comline:comstr); procedure exec(const path:pathstr;const comline:comstr);
{Execute a program.} {Execute a program.}
begin begin
dosexitcode:=word(exec(path,execrunflags(ExecFlags),efdefault,comline)); dosexitcode:=word(exec(path,execrunflags(ExecFlags),efdefault,comline));
end; end;
function exec(path:pathstr;runflags:execrunflags;winflags:execwinflags; function exec(path:pathstr;runflags:execrunflags;winflags:execwinflags;
@ -320,7 +320,9 @@ begin
end ['eax','ebx','ecx','edx','esi','edi']; end ['eax','ebx','ecx','edx','esi','edi'];
//Not clear how to use //Not clear how to use
exec:=DosExecPgm(ObjName, cardinal (RunFlags), Args, Env, Res, Path); DosError:=DosExecPgm(ObjName, cardinal (RunFlags), Args, Env, Res, Path);
exec:=Res.ExitCode;
freemem(args,ArgsSize); freemem(args,ArgsSize);
FreeMem(env, envc*sizeof(pchar)+16384); FreeMem(env, envc*sizeof(pchar)+16384);
@ -702,7 +704,11 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.32 2003-11-02 09:45:32 hajny Revision 1.33 2003-11-05 09:13:59 yuri
* exec fix
* unused units removed
Revision 1.32 2003/11/02 09:45:32 hajny
SetFTime fix SetFTime fix
Revision 1.31 2003/11/01 18:35:12 hajny Revision 1.31 2003/11/01 18:35:12 hajny

8
rtl/os2/moncalls.pas
View File

@ -69,8 +69,6 @@ Coding style:
interface interface
{***************************************************************************} {***************************************************************************}
uses Strings;
{$IFDEF FPC} {$IFDEF FPC}
{$PACKRECORDS 1} {$PACKRECORDS 1}
{$ENDIF FPC} {$ENDIF FPC}
@ -277,7 +275,11 @@ end.
{ {
$Log$ $Log$
Revision 1.2 2002-09-07 16:01:24 peter Revision 1.3 2003-11-05 09:14:00 yuri
* exec fix
* unused units removed
Revision 1.2 2002/09/07 16:01:24 peter
* old logs removed and tabs fixed * old logs removed and tabs fixed
} }

8
rtl/os2/sysutils.pp
View File

@ -23,7 +23,7 @@ interface
{$H+} {$H+}
uses uses
Dos, Strings; Dos;
{ Include platform independent interface part } { Include platform independent interface part }
{$i sysutilh.inc} {$i sysutilh.inc}
@ -770,7 +770,11 @@ end.
{ {
$Log$ $Log$
Revision 1.36 2003-10-27 12:19:20 yuri Revision 1.37 2003-11-05 09:14:00 yuri
* exec fix
* unused units removed
Revision 1.36 2003/10/27 12:19:20 yuri
* GetLocatTime now also native * GetLocatTime now also native
Revision 1.35 2003/10/27 11:43:40 yuri Revision 1.35 2003/10/27 11:43:40 yuri