new message control 1024 for deprecation

Author: jpffitch

Engine/cs_par_orc_semantic_analysis.c

@@ -256,7 +256,9 @@ static void csp_orc_sa_interlocksf(CSOUND *csound, int code, char *name)
       if (code&IR) csp_set_add(csound, rr, "##int");
       if (code&IW) csp_set_add(csound, ww, "##int");
       csp_orc_sa_global_read_write_add_list(csound, ww, rr);
-      if (UNLIKELY(code&_QQ)) {
+      /* printf("code&qq=%4x msglevel = %4x bit=%4x\n", */
+      /*        code&_QQ, csound->oparms_.msglevel, csound->oparms_.msglevel&NOQQ ); */
+      if (UNLIKELY((code&_QQ) && (csound->oparms_.msglevel&NOQQ))) {
         csound->Message(csound, Str("opcode %s deprecated\n"), name);
       }
     }

Engine/csound_orc_compile.c

@@ -2324,7 +2324,7 @@ void debugPrintCsound(CSOUND *csound) {
 void query_deprecated_opcode(CSOUND *csound, ORCTOKEN *o) {
   char *name = o->lexeme;
   OENTRY *ep = find_opcode(csound, name);
-  if (UNLIKELY(ep->flags & _QQ))
+  if (UNLIKELY((code&_QQ) && (csound->oparms_.msglevel&NOQQ)))
     csound->Warning(csound, Str("Opcode \"%s\" is deprecated\n"), name);
 }
 

include/csoundCore.h

@@ -201,6 +201,7 @@ extern int ISSTRCOD(MYFLT);
 #define WARNMSG 04
 #define RAWMSG  0x40
 #define TIMEMSG 0x80
+#define NOQQ    0x40
 #define IGN(X)  (void) X
 
 #define ARG_CONSTANT 0