From 10d72fe1e3586e214353b4b942388335bc13f404 Mon Sep 17 00:00:00 2001 From: bd Date: Sat, 10 May 2025 22:50:45 -0400 Subject: Rename STOREV, LOADV to SRDS, SRDL --- src/parse.lisp | 4 ++-- src/util.lisp | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) (limited to 'src') diff --git a/src/parse.lisp b/src/parse.lisp index 56c23f4..e40487f 100644 --- a/src/parse.lisp +++ b/src/parse.lisp @@ -106,8 +106,8 @@ (generate-mnemonic 'r-type-3-m type-3)) (let* ((lst (reverse util:i-type)) - (type-1 '("LOADV" "LOAD")) - (type-2 '("STOREV" "STORE")) + (type-1 '("SRDL" "LOAD")) + (type-2 '("SRDS" "STORE")) (type-3 (remove-if (lambda (x) (member x (append type-1 type-2))) lst))) (generate-mnemonic 'i-type-1-m type-1) (generate-mnemonic 'i-type-2-m type-2) diff --git a/src/util.lisp b/src/util.lisp index 4af50e0..85076d1 100644 --- a/src/util.lisp +++ b/src/util.lisp @@ -88,7 +88,7 @@ of the elements from both lists. Returns nil if the lists are not equal size." "R-type instructions.") (defvar i-type - '("LOAD" "LOADV" "ADDI" "SUBI" "SFTRI" "SFTLI" "ANDI" "ORI" "XORI" "STORE" "STOREV") + '("LOAD" "SRDL" "ADDI" "SUBI" "SFTRI" "SFTLI" "ANDI" "ORI" "XORI" "STORE" "SRDS") "I-type instructions.") (defvar j-type -- cgit v1.2.3