SHA256
1
0
forked from pool/lazarus
lazarus/lazarus-PascalScript_PPC.patch

27 lines
887 B
Diff

From 832180699b3591d64d2121cf60f6d64b83edf904 Mon Sep 17 00:00:00 2001
From: Martin <laz.git@mfriebe.de>
Date: Sat, 9 Oct 2021 20:02:38 +0200
Subject: [PATCH] PascalScript: Compile on PPC, using "not supported"
InnerfuseCall. Issue #39404
---
components/PascalScript/Source/uPSRuntime.pas | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/components/PascalScript/Source/uPSRuntime.pas b/components/PascalScript/Source/uPSRuntime.pas
index 95099a71e0..8a925e2e1a 100644
--- a/components/PascalScript/Source/uPSRuntime.pas
+++ b/components/PascalScript/Source/uPSRuntime.pas
@@ -9834,7 +9834,7 @@ end;
{$IFDEF Delphi6UP}
{$if defined(cpu86)}
{$include x86.inc}
- {$elseif defined(cpupowerpc)}
+ {$elseif defined(cpupowerpc) and defined(cpu32) and defined(darwin)}
{$include powerpc.inc}
{$elseif defined(cpuarm)}
{$include arm.inc}
--
GitLab