瀏覽代碼

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

git-svn-id: trunk@49232 -
Károly Balogh 4 年之前
父節點
當前提交
6dbcd17f54
共有 1 個文件被更改,包括 1 次插入1 次删除
  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: