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

+ added tcgsize2str function

Browse Source 
git-svn-id: trunk@27453 -
This commit is contained in:
nickysn 2014-04-03 16:50:50 +00:00
parent db13107e53
commit ec6dfb5853
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/cgbase.pas
View File

@ -374,6 +374,8 @@ interface
function int_cgsize(const a: tcgint): tcgsize;{$ifdef USEINLINE}inline;{$endif}
function int_float_cgsize(const a: tcgint): tcgsize;
function tcgsize2str(cgsize: tcgsize):string;
{ return the inverse condition of opcmp }
function inverse_opcmp(opcmp: topcmp): topcmp;{$ifdef USEINLINE}inline;{$endif}
@ -668,6 +670,12 @@ implementation
end;
function tcgsize2str(cgsize: tcgsize):string;
begin
Str(cgsize, Result);
end;
function inverse_opcmp(opcmp: topcmp): topcmp;{$ifdef USEINLINE}inline;{$endif}
const
list: array[TOpCmp] of TOpCmp =