fix line number and file.
authorPierre Habouzit <madcoder@debian.org>
Sat, 19 May 2007 13:20:46 +0000 (15:20 +0200)
committerPierre Habouzit <madcoder@debian.org>
Sat, 19 May 2007 13:20:46 +0000 (15:20 +0200)
tools/cpkg2c.mll

index 82be124..2e76dd9 100644 (file)
@@ -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)?