picolisp

commit 91428217a42fc990b0a26ae3ac568f72ee8c2825
parent ea7e8f6ab80070571138d3d9c1ed136ed6b3d13e
Author: Alexander Burger <abu@software-lab.de>
Date:   Sat,  2 Apr 2011 14:17:27 +0200

Minor simplification in 'initCode'
Diffstat:
M
src64/arch/x86-64.l
 | 
5
++---

1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/src64/arch/x86-64.l b/src64/arch/x86-64.l
@@ -1,4 +1,4 @@
-# 29mar11abu
+# 02apr11abu
 # (c) Software Lab. Alexander Burger
 
 # Byte order
@@ -884,8 +884,7 @@
    (prinst "xor" "%r12" "%r12")  # Init NULL register
    (prinst "mov" "(%rsi)" "%r13")  # Get command in X
    (prinst "lea" "8(%rsi)" "%r14")  # argument vector in Y
-   (prinst "dec" "%rdi")  # and pointer to last argument in Z
-   (prinst "lea" "0(%rsi,%rdi,8)" "%r15") )
+   (prinst "lea" "-8(%rsi,%rdi,8)" "%r15") )  # pointer to last argument in Z
 
 ### Optimizer ###
 # Replace the the next 'cnt' elements with 'lst'