paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-17 02:00:41 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed small bug in stricomp

Browse Source
This commit is contained in:
Jonas Maebe 2001-07-21 15:51:50 +00:00
parent 7504c62e6e
commit 2d433814ef
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

@ -318,7 +318,7 @@ LStriCompEqual:
{ if they are equal and one is zero, then the other one is zero too } { if they are equal and one is zero, then the other one is zero too }
{ and we're done as well (r3 also contains 0 then) } { and we're done as well (r3 also contains 0 then) }
{ otherwise loop } { otherwise loop }
bne LStriCompLoop bne cr1,LStriCompLoop
LStriCompDone: LStriCompDone:
end ['r3','r4','r26','r27','r28','r29','r30','cr0','cr1']; end ['r3','r4','r26','r27','r28','r29','r30','cr0','cr1'];
@ -470,7 +470,10 @@ end ['r28','r29','r30','cr0','cr1'];
{ {
$Log$ $Log$
Revision 1.7 2001-07-07 12:46:12 jonas Revision 1.8 2001-07-21 15:51:50 jonas
* fixed small bug in stricomp
Revision 1.7 2001/07/07 12:46:12 jonas
* some small bugfixes and cache optimizations * some small bugfixes and cache optimizations
Revision 1.6 2001/02/23 14:05:33 jonas Revision 1.6 2001/02/23 14:05:33 jonas