amiga-likes: make sure TAG_USER is unsigned

git-svn-id: trunk@36232 -

packages/amunits/src/coreunits/utility.pas

@@ -308,7 +308,7 @@ CONST
  TAG_SKIP          = 3; { skip this AND the next ti_Data items         }
 
 { differentiates user tags from control tags }
- TAG_USER          = LongInt($80000000);    { differentiates user tags from system tags}
+ TAG_USER          = DWord($80000000);    { differentiates user tags from system tags}
 
 {* If the TAG_USER bit is set in a tag number, it tells utility.library that
  * the tag is not a control tag (like TAG_DONE, TAG_IGNORE, TAG_MORE) and is

packages/arosunits/src/exec.pas

@@ -77,7 +77,7 @@ type
  PPTagItem = ^PTagItem;
 
 const
-  TAG_USER = 1 shl 31;  // differentiates user tags from system tags
+  TAG_USER = DWord(1 shl 31);  // differentiates user tags from system tags
 // END of part from utility move
 
 const

packages/morphunits/src/utility.pas

@@ -60,7 +60,7 @@ const
   TAG_MORE   = 2;
   TAG_SKIP   = 3;
 
-  TAG_USER   = 1 Shl 31;
+  TAG_USER   = DWord(1 Shl 31);
 
   TAGFILTER_AND = 0;
   TAGFILTER_NOT = 1;

packages/os4units/src/utility.pas

@@ -152,7 +152,7 @@ const
   TAG_SKIP   = 3; // skip this and the next ti_Data items
 
 // differentiates user tags from control tags
-  TAG_USER = $80000000;    { differentiates user tags from system tags}
+  TAG_USER = DWord($80000000);    { differentiates user tags from system tags}
 
 { If the TAG_USER bit is set in a tag number, it tells utility.library that
   the tag is not a control tag (like TAG_DONE, TAG_IGNORE, TAG_MORE) and is