[thirdparty/gcc.git] / libgcc / config / msp430 / cmpsi2.S

;   Copyright (C) 2012-2016 Free Software Foundation, Inc.
;   Contributed by Red Hat.
; 
; This file is free software; you can redistribute it and/or modify it
; under the terms of the GNU General Public License as published by the
; Free Software Foundation; either version 3, or (at your option) any
; later version.
; 
; This file is distributed in the hope that it will be useful, but
; WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
; General Public License for more details.
; 
; Under Section 7 of GPL version 3, you are granted additional
; permissions described in the GCC Runtime Library Exception, version
; 3.1, as published by the Free Software Foundation.
;
; You should have received a copy of the GNU General Public License and
; a copy of the GCC Runtime Library Exception along with this program;
; see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
; <http://www.gnu.org/licenses/>.

#ifdef __MSP430X_LARGE__
#define ret_	RETA
#else
#define ret_	RET
#endif

	.text

	;;   int __cmpsi2 (signed long A, signed long B)
	;;
	;; Performs a signed comparison of A and B.
	;; If A is less than B it returns 0.  If A is greater
	;; than B it returns 2.  If they are equal it returns 1.

	;;  Note - this code is also used by the __ucmpsi2 routine below.

	.global	__cmpsi2
        .type   __cmpsi2, @function
__cmpsi2:
	;; A is in r12 (low), r13 (high)
	;; B is in r14 (low), r15 (high)
	;; Result put in r12

	cmp.w	r13, r15
	jeq	.L_compare_low
	jge	.L_less_than
.L_greater_than:
	mov.w	#2, r12
	ret_
.L_less_than:
	mov.w	#0, r12
	ret_

.L_compare_low:
	cmp.w	r12, r14
	jl	.L_greater_than
	jne     .L_less_than
	mov.w	#1, r12
	ret_

	.size	__cmpsi2, . - __cmpsi2


	;;   int __ucmpsi2 (unsigned long A, unsigned long B)
	;;
	;; Performs an unsigned comparison of A and B.
	;; If A is less than B it returns 0.  If A is greater
	;; than B it returns 2.  If they are equal it returns 1.

;;;  Note - this function branches into the __cmpsi2 code above.

	.global	__ucmpsi2
        .type   __ucmpsi2, @function
__ucmpsi2:
	;; A is in r12 (low), r13 (high)
	;; B is in r14 (low), r15 (high)
	;; Result put in r12

	tst	r13
	jn	.L_top_bit_set_in_A
	tst	r15
;;; If the top bit of B is set, but A's is clear we know that A < B.
	jn	.L_less_than
;;; Neither A nor B has their top bit set so we can use the __cmpsi2 routine.
;;; Note we use Jc rather than BR as that saves two bytes.  The TST insn always
;;; sets the C bit.
	jc	__cmpsi2

.L_top_bit_set_in_A:
	tst	r15
;;;  If both A and B have their top bit set we can use the __cmpsi2 routine.
	jn	__cmpsi2
;;; Otherwise A has its top bit set and B does not so A > B.
	jc	.L_greater_than

	.size	__ucmpsi2, . - __ucmpsi2
Commit	Line	Data
f1717362	1	; Copyright (C) 2012-2016 Free Software Foundation, Inc.
e4a25868	2	; Contributed by Red Hat.
	3	;
	4	; This file is free software; you can redistribute it and/or modify it
	5	; under the terms of the GNU General Public License as published by the
	6	; Free Software Foundation; either version 3, or (at your option) any
	7	; later version.
	8	;
	9	; This file is distributed in the hope that it will be useful, but
	10	; WITHOUT ANY WARRANTY; without even the implied warranty of
	11	; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
	12	; General Public License for more details.
	13	;
	14	; Under Section 7 of GPL version 3, you are granted additional
	15	; permissions described in the GCC Runtime Library Exception, version
	16	; 3.1, as published by the Free Software Foundation.
	17	;
	18	; You should have received a copy of the GNU General Public License and
	19	; a copy of the GCC Runtime Library Exception along with this program;
	20	; see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
	21	; <http://www.gnu.org/licenses/>.
	22
	23	#ifdef __MSP430X_LARGE__
	24	#define ret_ RETA
	25	#else
	26	#define ret_ RET
	27	#endif
	28
	29	.text
	30
	31	;; int __cmpsi2 (signed long A, signed long B)
	32	;;
	33	;; Performs a signed comparison of A and B.
	34	;; If A is less than B it returns 0. If A is greater
	35	;; than B it returns 2. If they are equal it returns 1.
	36
	37	;; Note - this code is also used by the __ucmpsi2 routine below.
	38
	39	.global __cmpsi2
	40	.type __cmpsi2, @function
	41	__cmpsi2:
	42	;; A is in r12 (low), r13 (high)
	43	;; B is in r14 (low), r15 (high)
	44	;; Result put in r12
	45
	46	cmp.w r13, r15
	47	jeq .L_compare_low
	48	jge .L_less_than
	49	.L_greater_than:
	50	mov.w #2, r12
	51	ret_
	52	.L_less_than:
	53	mov.w #0, r12
	54	ret_
	55
	56	.L_compare_low:
	57	cmp.w r12, r14
	58	jl .L_greater_than
	59	jne .L_less_than
	60	mov.w #1, r12
	61	ret_
	62
	63	.size __cmpsi2, . - __cmpsi2
	64
	65
66	;; int __ucmpsi2 (unsigned long A, unsigned long B)
67	;;
68	;; Performs an unsigned comparison of A and B.
69	;; If A is less than B it returns 0. If A is greater
70	;; than B it returns 2. If they are equal it returns 1.
71
72	;;; Note - this function branches into the __cmpsi2 code above.
73
74	.global __ucmpsi2
75	.type __ucmpsi2, @function
76	__ucmpsi2:
77	;; A is in r12 (low), r13 (high)
78	;; B is in r14 (low), r15 (high)
79	;; Result put in r12
80
81	tst r13
82	jn .L_top_bit_set_in_A
83	tst r15
84	;;; If the top bit of B is set, but A's is clear we know that A < B.
85	jn .L_less_than
86	;;; Neither A nor B has their top bit set so we can use the __cmpsi2 routine.
87	;;; Note we use Jc rather than BR as that saves two bytes. The TST insn always
88	;;; sets the C bit.
89	jc __cmpsi2
90
91	.L_top_bit_set_in_A:
92	tst r15
93	;;; If both A and B have their top bit set we can use the __cmpsi2 routine.
94	jn __cmpsi2
95	;;; Otherwise A has its top bit set and B does not so A > B.
96	jc .L_greater_than
97
98	.size __ucmpsi2, . - __ucmpsi2