+ Added types UnsignedByte,UnsignedWord,UnsignedLong, suggestion by

Adriaan van Os, (Mantis #9030)

git-svn-id: trunk@7601 -

rtl/inc/macpas.pp

@@ -28,6 +28,10 @@ type
   LongDouble = ValReal;
   FourCharArray = packed array[1..4] of char;
 
+  UnsignedByte = Byte;
+  UnsignedWord = Word;
+  UnsignedLong = Longword;
+
 {FourCharCode coercion
 This routine coreces string literals to a FourCharCode.}
 function FCC(const literal: string): LongWord; {$ifdef systeminline}inline;{$endif}