atari: return a valid filehandle in do_open(). this code accidentally worked before with -O2, because the way the reg uses overlapped, but failed with -O-...

git-svn-id: trunk@35227 -

rtl/atari/sysfile.inc

@@ -173,7 +173,6 @@ procedure do_open(var f;p:pchar;flags:longint; pchangeable: boolean);
 }
 var
   oldp     : pchar;
-  handle   : longint;
   dosResult: longint;
 begin
 { close first if opened }
@@ -234,7 +233,7 @@ begin
       exit;
     end
   else
-    filerec(f).handle:=handle;
+    filerec(f).handle:=word(dosResult);
 
   { append mode }
   if ((Flags and $100)<>0) and