paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 20:49:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

AROS 64bit fixes filehandles #2

Browse Source 
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).
This commit is contained in:
magorium 2022-04-29 22:03:43 +02:00 committed by Charlie Balogh
parent 216c848075
commit f2fc63aed2
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/aros/system.pp
View File

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