From 7c1d52e860c6278e02b0abb5c3e1b0b202f07874 Mon Sep 17 00:00:00 2001 From: David Van Horn Date: Fri, 6 Dec 2024 15:33:25 -0500 Subject: [PATCH] Some missing register definitions. --- mountebank/compile-define.rkt | 3 +++ mug/compile-define.rkt | 3 +++ neerdowell/compile-define.rkt | 1 + 3 files changed, 7 insertions(+) diff --git a/mountebank/compile-define.rkt b/mountebank/compile-define.rkt index d8544dd..64433c1 100644 --- a/mountebank/compile-define.rkt +++ b/mountebank/compile-define.rkt @@ -7,6 +7,9 @@ "compile-expr.rkt" a86/ast) +(define rax 'rax) +(define rbx 'rbx) + ;; [Listof Defn] -> [Listof Id] (define (define-ids ds) (match ds diff --git a/mug/compile-define.rkt b/mug/compile-define.rkt index d8544dd..64433c1 100644 --- a/mug/compile-define.rkt +++ b/mug/compile-define.rkt @@ -7,6 +7,9 @@ "compile-expr.rkt" a86/ast) +(define rax 'rax) +(define rbx 'rbx) + ;; [Listof Defn] -> [Listof Id] (define (define-ids ds) (match ds diff --git a/neerdowell/compile-define.rkt b/neerdowell/compile-define.rkt index a7a9d88..64433c1 100644 --- a/neerdowell/compile-define.rkt +++ b/neerdowell/compile-define.rkt @@ -8,6 +8,7 @@ a86/ast) (define rax 'rax) +(define rbx 'rbx) ;; [Listof Defn] -> [Listof Id] (define (define-ids ds)