Small optimization

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

diff --git a/libsrc/common/strcat.s b/libsrc/common/strcat.s
index 7297579bbea9526a7b07ce3239ea8b86214bf067..8640626f348bed943d1cbeaccffa10982a9dcaef 100644 (file)
--- a/libsrc/common/strcat.s
+++ b/libsrc/common/strcat.s
@@ -6,7 +6,7 @@
 
                .export         _strcat
        .import         popax
-       .importzp       ptr1, ptr2, ptr3
+       .importzp       ptr1, ptr2, tmp3
 
 _strcat:
                sta     ptr1            ; Save src
@@ -14,8 +14,7 @@ _strcat:
                jsr     popax           ; Get dest
        sta     ptr2
        stx     ptr2+1
-       sta     ptr3            ; Remember for function return
-       stx     ptr3+1
+       sta     tmp3            ; Remember for function return
        ldy     #0
 
 ; find end of dest
@@ -50,8 +49,7 @@ sc4:  lda     (ptr1),y
 
 ; done, return pointer to dest
 
-sc5:   lda     ptr3
-       ldx     ptr3+1
+sc5:   lda     tmp3            ; X does still contain high byte
        rts
 
 

diff --git a/libsrc/common/strcpy.s b/libsrc/common/strcpy.s
index a0194db9c16e2843e495b9acd617165f7099d22c..649424def0d67939915cf66cb6135c288f01e054 100644 (file)
--- a/libsrc/common/strcpy.s
+++ b/libsrc/common/strcpy.s
@@ -6,7 +6,7 @@
 
        .export         _strcpy
        .import         popax
-       .importzp       ptr1, ptr2, ptr3
+       .importzp       ptr1, ptr2, tmp3
 
 _strcpy:
        sta     ptr1            ; Save src
@@ -14,8 +14,7 @@ _strcpy:
        jsr     popax           ; Get dest
        sta     ptr2
        stx     ptr2+1
-       sta     ptr3            ; remember for function return
-       stx     ptr3+1
+               sta     tmp3            ; remember for function return
        ldy     #$00
 
 L1:    lda     (ptr1),y
@@ -27,7 +26,6 @@ L1:   lda     (ptr1),y
        inc     ptr2+1
        bne     L1
 
-L9:    lda     ptr3
-       ldx     ptr3+1
+L9:    lda     tmp3            ; X still contains high byte
        rts