Registre RB remplace par rdx ou r8 quand deja pris car RB non volatile.

Author: Lucien Le Roux

memmove.s

@@ -22,9 +22,9 @@ _forward:
 	call memcpy wrt ..plt	; memcpy(rdi, rsi, rdx);
 	jmp _return
 _backward:
-	mov r8, rdi		; r8 = dest
-	mov r9, rsi		; r9 = src
-	mov r10, rdx		; r10 = n
+	lea r8, [rdi]		; r8 = dest
+	lea r9, [rsi]		; r9 = src
+	lea r10, [rdx]		; r10 = n
 _while:				; do {
 	dec r10			; r10--
 	mov al, BYTE [r9+r10]

strcasecmp.s

@@ -17,7 +17,7 @@ strcasecmp:
 _cwhile:				; do {
 	movzx rdi, byte [rsi+rcx]
 	call tolower wrt ..plt
-	mov rbx, rax			;   rbx = tolower(*(s2 + rcx))
+	lea rdx, [rax]			;   rdx = tolower(*(s2 + rcx))
 
 	movzx rdi, byte [r8+rcx]
 	call tolower wrt ..plt		;   rax = tolower(*(s1 + rcx))
@@ -26,12 +26,12 @@ _cwhile:				; do {
 _while:					; } while (
 	cmp al, 0x0			; al != 0
 	je _done			;  &&
-	cmp bl, 0x0			; bl != 0
+	cmp dl, 0x0			; dl != 0
 	je _done			;  &&
-	cmp al, bl			; al == bl)
+	cmp al, dl			; al == dl)
 	je _cwhile
 _done:
-	sub rax, rbx
+	sub rax, rdx
 return:
 	leave
 	ret				; return rax

strchr.s

@@ -9,17 +9,23 @@ strchr:
 	mov rbp, rsp
 
 	push rdi
+	xor rax, rax		; rax = 0
 while:				; while (
-	cmp byte [rdi], sil	;  *rdi != c
+	cmp byte [rdi + rax], sil	;  *rdi != c
 	je done			; )
 cwhile:				; {
-	cmp byte [rdi], 0	;   if (*s == 0)
+	cmp byte [rdi + rax], 0	;   if (*(s + rax) == 0)
 	je done			;     return 0
-	inc rdi			;   rax++
+	inc rax			;   rax++
 	jmp while		; }
 done:
+	lea rax, [rdi + rax]	; rax = rdi + rax;
 	pop rdi
 
+	cmp byte [rax], 0	; if (rax == \0)
+	jne return
+	xor rax, rax		;   rax = NULL
+
 return:
 	leave
 	ret			; return rax

strcmp.s

@@ -12,17 +12,17 @@ strcmp:
 	mov rcx, 0			; rcx = 0
 cwhile:					; do {
 	movzx rax, byte [rdi+rcx]	;   rax = *(s1 + rcx)
-	movzx rbx, byte [rsi+rcx]	;   rbx = *(s2 + rcx)
+	movzx rdx, byte [rsi+rcx]	;   rdx = *(s2 + rcx)
 	inc rcx				;   rcx++
 while:					; } while (
 	cmp al, 0			;  al != 0
 	je done				;   &&
-	cmp bl, 0			;  bl != 0
+	cmp dl, 0			;  dl != 0
 	je done				;   &&
-	cmp al, bl			;  al == bl)
+	cmp al, dl			;  al == dl)
 	je cwhile			; )
 done:
-	sub rax, rbx			; rax = rbx - rax;
+	sub rax, rdx			; rax = rbx - rax;
 return:
 	leave
 	ret				; return rax

strcspn.s

