From: cuz <cuz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Mon, 1 Oct 2001 22:21:16 +0000 (+0000)
Subject: Changed name for long compare subroutine
X-Git-Tag: V2.12.0~2596
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=c4a5744651f191cca52a716910f8311172997842;p=cc65

Changed name for long compare subroutine


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

diff --git a/libsrc/runtime/lcmp.s b/libsrc/runtime/lcmp.s
index c2cb9ffe3..c9368d525 100644
--- a/libsrc/runtime/lcmp.s
+++ b/libsrc/runtime/lcmp.s
@@ -4,12 +4,13 @@
 ; Long int compare function - used by the compare operators
 ;
 
- 	.export		lcmp
+ 	.export		toslcmp
  	.import		incsp4
  	.importzp	sp, sreg, ptr1
 
 
-lcmp:  	sta    	ptr1
+toslcmp:
+  	sta    	ptr1
   	stx	ptr1+1 	  	; EAX now in sreg:ptr1
 
   	ldy    	#$03
@@ -47,4 +48,4 @@ L4:	php	  		; Save flags
 	plp	  		; Restore flags
   	rts
 
-		  
+
diff --git a/libsrc/runtime/leq.s b/libsrc/runtime/leq.s
index 5f8d6d33d..6349caffc 100644
--- a/libsrc/runtime/leq.s
+++ b/libsrc/runtime/leq.s
@@ -5,11 +5,11 @@
 ;
 
 	.export		toseqeax
-	.import		lcmp, booleq
+	.import		toslcmp, booleq
 
-toseqeax:
-     	jsr	lcmp  		; Set flags
+toseqeax:			
+     	jsr	toslcmp		; Set flags
      	jmp	booleq 	       	; Convert to boolean
 
 
-     
+
diff --git a/libsrc/runtime/lge.s b/libsrc/runtime/lge.s
index f98d9fb0e..1e4df329c 100644
--- a/libsrc/runtime/lge.s
+++ b/libsrc/runtime/lge.s
@@ -5,9 +5,9 @@
 ;
 
 	.export		tosgeeax
-       	.import	       	lcmp, boolge
+       	.import	       	toslcmp, boolge
 
 tosgeeax:
-       	jsr    	lcmp		; Set the flags
+       	jsr    	toslcmp	   	; Set the flags
        	jmp    	boolge		; Convert to boolean
 
diff --git a/libsrc/runtime/lgt.s b/libsrc/runtime/lgt.s
index de08c4787..aa7157000 100644
--- a/libsrc/runtime/lgt.s
+++ b/libsrc/runtime/lgt.s
@@ -5,10 +5,10 @@
 ;
 
  	.export		tosgteax
- 	.import		lcmp, boolgt
+ 	.import		toslcmp, boolgt
 
 tosgteax:
-       	jsr    	lcmp		; Set the flags
+       	jsr    	toslcmp	   	; Set the flags
 	jmp	boolgt		; Convert to boolean
 
 
diff --git a/libsrc/runtime/lle.s b/libsrc/runtime/lle.s
index 06d6e0abc..6f11e0339 100644
--- a/libsrc/runtime/lle.s
+++ b/libsrc/runtime/lle.s
@@ -5,9 +5,9 @@
 ;
 
      	.export		tosleeax
-	.import		lcmp, boolle
+	.import		toslcmp, boolle
 
 tosleeax:
-       	jsr    	lcmp 		; Set the flags
+       	jsr    	toslcmp	   	; Set the flags
 	jmp	boolle		; Convert to boolean
 
diff --git a/libsrc/runtime/llt.s b/libsrc/runtime/llt.s
index 565421204..5d5290d34 100644
--- a/libsrc/runtime/llt.s
+++ b/libsrc/runtime/llt.s
@@ -5,8 +5,8 @@
 ;
 
 	.export		toslteax
-       	.import	       	lcmp, boollt
+       	.import	       	toslcmp, boollt
 
 toslteax:
