AROS: Locks must be BPTR type

rtl/amicommon/paramhandling.inc

@@ -162,7 +162,7 @@ end;
 function GetProgDir: string;
 var
   s1: string;
-  alock: LongInt;
+  alock: BPTR;
   counter: Byte;
 begin
   GetProgDir := '';

rtl/aros/system.pp

@@ -90,7 +90,7 @@ implementation
 type
     PWBArg = ^TWBArg;
     TWBArg = record
-        wa_Lock         : LongInt;      { a lock descriptor }
+        wa_Lock         : BPTR;      { a lock descriptor }
         wa_Name         : PChar;       { a string relative to that lock }
     end;