florian 1 рік тому
батько
коміт
56d84c9283
2 змінених файлів з 2 додано та 2 видалено
  1. 1 1
      compiler/arm/narminl.pas
  2. 1 1
      compiler/options.pas

+ 1 - 1
compiler/arm/narminl.pas

@@ -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);

+ 1 - 1
compiler/options.pas

@@ -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');