pcSetType :: PC -> PCType_ -> IO ()
pcSetType pc pct = chk0 $ pcSetType' pc pct
pcSetType :: PC -> PCType_ -> IO ()
pcSetType pc pct = chk0 $ pcSetType' pc pct
pcSetType pc pct = chk0 $ pcSetType' pc pct