freem/src/symtab_dispatch.c - diff

Return to symtab_dispatch.c CVS log

Up to [Coherent Logic Development] / freem / src

version 1.4, 2025/03/27 03:27:35	version 1.5, 2025/04/13 04:22:43
Line 24	Line 24
* along with FreeM. If not, see <https://www.gnu.org/licenses/>.	* along with FreeM. If not, see <https://www.gnu.org/licenses/>.
*	*
* $Log$	* $Log$
	* Revision 1.5 2025/04/13 04:22:43 snw
	* Fix snprintf calls
	*
* Revision 1.4 2025/03/27 03:27:35 snw	* Revision 1.4 2025/03/27 03:27:35 snw
* Install init scripts to share/freem/examples/init and fix regression in method dispatch	* Install init scripts to share/freem/examples/init and fix regression in method dispatch
*	*
Line 73 void symtab (short action, char *key, ch	Line 76 void symtab (short action, char *key, ch

if (r->subscript_count == 0 && action == kill_sym) {	if (r->subscript_count == 0 && action == kill_sym) {

if (destructor_ct < 10) {	if (destructor_ct < 10) {
snprintf (destructors[destructor_ct++], 50, "DESTROY^%%SYSOOP(\"%s\",.%s)", t_cls, r->name);	snprintf (destructors[destructor_ct++], OBJ_DSTRSIZE - 1, "DESTROY^%%SYSOOP(\"%s\",.%s)", t_cls, r->name);
}	}

obj_destroy (key);	obj_destroy (key);