don't enforce BPL length, use SUBQ in g_concatcopy

git-svn-id: trunk@27290 -

compiler/m68k/cgcpu.pas

@@ -1639,8 +1639,8 @@ unit cgcpu;
                    if current_settings.cputype in cpu_coldfire then
                      begin
                        { Coldfire does not support DBRA }
-                       list.concat(taicpu.op_const_reg(A_SUB,S_L,1,hregister));
-                       list.concat(taicpu.op_sym(A_BPL,S_L,hl));
+                       list.concat(taicpu.op_const_reg(A_SUBQ,S_L,1,hregister));
+                       list.concat(taicpu.op_sym(A_BPL,S_NO,hl));
                      end
                    else
                      list.concat(taicpu.op_reg_sym(A_DBRA,S_L,hregister,hl));