duskos

commit c8b904e916ec5be21c957ba22bd7851f289a9c90
parent 12d9bccca9a90465942712fb1c69e8902b8606e5
Author: Virgil Dupras <hsoft@hardcoded.net>
Date:   Thu,  9 Mar 2023 21:58:02 -0500

hal: what was I thinking

That HAL form is much tighter. field offset encoded directly as displacement in
the native op, now *that* is efficient. I can't wait to see that in i386...

Diffstat:
M
fs/xcomp/bootlo.fs
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/fs/xcomp/bootlo.fs b/fs/xcomp/bootlo.fs
@@ -341,7 +341,7 @@ create _ 0 , EMETA_8B , EMETA_16B ,
 : _svalue ( sz -- ) doer immediate STRUCTFIELD_REGULAR _sfield
   does> CELLSZ + @+ dip @ | ( a? sz off )
     compiling if ( sz off )
-      i) +, W>A, drop, A) swap
+      W>A, drop, A) swap +) swap
       else ( a sz off ) rot + swap then ( a-or-operand sz )
     _szmeta MOD ! toptr@ execute ;
 : sfield CELLSZ _svalue ;