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

+ introduced cgbase.topcg2str and topcmp2str for converting TOpCg and TOpCmp to strings (useful for debug logging, etc)

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-04-07 22:10:41 +03:00
parent 139f2dfe84
commit 2e65a5d458
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/cgbase.pas
View File

@ -511,6 +511,8 @@ interface
function double_array_cgsize(const a: tcgint): tcgsize;{$ifdef USEINLINE}inline;{$endif} function double_array_cgsize(const a: tcgint): tcgsize;{$ifdef USEINLINE}inline;{$endif}
function tcgsize2str(cgsize: tcgsize):string; function tcgsize2str(cgsize: tcgsize):string;
function topcg2str(opcg: topcg):string;
function topcmp2str(opcmp: topcmp):string;
{ return the inverse condition of opcmp } { return the inverse condition of opcmp }
function inverse_opcmp(opcmp: topcmp): topcmp;{$ifdef USEINLINE}inline;{$endif} function inverse_opcmp(opcmp: topcmp): topcmp;{$ifdef USEINLINE}inline;{$endif}
@ -873,6 +875,18 @@ implementation
end; end;
function topcg2str(opcg: topcg):string;
begin
Str(opcg, Result);
end;
function topcmp2str(opcmp: topcmp):string;
begin
Str(opcmp, Result);
end;
function inverse_opcmp(opcmp: topcmp): topcmp;{$ifdef USEINLINE}inline;{$endif} function inverse_opcmp(opcmp: topcmp): topcmp;{$ifdef USEINLINE}inline;{$endif}
const const
list: array[TOpCmp] of TOpCmp = list: array[TOpCmp] of TOpCmp =