misccoms.c, clear controls upon 'quit'

This commit is contained in:
h_vogt 2016-07-29 22:09:33 +02:00 committed by rlar
parent 35fabfc845
commit 802c7c3261
3 changed files with 2 additions and 1 deletions

View File

@ -873,7 +873,6 @@ cp_evloop(char *string)
/* This blows away the control structures... */
void cp_free_control(void); /* needed by resetcontrol */
void cp_resetcontrol(void)
{
fprintf(cp_err, "Warning: clearing control structures\n");

View File

@ -115,6 +115,7 @@ com_quit(wordlist *wl)
cp_remvar_all();
if (Infile_Path)
tfree(Infile_Path);
cp_free_control();
#ifdef SHARED_MODULE
/* add 1000 to notify that we exit from 'quit' */

View File

@ -168,6 +168,7 @@ extern struct variable *cp_setparse(wordlist *wl);
extern wordlist *vareval(char *string);
extern char *span_var_expr(char *t);
extern void cp_remvar_all(void);
extern void cp_free_control(void);
/* var2.c */
extern void cp_vprint(void);