paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 06:19:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed strcopy

Browse Source
This commit is contained in:
Jonas Maebe 2003-05-17 00:01:13 +00:00
parent 4e40e71cbb
commit a2f2eb06fc
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/powerpc/strings.inc
View File

@ -78,7 +78,7 @@ LStrCopyEndFound:
cntlzw r10,r10 cntlzw r10,r10
addi r9,r9,3 addi r9,r9,3
LStrCopyWrapUpLoop: LStrCopyWrapUpLoop:
subi r10,r10,8 subic. r10,r10,8
rlwinm r0,r0,8,0,31 rlwinm r0,r0,8,0,31
stbu r0,1(r9) stbu r0,1(r9)
bge LStrCopyWrapUpLoop bge LStrCopyWrapUpLoop
@ -464,7 +464,10 @@ end ['R0','R9','R10','CR0','CR1'];
{ {
$Log$ $Log$
Revision 1.14 2002-09-11 07:49:40 jonas Revision 1.15 2003-05-17 00:01:13 jonas
* fixed strcopy
Revision 1.14 2002/09/11 07:49:40 jonas
* fixed assembler errors * fixed assembler errors
Revision 1.13 2002/09/07 16:01:26 peter Revision 1.13 2002/09/07 16:01:26 peter