diff options
-rwxr-xr-x | apps/mu | bin | 323711 -> 323711 bytes | |||
-rw-r--r-- | apps/mu.subx | 24 |
2 files changed, 12 insertions, 12 deletions
diff --git a/apps/mu b/apps/mu index 2e5070a3..554534f7 100755 --- a/apps/mu +++ b/apps/mu Binary files differdiff --git a/apps/mu.subx b/apps/mu.subx index 8cb7ffc5..a3a8f65d 100644 --- a/apps/mu.subx +++ b/apps/mu.subx @@ -9945,6 +9945,18 @@ $has-primitive-name?:end: 5d/pop-to-ebp c3/return +check-mu-primitive: # 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-primitive:end: + # . restore registers + # . epilogue + 89/<- %esp 5/r32/ebp + 5d/pop-to-ebp + c3/return + check-mu-call: # stmt: (addr stmt), callee: (addr function), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor) # . prologue 55/push-ebp @@ -10205,18 +10217,6 @@ $check-mu-call:end: 5d/pop-to-ebp c3/return -check-mu-primitive: # 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-primitive:end: - # . restore registers - # . epilogue - 89/<- %esp 5/r32/ebp - 5d/pop-to-ebp - c3/return - # like type-equal? but takes literals into account type-match?: # def: (addr tree type-id), call: (addr tree type-id) -> result/eax: boolean # . prologue |