From 79508d46531b07f6496950f244339e8785613f70 Mon Sep 17 00:00:00 2001
From: marcus <marcus@idefix.freepascal.org>
Date: Wed, 27 Apr 2016 18:14:40 +0000
Subject: [PATCH] Amiga, AROS, MorphOS: AsTag helper with LongInt instead
 Integer

git-svn-id: trunk@33565 -
---
 packages/amunits/src/coreunits/utility.pas | 8 ++++----
 packages/arosunits/src/utility.pas         | 8 ++++----
 packages/morphunits/src/utility.pas        | 8 ++++----
 packages/os4units/src/utility.pas          | 8 ++++----
 4 files changed, 16 insertions(+), 16 deletions(-)

diff --git a/packages/amunits/src/coreunits/utility.pas b/packages/amunits/src/coreunits/utility.pas
index 363d582415..7099e28a56 100644
--- a/packages/amunits/src/coreunits/utility.pas
+++ b/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;
diff --git a/packages/arosunits/src/utility.pas b/packages/arosunits/src/utility.pas
index f6bcce0f13..bf8e0c9034 100644
--- a/packages/arosunits/src/utility.pas
+++ b/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;
diff --git a/packages/morphunits/src/utility.pas b/packages/morphunits/src/utility.pas
index e7a4ec782f..0a8ce98e29 100644
--- a/packages/morphunits/src/utility.pas
+++ b/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;
diff --git a/packages/os4units/src/utility.pas b/packages/os4units/src/utility.pas
index a11da9bf49..b3fca9b375 100644
--- a/packages/os4units/src/utility.pas
+++ b/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;