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

* don't force the constant of a_cmp_const* to be an integer constant,

Browse Source 
it can also be null

git-svn-id: branches/jvmbackend@18358 -
This commit is contained in:
Jonas Maebe 2011-08-20 07:51:24 +00:00
parent ca98c329b3
commit e326f46da5
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/jvm/hlcgcpu.pas
View File

@ -762,7 +762,7 @@ implementation
if ref.base<>NR_EVAL_STACK_BASE then
a_load_ref_stack(list,size,ref,prepare_stack_for_ref(list,ref,false));
maybe_adjust_cmp_stackval(list,size,cmp_op);
a_load_const_stack(list,size,maybe_adjust_cmp_constval(size,cmp_op,a),R_INTREGISTER);
a_load_const_stack(list,size,maybe_adjust_cmp_constval(size,cmp_op,a),def2regtyp(size));
a_cmp_stack_label(list,size,cmp_op,l);
end;
@ -770,7 +770,7 @@ implementation
begin
a_load_reg_stack(list,size,reg);
maybe_adjust_cmp_stackval(list,size,cmp_op);
a_load_const_stack(list,size,maybe_adjust_cmp_constval(size,cmp_op,a),R_INTREGISTER);
a_load_const_stack(list,size,maybe_adjust_cmp_constval(size,cmp_op,a),def2regtyp(size));
a_cmp_stack_label(list,size,cmp_op,l);
end;