Resetting the lines option to 0 still outputs #line directives about critcl HOT 4 CLOSED

/* Generated by critcl on Thu Feb 12 08:07:32 CET 2015
 * source: /tmp/critclline.tcl
 * binary: /tmp/_cache/v3112_324a96ccbd71d1afcc6a66e991bec9c2_pic.o
 */

#include "tcl.h"

/* ---------------------------------------------------------------------- */

#define ns__twice2 "::twice"
static int c__twice2(int i)
{
return i * 2;
}

static int
tcl__twice2(ClientData cd, Tcl_Interp *interp, int oc, Tcl_Obj *CONST ov[])
{
  int _i;
  int rv;
  if (oc != 2) {
    Tcl_WrongNumArgs(interp, 1, ov, "i");
    return TCL_ERROR;
  }

  /* (int i) - - -- --- ----- -------- */
    {
#line 4700 "critcl.tcl"
    if (Tcl_GetIntFromObj(interp, ov[1], &_i) != TCL_OK) return TCL_ERROR; }

  /* Call - - -- --- ----- -------- */
  rv = c__twice2(_i);

#line 4794 "critcl.tcl"
    Tcl_SetObjResult(interp, Tcl_NewIntObj(rv));
    return TCL_OK;
}

/* ---------------------------------------------------------------------- */

# line 1 "MyInitTclStubs"

#if USE_TCL_STUBS
   const TclStubs *tclStubsPtr;
   const TclPlatStubs *tclPlatStubsPtr;
  const struct TclIntStubs *tclIntStubsPtr;
  const struct TclIntPlatStubs *tclIntPlatStubsPtr;

  static int
  MyInitTclStubs (Tcl_Interp *ip)
  {
    typedef struct {
      char *result;
      Tcl_FreeProc *freeProc;
      int errorLine;
      TclStubs *stubTable;
    } HeadOfInterp;

    HeadOfInterp *hoi = (HeadOfInterp*) ip;

    if (hoi->stubTable == NULL || hoi->stubTable->magic != TCL_STUB_MAGIC) {
      hoi->result = "This extension requires stubs-support.";
      hoi->freeProc = TCL_STATIC;
      return 0;
    }

    tclStubsPtr = hoi->stubTable;

    if (Tcl_PkgRequire(ip, "Tcl", "8.6", 0) == NULL) {
      tclStubsPtr = NULL;
      return 0;
    }

    if (tclStubsPtr->hooks != NULL) {
    tclPlatStubsPtr = tclStubsPtr->hooks->tclPlatStubs;
    tclIntStubsPtr = tclStubsPtr->hooks->tclIntStubs;
    tclIntPlatStubsPtr = tclStubsPtr->hooks->tclIntPlatStubs;
    }

    return 1;
  }
#endif

#ifdef __cplusplus
extern "C" {
#endif

DLLEXPORT int
Critclline_Init(Tcl_Interp *ip)
{
#if USE_TCL_STUBS
  if (!MyInitTclStubs(ip)) return TCL_ERROR;
#endif


  Tcl_CreateObjCommand(ip, ns__twice2, tcl__twice2, NULL, 0);
  return TCL_OK;
}
#ifdef __cplusplus
}
#endif