Commit ee67797f authored by sof's avatar sof
Browse files

[project @ 1998-08-14 11:50:58 by sof]

Reflect CCallOp change
parent 227a9182
......@@ -248,7 +248,7 @@ cgCase (StgPrim op args _) live_in_whole_case live_in_alts uniq alts
-- on as the first "argument"
-- ToDo: un-duplicate?
pin_liveness (CCallOp _ _ _ _ _) _ args = args
pin_liveness (CCallOp _ _ _ _ _ _) _ args = args
pin_liveness other_op liveness_arg args
= liveness_arg :args
......
......@@ -303,7 +303,8 @@ buildDynCon binder cc con [arg_amode] all_zero_size_args@False
where
(temp_amode, temp_id_info) = newTempAmodeAndIdInfo binder (mkConLFInfo con)
in_range_int_lit (CLit (MachInt val _)) = val <= mAX_INTLIKE && val >= mIN_INTLIKE
in_range_int_lit (CLit (MachInt val _)) = val <= mAX_INTLIKE &&
val >= mIN_INTLIKE
in_range_int_lit other_amode = False
\end{code}
......
......@@ -195,7 +195,7 @@ cgExpr x@(StgPrim op args live_vars)
-- on as the first "argument"
-- ToDo: un-duplicate?
pin_liveness (CCallOp _ _ _ _ _) _ args = args
pin_liveness (CCallOp _ _ _ _ _ _) _ args = args
pin_liveness other_op liveness_arg args
= liveness_arg :args
......
......@@ -436,7 +436,7 @@ tailCallBusiness fun fun_amode lf_info arg_amodes live_vars pending_assts
= load_regs_and_profiling_code `mkAbsCStmts`
CJump (CLbl join_lbl CodePtrRep)
semi_tagged_alts = [ (mkMachInt (toInteger (tag - fIRST_TAG)),
semi_tagged_alts = [ (mkMachInt (fromInt (tag - fIRST_TAG)),
join_details_to_code join_details)
| (tag, join_details) <- st_alts
]
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment