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

git-svn-id: trunk@35198 -

rtl/amicommon/sysutils.pp

@@ -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;
 
 

rtl/objpas/sysutils/filutilh.inc

@@ -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}