improved line number administration

diff --git a/lang/m2/comp/statement.g b/lang/m2/comp/statement.g
index 06ead2d..6278416 100644 (file)
--- a/lang/m2/comp/statement.g
+++ b/lang/m2/comp/statement.g
@@ -38,6 +38,7 @@ statement(register t_node **pnd;)
        designator(pnd)
        [                       { nd = dot2node(Stat, *pnd, NULLNODE);
                                  nd->nd_symb = '(';
+                                 nd->nd_lineno = (*pnd)->nd_lineno;
                                }
                ActualParameters(&(nd->nd_right))?
        |