diff options
| author | bd <bdunahu@operationnull.com> | 2025-04-16 16:37:18 -0400 |
|---|---|---|
| committer | bd <bdunahu@operationnull.com> | 2025-04-16 16:37:18 -0400 |
| commit | 768ebe5c796d85d0262260c9a0b1f7aec28b8844 (patch) | |
| tree | b2a3f2a7539aa494019ebc7c14be83b68aaad805 /src/emit.lisp | |
| parent | 4195307803b49966831c3646e059088c3087f489 (diff) | |
Let displacement for JAL+JMP be the absolute file position of label
Diffstat (limited to 'src/emit.lisp')
| -rw-r--r-- | src/emit.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/emit.lisp b/src/emit.lisp index 78a41ed..f73d9be 100644 --- a/src/emit.lisp +++ b/src/emit.lisp @@ -68,9 +68,9 @@ concatenated with TYPE." (util:format-as-binary val 5) (error (format nil "~a is not a valid register id!~%" val)))) -(defun l (l s) +(defun l (l &optional (pos 0)) (let ((d (util:get-label l))) - (- d s))) + (- d pos))) (defun var (s) (let ((pos (util:get-variable s))) |