Просмотр исходного кода

AROS: TDosList structure fixed

git-svn-id: trunk@44059 -
marcus 5 лет назад
Родитель
Сommit
cfa50b20cf
1 измененных файлов с 4 добавлено и 11 удалено
  1. 4 11
      packages/arosunits/src/amigados.pas

+ 4 - 11
packages/arosunits/src/amigados.pas

@@ -916,19 +916,8 @@ type
           dol_StackSize,              {    stacksize to use when starting process }
           dol_StackSize,              {    stacksize to use when starting process }
           dol_Priority: LongInt;               {    task priority when starting process }
           dol_Priority: LongInt;               {    task priority when starting process }
           dol_Startup: BPTR;   {    startup msg: FileSysStartupMsg for disks }
           dol_Startup: BPTR;   {    startup msg: FileSysStartupMsg for disks }
-{$ifdef aros}
-          dol_NoAROS3: array[0..1] of BPTR;
-{$else}
           dol_SegList,                {    already loaded code for new task }
           dol_SegList,                {    already loaded code for new task }
           dol_GlobVec: BPTR;      {    BCPL global vector to use when starting }
           dol_GlobVec: BPTR;      {    BCPL global vector to use when starting }
-{$endif}
-          dol_Name: BSTR;           {    bptr to bcpl name }
-{$ifdef aros}
-  {$ifndef AROS_DOS_PACKETS}
-          dol_Reserved: array[0..5] of IPTR;
-          dol_AROS: TDosListAROSExt;
-  {$endif}
-{$endif}
         end;
         end;
       );
       );
       1 :(
       1 :(
@@ -945,6 +934,10 @@ type
           dol_List: PAssignList;   {    for multi-directory assigns (regular) }
           dol_List: PAssignList;   {    for multi-directory assigns (regular) }
         end;
         end;
       );
       );
+      3 :(
+        dol_Misc: array[0..23] of Byte;
+        dol_Name: BSTR;           {    bptr to bcpl name }
+      );
     end;
     end;