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

* map error 87 to 13 to be compatible with dos

Browse Source
This commit is contained in:
peter 2002-12-15 20:23:53 +00:00
parent 6e14067b99
commit a3c68549ec
1 changed files with 15 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/win32/dos.pp
View File

@ -209,7 +209,12 @@ type
function Last2DosError(d:dword):integer; function Last2DosError(d:dword):integer;
begin begin
Last2DosError:=d; case d of
87 : { Parameter invalid -> Data invalid }
Last2DosError:=13;
else
Last2DosError:=d;
end;
end; end;
@ -379,7 +384,6 @@ var
l : Longint; l : Longint;
CommandLine : array[0..511] of char; CommandLine : array[0..511] of char;
AppParam : array[0..255] of char; AppParam : array[0..255] of char;
SpacePos : integer;
pathlocal : string; pathlocal : string;
begin begin
DosError := 0; DosError := 0;
@ -821,7 +825,8 @@ var
ft : TFileTime; ft : TFileTime;
begin begin
if DosToWinTime(time,ft) then if DosToWinTime(time,ft) then
SetFileTime(filerec(f).Handle,nil,nil,@ft); if not SetFileTime(filerec(f).Handle,nil,nil,@ft) then;
DosError:=Last2DosError(GetLastError);
end; end;
@ -1032,7 +1037,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.16 2002-12-04 21:35:50 carl Revision 1.17 2002-12-15 20:23:53 peter
* map error 87 to 13 to be compatible with dos
Revision 1.16 2002/12/04 21:35:50 carl
* bugfixes for dos.exec() : it would not be able to execute 16-bit apps * bugfixes for dos.exec() : it would not be able to execute 16-bit apps
* doserror was not reset to zero in dos.exec * doserror was not reset to zero in dos.exec