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

* remove obsolete comment from rautils/ConcatConstant, issue reported/initial patch by Marcel Kilgus in QLForum.co.uk

Browse Source 
git-svn-id: trunk@47549 -
This commit is contained in:
Károly Balogh 2020-11-24 05:47:09 +00:00
parent 7444733f5d
commit 6b1c5861af
1 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/rautils.pas
View File

@ -1795,13 +1795,8 @@ end;
Procedure ConcatConstant(p: TAsmList; value: tcgint; constsize:byte); Procedure ConcatConstant(p: TAsmList; value: tcgint; constsize:byte);
{*********************************************************************} {*********************************************************************}
{ PROCEDURE ConcatConstant(value: aint; maxvalue: aint); }
{ Description: This routine adds the value constant to the current } { Description: This routine adds the value constant to the current }
{ instruction linked list. } { instruction linked list. }
{ maxvalue -> indicates the size of the data to initialize: }
{ $ff -> create a byte node. }
{ $ffff -> create a word node. }
{ $ffffffff -> create a dword node. }
{*********************************************************************} {*********************************************************************}
var var
rangelo,rangehi : int64; rangelo,rangehi : int64;