paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 10:20:21 +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
uses
strings,
sysutils,
typinfo;
@ -47,7 +46,11 @@ finalization
end.
{
$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
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);
{Execute a program.}
begin
dosexitcode:=word(exec(path,execrunflags(ExecFlags),efdefault,comline));
dosexitcode:=word(exec(path,execrunflags(ExecFlags),efdefault,comline));
end;
function exec(path:pathstr;runflags:execrunflags;winflags:execwinflags;
@ -320,7 +320,9 @@ begin
end ['eax','ebx','ecx','edx','esi','edi'];
//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(env, envc*sizeof(pchar)+16384);
@ -702,7 +704,11 @@ end;
end.
{
$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
Revision 1.31 2003/11/01 18:35:12 hajny

8
rtl/os2/moncalls.pas
View File

@ -69,8 +69,6 @@ Coding style:
interface
{***************************************************************************}
uses Strings;
{$IFDEF FPC}
{$PACKRECORDS 1}
{$ENDIF FPC}
@ -277,7 +275,11 @@ end.
{
$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
}

8
rtl/os2/sysutils.pp
View File

@ -23,7 +23,7 @@ interface
{$H+}
uses
Dos, Strings;
Dos;
{ Include platform independent interface part }
{$i sysutilh.inc}
@ -770,7 +770,11 @@ end.
{
$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
Revision 1.35 2003/10/27 11:43:40 yuri