decspX will no longer save a

git-svn-id: svn://svn.cc65.org/cc65/trunk@662 b7a2c559-68d2-44c3-8de9-860c34a00d81

libsrc/common/strdup.s

@@ -18,18 +18,22 @@ _strdup:
 ; Since we need some place to store the intermediate results, allocate a
 ; stack frame. To make this somewhat more efficient, create the stackframe
 ; as needed for the final call to the memcpy function.
-
+		
+	pha			; decsp will destroy A (but not X)
 	jsr	decsp4	       	; Target/source
 
 ; Store the pointer into the source slot
 
-	ldy	#0
-	sta	(sp),y
-	iny
-	pha
+	ldy	#1
 	txa
 	sta	(sp),y
-	pla
+	pla	      
+.ifpc02
+	sta	(sp)
+.else
+       	dey
+       	sta	(sp),y
+.endif
 
 ; Get length of S (which is still in a/x)
 

libsrc/runtime/lpush.s

@@ -16,19 +16,19 @@ push0ax:
 	sty	sreg
 	sty	sreg+1
 pusheax:
+	pha			; decsp will destroy A (but not X)
 	jsr	decsp4
-	pha
-	ldy	#0
-	sta	(sp),y
-	iny
-	txa
-	sta	(sp),y
-	iny
-	lda	sreg
-	sta	(sp),y
-	iny
+	ldy	#3
 	lda	sreg+1
 	sta	(sp),y
+	dey
+	lda	sreg
+	sta	(sp),y
+	dey
+	txa
+	sta	(sp),y
+	dey
 	pla
+	sta	(sp),y
 	rts