From 1008059f1f277323a48d8fef545c944011efeeac Mon Sep 17 00:00:00 2001 From: Kartik Agaram Date: Sun, 19 Jan 2020 17:55:59 -0800 Subject: 5901 --- html/apps/mu.subx.html | 72 +++++++++++++++++++++++++------------------------- 1 file changed, 36 insertions(+), 36 deletions(-) (limited to 'html/apps/mu.subx.html') diff --git a/html/apps/mu.subx.html b/html/apps/mu.subx.html index a16e5c67..d63f57bf 100644 --- a/html/apps/mu.subx.html +++ b/html/apps/mu.subx.html @@ -1060,7 +1060,7 @@ if ('onhashchange' in window) { 1048 # if (slice-equal?(word-slice, "fn")) parse a function 1049 { 1050 $parse-mu:fn: -1051 (slice-equal? %edx "fn") +1051 (slice-equal? %edx "fn") 1052 3d/compare-eax-and 0/imm32 1053 0f 84/jump-if-= break/disp32 1054 # var new-function/eax : (handle function) = populate-mu-function(in, new-function, vars) @@ -1095,7 +1095,7 @@ if ('onhashchange' in window) { 1083 $parse-mu:error1: 1084 # error("unexpected top-level command: " word-slice "\n") 1085 (write-buffered Stderr "unexpected top-level command: ") -1086 (write-slice-buffered Stderr %edx) +1086 (write-slice-buffered Stderr %edx) 1087 (write-buffered Stderr "\n") 1088 (flush Stderr) 1089 # . syscall(exit, 1) @@ -1108,7 +1108,7 @@ if ('onhashchange' in window) { 1096 # error(vars->top " vars not reclaimed after fn '" new-function->name "'\n") 1097 (print-int32-buffered Stderr *ebx) 1098 (write-buffered Stderr " vars not reclaimed after fn '") -1099 (write-slice-buffered Stderr *eax) # Function-name +1099 (write-slice-buffered Stderr *eax) # Function-name 1100 (write-buffered Stderr "'\n") 1101 (flush Stderr) 1102 # . syscall(exit, 1) @@ -1179,19 +1179,19 @@ if ('onhashchange' in window) { 1167 (next-word *(ebp+8) %ecx) 1168 # error checking 1169 # if (word-slice == '{') abort -1170 (slice-equal? %ecx "{") # => eax +1170 (slice-equal? %ecx "{") # => eax 1171 3d/compare-eax-and 0/imm32 1172 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 1173 # if (word-slice == '->') abort -1174 (slice-equal? %ecx "->") # => eax +1174 (slice-equal? %ecx "->") # => eax 1175 3d/compare-eax-and 0/imm32 1176 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 1177 # if (word-slice == '}') abort -1178 (slice-equal? %ecx "}") # => eax +1178 (slice-equal? %ecx "}") # => eax 1179 3d/compare-eax-and 0/imm32 1180 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 1181 # save function name -1182 (slice-to-string Heap %ecx) # => eax +1182 (slice-to-string Heap %ecx) # => eax 1183 89/<- *edi 0/r32/eax # Function-name 1184 # initialize default subx-name as well 1185 89/<- *(edi+4) 0/r32/eax # Function-subx-name @@ -1200,15 +1200,15 @@ if ('onhashchange' in window) { 1188 $populate-mu-function-header:check-for-inout: 1189 (next-word *(ebp+8) %ecx) 1190 # if (word-slice == '{') goto done -1191 (slice-equal? %ecx "{") # => eax +1191 (slice-equal? %ecx "{") # => eax 1192 3d/compare-eax-and 0/imm32 1193 0f 85/jump-if-!= $populate-mu-function-header:done/disp32 1194 # if (word-slice == '->') break -1195 (slice-equal? %ecx "->") # => eax +1195 (slice-equal? %ecx "->") # => eax 1196 3d/compare-eax-and 0/imm32 1197 0f 85/jump-if-!= break/disp32 1198 # if (word-slice == '}') abort -1199 (slice-equal? %ecx "}") # => eax +1199 (slice-equal? %ecx "}") # => eax 1200 3d/compare-eax-and 0/imm32 1201 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 1202 # var v/ebx : (handle var) = parse-var-with-type(word-slice, first-line) @@ -1234,15 +1234,15 @@ if ('onhashchange' in window) { 1222 $parse-var-with-type:check-for-out: 1223 (next-word *(ebp+8) %ecx) 1224 # if (word-slice == '{') break -1225 (slice-equal? %ecx "{") # => eax +1225 (slice-equal? %ecx "{") # => eax 1226 3d/compare-eax-and 0/imm32 1227 0f 85/jump-if-!= break/disp32 1228 # if (word-slice == '->') abort -1229 (slice-equal? %ecx "->") # => eax +1229 (slice-equal? %ecx "->") # => eax 1230 3d/compare-eax-and 0/imm32 1231 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 1232 # if (word-slice == '}') abort -1233 (slice-equal? %ecx "}") # => eax +1233 (slice-equal? %ecx "}") # => eax 1234 3d/compare-eax-and 0/imm32 1235 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 1236 # @@ -1548,7 +1548,7 @@ if ('onhashchange' in window) { 1536 89/<- *(ecx+4) 0/r32/eax 1537 } 1538 $parse-var-with-type:write-name: -1539 (slice-to-string Heap %ecx) # => eax +1539 (slice-to-string Heap %ecx) # => eax 1540 89/<- *edi 0/r32/eax # Var-name 1541 # save v->register 1542 $parse-var-with-type:save-register: @@ -1581,21 +1581,21 @@ if ('onhashchange' in window) { 1569 8b/-> *ecx 0/r32/eax 1570 39/compare 0/r32/eax *(ecx+4) 1571 76/jump-if-<= break/disp8 -1572 (slice-to-string Heap %ecx) +1572 (slice-to-string Heap %ecx) 1573 89/<- *(edi+0x10) 0/r32/eax # Var-register 1574 } 1575 # save v->type 1576 (next-mu-token *(ebp+0xc) %ecx) 1577 # if (word-slice == '{') abort -1578 (slice-equal? %ecx "{") # => eax +1578 (slice-equal? %ecx "{") # => eax 1579 3d/compare-eax-and 0/imm32 1580 0f 85/jump-if-!= $parse-var-with-type:abort/disp32 1581 # if (word-slice == '->') abort -1582 (slice-equal? %ecx "->") # => eax +1582 (slice-equal? %ecx "->") # => eax 1583 3d/compare-eax-and 0/imm32 1584 0f 85/jump-if-!= $parse-var-with-type:abort/disp32 1585 # if (word-slice == '}') abort -1586 (slice-equal? %ecx "}") # => eax +1586 (slice-equal? %ecx "}") # => eax 1587 3d/compare-eax-and 0/imm32 1588 0f 85/jump-if-!= $parse-var-with-type:abort/disp32 1589 # if (slice-empty?(type)) skip @@ -1605,15 +1605,15 @@ if ('onhashchange' in window) { 1593 0f 84/jump-if-= break/disp32 1594 (next-mu-token *(ebp+0xc) %ecx) 1595 # if (word-slice == '{') abort -1596 (slice-equal? %ecx "{") # => eax +1596 (slice-equal? %ecx "{") # => eax 1597 3d/compare-eax-and 0/imm32 1598 0f 85/jump-if-!= $parse-var-with-type:abort/disp32 1599 # if (word-slice == '->') abort -1600 (slice-equal? %ecx "->") # => eax +1600 (slice-equal? %ecx "->") # => eax 1601 3d/compare-eax-and 0/imm32 1602 0f 85/jump-if-!= $parse-var-with-type:abort/disp32 1603 # if (word-slice == '}') abort -1604 (slice-equal? %ecx "}") # => eax +1604 (slice-equal? %ecx "}") # => eax 1605 3d/compare-eax-and 0/imm32 1606 0f 85/jump-if-!= $parse-var-with-type:abort/disp32 1607 } @@ -1739,7 +1739,7 @@ if ('onhashchange' in window) { 1727 eb/jump $pos-slice:end/disp8 1728 } 1729 # if (slice-equal?(s, *curr)) break -1730 (slice-equal? *(ebp+0xc) *edx) # => eax +1730 (slice-equal? *(ebp+0xc) *edx) # => eax 1731 3d/compare-eax-and 0/imm32 1732 75/jump-if-!= break/disp8 1733 # ++index @@ -2316,7 +2316,7 @@ if ('onhashchange' in window) { 2304 # if slice-equal?(word-slice, "{") 2305 { 2306 $parse-mu-block:check-for-block: -2307 (slice-equal? %edx "{") +2307 (slice-equal? %edx "{") 2308 3d/compare-eax-and 0/imm32 2309 74/jump-if-= break/disp8 2310 (check-no-tokens-left %ecx) @@ -2327,7 +2327,7 @@ if ('onhashchange' in window) { 2315 } 2316 # if slice-equal?(word-slice, "}") break 2317 $parse-mu-block:check-for-end: -2318 (slice-equal? %edx "}") +2318 (slice-equal? %edx "}") 2319 3d/compare-eax-and 0/imm32 2320 0f 85/jump-if-!= break/disp32 2321 # if slice-ends-with?(word-slice, ":") parse named block and append @@ -2348,7 +2348,7 @@ if ('onhashchange' in window) { 2336 # if slice-equal?(word-slice, "var") 2337 { 2338 $parse-mu-block:check-for-var: -2339 (slice-equal? %edx "var") +2339 (slice-equal? %edx "var") 2340 3d/compare-eax-and 0/imm32 2341 74/jump-if-= break/disp8 2342 # @@ -2542,7 +2542,7 @@ if ('onhashchange' in window) { 2530 3d/compare-eax-and 0/imm32 2531 0f 85/jump-if-!= break/disp32 2532 # if (name == "<-") break -2533 (slice-equal? %ecx "<-") +2533 (slice-equal? %ecx "<-") 2534 3d/compare-eax-and 0/imm32 2535 75/jump-if-!= break/disp8 2536 # assert(is-identifier?(name)) @@ -2558,7 +2558,7 @@ if ('onhashchange' in window) { 2546 } 2547 $parse-mu-stmt:read-operation: 2548 (next-word *(ebp+8) %ecx) -2549 (slice-to-string Heap %ecx) +2549 (slice-to-string Heap %ecx) 2550 89/<- *(edi+4) 0/r32/eax # Stmt1-operation 2551 { 2552 $parse-mu-stmt:read-inouts: @@ -2569,7 +2569,7 @@ if ('onhashchange' in window) { 2557 3d/compare-eax-and 0/imm32 2558 0f 85/jump-if-!= break/disp32 2559 # if (name == "<-") abort -2560 (slice-equal? %ecx "<-") +2560 (slice-equal? %ecx "<-") 2561 3d/compare-eax-and 0/imm32 2562 0f 85/jump-if-!= $parse-mu-stmt:abort2/disp32 2563 # @@ -2594,7 +2594,7 @@ if ('onhashchange' in window) { 2582 $parse-mu-stmt:abort: 2583 # error("invalid identifier '" name "'\n") 2584 (write-buffered Stderr "invalid identifier '") -2585 (write-slice-buffered Stderr %ecx) +2585 (write-slice-buffered Stderr %ecx) 2586 (write-buffered Stderr "'\n") 2587 (flush Stderr) 2588 # . syscall(exit, 1) @@ -2646,7 +2646,7 @@ if ('onhashchange' in window) { 2634 b8/copy-to-eax 0/imm32/false/result # restore result (if we're here it's still false) 2635 0f 84/jump-if-= break/disp32 2636 # if slice-equal?(word-slice, '<-') return true -2637 (slice-equal? %ecx "<-") +2637 (slice-equal? %ecx "<-") 2638 3d/compare-eax-and 0/imm32 2639 74/jump-if-= loop/disp8 2640 b8/copy-to-eax 1/imm32/true @@ -2717,7 +2717,7 @@ if ('onhashchange' in window) { 2705 55/push-ebp 2706 89/<- %ebp 4/r32/esp 2707 # var target/eax : (handle array byte) = slice-to-string(name) -2708 (slice-to-string Heap *(ebp+8)) # => eax +2708 (slice-to-string Heap *(ebp+8)) # => eax 2709 # 2710 (lookup-var-helper %eax *(ebp+0xc)) # => eax 2711 # if (result == 0) abort @@ -2731,7 +2731,7 @@ if ('onhashchange' in window) { 2719 2720 $lookup-var:abort: 2721 (write-buffered Stderr "unknown variable '") -2722 (write-slice-buffered Stderr *(ebp+8)) +2722 (write-slice-buffered Stderr *(ebp+8)) 2723 (write-buffered Stderr "'\n") 2724 (flush Stderr) 2725 # . syscall(exit, 1) @@ -2798,7 +2798,7 @@ if ('onhashchange' in window) { 2786 2787 $lookup-var-helper:error1: 2788 (write-buffered Stderr "malformed stack when looking up '") -2789 (write-slice-buffered Stderr *(ebp+8)) +2789 (write-slice-buffered Stderr *(ebp+8)) 2790 (write-buffered Stderr "'\n") 2791 (flush Stderr) 2792 # . syscall(exit, 1) @@ -2815,7 +2815,7 @@ if ('onhashchange' in window) { 2803 # . save registers 2804 51/push-ecx 2805 # var target/ecx : (handle array byte) = slice-to-string(name) -2806 (slice-to-string Heap *(ebp+8)) # => eax +2806 (slice-to-string Heap *(ebp+8)) # => eax 2807 89/<- %ecx 0/r32/eax 2808 # 2809 (lookup-var-helper *(ebp+8) *(ebp+0xc)) # => eax @@ -2974,7 +2974,7 @@ if ('onhashchange' in window) { 2962 3d/compare-eax-and 0/imm32 2963 0f 84/jump-if-= $new-literal-integer:abort/disp32 2964 # var s/ecx : (addr array byte) -2965 (slice-to-string Heap *(ebp+0xc)) # => eax +2965 (slice-to-string Heap *(ebp+0xc)) # => eax 2966 89/<- %ecx 0/r32/eax 2967 # 2968 (allocate *(ebp+8) *Var-size) # => eax @@ -2996,7 +2996,7 @@ if ('onhashchange' in window) { 2984 2985 $new-literal-integer:abort: 2986 (write-buffered Stderr "variable cannot begin with a digit '") -2987 (write-slice-buffered Stderr *(ebp+0xc)) +2987 (write-slice-buffered Stderr *(ebp+0xc)) 2988 (write-buffered Stderr "'\n") 2989 (flush Stderr) 2990 # . syscall(exit, 1) -- cgit 1.4.1-2-gfad0