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

* compilation fixed

Browse Source
This commit is contained in:
florian 2024-03-28 18:31:38 +01:00
parent 0efd3afb8c
commit 56d84c9283
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/arm/narminl.pas
View File

@ -421,6 +421,7 @@ implementation
end;
secondpass(left);
opsize:=def_cgsize(left.resultdef);
if is_64bitint(left.resultdef) then
begin
hlcg.location_force_reg(current_asmdata.CurrAsmList,left.location,left.resultdef,left.resultdef,false);
@ -436,7 +437,6 @@ implementation
end
else
begin
opsize:=def_cgsize(left.resultdef);
hlcg.location_force_reg(current_asmdata.CurrAsmList,left.location,left.resultdef,left.resultdef,true);
location:=left.location;
location.register:=cg.getintregister(current_asmdata.CurrAsmList,opsize);

2
compiler/options.pas
View File

@ -4760,7 +4760,7 @@ procedure read_arguments(cmd:TCmdStr);
def_system_macro('FPC_HAS_INTERNAL_ABS_LONG');
{$if defined(i8086) or defined(i386) or defined(x86_64) or defined(powerpc64) or defined(aarch64) or defined(arm)}
def_system_macro('FPC_HAS_INTERNAL_ABS_INT64');
{$endif i8086 or i386 or x86_64 or powerpc64 or aarch64}
{$endif i8086 or i386 or x86_64 or powerpc64 or aarch64 or arm}
def_system_macro('FPC_HAS_UNICODESTRING');
def_system_macro('FPC_RTTI_PACKSET1');