From: Pascal Packaging Team <pkg-pascal-devel@lists.alioth.debian.org>
Date: Thu, 14 Jan 2021 20:35:41 +0000 (+0000)
Subject: fix-FTBFS-on-m68k
X-Git-Tag: archive/raspbian/3.2.0+dfsg-12+rpi1~5
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=da72771b8eb95bdcde7199c78fc1551f93399057;p=fpc.git

fix-FTBFS-on-m68k

===================================================================

Gbp-Pq: Name fix-FTBFS-on-m68k.patch
---

diff --git a/fpcsrc/rtl/m68k/int64p.inc b/fpcsrc/rtl/m68k/int64p.inc
index 26d4949d..f9f373b7 100644
--- a/fpcsrc/rtl/m68k/int64p.inc
+++ b/fpcsrc/rtl/m68k/int64p.inc
@@ -14,6 +14,7 @@
  **********************************************************************}
 
 
+{$ifndef VER3_0}
 {$ifndef FPC_SYSTEM_HAS_MUL_LONGINT_TO_INT64}
 {$define FPC_SYSTEM_HAS_MUL_LONGINT_TO_INT64}
 function fpc_mul_longint_to_int64(f1,f2 : longint) : int64;[public,alias: 'FPC_MUL_LONGINT_TO_INT64']; assembler; nostackframe; compilerproc;
@@ -124,3 +125,4 @@ asm
     clr.l    d1
 end;
 {$endif FPC_SYSTEM_HAS_MUL_LONGINT_TO_INT64}
+{$endif VER3_0}