paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-04 15:20:45 +01:00
Code Issues Packages Projects Releases Wiki Activity

Fix compilation of sysutils unit

Browse Source 
git-svn-id: trunk@36844 -
This commit is contained in:
pierre 2017-08-04 15:10:05 +00:00
parent ee4956be40
commit 42bfa3967c
1 changed files with 10 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
rtl/watcom/sysutils.pp
View File

@ -36,6 +36,8 @@ uses
{ OS has an ansistring/single byte environment variable API }
{$define SYSUTILS_HAS_ANSISTR_ENVVAR_IMPL}
{$DEFINE executeprocuni} (* Only 1 byte version of ExecuteProcess is provided by the OS *)
{ Include platform independent interface part }
{$i sysutilh.inc}
@ -382,11 +384,11 @@ begin
end;
Procedure InternalFindClose(var Handle: Pointer);
Procedure InternalFindClose(var Handle: longint);
var
Sr: PSearchRec;
begin
Sr := PSearchRec(Handle);
Sr := PSearchRec(PtrUint(Handle));
if Sr <> nil then
begin
//!! Dispose(Sr);
@ -507,7 +509,7 @@ var
OldSystemFileName, NewSystemFileName: RawByteString;
begin
OldSystemFileName:=ToSingleByteFileSystemEncodedFileName(OldName);
NewSystemFileName:=ToSingleByteFileSystemEncodedFileName(NewFile);
NewSystemFileName:=ToSingleByteFileSystemEncodedFileName(NewName);
StringToTB(OldSystemFileName + #0 + NewSystemFileName);
Regs.Edx := tb_offset;
Regs.Ds := tb_segment;
@ -645,10 +647,6 @@ end ;
Misc Functions
****************************************************************************}
procedure Beep;
begin
end;
{****************************************************************************
Locale Functions
@ -779,11 +777,10 @@ begin
end;
function ExecuteProcess(Const Path: AnsiString; Const ComLine: AnsiString;Flags:TExecuteFlags=[]):integer;
function ExecuteProcess(Const Path: RawByteString; Const ComLine: RawByteString;Flags:TExecuteFlags=[]):integer;
var
e : EOSError;
CommandLine: AnsiString;
CommandLine: RawByteString;
begin
dos.exec(path,comline);
@ -802,11 +799,11 @@ begin
end;
function ExecuteProcess (const Path: AnsiString;
const ComLine: array of AnsiString;Flags:TExecuteFlags=[]): integer;
function ExecuteProcess (const Path: RawByteString;
const ComLine: array of RawByteString;Flags:TExecuteFlags=[]): integer;
var
CommandLine: AnsiString;
CommandLine: RawByteString;
I: integer;
begin