about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorKartik Agaram <vc@akkartik.com>2019-09-06 14:47:39 -0700
committerKartik Agaram <vc@akkartik.com>2019-09-06 14:47:39 -0700
commitf9973de3b19ca75d05478a8b883dc98aa6a5236f (patch)
tree1abd2724a7374a5ab8dae7a2af09cc803c681a75
parent77641c35d3b2a6b516fce6a7b2a319d809999559 (diff)
downloadmu-f9973de3b19ca75d05478a8b883dc98aa6a5236f.tar.gz
5627
-rw-r--r--apps/calls.subx82
1 files changed, 41 insertions, 41 deletions
diff --git a/apps/calls.subx b/apps/calls.subx
index 8c902032..6768fe7f 100644
--- a/apps/calls.subx
+++ b/apps/calls.subx
@@ -669,7 +669,7 @@ test-next-word-string-or-expression-without-metadata:
     # var slice/ecx = {0, 0}
     68/push 0/imm32/end
     68/push 0/imm32/start
-    89/copy                         3/mod/direct    1/rm32/ecx    .           .             .           4/r32/esp   .               .                 # copy esp to ecx
+    89/<- %ecx 4/r32/esp
     # write(_test-input-stream, "  ab")
     # . . push args
     68/push "  ab"/imm32
@@ -691,7 +691,7 @@ test-next-word-string-or-expression-without-metadata:
     68/push "F - test-next-word-string-or-expression-without-metadata/updates-stream-read-correctly"/imm32
     68/push 4/imm32
     b8/copy-to-eax _test-input-stream/imm32
