Signed-off-by: Tomek Grabiec <tgrab...@gmail.com>
---
 jit/tree-printer.c |   22 ++++++++++++++++++++++
 1 files changed, 22 insertions(+), 0 deletions(-)

diff --git a/jit/tree-printer.c b/jit/tree-printer.c
index b20d80a..7783f55 100644
--- a/jit/tree-printer.c
+++ b/jit/tree-printer.c
@@ -608,6 +608,27 @@ out:
        return err;
 }
 
+static int print_truncation_expr(int lvl, struct string *str,
+                                struct expression *expr)
+{
+       int err;
+
+       err = append_formatted(lvl, str, "TRUNCATION:\n");
+       if (err)
+               goto out;
+
+       err = append_simple_attr(lvl + 1, str, "to_type",
+                                type_names[expr->to_type]);
+       if (err)
+               goto out;
+
+       err = append_tree_attr(lvl + 1, str, "from_expression",
+                              expr->unary_expression);
+
+out:
+       return err;
+}
+
 static int print_class_field_expr(int lvl, struct string *str,
                                  struct expression *expr)
 {
@@ -1053,6 +1074,7 @@ static print_expr_fn expr_printers[] = {
        [EXPR_ARRAY_DEREF] = print_array_deref_expr,
        [EXPR_BINOP] = print_binop_expr,
        [EXPR_UNARY_OP] = print_unary_op_expr,
+       [EXPR_TRUNCATION] = print_truncation_expr,
        [EXPR_CONVERSION] = print_conversion_expr,
        [EXPR_CONVERSION_FLOAT_TO_DOUBLE] = print_conversion_expr,
        [EXPR_CONVERSION_DOUBLE_TO_FLOAT] = print_conversion_expr,
-- 
1.6.0.6


------------------------------------------------------------------------------
Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day 
trial. Simplify your report design, integration and deployment - and focus on 
what you do best, core application coding. Discover what's new with 
Crystal Reports now.  http://p.sf.net/sfu/bobj-july
_______________________________________________
Jatovm-devel mailing list
Jatovm-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/jatovm-devel

Reply via email to