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

* range check errors

Browse Source 
git-svn-id: trunk@2402 -
This commit is contained in:
peter 2006-02-02 09:03:02 +00:00
parent d19c95db8f
commit 4bee83c736
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/i386/n386mat.pas
View File

@ -300,11 +300,11 @@ implementation
printf ("\n");
printf ("; quotient now in EDX\n");
}
emit_const_reg(A_ADD,S_L,m,NR_EAX);
emit_const_reg(A_ADD,S_L,aint(m),NR_EAX);
emit_const_reg(A_ADC,S_L,0,NR_EDX);
end;
if s<>0 then
emit_const_reg(A_SHR,S_L,s,NR_EDX);
emit_const_reg(A_SHR,S_L,aint(s),NR_EDX);
cg.ungetcpuregister(exprasmlist,NR_EDX);
cg.ungetcpuregister(exprasmlist,NR_EAX);
location.register:=cg.getintregister(exprasmlist,OS_INT);