From c51f590273908d3fa314387b6e0dd605a669246d Mon Sep 17 00:00:00 2001 From: Kartik Agaram Date: Sat, 29 Feb 2020 05:33:03 -0800 Subject: 6069 --- apps/mu | Bin 160771 -> 160792 bytes apps/mu.subx | 48 ++++++++++++++++++++++++------------------------ html/apps/mu.subx.html | 42 +++++++++++++++++++++--------------------- 3 files changed, 45 insertions(+), 45 deletions(-) diff --git a/apps/mu b/apps/mu index 4261eefe..37ab1d90 100755 Binary files a/apps/mu and b/apps/mu differ diff --git a/apps/mu.subx b/apps/mu.subx index e82bda50..c65bac17 100644 --- a/apps/mu.subx +++ b/apps/mu.subx @@ -1943,27 +1943,27 @@ test-convert-index-into-array: #? (rewind-stream _test-output-stream) #? # }}} # check output - (check-next-stream-line-equal _test-output-stream "foo:" "F - test-convert-length-of-array/0") - (check-next-stream-line-equal _test-output-stream " # . prologue" "F - test-convert-length-of-array/1") - (check-next-stream-line-equal _test-output-stream " 55/push-ebp" "F - test-convert-length-of-array/2") - (check-next-stream-line-equal _test-output-stream " 89/<- %ebp 4/r32/esp" "F - test-convert-length-of-array/3") - (check-next-stream-line-equal _test-output-stream " {" "F - test-convert-length-of-array/4") - (check-next-stream-line-equal _test-output-stream "$foo:0x00000001:loop:" "F - test-convert-length-of-array/5") - (check-next-stream-line-equal _test-output-stream " ff 6/subop/push %eax" "F - test-convert-length-of-array/6") - (check-next-stream-line-equal _test-output-stream " b8/copy-to-eax 0/imm32" "F - test-convert-length-of-array/7") - (check-next-stream-line-equal _test-output-stream " ff 6/subop/push %ecx" "F - test-convert-length-of-array/8") - (check-next-stream-line-equal _test-output-stream " b9/copy-to-ecx 3/imm32" "F - test-convert-length-of-array/9") - (check-next-stream-line-equal _test-output-stream " ff 6/subop/push %eax" "F - test-convert-length-of-array/10") - (check-next-stream-line-equal _test-output-stream " 8d/copy-address *(eax + ecx<<2 + 4) 0x00000000/r32" "F - test-convert-length-of-array/11") - (check-next-stream-line-equal _test-output-stream " 8f 0/subop/pop %eax" "F - test-convert-length-of-array/12") - (check-next-stream-line-equal _test-output-stream " 8f 0/subop/pop %ecx" "F - test-convert-length-of-array/13") - (check-next-stream-line-equal _test-output-stream " 8f 0/subop/pop %eax" "F - test-convert-length-of-array/14") - (check-next-stream-line-equal _test-output-stream " }" "F - test-convert-length-of-array/15") - (check-next-stream-line-equal _test-output-stream "$foo:0x00000001:break:" "F - test-convert-length-of-array/16") - (check-next-stream-line-equal _test-output-stream " # . epilogue" "F - test-convert-length-of-array/17") - (check-next-stream-line-equal _test-output-stream " 89/<- %esp 5/r32/ebp" "F - test-convert-length-of-array/18") - (check-next-stream-line-equal _test-output-stream " 5d/pop-to-ebp" "F - test-convert-length-of-array/19") - (check-next-stream-line-equal _test-output-stream " c3/return" "F - test-convert-length-of-array/20") + (check-next-stream-line-equal _test-output-stream "foo:" "F - test-convert-index-into-array/0") + (check-next-stream-line-equal _test-output-stream " # . prologue" "F - test-convert-index-into-array/1") + (check-next-stream-line-equal _test-output-stream " 55/push-ebp" "F - test-convert-index-into-array/2") + (check-next-stream-line-equal _test-output-stream " 89/<- %ebp 4/r32/esp" "F - test-convert-index-into-array/3") + (check-next-stream-line-equal _test-output-stream " {" "F - test-convert-index-into-array/4") + (check-next-stream-line-equal _test-output-stream "$foo:0x00000001:loop:" "F - test-convert-index-into-array/5") + (check-next-stream-line-equal _test-output-stream " ff 6/subop/push %eax" "F - test-convert-index-into-array/6") + (check-next-stream-line-equal _test-output-stream " b8/copy-to-eax 0/imm32" "F - test-convert-index-into-array/7") + (check-next-stream-line-equal _test-output-stream " ff 6/subop/push %ecx" "F - test-convert-index-into-array/8") + (check-next-stream-line-equal _test-output-stream " b9/copy-to-ecx 3/imm32" "F - test-convert-index-into-array/9") + (check-next-stream-line-equal _test-output-stream " ff 6/subop/push %eax" "F - test-convert-index-into-array/10") + (check-next-stream-line-equal _test-output-stream " 8d/copy-address *(eax + ecx<<2 + 4) 0x00000000/r32" "F - test-convert-index-into-array/11") + (check-next-stream-line-equal _test-output-stream " 8f 0/subop/pop %eax" "F - test-convert-index-into-array/12") + (check-next-stream-line-equal _test-output-stream " 8f 0/subop/pop %ecx" "F - test-convert-index-into-array/13") + (check-next-stream-line-equal _test-output-stream " 8f 0/subop/pop %eax" "F - test-convert-index-into-array/14") + (check-next-stream-line-equal _test-output-stream " }" "F - test-convert-index-into-array/15") + (check-next-stream-line-equal _test-output-stream "$foo:0x00000001:break:" "F - test-convert-index-into-array/16") + (check-next-stream-line-equal _test-output-stream " # . epilogue" "F - test-convert-index-into-array/17") + (check-next-stream-line-equal _test-output-stream " 89/<- %esp 5/r32/ebp" "F - test-convert-index-into-array/18") + (check-next-stream-line-equal _test-output-stream " 5d/pop-to-ebp" "F - test-convert-index-into-array/19") + (check-next-stream-line-equal _test-output-stream " c3/return" "F - test-convert-index-into-array/20") # . epilogue 89/<- %esp 5/r32/ebp 5d/pop-to-ebp @@ -6116,7 +6116,7 @@ $emit-subx-stmt-list:index: (write-buffered *(ebp+8) "8d/copy-address *(") # inouts[0]->register " + " 8b/-> *(ecx+8) 0/r32/eax # Stmt1-inouts - 8b/-> *eax 0/r32/eax # List-value + 8b/-> *eax 0/r32/eax # Stmt-var-value (write-buffered *(ebp+8) *(eax+0x10)) # Var-register => eax # (write-buffered *(ebp+8) " + ") @@ -6130,7 +6130,7 @@ $emit-subx-stmt-list:index: (write-buffered *(ebp+8) "<<2 + 4) ") # outputs[0] "/r32" 8b/-> *(ecx+0xc) 0/r32/eax # Stmt1-outputs - 8b/-> *eax 0/r32/eax # List-value + 8b/-> *eax 0/r32/eax # Stmt-var-value (get Registers *(eax+0x10) 8 "Registers") # Var-register => eax (print-int32-buffered *(ebp+8) *eax) (write-buffered *(ebp+8) "/r32\n") @@ -6156,7 +6156,7 @@ $emit-subx-stmt-list:get: (write-buffered *(ebp+8) ") ") # outputs[0] "/r32" 8b/-> *(ecx+0xc) 0/r32/eax # Stmt1-outputs - 8b/-> *eax 0/r32/eax # List-value + 8b/-> *eax 0/r32/eax # Stmt-var-value (get Registers *(eax+0x10) 8 "Registers") # Var-register => eax (print-int32-buffered *(ebp+8) *eax) (write-buffered *(ebp+8) "/r32\n") diff --git a/html/apps/mu.subx.html b/html/apps/mu.subx.html index 79290b34..bb220441 100644 --- a/html/apps/mu.subx.html +++ b/html/apps/mu.subx.html @@ -1860,27 +1860,27 @@ if ('onhashchange' in window) { 1938 (flush _test-output-buffered-file) 1939 +-- 6 lines: #? # dump _test-output-stream ----------------------------------------------------------------------------------------------------------------------------------------- 1945 # check output -1946 (check-next-stream-line-equal _test-output-stream "foo:" "F - test-convert-length-of-array/0") -1947 (check-next-stream-line-equal _test-output-stream " # . prologue" "F - test-convert-length-of-array/1") -1948 (check-next-stream-line-equal _test-output-stream " 55/push-ebp" "F - test-convert-length-of-array/2") -1949 (check-next-stream-line-equal _test-output-stream " 89/<- %ebp 4/r32/esp" "F - test-convert-length-of-array/3") -1950 (check-next-stream-line-equal _test-output-stream " {" "F - test-convert-length-of-array/4") -1951 (check-next-stream-line-equal _test-output-stream "$foo:0x00000001:loop:" "F - test-convert-length-of-array/5") -1952 (check-next-stream-line-equal _test-output-stream " ff 6/subop/push %eax" "F - test-convert-length-of-array/6") -1953 (check-next-stream-line-equal _test-output-stream " b8/copy-to-eax 0/imm32" "F - test-convert-length-of-array/7") -1954 (check-next-stream-line-equal _test-output-stream " ff 6/subop/push %ecx" "F - test-convert-length-of-array/8") -1955 (check-next-stream-line-equal _test-output-stream " b9/copy-to-ecx 3/imm32" "F - test-convert-length-of-array/9") -1956 (check-next-stream-line-equal _test-output-stream " ff 6/subop/push %eax" "F - test-convert-length-of-array/10") -1957 (check-next-stream-line-equal _test-output-stream " 8d/copy-address *(eax + ecx<<2 + 4) 0x00000000/r32" "F - test-convert-length-of-array/11") -1958 (check-next-stream-line-equal _test-output-stream " 8f 0/subop/pop %eax" "F - test-convert-length-of-array/12") -1959 (check-next-stream-line-equal _test-output-stream " 8f 0/subop/pop %ecx" "F - test-convert-length-of-array/13") -1960 (check-next-stream-line-equal _test-output-stream " 8f 0/subop/pop %eax" "F - test-convert-length-of-array/14") -1961 (check-next-stream-line-equal _test-output-stream " }" "F - test-convert-length-of-array/15") -1962 (check-next-stream-line-equal _test-output-stream "$foo:0x00000001:break:" "F - test-convert-length-of-array/16") -1963 (check-next-stream-line-equal _test-output-stream " # . epilogue" "F - test-convert-length-of-array/17") -1964 (check-next-stream-line-equal _test-output-stream " 89/<- %esp 5/r32/ebp" "F - test-convert-length-of-array/18") -1965 (check-next-stream-line-equal _test-output-stream " 5d/pop-to-ebp" "F - test-convert-length-of-array/19") -1966 (check-next-stream-line-equal _test-output-stream " c3/return" "F - test-convert-length-of-array/20") +1946 (check-next-stream-line-equal _test-output-stream "foo:" "F - test-convert-index-into-array/0") +1947 (check-next-stream-line-equal _test-output-stream " # . prologue" "F - test-convert-index-into-array/1") +1948 (check-next-stream-line-equal _test-output-stream " 55/push-ebp" "F - test-convert-index-into-array/2") +1949 (check-next-stream-line-equal _test-output-stream " 89/<- %ebp 4/r32/esp" "F - test-convert-index-into-array/3") +1950 (check-next-stream-line-equal _test-output-stream " {" "F - test-convert-index-into-array/4") +1951 (check-next-stream-line-equal _test-output-stream "$foo:0x00000001:loop:" "F - test-convert-index-into-array/5") +1952 (check-next-stream-line-equal _test-output-stream " ff 6/subop/push %eax" "F - test-convert-index-into-array/6") +1953 (check-next-stream-line-equal _test-output-stream " b8/copy-to-eax 0/imm32" "F - test-convert-index-into-array/7") +1954 (check-next-stream-line-equal _test-output-stream " ff 6/subop/push %ecx" "F - test-convert-index-into-array/8") +1955 (check-next-stream-line-equal _test-output-stream " b9/copy-to-ecx 3/imm32" "F - test-convert-index-into-array/9") +1956 (check-next-stream-line-equal _test-output-stream " ff 6/subop/push %eax" "F - test-convert-index-into-array/10") +1957 (check-next-stream-line-equal _test-output-stream " 8d/copy-address *(eax + ecx<<2 + 4) 0x00000000/r32" "F - test-convert-index-into-array/11") +1958 (check-next-stream-line-equal _test-output-stream " 8f 0/subop/pop %eax" "F - test-convert-index-into-array/12") +1959 (check-next-stream-line-equal _test-output-stream " 8f 0/subop/pop %ecx" "F - test-convert-index-into-array/13") +1960 (check-next-stream-line-equal _test-output-stream " 8f 0/subop/pop %eax" "F - test-convert-index-into-array/14") +1961 (check-next-stream-line-equal _test-output-stream " }" "F - test-convert-index-into-array/15") +1962 (check-next-stream-line-equal _test-output-stream "$foo:0x00000001:break:" "F - test-convert-index-into-array/16") +1963 (check-next-stream-line-equal _test-output-stream " # . epilogue" "F - test-convert-index-into-array/17") +1964 (check-next-stream-line-equal _test-output-stream " 89/<- %esp 5/r32/ebp" "F - test-convert-index-into-array/18") +1965 (check-next-stream-line-equal _test-output-stream " 5d/pop-to-ebp" "F - test-convert-index-into-array/19") +1966 (check-next-stream-line-equal _test-output-stream " c3/return" "F - test-convert-index-into-array/20") 1967 # . epilogue 1968 89/<- %esp 5/r32/ebp 1969 5d/pop-to-ebp -- cgit 1.4.1-2-gfad0