Commit 4640b5f5 authored by bp's avatar bp

Fixed pictured number overflow

git-svn-id: https://forth-ev.de/repos/bigforth@1900 3b8d8251-53f3-0310-8f3b-fd1cb8370982
parent a9a8a2fc
......@@ -263,8 +263,6 @@ s" bigFORTH" environment? [IF] 2drop
s" gforth" environment? [IF] 2drop
require libcc.fs
: \c, ( addr u -- ) save-c-prefix-line ;
: holds ( addr u -- )
dup negate holdptr +! holdptr @ dup holdbuf u< -17 and throw swap move ;
\ : mix2bytes_ind, ( index n k i -- index n ) >r
\ >r over r@ 64 + swap
\ %> a<% r@ 7 and 0 .r %> ^=ROL(rnds[states[<% 0 .r %> ]^(0xff&(t>><% $7 and 8 * 0 .r %> ))],<% r> 7 r@ - 0 .r %> );<% \c, ;
......@@ -284,7 +282,7 @@ s" gforth" environment? [IF] 2drop
<<#
s" )),8);" holds I permut# 8 + 64s 0 #S 2drop
s" =ROL(*((uint64_t*)(states+" holds I 0 #S
s" a" holds #> \c, #>
s" a" holds #> \c, #>>
LOOP
8 0 DO
s\" asm volatile(\"# line break\" : : \"g\" (a0), \"g\" (a1), \"g\" (a2), \"g\" (a3), \"g\" (a4), \"g\" (a5), \"g\" (a6), \"g\" (a7));" \c,
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment