Procházet zdrojové kódy

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

git-svn-id: trunk@49232 -
Károly Balogh před 4 roky
rodič
revize
6dbcd17f54
1 změnil soubory, kde provedl 1 přidání a 1 odebrání
  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: