 
 # Cache this for typing null values.
 anyPtrTy = new PointerType null
-byteTy   = new PrimitiveType 1, 'byte',  HEAP, yes
+byteTy   = new PrimitiveType 1, 'byte',  U8,  no
 shortTy  = new PrimitiveType 2, 'short', I16, yes
 intTy    = new PrimitiveType 4, 'int',   I32, yes
 uintTy   = new PrimitiveType 4, 'uint',  U32, no

      exprs.unshift new Assign obj, requireExpr 'heap/malloc'
    # Bring in the heap views.
    props = []
    props.push new Value view for view in [HEAP, U8, I16, U16, I32, U32]
    obj = new Value new Obj props
    exprs.unshift new Assign obj, requireExpr 'heap/heap'


  else
    for i in [0...ty.size]
      offset = new Value new Literal i
      stmts.push new Assign new Value(U8, [new Index new Op '+', new Value(destPtr), offset]),
                            new Value(U8, [new Index new Op '+', new Value(srcPtr), offset])
  stmts.push new Value destPtr
  new Value new Parens new Block stmts

