Kaynağa Gözat

Use same parameter type for update_reference_offset override

git-svn-id: trunk@40325 -
pierre 6 yıl önce
ebeveyn
işleme
23570bed33
1 değiştirilmiş dosya ile 2 ekleme ve 2 silme
  1. 2 2
      compiler/llvm/nllvmmem.pas

+ 2 - 2
compiler/llvm/nllvmmem.pas

@@ -48,7 +48,7 @@ interface
         procedure pass_generate_code; override;
         procedure pass_generate_code; override;
         procedure update_reference_reg_mul(maybe_const_reg: tregister; regsize: tdef; l: aint); override;
         procedure update_reference_reg_mul(maybe_const_reg: tregister; regsize: tdef; l: aint); override;
         procedure update_reference_reg_packed(maybe_const_reg: tregister; regsize: tdef; l: aint); override;
         procedure update_reference_reg_packed(maybe_const_reg: tregister; regsize: tdef; l: aint); override;
-        procedure update_reference_offset(var ref: treference; index, mulsize: aint); override;
+        procedure update_reference_offset(var ref: treference; index, mulsize: ASizeInt); override;
       end;
       end;
 
 
 
 
@@ -294,7 +294,7 @@ implementation
     end;
     end;
 
 
 
 
-  procedure tllvmvecnode.update_reference_offset(var ref: treference; index, mulsize: aint);
+  procedure tllvmvecnode.update_reference_offset(var ref: treference; index, mulsize: ASizeInt);
     begin
     begin
       if not is_packed_array(left.resultdef) or
       if not is_packed_array(left.resultdef) or
          not (tarraydef(left.resultdef).elementdef.typ in [enumdef,orddef]) then
          not (tarraydef(left.resultdef).elementdef.typ in [enumdef,orddef]) then