freem/src/xecline.c - diff

Return to xecline.c CVS log

Up to [Coherent Logic Development] / freem / src

version 1.9, 2025/03/24 04:13:12	version 1.10, 2025/03/27 03:27:35
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.10 2025/03/27 03:27:35 snw
	* Install init scripts to share/freem/examples/init and fix regression in method dispatch
	*
* Revision 1.9 2025/03/24 04:13:12 snw	* Revision 1.9 2025/03/24 04:13:12 snw
* Replace action macro dat with fra_dat to avoid symbol conflict on OS/2	* Replace action macro dat with fra_dat to avoid symbol conflict on OS/2
*	*
Line 3760 off3:	Line 3763 off3:
break;	break;

case KILL:	case KILL:

/* argumentless: KILL all local variables */	/* argumentless: KILL all local variables */
if (((ch = *codptr) == SP) \|\| ch == EOL) {	if (((ch = *codptr) == SP) \|\| ch == EOL) {
symtab (kill_all, "", "");	symtab (kill_all, "", "");
Line 3794 off3:	Line 3797 off3:
if (destructor_ct) {	if (destructor_ct) {

for (cd = 0; cd < destructor_ct; cd++) {	for (cd = 0; cd < destructor_ct; cd++) {
strcat (destc, destructors[cd]);	if (strlen (destructors[cd]) > 0) {
strcat (destc, ",");	strcat (destc, destructors[cd]);
	strcat (destc, ",");
	}
}	}

destructor_ct = 0;	destructor_ct = 0;