/*
	Copyright 2022 Gabriel Jensen.
	This Source Code Form is subject to the terms of the Mozilla Public License, v. 2.0.
	If a copy of the MPL was not distributed with this file, You can obtain one at https://mozilla.org/MPL/2.0/.
*/

#include <zap/priv.h>

#include <stdbool.h>
#include <stddef.h>
#include <stdint.h>

#if defined(zap_priv_fastimpl)
__asm__ (
	".globl zap_memeq\n"

	"zap_memeq:\n"
		/*
			void const * lptr
			size_t       num
			void const * rptr
		*/
#if defined(sus_arch_amd64)
		/* rdi: Address of the current left element. */
		/* rsi: Number of remaining elements. */
		/* rdx: Address of the current right element. */
		/* rax: Current left element. */
		/* rcx: Current right element. */
	".wrdcmp:\n"
		"cmpq $0x8,%rsi\n"
		"jl .bytecmp\n"
		"movq (%rdi),%rax\n"
		"movq (%rdx),%rcx\n"
		"cmpq %rax,%rcx\n"
		"jne .neq\n"
		"addq $0x8,%rdi\n"
		"addq $0x8,%rdx\n"
		"subq $0x8,%rsi\n"
		"jmp .wrdcmp\n"
	".bytecmp:\n"
		"testq %rsi,%rsi\n"
		"jne .eq\n" /* If we have reached the final element, all previous elements have compared equal, and the memory sequences are equal. */
		"movb (%rdi),%al\n"
		"movb (%rdx),%cl\n"
		"cmpb %al,%cl\n"
		"jne .neq\n"
		"incq %rdi\n"
		"incq %rdx\n"
		"decq %rsi\n"
		"jmp .bytecmp\n"
	".eq:\n"
		"movb $0x1,%al\n"
		"ret\n"
	".neq:\n"
		"movb $0x0,%al\n"
		"ret\n"
#elif defined(sus_arch_ia32)
		/* eax: Address of the current left element. */
		"movl 0x4(%esp),%eax\n"
		/* ecx: Number of remaining elements. */
		"movl 0x8(%esp),%ecx\n"
		/* edx: Address of the current right element. */
		"movl 0xC(%esp),%edx\n"
		/* ebx: Current left element. */
		"pushl %ebx\n"
		/* ebx/esi: Current right element. */
		"pushl %esi\n"
	".wrdcmp:\n"
		"cmpl $0x4,%ecx\n"
		"jl .bytecmp\n"
		"movl (%eax),%ebx\n"
		"movl (%edx),%esi\n"
		"cmpl %ebx,%esi\n"
		"jne .neq\n"
		"addl $0x4,%eax\n"
		"addl $0x4,%edx\n"
		"subl $0x4,%ecx\n"
		"jmp .wrdcmp\n"
	".bytecmp:\n"
		"testl %ecx,%ecx\n"
		"jne .eq\n" /* If we have reached the final element, all previous elements have compared equal, and the memory sequences are equal. */
		"movb (%eax),%bl\n"
		"movb (%edx),%bh\n"
		"cmpb %bl,%bh\n"
		"jne .neq\n"
		"incl %eax\n"
		"incl %edx\n"
		"decl %ecx\n"
		"jmp .bytecmp\n"
	".eq:\n"
		"popl %ebx\n"
		"popl %esi\n"
		"movb $0x1,%al\n"
		"ret\n"
	".neq:\n"
		"popl %ebx\n"
		"popl %esi\n"
		"movb $0x0,%al\n"
		"ret\n"
#endif
);
#else
bool zap_memeq(void const * const _lptr,size_t const _num,void const * const _rptr) {
	uint_least8_t const *       lpos     = (uint_least8_t const *)_lptr;
	uint_least8_t const *       rpos     = (uint_least8_t const *)_rptr;
	uint_least8_t const * const afterbuf = lpos + _num;
	for (;lpos != afterbuf;++lpos,++rpos) {sus_likely (*lpos != *rpos) {return false;}}
	return true;
}
#endif