1 # Function calls in a single line.
   2 #
   3 # To run (on Linux):
   4 #   $ ./translate_subx init.linux [012]*.subx subx-params.subx calls.subx
   5 #   $ mv a.elf calls
   6 #
   7 # Example 1:
   8 #   $ echo '(foo %eax)'                         |  calls
   9 #   # . (foo %eax)                                      # output has comments
  10 #   ff 6/subop/push %eax                                # push
  11 #   e8/call foo/disp32                                  # call
  12 #   81 0/subop/add %esp 4/imm32                         # undo push
  13 #
  14 # Example 2:
  15 #   $ echo '(foo Var1 *(eax + 4) "blah")'       |  calls
  16 #   # . (foo Var1 *(eax + 4) "blah")
  17 #   68/push "blah"/imm32
  18 #   ff 6/subop/push *(eax + 4)                          # push args in..
  19 #   68/push Var1/imm32                                  # ..reverse order
  20 #   e8/call foo/disp32
  21 #   81 0/subop/add %esp 0xc/imm32                       # undo pushes
  22 #
  23 # Calls always begin with '(' as the first non-whitespace on a line.
  24 
  25 == code
  26 
  27 Entry:  # run tests if necessary, convert stdin if not
  28     # . prologue
  29     89/<- %ebp 4/r32/esp
  30 
  31     # initialize heap
  32     # . Heap = new-segment(Heap-size)
  33     # . . push args
  34     68/push Heap/imm32
  35     ff 6/subop/push *Heap-size
  36     # . . call
  37     e8/call new-segment/disp32
  38     # . . discard args
  39     81 0/subop/add %esp 8/imm32
  40 
  41     # - if argc > 1 and argv[1] == "test", then return run_tests()
  42     # if (argc <= 1) goto run-main
  43     81 7/subop/compare *ebp 1/imm32
  44     7e/jump-if-<= $subx-calls-main:interactive/disp8
  45     # if (!kernel-string-equal?(argv[1], "test")) goto run-main
  46     # . eax = kernel-string-equal?(argv[1], "test")
  47     # . . push args
  48     68/push "test"/imm32
  49     ff 6/subop/push *(ebp+8)
  50     # . . call
  51     e8/call kernel-string-equal?/disp32
  52     # . . discard args
  53     81 0/subop/add %esp 8/imm32
  54     # . if (eax == false) goto run-main
  55     3d/compare-eax-and 0/imm32/false
  56     74/jump-if-= $subx-calls-main:interactive/disp8
  57     # run-tests()
  58     e8/call run-tests/disp32
  59     # syscall(exit, *Num-test-failures)
  60     8b/-> *Num-test-failures 3/r32/ebx
  61     eb/jump $subx-calls-main:end/disp8
  62 $subx-calls-main:interactive:
  63     # - otherwise convert stdin
  64     # subx-calls(Stdin, Stdout)
  65     # . . push args
  66     68/push Stdout/imm32
  67     68/push Stdin/imm32
  68     # . . call
  69     e8/call subx-calls/disp32
  70     # . . discard args
  71     81 0/subop/add %esp 8/imm32
  72     # syscall(exit, 0)
  73     bb/copy-to-ebx 0/imm32
  74 $subx-calls-main:end:
  75     e8/call syscall_exit/disp32
  76 
  77 subx-calls:  # in: (addr buffered-file), out: (addr buffered-file)
  78     # pseudocode:
  79     #   var line: (stream byte 512)
  80     #   var words: (stream slice 16)  # at most function name and 15 args
  81     #   while true
  82     #     clear-stream(line)
  83     #     read-line-buffered(in, line)
  84     #     if (line->write == 0) break                           # end of file
  85     #     skip-chars-matching(line, ' ')
  86     #     if line->data[line->read] != '('
  87     #       write-stream-data(out, line)
  88     #       continue
  89     #     # emit comment
  90     #     write-buffered(out, "# . ")
  91     #     write-stream-data(out, line)
  92     #     # emit code
  93     #     ++line->read to skip '('
  94     #     clear-stream(words)
  95     #     words = parse-line(line)
  96     #     emit-call(out, words)
  97     #   flush(out)
  98     #
  99     # . prologue
 100     55/push-ebp
 101     89/<- %ebp 4/r32/esp
 102     # . save registers
 103     50/push-eax
 104     51/push-ecx
 105     52/push-edx
 106     56/push-esi
 107     # var line/esi: (stream byte 512)
 108     81 5/subop/subtract %esp 0x200/imm32
 109     68/push 0x200/imm32/length
 110     68/push 0/imm32/read
 111     68/push 0/imm32/write
 112     89/<- %esi 4/r32/esp
 113     # var words/edx: (stream slice 128)  # 16 rows * 8 bytes/row
 114     81 5/subop/subtract %esp 0x80/imm32
 115     68/push 0x80/imm32/length
 116     68/push 0/imm32/read
 117     68/push 0/imm32/write
 118     89/<- %edx 4/r32/esp
 119 $subx-calls:loop:
 120     # clear-stream(line)
 121     # . . push args
 122     56/push-esi
 123     # . . call
 124     e8/call clear-stream/disp32
 125     # . . discard args
 126     81 0/subop/add %esp 4/imm32
 127     # read-line-buffered(in, line)
 128     # . . push args
 129     56/push-esi
 130     ff 6/subop/push *(ebp+8)
 131     # . . call
 132     e8/call read-line-buffered/disp32
 133     # . . discard args
 134     81 0/subop/add %esp 8/imm32
 135 $subx-calls:check0:
 136     # if (line->write == 0) break
 137     81 7/subop/compare *esi 0/imm32
 138     0f 84/jump-if-= $subx-calls:break/disp32
 139     # skip-chars-matching(line, ' ')
 140     # . . push args
 141     68/push 0x20/imm32/space
 142     56/push-esi
 143     # . . call
 144     e8/call skip-chars-matching/disp32
 145     # . . discard args
 146     81 0/subop/add %esp 8/imm32
 147     # if (line->data[line->read] == '(') goto convert-call
 148     # . ecx = line->read
 149     8b/-> *(esi+4) 1/r32/ecx
 150     # . eax = line->data[line->read]
 151     31/xor-with %eax 0/r32/eax
 152     8a/copy-byte *(esi+ecx+0xc) 0/r32/AL
 153     # . if (eax == '(') goto convert-call
 154     3d/compare-eax-and 0x28/imm32/open-paren
 155     74/jump-if-= $subx-calls:convert-call/disp8
 156 $subx-calls:pass-through:
 157     # write-stream-data(out, line)
 158     # . . push args
 159     56/push-esi
 160     ff 6/subop/push *(ebp+0xc)
 161     # . . call
 162     e8/call write-stream-data/disp32
 163     # . . discard args
 164     81 0/subop/add %esp 8/imm32
 165     # continue
 166     eb/jump $subx-calls:loop/disp8
 167 $subx-calls:convert-call:
 168     # - emit comment
 169     # write-buffered(out, "# . ")
 170     # . . push args
 171     68/push "# . "/imm32
 172     ff 6/subop/push *(ebp+0xc)
 173     # . . call
 174     e8/call write-buffered/disp32
 175     # . . discard args
 176     81 0/subop/add %esp 8/imm32
 177     # write-stream-data(out, line)
 178     # . . push args
 179     56/push-esi
 180     ff 6/subop/push *(ebp+0xc)
 181     # . . call
 182     e8/call write-stream-data/disp32
 183     # . . discard args
 184     81 0/subop/add %esp 8/imm32
 185     # - emit code
 186     # ++line->read to skip '('
 187     ff 0/subop/increment *(esi+4)
 188     # clear-stream(words)
 189     # . . push args
 190     52/push-edx
 191     # . . call
 192     e8/call clear-stream/disp32
 193     # . . discard args
 194     81 0/subop/add %esp 4/imm32
 195     # words = parse-line(line)
 196     # . . push args
 197     52/push-edx
 198     56/push-esi
 199     # . . call
 200     e8/call parse-line/disp32
 201     # . . discard args
 202     81 0/subop/add %esp 8/imm32
 203     # emit-call(out, words)
 204     # . . push args
 205     52/push-edx
 206     ff 6/subop/push *(ebp+0xc)
 207     # . . call
 208     e8/call emit-call/disp32
 209     # . . discard args
 210     81 0/subop/add %esp 8/imm32
 211     # loop
 212     e9/jump $subx-calls:loop/disp32
 213 $subx-calls:break:
 214     # flush(out)
 215     # . . push args
 216     ff 6/subop/push *(ebp+0xc)
 217     # . . call
 218     e8/call flush/disp32
 219     # . . discard args
 220     81 0/subop/add %esp 4/imm32
 221 $subx-calls:end:
 222     # . reclaim locals
 223     81 0/subop/add %esp 0x298/imm32  # 0x20c + 0x8c
 224     # . restore registers
 225     5e/pop-to-esi
 226     5a/pop-to-edx
 227     59/pop-to-ecx
 228     58/pop-to-eax
 229     # . epilogue
 230     89/<- %esp 5/r32/ebp
 231     5d/pop-to-ebp
 232     c3/return
 233 
 234 parse-line:  # line: (addr stream byte), words: (addr stream slice)
 235     # pseudocode:
 236     #   var word-slice: slice
 237     #   while true
 238     #     word-slice = next-word-string-or-expression-without-metadata(line)
 239     #     if slice-empty?(word-slice)
 240     #       break                                 # end of line
 241     #     write-int(words, word-slice->start)
 242     #     write-int(words, word-slice->end)
 243     #
 244     # . prologue
 245     55/push-ebp
 246     89/<- %ebp 4/r32/esp
 247     # . save registers
 248     51/push-ecx
 249     # var word-slice/ecx: slice
 250     68/push 0/imm32/end
 251     68/push 0/imm32/start
 252     89/<- %ecx 4/r32/esp
 253 $parse-line:loop:
 254     # word-slice = next-word-string-or-expression-without-metadata(line)
 255     # . . push args
 256     51/push-ecx
 257     ff 6/subop/push *(ebp+8)
 258     # . . call
 259     e8/call next-word-string-or-expression-without-metadata/disp32
 260     # . . discard args
 261     81 0/subop/add %esp 8/imm32
 262 $parse-line:check1:
 263     # if (slice-empty?(word-slice)) break
 264     # . eax = slice-empty?(word-slice)
 265     # . . push args
 266     51/push-ecx
 267     # . . call
 268     e8/call slice-empty?/disp32
 269     # . . discard args
 270     81 0/subop/add %esp 4/imm32
 271     # . if (eax != false) break
 272     3d/compare-eax-and 0/imm32/false
 273     0f 85/jump-if-!= $parse-line:end/disp32
 274 +-- 40 lines: #?     # dump word-slice --------------------------------------------------------------------------------------------------------------------------------------------------
 314 $parse-line:write-word:
 315     # write-int(words, word-slice->start)
 316     # . . push args
 317     ff 6/subop/push *ecx
 318     ff 6/subop/push *(ebp+0xc)
 319     # . . call
 320     e8/call write-int/disp32
 321     # . . discard args
 322     81 0/subop/add %esp 8/imm32
 323     # write-int(words, word-slice->end)
 324     # . . push args
 325     ff 6/subop/push *(ecx+4)
 326     ff 6/subop/push *(ebp+0xc)
 327     # . . call
 328     e8/call write-int/disp32
 329     # . . discard args
 330     81 0/subop/add %esp 8/imm32
 331     # loop
 332     e9/jump $parse-line:loop/disp32
 333 $parse-line:end:
 334     # . reclaim locals
 335     81 0/subop/add %esp 8/imm32
 336     # . restore registers
 337     59/pop-to-ecx
 338     # . epilogue
 339     89/<- %esp 5/r32/ebp
 340     5d/pop-to-ebp
 341     c3/return
 342 
 343 emit-call:  # out: (addr buffered-file), words: (addr stream slice)
 344     # pseudocode:
 345     #   if (words->write < 8) abort
 346     #   curr = &words->data[words->write-8]
 347     #   min = words->data
 348     #   # emit pushes
 349     #   while true
 350     #     if (curr <= min) break
 351     #     if slice-starts-with?(curr, "%x")    # floating-point register
 352     #       write-buffered(out, "81 5/subop/subtract %esp 4/imm32\n")
 353     #       write-buffered(out, "f3 0f 11/<- *esp ")
 354     #       write-byte-buffered(out, *(curr->start+4))
 355     #       write-buffered(out, "/x32\n")
 356     #     else if *curr->start in '%' '*'
 357     #       write-buffered(out, "ff 6/subop/push ")
 358     #       write-slice-buffered(out, curr)
 359     #       write-buffered(out, "\n")
 360     #     else
 361     #       write-buffered(out, "68/push ")
 362     #       write-slice-buffered(out, curr)
 363     #       write-buffered(out, "/imm32\n")
 364     #     curr -= 8
 365     #   # emit call
 366     #   write-buffered(out, "e8/call ")
 367     #   write-slice-buffered(out, curr)
 368     #   write-buffered(out, "/disp32\n")
 369     #   # emit pops
 370     #   write-buffered(out, "81 0/subop/add %esp ")
 371     #   write-int32-hex-buffered(out, words->write >> 1 - 4)
 372     #   write-buffered(out, "/imm32\n")
 373     #
 374     # . prologue
 375     55/push-ebp
 376     89/<- %ebp 4/r32/esp
 377     # . save registers
 378     50/push-eax
 379     51/push-ecx
 380     52/push-edx
 381     56/push-esi
 382     # esi = words
 383     8b/-> *(ebp+0xc) 6/r32/esi
 384     # if (words->write < 8) abort
 385     # . ecx = words->write - 8
 386     8b/-> *esi 1/r32/ecx
 387     81 5/subop/subtract %ecx 8/imm32
 388     0f 8c/jump-if-< $emit-call:error1/disp32
 389     # var curr/ecx: (addr slice) = &words->data[words->write-8]
 390     8d/copy-address *(esi+ecx+0xc) 1/r32/ecx
 391     # var min/edx: (addr byte) = words->data
 392     8d/copy-address *(esi+0xc) 2/r32/edx
 393     # - emit pushes
 394 $emit-call:push-loop:
 395     # if (curr <= min) break
 396     39/compare %ecx 2/r32/edx
 397     0f 8e/jump-if-<= $emit-call:call-instruction/disp32
 398     # if !slice-starts-with?(curr, "%x") goto next check
 399     # . eax = slice-starts-with?(curr, "%x")
 400     # . . push args
 401     68/push "%x"/imm32
 402     51/push-ecx
 403     # . . call
 404     e8/call slice-starts-with?/disp32
 405     # . . discard args
 406     81 0/subop/add %esp 8/imm32
 407     # . if (eax != 0) goto next check
 408     3d/compare-eax-and 0/imm32/false
 409     74/jump-if-= $emit-call:push-int/disp8
 410     # emit floating-point push
 411     # . write-buffered(out, "81 5/subop/subtract %esp 4/imm32\n")
 412     # . . push args
 413     68/push "81 5/subop/subtract %esp 4/imm32\n"/imm32
 414     ff 6/subop/push *(ebp+8)
 415     # . . call
 416     e8/call write-buffered/disp32
 417     # . . discard args
 418     81 0/subop/add %esp 8/imm32
 419     # . write-buffered(out, "f3 0f 11/<- *esp ")
 420     # . . push args
 421     68/push "f3 0f 11/<- *esp "/imm32
 422     ff 6/subop/push *(ebp+8)
 423     # . . call
 424     e8/call write-buffered/disp32
 425     # . . discard args
 426     81 0/subop/add %esp 8/imm32
 427     # . write-byte-buffered(out, *(curr->start+4))
 428     # . . eax = *(curr->start+4)
 429     8b/-> *ecx 0/r32/eax
 430     8a/copy-byte *(eax+4) 0/r32/eax
 431     81 4/subop/and %eax 0xff/imm32
 432     # . . push args
 433     50/push-eax
 434     ff 6/subop/push *(ebp+8)
 435     # . . call
 436     e8/call write-byte-buffered/disp32
 437     # . . discard args
 438     81 0/subop/add %esp 8/imm32
 439     # . write-buffered(out, "/x32\n")
 440     68/push "/x32\n"/imm32
 441     ff 6/subop/push *(ebp+8)
 442     # . . call
 443     e8/call write-buffered/disp32
 444     # . . discard args
 445     81 0/subop/add %esp 8/imm32
 446     # . continue
 447     e9/jump $emit-call:next-push/disp32
 448 $emit-call:push-int:
 449     # if (*curr->start in '%' '*') goto push-rm32
 450     # . var start/eax: (addr byte) = curr->start
 451     8b/-> *ecx 0/r32/eax
 452     # . var c/eax: byte = *eax
 453     8b/-> *eax 0/r32/eax
 454     81 4/subop/and %eax 0xff/imm32
 455     # . if (c == '%') goto push-rm32
 456     3d/compare-eax-and 0x25/imm32/percent
 457     74/jump-if-= $emit-call:push-rm32/disp8
 458     # . if (c == '*') goto push-rm32
 459     3d/compare-eax-and 0x2a/imm32/asterisk
 460     74/jump-if-= $emit-call:push-rm32/disp8
 461 $emit-call:push-imm32:
 462     # write-buffered(out, "68/push ")
 463     # . . push args
 464     68/push "68/push "/imm32
 465     ff 6/subop/push *(ebp+8)
 466     # . . call
 467     e8/call write-buffered/disp32
 468     # . . discard args
 469     81 0/subop/add %esp 8/imm32
 470     # write-slice-buffered(out, curr)
 471     # . . push args
 472     51/push-ecx
 473     ff 6/subop/push *(ebp+8)
 474     # . . call
 475     e8/call write-slice-buffered/disp32
 476     # . . discard args
 477     81 0/subop/add %esp 8/imm32
 478     # write-buffered(out, "/imm32\n")
 479     68/push "/imm32\n"/imm32
 480     ff 6/subop/push *(ebp+8)
 481     # . . call
 482     e8/call write-buffered/disp32
 483     # . . discard args
 484     81 0/subop/add %esp 8/imm32
 485     # continue
 486     eb/jump $emit-call:next-push/disp8
 487 $emit-call:push-rm32:
 488     # write-buffered(out, "ff 6/subop/push ")
 489     # . . push args
 490     68/push "ff 6/subop/push "/imm32
 491     ff 6/subop/push *(ebp+8)
 492     # . . call
 493     e8/call write-buffered/disp32
 494     # . . discard args
 495     81 0/subop/add %esp 8/imm32
 496     # write-slice-buffered(out, curr)
 497     # . . push args
 498     51/push-ecx
 499     ff 6/subop/push *(ebp+8)
 500     # . . call
 501     e8/call write-slice-buffered/disp32
 502     # . . discard args
 503     81 0/subop/add %esp 8/imm32
 504     # write-buffered(out, "\n")
 505     68/push Newline/imm32
 506     ff 6/subop/push *(ebp+8)
 507     # . . call
 508     e8/call write-buffered/disp32
 509     # . . discard args
 510     81 0/subop/add %esp 8/imm32
 511 $emit-call:next-push:
 512     # curr -= 8
 513     81 5/subop/subtract %ecx 8/imm32
 514     # loop
 515     e9/jump $emit-call:push-loop/disp32
 516 $emit-call:call-instruction:
 517     # write-buffered(out, "e8/call ")
 518     68/push "e8/call "/imm32
 519     ff 6/subop/push *(ebp+8)
 520     # . . call
 521     e8/call write-buffered/disp32
 522     # . . discard args
 523     81 0/subop/add %esp 8/imm32
 524     # write-slice-buffered(out, curr)
 525     # . . push args
 526     51/push-ecx
 527     ff 6/subop/push *(ebp+8)
 528     # . . call
 529     e8/call write-slice-buffered/disp32
 530     # . . discard args
 531     81 0/subop/add %esp 8/imm32
 532     # write-buffered(out, "/disp32\n")
 533     68/push "/disp32\n"/imm32
 534     ff 6/subop/push *(ebp+8)
 535     # . . call
 536     e8/call write-buffered/disp32
 537     # . . discard args
 538     81 0/subop/add %esp 8/imm32
 539 $emit-call:pop-instruction:
 540     # write-buffered(out, "81 0/subop/add %esp ")
 541     68/push "81 0/subop/add %esp "/imm32
 542     ff 6/subop/push *(ebp+8)
 543     # . . call
 544     e8/call write-buffered/disp32
 545     # . . discard args
 546     81 0/subop/add %esp 8/imm32
 547     # write-int32-hex-buffered(out, words->write >> 1 - 4)
 548     # . . push args
 549     8b/-> *esi 0/r32/eax
 550     c1/shift 7/subop/arith-right %eax 1/imm8
 551     2d/subtract-from-eax 4/imm32
 552     50/push-eax
 553     ff 6/subop/push *(ebp+8)
 554     # . . call
 555     e8/call write-int32-hex-buffered/disp32
 556     # . . discard args
 557     81 0/subop/add %esp 8/imm32
 558     # write-buffered(out, "/imm32\n")
 559     68/push "/imm32\n"/imm32
 560     ff 6/subop/push *(ebp+8)
 561     # . . call
 562     e8/call write-buffered/disp32
 563     # . . discard args
 564     81 0/subop/add %esp 8/imm32
 565 $emit-call:end:
 566     # . restore registers
 567     5e/pop-to-esi
 568     5a/pop-to-edx
 569     59/pop-to-ecx
 570     58/pop-to-eax
 571     # . epilogue
 572     89/<- %esp 5/r32/ebp
 573     5d/pop-to-ebp
 574     c3/return
 575 
 576 $emit-call:error1:
 577     # print(stderr, "error: calls.subx: '()' is not a valid call")
 578     # . write-buffered(Stderr, "error: calls.subx: '()' is not a valid call")
 579     # . . push args
 580     68/push "error: calls.subx: '()' is not a valid call"/imm32
 581     68/push Stderr/imm32
 582     # . . call
 583     e8/call write-buffered/disp32
 584     # . . discard args
 585     81 0/subop/add %esp 8/imm32
 586     # . flush(Stderr)
 587     # . . push args
 588     68/push Stderr/imm32
 589     # . . call
 590     e8/call flush/disp32
 591     # . . discard args
 592     81 0/subop/add %esp 4/imm32
 593     # . syscall(exit, 1)
 594     bb/copy-to-ebx 1/imm32
 595     e8/call syscall_exit/disp32
 596     # never gets here
 597 
 598 test-subx-calls-passes-most-lines-through:
 599     # . prologue
 600     55/push-ebp
 601     89/<- %ebp 4/r32/esp
 602     # setup
 603     # . clear-stream(_test-input-stream)
 604     # . . push args
 605     68/push _test-input-stream/imm32
 606     # . . call
 607     e8/call clear-stream/disp32
 608     # . . discard args
 609     81 0/subop/add %esp 4/imm32
 610     # . clear-stream($_test-input-buffered-file->buffer)
 611     # . . push args
 612     68/push  $_test-input-buffered-file->buffer/imm32
 613     # . . call
 614     e8/call clear-stream/disp32
 615     # . . discard args
 616     81 0/subop/add %esp 4/imm32
 617     # . clear-stream(_test-output-stream)
 618     # . . push args
 619     68/push _test-output-stream/imm32
 620     # . . call
 621     e8/call clear-stream/disp32
 622     # . . discard args
 623     81 0/subop/add %esp 4/imm32
 624     # . clear-stream($_test-output-buffered-file->buffer)
 625     # . . push args
 626     68/push  $_test-output-buffered-file->buffer/imm32
 627     # . . call
 628     e8/call clear-stream/disp32
 629     # . . discard args
 630     81 0/subop/add %esp 4/imm32
 631     # . write(_test-input-stream, "== abcd 0x1\n")
 632     # . . push args
 633     68/push "== abcd 0x1\n"/imm32
 634     68/push _test-input-stream/imm32
 635     # . . call
 636     e8/call write/disp32
 637     # . . discard args
 638     81 0/subop/add %esp 8/imm32
 639     # subx-calls(_test-input-buffered-file, _test-output-buffered-file)
 640     # . . push args
 641     68/push _test-output-buffered-file/imm32
 642     68/push _test-input-buffered-file/imm32
 643     # . . call
 644     e8/call subx-calls/disp32
 645     # . . discard args
 646     81 0/subop/add %esp 8/imm32
 647     # check that the line just passed through
 648     # . flush(_test-output-buffered-file)
 649     # . . push args
 650     68/push _test-output-buffered-file/imm32
 651     # . . call
 652     e8/call flush/disp32
 653     # . . discard args
 654     81 0/subop/add %esp 4/imm32
 655     # . check-stream-equal(_test-output-stream, "== abcd 0x1\n", msg)
 656     # . . push args
 657     68/push "F - test-subx-calls-passes-most-lines-through"/imm32
 658     68/push "== abcd 0x1\n"/imm32
 659     68/push _test-output-stream/imm32
 660     # . . call
 661     e8/call check-stream-equal/disp32
 662     # . . discard args
 663     81 0/subop/add %esp 0xc/imm32
 664     # . epilogue
 665     89/<- %esp 5/r32/ebp
 666     5d/pop-to-ebp
 667     c3/return
 668 
 669 test-subx-calls-processes-calls:
 670     # . prologue
 671     55/push-ebp
 672     89/<- %ebp 4/r32/esp
 673     # setup
 674     # . clear-stream(_test-input-stream)
 675     # . . push args
 676     68/push _test-input-stream/imm32
 677     # . . call
 678     e8/call clear-stream/disp32
 679     # . . discard args
 680     81 0/subop/add %esp 4/imm32
 681     # . clear-stream($_test-input-buffered-file->buffer)
 682     # . . push args
 683     68/push  $_test-input-buffered-file->buffer/imm32
 684     # . . call
 685     e8/call clear-stream/disp32
 686     # . . discard args
 687     81 0/subop/add %esp 4/imm32
 688     # . clear-stream(_test-output-stream)
 689     # . . push args
 690     68/push _test-output-stream/imm32
 691     # . . call
 692     e8/call clear-stream/disp32
 693     # . . discard args
 694     81 0/subop/add %esp 4/imm32
 695     # . clear-stream($_test-output-buffered-file->buffer)
 696     # . . push args
 697     68/push  $_test-output-buffered-file->buffer/imm32
 698     # . . call
 699     e8/call clear-stream/disp32
 700     # . . discard args
 701     81 0/subop/add %esp 4/imm32
 702     # . write(_test-input-stream, "(foo %eax)\n")
 703     # . . push args
 704     68/push "(foo %eax)\n"/imm32
 705     68/push _test-input-stream/imm32
 706     # . . call
 707     e8/call write/disp32
 708     # . . discard args
 709     81 0/subop/add %esp 8/imm32
 710     # subx-calls(_test-input-buffered-file, _test-output-buffered-file)
 711     # . . push args
 712     68/push _test-output-buffered-file/imm32
 713     68/push _test-input-buffered-file/imm32
 714     # . . call
 715     e8/call subx-calls/disp32
 716     # . . discard args
 717     81 0/subop/add %esp 8/imm32
 718     # check that the line just passed through
 719     # . flush(_test-output-buffered-file)
 720     # . . push args
 721     68/push _test-output-buffered-file/imm32
 722     # . . call
 723     e8/call flush/disp32
 724     # . . discard args
 725     81 0/subop/add %esp 4/imm32
 726 +-- 33 lines: #?     # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------
 759     # . check-next-stream-line-equal(_test-output-stream, "# . (foo %eax)", msg)
 760     # . . push args
 761     68/push "F - test-subx-calls-processes-calls: comment"/imm32
 762     68/push "# . (foo %eax)"/imm32
 763     68/push _test-output-stream/imm32
 764     # . . call
 765     e8/call check-next-stream-line-equal/disp32
 766     # . . discard args
 767     81 0/subop/add %esp 0xc/imm32
 768     # . check-next-stream-line-equal(_test-output-stream, "ff 6/subop/push %eax", msg)
 769     # . . push args
 770     68/push "F - test-subx-calls-processes-calls: arg 0"/imm32
 771     68/push "ff 6/subop/push %eax"/imm32
 772     68/push _test-output-stream/imm32
 773     # . . call
 774     e8/call check-next-stream-line-equal/disp32
 775     # . . discard args
 776     81 0/subop/add %esp 0xc/imm32
 777     # . check-next-stream-line-equal(_test-output-stream, "e8/call foo/disp32", msg)
 778     # . . push args
 779     68/push "F - test-subx-calls-processes-calls: call"/imm32
 780     68/push "e8/call foo/disp32"/imm32
 781     68/push _test-output-stream/imm32
 782     # . . call
 783     e8/call check-next-stream-line-equal/disp32
 784     # . . discard args
 785     81 0/subop/add %esp 0xc/imm32
 786     # . check-next-stream-line-equal(_test-output-stream, "81 0/subop/add %esp 4/imm32", msg)
 787     # . . push args
 788     68/push "F - test-subx-calls-processes-calls: pops"/imm32
 789     68/push "81 0/subop/add %esp 0x00000004/imm32"/imm32
 790     68/push _test-output-stream/imm32
 791     # . . call
 792     e8/call check-next-stream-line-equal/disp32
 793     # . . discard args
 794     81 0/subop/add %esp 0xc/imm32
 795     # . epilogue
 796     89/<- %esp 5/r32/ebp
 797     5d/pop-to-ebp
 798     c3/return
 799 
 800 next-word-string-or-expression-without-metadata:  # line: (addr stream byte), out: (addr slice)
 801     # pseudocode:
 802     #   skip-chars-matching(line, ' ')
 803     #   if line->read >= line->write              # end of line
 804     #     out = {0, 0}
 805     #     return
 806     #   out->start = &line->data[line->read]
 807     #   if line->data[line->read] == '#'          # comment
 808     #     out->end = &line->data[line->write]     # skip to end of line
 809     #     return
 810     #   if line->data[line->read] == '"'          # string literal
 811     #     skip-string(line)
 812     #     out->end = &line->data[line->read]      # no metadata
 813     #     return
 814     #   if line->data[line->read] == '*'          # expression
 815     #     if line->data[line->read + 1] == ' '
 816     #       abort
 817     #     if line->data[line->read + 1] == '('
 818     #       skip-until-close-paren(line)
 819     #       if (line->data[line->read] != ')'
 820     #         abort
 821     #       ++line->read to skip ')'
 822     #     out->end = &line->data[line->read]
 823     #     return
 824     #   if line->data[line->read] == '('
 825     #     abort
 826     #   if line->data[line->read] == ')'
 827     #     ++line->read to skip ')'
 828     #     # make sure there's nothing else of importance
 829     #     if line->read >= line->write
 830     #       out = {0, 0}
 831     #       return
 832     #     if line->data[line->read] != ' '
 833     #       abort
 834     #     skip-chars-matching-whitespace(line)
 835     #     if line->read >= line->write
 836     #       out = {0, 0}
 837     #       return
 838     #     if line->data[line->read] == '#'        # only thing permitted after ')' is a comment
 839     #       out = {0, 0}
 840     #       return
 841     #     abort
 842     #   # default case: read a word -- but no metadata
 843     #   while true
 844     #     if line->read >= line->write
 845     #       break
 846     #     if line->data[line->read] == ' '
 847     #       break
 848     #     if line->data[line->read] == ')'
 849     #       break
 850     #     if line->data[line->read] == '/'
 851     #       abort
 852     #     ++line->read
 853     #   out->end = &line->data[line->read]
 854     #
 855     # registers:
 856     #   ecx: often line->read
 857     #   eax: often line->data[line->read]
 858     #
 859     # . prologue
 860     55/push-ebp
 861     89/<- %ebp 4/r32/esp
 862     # . save registers
 863     50/push-eax
 864     51/push-ecx
 865     56/push-esi
 866     57/push-edi
 867     # esi = line
 868     8b/-> *(ebp+8) 6/r32/esi
 869     # edi = out
 870     8b/-> *(ebp+0xc) 7/r32/edi
 871     # skip-chars-matching(line, ' ')
 872     # . . push args
 873     68/push 0x20/imm32/space
 874     ff 6/subop/push *(ebp+8)
 875     # . . call
 876     e8/call skip-chars-matching/disp32
 877     # . . discard args
 878     81 0/subop/add %esp 8/imm32
 879 $next-word-string-or-expression-without-metadata:check0:
 880     # if (line->read >= line->write) abort because we didn't encounter a final ')'
 881     # . ecx = line->read
 882     8b/-> *(esi+4) 1/r32/ecx
 883     # . if (ecx >= line->write) abort
 884     3b/compare<- *esi 1/r32/ecx
 885     0f 8d/jump-if->= $next-word-string-or-expression-without-metadata:error0/disp32
 886 $next-word-string-or-expression-without-metadata:check-for-comment:
 887     # out->start = &line->data[line->read]
 888     8d/copy-address *(esi+ecx+0xc) 0/r32/eax
 889     89/<- *edi 0/r32/eax
 890     # if (line->data[line->read] != '#') goto next check
 891     # . var eax: byte = line->data[line->read]
 892     31/xor-with %eax 0/r32/eax
 893     8a/copy-byte *(esi+ecx+0xc) 0/r32/AL
 894     # . if (eax != '#') goto next check
 895     3d/compare-eax-and 0x23/imm32/pound
 896     75/jump-if-!= $next-word-string-or-expression-without-metadata:check-for-string-literal/disp8
 897 $next-word-string-or-expression-without-metadata:comment:
 898     # out->end = &line->data[line->write]
 899     8b/-> *esi 0/r32/eax
 900     8d/copy-address *(esi+eax+0xc) 0/r32/eax
 901     89/<- *(edi+4) 0/r32/eax
 902     # line->read = line->write  # skip rest of line
 903     8b/-> *esi 0/r32/eax
 904     89/<- *(esi+4) 0/r32/eax
 905     # return
 906     e9/jump $next-word-string-or-expression-without-metadata:end/disp32
 907 $next-word-string-or-expression-without-metadata:check-for-string-literal:
 908     # if (line->data[line->read] != '"') goto next check
 909     3d/compare-eax-and 0x22/imm32/dquote
 910     75/jump-if-!= $next-word-string-or-expression-without-metadata:check-for-expression/disp8
 911 $next-word-string-or-expression-without-metadata:string-literal:
 912     # skip-string(line)
 913     # . . push args
 914     56/push-esi
 915     # . . call
 916     e8/call skip-string/disp32
 917     # . . discard args
 918     81 0/subop/add %esp 4/imm32
 919     # out->end = &line->data[line->read]
 920     8b/-> *(esi+4) 1/r32/ecx
 921     8d/copy-address *(esi+ecx+0xc) 0/r32/eax
 922     89/<- *(edi+4) 0/r32/eax
 923     # return
 924     e9/jump $next-word-string-or-expression-without-metadata:end/disp32
 925 $next-word-string-or-expression-without-metadata:check-for-expression:
 926     # if (line->data[line->read] != '*') goto next check
 927     3d/compare-eax-and 0x2a/imm32/asterisk
 928     75/jump-if-!= $next-word-string-or-expression-without-metadata:check-for-open-paren/disp8
 929     # if (line->data[line->read + 1] == ' ') goto error1
 930     8a/copy-byte *(esi+ecx+0xd) 0/r32/AL
 931     3d/compare-eax-and 0x20/imm32/space
 932     0f 84/jump-if-= $next-word-string-or-expression-without-metadata:error1/disp32
 933     # if (line->data[line->read + 1] != '(') goto regular-word
 934     3d/compare-eax-and 0x28/imm32/open-paren
 935     0f 85/jump-if-!= $next-word-string-or-expression-without-metadata:regular-word-without-metadata/disp32
 936 $next-word-string-or-expression-without-metadata:paren:
 937     # skip-until-close-paren(line)
 938     # . . push args
 939     56/push-esi
 940     # . . call
 941     e8/call skip-until-close-paren/disp32
 942     # . . discard args
 943     81 0/subop/add %esp 4/imm32
 944     # if (line->data[line->read] != ')') goto error2
 945     # . eax = line->data[line->read]
 946     8b/-> *(esi+4) 1/r32/ecx
 947     8a/copy-byte *(esi+ecx+0xc) 0/r32/AL
 948     # . if (eax != ')') goto error2
 949     3d/compare-eax-and 0x29/imm32/close-paren
 950     0f 85/jump-if-!= $next-word-string-or-expression-without-metadata:error2/disp32
 951     # ++line->read to skip ')'
 952     ff 0/subop/increment *(esi+4)
 953     # out->end = &line->data[line->read]
 954     8b/-> *(esi+4) 1/r32/ecx
 955     8d/copy-address *(esi+ecx+0xc) 0/r32/eax
 956     89/<- *(edi+4) 0/r32/eax
 957     # return
 958     e9/jump $next-word-string-or-expression-without-metadata:end/disp32
 959 $next-word-string-or-expression-without-metadata:check-for-open-paren:
 960     # if (line->data[line->read] == '(') abort
 961     3d/compare-eax-and 0x28/imm32/open-paren
 962     0f 84/jump-if-= $next-word-string-or-expression-without-metadata:error4a/disp32
 963 $next-word-string-or-expression-without-metadata:check-for-end-of-call:
 964     # if (line->data[line->read] != ')') goto next check
 965     3d/compare-eax-and 0x29/imm32/close-paren
 966     75/jump-if-!= $next-word-string-or-expression-without-metadata:regular-word-without-metadata/disp8
 967     # ++line->read to skip ')'
 968     ff 0/subop/increment *(esi+4)
 969     # - error checking: make sure there's nothing else of importance on the line
 970     # if (line->read >= line->write) return out = {0, 0}
 971     # . ecx = line->read
 972     8b/-> *(esi+4) 1/r32/ecx
 973     # . if (ecx >= line->write) return {0, 0}
 974     3b/compare<- *esi 1/r32/ecx
 975     0f 8d/jump-if->= $next-word-string-or-expression-without-metadata:return-eol/disp32
 976     # if (line->data[line->read] == '/') goto error3
 977     # . eax = line->data[line->read]
 978     8a/copy-byte *(esi+ecx+0xc) 0/r32/AL
 979     # . if (eax == '/') goto error3
 980     3d/compare-eax-and 0x2f/imm32/slash
 981     0f 84/jump-if-= $next-word-string-or-expression-without-metadata:error3/disp32
 982     # skip-chars-matching-whitespace(line)
 983     # . . push args
 984     56/push-esi
 985     # . . call
 986     e8/call skip-chars-matching-whitespace/disp32
 987     # . . discard args
 988     81 0/subop/add %esp 4/imm32
 989     # if (line->read >= line->write) return out = {0, 0}
 990     # . ecx = line->read
 991     8b/-> *(esi+4) 1/r32/ecx
 992     # . if (ecx >= line->write) return {0, 0}
 993     3b/compare<- *esi 1/r32/ecx
 994     0f 8d/jump-if->= $next-word-string-or-expression-without-metadata:return-eol/disp32
 995     # if (line->data[line->read] == '#') return out = {0, 0}
 996     # . eax = line->data[line->read]
 997     8b/-> *(esi+4) 1/r32/ecx
 998     8a/copy-byte *(esi+ecx+0xc) 0/r32/AL
 999     # . if (eax == '#') return out = {0, 0}
