Hallo Bernd, on 64-bit gforth_0.7.9_20200305 I enter:
1 &64 lshift <cr> 1 ok hm???? I would expect 0 as you get with : lshift' ( u1 u2 -- u3 ) 0 ?DO 2* LOOP ; -- Klaus Schleisiek Am Elbufer 8 29478 Höhbeck-Vietze 05846 9804008
Hallo Bernd, on 64-bit gforth_0.7.9_20200305 I enter:
1 &64 lshift <cr> 1 ok hm???? I would expect 0 as you get with : lshift' ( u1 u2 -- u3 ) 0 ?DO 2* LOOP ; -- Klaus Schleisiek Am Elbufer 8 29478 Höhbeck-Vietze 05846 9804008