Amiga, AROS, MorphOS: AsTag helper with LongInt instead Integer

git-svn-id: trunk@33565 -

packages/amunits/src/coreunits/utility.pas

@@ -394,12 +394,12 @@ FUNCTION Strnicmp(CONST string1 : string; CONST string2 : string; length : LONGI
 function TAG_(value: pointer): PtrUInt; overload; inline;
 function TAG_(value: pchar): PtrUInt; overload; inline;
 function TAG_(value: boolean): PtrUInt; overload; inline;
-function TAG_(value: integer): PtrUInt; overload; inline;
+function TAG_(value: LongInt): PtrUInt; overload; inline;
 
 function AsTag(value: pointer): PtrUInt; overload; inline;
 function AsTag(value: pchar): PtrUInt; overload; inline;
 function AsTag(value: boolean): PtrUInt; overload; inline;
-function AsTag(value: integer): PtrUInt; overload; inline;
+function AsTag(value: LongInt): PtrUInt; overload; inline;
 
 IMPLEMENTATION
 
@@ -467,7 +467,7 @@ begin
     TAG_ := LFalse;
 end;
 
-function TAG_(value: integer): PtrUInt; inline;
+function TAG_(value: LongInt): PtrUInt; inline;
 begin
   TAG_:=PtrUInt(value);
 end;
@@ -490,7 +490,7 @@ begin
     AsTag := LFalse;
 end;
 
-function AsTag(value: integer): PtrUInt; inline;
+function AsTag(value: LongInt): PtrUInt; inline;
 begin
   AsTag:=PtrUInt(value);
 end;

packages/arosunits/src/utility.pas

@@ -258,12 +258,12 @@ function CallHook(Hook: PHook; Object_: APTR; const Params: array of PtrUInt): I
 function TAG_(Value: Pointer): PtrUInt; overload; inline;
 function TAG_(Value: PChar): PtrUInt; overload; inline;
 function TAG_(Value: boolean): PtrUInt; overload; inline;
-function TAG_(Value: integer): PtrUInt; overload; inline;
+function TAG_(Value: LongInt): PtrUInt; overload; inline;
 
 function AsTag(Value: Pointer): PtrUInt; overload; inline;
 function AsTag(Value: PChar): PtrUInt; overload; inline;
 function AsTag(Value: boolean): PtrUInt; overload; inline;
-function AsTag(Value: integer): PtrUInt; overload; inline;
+function AsTag(Value: LongInt): PtrUInt; overload; inline;
 
 implementation
 
@@ -308,7 +308,7 @@ begin
     TAG_ := LFalse;
 end;
 
-function TAG_(Value: Integer): PtrUInt; inline;
+function TAG_(Value: LongInt): PtrUInt; inline;
 begin
   TAG_ := PtrUInt(Value);
 end;
@@ -331,7 +331,7 @@ begin
     AsTag := LFalse;
 end;
 
-function AsTag(Value: Integer): PtrUInt; inline;
+function AsTag(Value: LongInt): PtrUInt; inline;
 begin
   AsTag := PtrUInt(Value);
 end;

packages/morphunits/src/utility.pas

@@ -350,12 +350,12 @@ SysCall MOS_UtilityBase 270;
 function TAG_(value: pointer): longword; overload; inline;
 function TAG_(value: pchar): longword; overload; inline;
 function TAG_(value: boolean): longword; overload; inline;
-function TAG_(value: integer): longword; overload; inline;
+function TAG_(value: LongInt): longword; overload; inline;
 
 function AsTag(value: pointer): longword; overload; inline;
 function AsTag(value: pchar): longword; overload; inline;
 function AsTag(value: boolean): longword; overload; inline;
-function AsTag(value: integer): longword; overload; inline;
+function AsTag(value: LongInt): longword; overload; inline;
 
 implementation
 
@@ -377,7 +377,7 @@ begin
     TAG_ := LFalse;
 end;
 
-function TAG_(value: integer): longword; inline;
+function TAG_(value: LongInt): longword; inline;
 begin
   TAG_:=longword(value);
 end;
@@ -400,7 +400,7 @@ begin
     AsTag := LFalse;
 end;
 
-function AsTag(value: integer): longword; inline;
+function AsTag(value: LongInt): longword; inline;
 begin
   AsTag:=longword(value);
 end;

packages/os4units/src/utility.pas

@@ -324,12 +324,12 @@ function AllocNamedObject(Name: STRPTR; const Tags: array of PtrUInt): PNamedObj
 function TAG_(value: pointer): PtrUInt; overload; inline;
 function TAG_(value: PChar): PtrUInt; overload; inline;
 function TAG_(value: boolean): PtrUInt; overload; inline;
-function TAG_(value: integer): PtrUInt; overload; inline;
+function TAG_(value: LongInt): PtrUInt; overload; inline;
 
 function AsTag(value: pointer): PtrUInt; overload; inline;
 function AsTag(value: PChar): PtrUInt; overload; inline;
 function AsTag(value: boolean): PtrUInt; overload; inline;
-function AsTag(value: integer): PtrUInt; overload; inline;
+function AsTag(value: LongInt): PtrUInt; overload; inline;
 
 implementation
 
@@ -356,7 +356,7 @@ begin
     TAG_ := LFalse;
 end;
 
-function TAG_(value: integer): PtrUInt; inline;
+function TAG_(value: LongInt): PtrUInt; inline;
 begin
   TAG_:=PtrUInt(value);
 end;
@@ -379,7 +379,7 @@ begin
     AsTag := LFalse;
 end;
 
-function AsTag(value: integer): PtrUInt; inline;
+function AsTag(value: LongInt): PtrUInt; inline;
 begin
   AsTag:=PtrUInt(value);
 end;