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

* fix wrong opsize for rangecheck to qword

Browse Source 
git-svn-id: trunk@2338 -
This commit is contained in:
peter 2006-01-25 21:46:51 +00:00
parent bbd4886809
commit 068c67190b
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/cg64f32.pas
View File

@ -680,9 +680,9 @@ unit cg64f32;
else
begin
hreg:=cg.getintregister(list,OS_32);
opsize:=OS_32;
opsize := def_cgsize(fromdef);
if opsize in [OS_64,OS_S64] then
if l.size in [OS_64,OS_S64] then
a_load64high_ref_reg(list,l.reference,hreg)
else
cg.a_load_ref_reg(list,opsize,OS_32,l.reference,hreg);