3 files changed, 3 insertions(+), 3 deletions(-)

M fs/comp/c/egen.fs
M fs/tests/comp/c/cc.fs
M fs/tests/comp/c/test.c

@@ 135,7 135,7 @@ code _callA branchA,
 
 : _incdec, ( res incsz -- res )
   Result :?freeCurrentW over Result :*arisz *
-  swap Result :hal$ A>) lea, A) @, A) [+n], Result :W ;
+  swap Result :hal$ dup @, [+n], Result :W ;
 
 : _arrow ( res -- res )
   dup Result cdecl nextt ( res cdecl name )

@@ 92,6 92,7 @@ $72 2 binop11 $1c #eq
 1 42 binop13 1 #eq
 -1 42 binop13 0 #eq
 structop1 44 #eq
+structop2 44 #eq
 structop2 45 #eq
 structop3 42 #eq
 structop4 globdata 12 + #eq

@@ 372,8 372,7 @@ short structop1() {
 }
 // postop on a struct field failed under the Forth VM
 int structop2() {
-    globdata.bar++;
-    return globdata.bar;
+    return globdata.bar++;
 }
 // In the Forth VM, indexing a struct array with a struct field resulted in TOS
 // mixup.