From 15655a12461c0a46c0a50af7e6143cd4258c89af Mon Sep 17 00:00:00 2001 From: Kartik Agaram Date: Wed, 11 Mar 2020 18:11:27 -0700 Subject: 6126 - support 8-byte register names Using these is quite unsafe. But what isn't, here? --- apps/braces | Bin 42546 -> 42658 bytes apps/calls | Bin 47207 -> 47319 bytes apps/mu | Bin 187308 -> 187420 bytes apps/mu.subx | 6 +++--- apps/sigils | Bin 54931 -> 55043 bytes 5 files changed, 3 insertions(+), 3 deletions(-) (limited to 'apps') diff --git a/apps/braces b/apps/braces index 1c4f8596..0de3adb7 100755 Binary files a/apps/braces and b/apps/braces differ diff --git a/apps/calls b/apps/calls index f22a1b2c..4015ed83 100755 Binary files a/apps/calls and b/apps/calls differ diff --git a/apps/mu b/apps/mu index 53ad29ff..29ec9329 100755 Binary files a/apps/mu and b/apps/mu differ diff --git a/apps/mu.subx b/apps/mu.subx index 138ff94e..4aac8ada 100644 --- a/apps/mu.subx +++ b/apps/mu.subx @@ -7523,7 +7523,7 @@ power-of-2?: # n: int -> result/eax: boolean 0b/and-> *(ebp+8) 0/r32/eax # return (tmp2 == 0) 3d/compare-eax-and 0/imm32 - 0f 94/set-if-= %eax + 0f 94/set-byte-if-= %al 81 4/subop/and %eax 0xff/imm32 $power-of-2?:end: # . epilogue @@ -9714,7 +9714,7 @@ subx-type-equal?: # a: (handle tree type-id), b: (handle tree type-id) -> resul (is-simple-mu-type? *(ebp+0xc) 0) # => eax # return alit == blit 39/compare %eax 1/r32/ecx - 0f 94/set-if-= %eax + 0f 94/set-byte-if-= %al 81 4/subop/and %eax 0xff/imm32 $subx-type-equal?:end: # . restore registers @@ -9735,7 +9735,7 @@ is-simple-mu-type?: # a: (handle tree type-id), n: type-id -> result/eax: boole # return (a->value == n) 8b/-> *(ebp+8) 0/r32/eax 39/compare *eax 1/r32/ecx # Atom-type - 0f 94/set-if-= %eax + 0f 94/set-byte-if-= %al 81 4/subop/and %eax 0xff/imm32 $is-simple-mu-type?:end: # . restore registers diff --git a/apps/sigils b/apps/sigils index 10877010..c738b004 100755 Binary files a/apps/sigils and b/apps/sigils differ -- cgit 1.4.1-2-gfad0