diff --git a/DAG.pas b/DAG.pas index 75a447a..d59bcf0 100644 --- a/DAG.pas +++ b/DAG.pas @@ -110,7 +110,7 @@ function CodesMatch (op1, op2: icptr; exact: boolean): boolean; pc_adi, pc_adl, pc_adr, pc_and, pc_lnd, pc_bnd, pc_bal, pc_bor, pc_blr, pc_bxr, pc_blx, pc_equ, pc_neq, pc_ior, pc_lor, pc_mpi, - pc_umi, pc_mpl, pc_uml, pc_mpr: begin + pc_umi, pc_mpl, pc_uml, pc_mpr, pc_bqr, pc_bqx, pc_baq: begin if op1^.left = op2^.left then if op1^.right = op2^.right then result := true; @@ -2266,6 +2266,9 @@ case op^.opcode of pc_udl, pc_ulm, pc_uml, pc_vsr: TypeOf := cgULong; + pc_bnq, pc_ngq, pc_bqr, pc_bqx, pc_baq: + TypeOf := cgQuad; + pc_ngr, pc_adr, pc_dvr, pc_mpr, pc_sbr: TypeOf := cgExtended; @@ -4058,7 +4061,8 @@ var pc_ixa,pc_lad,pc_lao,pc_lca,pc_lda,pc_ldc,pc_mod,pc_uim, pc_mdl,pc_ulm,pc_mpi,pc_umi,pc_mpl,pc_uml,pc_mpr,pc_ngi, pc_ngl,pc_ngr,pc_not,pc_pop,pc_sbi,pc_sbl,pc_sbr, - pc_shl,pc_sll,pc_shr,pc_usr,pc_slr,pc_vsr,pc_tri] + pc_shl,pc_sll,pc_shr,pc_usr,pc_slr,pc_vsr,pc_tri, + pc_bqr,pc_bqx,pc_baq,pc_bnq,pc_ngq] then begin op^.parents := icount; icount := icount+1;