Commit 0c1fb475 authored by Axel Simon's avatar Axel Simon

no set in endianness

parent b988f8b0
......@@ -895,7 +895,7 @@ structure C1 = struct
| emitPrim s (GET_CON_ARGprim, [_,e],[FUNvtype (_,_,[t]),_]) = seq [str "((", emitConType s t, str "*) ", emitExp s e , str ")->payload"]
| emitPrim s (VOIDprim, [],_) = str "0 /* void value */"
| emitPrim s (MERGE_ROPEprim, [e],_) = seq [str (#prefix s ^ "merge_rope"), fArgs [emitExp s e]]
| emitPrim s (SET_ENDIANNESSprim, es,_) = seq [str (#prefix s ^ "set_endianness"), fArgs (map (emitExp s) es)]
| emitPrim s (SET_ENDIANNESSprim, es,_) = seq [str (#prefix s ^ "endianness"), fArgs (map (emitExp s) es)]
| emitPrim s _ = raise CodeGenBug
and addConsume s n = #consumeSizes s := IntListSet.add (!(#consumeSizes s),n)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment