import FastString
import Constants ( wORD_SIZE )
-import GLAEXTS
+import GHC.Exts
-- -----------------------------------------------------------------------------
| FETCHPC Reg -- pseudo-instruction:
-- bcl to next insn, mflr reg
+ | LWSYNC -- memory barrier
#endif /* powerpc_TARGET_ARCH */