paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 09:19:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Enable building Darwin for PPC and PPC64. Issue #37987, patch from Alfred.

Browse Source 
git-svn-id: trunk@64077 -
This commit is contained in:
juha 2020-10-25 17:20:42 +00:00
parent 26dff51384
commit 93df80a1da
3 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/carbon/carbonbars.pp
View File

@ -12,8 +12,8 @@
unit CarbonBars;
{$mode objfpc}{$H+}
{$IFNDEF cpui386}
{$ERROR only cpu i386 is supported}
{$IFNDEF cpu32}
{$ERROR only 32 bit cpu is supported}
{$ENDIF}
interface

4
lcl/interfaces/carbon/interfaces.pas
View File

@ -22,8 +22,8 @@ unit Interfaces;
{$IFNDEF CARBON}
{$ERROR wrong interfaces source}
{$ENDIF}
{$IFNDEF cpui386}
{$ERROR only cpu i386 is supported}
{$IFNDEF cpu32}
{$ERROR only 32 bit cpu is supported}
{$ENDIF}
interface

2
lcl/interfaces/cocoa/cocoaint.pas
View File

@ -543,6 +543,7 @@ begin
else
wnd := nil;
{$ifndef CPUPOWERPC}
if (theEvent.type_ = NSKeyDown)
and not (win.firstResponder.conformsToProtocol(objcprotocol(NSTextInputClientProtocol))) then
begin
@ -553,6 +554,7 @@ begin
end;
inputctx.handleEvent(theEvent);
end;
{$endif}
cb.KeyEvBefore(theEvent, allowcocoa);
if allowcocoa then