diff options
Diffstat (limited to 'log-load.e')
| -rw-r--r-- | log-load.e | 32 |
1 files changed, 13 insertions, 19 deletions
diff --git a/log-load.e b/log-load.e index 55fa25d..a462c2e 100644 --- a/log-load.e +++ b/log-load.e @@ -178,7 +178,7 @@ dup stringlen 1 + dup 3unroll ~ (log address, name field length, string pointer, name field length) - 3 pick log-load-here swap drop @ 10 + 3unroll memmove + 3 pick log-load-here swap drop @ 10 + swap memmove ~ (log address, name field length) over log-load-here swap drop @ @@ -372,8 +372,8 @@ ~ (log address, start, length, length, start, start) 5 8 * + ~ (log address, start, length, length, start, adjusted start) - 3unroll swap - ~ (log address, start, length, adjusted start, start, length) + 3roll + ~ (log address, start, length, start, adjusted start, length) memmove ~ (log address, start, length) swap 3roll log-load-here dup @ @@ -410,8 +410,8 @@ ~ (log address, start, length, length, start, start) 5 8 * + ~ (log address, start, length, length, start, adjusted start) - 3unroll swap - ~ (log address, start, length, adjusted start, start, length) + 3roll + ~ (log address, start, length, start, adjusted start, length) memmove ~ (log address, start, length) swap 3roll log-load-here dup @ @@ -446,23 +446,17 @@ 5 unroll 2dup ~ (log address, true start, true length, false start, false length, ~ false start, false length) - swap dup 7 8 * + swap 3roll + swap dup 7 8 * + 3roll ~ (log address, true start, true length, false start, false length, - ~ adjusted false start, false start, false length) + ~ false start, adjusted false start, false length) memmove ~ (log address, true start, true length, false start, false length) - 4 roll dup 5 unroll - ~ (log address, true start, true length, false start, false length, - ~ true start) - 4 roll dup 5 unroll - ~ (log address, true start, true length, false start, false length, - ~ true start, true length) - swap dup 5 8 * + + 3 pick dup 5 8 * + ~ (log address, true start, true length, false start, false length, - ~ true length, true start, adjusted true start) - swap 3roll + ~ true start, adjusted true start) + 4 pick ~ (log address, true start, true length, false start, false length, - ~ adjusted true start, true start, true length) + ~ true start, adjusted true start, true length) memmove ~ (log address, true start, true length, false start, false length) @@ -523,9 +517,9 @@ 5 unroll 2dup ~ (log address, test start, test length, body start, body length, ~ body start, body length) - swap dup 5 8 * + swap 3roll + swap dup 5 8 * + 3roll ~ (log address, test start, test length, body start, body length, - ~ adjusted body start, body start, body length) + ~ body start, adjusted body start, body length) memmove ~ (log address, test start, test length, body start, body length) |