MorphOS: Added SystemTags(), TMemChunk field names changed to match SDK

git-svn-id: trunk@32682 -

packages/morphunits/src/amigados.pas

@@ -2086,6 +2086,7 @@ procedure VWritef(format: PChar; argv: Pointer); Inline;
 
 function CreateNewProcTags(tags: array of dword): PProcess; Inline;
 function AllocDosObjectTags(type1: Cardinal; Tags: array of DWord): Pointer; inline;
+function SystemTags(command: PChar; Tags: array of DWord): LongInt; Inline;
 
 implementation
 
@@ -2162,6 +2163,10 @@ begin
   AllocDosObjectTags := AllocDosObject(type1, @Tags);
 end;
 
+function SystemTags(command: PChar; Tags: array of DWord): LongInt;
+begin
+  SystemTags := SystemTagList(Command, @Tags);
+end;
 
 begin
   DosBase:=MOS_DOSBase;

packages/morphunits/src/exec.pas

@@ -566,8 +566,8 @@ const
 type
   PMemChunk = ^TMemChunk;
   TMemChunk = packed record
-    nc_Next : PMemChunk;
-    nc_Bytes: DWord;
+    mc_Next : PMemChunk;
+    mc_Bytes: DWord;
   end;
 
 type
@@ -2457,41 +2457,41 @@ end;
 
 function REG_A0: Pointer; assembler; nostackframe;
 asm
-  lwz r3,32(r2) 
+  lwz r3,32(r2)
 end;
 
 function REG_A1: Pointer; assembler; nostackframe;
 asm
-  lwz r3,36(r2) 
+  lwz r3,36(r2)
 end;
 function REG_A2: Pointer; assembler; nostackframe;
 asm
-  lwz r3,40(r2) 
+  lwz r3,40(r2)
 end;
 
 function REG_A3: Pointer; assembler; nostackframe;
 asm
-  lwz r3,44(r2) 
+  lwz r3,44(r2)
 end;
 
 function REG_A4: Pointer; assembler; nostackframe;
 asm
-  lwz r3,48(r2) 
+  lwz r3,48(r2)
 end;
 
 function REG_A5: Pointer; assembler; nostackframe;
 asm
-  lwz r3,52(r2) 
+  lwz r3,52(r2)
 end;
 
 function REG_A6: Pointer; assembler; nostackframe;
 asm
-  lwz r3,56(r2) 
+  lwz r3,56(r2)
 end;
 
 function REG_A7: Pointer; assembler; nostackframe;
 asm
-  lwz r3,60(r2) 
+  lwz r3,60(r2)
 end;