paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 11:59:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@33565 -
This commit is contained in:
marcus 2016-04-27 18:14:40 +00:00
parent 60382b990e
commit 79508d4653
4 changed files with 16 additions and 16 deletions
packages
amunits/src/coreunits
utility.pas
arosunits/src
utility.pas
morphunits/src
utility.pas
os4units/src
utility.pas

8
packages/amunits/src/coreunits/utility.pas
View File

@ -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;

8
packages/arosunits/src/utility.pas
View File

@ -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;

8
packages/morphunits/src/utility.pas
View File

@ -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;

8
packages/os4units/src/utility.pas
View File

@ -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;