diff options
Diffstat (limited to 'compilation/execution.e')
| -rw-r--r-- | compilation/execution.e | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/compilation/execution.e b/compilation/execution.e index 01f3b68..b12cfc6 100644 --- a/compilation/execution.e +++ b/compilation/execution.e @@ -706,10 +706,11 @@ ~ : valiantly attempted. ~ : blank-line ~ : indent - 3unroll pack64 ~ : 8 #-- (previous entry pointer) + 3unroll pack64 ~ : -8 #-- (previous entry pointer) ~ : 1 #-- (entry flags) 0x80 pack8 - ~ : 2 bidirectional-null-terminated entry name + ~ : bidirectional-null-terminated entry name + ~ : 2 adjust-length 0 pack8 ~ (output buffer start, input string pointer, output point) @@ -718,7 +719,7 @@ ~ string's length and use it for an appropriate adjustment. dup stringlen ~ : provide-data - ~ : data-adjust-length + ~ : 1 data-adjust-length drop ~ : 2 suppress packstring |