From: cuz <cuz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Wed, 6 Dec 2000 21:11:06 +0000 (+0000)
Subject: Fixed a bug and - while doing so - made it somewhat shorter.
X-Git-Tag: V2.12.0~2979
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=6e83d2fda22d7b1696595689d3219658128a94e9;p=cc65

Fixed a bug and - while doing so - made it somewhat shorter.


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

diff --git a/libsrc/runtime/toslong.s b/libsrc/runtime/toslong.s
index f26cec121..a65a2cff2 100644
--- a/libsrc/runtime/toslong.s
+++ b/libsrc/runtime/toslong.s
@@ -24,6 +24,7 @@ tosulong:
       	ldy    	#3
 .endif
       	lda    	(sp),y
+toslong1:
       	ldy	#1
       	sta	(sp),y
      	lda    	#0    		; Zero extend
@@ -49,14 +50,9 @@ toslong:
      	ldy    	#3
 .endif
      	lda    	(sp),y
-     	bmi	toslong1
-     	ldy	#1
-     	sta	(sp),y
-     	lda	#$00  		; Positive, high word is zero
-     	bne	toslong2
-toslong1:
+     	bpl	toslong1	; Jump if positive, high word is zero
      	ldy	#1
      	sta	(sp),y
      	lda	#$FF
-     	bne	toslong2
+     	bne	toslong2	; Branch always