paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-04 04:37:19 +01:00
Code Issues Packages Projects Releases Wiki Activity

Use same parameter type for update_reference_offset override

Browse Source 
git-svn-id: trunk@40325 -
This commit is contained in:
pierre 2018-11-16 13:26:56 +00:00
parent 2761448f44
commit 23570bed33
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/llvm/nllvmmem.pas
View File

@ -48,7 +48,7 @@ interface
procedure pass_generate_code; 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_offset(var ref: treference; index, mulsize: aint); override;
procedure update_reference_offset(var ref: treference; index, mulsize: ASizeInt); override;
end;
@ -294,7 +294,7 @@ implementation
end;
procedure tllvmvecnode.update_reference_offset(var ref: treference; index, mulsize: aint);
procedure tllvmvecnode.update_reference_offset(var ref: treference; index, mulsize: ASizeInt);
begin
if not is_packed_array(left.resultdef) or
not (tarraydef(left.resultdef).elementdef.typ in [enumdef,orddef]) then