/[ascend]/trunk/tcltk98/generic/interface/Driver.c
ViewVC logotype

Diff of /trunk/tcltk98/generic/interface/Driver.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 57 by jds, Tue Aug 2 11:20:09 2005 UTC revision 58 by jds, Sat Oct 1 18:10:03 2005 UTC
# Line 352  static int AscDriver(int argc, CONST84 c Line 352  static int AscDriver(int argc, CONST84 c
352    /* jds20050119:  Initialize ASCERR before any calls to ascPanic(). */    /* jds20050119:  Initialize ASCERR before any calls to ascPanic(). */
353    /* TODO: revisit when interface is decoupled from base - this may change. */    /* TODO: revisit when interface is decoupled from base - this may change. */
354    Asc_RedirectCompilerDefault();    Asc_RedirectCompilerDefault();
355    #ifdef USE_ASC_PRINTF  
356    Asc_PrintInit_TclVtable();    Asc_PrintInit_TclVtable();
357    #endif  /* USE_ASC_PRINTF */
358    /*    /*
359     *  Create the Tk Console     *  Create the Tk Console
360     *     *
# Line 522  static int AscDriver(int argc, CONST84 c Line 523  static int AscDriver(int argc, CONST84 c
523    }    }
524    Tk_MainLoop();    Tk_MainLoop();
525    Asc_ScriptConfigureInterrupt(0,interp);    Asc_ScriptConfigureInterrupt(0,interp);
526    #ifdef USE_ASC_PRINTF  
527    Asc_PrintFinalize_Tcl();    Asc_PrintFinalize_Tcl();
528    #endif  /* USE_ASC_PRINTF */
529  #ifdef DEBUG_MALLOC  #ifdef DEBUG_MALLOC
530    ascstatus("Memory status after Tk_MainLoop() exits");    ascstatus("Memory status after Tk_MainLoop() exits");
531  #endif /* DEBUG_MALLOC */  #endif /* DEBUG_MALLOC */

Legend:
Removed from v.57  
changed lines
  Added in v.58

john.pye@anu.edu.au
ViewVC Help
Powered by ViewVC 1.1.22