mirror of
https://github.com/reactos/reactos.git
synced 2024-09-20 01:31:34 +00:00
527f2f9057
* Create a branch for some evul shell experiments. svn path=/branches/shell-experiments/; revision=61927
31 lines
326 B
PHP
31 lines
326 B
PHP
|
|
#include "tchar.h"
|
|
#include <asm.inc>
|
|
|
|
PUBLIC _tcslen
|
|
.code
|
|
|
|
_tcslen:
|
|
push edi
|
|
mov edi, [esp + 8]
|
|
xor eax, eax
|
|
test edi, edi
|
|
jz _tcslen_end
|
|
|
|
mov ecx, -1
|
|
cld
|
|
|
|
repne _tscas
|
|
|
|
not ecx
|
|
dec ecx
|
|
|
|
mov eax, ecx
|
|
|
|
_tcslen_end:
|
|
pop edi
|
|
ret
|
|
|
|
END
|
|
/* EOF */
|