functions returning char in A must have X cleared

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

diff --git a/libsrc/geos/memory/cmpfstring.s b/libsrc/geos/memory/cmpfstring.s
index e924febff06e7e94380344ab77f6d986005dc6b5..15011dcaa8c11b2f9853c8e8b9f76f5d7ed58b99 100644 (file)
--- a/libsrc/geos/memory/cmpfstring.s
+++ b/libsrc/geos/memory/cmpfstring.s
@@ -4,7 +4,7 @@
 ;
 ; 22.12.99, 29.07.2000
 
-; void CmpFString (char length, char *dest, char* source);
+; char CmpFString (char length, char *dest, char* source);
 
            .import DoubleSPop, SetPtrXY
            .import popa
@@ -16,4 +16,7 @@ _CmpFString:
            jsr DoubleSPop
            jsr popa
            jsr SetPtrXY
-           jmp CmpFString
+           jsr CmpFString
+           bne L1
+           jmp return0
+L1:        jmp return1