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

+ RiscV has internal rol/r support

Browse Source
This commit is contained in:
florian 2025-03-27 22:33:30 +01:00
parent f65994ddcb
commit f8f54dcbcf
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/fpcdefs.inc
View File

@ -345,6 +345,7 @@
{$define cpu32bit} {$define cpu32bit}
{$define cpu32bitaddr} {$define cpu32bitaddr}
{$define cpu32bitalu} {$define cpu32bitalu}
{$define cpurox}
{$define cpufpemu} {$define cpufpemu}
{$define cputargethasfixedstack} {$define cputargethasfixedstack}
{$define cpuneedsmulhelper} {$define cpuneedsmulhelper}
@ -372,6 +373,7 @@
{$define cpu64bit} {$define cpu64bit}
{$define cpu64bitaddr} {$define cpu64bitaddr}
{$define cpu64bitalu} {$define cpu64bitalu}
{$define cpurox}
{$define cpufpemu} {$define cpufpemu}
{$define cputargethasfixedstack} {$define cputargethasfixedstack}
{$define cpuneedsmulhelper} {$define cpuneedsmulhelper}

5
compiler/options.pas
View File

@ -4832,9 +4832,12 @@ procedure read_arguments(cmd:TCmdStr);
{ these cpus have an inline rol/ror implementaion } { these cpus have an inline rol/ror implementaion }
{$ifdef cpurox} {$ifdef cpurox}
{$ifdef m68k} {$if defined(m68k)}
if CPUM68K_HAS_ROLROR in cpu_capabilities[init_settings.cputype] then if CPUM68K_HAS_ROLROR in cpu_capabilities[init_settings.cputype] then
def_system_macro('FPC_HAS_INTERNAL_ROX'); def_system_macro('FPC_HAS_INTERNAL_ROX');
{$elseif defined(riscv)}
if [CPURV_HAS_ZBB,CPURV_HAS_ZBKB]*cpu_capabilities[init_settings.cputype]<>[] then
def_system_macro('FPC_HAS_INTERNAL_ROX');
{$else} {$else}
def_system_macro('FPC_HAS_INTERNAL_ROX'); def_system_macro('FPC_HAS_INTERNAL_ROX');
{$endif} {$endif}