diff options
Diffstat (limited to 'core.e')
| -rw-r--r-- | core.e | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/core.e b/core.e index 2aabc6f..bbe1ba8 100644 --- a/core.e +++ b/core.e @@ -1209,7 +1209,7 @@ here ! ~ (output point, source, destination, length) memcopy ; -~ (output point, alignment byte count -- output point) +~ (output point, alignment byte width -- output point) : packalign { 2dup /% drop { drop exit } unless swap 0 pack8 swap } forever ; @@ -1231,7 +1231,7 @@ here ! : unpack16 dup 16@ swap 2 + swap ; : unpack8 dup 8@ swap 1 + swap ; -~ (proposed size, alignment byte count -- adjusted size) +~ (proposed size, alignment byte width -- adjusted size) : align-size dup 3unroll dup 3unroll ~ (alignment, alignment, proposed size, alignment) @@ -1240,7 +1240,7 @@ here ! ~ You might think this would be identical to packalign, but packalign has ~ side effects. ~ -~ (input point, alignment byte count -- input point) +~ (input point, alignment byte width -- input point) : unpackalign align-size ; |