let
make_stmt s ~orig =
{ pstmt_t = s ; pstmt_pr = { p_loc = orig.stmt_pr.ctt_loc } }