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

amunits: fixed position of dol_Name in the DosList struct. this also matches other Amiga-likes, and the RTL version of the header, where it was correct. also fixed a pointers vs. signedness warning.

Browse Source 
git-svn-id: trunk@44045 -
This commit is contained in:
Károly Balogh 2020-01-27 07:11:25 +00:00
parent 56d64b007f
commit 2c12661a17
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/amunits/src/coreunits/amigados.pas
View File

@ -945,7 +945,10 @@ Type
dol_AssignName : STRPTR; { name for non-OR-late-binding assign } dol_AssignName : STRPTR; { name for non-OR-late-binding assign }
dol_List : pAssignList; { for multi-directory assigns (regular) } dol_List : pAssignList; { for multi-directory assigns (regular) }
END; END;
dol_Name : BSTR; { bptr to bcpl name } );
3 : (
dol_Misc : array[0..23] of byte;
dol_Name : BSTR; { bptr to bcpl name }
); );
END; END;
@ -1827,7 +1830,7 @@ END;
FUNCTION MKBADDR(adr : POINTER): BPTR; inline; FUNCTION MKBADDR(adr : POINTER): BPTR; inline;
BEGIN BEGIN
MKBADDR := BPTR( LONGINT(adr) shr 2); MKBADDR := BPTR( PTRUINT(adr) shr 2);
END; END;
FUNCTION AllocDosObjectTags(type_ : ULONG; Const argv : Array of PtrUInt) : POINTER; FUNCTION AllocDosObjectTags(type_ : ULONG; Const argv : Array of PtrUInt) : POINTER;