-    ff          6/subop/push        1/mod/*+disp8   0/rm32/eax    .           .             .           .           4/disp8         .                 # push *(eax+4)
+    ff 6/subop/push *(eax+4)
     # . . call
     e8/call check-ints-equal/disp32
     # . . discard args
@@ -702,8 +702,8 @@ test-next-word-string-or-expression-without-metadata:
     68/push "F - test-next-word-string-or-expression-without-metadata: start"/imm32
     68/push 0xe/imm32
     # . . push slice->start - _test-input-stream
-    8b/copy                         0/mod/indirect  1/rm32/ecx    .           .             .           0/r32/eax   .               .                 # copy *ecx to eax
-    81          5/subop/subtract    3/mod/direct    0/rm32/eax    .           .             .           .           .               _test-input-stream/imm32 # subtract from eax
+    8b/-> *ecx 0/r32/eax
+    81 5/subop/subtract %eax _test-input-stream/imm32
     50/push-eax
     # . . call
     e8/call check-ints-equal/disp32
@@ -715,8 +715,8 @@ test-next-word-string-or-expression-without-metadata:
     68/push "F - test-next-word-string-or-expression-without-metadata: end"/imm32
     68/push 0x10/imm32
     # . . push slice->end - _test-input-stream
-    8b/copy                         1/mod/*+disp8   1/rm32/ecx    .           .             .           0/r32/eax   4/disp8         .                 # copy *(ecx+4) to eax
-    81          5/subop/subtract    3/mod/direct    0/rm32/eax    .           .             .           .           .               _test-input-stream/imm32 # subtract from eax
+    8b/-> *(ecx+4) 0/r32/eax
+    81 5/subop/subtract %eax _test-input-stream/imm32
     50/push-eax
     # . . call
     e8/call check-ints-equal/disp32
@@ -742,7 +742,7 @@ test-next-word-string-or-expression-without-metadata-returns-whole-comment:
     # var slice/ecx = {0, 0}
     68/push 0/imm32/end
     68/push 0/imm32/start
-    89/copy                         3/mod/direct    1/rm32/ecx    .           .             .           4/r32/esp   .               .                 # copy esp to ecx
+    89/<- %ecx 4/r32/esp
     # write(_test-input-stream, "  # a")
     # . . push args
     68/push "  # a"/imm32
@@ -764,7 +764,7 @@ test-next-word-string-or-expression-without-metadata-returns-whole-comment:
     68/push "F - test-next-word-string-or-expression-without-metadata-returns-whole-comment/updates-stream-read-correctly"/imm32
     68/push 5/imm32
     b8/copy-to-eax _test-input-stream/imm32
-    ff          6/subop/push        1/mod/*+disp8   0/rm32/eax    .           .             .           .           4/disp8         .                 # push *(eax+4)
+    ff 6/subop/push *(eax+4)
     # . . call
     e8/call check-ints-equal/disp32
     # . . discard args
@@ -775,8 +775,8 @@ test-next-word-string-or-expression-without-metadata-returns-whole-comment:
     68/push "F - test-next-word-string-or-expression-without-metadata-returns-whole-comment: start"/imm32
     68/push 0xe/imm32
     # . . push slice->start - _test-input-stream
-    8b/copy                         0/mod/indirect  1/rm32/ecx    .           .             .           0/r32/eax   .               .                 # copy *ecx to eax
-    81          5/subop/subtract    3/mod/direct    0/rm32/eax    .           .             .           .           .               _test-input-stream/imm32 # subtract from eax
+    8b/-> *ecx 0/r32/eax
+    81 5/subop/subtract %eax _test-input-stream/imm32
     50/push-eax
     # . . call
     e8/call check-ints-equal/disp32
@@ -788,8 +788,8 @@ test-next-word-string-or-expression-without-metadata-returns-whole-comment:
     68/push "F - test-next-word-string-or-expression-without-metadata-returns-whole-comment: end"/imm32
     68/push 0x11/imm32
     # . . push slice->end - _test-input-stream
-    8b/copy                         1/mod/*+disp8   1/rm32/ecx    .           .             .           0/r32/eax   4/disp8         .                 # copy *(ecx+4) to eax
-    81          5/subop/subtract    3/mod/direct    0/rm32/eax    .           .             .           .           .               _test-input-stream/imm32 # subtract from eax
+    8b/-> *(ecx+4) 0/r32/eax
+    81 5/subop/subtract %eax _test-input-stream/imm32
     50/push-eax
     # . . call
     e8/call check-ints-equal/disp32
@@ -815,7 +815,7 @@ test-next-word-string-or-expression-without-metadata-returns-empty-slice-on-eof:
     # var slice/ecx = {0, 0}
     68/push 0/imm32/end
     68/push 0/imm32/start
-    89/copy                         3/mod/direct    1/rm32/ecx    .           .             .           4/r32/esp   .               .                 # copy esp to ecx
+    89/<- %ecx 4/r32/esp
     # write nothing to _test-input-stream
     # next-word-string-or-expression-without-metadata(_test-input-stream, slice)
     # . . push args
@@ -830,8 +830,8 @@ test-next-word-string-or-expression-without-metadata-returns-empty-slice-on-eof:
     68/push "F - test-next-word-string-or-expression-without-metadata-returns-empty-expression-on-eof"/imm32
     68/push 0/imm32
     # . . push slice->end - slice->start
-    8b/copy                         1/mod/*+disp8   1/rm32/ecx    .           .             .           0/r32/eax   4/disp8         .                 # copy *(ecx+4) to eax
-    2b/subtract                     0/mod/indirect  1/rm32/ecx    .           .             .           0/r32/eax   .               .                 # subtract *ecx from eax
+    8b/-> *(ecx+4) 0/r32/eax
+    2b/subtract-> *ecx 0/r32/eax  # subtract *ecx from eax
     50/push-eax
     # . . call
     e8/call check-ints-equal/disp32
@@ -857,7 +857,7 @@ test-next-word-string-or-expression-without-metadata-returns-string-literal:
     # var slice/ecx = {0, 0}
     68/push 0/imm32/end
     68/push 0/imm32/start
-    89/copy                         3/mod/direct    1/rm32/ecx    .           .             .           4/r32/esp   .               .                 # copy esp to ecx
+    89/<- %ecx 4/r32/esp
     # write(_test-input-stream, " \"a b\" ")
     # . . push args
     68/push " \"a b\" "/imm32
@@ -880,8 +880,8 @@ test-next-word-string-or-expression-without-metadata-returns-string-literal:
     68/push "F - test-next-word-string-or-expression-without-metadata-returns-string-literal: start"/imm32
     68/push 0xd/imm32
     # . . push slice->start - _test-input-stream
-    8b/copy                         0/mod/indirect  1/rm32/ecx    .           .             .           0/r32/eax   .               .                 # copy *ecx to eax
-    81          5/subop/subtract    3/mod/direct    0/rm32/eax    .           .             .           .           .               _test-input-stream/imm32 # subtract from eax
+    8b/-> *ecx 0/r32/eax
+    81 5/subop/subtract %eax _test-input-stream/imm32
     50/push-eax
     # . . call
     e8/call check-ints-equal/disp32
@@ -893,8 +893,8 @@ test-next-word-string-or-expression-without-metadata-returns-string-literal:
     68/push "F - test-next-word-string-or-expression-without-metadata-returns-string-literal: end"/imm32
     68/push 0x12/imm32
     # . . push slice->end - _test-input-stream
-    8b/copy                         1/mod/*+disp8   1/rm32/ecx    .           .             .           0/r32/eax   4/disp8         .                 # copy *(ecx+4) to eax
-    81          5/subop/subtract    3/mod/direct    0/rm32/eax    .           .             .           .           .               _test-input-stream/imm32 # subtract from eax
+    8b/-> *(ecx+4) 0/r32/eax
+    81 5/subop/subtract %eax _test-input-stream/imm32
     50/push-eax
     # . . call
     e8/call check-ints-equal/disp32
@@ -920,7 +920,7 @@ test-next-word-string-or-expression-without-metadata-returns-string-with-escapes
     # var slice/ecx = {0, 0}
     68/push 0/imm32/end
     68/push 0/imm32/start
-    89/copy                         3/mod/direct    1/rm32/ecx    .           .             .           4/r32/esp   .               .                 # copy esp to ecx
+    89/<- %ecx 4/r32/esp
     # write(_test-input-stream, " \"a\\\"b\"")
     # . . push args
     68/push " \"a\\\"b\""/imm32
@@ -943,8 +943,8 @@ test-next-word-string-or-expression-without-metadata-returns-string-with-escapes
     68/push "F - test-next-word-string-or-expression-without-metadata-returns-string-with-escapes: start"/imm32
     68/push 0xd/imm32
     # . . push slice->start - _test-input-stream
-    8b/copy                         0/mod/indirect  1/rm32/ecx    .           .             .           0/r32/eax   .               .                 # copy *ecx to eax
-    81          5/subop/subtract    3/mod/direct    0/rm32/eax    .           .             .           .           .               _test-input-stream/imm32 # subtract from eax
+    8b/-> *ecx 0/r32/eax
+    81 5/subop/subtract %eax _test-input-stream/imm32
     50/push-eax
     # . . call
     e8/call check-ints-equal/disp32
@@ -956,8 +956,8 @@ test-next-word-string-or-expression-without-metadata-returns-string-with-escapes
     68/push "F - test-next-word-string-or-expression-without-metadata-returns-string-with-escapes: end"/imm32
     68/push 0x13/imm32
     # . . push slice->end - _test-input-stream
-    8b/copy                         1/mod/*+disp8   1/rm32/ecx    .           .             .           0/r32/eax   4/disp8         .                 # copy *(ecx+4) to eax
-    81          5/subop/subtract    3/mod/direct    0/rm32/eax    .           .             .           .           .               _test-input-stream/imm32 # subtract from eax
+    8b/-> *(ecx+4) 0/r32/eax
+    81 5/subop/subtract %eax _test-input-stream/imm32
     50/push-eax
     # . . call
     e8/call check-ints-equal/disp32
@@ -983,7 +983,7 @@ test-next-word-string-or-expression-without-metadata-returns-whole-expression:
     # var slice/ecx = {0, 0}
     68/push 0/imm32/end
     68/push 0/imm32/start
-    89/copy                         3/mod/direct    1/rm32/ecx    .           .             .           4/r32/esp   .               .                 # copy esp to ecx
+    89/<- %ecx 4/r32/esp
     # write(_test-input-stream, " *(a b) ")
     # . . push args
     68/push " *(a b) "/imm32
@@ -1006,8 +1006,8 @@ test-next-word-string-or-expression-without-metadata-returns-whole-expression:
     68/push "F - test-next-word-string-or-expression-without-metadata-returns-whole-expression: start"/imm32
     68/push 0xd/imm32
     # . . push slice->start - _test-input-stream
-    8b/copy                         0/mod/indirect  1/rm32/ecx    .           .             .           0/r32/eax   .               .                 # copy *ecx to eax
-    81          5/subop/subtract    3/mod/direct    0/rm32/eax    .           .             .           .           .               _test-input-stream/imm32 # subtract from eax
+    8b/-> *ecx 0/r32/eax
+    81 5/subop/subtract %eax _test-input-stream/imm32
     50/push-eax
     # . . call
     e8/call check-ints-equal/disp32
@@ -1019,8 +1019,8 @@ test-next-word-string-or-expression-without-metadata-returns-whole-expression:
     68/push "F - test-next-word-string-or-expression-without-metadata-returns-whole-expression: end"/imm32
     68/push 0x13/imm32
     # . . push slice->end - _test-input-stream
-    8b/copy                         1/mod/*+disp8   1/rm32/ecx    .           .             .           0/r32/eax   4/disp8         .                 # copy *(ecx+4) to eax
-    81          5/subop/subtract    3/mod/direct    0/rm32/eax    .           .             .           .           .               _test-input-stream/imm32 # subtract from eax
+    8b/-> *(ecx+4) 0/r32/eax
+    81 5/subop/subtract %eax _test-input-stream/imm32
     50/push-eax
     # . . call
     e8/call check-ints-equal/disp32
@@ -1046,7 +1046,7 @@ test-next-word-string-or-expression-without-metadata-returns-eol-on-trailing-clo
     # var slice/ecx = {0, 0}
     68/push 0/imm32/end
     68/push 0/imm32/start
-    89/copy                         3/mod/direct    1/rm32/ecx    .           .             .           4/r32/esp   .               .                 # copy esp to ecx
+    89/<- %ecx 4/r32/esp
     # write(_test-input-stream, " ) ")
     # . . push args
     68/push " ) "/imm32
@@ -1067,7 +1067,7 @@ test-next-word-string-or-expression-without-metadata-returns-eol-on-trailing-clo
     # . . push args
     68/push "F - test-next-word-string-or-expression-without-metadata-returns-eol-on-trailing-close-paren: start"/imm32
     68/push 0/imm32
-    ff          6/subop/push        0/mod/indirect  1/rm32/ecx    .           .             .           .           .               .                 # push *ecx
+    ff 6/subop/push *ecx
     # . . call
     e8/call check-ints-equal/disp32
     # . . discard args
@@ -1076,7 +1076,7 @@ test-next-word-string-or-expression-without-metadata-returns-eol-on-trailing-clo
     # . . push args
     68/push "F - test-next-word-string-or-expression-without-metadata-returns-eol-on-trailing-close-paren: end"/imm32
     68/push 0/imm32
-    ff          6/subop/push        1/mod/*+disp8   1/rm32/ecx    .           .             .           .           4/disp8         .                 # push *(ecx+4)
+    ff 6/subop/push *(ecx+4)
     # . . call
     e8/call check-ints-equal/disp32
     # . . discard args
@@ -1101,7 +1101,7 @@ test-next-word-string-or-expression-without-metadata-handles-comment-after-trail
     # var slice/ecx = {0, 0}
     68/push 0/imm32/end
     68/push 0/imm32/start
-    89/copy                         3/mod/direct    1/rm32/ecx    .           .             .           4/r32/esp   .               .                 # copy esp to ecx
+    89/<- %ecx 4/r32/esp
     # write(_test-input-stream, " ) # abc ")
     # . . push args
     68/push " ) # abc "/imm32
@@ -1122,7 +1122,7 @@ test-next-word-string-or-expression-without-metadata-handles-comment-after-trail
     # . . push args
     68/push "F - test-next-word-string-or-expression-without-metadata-returns-eol-on-trailing-close-paren: start"/imm32
     68/push 0/imm32
-    ff          6/subop/push        0/mod/indirect  1/rm32/ecx    .           .             .           .           .               .                 # push *ecx
+    ff 6/subop/push *ecx
     # . . call
     e8/call check-ints-equal/disp32
     # . . discard args
@@ -1131,7 +1131,7 @@ test-next-word-string-or-expression-without-metadata-handles-comment-after-trail
     # . . push args
     68/push "F - test-next-word-string-or-expression-without-metadata-returns-eol-on-trailing-close-paren: end"/imm32
     68/push 0/imm32
-    ff          6/subop/push        1/mod/*+disp8   1/rm32/ecx    .           .             .           .           4/disp8         .                 # push *(ecx+4)
+    ff 6/subop/push *(ecx+4)
     # . . call
     e8/call check-ints-equal/disp32
     # . . discard args
@@ -1156,7 +1156,7 @@ test-next-word-string-or-expression-without-metadata-stops-at-close-paren:
     # var slice/ecx = {0, 0}
     68/push 0/imm32/end
     68/push 0/imm32/start
-    89/copy                         3/mod/direct    1/rm32/ecx    .           .             .           4/r32/esp   .               .                 # copy esp to ecx
+    89/<- %ecx 4/r32/esp
     # write(_test-input-stream, " abc) # def")
     # . . push args
     68/push " abc) # def"/imm32
@@ -1179,8 +1179,8 @@ test-next-word-string-or-expression-without-metadata-stops-at-close-paren:
     68/push "F - test-next-word-string-or-expression-without-metadata-stops-at-close-paren: start"/imm32
     68/push 0xd/imm32
     # . . push slice->start - _test-input-stream
-    8b/copy                         0/mod/indirect  1/rm32/ecx    .           .             .           0/r32/eax   .               .                 # copy *ecx to eax
-    81          5/subop/subtract    3/mod/direct    0/rm32/eax    .           .             .           .           .               _test-input-stream/imm32 # subtract from eax
+    8b/-> *ecx 0/r32/eax
+    81 5/subop/subtract %eax _test-input-stream/imm32
     50/push-eax
     # . . call
     e8/call check-ints-equal/disp32
@@ -1192,8 +1192,8 @@ test-next-word-string-or-expression-without-metadata-stops-at-close-paren:
     68/push "F - test-next-word-string-or-expression-without-metadata-stops-at-close-paren: end"/imm32
     68/push 0x10/imm32
     # . . push slice->end - _test-input-stream
-    8b/copy                         1/mod/*+disp8   1/rm32/ecx    .           .             .           0/r32/eax   4/disp8         .                 # copy *(ecx+4) to eax
-    81          5/subop/subtract    3/mod/direct    0/rm32/eax    .           .             .           .           .               _test-input-stream/imm32 # subtract from eax
+    8b/-> *(ecx+4) 0/r32/eax
+    81 5/subop/subtract %eax _test-input-stream/imm32
     50/push-eax
     # . . call
     e8/call check-ints-equal/disp32