1999-04-07
1999-04-07 23:10:12 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
-
ae9503ae4b6f59b7e043762178a78bc3985f723c
(75 lines)
(+40/-35)
[
Show
| Annotate
]
Branch: 7.9
more debug and faster exit()
Rev: src/cpp.c:1.51
Rev: src/global.h:1.29
Rev: src/interpret.h:1.28
Rev: src/language.yacc:1.116
Rev: src/object.c:1.68
Rev: src/program.c:1.120
Rev: src/svalue.h:1.24
Rev: src/threads.h:1.64
5:
\*/
/**/
#include "global.h"
- RCSID("$Id: program.c,v 1.119 1999/04/03 01:34:00 hubbe Exp $");
+ RCSID("$Id: program.c,v 1.120 1999/04/07 23:10:10 hubbe Exp $");
#include "program.h"
#include "object.h"
#include "dynamic_buffer.h"
1848:
my_yyerror("Illegal to redefine 'nomask' function %s.",name->str);
}
- if(!(ref.id_flags & ID_INLINE) || compiler_pass!=1)
- {
+
/* We modify the old definition if it is in this program */
if(ref.inherit_offset==0)
{
1860:
funp->identifier_flags=function_flags;
}else{
+ if(compiler_pass==1 || (ref.id_flags & ID_INLINE))
+ goto make_a_new_def;
+
/* Otherwise we make a new definition */
copy_shared_string(fun.name, name);
copy_shared_string(fun.type, type);
1884:
new_program->identifier_references[i]=ref;
return i;
}
- }
+ make_a_new_def:
#ifdef PIKE_DEBUG
if(compiler_pass==2)
2619: Inside #if defined(FIND_FUNCTION_HASHSIZE)
}
}
#endif
+
+ #ifdef DO_PIKE_CLEANUP
if(resolve_cache)
{
free_mapping(resolve_cache);
2630:
free_program(pike_trampoline_program);
pike_trampoline_program=0;
}
+ #endif
}
#ifdef GC2