paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 23:31:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

Add required FPC_DOTTEDUNITS changes

Browse Source
This commit is contained in:
Pierre Muller 2023-08-04 14:07:39 +02:00
parent 84c8a68492
commit ed734996fc
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/emx/sysutils.pp
View File

@ -751,11 +751,11 @@ begin
end
else
begin
Err := DOS.DosError;
Err := {$IFDEF FPC_DOTTEDUNITS}TP.{$endif}DOS.DosError;
GetMem (SR, SizeOf (SearchRec));
Rslt.FindHandle := longint(SR);
DOS.FindFirst (Path, Attr, SR^);
InternalFindFirst := -DOS.DosError;
{$IFDEF FPC_DOTTEDUNITS}TP.{$endif}DOS.FindFirst (Path, Attr, SR^);
InternalFindFirst := -{$IFDEF FPC_DOTTEDUNITS}TP.{$endif}DOS.DosError;
if DosError = 0 then
begin
Rslt.Time := SR^.Time;
@ -766,7 +766,7 @@ begin
Name := SR^.Name;
SetCodePage(Name, DefaultFileSystemCodePage, false);
end;
DOS.DosError := Err;
{$IFDEF FPC_DOTTEDUNITS}TP.{$endif}DOS.DosError := Err;
end;
end;
@ -814,7 +814,7 @@ begin
SR := PSearchRec (Rslt.FindHandle);
if SR <> nil then
begin
DOS.FindNext (SR^);
{$IFDEF FPC_DOTTEDUNITS}TP.{$endif}DOS.FindNext (SR^);
InternalFindNext := -DosError;
if DosError = 0 then
begin
@ -843,7 +843,7 @@ begin
else
begin
SR := PSearchRec (Handle);
DOS.FindClose (SR^);
{$IFDEF FPC_DOTTEDUNITS}TP.{$endif}DOS.FindClose (SR^);
FreeMem (SR, SizeOf (SearchRec));
end;
Handle := 0;
@ -1313,7 +1313,7 @@ begin
raise E;
end else
begin
Dos.Exec (Path, ComLine);
{$IFDEF FPC_DOTTEDUNITS}TP.{$endif}Dos.Exec (Path, ComLine);
if DosError <> 0 then
begin
if ComLine = '' then