improved call to C_lin

diff --git a/lang/cem/cemcom/code.c b/lang/cem/cemcom/code.c
index 3da2701..30825dc 100644 (file)
--- a/lang/cem/cemcom/code.c
+++ b/lang/cem/cemcom/code.c
@@ -494,7 +494,7 @@ code_expr(expr, val, code, tlbl, flbl)
                lin instruction.  EVAL() is called directly.
        */
        if (! options['L'])     /* profiling    */
-               C_lin((arith)LineNumber);
+               C_lin((arith)(expr->ex_line));
        EVAL(expr, val, code, tlbl, flbl);
 }