* align needs to be unsigned, patch from Burkhard Carstens

git-svn-id: trunk@4090 -

rtl/inc/generic.inc

@@ -990,7 +990,7 @@ procedure inclocked(var l:int64);
 
 
 
-function align(addr : PtrInt;alignment : PtrInt) : PtrInt;{$ifdef SYSTEMINLINE}inline;{$endif}
+function align(addr : PtrUInt;alignment : PtrUInt) : PtrUInt;{$ifdef SYSTEMINLINE}inline;{$endif}
   begin
     if addr mod alignment<>0 then
       result:=addr+(alignment-(addr mod alignment))
@@ -999,10 +999,10 @@ function align(addr : PtrInt;alignment : PtrInt) : PtrInt;{$ifdef SYSTEMINLINE}i
   end;
 
 
-function align(addr : Pointer;alignment : PtrInt) : Pointer;{$ifdef SYSTEMINLINE}inline;{$endif}
+function align(addr : Pointer;alignment : PtrUInt) : Pointer;{$ifdef SYSTEMINLINE}inline;{$endif}
   begin
-    if PtrInt(addr) mod alignment<>0 then
-      result:=pointer(addr+(alignment-(PtrInt(addr) mod alignment)))
+    if PtrUInt(addr) mod alignment<>0 then
+      result:=pointer(addr+(alignment-(PtrUInt(addr) mod alignment)))
     else
       result:=addr;
   end;

rtl/inc/systemh.inc

@@ -434,8 +434,8 @@ Function Swap (X : Cardinal) : Cardinal;{$ifdef SYSTEMINLINE}inline;{$endif}[int
 Function Swap (X : QWord) : QWord;{$ifdef SYSTEMINLINE}inline;{$endif}[internconst:fpc_in_const_swap_qword];
 Function swap (X : Int64) : Int64;{$ifdef SYSTEMINLINE}inline;{$endif}[internconst:fpc_in_const_swap_qword];
 
-Function Align (Addr : PtrInt; Alignment : PtrInt) : PtrInt;{$ifdef SYSTEMINLINE}inline;{$endif}
-Function Align (Addr : Pointer; Alignment : PtrInt) : Pointer;{$ifdef SYSTEMINLINE}inline;{$endif}
+Function Align (Addr : PtrUInt; Alignment : PtrUInt) : PtrUInt;{$ifdef SYSTEMINLINE}inline;{$endif}
+Function Align (Addr : Pointer; Alignment : PtrUInt) : Pointer;{$ifdef SYSTEMINLINE}inline;{$endif}
 
 Function  Random(l:longint):longint;
 Function  Random(l:int64):int64;