Răsfoiți Sursa

- disable I/O-port-related intrinsic functionality when using LLVM, as the
x86-specific inline nodes are not available then

git-svn-id: branches/debug_eh@40437 -

Jonas Maebe 6 ani în urmă
părinte
comite
bd23ac0dab
2 a modificat fișierele cu 8 adăugiri și 0 ștergeri
  1. 4 0
      rtl/unix/ports.pp
  2. 4 0
      rtl/unix/x86.pp

+ 4 - 0
rtl/unix/ports.pp

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

+ 4 - 0
rtl/unix/x86.pp

@@ -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;