@@ -482,6 +482,8 @@ mkExp pp (SOp LFork [arg]) =
482 (mkThread arg) >>= ppExp pp
482 (mkThread arg) >>= ppExp pp
483mkExp pp (SOp LPar [arg]) =
483mkExp pp (SOp LPar [arg]) =
484 (Nothing <>@! arg) >>= ppExp pp
484 (Nothing <>@! arg) >>= ppExp pp
485+mkExp pp (SOp LRegisterPtr [ptr, i]) =
486+ (Nothing <>@! ptr) >>= ppExp pp
485mkExp pp (SOp LNoOp args) =
487mkExp pp (SOp LNoOp args) =
486 (Nothing <>@! (last args)) >>= ppExp pp
488 (Nothing <>@! (last args)) >>= ppExp pp
487mkExp pp (SOp LNullPtr args) =
489mkExp pp (SOp LNullPtr args) =