From c4a5744651f191cca52a716910f8311172997842 Mon Sep 17 00:00:00 2001 From: cuz Date: Mon, 1 Oct 2001 22:21:16 +0000 Subject: [PATCH] Changed name for long compare subroutine git-svn-id: svn://svn.cc65.org/cc65/trunk@992 b7a2c559-68d2-44c3-8de9-860c34a00d81 --- libsrc/runtime/lcmp.s | 7 ++++--- libsrc/runtime/leq.s | 8 ++++---- libsrc/runtime/lge.s | 4 ++-- libsrc/runtime/lgt.s | 4 ++-- libsrc/runtime/lle.s | 4 ++-- libsrc/runtime/llt.s | 4 ++-- libsrc/runtime/lne.s | 4 ++-- libsrc/runtime/luge.s | 6 +++--- libsrc/runtime/lugt.s | 6 +++--- libsrc/runtime/lule.s | 4 ++-- libsrc/runtime/lult.s | 6 +++--- libsrc/runtime/pusha.s | 4 +++- 12 files changed, 32 insertions(+), 29 deletions(-) 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 -- 2.39.5