picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

commit e4058a77f4eac0a46466fc38a20730ad1d395c61
parent b6aea6dca37d6a9f69de6669ee5df69a609c6ed0
Author: Alexander Burger <abu@software-lab.de>
Date:   Thu, 21 Apr 2011 12:40:45 +0200

Minor: Use 'Arg' instead of directly %rax
Diffstat:
Msrc64/arch/x86-64.l | 10+++++-----
1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/src64/arch/x86-64.l b/src64/arch/x86-64.l @@ -1,4 +1,4 @@ -# 20apr11abu +# 21apr11abu # (c) Software Lab. Alexander Burger # Byte order @@ -722,13 +722,13 @@ (prinst "pop" R) ) Reg '("%xmm0" "%xmm1" "%xmm2" "%xmm3" "%xmm4" "%xmm5") ) - (prinst "mov" "%rax" "%r11") + (prinst "mov" Arg "%r11") (prinl "1:") - (prinst "cmp" "%rsp" "%rax") + (prinst "cmp" "%rsp" Arg) (prinst "jz" "1f") - (prinst "sub" "$16" "%rax") + (prinst "sub" "$16" Arg) (prinst "sub" "$8" "%r11") - (prinst "mov" "8(%rax)" "%r10") + (prinst "mov" (pack "8(" Arg ")") "%r10") (prinst "or" "%r10" "(%r11)") (prinst "jmp 1b") (prinl "1:")