From: Pierre Habouzit <madcoder@debian.org>
Date: Sat, 19 May 2007 13:20:46 +0000 (+0200)
Subject: fix line number and file.
X-Git-Url: http://git.madism.org/?a=commitdiff_plain;h=b10940c18a5b0c8276d308b0601efac585d33966;p=apps%2Fmadmutt.git

fix line number and file.
---

diff --git a/tools/cpkg2c.mll b/tools/cpkg2c.mll
index 82be124..2e76dd9 100644
--- a/tools/cpkg2c.mll
+++ b/tools/cpkg2c.mll
@@ -312,11 +312,12 @@ and ext_pkg pkg = parse
                     {
                       let rettype = parse_rettype (lnum lexbuf) pkg.file ret in
                       let args    = parse_args    (lnum lexbuf) pkg.file args in
+                      let f, l    = pkg.file, lnum lexbuf in
                       let body    = ext_body pkg (B.create 1024) lexbuf in
                       let m       = { rettype = rettype;
                                       args = args;
                                       fname = fname;
-                                      body = body }, pkg.file, lnum lexbuf in
+                                      body = body }, f, l in
                       ext_pkg {pkg with methods = m::pkg.methods} lexbuf
                     }
 | '}' sp* ';' (sp* '\n' as s)?