cyclone alpha53 (see notes.txt for cyclone, bin and shared)

svn path=/trunk/externals/miXed/; revision=2590

1 files changed, 10 insertions, 0 deletions

diff --git a/shared/common/binport.c b/shared/common/binport.c
index 1df9571..90cf251 100644
--- a/shared/common/binport.c
+++ b/shared/common/binport.c
@@ -96,6 +96,7 @@ enum {
     BINPORT_NULLTYPE,
     BINPORT_INTTYPE = 1, BINPORT_FLOATTYPE, BINPORT_SYMTYPE,
     BINPORT_DEFINTTYPE = 5, BINPORT_DEFFLOATTYPE, BINPORT_DEFSYMTYPE,
+    BINPORT_DEFDOLLSYMTYPE = 9,
     BINPORT_SEMITYPE = 10, BINPORT_COMMATYPE,
     BINPORT_DOLLARTYPE, BINPORT_DOLLSYMTYPE
 };
@@ -535,6 +536,15 @@ static int binport_nextatom(t_binport *bp, t_atom *ap)
 	if (!binport_setbysymtable(bp, ap, opval))
 	    goto badbin;
 	break;
+    case BINPORT_DEFDOLLSYMTYPE:  /* half-byte #symbol id */
+	if (!binport_setbysymtable(bp, ap, opval))
+	    goto badbin;
+	sprintf(buf, "#%s", ap->a_w.w_symbol->s_name);
+#ifdef BINPORT_DEBUG
+	binport_warning(buf);
+#endif
+	ap->a_w.w_symbol = gensym(buf);
+	break;
     case BINPORT_SEMITYPE:
 	/* LATER warn about nonzero opval */
 	ap->a_type = A_SEMI;