diff options
| author | Chouser <chouser@n01se.net> | 2015-02-16 02:01:56 -0500 |
|---|---|---|
| committer | Chouser <chouser@n01se.net> | 2015-02-21 13:22:44 -0500 |
| commit | cd21ff0d3ccfbec62fe6af95e6656fe9c38f8254 (patch) | |
| tree | 7e91f8ed78dd99b829d940b43626983be04bc284 /forth/printer.fs | |
| parent | d44f31c2218a923d2a5b766ae3d6577aba294d42 (diff) | |
| download | mal-cd21ff0d3ccfbec62fe6af95e6656fe9c38f8254.tar.gz mal-cd21ff0d3ccfbec62fe6af95e6656fe9c38f8254.zip | |
forth: Fix critical string-resizing bug
Diffstat (limited to 'forth/printer.fs')
| -rw-r--r-- | forth/printer.fs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/forth/printer.fs b/forth/printer.fs index 6152993..d035e94 100644 --- a/forth/printer.fs +++ b/forth/printer.fs @@ -28,7 +28,7 @@ require types.fs : str-append { buf-addr buf-str-len str-addr str-len } buf-str-len str-len + { new-len } - new-len str-base-size > if + new-len str-base-size >= if buf-str-len new-len xor buf-str-len > if buf-addr new-len round-up resize throw to buf-addr |