paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 22:48:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed compilation

Browse Source
This commit is contained in:
Jonas Maebe 2004-01-10 10:49:24 +00:00
parent 4c7c8b9c3a
commit c6550c2b3b
2 changed files with 30 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/go32v2/system.pp
View File

@ -1268,7 +1268,7 @@ begin
regs.realeax := $3d00 + (flags and $ff) { For now, map to Open API }
else
regs.realeax := $6c00; { Use Extended Open/Create API }
if regs.realah = $3d then
if byte(regs.realeax shr 8) = $3d then
begin { Using the older Open or Create API's }
if (action and $00f0) <> 0 then
regs.realeax := $3c00; { Map to Create/Replace API }
@ -1297,7 +1297,7 @@ begin
regs.realeax := $3d00+(flags and $ff) {For now, map to Open API}
else
regs.realeax := $6c00; {Use Extended Open/Create API}
if regs.realah = $3d then
if byte(regs.realeax shr 8) = $3d then
begin { Using the older Open or Create API's }
if (action and $00f0) <> 0 then
regs.realeax := $3c00; {Map to Create/Replace API}
@ -1607,7 +1607,10 @@ Begin
End.
{
$Log$
Revision 1.30 2003-12-17 20:40:38 hajny
Revision 1.31 2004-01-10 10:49:24 jonas
* fixed compilation
Revision 1.30 2003/12/17 20:40:38 hajny
* 'conservative' version of the do_open patch by Joe da Silva
Revision 1.29 2003/12/04 21:42:07 peter

25
rtl/go32v2/sysutils.pp
View File

@ -759,6 +759,26 @@ begin
end;
end;
function ExecuteProcess(Const Path: AnsiString; Const ComLine: AnsiString):integer;
var
e : EOSError;
begin
dos.exec(path,comline);
result := dos.doserror;
{ (dos)exit code is irrelevant, at least the unix implementation }
{ does not }
{ take it into account }
if (result <> 0) then
begin
e:=EOSError.CreateFmt('Failed to execute %s : %d',[ComLine,result]);
e.ErrorCode:=result;
raise e;
end;
end;
{****************************************************************************
Initialization code
****************************************************************************}
@ -771,7 +791,10 @@ Finalization
end.
{
$Log$
Revision 1.19 2003-11-26 20:00:19 florian
Revision 1.20 2004-01-10 10:49:24 jonas
* fixed compilation
Revision 1.19 2003/11/26 20:00:19 florian
* error handling for Variants improved
Revision 1.18 2003/11/05 11:42:27 florian