mirror of
https://github.com/reactos/reactos.git
synced 2025-07-31 10:01:43 +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 strcat - concatenate (append) one string to another
|
||||
;***
|
||||
|
|
@ -80,39 +82,41 @@ page
|
|||
;
|
||||
;Exceptions:
|
||||
;*******************************************************************************
|
||||
#endif
|
||||
|
||||
|
||||
CODESEG
|
||||
.code
|
||||
|
||||
% public strcat, strcpy ; make both functions available
|
||||
strcpy proc \
|
||||
dst:ptr byte, \
|
||||
src:ptr byte
|
||||
public _strcat
|
||||
public _strcpy // make both functions available
|
||||
.PROC _strcpy
|
||||
// dst:ptr byte, \
|
||||
// src:ptr byte
|
||||
|
||||
OPTION PROLOGUE:NONE, EPILOGUE:NONE
|
||||
//OPTION PROLOGUE:NONE, EPILOGUE:NONE
|
||||
|
||||
push edi ; preserve edi
|
||||
mov edi,[esp+8] ; edi points to dest string
|
||||
push edi // preserve edi
|
||||
mov edi,[esp+8] // edi points to dest string
|
||||
jmp short copy_start
|
||||
|
||||
strcpy endp
|
||||
.ENDP // _strcpy
|
||||
|
||||
align 16
|
||||
|
||||
strcat proc \
|
||||
dst:ptr byte, \
|
||||
src:ptr byte
|
||||
.PROC _strcat
|
||||
// dst:ptr byte, \
|
||||
// src:ptr byte
|
||||
|
||||
OPTION PROLOGUE:NONE, EPILOGUE:NONE
|
||||
//OPTION PROLOGUE:NONE, EPILOGUE:NONE
|
||||
|
||||
.FPO ( 0, 2, 0, 0, 0, 0 )
|
||||
FPO 0, 2, 0, 0, 0, 0
|
||||
|
||||
mov ecx,[esp+4] ; ecx -> dest string
|
||||
push edi ; preserve edi
|
||||
test ecx,3 ; test if string is aligned on 32 bits
|
||||
mov ecx,[esp+4] // ecx -> dest string
|
||||
push edi // preserve edi
|
||||
test ecx,3 // test if string is aligned on 32 bits
|
||||
je short find_end_of_dest_string_loop
|
||||
|
||||
dest_misaligned: ; simple byte loop until string is aligned
|
||||
dest_misaligned: // simple byte loop until string is aligned
|
||||
mov al,byte ptr [ecx]
|
||||
add ecx,1
|
||||
test al,al
|
||||
|
|
@ -123,27 +127,27 @@ dest_misaligned: ; simple byte loop until string is aligned
|
|||
align 4
|
||||
|
||||
find_end_of_dest_string_loop:
|
||||
mov eax,dword ptr [ecx] ; read 4 bytes
|
||||
mov edx,7efefeffh
|
||||
mov eax,dword ptr [ecx] // read 4 bytes
|
||||
mov edx,HEX(7efefeff)
|
||||
add edx,eax
|
||||
xor eax,-1
|
||||
xor eax,edx
|
||||
add ecx,4
|
||||
test eax,81010100h
|
||||
test eax,HEX(81010100)
|
||||
je short find_end_of_dest_string_loop
|
||||
; found zero byte in the loop
|
||||
// found zero byte in the loop
|
||||
mov eax,[ecx - 4]
|
||||
test al,al ; is it byte 0
|
||||
test al,al // is it byte 0
|
||||
je short start_byte_0
|
||||
test ah,ah ; is it byte 1
|
||||
test ah,ah // is it byte 1
|
||||
je short start_byte_1
|
||||
test eax,00ff0000h ; is it byte 2
|
||||
test eax,HEX(00ff0000) // is it byte 2
|
||||
je short start_byte_2
|
||||
test eax,0ff000000h ; is it byte 3
|
||||
test eax,HEX(0ff000000) // is it byte 3
|
||||
je short start_byte_3
|
||||
jmp short find_end_of_dest_string_loop
|
||||
; taken if bits 24-30 are clear and bit
|
||||
; 31 is set
|
||||
// taken if bits 24-30 are clear and bit
|
||||
// 31 is set
|
||||
start_byte_3:
|
||||
lea edi,[ecx - 1]
|
||||
jmp short copy_start
|
||||
|
|
@ -155,15 +159,15 @@ start_byte_1:
|
|||
jmp short copy_start
|
||||
start_byte_0:
|
||||
lea edi,[ecx - 4]
|
||||
; jmp short copy_start
|
||||
// jmp short copy_start
|
||||
|
||||
; edi points to the end of dest string.
|
||||
copy_start::
|
||||
mov ecx,[esp+0ch] ; ecx -> sorc string
|
||||
test ecx,3 ; test if string is aligned on 32 bits
|
||||
// edi points to the end of dest string.
|
||||
GLOBAL_LABEL copy_start
|
||||
mov ecx,[esp+HEX(0c)] // ecx -> sorc string
|
||||
test ecx,3 // test if string is aligned on 32 bits
|
||||
je short main_loop_entrance
|
||||
|
||||
src_misaligned: ; simple byte loop until string is aligned
|
||||
src_misaligned: // simple byte loop until string is aligned
|
||||
mov dl,byte ptr [ecx]
|
||||
add ecx,1
|
||||
test dl,dl
|
||||
|
|
@ -174,58 +178,58 @@ src_misaligned: ; simple byte loop until string is aligned
|
|||
jne short src_misaligned
|
||||
jmp short main_loop_entrance
|
||||
|
||||
main_loop: ; edx contains first dword of sorc string
|
||||
mov [edi],edx ; store one more dword
|
||||
add edi,4 ; kick dest pointer
|
||||
main_loop: // edx contains first dword of sorc string
|
||||
mov [edi],edx // store one more dword
|
||||
add edi,4 // kick dest pointer
|
||||
main_loop_entrance:
|
||||
mov edx,7efefeffh
|
||||
mov eax,dword ptr [ecx] ; read 4 bytes
|
||||
mov edx,HEX(7efefeff)
|
||||
mov eax,dword ptr [ecx] // read 4 bytes
|
||||
|
||||
add edx,eax
|
||||
xor eax,-1
|
||||
|
||||
xor eax,edx
|
||||
mov edx,[ecx] ; it's in cache now
|
||||
mov edx,[ecx] // it's in cache now
|
||||
|
||||
add ecx,4 ; kick dest pointer
|
||||
test eax,81010100h
|
||||
add ecx,4 // kick dest pointer
|
||||
test eax,HEX(81010100)
|
||||
|
||||
je short main_loop
|
||||
; found zero byte in the loop
|
||||
// found zero byte in the loop
|
||||
; main_loop_end:
|
||||
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
|
||||
test edx,HEX(0ff000000) // is it byte 3
|
||||
je short byte_3
|
||||
jmp short main_loop ; taken if bits 24-30 are clear and bit
|
||||
; 31 is set
|
||||
jmp short main_loop // taken if bits 24-30 are clear and bit
|
||||
// 31 is set
|
||||
byte_3:
|
||||
mov [edi],edx
|
||||
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
|
||||
byte_2:
|
||||
mov [edi],dx
|
||||
mov eax,[esp+8] ; return in eax pointer to dest string
|
||||
mov eax,[esp+8] // return in eax pointer to dest string
|
||||
mov byte ptr [edi+2],0
|
||||
pop edi
|
||||
ret
|
||||
byte_1:
|
||||
mov [edi],dx
|
||||
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
|
||||
byte_0:
|
||||
mov [edi],dl
|
||||
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
|
||||
|
||||
strcat endp
|
||||
.ENDP // _strcat
|
||||
|
||||
end
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue