mirror of
https://github.com/reactos/reactos.git
synced 2025-08-07 05:43:08 +00:00
[UCRT][ASM] Make asm code GCC compatible
This commit is contained in:
Timo Kreuzer
parent
4fec953e6e
commit
94eb475177
22 changed files with 698 additions and 555 deletions
|
|
@ -1,3 +1,5 @@
|
|||
#include <asm.inc>
|
||||
#if 0
|
||||
page ,132
|
||||
title strncpy - copy at most n characters of string
|
||||
;***
|
||||
|
|
@ -55,95 +57,96 @@ page
|
|||
;Exceptions:
|
||||
;
|
||||
;*******************************************************************************
|
||||
#endif
|
||||
|
||||
CODESEG
|
||||
.code
|
||||
|
||||
public strncpy
|
||||
strncpy proc \
|
||||
dest:ptr byte, \
|
||||
source:ptr byte, \
|
||||
count:dword
|
||||
public _strncpy
|
||||
.PROC _strncpy
|
||||
// dest:ptr byte, \
|
||||
// source:ptr byte, \
|
||||
// count:dword
|
||||
|
||||
OPTION PROLOGUE:NONE, EPILOGUE:NONE
|
||||
//OPTION PROLOGUE:NONE, EPILOGUE:NONE
|
||||
|
||||
.FPO ( 0, 3, 0, 0, 0, 0 )
|
||||
FPO 0, 3, 0, 0, 0, 0
|
||||
|
||||
mov ecx,[esp + 0ch] ; ecx = count
|
||||
push edi ; preserve edi
|
||||
mov ecx,[esp + HEX(0c)] // ecx = count
|
||||
push edi // preserve edi
|
||||
test ecx,ecx
|
||||
jz finish ; leave if count is zero
|
||||
jz finish // leave if count is zero
|
||||
|
||||
push esi ; preserve edi
|
||||
push ebx ; preserve ebx
|
||||
mov ebx,ecx ; store count for tail loop
|
||||
mov esi,[esp + 14h] ; esi -> source string
|
||||
test esi,3 ; test if source string is aligned on 32 bits
|
||||
mov edi,[esp + 10h] ; edi -> dest string
|
||||
jnz short src_misaligned ; (almost always source is aligned)
|
||||
push esi // preserve edi
|
||||
push ebx // preserve ebx
|
||||
mov ebx,ecx // store count for tail loop
|
||||
mov esi,[esp + HEX(14)] // esi -> source string
|
||||
test esi,3 // test if source string is aligned on 32 bits
|
||||
mov edi,[esp + HEX(10)] // edi -> dest string
|
||||
jnz short src_misaligned // (almost always source is aligned)
|
||||
|
||||
shr ecx,2 ; convert ecx to dword count
|
||||
shr ecx,2 // convert ecx to dword count
|
||||
jnz main_loop_entrance
|
||||
jmp short copy_tail_loop ; 0 < count < 4
|
||||
jmp short copy_tail_loop // 0 < count < 4
|
||||
|
||||
; simple byte loop until string is aligned
|
||||
// simple byte loop until string is aligned
|
||||
|
||||
src_misaligned:
|
||||
mov al,byte ptr [esi] ; copy a byte from source to dest
|
||||
mov al,byte ptr [esi] // copy a byte from source to dest
|
||||
add esi,1
|
||||
mov [edi],al
|
||||
add edi,1
|
||||
sub ecx,1
|
||||
jz fill_tail_end1 ; if count == 0, leave
|
||||
test al,al ; was last copied byte zero?
|
||||
jz short align_dest ; if so, go align dest and pad it out
|
||||
; with zeros
|
||||
test esi,3 ; esi already aligned ?
|
||||
jz fill_tail_end1 // if count == 0, leave
|
||||
test al,al // was last copied byte zero?
|
||||
jz short align_dest // if so, go align dest and pad it out
|
||||
// with zeros
|
||||
test esi,3 // esi already aligned ?
|
||||
jne short src_misaligned
|
||||
mov ebx,ecx ; store count for tail loop
|
||||
mov ebx,ecx // store count for tail loop
|
||||
shr ecx,2
|
||||
jnz short main_loop_entrance
|
||||
|
||||
tail_loop_start:
|
||||
and ebx,3 ; ebx = count_before_main_loop%4
|
||||
jz short fill_tail_end1 ; if ebx == 0 then leave without
|
||||
; appending a null byte
|
||||
and ebx,3 // ebx = count_before_main_loop%4
|
||||
jz short fill_tail_end1 // if ebx == 0 then leave without
|
||||
// appending a null byte
|
||||
|
||||
; while ( EOS (end-of-string) not found and count > 0 ) copy bytes
|
||||
// while ( EOS (end-of-string) not found and count > 0 ) copy bytes
|
||||
|
||||
copy_tail_loop:
|
||||
mov al,byte ptr [esi] ; load byte from source
|
||||
mov al,byte ptr [esi] // load byte from source
|
||||
add esi,1
|
||||
mov [edi],al ; store byte to dest
|
||||
mov [edi],al // store byte to dest
|
||||
add edi,1
|
||||
test al,al ; EOS found?
|
||||
je short fill_tail_zero_bytes ; '\0' was already copied
|
||||
test al,al // EOS found?
|
||||
je short fill_tail_zero_bytes // '\0' was already copied
|
||||
sub ebx,1
|
||||
jnz copy_tail_loop
|
||||
fill_tail_end1:
|
||||
mov eax,[esp + 10h] ; prepare return value
|
||||
mov eax,[esp + HEX(10)] // prepare return value
|
||||
pop ebx
|
||||
pop esi
|
||||
pop edi
|
||||
ret
|
||||
|
||||
; EOS found. Pad with null characters to length count
|
||||
// EOS found. Pad with null characters to length count
|
||||
|
||||
align_dest:
|
||||
test edi,3 ; dest string aligned?
|
||||
test edi,3 // dest string aligned?
|
||||
jz dest_align_loop_end
|
||||
dest_align_loop:
|
||||
mov [edi],al
|
||||
add edi,1
|
||||
sub ecx,1 ; count == 0?
|
||||
jz fill_tail_end ; if so, finished
|
||||
test edi,3 ; is edi aligned ?
|
||||
sub ecx,1 // count == 0?
|
||||
jz fill_tail_end // if so, finished
|
||||
test edi,3 // is edi aligned ?
|
||||
jnz dest_align_loop
|
||||
dest_align_loop_end:
|
||||
mov ebx,ecx ; ebx > 0
|
||||
shr ecx,2 ; convert ecx to count of dwords
|
||||
mov ebx,ecx // ebx > 0
|
||||
shr ecx,2 // convert ecx to count of dwords
|
||||
jnz fill_dwords_with_EOS
|
||||
; pad tail bytes
|
||||
finish_loop: ; 0 < ebx < 4
|
||||
// pad tail bytes
|
||||
finish_loop: // 0 < ebx < 4
|
||||
mov [edi],al
|
||||
add edi,1
|
||||
fill_tail_zero_bytes:
|
||||
|
|
@ -152,68 +155,68 @@ fill_tail_zero_bytes:
|
|||
pop ebx
|
||||
pop esi
|
||||
finish:
|
||||
mov eax,[esp + 8] ; return in eax pointer to dest string
|
||||
mov eax,[esp + 8] // return in eax pointer to dest string
|
||||
pop edi
|
||||
ret
|
||||
|
||||
; copy (source) string to (dest). Also look for end of (source) string
|
||||
// copy (source) string to (dest). Also look for end of (source) string
|
||||
|
||||
main_loop: ; edx contains first dword of source string
|
||||
mov [edi],edx ; store one more dword
|
||||
add edi,4 ; kick dest pointer
|
||||
main_loop: // edx contains first dword of source string
|
||||
mov [edi],edx // store one more dword
|
||||
add edi,4 // kick dest pointer
|
||||
sub ecx,1
|
||||
jz tail_loop_start
|
||||
|
||||
main_loop_entrance:
|
||||
mov edx,7efefeffh
|
||||
mov eax,dword ptr [esi] ; read 4 bytes (dword)
|
||||
mov edx,HEX(7efefeff)
|
||||
mov eax,dword ptr [esi] // read 4 bytes (dword)
|
||||
add edx,eax
|
||||
xor eax,-1
|
||||
xor eax,edx
|
||||
mov edx,[esi] ; it's in cache now
|
||||
add esi,4 ; kick dest pointer
|
||||
test eax,81010100h
|
||||
mov edx,[esi] // it's in cache now
|
||||
add esi,4 // kick dest pointer
|
||||
test eax,HEX(81010100)
|
||||
je short main_loop
|
||||
|
||||
; may have found zero byte in the dword
|
||||
// may have found zero byte in the dword
|
||||
|
||||
test dl,dl ; is it byte 0
|
||||
test dl,dl // is it byte 0
|
||||
je short byte_0
|
||||
test dh,dh ; is it byte 1
|
||||
test dh,dh // is it byte 1
|
||||
je short byte_1
|
||||
test edx,00ff0000h ; is it byte 2
|
||||
test edx,HEX(00ff0000) // is it byte 2
|
||||
je short byte_2
|
||||
test edx,0ff000000h ; is it byte 3
|
||||
jne short main_loop ; taken if bits 24-30 are clear and bit
|
||||
; 31 is set
|
||||
test edx,HEX(0ff000000) // is it byte 3
|
||||
jne short main_loop // taken if bits 24-30 are clear and bit
|
||||
// 31 is set
|
||||
|
||||
; a null character was found, so dest needs to be padded out with null chars
|
||||
; to count length.
|
||||
// a null character was found, so dest needs to be padded out with null chars
|
||||
// to count length.
|
||||
|
||||
mov [edi],edx
|
||||
jmp short fill_with_EOS_dwords
|
||||
|
||||
byte_2:
|
||||
and edx,0ffffh ; fill high 2 bytes with 0
|
||||
and edx,HEX(0ffff) // fill high 2 bytes with 0
|
||||
mov [edi],edx
|
||||
jmp short fill_with_EOS_dwords
|
||||
|
||||
byte_1:
|
||||
and edx,0ffh ; fill high 3 bytes with 0
|
||||
and edx,HEX(0ff) // fill high 3 bytes with 0
|
||||
mov [edi],edx
|
||||
jmp short fill_with_EOS_dwords
|
||||
|
||||
byte_0:
|
||||
xor edx,edx ; fill whole dword with 0
|
||||
xor edx,edx // fill whole dword with 0
|
||||
mov [edi],edx
|
||||
|
||||
; End of string was found. Pad out dest string with dwords of 0
|
||||
// End of string was found. Pad out dest string with dwords of 0
|
||||
|
||||
fill_with_EOS_dwords: ; ecx > 0 (ecx is dword counter)
|
||||
fill_with_EOS_dwords: // ecx > 0 (ecx is dword counter)
|
||||
add edi,4
|
||||
xor eax,eax ; it is instead of ???????????????????
|
||||
xor eax,eax // it is instead of ???????????????????
|
||||
sub ecx,1
|
||||
jz fill_tail ; we filled all dwords
|
||||
jz fill_tail // we filled all dwords
|
||||
|
||||
fill_dwords_with_EOS:
|
||||
xor eax,eax
|
||||
|
|
@ -222,17 +225,17 @@ fill_with_EOS_loop:
|
|||
add edi,4
|
||||
sub ecx,1
|
||||
jnz short fill_with_EOS_loop
|
||||
fill_tail: ; let's pad tail bytes with zero
|
||||
and ebx,3 ; ebx = ebx % 4
|
||||
jnz finish_loop ; taken, when there are some tail bytes
|
||||
fill_tail: // let's pad tail bytes with zero
|
||||
and ebx,3 // ebx = ebx % 4
|
||||
jnz finish_loop // taken, when there are some tail bytes
|
||||
fill_tail_end:
|
||||
mov eax,[esp + 10h]
|
||||
mov eax,[esp + HEX(10)]
|
||||
pop ebx
|
||||
pop esi
|
||||
pop edi
|
||||
ret
|
||||
|
||||
strncpy endp
|
||||
.ENDP // _strncpy
|
||||
end
|
||||
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue