Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

amunits: cast TAG_USER as LongInt. this avoids all constants based on TAG_USER being 64bit, and causing constant range check warnings

git-svn-id: trunk@30988 -
Károly Balogh 10 years ago
parent
b9aeeae771
commit
5d0dd23ddd
1 changed files with 1 additions and 1 deletions
Unified View Show Diff Stats
  1. 1 1
      packages/amunits/src/coreunits/utility.pas

+ 1 - 1
packages/amunits/src/coreunits/utility.pas
View File 

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