shithub: scc

Info  •  Files  •  Log  •  Branches

Add content and address operators

--- a/cc2/cc2.h

+++ b/cc2/cc2.h

@@ -76,6 +76,8 @@

 #define OBAND     '&'

 #define OBOR      '|'

 #define OBXOR     '^'

+#define OPTR      '@'

+#define OADDR     'a'

 extern void error(unsigned nerror, ...);

 extern void genaddable(Node *list[]);

--- a/cc2/cgen.c

+++ b/cc2/cgen.c

@@ -124,6 +124,7 @@

 	}

 	switch (np->op) {

+	case OPTR:   case OADDR:

 	case OINC:

 	case OADD: case OSUB:  case OASSIG: case OMOD: case ODIV:

 	case OSHL: case OSHR:

@@ -191,6 +192,9 @@

 		break;

 	case CONST:

 		np->addable = 20;

+		break;

+	case OPTR:   case OADDR:

+		xaddable(lp);

 		break;

 	case OINC:

 	case OASSIG: case OADD: case OSUB: case OMOD: case ODIV:

--- a/cc2/parser.c

+++ b/cc2/parser.c

@@ -203,6 +203,18 @@

 }

 static void

+unary(char *token)

+{

+	Node *np = newnode();

+

+	np->right = NULL;

+	np->left = pop();

+	np->type = gettype(token+1);

+	np->op = token[0];

+	push(np);

+}

+

+static void

 operator(char *token)

 {

 	Node *np = newnode();

@@ -280,6 +292,8 @@

 	['G'] = variable,

 	['L'] = label,

 	['#'] = immediate,

+	['@'] = unary,

+	['a'] = unary,

 	['\177'] = NULL

 };