Sfoglia il codice sorgente

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

git-svn-id: trunk@49232 -
Károly Balogh 4 anni fa
parent
commit
6dbcd17f54
1 ha cambiato i file con 1 aggiunte e 1 eliminazioni
  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: