* fixed double identifier

git-svn-id: trunk@1836 -

rtl/morphos/utility.pp

@@ -30,20 +30,20 @@ var
 {$include utild2.inc}
 {$include utilf.inc}
 
-function TAG(value: pointer): longword; inline;
-function TAG(value: pchar): longword; inline;
+function TAG_(value: pointer): longword; inline;
+function TAG_(value: pchar): longword; inline;
 
 
 implementation
 
-function TAG(value: pointer): longword; inline;
+function TAG_(value: pointer): longword; inline;
 begin
-  TAG:=longword(value);
+  TAG_:=longword(value);
 end;
 
-function TAG(value: pchar): longword; inline;
+function TAG_(value: pchar): longword; inline;
 begin
-  TAG:=longword(value);
+  TAG_:=longword(value);
 end;