1234567891011121314151617181920212223242526272829303132333435363738394041 |
- {
- $Id$
- This file is part of the Free Pascal run time library.
- Copyright (c) 1999-2000 by the Free Pascal development team
- Processor dependent part of strings.pp, not shared with
- sysutils unit.
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
- **********************************************************************}
- function strpas(p : pchar) : string;
- {$i strpas.inc}
- function strpcopy(d : pchar;const s : string) : pchar;assembler;
- asm
- pushl %esi // Save ESI
- cld
- movl s,%esi // Load Source adress
- movl d,%edi // load destination address
- movzbl (%esi),%ecx // load length in ECX
- incl %esi
- rep
- movsb
- movb $0,(%edi)
- movl d,%eax // return value to EAX
- popl %esi
- end ['EDI','EAX','ECX'];
- {
- $Log$
- Revision 1.7 2002-09-07 16:01:19 peter
- * old logs removed and tabs fixed
- }
|