From fca6bbeb9afd83ed9aa7f675f0acb00108021fac Mon Sep 17 00:00:00 2001
From: izydorst <izydorst@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Sun, 17 Jul 2005 11:32:26 +0000
Subject: [PATCH] functions returning char in A must have X cleared

git-svn-id: svn://svn.cc65.org/cc65/trunk@3528 b7a2c559-68d2-44c3-8de9-860c34a00d81
---
 libsrc/geos/memory/cmpfstring.s | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/libsrc/geos/memory/cmpfstring.s b/libsrc/geos/memory/cmpfstring.s
index e924febff..15011dcaa 100644
--- 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
-- 
2.39.5