From 6e83d2fda22d7b1696595689d3219658128a94e9 Mon Sep 17 00:00:00 2001
From: cuz <cuz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Wed, 6 Dec 2000 21:11:06 +0000
Subject: [PATCH] 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
---
 libsrc/runtime/toslong.s | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

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
 
-- 
2.39.5