about summary refs log tree commit diff stats
path: root/apps
diff options
context:
space:
mode:
authorKartik Agaram <vc@akkartik.com>2019-09-01 00:25:59 -0700
committerKartik Agaram <vc@akkartik.com>2019-09-01 00:39:17 -0700
commitc94ecaf687cd53d7be8a9cafe5d0860f3e1373dd (patch)
tree624572e254eb886736e4bba1b94f88f3c70e9238 /apps
parentcafca9509766c12fb9ddbaf404c7edebbc56791e (diff)
downloadmu-c94ecaf687cd53d7be8a9cafe5d0860f3e1373dd.tar.gz
5603
Diffstat (limited to 'apps')
-rwxr-xr-xapps/sigilsbin51875 -> 51875 bytes
-rw-r--r--apps/sigils.subx24
2 files changed, 12 insertions, 12 deletions
diff --git a/apps/sigils b/apps/sigils
index c6089ec5..6c3405a5 100755
--- a/apps/sigils
+++ b/apps/sigils
Binary files differdiff --git a/apps/sigils.subx b/apps/sigils.subx
index 9772e5ad..abc5fcd3 100644
--- a/apps/sigils.subx
+++ b/apps/sigils.subx
@@ -112,7 +112,7 @@ convert:  # in : (address buffered-file), out : (address buffered-file) -> <void
     #       if slice-starts-with?(word-slice, "#")        # comment
     #         continue
     #       if slice-starts-with?(word-slice, '%')        # direct mode
-    #         emit-direct-mode(word-slice, out)
+    #         emit-direct-mode(out, word-slice)
     #       else if slice-starts-with?(word-slice, '*')   # indirect mode
     #         base, index, scale, disp = parse-effective-address(word-slice)
     #         emit-indirect-mode(out, base, index, scale, disp)
@@ -244,10 +244,10 @@ $convert:direct-mode:
 #?     # . . discard args
 #?     81          0/subop/add         3/mod/direct    4/rm32/esp    .           .             .           .           .               8/imm32           # add to esp
 #?     # }}}
-    # emit-direct-mode(word-slice, out)
+    # emit-direct-mode(out, word-slice)
     # . . push args
-    ff          6/subop/push        1/mod/*+disp8   5/rm32/ebp    .           .             .           .           0xc/disp8       .                 # push *(ebp+12)
     52/push-edx
+    ff          6/subop/push        1/mod/*+disp8   5/rm32/ebp    .           .             .           .           0xc/disp8       .                 # push *(ebp+12)
     # . . call
     e8/call  emit-direct-mode/disp32
     # . . discard args
@@ -1272,14 +1272,14 @@ test-convert-register-indirect-mode-with-sib-byte-negative-displacement:
     5d/pop-to-ebp
     c3/return
 
-emit-direct-mode:  # word-slice : (address slice), out : (address buffered-file)
+emit-direct-mode:  # out : (address buffered-file), word-slice : (address slice)
     # . prolog
     55/push-ebp
     89/copy                         3/mod/direct    5/rm32/ebp    .           .             .           4/r32/esp   .               .                 # copy esp to ebp
     # . save registers
     50/push-eax
     # var local-slice/eax : (address slice) = {word-slice->start, word-slice->end}
-    8b/copy                         1/mod/*+disp8   5/rm32/ebp    .           .             .           0/r32/eax   8/disp8         .                 # copy *(ebp+8) to eax
+    8b/copy                         1/mod/*+disp8   5/rm32/ebp    .           .             .           0/r32/eax   0xc/disp8       .                 # copy *(ebp+12) to eax
     ff          6/subop/push        1/mod/*+disp8   0/rm32/eax    .           .             .           .           4/disp8         .                 # push *(eax+4)
     ff          6/subop/push        0/mod/indirect  0/rm32/eax    .           .             .           .           .               .                 # push *eax
     89/copy                         3/mod/direct    0/rm32/eax    .           .             .           4/r32/esp   .               .                 # copy esp to eax
@@ -1309,7 +1309,7 @@ emit-direct-mode:  # word-slice : (address slice), out : (address buffered-file)
     # write-buffered(out, "3/mod/direct ")
     # . . push args
     68/push  "3/mod/direct "/imm32
-    ff          6/subop/push        1/mod/*+disp8   5/rm32/ebp    .           .             .           .           0xc/disp8       .                 # push *(ebp+12)
+    ff          6/subop/push        1/mod/*+disp8   5/rm32/ebp    .           .             .           .           8/disp8         .                 # push *(ebp+8)
     # . . call
     e8/call  write-buffered/disp32
     # . . discard args
@@ -1317,7 +1317,7 @@ emit-direct-mode:  # word-slice : (address slice), out : (address buffered-file)
     # print-int32-buffered(out, *eax)
     # . . push args
     ff          6/subop/push        0/mod/indirect  0/rm32/eax    .           .             .           .           .               .                 # push *eax
-    ff          6/subop/push        1/mod/*+disp8   5/rm32/ebp    .           .             .           .           0xc/disp8       .                 # push *(ebp+12)
+    ff          6/subop/push        1/mod/*+disp8   5/rm32/ebp    .           .             .           .           8/disp8         .                 # push *(ebp+8)
     # . . call
     e8/call  print-int32-buffered/disp32
     # . . discard args
@@ -1325,7 +1325,7 @@ emit-direct-mode:  # word-slice : (address slice), out : (address buffered-file)
     # write-buffered(out, "/rm32")
     # . . push args
     68/push  "/rm32"/imm32
-    ff          6/subop/push        1/mod/*+disp8   5/rm32/ebp    .           .             .           .           0xc/disp8       .                 # push *(ebp+12)
+    ff          6/subop/push        1/mod/*+disp8   5/rm32/ebp    .           .             .           .           8/disp8         .                 # push *(ebp+8)
     # . . call
     e8/call  write-buffered/disp32
     # . . discard args
@@ -1370,10 +1370,10 @@ test-emit-direct-mode:
     51/push-ecx
     50/push-eax
     89/copy                         3/mod/direct    1/rm32/ecx    .           .             .           4/r32/esp   .               .                 # copy esp to ecx
-    # emit-direct-mode(str, _test-output-buffered-file)
+    # emit-direct-mode(_test-output-buffered-file, str)
     # . . push args
-    68/push  _test-output-buffered-file/imm32
     51/push-ecx
+    68/push  _test-output-buffered-file/imm32
     # . . call
     e8/call  emit-direct-mode/disp32
     # . . discard args
@@ -1455,10 +1455,10 @@ test-emit-direct-mode-2:
     51/push-ecx
     50/push-eax
     89/copy                         3/mod/direct    1/rm32/ecx    .           .             .           4/r32/esp   .               .                 # copy esp to ecx
-    # emit-direct-mode(str/ecx, _test-output-buffered-file)
+    # emit-direct-mode(_test-output-buffered-file, str/ecx)
     # . . push args
-    68/push  _test-output-buffered-file/imm32
     51/push-ecx
+    68/push  _test-output-buffered-file/imm32
     # . . call
     e8/call  emit-direct-mode/disp32
     # . . discard args