@@ -16,18 +16,18 @@ while:					; while (
 	cmp byte [rdi], 0		;  *s != 0
 	je done				; )
 cwhile:					; {
-	mov rbx, rsi			;   rbx = reject
+	lea rdx, [rsi]			;   rdx = reject
 _while:					;   while (
-	cmp byte [rbx], 0		;    *rbx
+	cmp byte [rdx], 0		;    *rdx
 	je _done			;   )
 _cwhile:				;   {
-	mov cl, byte [rbx]
-	cmp byte [rdi], cl		;     if (*rbx == *s)
+	mov cl, byte [rdx]
+	cmp byte [rdi], cl		;     if (*rdx == *s)
 	je _done			;       break ; // character found
-	inc rbx				;     rbx++
+	inc rdx				;     rdx++
 	jmp _while			;   }
 _done:
-	cmp byte [rbx], 0		;   if (*rbx != 0) // match
+	cmp byte [rdx], 0		;   if (*rdx != 0) // match
 	jne done			;     break ;
 	inc rax				;   rax++
 	inc rdi				;   s++

strncmp.s

@@ -12,20 +12,20 @@ strncmp:
 	mov rcx, 0			; rcx = 0
 cwhile:					; do {
 	movzx rax, byte [rdi+rcx]	;   rax = *(s1 + rcx)
-	movzx rbx, byte [rsi+rcx]	;   rbx = *(s2 + rcx)
+	movzx r8, byte [rsi+rcx]	;   r8 = *(s2 + rcx)
 	dec rdx				;   n--
 	inc rcx				;   rcx++
 while:					; } while (
 	cmp al, 0x0			;  al != 0
 	je done				;   &&
-	cmp bl, 0x0			;  bl != 0
+	cmp r8b, 0x0			;  r8b != 0
 	je done				;   &&
 	cmp dl, 0			;  n > 0
 	jle done			;   &&
-	cmp al, bl			;  al == bl
+	cmp al, r8b			;  al == r8b
 	je cwhile			; )
 done:
-	sub rax, rbx			; rax = rax - rbx
+	sub rax, r8			; rax = rax - r8
 return:
 	leave
 	ret				; return rax

strpbrk.s

@@ -17,15 +17,15 @@ while:					; while (
 	cmp byte [rdi], 0		;  *s != 0
 	je done				; )
 cwhile:					; {
-	mov rbx, rsi			;   rbx = accept
+	mov rdx, rsi			;   rdx = accept
 _while:					;   while (
-	cmp byte [rbx], 0		;    *rbx
+	cmp byte [rdx], 0		;    *rdx
 	je _done			;   )
 _cwhile:				;   {
-	mov cl, byte [rbx]
-	cmp byte [rdi], cl		;     if (*rbx == *s)
+	mov cl, byte [rdx]
+	cmp byte [rdi], cl		;     if (*rdx == *s)
 	je done				;       return rax ;
-	inc rbx				;     rbx++
+	inc rdx				;     rdx++
 	jmp _while			;   }
 _done:
 	inc rdi				;   haystack++

strspn.s

@@ -16,18 +16,18 @@ while:					; while (
 	cmp byte [rdi], 0		;  *s != 0
 	je done				; )
 cwhile:					; {
-	mov rbx, rsi			;   rbx = accept
+	lea rdx, [rsi]			;   rdx = accept
 _while:					;   while (
-	cmp byte [rbx], 0		;    *rbx
+	cmp byte [rdx], 0		;    *rdx
 	je _done			;   )
 _cwhile:				;   {
-	mov cl, byte [rbx]
-	cmp byte [rdi], cl		;     if (*rbx == *s)
+	mov cl, byte [rdx]
+	cmp byte [rdi], cl		;     if (*rdx == *s)
 	je _done			;       break ; // character found
-	inc rbx				;     rbx++
+	inc rdx				;     rdx++
 	jmp _while			;   }
 _done:
-	cmp byte [rbx], 0		;   if (*rbx == 0) // no match
+	cmp byte [rdx], 0		;   if (*rdx == 0) // no match
 	je done				;     break ;
 	inc rax				;   rax++
 	inc rdi				;   s++

strstr.s

@@ -17,15 +17,15 @@ while:					; while (
 	je done				; )
 cwhile:					; {
 	mov rax, rdi			;   rax = haystack
-	mov rbx, rsi			;   rbx = needle
+	mov rdx, rsi			;   rdx = needle
 _while:					;   while (1) {
-	mov cl, byte [rbx]
-	cmp cl, 0			;     if (*rbx == 0)
+	mov cl, byte [rdx]
+	cmp cl, 0			;     if (*rdx == 0)
 	je done				;       return haystack
-	cmp byte [rax], cl		;     if (*rbx != *rax)
+	cmp byte [rax], cl		;     if (*rdx != *rax)
 	jne _done			;       break ;
 	inc rax				;     rax++
-	inc rbx				;     rbx++
+	inc rdx				;     rdx++
 	jmp _while			;   }
 _done:
 	inc rdi				;   haystack++