Kaynağa Gözat

* Reverted r8082

git-svn-id: branches/fixes_2_2@8087 -
joost 18 yıl önce
ebeveyn
işleme
d418c3dbba
2 değiştirilmiş dosya ile 5 ekleme ve 10 silme
  1. 5 6
      rtl/linux/linux.pp
  2. 0 4
      rtl/linux/system.pp

+ 5 - 6
rtl/linux/linux.pp

@@ -197,12 +197,6 @@ function epoll_wait(epfd: cint; events: pepoll_event; maxevents, timeout: cint):
 
 implementation
 
-// FUTEX_OP is a macro, doesn't exist in libC as function
-function FUTEX_OP(op, oparg, cmp, cmparg: cint): cint; {$ifdef SYSTEMINLINE}inline;{$endif}
-begin
-  FUTEX_OP := ((op and $F) shl 28) or ((cmp and $F) shl 24) or ((oparg and $FFF) shl 12) or (cmparg and $FFF);
-end;
-
 {$ifndef FPC_USE_LIBC}
 Uses Syscall;
 
@@ -293,6 +287,11 @@ begin
 {$endif cpum68k}
 end;
 
+function FUTEX_OP(op, oparg, cmp, cmparg: cint): cint;
+begin
+  FUTEX_OP := ((op and $F) shl 28) or ((cmp and $F) shl 24) or ((oparg and $FFF) shl 12) or (cmparg and $FFF);
+end;
+
 function epoll_create(size: cint): cint;
 begin
   epoll_create := do_syscall(syscall_nr_epoll_create,tsysparam(size));

+ 0 - 4
rtl/linux/system.pp

@@ -299,10 +299,6 @@ end;
 var
   initialstkptr : Pointer;external name '__stkptr';
 begin
-{$if defined(i386) and not defined(FPC_USE_LIBC)}
-  InitSyscallIntf;
-{$endif}
-
   SysResetFPU;
 {$if defined(cpupowerpc)}
   // some PPC kernels set the exception bits FE0/FE1 in the MSR to zero,