Browse Source

AROS 64bit fixes filehandles #2

Solve crashes when opening, closing and managing files for AROS 64-bit when
filehandles are located in memory > 32-bit by making sure the used file
handles are actually of type BPTR/THandle instead of longint/cardinal
(and stays compatible to AROS 32-bit).
magorium 3 years ago
parent
commit
f2fc63aed2
1 changed files with 2 additions and 2 deletions
  1. 2 2
      rtl/aros/system.pp

+ 2 - 2
rtl/aros/system.pp

@@ -66,7 +66,7 @@ var
 
   ASYS_heapPool : Pointer; { pointer for the OS pool for growing the heap }
   ASYS_fileSemaphore: Pointer; { mutex semaphore for filelist access arbitration }
-  ASYS_origDir  : LongInt; { original directory on startup }
+  ASYS_origDir  : PtrInt; { original directory on startup }
   AOS_wbMsg    : Pointer;
   AOS_ConName  : PChar ='CON:10/30/620/100/FPC Console Output/AUTO/CLOSE/WAIT';
   AOS_ConHandle: THandle;
@@ -116,7 +116,7 @@ procedure haltproc(e:longint); cdecl; external name '_haltproc';
 
 procedure System_exit;
 var
-  oldDirLock: LongInt;
+  oldDirLock: PtrInt;
 begin
   if Killed then
     Exit;