diff options
| author | Kartik Agaram <vc@akkartik.com> | 2019-07-23 23:51:06 -0700 |
|---|---|---|
| committer | Kartik Agaram <vc@akkartik.com> | 2019-07-24 00:18:21 -0700 |
| commit | f04fdc8e57e805466d4260b4dfdc1e0b185cf422 (patch) | |
| tree | 46a7e8f726af5653ef745dbf1da1b3f4c2944fb8 /subx/apps/survey.subx | |
| parent | 43e6c3787d79bb965b98641a4e44be771dee4cc2 (diff) | |
| download | mu-f04fdc8e57e805466d4260b4dfdc1e0b185cf422.tar.gz | |
5460
A little more resizing of buffers. apps/hex.subx is now building an identical binary. I'm now aborting on allocation failures. That requires disabling a couple of tests. (I'm not quite confident enough of this decision to delete them outright.) I want to treat all segfaults as bugs, and machine code is no place to add boilerplate checks for return values of standard library functions.
Diffstat (limited to 'subx/apps/survey.subx')
| -rw-r--r-- | subx/apps/survey.subx | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/subx/apps/survey.subx b/subx/apps/survey.subx index bd7596da..15957fa2 100644 --- a/subx/apps/survey.subx +++ b/subx/apps/survey.subx @@ -117,7 +117,7 @@ convert: # infile : (address buffered-file), out : (address buffered-file) -> < # var in : (address stream byte) = stream(4096) # slurp(infile, in) # var segments = new-stream(10 rows, 16 bytes each) - # var labels = new-stream(512 rows, 16 bytes each) + # var labels = new-stream(Max-labels rows, 16 bytes each) # compute-offsets(in, segments, labels) # compute-addresses(segments, labels) # rewind-stream(in) @@ -136,7 +136,7 @@ convert: # infile : (address buffered-file), out : (address buffered-file) -> < 68/push 0/imm32/read 68/push 0/imm32/write 89/copy 3/mod/direct 1/rm32/ECX . . . 4/r32/ESP . . # copy ESP to ECX - # var labels/EDX = stream(1024 * 16) + # var labels/EDX = stream(Max-labels * 16) # . data 2b/subtract 0/mod/indirect 5/rm32/.disp32 . . 4/r32/ESP Max-labels/disp32 # subtract *Max-labels from ESP # . length |