correctly applying Hartmann's solution to fix #1707

csound · May 2, 2023 · 8f30470 · 8f30470
1 parent 84625d2
commit 8f30470
Show file tree

Hide file tree

Showing 3 changed files with 2 additions and 5 deletions.
diff --git a/Engine/insert.c b/Engine/insert.c
@@ -1648,9 +1648,9 @@ int xoutset(CSOUND *csound, XOUT *p)
     tmp[i] = in;
     // DO NOT COPY K or A vars
     // Fsigs need to be copied for initialization purposes.
-    if (inm->outtypes_cpy[i] != 'k' && csoundGetTypeForArg(in) != &CS_VAR_TYPE_A)
+    if (inm->outtypes[i] != 'k' && csoundGetTypeForArg(in) != &CS_VAR_TYPE_A)
       current->varType->copyValue(csound, out, in);
-    //printf("%c \n",   inm->outtypes_cpy[i]);
+    //printf("%c \n",   inm->outtypes[i]);
     current = current->next;
   }
 

diff --git a/Engine/symbtab.c b/Engine/symbtab.c
@@ -317,8 +317,6 @@ static int parse_opcode_args(CSOUND *csound, OENTRY *opc)
     }
     in_args = splitArgs(csound, intypes);
     out_args = splitArgs(csound, inm->outtypes);
-    inm->outtypes_cpy = cs_strdup(csound, inm->outtypes);
-
 
     if (UNLIKELY(in_args == NULL)) {
       synterr(csound,

diff --git a/include/csoundCore.h b/include/csoundCore.h
@@ -944,7 +944,6 @@ typedef struct NAME__ {
     CS_VAR_POOL* in_arg_pool;
     INSTRTXT *ip;
     struct opcodinfo *prv;
-    char *outtypes_cpy;
   } OPCODINFO;
 
   /**