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