Explorar el Código

+ dummy intassignpipe for non-i386

git-svn-id: trunk@11791 -
florian hace 17 años
padre
commit
efe81977e1
Se han modificado 1 ficheros con 6 adiciones y 1 borrados
  1. 6 1
      rtl/freebsd/unxsysc.inc

+ 6 - 1
rtl/freebsd/unxsysc.inc

@@ -84,7 +84,7 @@ begin
  fpFlock:=do_syscall(syscall_nr_flock,fd,mode);
 end;
 
-{$ifndef CPUI386}
+{$ifdef CPUI386}
 // needs oldfpccall;
 Function intAssignPipe(var pipe_in,pipe_out:longint;var errn:cint):cint;  oldfpccall;
 {
@@ -113,6 +113,11 @@ begin
    mov %ebx,(%edx)
  end;
 end;
+{$else CPUI386}
+Function intAssignPipe(var pipe_in,pipe_out:longint;var errn:cint):cint;  oldfpccall;
+  begin
+    runerror(217);
+  end;
 {$endif CPUI386}