-       	jsr    	lcmp 		; Set the flags
+       	jsr    	toslcmp	   	; Set the flags
 	jmp	boollt		; Convert to boolean
diff --git a/libsrc/runtime/lne.s b/libsrc/runtime/lne.s
index d948fc271..e0f048579 100644
--- a/libsrc/runtime/lne.s
+++ b/libsrc/runtime/lne.s
@@ -5,10 +5,10 @@
 ;
 
 	.export		tosneeax
-	.import		lcmp, boolne
+	.import		toslcmp, boolne
 
 tosneeax:
-	jsr	lcmp		; Set flags
+	jsr	toslcmp	   	; Set flags
 	jmp	boolne		; Convert to boolean
 
 
diff --git a/libsrc/runtime/luge.s b/libsrc/runtime/luge.s
index 803640c65..541ff4852 100644
--- a/libsrc/runtime/luge.s
+++ b/libsrc/runtime/luge.s
@@ -5,9 +5,9 @@
 ;
 
 	.export		tosugeeax
-       	.import	       	lcmp, booluge
+       	.import	       	toslcmp, booluge
 
-tosugeeax:		    
-       	jsr    	lcmp		; Set the flags
+tosugeeax:
+       	jsr    	toslcmp	   	; Set the flags
        	jmp    	booluge		; Convert to boolean
 
diff --git a/libsrc/runtime/lugt.s b/libsrc/runtime/lugt.s
index eb4712197..19cbcc0fa 100644
--- a/libsrc/runtime/lugt.s
+++ b/libsrc/runtime/lugt.s
@@ -5,10 +5,10 @@
 ;
 
  	.export		tosugteax
- 	.import		lcmp, boolugt
+ 	.import		toslcmp, boolugt
 
-tosugteax:		    
-       	jsr    	lcmp	    	; Set the flags
+tosugteax:
+       	jsr    	toslcmp	    	; Set the flags
 	jmp	boolugt        	; Convert to boolean
 
 
diff --git a/libsrc/runtime/lule.s b/libsrc/runtime/lule.s
index 7b080df0a..d898979d5 100644
--- a/libsrc/runtime/lule.s
+++ b/libsrc/runtime/lule.s
@@ -5,9 +5,9 @@
 ;
 
      	.export		tosuleeax
-    	.import		lcmp, boolule
+    	.import		toslcmp, boolule
 
 tosuleeax:
-       	jsr    	lcmp   		; Set the flags
+       	jsr    	toslcmp	   	; Set the flags
 	jmp	boolule	       	; Convert to boolean
 
diff --git a/libsrc/runtime/lult.s b/libsrc/runtime/lult.s
index 85b8b9ab9..f13735eb1 100644
--- a/libsrc/runtime/lult.s
+++ b/libsrc/runtime/lult.s
@@ -5,8 +5,8 @@
 ;
 
 	.export		tosulteax
-       	.import	       	lcmp, boolult
+       	.import	       	toslcmp, boolult
 
-tosulteax:		    
-       	jsr    	lcmp 		; Set the flags
+tosulteax:
+       	jsr    	toslcmp 	; Set the flags
 	jmp	boolult		; Convert to boolean
diff --git a/libsrc/runtime/pusha.s b/libsrc/runtime/pusha.s
index 97d3154a8..dc5e54697 100644
--- a/libsrc/runtime/pusha.s
+++ b/libsrc/runtime/pusha.s
@@ -4,11 +4,13 @@
 ; CC65 runtime: Push value in a onto the stack
 ;
 
-       	.export	  	pushaysp, pusha
+       	.export	  	pusha0sp, pushaysp, pusha
 	.importzp	sp
 
 ; Beware: The optimizer knows about this function!
 
+pusha0sp:
+	ldy	#$00
 pushaysp:
 	lda	(sp),y
 pusha:	ldy	sp