1000     3d/compare-eax-and 0x23/imm32/pound
1001     74/jump-if-= $next-word-string-or-expression-without-metadata:return-eol/disp8
1002     # otherwise goto error4
1003     e9/jump $next-word-string-or-expression-without-metadata:error4/disp32
1004 $next-word-string-or-expression-without-metadata:regular-word-without-metadata:
1005     # if (line->read >= line->write) break
1006     # . ecx = line->read
1007     8b/-> *(esi+4) 1/r32/ecx
1008     # . if (ecx >= line->write) break
1009     3b/compare<- *esi 1/r32/ecx
1010     7d/jump-if->= $next-word-string-or-expression-without-metadata:regular-word-break/disp8
1011     # if (line->data[line->read] == ' ') break
1012     # . eax = line->data[line->read]
1013     8b/-> *(esi+4) 1/r32/ecx
1014     8a/copy-byte *(esi+ecx+0xc) 0/r32/AL
1015     # . if (eax == ' ') break
1016     3d/compare-eax-and 0x20/imm32/space
1017     74/jump-if-= $next-word-string-or-expression-without-metadata:regular-word-break/disp8
1018     # if (line->data[line->read] == ')') break
1019     3d/compare-eax-and 0x29/imm32/close-paren
1020     0f 84/jump-if-= $next-word-string-or-expression-without-metadata:regular-word-break/disp32
1021     # if (line->data[line->read] == '/') goto error5
1022     3d/compare-eax-and 0x2f/imm32/slash
1023     0f 84/jump-if-= $next-word-string-or-expression-without-metadata:error5/disp32
1024     # ++line->read
1025     ff 0/subop/increment *(esi+4)
1026     # loop
1027     e9/jump $next-word-string-or-expression-without-metadata:regular-word-without-metadata/disp32
1028 $next-word-string-or-expression-without-metadata:regular-word-break:
1029     # out->end = &line->data[line->read]
1030     8b/-> *(esi+4) 1/r32/ecx
1031     8d/copy-address *(esi+ecx+0xc) 0/r32/eax
1032     89/<- *(edi+4) 0/r32/eax
1033     eb/jump $next-word-string-or-expression-without-metadata:end/disp8
1034 $next-word-string-or-expression-without-metadata:return-eol:
1035     # return out = {0, 0}
1036     c7 0/subop/copy *edi 0/imm32
1037     c7 0/subop/copy *(edi+4) 0/imm32
1038 $next-word-string-or-expression-without-metadata:end:
1039     # . restore registers
1040     5f/pop-to-edi
1041     5e/pop-to-esi
1042     59/pop-to-ecx
1043     58/pop-to-eax
1044     # . epilogue
1045     89/<- %esp 5/r32/ebp
1046     5d/pop-to-ebp
1047     c3/return
1048 
1049 $next-word-string-or-expression-without-metadata:error0:
1050     # print(stderr, "error: missing final ')' in '" line "'")
1051     # . write-buffered(Stderr, "error: missing final ')' in '")
1052     # . . push args
1053     68/push "error: missing final ')' in '"/imm32
1054     68/push Stderr/imm32
1055     # . . call
1056     e8/call write-buffered/disp32
1057     # . . discard args
1058     81 0/subop/add %esp 8/imm32
1059     # . write-stream-data(Stderr, line)
1060     # . . push args
1061     56/push-esi
1062     68/push Stderr/imm32
1063     # . . call
1064     e8/call write-stream-data/disp32
1065     # . . discard args
1066     81 0/subop/add %esp 8/imm32
1067     # . write-buffered(Stderr, "'")
1068     # . . push args
1069     68/push "'"/imm32
1070     68/push Stderr/imm32
1071     # . . call
1072     e8/call write-buffered/disp32
1073     # . . discard args
1074     81 0/subop/add %esp 8/imm32
1075     # . flush(Stderr)
1076     # . . push args
1077     68/push Stderr/imm32
1078     # . . call
1079     e8/call flush/disp32
1080     # . . discard args
1081     81 0/subop/add %esp 4/imm32
1082     # . syscall(exit, 1)
1083     bb/copy-to-ebx 1/imm32
1084     e8/call  syscall_exit/disp32
1085     # never gets here
1086 
1087 $next-word-string-or-expression-without-metadata:error1:
1088     # print(stderr, "error: no space allowed after '*' in '" line "'")
1089     # . write-buffered(Stderr, "error: no space allowed after '*' in '")
1090     # . . push args
1091     68/push "error: no space allowed after '*' in '"/imm32
1092     68/push Stderr/imm32
1093     # . . call
1094     e8/call write-buffered/disp32
1095     # . . discard args
1096     81 0/subop/add %esp 8/imm32
1097     # . write-stream-data(Stderr, line)
1098     # . . push args
1099     56/push-esi
1100     68/push Stderr/imm32
1101     # . . call
1102     e8/call write-stream-data/disp32
1103     # . . discard args
1104     81 0/subop/add %esp 8/imm32
1105     # . write-buffered(Stderr, "'")
1106     # . . push args
1107     68/push "'"/imm32
1108     68/push Stderr/imm32
1109     # . . call
1110     e8/call write-buffered/disp32
1111     # . . discard args
1112     81 0/subop/add %esp 8/imm32
1113     # . flush(Stderr)
1114     # . . push args
1115     68/push Stderr/imm32
1116     # . . call
1117     e8/call flush/disp32
1118     # . . discard args
1119     81 0/subop/add %esp 4/imm32
1120     # . syscall(exit, 1)
1121     bb/copy-to-ebx 1/imm32
1122     e8/call syscall_exit/disp32
1123     # never gets here
1124 
1125 $next-word-string-or-expression-without-metadata:error2:
1126     # print(stderr, "error: *(...) expression must be all on a single line in '" line "'")
1127     # . write-buffered(Stderr, "error: *(...) expression must be all on a single line in '")
1128     # . . push args
1129     68/push "error: *(...) expression must be all on a single line in '"/imm32
1130     68/push Stderr/imm32
1131     # . . call
1132     e8/call write-buffered/disp32
1133     # . . discard args
1134     81 0/subop/add %esp 8/imm32
1135     # . write-stream-data(Stderr, line)
1136     # . . push args
1137     56/push-esi
1138     68/push Stderr/imm32
1139     # . . call
1140     e8/call write-stream-data/disp32
1141     # . . discard args
1142     81 0/subop/add %esp 8/imm32
1143     # . write-buffered(Stderr, "'")
1144     # . . push args
1145     68/push "'"/imm32
1146     68/push Stderr/imm32
1147     # . . call
1148     e8/call write-buffered/disp32
1149     # . . discard args
1150     81 0/subop/add %esp 8/imm32
1151     # . flush(Stderr)
1152     # . . push args
1153     68/push Stderr/imm32
1154     # . . call
1155     e8/call flush/disp32
1156     # . . discard args
1157     81 0/subop/add %esp 4/imm32
1158     # . syscall(exit, 1)
1159     bb/copy-to-ebx 1/imm32
1160     e8/call syscall_exit/disp32
1161     # never gets here
1162 
1163 $next-word-string-or-expression-without-metadata:error3:
1164     # print(stderr, "error: no metadata after calls; just use a comment (in '" line "')")
1165     # . write-buffered(Stderr, "error: no metadata after calls; just use a comment (in '")
1166     # . . push args
1167     68/push "error: no metadata after calls; just use a comment (in '"/imm32
1168     68/push Stderr/imm32
1169     # . . call
1170     e8/call write-buffered/disp32
1171     # . . discard args
1172     81 0/subop/add %esp 8/imm32
1173     # . write-stream-data(Stderr, line)
1174     # . . push args
1175     56/push-esi
1176     68/push Stderr/imm32
1177     # . . call
1178     e8/call write-stream-data/disp32
1179     # . . discard args
1180     81 0/subop/add %esp 8/imm32
1181     # . write-buffered(Stderr, "')")
1182     # . . push args
1183     68/push "')"/imm32
1184     68/push Stderr/imm32
1185     # . . call
1186     e8/call write-buffered/disp32
1187     # . . discard args
1188     81 0/subop/add %esp 8/imm32
1189     # . flush(Stderr)
1190     # . . push args
1191     68/push Stderr/imm32
1192     # . . call
1193     e8/call flush/disp32
1194     # . . discard args
1195     81 0/subop/add %esp 4/imm32
1196     # . syscall(exit, 1)
1197     bb/copy-to-ebx 1/imm32
1198     e8/call syscall_exit/disp32
1199     # never gets here
1200 
1201 $next-word-string-or-expression-without-metadata:error4a:
1202     # print(stderr, "error: unexpected '(' within call in '" line "'")
1203     # . write-buffered(Stderr, "error: unexpected '(' within call in '")
1204     # . . push args
1205     68/push "error: unexpected '(' within call in '"/imm32
1206     68/push Stderr/imm32
1207     # . . call
1208     e8/call write-buffered/disp32
1209     # . . discard args
1210     81 0/subop/add %esp 8/imm32
1211     # . write-stream-data(Stderr, line)
1212     # . . push args
1213     56/push-esi
1214     68/push Stderr/imm32
1215     # . . call
1216     e8/call write-stream-data/disp32
1217     # . . discard args
1218     81 0/subop/add %esp 8/imm32
1219     # . write-buffered(Stderr, "'\n")
1220     # . . push args
1221     68/push "'\n"/imm32
1222     68/push Stderr/imm32
1223     # . . call
1224     e8/call write-buffered/disp32
1225     # . . discard args
1226     81 0/subop/add %esp 8/imm32
1227     # . flush(Stderr)
1228     # . . push args
1229     68/push Stderr/imm32
1230     # . . call
1231     e8/call flush/disp32
1232     # . . discard args
1233     81 0/subop/add %esp 4/imm32
1234     # . syscall(exit, 1)
1235     bb/copy-to-ebx 1/imm32
1236     e8/call syscall_exit/disp32
1237     # never gets here
1238 
1239 $next-word-string-or-expression-without-metadata:error4:
1240     # print(stderr, "error: unexpected text after end of call in '" line "'")
1241     # . write-buffered(Stderr, "error: unexpected text after end of call in '")
1242     # . . push args
1243     68/push "error: unexpected text after end of call in '"/imm32
1244     68/push Stderr/imm32
1245     # . . call
1246     e8/call write-buffered/disp32
1247     # . . discard args
1248     81 0/subop/add %esp 8/imm32
1249     # . write-stream-data(Stderr, line)
1250     # . . push args
1251     56/push-esi
1252     68/push Stderr/imm32
1253     # . . call
1254     e8/call write-stream-data/disp32
1255     # . . discard args
1256     81 0/subop/add %esp 8/imm32
1257     # . write-buffered(Stderr, "'")
1258     # . . push args
1259     68/push "'"/imm32
1260     68/push Stderr/imm32
1261     # . . call
1262     e8/call write-buffered/disp32
1263     # . . discard args
1264     81 0/subop/add %esp 8/imm32
1265     # . flush(Stderr)
1266     # . . push args
1267     68/push Stderr/imm32
1268     # . . call
1269     e8/call flush/disp32
1270     # . . discard args
1271     81 0/subop/add %esp 4/imm32
1272     # . syscall(exit, 1)
1273     bb/copy-to-ebx 1/imm32
1274     e8/call syscall_exit/disp32
1275     # never gets here
1276 
1277 $next-word-string-or-expression-without-metadata:error5:
1278     # print(stderr, "error: no metadata anywhere in calls (in '" line "')")
1279     # . write-buffered(Stderr, "error: no metadata anywhere in calls (in '")
1280     # . . push args
1281     68/push "error: no metadata anywhere in calls (in '"/imm32
1282     68/push Stderr/imm32
1283     # . . call
1284     e8/call write-buffered/disp32
1285     # . . discard args
1286     81 0/subop/add %esp 8/imm32
1287     # . write-stream-data(Stderr, line)
1288     # . . push args
1289     56/push-esi
1290     68/push Stderr/imm32
1291     # . . call
1292     e8/call write-stream-data/disp32
1293     # . . discard args
1294     81 0/subop/add %esp 8/imm32
1295     # . write-buffered(Stderr, "')")
1296     # . . push args
1297     68/push "')"/imm32
1298     68/push Stderr/imm32
1299     # . . call
1300     e8/call write-buffered/disp32
1301     # . . discard args
1302     81 0/subop/add %esp 8/imm32
1303     # . flush(Stderr)
1304     # . . push args
1305     68/push Stderr/imm32
1306     # . . call
1307     e8/call flush/disp32
1308     # . . discard args
1309     81 0/subop/add %esp 4/imm32
1310     # . syscall(exit, 1)
1311     bb/copy-to-ebx 1/imm32
1312     e8/call syscall_exit/disp32
1313     # never gets here
1314 
1315 test-next-word-string-or-expression-without-metadata:
1316     # . prologue
1317     55/push-ebp
1318     89/<- %ebp 4/r32/esp
1319     # setup
1320     # . clear-stream(_test-input-stream)
1321     # . . push args
1322     68/push _test-input-stream/imm32
1323     # . . call
1324     e8/call clear-stream/disp32
1325     # . . discard args
1326     81 0/subop/add %esp 4/imm32
1327     # var slice/ecx: slice
1328     68/push 0/imm32/end
1329     68/push 0/imm32/start
1330     89/<- %ecx 4/r32/esp
1331     # write(_test-input-stream, "  ab")
1332     # . . push args
1333     68/push "  ab"/imm32
1334     68/push _test-input-stream/imm32
1335     # . . call
1336     e8/call write/disp32
1337     # . . discard args
1338     81 0/subop/add %esp 8/imm32
1339     # next-word-string-or-expression-without-metadata(_test-input-stream, slice)
1340     # . . push args
1341     51/push-ecx
1342     68/push _test-input-stream/imm32
1343     # . . call
1344     e8/call next-word-string-or-expression-without-metadata/disp32
1345     # . . discard args
1346     81 0/subop/add %esp 8/imm32
1347     # check-ints-equal(_test-input-stream->read, 4, msg)
1348     # . . push args
1349     68/push "F - test-next-word-string-or-expression-without-metadata/updates-stream-read-correctly"/imm32
1350     68/push 4/imm32
1351     b8/copy-to-eax _test-input-stream/imm32
1352     ff 6/subop/push *(eax+4)
1353     # . . call
1354     e8/call check-ints-equal/disp32
1355     # . . discard args
1356     81 0/subop/add %esp 0xc/imm32
1357     # check-ints-equal(slice->start - _test-input-stream->data, 2, msg)
1358     # . check-ints-equal(slice->start - _test-input-stream, 14, msg)
1359     # . . push args
1360     68/push "F - test-next-word-string-or-expression-without-metadata: start"/imm32
1361     68/push 0xe/imm32
1362     # . . push slice->start - _test-input-stream
1363     8b/-> *ecx 0/r32/eax
1364     81 5/subop/subtract %eax _test-input-stream/imm32
1365     50/push-eax
1366     # . . call
1367     e8/call check-ints-equal/disp32
1368     # . . discard args
1369     81 0/subop/add %esp 0xc/imm32
1370     # check-ints-equal(slice->end - _test-input-stream->data, 4, msg)
1371     # . check-ints-equal(slice->end - _test-input-stream, 16, msg)
1372     # . . push args
1373     68/push "F - test-next-word-string-or-expression-without-metadata: end"/imm32
1374     68/push 0x10/imm32
1375     # . . push slice->end - _test-input-stream
1376     8b/-> *(ecx+4) 0/r32/eax
1377     81 5/subop/subtract %eax _test-input-stream/imm32
1378     50/push-eax
1379     # . . call
1380     e8/call check-ints-equal/disp32
1381     # . . discard args
1382     81 0/subop/add %esp 0xc/imm32
1383     # . epilogue
1384     89/<- %esp 5/r32/ebp
1385     5d/pop-to-ebp
1386     c3/return
1387 
1388 test-next-word-string-or-expression-without-metadata-returns-whole-comment:
1389     # . prologue
1390     55/push-ebp
1391     89/<- %ebp 4/r32/esp
1392     # setup
1393     # . clear-stream(_test-input-stream)
1394     # . . push args
1395     68/push _test-input-stream/imm32
1396     # . . call
1397     e8/call clear-stream/disp32
1398     # . . discard args
1399     81 0/subop/add %esp 4/imm32
1400     # var slice/ecx: slice
1401     68/push 0/imm32/end
1402     68/push 0/imm32/start
1403     89/<- %ecx 4/r32/esp
1404     # write(_test-input-stream, "  # a")
1405     # . . push args
1406     68/push "  # a"/imm32
1407     68/push _test-input-stream/imm32
1408     # . . call
1409     e8/call write/disp32
1410     # . . discard args
1411     81 0/subop/add %esp 8/imm32
1412     # next-word-string-or-expression-without-metadata(_test-input-stream, slice)
1413     # . . push args
1414     51/push-ecx
1415     68/push _test-input-stream/imm32
1416     # . . call
1417     e8/call next-word-string-or-expression-without-metadata/disp32
1418     # . . discard args
1419     81 0/subop/add %esp 8/imm32
1420     # check-ints-equal(_test-input-stream->read, 5, msg)
1421     # . . push args
1422     68/push "F - test-next-word-string-or-expression-without-metadata-returns-whole-comment/updates-stream-read-correctly"/imm32
1423     68/push 5/imm32
1424     b8/copy-to-eax _test-input-stream/imm32
1425     ff 6/subop/push *(eax+4)
1426     # . . call
1427     e8/call check-ints-equal/disp32
1428     # . . discard args
1429     81 0/subop/add %esp 0xc/imm32
1430     # check-ints-equal(slice->start - _test-input-stream->data, 2, msg)
1431     # . check-ints-equal(slice->start - _test-input-stream, 14, msg)
1432     # . . push args
1433     68/push "F - test-next-word-string-or-expression-without-metadata-returns-whole-comment: start"/imm32
1434     68/push 0xe/imm32
1435     # . . push slice->start - _test-input-stream
1436     8b/-> *ecx 0/r32/eax
1437     81 5/subop/subtract %eax _test-input-stream/imm32
1438     50/push-eax
1439     # . . call
1440     e8/call check-ints-equal/disp32
1441     # . . discard args
1442     81 0/subop/add %esp 0xc/imm32
1443     # check-ints-equal(slice->end - _test-input-stream->data, 5, msg)
1444     # . check-ints-equal(slice->end - _test-input-stream, 17, msg)
1445     # . . push args
1446     68/push "F - test-next-word-string-or-expression-without-metadata-returns-whole-comment: end"/imm32
1447     68/push 0x11/imm32
1448     # . . push slice->end - _test-input-stream
1449     8b/-> *(ecx+4) 0/r32/eax
1450     81 5/subop/subtract %eax _test-input-stream/imm32
1451     50/push-eax
1452     # . . call
1453     e8/call check-ints-equal/disp32
1454     # . . discard args
1455     81 0/subop/add %esp 0xc/imm32
1456     # . epilogue
1457     89/<- %esp 5/r32/ebp
1458     5d/pop-to-ebp
1459     c3/return
1460 
1461 test-next-word-string-or-expression-without-metadata-returns-string-literal:
1462     # . prologue
1463     55/push-ebp
1464     89/<- %ebp 4/r32/esp
1465     # setup
1466     # . clear-stream(_test-input-stream)
1467     # . . push args
1468     68/push _test-input-stream/imm32
1469     # . . call
1470     e8/call clear-stream/disp32
1471     # . . discard args
1472     81 0/subop/add %esp 4/imm32
1473     # var slice/ecx: slice
1474     68/push 0/imm32/end
1475     68/push 0/imm32/start
1476     89/<- %ecx 4/r32/esp
1477     # write(_test-input-stream, " \"a b\" ")
1478     # . . push args
1479     68/push " \"a b\" "/imm32
1480     68/push _test-input-stream/imm32
1481     # . . call
1482     e8/call write/disp32
1483     # . . discard args
1484     81 0/subop/add %esp 8/imm32
1485     # next-word-string-or-expression-without-metadata(_test-input-stream, slice)
1486     # . . push args
1487     51/push-ecx
1488     68/push _test-input-stream/imm32
1489     # . . call
1490     e8/call next-word-string-or-expression-without-metadata/disp32
1491     # . . discard args
1492     81 0/subop/add %esp 8/imm32
1493     # check-ints-equal(slice->start - _test-input-stream->data, 1, msg)
1494     # . check-ints-equal(slice->start - _test-input-stream, 13, msg)
1495     # . . push args
1496     68/push "F - test-next-word-string-or-expression-without-metadata-returns-string-literal: start"/imm32
1497     68/push 0xd/imm32
1498     # . . push slice->start - _test-input-stream
1499     8b/-> *ecx 0/r32/eax
1500     81 5/subop/subtract %eax _test-input-stream/imm32
1501     50/push-eax
1502     # . . call
1503     e8/call check-ints-equal/disp32
1504     # . . discard args
1505     81 0/subop/add %esp 0xc/imm32
1506     # check-ints-equal(slice->end - _test-input-stream->data, 6, msg)
1507     # . check-ints-equal(slice->end - _test-input-stream, 18, msg)
1508     # . . push args
1509     68/push "F - test-next-word-string-or-expression-without-metadata-returns-string-literal: end"/imm32
1510     68/push 0x12/imm32
1511     # . . push slice->end - _test-input-stream
1512     8b/-> *(ecx+4) 0/r32/eax
1513     81 5/subop/subtract %eax _test-input-stream/imm32
1514     50/push-eax
1515     # . . call
1516     e8/call check-ints-equal/disp32
1517     # . . discard args
1518     81 0/subop/add %esp 0xc/imm32
1519     # . epilogue
1520     89/<- %esp 5/r32/ebp
1521     5d/pop-to-ebp
1522     c3/return
1523 
1524 test-next-word-string-or-expression-without-metadata-returns-string-with-escapes:
1525     # . prologue
1526     55/push-ebp
1527     89/<- %ebp 4/r32/esp
1528     # setup
1529     # . clear-stream(_test-input-stream)
1530     # . . push args
1531     68/push _test-input-stream/imm32
1532     # . . call
1533     e8/call clear-stream/disp32
1534     # . . discard args
1535     81 0/subop/add %esp 4/imm32
1536     # var slice/ecx: slice
1537     68/push 0/imm32/end
1538     68/push 0/imm32/start
1539     89/<- %ecx 4/r32/esp
1540     # write(_test-input-stream, " \"a\\\"b\"")
1541     # . . push args
1542     68/push " \"a\\\"b\""/imm32
1543     68/push _test-input-stream/imm32
1544     # . . call
1545     e8/call write/disp32
1546     # . . discard args
1547     81 0/subop/add %esp 8/imm32
1548     # next-word-string-or-expression-without-metadata(_test-input-stream, slice)
1549     # . . push args
1550     51/push-ecx
1551     68/push _test-input-stream/imm32
1552     # . . call
1553     e8/call next-word-string-or-expression-without-metadata/disp32
1554     # . . discard args
1555     81 0/subop/add %esp 8/imm32
1556     # check-ints-equal(slice->start - _test-input-stream->data, 1, msg)
1557     # . check-ints-equal(slice->start - _test-input-stream, 13, msg)
1558     # . . push args
1559     68/push "F - test-next-word-string-or-expression-without-metadata-returns-string-with-escapes: start"/imm32
1560     68/push 0xd/imm32
1561     # . . push slice->start - _test-input-stream
1562     8b/-> *ecx 0/r32/eax
1563     81 5/subop/subtract %eax _test-input-stream/imm32
1564     50/push-eax
1565     # . . call
1566     e8/call check-ints-equal/disp32
1567     # . . discard args
1568     81 0/subop/add %esp 0xc/imm32
1569     # check-ints-equal(slice->end - _test-input-stream->data, 7, msg)
1570     # . check-ints-equal(slice->end - _test-input-stream, 19, msg)
1571     # . . push args
1572     68/push "F - test-next-word-string-or-expression-without-metadata-returns-string-with-escapes: end"/imm32
1573     68/push 0x13/imm32
1574     # . . push slice->end - _test-input-stream
1575     8b/-> *(ecx+4) 0/r32/eax
1576     81 5/subop/subtract %eax _test-input-stream/imm32
1577     50/push-eax
1578     # . . call
1579     e8/call check-ints-equal/disp32
1580     # . . discard args
1581     81 0/subop/add %esp 0xc/imm32
1582     # . epilogue
1583     89/<- %esp 5/r32/ebp
1584     5d/pop-to-ebp
1585     c3/return
1586 
1587 test-next-word-string-or-expression-without-metadata-returns-whole-expression:
1588     # . prologue
1589     55/push-ebp
1590     89/<- %ebp 4/r32/esp
1591     # setup
1592     # . clear-stream(_test-input-stream)
1593     # . . push args
1594     68/push _test-input-stream/imm32
1595     # . . call
1596     e8/call clear-stream/disp32
1597     # . . discard args
1598     81 0/subop/add %esp 4/imm32
1599     # var slice/ecx: slice
1600     68/push 0/imm32/end
1601     68/push 0/imm32/start
1602     89/<- %ecx 4/r32/esp
1603     # write(_test-input-stream, " *(a b) ")
1604     # . . push args
1605     68/push " *(a b) "/imm32
1606     68/push _test-input-stream/imm32
1607     # . . call
1608     e8/call write/disp32
1609     # . . discard args
1610     81 0/subop/add %esp 8/imm32
1611     # next-word-string-or-expression-without-metadata(_test-input-stream, slice)
1612     # . . push args
1613     51/push-ecx
1614     68/push _test-input-stream/imm32
1615     # . . call
1616     e8/call next-word-string-or-expression-without-metadata/disp32
1617     # . . discard args
1618     81 0/subop/add %esp 8/imm32
1619     # check-ints-equal(slice->start - _test-input-stream->data, 1, msg)
1620     # . check-ints-equal(slice->start - _test-input-stream, 13, msg)
1621     # . . push args
1622     68/push "F - test-next-word-string-or-expression-without-metadata-returns-whole-expression: start"/imm32
1623     68/push 0xd/imm32
1624     # . . push slice->start - _test-input-stream
1625     8b/-> *ecx 0/r32/eax
1626     81 5/subop/subtract %eax _test-input-stream/imm32
1627     50/push-eax
1628     # . . call
1629     e8/call check-ints-equal/disp32
1630     # . . discard args
1631     81 0/subop/add %esp 0xc/imm32
1632     # check-ints-equal(slice->end - _test-input-stream->data, 7, msg)
1633     # . check-ints-equal(slice->end - _test-input-stream, 19, msg)
1634     # . . push args
1635     68/push "F - test-next-word-string-or-expression-without-metadata-returns-whole-expression: end"/imm32
1636     68/push 0x13/imm32
1637     # . . push slice->end - _test-input-stream
1638     8b/-> *(ecx+4) 0/r32/eax
1639     81 5/subop/subtract %eax _test-input-stream/imm32
1640     50/push-eax
1641     # . . call
1642     e8/call check-ints-equal/disp32
1643     # . . discard args
1644     81 0/subop/add %esp 0xc/imm32
1645     # . epilogue
1646     89/<- %esp 5/r32/ebp
1647     5d/pop-to-ebp
1648     c3/return
1649 
1650 test-next-word-string-or-expression-without-metadata-returns-eol-on-trailing-close-paren:
1651     # . prologue
1652     55/push-ebp
1653     89/<- %ebp 4/r32/esp
1654     # setup
1655     # . clear-stream(_test-input-stream)
1656     # . . push args
1657     68/push _test-input-stream/imm32
1658     # . . call
1659     e8/call clear-stream/disp32
1660     # . . discard args
1661     81 0/subop/add %esp 4/imm32
1662     # var slice/ecx: slice
1663     68/push 0/imm32/end
1664     68/push 0/imm32/start
1665     89/<- %ecx 4/r32/esp
1666     # write(_test-input-stream, " ) ")
1667     # . . push args
1668     68/push " ) "/imm32
1669     68/push _test-input-stream/imm32
1670     # . . call
1671     e8/call write/disp32
1672     # . . discard args
1673     81 0/subop/add %esp 8/imm32
1674     # next-word-string-or-expression-without-metadata(_test-input-stream, slice)
1675     # . . push args
1676     51/push-ecx
1677     68/push _test-input-stream/imm32
1678     # . . call
1679     e8/call next-word-string-or-expression-without-metadata/disp32
1680     # . . discard args
1681     81 0/subop/add %esp 8/imm32
1682     # check-ints-equal(slice->start, 0, msg)
1683     # . . push args
1684     68/push "F - test-next-word-string-or-expression-without-metadata-returns-eol-on-trailing-close-paren: start"/imm32
1685     68/push 0/imm32
1686     ff 6/subop/push *ecx
1687     # . . call
1688     e8/call check-ints-equal/disp32
1689     # . . discard args
1690     81 0/subop/add %esp 0xc/imm32
1691     # check-ints-equal(slice->end, 0, msg)
1692     # . . push args
1693     68/push "F - test-next-word-string-or-expression-without-metadata-returns-eol-on-trailing-close-paren: end"/imm32
1694     68/push 0/imm32
1695     ff 6/subop/push *(ecx+4)
1696     # . . call
1697     e8/call check-ints-equal/disp32
1698     # . . discard args
1699     81 0/subop/add %esp 0xc/imm32
1700     # . epilogue
1701     89/<- %esp 5/r32/ebp
1702     5d/pop-to-ebp
1703     c3/return
1704 
1705 test-next-word-string-or-expression-without-metadata-handles-comment-after-trailing-close-paren:
1706     # . prologue
1707     55/push-ebp
1708     89/<- %ebp 4/r32/esp
1709     # setup
1710     # . clear-stream(_test-input-stream)
1711     # . . push args
1712     68/push _test-input-stream/imm32
1713     # . . call
1714     e8/call clear-stream/disp32
1715     # . . discard args
1716     81 0/subop/add %esp 4/imm32
1717     # var slice/ecx: slice
1718     68/push 0/imm32/end
1719     68/push 0/imm32/start
1720     89/<- %ecx 4/r32/esp
1721     # write(_test-input-stream, " ) # abc ")
1722     # . . push args
1723     68/push " ) # abc "/imm32
1724     68/push _test-input-stream/imm32
1725     # . . call
1726     e8/call write/disp32
1727     # . . discard args
1728     81 0/subop/add %esp 8/imm32
1729     # next-word-string-or-expression-without-metadata(_test-input-stream, slice)
1730     # . . push args
1731     51/push-ecx
1732     68/push _test-input-stream/imm32
1733     # . . call
1734     e8/call next-word-string-or-expression-without-metadata/disp32
1735     # . . discard args
1736     81 0/subop/add %esp 8/imm32
1737     # check-ints-equal(slice->start, 0, msg)
1738     # . . push args
1739     68/push "F - test-next-word-string-or-expression-without-metadata-handles-comment-after-trailing-close-paren: start"/imm32
1740     68/push 0/imm32
1741     ff 6/subop/push *ecx
1742     # . . call
1743     e8/call check-ints-equal/disp32
1744     # . . discard args
1745     81 0/subop/add %esp 0xc/imm32
1746     # check-ints-equal(slice->end, 0, msg)
1747     # . . push args
1748     68/push "F - test-next-word-string-or-expression-without-metadata-handles-comment-after-trailing-close-paren: end"/imm32
1749     68/push 0/imm32
1750     ff 6/subop/push *(ecx+4)
1751     # . . call
1752     e8/call check-ints-equal/disp32
1753     # . . discard args
1754     81 0/subop/add %esp 0xc/imm32
1755     # . epilogue
1756     89/<- %esp 5/r32/ebp
1757     5d/pop-to-ebp
1758     c3/return
1759 
1760 test-next-word-string-or-expression-without-metadata-handles-newline-after-trailing-close-paren:
1761     # . prologue
1762     55/push-ebp
1763     89/<- %ebp 4/r32/esp
1764     # setup
1765     # . clear-stream(_test-input-stream)
1766     # . . push args
1767     68/push _test-input-stream/imm32
1768     # . . call
1769     e8/call clear-stream/disp32
1770     # . . discard args
1771     81 0/subop/add %esp 4/imm32
1772     # var slice/ecx: slice
1773     68/push 0/imm32/end
1774     68/push 0/imm32/start
1775     89/<- %ecx 4/r32/esp
1776     # write(_test-input-stream, " )\n")
1777     # . . push args
1778     68/push " )\n"/imm32
1779     68/push _test-input-stream/imm32
1780     # . . call
1781     e8/call write/disp32
1782     # . . discard args
1783     81 0/subop/add %esp 8/imm32
1784     # next-word-string-or-expression-without-metadata(_test-input-stream, slice)
1785     # . . push args
1786     51/push-ecx
1787     68/push _test-input-stream/imm32
1788     # . . call
1789     e8/call next-word-string-or-expression-without-metadata/disp32
1790     # . . discard args
1791     81 0/subop/add %esp 8/imm32
1792     # check-ints-equal(slice->start, 0, msg)
1793     # . . push args
1794     68/push "F - test-next-word-string-or-expression-without-metadata-handles-newline-after-trailing-close-paren: start"/imm32
1795     68/push 0/imm32
1796     ff 6/subop/push *ecx
1797     # . . call
1798     e8/call check-ints-equal/disp32
1799     # . . discard args
1800     81 0/subop/add %esp 0xc/imm32
1801     # check-ints-equal(slice->end, 0, msg)
1802     # . . push args
1803     68/push "F - test-next-word-string-or-expression-without-metadata-handles-newline-after-trailing-close-paren: end"/imm32
1804     68/push 0/imm32
1805     ff 6/subop/push *(ecx+4)
1806     # . . call
1807     e8/call check-ints-equal/disp32
1808     # . . discard args
1809     81 0/subop/add %esp 0xc/imm32
1810     # . epilogue
1811     89/<- %esp 5/r32/ebp
1812     5d/pop-to-ebp
1813     c3/return
1814 
1815 test-next-word-string-or-expression-without-metadata-stops-at-close-paren:
1816     # . prologue
1817     55/push-ebp
1818     89/<- %ebp 4/r32/esp
1819     # setup
1820     # . clear-stream(_test-input-stream)
1821     # . . push args
1822     68/push _test-input-stream/imm32
1823     # . . call
1824     e8/call clear-stream/disp32
1825     # . . discard args
1826     81 0/subop/add %esp 4/imm32
1827     # var slice/ecx: slice
1828     68/push 0/imm32/end
1829     68/push 0/imm32/start
1830     89/<- %ecx 4/r32/esp
1831     # write(_test-input-stream, " abc) # def")
1832     # . . push args
1833     68/push " abc) # def"/imm32
1834     68/push _test-input-stream/imm32
1835     # . . call
1836     e8/call write/disp32
1837     # . . discard args
1838     81 0/subop/add %esp 8/imm32
1839     # next-word-string-or-expression-without-metadata(_test-input-stream, slice)
1840     # . . push args
1841     51/push-ecx
1842     68/push _test-input-stream/imm32
1843     # . . call
1844     e8/call next-word-string-or-expression-without-metadata/disp32
1845     # . . discard args
1846     81 0/subop/add %esp 8/imm32
1847     # check-ints-equal(slice->start - _test-input-stream->data, 1, msg)
1848     # . check-ints-equal(slice->start - _test-input-stream, 13, msg)
1849     # . . push args
1850     68/push "F - test-next-word-string-or-expression-without-metadata-stops-at-close-paren: start"/imm32
1851     68/push 0xd/imm32
1852     # . . push slice->start - _test-input-stream
1853     8b/-> *ecx 0/r32/eax
1854     81 5/subop/subtract %eax _test-input-stream/imm32
1855     50/push-eax
1856     # . . call
1857     e8/call check-ints-equal/disp32
1858     # . . discard args
1859     81 0/subop/add %esp 0xc/imm32
1860     # check-ints-equal(slice->end - _test-input-stream->data, 4, msg)
1861     # . check-ints-equal(slice->end - _test-input-stream, 16, msg)
1862     # . . push args
1863     68/push "F - test-next-word-string-or-expression-without-metadata-stops-at-close-paren: end"/imm32
1864     68/push 0x10/imm32
1865     # . . push slice->end - _test-input-stream
1866     8b/-> *(ecx+4) 0/r32/eax
1867     81 5/subop/subtract %eax _test-input-stream/imm32
1868     50/push-eax
1869     # . . call
1870     e8/call check-ints-equal/disp32
1871     # . . discard args
1872     81 0/subop/add %esp 0xc/imm32
1873     # . epilogue
1874     89/<- %esp 5/r32/ebp
1875     5d/pop-to-ebp
1876     c3/return