paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-30 21:20:53 +02:00
Code Issues Packages Projects Releases Wiki Activity

* OP_DIV shouldn't be used directly, not all cpu CGs support it

Browse Source 
git-svn-id: trunk@1533 -
This commit is contained in:
florian 2005-10-19 14:31:59 +00:00
parent ed1df49879
commit d43f2fb2d4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ncginl.pas
View File

@ -351,7 +351,7 @@ implementation
hregister:=cg.makeregsize(exprasmlist,left.location.register,OS_INT);
cg.a_load_ref_reg(exprasmlist,OS_INT,OS_INT,href,hregister);
if is_widestring(left.resulttype.def) then
cg.a_op_const_reg(exprasmlist,OP_IDIV,OS_INT,cwidechartype.def.size,hregister);
cg.a_op_const_reg(exprasmlist,OP_SHR,OS_INT,1,hregister);
cg.a_label(exprasmlist,lengthlab);
location_reset(location,LOC_REGISTER,OS_INT);
location.register:=hregister;