fix assigning to dereference access in a chain

4 files changed, 23 insertions, 14 deletions

diff --git a/src/compiler/lexer.c b/src/compiler/lexer.c
index 43a0850..869f62f 100644
--- a/src/compiler/lexer.c
+++ b/src/compiler/lexer.c
@@ -9,7 +9,6 @@ const char *LEXER_TOKEN_STRINGS[] = {
     "LEXER_TOKEN_SYMBOL_CLOSE_CURLY_BRACKET",
 
     "LEXER_TOKEN_SYMBOL_CLOSE_PARENTHESIS",
-    "LEXER_TOKEN_SYMBOL_CLOSE_BRACKET",
     "LEXER_TOKEN_IDENTIFIER",
     "LEXER_TOKEN_BUILTIN",
     "LEXER_TOKEN_BUILTIN_CAST",
@@ -73,15 +72,16 @@ const char *LEXER_TOKEN_STRINGS[] = {
     "LEXER_TOKEN_KEYWORD_UNDEFINED",
 
     "LEXER_TOKEN_SYMBOL_FUNCTION_ARROW",
-    "LEXER_TOKEN_SYMBOL_POINTER",
     "LEXER_TOKEN_KEYWORD_STRUCT",
-    "LEXER_TOKEN_SYMBOL_CLOSE_BRACKET_LEFT",
 
     "LEXER_TOKEN_SYMBOL_DEREFERENCE",
+    "LEXER_TOKEN_SYMBOL_CLOSE_BRACKET",
     "LEXER_TOKEN_SYMBOL_ACCESS",
     "LEXER_TOKEN_SYMBOL_FUNCTION_CALL",
 
     "LEXER_TOKEN_SYMBOL_PLUS",
+    "LEXER_TOKEN_SYMBOL_CLOSE_BRACKET_LEFT",
+    "LEXER_TOKEN_SYMBOL_POINTER",
     "LEXER_TOKEN_SYMBOL_MINUS",
     "LEXER_TOKEN_SYMBOL_ADDRESS",
     "LEXER_TOKEN_SYMBOL_LOGICAL_NOT",
diff --git a/src/compiler/lexer.h b/src/compiler/lexer.h
index e868900..1802e41 100644
--- a/src/compiler/lexer.h
+++ b/src/compiler/lexer.h
@@ -9,7 +9,6 @@ typedef enum LexerToken {
 
   LEXER_TOKEN_SYMBOL_CLOSE_PARENTHESIS,
   LEXER_TOKEN_ORDER1 = LEXER_TOKEN_SYMBOL_CLOSE_PARENTHESIS,
-  LEXER_TOKEN_SYMBOL_CLOSE_BRACKET,
   LEXER_TOKEN_IDENTIFIER,
   LEXER_TOKEN_BUILTIN,
   LEXER_TOKEN_BUILTIN_CAST,
@@ -75,15 +74,16 @@ typedef enum LexerToken {
   LEXER_TOKEN_SYMBOL_FUNCTION_ARROW,
   LEXER_TOKEN_ORDER2 = LEXER_TOKEN_SYMBOL_FUNCTION_ARROW,
   LEXER_TOKEN_KEYWORD_STRUCT,
-  LEXER_TOKEN_SYMBOL_CLOSE_BRACKET_LEFT,
 
   LEXER_TOKEN_SYMBOL_DEREFERENCE,
   LEXER_TOKEN_ORDER3 = LEXER_TOKEN_SYMBOL_DEREFERENCE,
+  LEXER_TOKEN_SYMBOL_CLOSE_BRACKET,
   LEXER_TOKEN_SYMBOL_ACCESS,
   LEXER_TOKEN_SYMBOL_FUNCTION_CALL,
 
   LEXER_TOKEN_SYMBOL_PLUS,
   LEXER_TOKEN_ORDER4 = LEXER_TOKEN_SYMBOL_PLUS,
+  LEXER_TOKEN_SYMBOL_CLOSE_BRACKET_LEFT,
   LEXER_TOKEN_SYMBOL_POINTER,
   LEXER_TOKEN_SYMBOL_MINUS,
   LEXER_TOKEN_SYMBOL_ADDRESS,
diff --git a/src/compiler/parser.c b/src/compiler/parser.c
index a35800c..1becd88 100644
--- a/src/compiler/parser.c
+++ b/src/compiler/parser.c
@@ -1522,7 +1522,7 @@ ParserNode *parserParenthesis(LexerNode *closing, LexerNode *begin,
       ParserNode *pNode =
           getUntilCommonParents(iter->parserNode, parent, parserNode);
       if (pNode == NULL) {
-        printLog(pNode->str_begin, pNode->str_end, "Bad node");
+        printError(pNode->str_begin, pNode->str_end, "Bad node");
         return NULL;
       } else {
         pNode->parent = parserNode;
@@ -1557,7 +1557,7 @@ ParserNode *parserFunctionCall(LexerNode *closing, LexerNode *begin,
       ParserNode *pNode =
           getUntilCommonParents(iter->parserNode, parent, parserNode);
       if (pNode == NULL) {
-        printLog(pNode->str_begin, pNode->str_end, "Bad node");
+        printError(pNode->str_begin, pNode->str_end, "Bad node");
         return NULL;
       } else {
         pNode->parent = parserNode;
@@ -1640,7 +1640,7 @@ ParserNode *parserBracketsRight(LexerNode *closing, LexerNode *begin,
       ParserNode *pNode =
           getUntilCommonParents(iter->parserNode, parent, parserNode);
       if (pNode == NULL) {
-        printLog(pNode->str_begin, pNode->str_end, "Bad node");
+        printError(pNode->str_begin, pNode->str_end, "Bad node");
         return NULL;
       } else {
         pNode->parent = parserNode;
@@ -1676,8 +1676,8 @@ ParserNode *parserBracketsLeft(LexerNode *closing, LexerNode *begin,
   if (afterNode >= end || afterNode->parserNode == NULL ||
       (after = getUntilCommonParent(afterNode->parserNode, parent)) == NULL ||
       !isExpression(after)) {
-    printLog(closing->str_begin, closing->str_end,
-             "Bad bracket can't be parsed");
+    printError(closing->str_begin, closing->str_end,
+               "Bad bracket can't be parsed");
     return NULL;
   }
 
@@ -1694,7 +1694,7 @@ ParserNode *parserBracketsLeft(LexerNode *closing, LexerNode *begin,
       ParserNode *pNode =
           getUntilCommonParents(iter->parserNode, parent, parserNode);
       if (pNode == NULL) {
-        printLog(pNode->str_begin, pNode->str_end, "Bad node");
+        printError(pNode->str_begin, pNode->str_end, "Bad node");
         return NULL;
       } else {
         pNode->parent = parserNode;
diff --git a/src/runner/runner.c b/src/runner/runner.c
index ef363fe..ab4e9b5 100644
--- a/src/runner/runner.c
+++ b/src/runner/runner.c
@@ -1676,13 +1676,12 @@ AstTree *runExpression(AstTree *expr, AstTreeScope *scope, bool *shouldRet,
   }
   case AST_TREE_TOKEN_OPERATOR_DEREFERENCE: {
     AstTreeSingleChild *metadata = expr->metadata;
-    AstTree *operand = runExpression(metadata, scope, shouldRet, false,
+    AstTree *operand = runExpression(metadata, scope, shouldRet, true,
                                      isComptime, breakCount, shouldContinue);
     if (discontinue(*shouldRet, *breakCount)) {
       return operand;
     }
-    if (operand->token == AST_TREE_TOKEN_RAW_VALUE ||
-        operand->token == AST_TREE_TOKEN_RAW_VALUE_NOT_OWNED) {
+    if (operand->token == AST_TREE_TOKEN_RAW_VALUE) {
       if (operand->type->token != AST_TREE_TOKEN_OPERATOR_POINTER) {
         printLog("%s", AST_TREE_TOKEN_STRINGS[operand->type->token]);
         UNREACHABLE;
@@ -1694,6 +1693,16 @@ AstTree *runExpression(AstTree *expr, AstTreeScope *scope, bool *shouldRet,
       memcpy(value, *(void **)operand->metadata, size);
       astTreeDelete(operand);
       return newAstTree(AST_TREE_TOKEN_RAW_VALUE, value, type, NULL, NULL);
+    } else if (operand->token == AST_TREE_TOKEN_RAW_VALUE_NOT_OWNED) {
+      if (operand->type->token != AST_TREE_TOKEN_OPERATOR_POINTER) {
+        printLog("%s", AST_TREE_TOKEN_STRINGS[operand->type->token]);
+        UNREACHABLE;
+      }
+      AstTree *type =
+          copyAstTree((AstTreeSingleChild *)operand->type->metadata);
+      AstTreeRawValue *value = *(void **)operand->metadata;
+      astTreeDelete(operand);
+      return newAstTree(AST_TREE_TOKEN_RAW_VALUE_NOT_OWNED, value, type, NULL, NULL);
     } else if (operand->token == AST_TREE_TOKEN_VARIABLE) {
       AstTree *ret;
       if (isLeft) {