mirror of
https://github.com/reactos/reactos.git
synced 2024-09-20 09:40:52 +00:00
527f2f9057
* Create a branch for some evul shell experiments. svn path=/branches/shell-experiments/; revision=61927
33 lines
381 B
PHP
33 lines
381 B
PHP
|
|
#include "tchar.h"
|
|
#include <asm.inc>
|
|
|
|
PUBLIC _tcsrchr
|
|
.code
|
|
|
|
_tcsrchr:
|
|
push esi
|
|
mov esi, [esp + 8]
|
|
mov edx, [esp + 12]
|
|
|
|
cld
|
|
mov ecx, _tsize
|
|
|
|
.L1:
|
|
_tlods
|
|
cmp _treg(d), _treg(a)
|
|
jne .L2
|
|
mov ecx, esi
|
|
|
|
.L2:
|
|
test _treg(a), _treg(a)
|
|
jnz .L1
|
|
|
|
mov eax, ecx
|
|
_tdec(eax)
|
|
pop esi
|
|
ret
|
|
|
|
END
|
|
/* EOF */
|