fixed assignment to members of structure return values

Author: totalspectrum

Changelog.txt

@@ -1,3 +1,6 @@
+Version 7.6.5
+- Fixed assignment to members of a structure return value
+
 Version 7.6.4
 - Added QEXP and QLOG implementations for P1
 - Allow upper case #pragma names

backends/asm/outasm.c

@@ -1,7 +1,7 @@
 //
 // Pasm data output for spin2cpp
 //
-// Copyright 2016-2025 Total Spectrum Software Inc.
+// Copyright 2016-2026 Total Spectrum Software Inc. and contributors
 // see the file COPYING for conditions of redistribution
 //
 #include <stdio.h>
@@ -286,7 +286,7 @@ PutVarOnStack(Function *func, Symbol *sym, int size)
     if (!ANY_VARS_ON_STACK(func)) {
         return false;
     }
-    if (sym->kind == SYM_LOCALVAR && TypeGoesOnStack((AST *)sym->v.ptr)) {
+    if ( (sym->kind == SYM_LOCALVAR || sym->kind == SYM_RESULT) && TypeGoesOnStack((AST *)sym->v.ptr)) {
         return true;
     }
     if (sym->flags & SYMF_ADDRESSABLE) {
@@ -4643,7 +4643,7 @@ CompileExpression(IRList *irl, AST *expr, Operand *dest)
             }
         }
         finaltype = ExprType(expr);
-        if (off == 0 && IsCogMem(base)) {
+        if (off == 0 && IsCogMem(base) && TypeSize(finaltype) >= LONG_SIZE) {
             r = base;
         } else {
             r = OffsetMemory(irl, base, NewImmediate(off), finaltype, expr);

frontends/spin/spinlang.c

@@ -928,7 +928,8 @@ doSpinTransform(AST **astptr, int level, AST *parent)
                     AstReportDone(&saveinfo);
                     *ast = *deref;
                     break;
-                }                
+                }
+                case SYM_RESULT:
                 case SYM_LOCALVAR:
                 case SYM_PARAMETER:
                     isLocal = 1;

version.h

@@ -6,8 +6,8 @@
 
 #define VERSION_MAJOR 7
 #define VERSION_MINOR 6
-#define VERSION_REV   4
-//#define BETA "-beta"
+#define VERSION_REV   5
+#define BETA "-beta"
 
 #define VERSIONSTR version_string