fixed up some warnings about structures

Author: totalspectrum

backends/asm/outasm.c

@@ -4572,6 +4572,9 @@ CompileExpression(IRList *irl, AST *expr, Operand *dest)
         Module *P;
         const char *name;
         objtype = ExprType(expr->left);
+        if (curfunc && IsSpinLang(curfunc->language) && IsRefType(objtype)) {
+            objtype = objtype->left;
+        }
         name = GetUserIdentifierName(expr->right);
         if (!objtype) {
             ERROR(expr, "%s is not accessible in this context", GetIdentifierName(expr->left));

frontends/lexer.c

@@ -23,7 +23,7 @@
 
 #define VT '\013'
 
-#define MAX_PNUT_VERSION 43 /* maximum PNut version we understand */
+#define MAX_PNUT_VERSION 44 /* maximum PNut version we understand */
 
 int allow_type_names = 1;
 

frontends/types.c

@@ -1455,6 +1455,12 @@ AST *CoerceAssignTypes(AST *line, int kind, AST **astptr, AST *desttype, AST *sr
         if (IsPointerType(desttype) && IsPointerType(srctype)) {
             if (curfunc && IsBasicLang(curfunc->language) && IsRefType(desttype) && IsArrayType(desttype->left) && TypeSize(desttype->left) == 0) {
                 /* OK, parameter declared as foo() so can accept any array */
+            } else if (curfunc && IsSpinLang(curfunc->language) && IsRefType(desttype) && IsRefType(srctype)
+                       && IsArrayType(srctype->left)
+                       && CompatibleTypes(BaseType(srctype->left), BaseType(desttype))
+                )
+            {
+                /* no warning for passing arrays to Spin pointers */
             } else {
                 WARNING(line, "incompatible pointer types in %s: expected %s but got %s", msg, desttype_name, srctype_name);
             }