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

* explicitly convert array indicies to pointer sized integers, so cse

Browse Source 
can handle the conversion

git-svn-id: trunk@47150 -
This commit is contained in:
florian 2020-10-21 20:46:28 +00:00
parent 4afa4a73c6
commit 044133fc87
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/nmem.pas
View File

@ -1052,10 +1052,15 @@ implementation
int64(Tarraydef(left.resultdef).lowrange), int64(Tarraydef(left.resultdef).lowrange),
int64(Tarraydef(left.resultdef).highrange), int64(Tarraydef(left.resultdef).highrange),
true true
)) ));
end end
else else
inserttypeconv(right,htype) begin
inserttypeconv(right,htype);
{ insert type conversion so cse can pick it up }
if (htype.size<ptrsinttype.size) and is_integer(htype) and not(cs_check_range in current_settings.localswitches) then
inserttypeconv_internal(right,ptrsinttype);
end;
end; end;
stringdef: stringdef:
if is_open_string(left.resultdef) then if is_open_string(left.resultdef) then