schemeE d s p (AnnNote note (_, body))
= schemeE d s p body
+schemeE d s p (AnnCast (_, body) _)
+ = schemeE d s p body
+
schemeE d s p other
= pprPanic "ByteCodeGen.schemeE: unhandled case"
(pprCoreExpr (deAnnotate' other))
pokeByteOff ptr n (fromIntegral (ord '\0') :: Word8)
return ptr
)
- other -> panic "ByteCodeGen.pushAtom.pushStr"
in
getMallocvilleAddr `thenBc` \ addr ->
-- Get the addr on the stack, untaggedly