rpi: add missing -W, This fixes broken - which fixes broken immediate which fixes broken c,
1 files changed, 4 insertions(+), 0 deletions(-) M fs/xcomp/arm/rpi/kernel.fs
M fs/xcomp/arm/rpi/kernel.fs => fs/xcomp/arm/rpi/kernel.fs +4 -0
@@ 503,6 503,10 @@ pc mov) rA rd) rTOP rm) ,) xcode W>A, ( -- ) ( pc ) r0 pc@>reg, lbldwrite abs>rel b) ,) +pc rsb) rTOP rdn) 0 i) ,) +xcode -W, ( -- ) + ( pc ) r0 pc@>reg, lbldwrite abs>rel b) ,) + pc eor) rTOP rdn) rA rm) ,) eor) rA rdn) rTOP rm) ,) eor) rTOP rdn) rA rm) ,)