diff options
| author | Kartik Agaram <vc@akkartik.com> | 2019-07-01 23:58:25 -0700 |
|---|---|---|
| committer | Kartik Agaram <vc@akkartik.com> | 2019-07-02 00:00:58 -0700 |
| commit | 1c576e99d756199142ce9ed98046636b58917243 (patch) | |
| tree | 7d486d6f28eb78b7bd1d906774cffe799285da1c /subx/apps | |
| parent | 13be43dff9f7aed4006cc423ca02653e9da188ea (diff) | |
| download | mu-1c576e99d756199142ce9ed98046636b58917243.tar.gz | |
error in pseudocode for compute-offsets
Diffstat (limited to 'subx/apps')
| -rw-r--r-- | subx/apps/survey.subx | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/subx/apps/survey.subx b/subx/apps/survey.subx index 8927062e..266ddec7 100644 --- a/subx/apps/survey.subx +++ b/subx/apps/survey.subx @@ -415,6 +415,9 @@ compute-offsets: # in : (address buffered-file), segments : (address stream {st # # labels occupy no space, so no need to increment offsets # continue # if slice-equal?(word-slice, "==") + # seg = get-or-insert(segments, curr-segment-name) + # seg->size = file-offset - seg->starting-offset + # trace("segment '", curr-segment-name, "' has size 0x", seg->size) # curr-segment-name = next-word(line) # if slice-empty?(curr-segment-name) # abort @@ -425,7 +428,6 @@ compute-offsets: # in : (address buffered-file), segments : (address stream {st # seg->starting-address = parse-hex-int(segment-start) # seg->starting-offset = file-offset # trace("segment '", curr-segment-name, "' is at file offset 0x", seg->starting-offset) - # trace("segment '", curr-segment-name, "' has size 0x", seg->starting-offset) # segment-offset = 0 # else # width = compute-width(word-slice) |