Explorar o código

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.

git-svn-id: trunk@44045 -
Károly Balogh %!s(int64=5) %!d(string=hai) anos
pai
achega
2c12661a17
Modificáronse 1 ficheiros con 5 adicións e 2 borrados
  1. 5 2
      packages/amunits/src/coreunits/amigados.pas

+ 5 - 2
packages/amunits/src/coreunits/amigados.pas

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