setNextLabel :: Int -> CodeGen ()
setNextLabel n = modify $ \s -> s { cgNextLabel = n }
setNextLabel :: Int -> CodeGen ()
setNextLabel n = modify $ \s -> s { cgNextLabel = n }
setNextLabel n = modify $ \s -> s { cgNextLabel = n }