소스 검색

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: