paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 03:48:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

- disable I/O-port-related intrinsic functionality when using LLVM, as the

Browse Source 
x86-specific inline nodes are not available then

git-svn-id: branches/debug_eh@40437 -
This commit is contained in:
Jonas Maebe 2018-12-01 20:30:43 +00:00
parent c0ce94528f
commit bd23ac0dab
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/unix/ports.pp
View File

@ -18,10 +18,14 @@ Unit ports;
Interface
{$ifndef cpullvm}
{$I portsh.inc}
{$endif}
implementation
{$ifndef cpullvm}
{$I ports.inc}
{$endif}
end.

4
rtl/unix/x86.pp
View File

@ -21,6 +21,7 @@ interface
Uses BaseUnix;
{$ifndef cpullvm}
function ReadPortB (Port : Longint): Byte;inline;
function ReadPortW (Port : Longint): Word;inline;
function ReadPortL (Port : Longint): Longint;inline;
@ -39,6 +40,7 @@ Procedure WritePortL (Port : Longint; Value : Longint);inline;
Procedure WritePortW (Port : Longint; Value : Word);inline;
Procedure WritePortW (Port : Longint; Var Buf; Count: longint);
Procedure WritePortl (Port : Longint; Var Buf; Count: longint);
{$endif}
Function fpIOperm (From,Num : Cardinal; Value : cint) : cint;
Function fpIoPL(Level : cint) : cint;
@ -61,6 +63,7 @@ function fpc_x86_inportw(p:word):word; begin fpc_x86_inportw:=0; end;
function fpc_x86_inportl(p:word):longint; begin fpc_x86_inportl:=0; end;
{$ENDIF VER3_0}
{$ifndef cpullvm}
Procedure WritePort (Port : Longint; Value : Byte);inline;
{
Writes 'Value' to port 'Port'
@ -330,6 +333,7 @@ begin
{$endif CPUX86_64}
end;
end;
{$endif cpullvm}
{$if defined(linux) or defined(android)}
Function fpIOperm (From,Num : Cardinal; Value : cint) : cint;