paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 14:09:59 +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;
tcgvecnode = class(tvecnode)
function get_mul_size : aint;
function get_mul_size : asizeint;
private
procedure rangecheck_array;
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_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_dynamicarray;virtual;
function valid_index_size(size: tcgsize): boolean;virtual;
@ -607,7 +607,7 @@ implementation
TCGVECNODE
*****************************************************************************}
function tcgvecnode.get_mul_size : aint;
function tcgvecnode.get_mul_size : asizeint;
begin
if nf_memindex in flags then
get_mul_size:=1
@ -732,7 +732,7 @@ implementation
end;
procedure tcgvecnode.update_reference_offset(var ref: treference; index, mulsize: aint);
procedure tcgvecnode.update_reference_offset(var ref: treference; index, mulsize: ASizeInt);
begin
inc(ref.offset,index*mulsize);
end;
@ -849,7 +849,7 @@ implementation
rightp : pnode;
newsize : tcgsize;
mulsize,
bytemulsize,
bytemulsize : ASizeInt;
alignpow : aint;
paraloc1,
paraloc2 : tcgpara;