diff options
author | karoly <karoly@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-04-19 05:42:18 +0000 |
---|---|---|
committer | karoly <karoly@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-04-19 05:42:18 +0000 |
commit | e51d23be2b74de14607d09802c012791358ec4b7 (patch) | |
tree | 67522b13a68c312da370962fa57b552bba28464e | |
parent | c1d5f73581c42ac0ea57f3b0d5e41d6e5c800357 (diff) | |
download | fpc-e51d23be2b74de14607d09802c012791358ec4b7.tar.gz |
sinclairql: hopefully fix off-by-one processing in the packed relocs code
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@49232 3ad0048d-3df7-0310-abae-a5850022a9f2
-rw-r--r-- | rtl/sinclairql/si_prc.pp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rtl/sinclairql/si_prc.pp b/rtl/sinclairql/si_prc.pp index 0d4133ee82..95993c65fe 100644 --- a/rtl/sinclairql/si_prc.pp +++ b/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: |