@@ -482,6 +482,8 @@ mkExp pp (SOp LFork [arg]) =
482482 (mkThread arg) >>= ppExp pp
483483mkExp pp (SOp LPar [arg]) =
484484 (Nothing <>@! arg) >>= ppExp pp
485+mkExp pp (SOp LRegisterPtr [ptr, i]) =
486+ (Nothing <>@! ptr) >>= ppExp pp
485487mkExp pp (SOp LNoOp args) =
486488 (Nothing <>@! (last args)) >>= ppExp pp
487489mkExp pp (SOp LNullPtr args) =