Skip to content
Snippets Groups Projects
Commit f54521d3 authored by Fredrik Hübinette (Hubbe)'s avatar Fredrik Hübinette (Hubbe)
Browse files

minor but annoying leak fixed 

Rev: src/main.c:1.38
parent 24dd888b
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 4 additions and 3 deletions
src/main.c
+ 4
− 3
View file @ f54521d3
...@@ -4,7 +4,7 @@ ...@@ -4,7 +4,7 @@
||| See the files COPYING and DISCLAIMER for more information. ||| See the files COPYING and DISCLAIMER for more information.
\*/ \*/
#include "global.h" #include "global.h"
RCSID("$Id: main.c,v 1.37 1998/01/26 19:59:56 hubbe Exp $"); RCSID("$Id: main.c,v 1.38 1998/01/27 18:06:43 hubbe Exp $");
#include "fdlib.h" #include "fdlib.h"
#include "backend.h" #include "backend.h"
#include "module.h" #include "module.h"
...@@ -285,8 +285,7 @@ int dbm_main(int argc, char **argv) ...@@ -285,8 +285,7 @@ int dbm_main(int argc, char **argv)
}else{ }else{
ONERROR tmp; ONERROR tmp;
SET_ONERROR(tmp,exit_on_error,"Error in handle_error in master object!"); SET_ONERROR(tmp,exit_on_error,"Error in handle_error in master object!");
assign_svalue_no_free(sp, & throw_value); push_svalue(& throw_value);
sp++;
APPLY_MASTER("handle_error", 1); APPLY_MASTER("handle_error", 1);
pop_stack(); pop_stack();
UNSET_ONERROR(tmp); UNSET_ONERROR(tmp);
...@@ -357,6 +356,8 @@ void low_exit_main(void) ...@@ -357,6 +356,8 @@ void low_exit_main(void)
cleanup_compiler(); cleanup_compiler();
do_gc(); do_gc();
free_svalue(& throw_value);
throw_value.type=T_INT;
cleanup_callbacks(); cleanup_callbacks();
#if defined(DEBUG) && defined(DEBUG_MALLOC) #if defined(DEBUG) && defined(DEBUG_MALLOC)
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment