paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-25 16:29:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@30988 -
This commit is contained in:
Károly Balogh 2015-06-06 00:32:33 +00:00
parent b9aeeae771
commit 5d0dd23ddd
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
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