From 2b1737363f88b61e6f07b368144096ff275c509a Mon Sep 17 00:00:00 2001
From: Kartik Agaram <vc@akkartik.com>
Date: Sat, 25 Jul 2020 19:11:51 -0700
Subject: 6676 - type checks for 'lookup'

---
 apps/mu      | Bin 362394 -> 362269 bytes
 apps/mu.subx |  24 ------------------------
 2 files changed, 24 deletions(-)

diff --git a/apps/mu b/apps/mu
index 8faa96c9..db6c157a 100755
Binary files a/apps/mu and b/apps/mu differ
diff --git a/apps/mu.subx b/apps/mu.subx
index 389aa9e2..06c963b9 100644
--- a/apps/mu.subx
+++ b/apps/mu.subx
@@ -11653,10 +11653,6 @@ has-primitive-name?:  # stmt: (addr stmt) -> result/eax: boolean
     (string-equal? %esi "compute-offset")  # => eax
     3d/compare-eax-and 0/imm32/false
     0f 85/jump-if-!= $has-primitive-name?:end/disp32
-    # if (name == "lookup") return true
-    (string-equal? %esi "lookup")  # => eax
-    3d/compare-eax-and 0/imm32/false
-    0f 85/jump-if-!= $has-primitive-name?:end/disp32
     # if (name == "allocate") return true
     (string-equal? %esi "allocate")  # => eax
     3d/compare-eax-and 0/imm32/false
@@ -11770,14 +11766,6 @@ check-mu-primitive:  # stmt: (addr stmt), fn: (addr function), err: (addr buffer
       (check-mu-compute-offset-stmt *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14))
       e9/jump $check-mu-primitive:end/disp32
     }
-    # if (op == "lookup") check-mu-lookup-stmt
-    {
-      (string-equal? %ecx "lookup")  # => eax
-      3d/compare-eax-and 0/imm32/false
-      74/jump-if-= break/disp8
-      (check-mu-lookup-stmt *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14))
-      e9/jump $check-mu-primitive:end/disp32
-    }
     # if (op == "allocate") check-mu-allocate-stmt
     {
       (string-equal? %ecx "allocate")  # => eax
@@ -12349,18 +12337,6 @@ $check-mu-compute-offset-stmt:end:
     5d/pop-to-ebp
     c3/return
 
-check-mu-lookup-stmt:  # stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)
-    # . prologue
-    55/push-ebp
-    89/<- %ebp 4/r32/esp
-    # . save registers
-$check-mu-lookup-stmt:end:
-    # . restore registers
-    # . epilogue
-    89/<- %esp 5/r32/ebp
-    5d/pop-to-ebp
-    c3/return
-
 check-mu-allocate-stmt:  # stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)
     # . prologue
     55/push-ebp
-- 
cgit 1.4.1-2-gfad0