Merge remote-tracking branch 'remotes/Daniel-Cortez/__pragma'

# Conflicts:
#	source/compiler/sc.h
#	source/compiler/sc1.c
#	source/compiler/scvars.c

Author: Y-Less

source/compiler/sc.h

@@ -414,6 +414,7 @@ enum {
   tNATIVE,
   tNEW,
   tOPERATOR,
+  t__PRAGMA,
   tPUBLIC,
   tRETURN,
   tSIZEOF,
@@ -585,6 +586,16 @@ enum {  /* search types for error_suggest() when the identifier type is "estSYMB
   esfVARCONST   = esfCONST | esfVARIABLE | esfARRAY
 };
 
+enum { /* attribute flags for "__pragma" */
+  attrDEPRECATED,
+  attrUNUSED,
+  attrUNREAD,
+  attrUNWRITTEN,
+  attrNODESTRUCT,
+  attrNAKED,
+  NUM_ATTRS
+};
+
 /* interface functions */
 #if defined __cplusplus
   extern "C" {
@@ -673,6 +684,9 @@ SC_FUNC symbol *add_builtin_string_constant(char *name,const char *val,int vclas
 SC_FUNC void exporttag(int tag);
 SC_FUNC void sc_attachdocumentation(symbol *sym);
 SC_FUNC void emit_parse_line(void);
+SC_FUNC void pragma_deprecated(symbol *sym);
+SC_FUNC void pragma_unused(symbol *sym,int unread,int unwritten);
+SC_FUNC void pragma_nodestruct(symbol *sym);
 
 /* function prototypes in SC2.C */
 #define PUSHSTK_P(v)  { stkitem s_; s_.pv=(v); pushstk(s_); }
@@ -974,6 +988,7 @@ SC_VDECL int pc_recursion;    /* enable detailed recursion report? */
 SC_VDECL int pc_retexpr;      /* true if the current expression is a part of a "return" statement */
 SC_VDECL int pc_retheap;      /* heap space (in bytes) to be manually freed when returning an array returned by another function */
 SC_VDECL int pc_nestlevel;    /* number of active (open) compound statements */
+SC_VDECL unsigned int pc_attributes;/* currently set attribute flags (for the "__pragma" operator) */
 
 SC_VDECL constvalue_root sc_automaton_tab; /* automaton table */
 SC_VDECL constvalue_root sc_state_tab;     /* state table */