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

* Exec fix

Browse Source
This commit is contained in:
Tomas Hajny 2003-10-25 23:55:22 +00:00
parent 57538cb669
commit 90062097c9
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/os2/dos.pas
View File

@ -224,7 +224,7 @@ begin
FStat.DateLastWrite := Hi (Time); FStat.DateLastWrite := Hi (Time);
FStat.TimeLastAccess := Lo (Time); FStat.TimeLastAccess := Lo (Time);
FStat.TimeLastWrite := Lo (Time); FStat.TimeLastWrite := Lo (Time);
RC := DosSetFileInfo (FileRec (F).Handle, ilStandard, FStat, RC := DosSetFileInfo (FileRec (F).Handle, ilStandard, @FStat,
SizeOf (FStat)); SizeOf (FStat));
end; end;
DosError := integer (RC); DosError := integer (RC);
@ -317,7 +317,7 @@ 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, RunFlags, Args, Env, Res, Path); exec:=DosExecPgm(ObjName, cardinal (RunFlags), Args, Env, Res, Path);
freemem(args,ArgsSize); freemem(args,ArgsSize);
FreeMem(env, envc*sizeof(pchar)+16384); FreeMem(env, envc*sizeof(pchar)+16384);
@ -699,7 +699,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.29 2003-10-25 22:45:37 hajny Revision 1.30 2003-10-25 23:55:22 hajny
* Exec fix
Revision 1.29 2003/10/25 22:45:37 hajny
* file handling related fixes * file handling related fixes
Revision 1.28 2003/10/05 22:06:43 hajny Revision 1.28 2003/10/05 22:06:43 hajny