paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-12 19:49:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

* initialize ovloc.loc in a_op*checkoverflow

Browse Source 
git-svn-id: trunk@22804 -
This commit is contained in:
Jonas Maebe 2012-10-21 17:56:07 +00:00
parent 439741178d
commit 1a8128fa72
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/hlcgobj.pas
View File

@ -2619,6 +2619,7 @@ implementation
procedure thlcgobj.a_op_const_reg_reg_checkoverflow(list: TAsmList; op: TOpCg; size: tdef; a: aint; src, dst: tregister; setflags: boolean; var ovloc: tlocation);
begin
ovloc.loc:=LOC_VOID;
if not setflags then
a_op_const_reg_reg(list,op,size,a,src,dst)
else
@ -2627,6 +2628,7 @@ implementation
procedure thlcgobj.a_op_reg_reg_reg_checkoverflow(list: TAsmList; op: TOpCg; size: tdef; src1, src2, dst: tregister; setflags: boolean; var ovloc: tlocation);
begin
ovloc.loc:=LOC_VOID;
if not setflags then
a_op_reg_reg_reg(list,op,size,src1,src2,dst)
else