mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-05 12:38:32 +02:00
9baf1000ae
* some bugfixes
* powerpc.inc is almost complete (only fillchar/word/dword, get_frame etc
and the class helpers are still needed
- removed unnecessary register saving in set.inc (thanks to compilerproc)
* use registers reserved for parameters as much as possible instead of
those reserved for local vars (since those have to be saved by the
called anyway, while the ones for local vars have to be saved by the
callee)
66 lines
2.0 KiB
PHP
66 lines
2.0 KiB
PHP
{
|
|
$Id$
|
|
This file is part of the Free Pascal run time library.
|
|
Copyright (c) 1999-2000 by Jonas Maebe, member of 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; assembler;
|
|
{$i strpas.inc}
|
|
|
|
function strpcopy(d : pchar;const s : string) : pchar;assembler;
|
|
asm
|
|
{ get length }
|
|
lbz r10,0(r4)
|
|
{ put in counter }
|
|
cmpli r10,0
|
|
mtctr r10
|
|
subi r0,r3,1
|
|
beq LStrPCopyEmpty
|
|
LStrPCopyLoop:
|
|
{ copy everything }
|
|
lbzu r10,1(r4)
|
|
stbu r10,1(r0)
|
|
bdnz LStrPCopyLoop
|
|
{ add terminating #0 }
|
|
li r10,0
|
|
LStrPCopyEmpty:
|
|
stb r10,1(r0)
|
|
end ['r0','r4','r10','cr0','ctr'];
|
|
|
|
{
|
|
$Log$
|
|
Revision 1.4 2001-09-27 15:30:29 jonas
|
|
* conversion to compilerproc and to structure used by i386 rtl
|
|
* some bugfixes
|
|
* powerpc.inc is almost complete (only fillchar/word/dword, get_frame etc
|
|
and the class helpers are still needed
|
|
- removed unnecessary register saving in set.inc (thanks to compilerproc)
|
|
* use registers reserved for parameters as much as possible instead of
|
|
those reserved for local vars (since those have to be saved by the
|
|
called anyway, while the ones for local vars have to be saved by the
|
|
callee)
|
|
|
|
Revision 1.3 2001/07/07 12:46:12 jonas
|
|
* some small bugfixes and cache optimizations
|
|
|
|
Revision 1.2 2001/02/11 12:15:03 jonas
|
|
* some small optimizations and bugfixes
|
|
|
|
Revision 1.1 2001/02/10 16:10:32 jonas
|
|
* initial implementation: everything implemented, nothing tested
|
|
|
|
|
|
}
|