paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 14:49:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* avoid range check errors on avr

Browse Source 
git-svn-id: trunk@36360 -
This commit is contained in:
florian 2017-05-28 08:59:51 +00:00
parent 344970879e
commit 8ea9e3d344
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/ncgmem.pas
View File

@ -60,7 +60,7 @@ interface
end; end;
tcgvecnode = class(tvecnode) tcgvecnode = class(tvecnode)
function get_mul_size : aint; function get_mul_size : asizeint;
private private
procedure rangecheck_array; procedure rangecheck_array;
procedure rangecheck_string; procedure rangecheck_string;
@ -73,7 +73,7 @@ interface
} }
procedure update_reference_reg_mul(maybe_const_reg: tregister;regsize: tdef; l: aint);virtual; procedure update_reference_reg_mul(maybe_const_reg: tregister;regsize: tdef; l: aint);virtual;
procedure update_reference_reg_packed(maybe_const_reg: tregister; regsize: tdef; l: aint);virtual; procedure update_reference_reg_packed(maybe_const_reg: tregister; regsize: tdef; l: aint);virtual;
procedure update_reference_offset(var ref: treference; index, mulsize: aint); virtual; procedure update_reference_offset(var ref: treference; index, mulsize: ASizeInt); virtual;
procedure second_wideansistring;virtual; procedure second_wideansistring;virtual;
procedure second_dynamicarray;virtual; procedure second_dynamicarray;virtual;
function valid_index_size(size: tcgsize): boolean;virtual; function valid_index_size(size: tcgsize): boolean;virtual;
@ -607,7 +607,7 @@ implementation
TCGVECNODE TCGVECNODE
*****************************************************************************} *****************************************************************************}
function tcgvecnode.get_mul_size : aint; function tcgvecnode.get_mul_size : asizeint;
begin begin
if nf_memindex in flags then if nf_memindex in flags then
get_mul_size:=1 get_mul_size:=1
@ -732,7 +732,7 @@ implementation
end; end;
procedure tcgvecnode.update_reference_offset(var ref: treference; index, mulsize: aint); procedure tcgvecnode.update_reference_offset(var ref: treference; index, mulsize: ASizeInt);
begin begin
inc(ref.offset,index*mulsize); inc(ref.offset,index*mulsize);
end; end;
@ -849,7 +849,7 @@ implementation
rightp : pnode; rightp : pnode;
newsize : tcgsize; newsize : tcgsize;
mulsize, mulsize,
bytemulsize, bytemulsize : ASizeInt;
alignpow : aint; alignpow : aint;
paraloc1, paraloc1,
paraloc2 : tcgpara; paraloc2 : tcgpara;