Mu - 133subx-widths.subx

From 3350c34a74844e21ea69077e01efff3bae64bdcd Mon Sep 17 00:00:00 2001 From: Kartik Agaram Date: Tue, 23 Mar 2021 17:31:08 -0700 Subject: . --- html/133subx-widths.subx.html | 306 ------------------------------------------ 1 file changed, 306 deletions(-) delete mode 100644 html/133subx-widths.subx.html (limited to 'html/133subx-widths.subx.html') diff --git a/html/133subx-widths.subx.html b/html/133subx-widths.subx.html deleted file mode 100644 index 67edfe0e..00000000 --- a/html/133subx-widths.subx.html +++ /dev/null @@ -1,306 +0,0 @@ - - - - -Mu - 133subx-widths.subx - - - - - - - - - - -https://github.com/akkartik/mu/blob/main/133subx-widths.subx -
-  1 # Helpers to compute widths of SubX arguments based on their metadata.
-  2 #   /imm8 => 1 byte,
-  3 #   /disp32 => 4 bytes,
-  4 #   and so on.
-  5 
-  6 == code
-  7 #   instruction                     effective address                                                   register    displacement    immediate
-  8 # . op          subop               mod             rm32          base        index         scale       r32
-  9 # . 1-3 bytes   3 bits              2 bits          3 bits        3 bits      3 bits        2 bits      2 bits      0/1/2/4 bytes   0/1/2/4 bytes
- 10 
- 11 compute-width:  # word: (addr array byte) -> result/eax: int
- 12     # . prologue
- 13     55/push-ebp
- 14     89/copy                         3/mod/direct    5/rm32/ebp    .           .             .           4/r32/esp   .               .                 # copy esp to ebp
- 15     # . save registers
- 16     51/push-ecx
- 17     # eax = word
- 18     8b/copy                         1/mod/*+disp8   5/rm32/ebp    .           .             .           0/r32/eax   8/disp8         .                 # copy *(ebp+8) to ecx
- 19     # var ecx: (addr byte) = &word[word->size]
- 20     8b/copy                         0/mod/indirect  0/rm32/eax    .           .             .           1/r32/ecx   .               .                 # copy *eax to ecx
- 21     8d/copy-address                 1/mod/*+disp8   4/rm32/sib    0/base/eax  1/index/ecx   .           1/r32/ecx   4/disp8         .                 # copy eax+ecx+4 to ecx
- 22     # eax = word->data
- 23     05/add-to-eax  4/imm32
- 24     # var in/ecx: slice = {eax, ecx}
- 25     51/push-ecx
- 26     50/push-eax
- 27     89/copy                         3/mod/direct    1/rm32/ecx    .           .             .           4/r32/esp   .               .                 # copy esp to ecx
- 28     # return compute-width-of-slice(ecx)
- 29     # . . push args
- 30     51/push-ecx
- 31     # . . call
- 32     e8/call  compute-width-of-slice/disp32
- 33     # . . discard args
- 34     81          0/subop/add         3/mod/direct    4/rm32/esp    .           .             .           .           .               4/imm32           # add to esp
- 35 $compute-width:end:
- 36     # . reclaim locals
- 37     81          0/subop/add         3/mod/direct    4/rm32/esp    .           .             .           .           .               8/imm32           # add to esp
- 38     # . restore registers
- 39     59/pop-to-ecx
- 40     # . epilogue
- 41     89/copy                         3/mod/direct    4/rm32/esp    .           .             .           5/r32/ebp   .               .                 # copy ebp to esp
- 42     5d/pop-to-ebp
- 43     c3/return
- 44 
- 45 compute-width-of-slice:  # s: (addr slice) -> result/eax: int
- 46     # . prologue
- 47     55/push-ebp
- 48     89/copy                         3/mod/direct    5/rm32/ebp    .           .             .           4/r32/esp   .               .                 # copy esp to ebp
- 49     # . save registers
- 50     51/push-ecx
- 51     # ecx = s
- 52     8b/copy                         1/mod/*+disp8   5/rm32/ebp    .           .             .           1/r32/ecx   8/disp8         .                 # copy *(ebp+8) to ecx
- 53     # if (has-metadata?(word, "imm32")) return 4
- 54     # . eax = has-metadata?(word, "imm32")
- 55     # . . push args
- 56     68/push  "imm32"/imm32
- 57     51/push-ecx
- 58     # . . call
- 59     e8/call  has-metadata?/disp32
- 60     # . . discard args
- 61     81          0/subop/add         3/mod/direct    4/rm32/esp    .           .             .           .           .               8/imm32           # add to esp
- 62     # . if (eax != false) return 4
- 63     3d/compare-eax-and  0/imm32/false
- 64     b8/copy-to-eax  4/imm32         # ZF is set, so we can overwrite eax now
- 65     75/jump-if-!=  $compute-width-of-slice:end/disp8
- 66     # if (has-metadata?(word, "disp32")) return 4
- 67     # . eax = has-metadata?(word, "disp32")
- 68     # . . push args
- 69     68/push  "disp32"/imm32
- 70     51/push-ecx
- 71     # . . call
- 72     e8/call  has-metadata?/disp32
- 73     # . . discard args
- 74     81          0/subop/add         3/mod/direct    4/rm32/esp    .           .             .           .           .               8/imm32           # add to esp
- 75     # . if (eax != false) return 4
- 76     3d/compare-eax-and  0/imm32/false
- 77     b8/copy-to-eax  4/imm32         # ZF is set, so we can overwrite eax now
- 78     75/jump-if-!=  $compute-width-of-slice:end/disp8
- 79     # if (has-metadata?(word, "imm16")) return 2
- 80     # . eax = has-metadata?(word, "imm16")
- 81     # . . push args
- 82     68/push  "imm16"/imm32
- 83     51/push-ecx
- 84     # . . call
- 85     e8/call  has-metadata?/disp32
- 86     # . . discard args
- 87     81          0/subop/add         3/mod/direct    4/rm32/esp    .           .             .           .           .               8/imm32           # add to esp
- 88     # . if (eax != false) return 2
- 89     3d/compare-eax-and  0/imm32/false
- 90     b8/copy-to-eax  2/imm32         # ZF is set, so we can overwrite eax now
- 91     75/jump-if-!=  $compute-width-of-slice:end/disp8
- 92     # if (has-metadata?(word, "disp16")) return 2
- 93     # . eax = has-metadata?(word, "disp16")
- 94     # . . push args
- 95     68/push  "disp16"/imm32
- 96     51/push-ecx
- 97     # . . call
- 98     e8/call  has-metadata?/disp32
- 99     # . . discard args
-100     81          0/subop/add         3/mod/direct    4/rm32/esp    .           .             .           .           .               8/imm32           # add to esp
-101     # . if (eax != false) return 2
-102     3d/compare-eax-and  0/imm32/false
-103     b8/copy-to-eax  2/imm32         # ZF is set, so we can overwrite eax now
-104     75/jump-if-!=  $compute-width-of-slice:end/disp8
-105     # otherwise return 1
-106     b8/copy-to-eax  1/imm32
-107 $compute-width-of-slice:end:
-108     # . restore registers
-109     59/pop-to-ecx
-110     # . epilogue
-111     89/copy                         3/mod/direct    4/rm32/esp    .           .             .           5/r32/ebp   .               .                 # copy ebp to esp
-112     5d/pop-to-ebp
-113     c3/return
-114 
-115 test-compute-width:
-116     # . prologue
-117     55/push-ebp
-118     89/copy                         3/mod/direct    5/rm32/ebp    .           .             .           4/r32/esp   .               .                 # copy esp to ebp
-119 $test-compute-width:imm8:
-120     # eax = compute-width("0x2/imm8")
-121     # . . push args
-122     68/push  "0x2/imm8"/imm32
-123     # . . call
-124     e8/call  compute-width/disp32
-125     # . . discard args
-126     81          0/subop/add         3/mod/direct    4/rm32/esp    .           .             .           .           .               4/imm32           # add to esp
-127     # check-ints-equal(eax, 1, msg)
-128     # . . push args
-129     68/push  "F - test-compute-width: 0x2/imm8"/imm32
-130     50/push-eax
-131     68/push  1/imm32
-132     # . . call
-133     e8/call  check-ints-equal/disp32
-134     # . . discard args
-135     81          0/subop/add         3/mod/direct    4/rm32/esp    .           .             .           .           .               0xc/imm32         # add to esp
-136 $test-compute-width:imm16:
-137     # eax = compute-width("4/imm16")
-138     # . . push args
-139     68/push  "4/imm16"/imm32
-140     # . . call
-141     e8/call  compute-width/disp32
-142     # . . discard args
-143     81          0/subop/add         3/mod/direct    4/rm32/esp    .           .             .           .           .               4/imm32           # add to esp
-144     # check-ints-equal(eax, 2, msg)
-145     # . . push args
-146     68/push  "F - test-compute-width: 4/imm16"/imm32
-147     50/push-eax
-148     68/push  2/imm32
-149     # . . call
-150     e8/call  check-ints-equal/disp32
-151     # . . discard args
-152     81          0/subop/add         3/mod/direct    4/rm32/esp    .           .             .           .           .               0xc/imm32         # add to esp
-153 $test-compute-width:imm32:
-154     # eax = compute-width("4/imm32")
-155     # . . push args
-156     68/push  "4/imm32"/imm32
-157     # . . call
-158     e8/call  compute-width/disp32
-159     # . . discard args
-160     81          0/subop/add         3/mod/direct    4/rm32/esp    .           .             .           .           .               4/imm32           # add to esp
-161     # check-ints-equal(eax, 4, msg)
-162     # . . push args
-163     68/push  "F - test-compute-width: 4/imm32"/imm32
-164     50/push-eax
-165     68/push  4/imm32
-166     # . . call
-167     e8/call  check-ints-equal/disp32
-168     # . . discard args
-169     81          0/subop/add         3/mod/direct    4/rm32/esp    .           .             .           .           .               0xc/imm32         # add to esp
-170 $test-compute-width:disp8:
-171     # eax = compute-width("foo/disp8")
-172     # . . push args
-173     68/push  "foo/disp8"/imm32
-174     # . . call
-175     e8/call  compute-width/disp32
-176     # . . discard args
-177     81          0/subop/add         3/mod/direct    4/rm32/esp    .           .             .           .           .               4/imm32           # add to esp
-178     # check-ints-equal(eax, 1, msg)
-179     # . . push args
-180     68/push  "F - test-compute-width: foo/disp8"/imm32
-181     50/push-eax
-182     68/push  1/imm32
-183     # . . call
-184     e8/call  check-ints-equal/disp32
-185     # . . discard args
-186     81          0/subop/add         3/mod/direct    4/rm32/esp    .           .             .           .           .               0xc/imm32         # add to esp
-187 $test-compute-width:disp16:
-188     # eax = compute-width("foo/disp16")
-189     # . . push args
-190     68/push  "foo/disp16"/imm32
-191     # . . call
-192     e8/call  compute-width/disp32
-193     # . . discard args
-194     81          0/subop/add         3/mod/direct    4/rm32/esp    .           .             .           .           .               4/imm32           # add to esp
-195     # check-ints-equal(eax, 2, msg)
-196     # . . push args
-197     68/push  "F - test-compute-width: foo/disp16"/imm32
-198     50/push-eax
-199     68/push  2/imm32
-200     # . . call
-201     e8/call  check-ints-equal/disp32
-202     # . . discard args
-203     81          0/subop/add         3/mod/direct    4/rm32/esp    .           .             .           .           .               0xc/imm32         # add to esp
-204 $test-compute-width:disp32:
-205     # eax = compute-width("foo/disp32")
-206     # . . push args
-207     68/push  "foo/disp32"/imm32
-208     # . . call
-209     e8/call  compute-width/disp32
-210     # . . discard args
-211     81          0/subop/add         3/mod/direct    4/rm32/esp    .           .             .           .           .               4/imm32           # add to esp
-212     # check-ints-equal(eax, 4, msg)
-213     # . . push args
-214     68/push  "F - test-compute-width: foo/disp32"/imm32
-215     50/push-eax
-216     68/push  4/imm32
-217     # . . call
-218     e8/call  check-ints-equal/disp32
-219     # . . discard args
-220     81          0/subop/add         3/mod/direct    4/rm32/esp    .           .             .           .           .               0xc/imm32         # add to esp
-221 $test-compute-width:no-metadata:
-222     # eax = compute-width("45")
-223     # . . push args
-224     68/push  "45"/imm32
-225     # . . call
-226     e8/call  compute-width/disp32
-227     # . . discard args
-228     81          0/subop/add         3/mod/direct    4/rm32/esp    .           .             .           .           .               4/imm32           # add to esp
-229     # check-ints-equal(eax, 1, msg)
-230     # . . push args
-231     68/push  "F - test-compute-width: 45 (no metadata)"/imm32
-232     50/push-eax
-233     68/push  1/imm32
-234     # . . call
-235     e8/call  check-ints-equal/disp32
-236     # . . discard args
-237     81          0/subop/add         3/mod/direct    4/rm32/esp    .           .             .           .           .               0xc/imm32         # add to esp
-238     # . epilogue
-239     89/copy                         3/mod/direct    4/rm32/esp    .           .             .           5/r32/ebp   .               .                 # copy ebp to esp
-240     5d/pop-to-ebp
-241     c3/return
-242 
-243 # . . vim:nowrap:textwidth=0
-
- - - -- cgit 1.4.1-2-gfad0