Big cleanup and fixes.

We have pointer arithmetic!

include/Defs.h

@@ -27,6 +27,7 @@
 
 enum TokenTypes {
     LI_EOF,
+    LI_EQUAL,       // =
 
     AR_PLUS,        // Arithmetic +
     AR_MINUS,       // Arithmetic -
@@ -40,7 +41,6 @@ enum TokenTypes {
     CMP_LTE,        // <=
     CMP_GTE,        // =>
 
-    LI_EQUAL,       // =
     LI_INT,         // Integer literal
     LI_SEMIC,       // ;
 
@@ -84,7 +84,8 @@ enum TokenTypes {
  */
 
 enum SyntaxOps {
-    OP_ADD = 1,         // Add two numbers.
+    OP_ASSIGN = 1,          // Assign an l-value
+    OP_ADD,         // Add two numbers.
     OP_SUBTRACT,        // Subtract two numbers.
     OP_MULTIPLY,        // Multiply two numbers.
     OP_DIVIDE,          // Divide two numbers.
@@ -96,7 +97,6 @@ enum SyntaxOps {
     OP_LESSE,           // Less than or Equal to?
     OP_GREATE,          // Greater than or Equal to?
 
-    OP_ASSIGN,          // Assign an l-value
 
     OP_ADDRESS,         // Fetch the address of a var
     OP_DEREF,           // Get the value of the address in a pointer
@@ -104,7 +104,6 @@ enum SyntaxOps {
     TERM_INTLITERAL,    // Integer Literal. This is a virtual operation, so it's a terminal.
 
     REF_IDENT,          // Reference (read) an identifier (variable).
-    LV_IDENT,           // Write an identifier in the form of an l-value.
 
     OP_WIDEN,           // Something contains a type that needs to be casted up
     OP_SCALE,           // We have a pointer that needs to be scaled!
@@ -125,6 +124,7 @@ enum SyntaxOps {
 struct ASTNode {
     int Operation;      // SyntaxOps Index
     int ExprType;       // Value->IntValue's DataType
+    int RVal;           // True if this node is an Rval, false if Lval
     struct ASTNode* Left;
     struct ASTNode* Middle;
     struct ASTNode* Right;
@@ -307,7 +307,9 @@ int AsDiv(int Left, int Right);
 int AsLdVar(int ID);
 int AsStrVar(int Register, int ID);
 
+
 int AsDeref(int Reg, int Type);
+int AsStrDeref(int Register1, int Register2, int Type);
 int AsAddr(int ID);
 
 void AsNewSymb(int ID);
@@ -351,3 +353,6 @@ struct ASTNode* ParseIdentifier(void);
 struct ASTNode* IfStatement();
 struct ASTNode* WhileStatement();
 struct ASTNode* ForStatement();
+
+
+void DumpTree(struct ASTNode* node, int level);

src/Assembler.c

@@ -30,10 +30,15 @@ static char* InvComparisons[6]  = { "jne", "je",     "jge",  "jle",  "jg",    "j
  * * * *   R O O T    O F    A S S E M B L E R   * * * *
  * * * * * * * * * * * * * * * * * * * * * * * * * * * */
 
+static int Started = 0;
 
 int AssembleTree(struct ASTNode* Node, int Register, int ParentOp) {
     int LeftVal, RightVal;
+    if(!Started)
+        DumpTree(Node, 0);
+    Started = 1;
 
+    printf("Current operation: %d\r\n", Node->Operation);
     switch(Node->Operation) {
         case OP_IF:
             return AsIf(Node);
@@ -102,10 +107,18 @@ int AssembleTree(struct ASTNode* Node, int Register, int ParentOp) {
             return AsDeref(LeftVal, Node->Left->ExprType);
 
         case OP_ASSIGN:
-            return RightVal;
+            printf("Calculating for assignment..\r\n");
+            if(Node->Right == NULL)
+                Die("Fault in assigning a null rvalue");
+            switch(Node->Right->Operation) {
+                case REF_IDENT: return AsStrVar(LeftVal, Node->Right->Value.ID);
+                case OP_DEREF: return AsStrDeref(LeftVal, RightVal, Node->Right->ExprType);
+                default: DieDecimal("Can't ASSIGN in AssembleTree: ", Node->Operation);
+            }
 
         case OP_WIDEN:
-            return LeftVal;
+            printf("\tWidening types..\r\n");
+            return LeftVal; //AsWiden(LeftVal, Node->Left->ExprType, Node->ExprType);
             
         case OP_RET:
             AsReturn(LeftVal, CurrentFunction);
@@ -146,14 +159,13 @@ int AssembleTree(struct ASTNode* Node, int Register, int ParentOp) {
             
 
         case REF_IDENT:
+            if(Node->RVal || ParentOp == OP_DEREF)
                 return AsLdVar(Node->Value.ID);
-
+            else 
-        case LV_IDENT:
+                return -1;
-            return AsStrVar(Register, Node->Value.ID);
 
         case TERM_INTLITERAL:
             return AsLoad(Node->Value.IntValue);
-            break;
 
         case OP_PRINT:
             AssemblerPrint(LeftVal);
@@ -210,6 +222,7 @@ int NewLabel(void) {
     return id++;
 }
  
+
 int AsIf(struct ASTNode* Node) {
     int FalseLabel, EndLabel;
 
@@ -439,11 +452,33 @@ int AsDeref(int Reg, int Type) {
         case PTR_LONG:
             fprintf(OutputFile, "\tmovq\t(%s), %s\n", Registers[Reg], Registers[Reg]);
             break;
+        default: 
+            DieDecimal("Can't generate dereference for type", Type);
     }
 
     return Reg;
 }
 
+int AsStrDeref(int Register1, int Register2, int Type) {
+    printf("\tStoring contents of %s into %s through a dereference, type %d\n", Registers[Register1], Registers[Register2], Type);
+
+    switch(Type) {
+        case PTR_CHAR:
+            fprintf(OutputFile, "\tmovb\t%s, (%s)\n", ByteRegisters[Register1], Registers[Register2]);
+            break;
+        case PTR_INT:
+            fprintf(OutputFile, "\tmovq\t%s, (%s)\n", Registers[Register1], Registers[Register2]);
+            break;
+        case PTR_LONG:
+            fprintf(OutputFile, "\tmovq\t%s, (%s)\n", Registers[Register1], Registers[Register2]);
+            break;
+        default:
+            DieDecimal("Can't generate store-into-deref of type", Type);
+    }
+
+    return Register1;
+}
+
 void AsNewSymb(int ID) {
     int TypeSize;
 

src/Dump.c

@@ -0,0 +1,95 @@
+
+/*************/
+/*GEMWIRE    */
+/*    ERYTHRO*/
+/*************/
+
+#include <Defs.h>
+#include <Data.h>
+
+static int GenerateSrg() {
+    static int srgId = 1;
+    return srgId++;
+}
+
+void DumpTree(struct ASTNode* node, int level) {
+    int Lfalse, Lstart, Lend;
+
+    // Handle weirdo loops and conditions first.
+    switch(node->Operation) {
+        case OP_IF:
+            Lfalse = GenerateSrg();
+            for(int i = 0; i < level; i++)
+                fprintf(stdout, " ");
+            fprintf(stdout, "IF");
+            if(node->Right) { 
+                Lend = GenerateSrg();
+                fprintf(stdout, ", end label %d", Lend);
+            }
+
+            fprintf(stdout, "\n");
+            DumpTree(node->Left, level + 2);
+            DumpTree(node->Middle, level + 2);
+            
+            if(node->Right) 
+                DumpTree(node->Right, level + 2);
+            
+            return;
+        case OP_LOOP:
+            Lstart = GenerateSrg();
+            for(int i = 0; i < level; i++)
+                fprintf(stdout, " ");
+            fprintf(stdout, "LOOP starts at %d\n", Lstart);
+            Lend = GenerateSrg();
+            DumpTree(node->Left, level + 2);
+            DumpTree(node->Right, level + 2);
+            return;
+    }
+
+    // If current node is a compound, we treat it as if we didn't just enter a loop.
+    if(node->Operation == OP_COMP)
+        level = -2;
+    
+    if(node->Left)
+        DumpTree(node->Left, level + 2);
+    
+    if(node->Right)
+        DumpTree(node->Right, level + 2);
+    
+    // The meat of this operation!
+    for(int i = 0; i < level; i++)
+        fprintf(stdout, " ");
+    
+    switch (node->Operation){
+        case OP_COMP: fprintf(stdout, "\n\n"); return;
+        case OP_FUNC: fprintf(stdout, "OP_FUNC %s\n", Symbols[node->Value.ID].Name); return;
+        case OP_ADD:  fprintf(stdout, "OP_ADD\n"); return;
+        case OP_SUBTRACT:  fprintf(stdout, "OP_SUBTRACT\n"); return;
+        case OP_MULTIPLY:  fprintf(stdout, "OP_MULTIPLY\n"); return;
+        case OP_DIVIDE:  fprintf(stdout, "OP_DIVIDE\n"); return;
+        case OP_EQUAL:  fprintf(stdout, "OP_EQUAL\n"); return;
+        case OP_INEQ:  fprintf(stdout, "OP_INEQ\n"); return;
+        case OP_LESS:  fprintf(stdout, "OP_LESS\n"); return;
+        case OP_GREAT:  fprintf(stdout, "OP_GREAT\n"); return;
+        case OP_LESSE:  fprintf(stdout, "OP_LESSE\n"); return;
+        case OP_GREATE:  fprintf(stdout, "OP_GREATE\n"); return;
+        case TERM_INTLITERAL:  fprintf(stdout, "TERM_INTLITERAL %d\n", node->Value.IntValue); return;
+        case REF_IDENT:  
+            if(node->Right)
+             fprintf(stdout, "REF_IDENT rval %s\n", Symbols[node->Value.ID].Name);
+            else 
+             fprintf(stdout, "REF_IDENT %s\n", Symbols[node->Value.ID].Name);
+            return;
+        case OP_ASSIGN:  fprintf(stdout, "OP_ASSIGN\n"); return;
+        case OP_WIDEN:  fprintf(stdout, "OP_WIDEN\n"); return;
+        case OP_RET:  fprintf(stdout, "OP_RET\n"); return;
+        case OP_CALL:  fprintf(stdout, "OP_CALL %s\n", Symbols[node->Value.ID].Name); return;
+        case OP_ADDRESS:  fprintf(stdout, "OP_ADDRESS %s\n", Symbols[node->Value.ID].Name); return;
+        case OP_DEREF:  fprintf(stdout, "OP_DEREF\n"); return;
+        case OP_SCALE:  fprintf(stdout, "OP_SCALE %d\n", Symbols[node->Value.Size]); return;
+    
+        default:
+            DieDecimal("Unknown Dump Operator", node->Operation);
+    }
+
+}

src/Main.c

@@ -77,6 +77,7 @@ int main(int argc, char* argv[]) {
     }
 
     AddFunctionSymbol("PrintInteger", RET_CHAR, ST_FUNC, 0);
+    //AddSymbol("forgecord", PTR_CHAR, ST_VAR);
 
     Tokenise(&CurrentToken);
 

src/Parser.c

@@ -18,12 +18,12 @@
  * 
  */
 static int Precedence[] = 
-    { 0,        // EOF
+    { 0, 10,    // EOF, ASSIGN
-    10, 10,     // + -
+    20, 20,     // + -
-    20, 20,     // * /
+    30, 30,     // * /
-    30, 30,     // =? !=
+    40, 40,     // =? !=
-    40, 40,     // < >
+    50, 50,     // < >
-    40, 40};    // <= =>
+    50, 50};    // <= =>
 
 static int OperatorPrecedence(int Token) {
     int Prec = Precedence[Token];
@@ -35,6 +35,10 @@ static int OperatorPrecedence(int Token) {
     return Prec;
 }
 
+static int IsRightExpr(int Token) {
+   return (Token == LI_EQUAL);
+}
+
 /* * * * * * * * * * * * * * * * * * * * * * * *
  * * * N O D E     C O N S T R U C T I O N * * *
  * * * * * * * * * * * * * * * * * * * * * * * */
@@ -135,7 +139,7 @@ struct ASTNode* ParsePrimary(void) {
             break;
 
         default:
-            DieDecimal("Syntax Error", CurrentToken.type);
+            DieDecimal("Unable to parse primary type", CurrentToken.type);
     }
 
     Tokenise(&CurrentToken);
@@ -147,34 +151,56 @@ struct ASTNode* ParsePrimary(void) {
 struct ASTNode* ParsePrecedenceASTNode(int PreviousTokenPrecedence) {
     struct ASTNode* LeftNode, *RightNode;
     struct ASTNode* LeftTemp, *RightTemp;
-    int LeftType, RightType;
+    // int LeftType, RightType;
     int NodeType, OpType;
 
     LeftNode = PrefixStatement();
 
     NodeType = CurrentToken.type;
-    if(NodeType == LI_SEMIC || NodeType == LI_RPARE)
+    if(NodeType == LI_SEMIC || NodeType == LI_RPARE) {
-        return LeftNode;
+        LeftNode->RVal = 1; return LeftNode;
+    }
     
-    //printf("Current token has value %d, type %d\n", CurrentToken.value, CurrentToken.type);
+    printf("Current token has value %d, type %d\n", CurrentToken.value, CurrentToken.type);
-    while(OperatorPrecedence(NodeType) > PreviousTokenPrecedence) {
+    while((OperatorPrecedence(NodeType) > PreviousTokenPrecedence) || (IsRightExpr(OpType) && OperatorPrecedence(OpType) == PreviousTokenPrecedence)) {
         //printf("inside while\n");
         Tokenise(&CurrentToken);
 
         RightNode = ParsePrecedenceASTNode(Precedence[NodeType]);
 
+        /*
         LeftType = LeftNode->ExprType;
         RightType = RightNode->ExprType;
-
+        */
         /**
          * While parsing this node, we may need to widen some types.
          * This requires a few functions and checks.
          */
 
         OpType = ParseTokenToOperation(NodeType);
-        LeftTemp = MutateType(LeftNode, RightType, OpType);
-        RightTemp = MutateType(RightNode, LeftType, OpType);
 
+        if(OpType == OP_ASSIGN) {
+            RightNode->RVal = 1;
+
+            RightNode = MutateType(RightNode, LeftNode->ExprType, 0);
+            if(LeftNode == NULL)
+                Die("Incompatible Expression encountered in assignment");
+            
+            printf("\tAssigning variable: %s\n", Symbols[FindSymbol(CurrentIdentifier)].Name);
+            printf("\tAfter parsing, the identifier name is %s, id %d in the symbol table.\n", CurrentIdentifier, FindSymbol(CurrentIdentifier));
+
+            LeftTemp = LeftNode;
+            LeftNode = RightNode;
+            RightNode = LeftTemp;
+        } else {
+            LeftNode->RVal = 1;
+            RightNode->RVal = 1;
+
+            printf("mutate left\r\n");
+            LeftTemp = MutateType(LeftNode, RightNode->ExprType, OpType);
+            printf("mutate right\r\n");
+            RightTemp = MutateType(RightNode, LeftNode->ExprType, OpType);
+            printf("mutate right over\r\n");
             /**
              * If both are null, the types are incompatible.
              */
@@ -201,23 +227,26 @@ struct ASTNode* ParsePrecedenceASTNode(int PreviousTokenPrecedence) {
 
             if(RightTemp)
                 RightNode = RightTemp;
+        }
         
         /**
          * Checks over, back to normal parsing.
          */
-        
+        /*
         if(LeftType)
             LeftNode = ConstructASTBranch(LeftType, RightNode->ExprType, LeftNode, 0);
         if(RightType)
             RightNode = ConstructASTBranch(RightType, LeftNode->ExprType, RightNode, 0);
-
+        */
         LeftNode = ConstructASTNode(ParseTokenToOperation(NodeType), LeftNode->ExprType, LeftNode, NULL, RightNode, 0);
-
         NodeType = CurrentToken.type;
-        if(NodeType == LI_SEMIC || NodeType == LI_RPARE)
+        if(NodeType == LI_SEMIC || NodeType == LI_RPARE) {
+            LeftNode->RVal = 1;
             return LeftNode;
         }
         
+    }
+    LeftNode->RVal = 1;
     return LeftNode;
 }
 
@@ -349,27 +378,23 @@ struct ASTNode* ParseStatement(void) {
     int Type;
 
     switch(CurrentToken.type) {
-
-        case KW_PRINT:
-            return PrintStatement();
-        
         case TY_CHAR:
         case TY_LONG:
         case TY_INT:
             printf("\t\tNew Variable: %s\n", CurrentIdentifier);
-            Type = ParseOptionalPointer(CurrentToken.type);
+            Type = ParseOptionalPointer();
             VerifyToken(TY_IDENTIFIER, "ident");
             BeginVariableDeclaration(Type);
             return NULL;
         
-        case TY_IDENTIFIER:
+        /*case TY_IDENTIFIER:
             if(Symbols[FindSymbol(CurrentIdentifier)].Structure == ST_FUNC)
                 printf("\t\tCalling Function: %s\n", Symbols[FindSymbol(CurrentIdentifier)].Name);
             else
                 printf("\t\tAssigning variable: %s\n", Symbols[FindSymbol(CurrentIdentifier)].Name);
         
             return ParseIdentifier();
-
+        */
         case KW_IF:
             return IfStatement();
         
@@ -383,7 +408,8 @@ struct ASTNode* ParseStatement(void) {
             return ReturnStatement();
         
         default:
-            DieDecimal("Syntax Error in single-statement parsing. Token:", CurrentToken.type);
+            ParsePrecedenceASTNode(0);
+            //DieDecimal("Syntax Error in single-statement parsing. Token:", CurrentToken.type);
     }
 }
 

src/Statements.c

@@ -101,16 +101,19 @@ struct ASTNode* ReturnStatement() {
 
     Tree = ParsePrecedenceASTNode(0);
 
+    /*
     ReturnType = Tree->ExprType;
     FunctionType = Symbols[CurrentFunction].Type;
+    */
 
-    Tree = MutateType(Tree, FunctionType, 0);
+    Tree = MutateType(Tree, Symbols[CurrentFunction].Type, 0);
-    if(!Tree)
+    if(Tree == NULL)
         Die("Returning a value of incorrect type for function");
     
-
+    /*
     if(ReturnType)
         Tree = ConstructASTBranch(ReturnType, FunctionType, Tree, 0);
+    */
 
     Tree = ConstructASTBranch(OP_RET, RET_NONE, Tree, 0);
 
@@ -136,6 +139,7 @@ struct ASTNode* ReturnStatement() {
  * 
  */
 
+/*
 struct ASTNode* ParseIdentifier() {
     struct ASTNode* Left, *Right, *Tree;
     int LeftType, RightType;
@@ -171,7 +175,7 @@ struct ASTNode* ParseIdentifier() {
     Tree = ConstructASTNode(OP_ASSIGN, RET_INT, Left, NULL, Right, 0);
 
     return Tree;
-}
+}*/
 
 struct ASTNode* IfStatement() {
     struct ASTNode* Condition, *True, *False = NULL;

tests/pointers2

@@ -0,0 +1,14 @@
+int   c;
+int   d;
+int  *e;
+int   f;
+
+int :: main() {
+  c= 12;
+  d=18;
+  PrintInteger(c);
+  e= &c + 1;
+  f= *e;
+  PrintInteger(f);
+  return(0);
+}