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

sysutils: enable FINDHANDLE_IS_POINTER for Amiga-like systems and Atari. this allows to remove some Pointer<->THandle casts from the amicommon code

Browse Source 
git-svn-id: trunk@35198 -
This commit is contained in:
Károly Balogh 2016-12-27 03:23:54 +00:00
parent a4eb61cffb
commit c7576e4a3f
2 changed files with 5 additions and 5 deletions
rtl
amicommon
sysutils.pp
objpas/sysutils
filutilh.inc

8
rtl/amicommon/sysutils.pp
View File

@ -428,13 +428,13 @@ begin
{ $1e = faHidden or faSysFile or faVolumeID or faDirectory }
Rslt.ExcludeAttr := (not Attr) and ($1e);
Rslt.FindHandle := 0;
Rslt.FindHandle := nil;
new(Anchor);
FillChar(Anchor^,sizeof(TAnchorPath),#0);
if MatchFirst(pchar(tmpStr),Anchor)<>0 then exit;
Rslt.FindHandle := THandle(Anchor);
Rslt.FindHandle := Anchor;
with Anchor^.ap_Info do begin
Name := fib_FileName;
@ -485,7 +485,7 @@ begin
end;
Procedure InternalFindClose(var Handle: THandle);
Procedure InternalFindClose(var Handle: Pointer);
var
Anchor: PAnchorPath;
begin
@ -493,7 +493,7 @@ begin
if not assigned(Anchor) then exit;
MatchEnd(Anchor);
Dispose(Anchor);
Handle:=THandle(nil);
Handle:=nil;
end;

2
rtl/objpas/sysutils/filutilh.inc
View File

@ -17,7 +17,7 @@ Type
// Some operating systems need FindHandle to be a Pointer
{$if defined(unix) or defined(msdos)}
{$if defined(unix) or defined(msdos) or defined(hasamiga) or defined(atari)}
{$define FINDHANDLE_IS_POINTER}
{$endif}