diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2021-04-17 08:30:01 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2021-04-17 08:34:48 -0700 |
commit | 1354161a36e0aaa4ad26f7597e9f7a05c0465be2 (patch) | |
tree | 5d46b5d203ab78563d9a2bbbe0999418c497edf6 /mu-init.subx | |
parent | 1a74c3a1e69ec87e901a2869a4777ad07dbfb176 (diff) | |
download | mu-1354161a36e0aaa4ad26f7597e9f7a05c0465be2.tar.gz |
tmp: debugging why brline prints no pixels
Among other things, we turned off the trace to significantly speed up the debug cycle. State as of https://merveilles.town/@akkartik/106079258606146213 Ohhh, as I save the commit I notice a big problem: I've been editing the disk image directly because writes to the Mu disk lose indentation. But I've been forgetting that the state in the Mu disk needs to be pre-evaluated. So function bindings need extra parens for the environment. The `pixel` calls in the previous commit message are the first statement in the body, and they aren't actually considered part of the body right now. No wonder they don't run. There are lots of other problems, but this will clarify a lot.
Diffstat (limited to 'mu-init.subx')
-rw-r--r-- | mu-init.subx | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/mu-init.subx b/mu-init.subx index b60249ba..749cf785 100644 --- a/mu-init.subx +++ b/mu-init.subx @@ -12,19 +12,19 @@ Entry: # initialize stack bd/copy-to-ebp 0/imm32 -#? (main 0 0 Primary-bus-secondary-drive) - # always first run tests - (run-tests) - (num-test-failures) # => eax - # call main if tests all passed - { - 3d/compare-eax-and 0/imm32 - 75/jump-if-!= break/disp8 - (clear-real-screen) - c7 0/subop/copy *Real-screen-cursor-x 0/imm32 - c7 0/subop/copy *Real-screen-cursor-y 0/imm32 - (main 0 0 Primary-bus-secondary-drive) - } + (main 0 0 Primary-bus-secondary-drive) +#? # always first run tests +#? (run-tests) +#? (num-test-failures) # => eax +#? # call main if tests all passed +#? { +#? 3d/compare-eax-and 0/imm32 +#? 75/jump-if-!= break/disp8 +#? (clear-real-screen) +#? c7 0/subop/copy *Real-screen-cursor-x 0/imm32 +#? c7 0/subop/copy *Real-screen-cursor-y 0/imm32 +#? (main 0 0 Primary-bus-secondary-drive) +#? } # hang indefinitely { |