From 5c82cb42e797599036746461eddf2bec1685eaf3 Mon Sep 17 00:00:00 2001 From: Graydon Hoare Date: Wed, 15 Sep 2010 16:10:08 -0700 Subject: Add Ast.ATOM_pexp and -pexp mode wherein pexps live beyond parsing, into later stages. Fixes to pexp pretty printer. --- src/boot/llvm/lltrans.ml | 2 ++ 1 file changed, 2 insertions(+) (limited to 'src/boot/llvm/lltrans.ml') diff --git a/src/boot/llvm/lltrans.ml b/src/boot/llvm/lltrans.ml index d83ae2d0..c116cf05 100644 --- a/src/boot/llvm/lltrans.ml +++ b/src/boot/llvm/lltrans.ml @@ -817,6 +817,8 @@ let trans_crate | Ast.ATOM_lval lval -> Llvm.build_load (fst (trans_lval lval)) (anon_llid "tmp") llbuilder + | Ast.ATOM_pexp _ -> + bug () "Lltrans.trans_atom on ATOM_pexp" in let build_binop (op:Ast.binop) (lllhs:Llvm.llvalue) (llrhs:Llvm.llvalue) -- cgit v1.2.3