commit 8847c6b5c1e8e0e9034895c5d0098079afd3be49
parent 6505510a7859d28667dbccb8ed3dffd4ce22993b
Author: Christian Ermann <christianermann@gmail.com>
Date: Tue, 5 Nov 2024 22:32:26 -0800
Convert tabs to spaces
Diffstat:
| M | forth.s | | | 48 | ++++++++++++++++++++++++------------------------ |
1 file changed, 24 insertions(+), 24 deletions(-)
diff --git a/forth.s b/forth.s
@@ -254,17 +254,17 @@ defcode "parse-key" 9, 0, 0xB78FDA4A, parse_key, fib
load_cell y, 0(y)
add w, w, y
sub x, x, y
- beqz x, 2f
+ beqz x, 2f
1:
- lb t0, 0(w)
- addi y, y, 1
+ lb t0, 0(w)
+ addi y, y, 1
la t1, _input_offset
store_cell y, 0(t1)
push t0
next
2:
- mv t0, zero
- j 1b
+ mv t0, zero
+ j 1b
defcode "parse-char", 10, 0, 0xDF4F729B, parse_char, parse_key
la w, _source
@@ -536,17 +536,17 @@ defcode "-!", 2, 0, 0x24CD235B, sub_store, add_store
next
defcode "cells", 5, 0, 0xD94ACBB2, cells, sub_store
- pop w
- li x, cell
- mul w, w, x
- push w
- next
+ pop w
+ li x, cell
+ mul w, w, x
+ push w
+ next
defcode "cell+", 5, 0, 0xB14A8CBA, cell_plus, cells
- pop w
- addi w, w, cell
- push w
- next
+ pop w
+ addi w, w, cell
+ push w
+ next
# -----------------------------------------------------------------------------
# dictionary management
@@ -707,11 +707,11 @@ defcode "-", 1, 0, 0x280C9438, minus, plus
next
defcode "*", 1, 0, 0x2F0C9F3D, times, minus
- pop w
- pop x
- mul w, w, x
- push w
- next
+ pop w
+ pop x
+ mul w, w, x
+ push w
+ next
defcode "or", 2, 0, 0x5D342984, or_, minus
pop w
@@ -721,11 +721,11 @@ defcode "or", 2, 0, 0x5D342984, or_, minus
next
defcode "and", 3, 0, 0x0F29C2A6, and_, or_
- pop w
- pop x
- and w, w, x
- push w
- next
+ pop w
+ pop x
+ and w, w, x
+ push w
+ next
defcode "aligned", 7, 0, 0xC73174DF, aligned, and_
pop w
