paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 22:19:18 +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; unit CarbonBars;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
{$IFNDEF cpui386} {$IFNDEF cpu32}
{$ERROR only cpu i386 is supported} {$ERROR only 32 bit cpu is supported}
{$ENDIF} {$ENDIF}
interface interface

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

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

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

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