Browse Source

sinclairql: hopefully fix off-by-one processing in the packed relocs code

git-svn-id: trunk@49232 -
Károly Balogh 4 years ago
parent
commit
6dbcd17f54
1 changed files with 1 additions and 1 deletions
  1. 1 1
      rtl/sinclairql/si_prc.pp

+ 1 - 1
rtl/sinclairql/si_prc.pp

@@ -107,7 +107,7 @@ asm
     add.l d1,d2
     add.l d0,(a0,d2)
     subq.l #1,d7
-    bpl @relocloop
+    bgt @relocloop
 {$ENDIF PACKEDRELOCS}
 
 @noreloc: