- (_, Native) -> getRegsWithNode
+ (_, NativeCall) -> getRegsWithNode
+ (_, NativeReturn) -> getRegsWithNode
- (_, PrimOp) -> getRegsWithNode
+ (_, PrimOpCall) -> getRegsWithNode
+ (_, PrimOpReturn) -> getRegsWithNode
(sizes, assignments) = unzip $ assignArguments' reps (sum sizes) regs
assignArguments' [] _ _ = []
assignArguments' (r:rs) offset avails =
(sizes, assignments) = unzip $ assignArguments' reps (sum sizes) regs
assignArguments' [] _ _ = []
assignArguments' (r:rs) offset avails =