소스 검색

* several bugfixes by Nils Sjoholm

carl 27 년 전
부모
커밋
a5e83e029c
1개의 변경된 파일8개의 추가작업 그리고 12개의 파일을 삭제
  1. 8 12
      rtl/amiga/exec.inc

+ 8 - 12
rtl/amiga/exec.inc

@@ -473,18 +473,15 @@ TYPE
 
 { ****** MemEntry **************************************************** }
 
-  pMemUnit = ^tMemUnit;
-  tMemUnit = Packed Record
-      meu_Reqs  : ULONG;        { * the AllocMem requirements * }
-      meu_Addr  : Pointer;      { * the address of this memory region * }
-  End;
-
   pMemEntry = ^tMemEntry;
-  tMemEntry = Packed Record
-    me_Un       : tMemUnit;
-    me_Length   : ULONG;        { * the length of this memory region * }
-  End;
-
+  tMemEntry = packed record
+           me_Un : record
+                case longint of
+                   0 : ( meu_Reqs : ULONG );
+                   1 : ( meu_Addr : APTR );
+                end;
+            me_Length : ULONG;
+         end;
 
 { ****** MemList ***************************************************** }
 
@@ -995,7 +992,6 @@ tExecBase = packed Record
          }
         ex_MemHandlers    : tMinList; { The handler list }
         ex_MemHandler     : Pointer;          { Private! handler pointer }
-        ex_Reserved       : Array[0..1] of Shortint;
 end;