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

* fixed comparedword

Browse Source 
* fixed properties

git-svn-id: trunk@8811 -
This commit is contained in:
Jonas Maebe 2007-10-15 10:54:49 +00:00
parent d59a18dced
commit 107682e148
2 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -5282,7 +5282,7 @@ rtl/powerpc/makefile.cpu svneol=native#text/plain
rtl/powerpc/math.inc svneol=native#text/plain rtl/powerpc/math.inc svneol=native#text/plain
rtl/powerpc/mathu.inc svneol=native#text/plain rtl/powerpc/mathu.inc svneol=native#text/plain
rtl/powerpc/mathuh.inc svneol=native#text/plain rtl/powerpc/mathuh.inc svneol=native#text/plain
rtl/powerpc/powerpc.inc -text rtl/powerpc/powerpc.inc svneol=native#text/plain
rtl/powerpc/set.inc svneol=native#text/plain rtl/powerpc/set.inc svneol=native#text/plain
rtl/powerpc/setjump.inc svneol=native#text/plain rtl/powerpc/setjump.inc svneol=native#text/plain
rtl/powerpc/setjumph.inc svneol=native#text/plain rtl/powerpc/setjumph.inc svneol=native#text/plain

11
rtl/powerpc/powerpc.inc
View File

@ -768,10 +768,19 @@ asm
lwzu r9,4(r11) lwzu r9,4(r11)
lwzu r10,4(r4) lwzu r10,4(r4)
{ calculate difference } { calculate difference }
sub. r3,r9,r10 sub. r0,r9,r10
{ if chars not equal or at the end, we're ready } { if chars not equal or at the end, we're ready }
bdnzt cr0*4+eq, .LCompDWordLoop bdnzt cr0*4+eq, .LCompDWordLoop
.LCompDWordDone: .LCompDWordDone:
cmplw cr1,r9,r10
beq .Ldone
{ since these were two dwords, we have to perform an additional }
{ unsigned comparison and set the result accordingly }
bgt cr1,.Lpos
li r3,-2
.Lpos:
addi r3,r3,1
.Ldone:
end; end;
{$endif FPC_SYSTEM_HAS_COMPAREDWORD} {$endif FPC_SYSTEM_HAS_COMPAREDWORD}