Browse Source

+ dummy intassignpipe for non-i386

git-svn-id: trunk@11791 -
florian 17 years ago
parent
commit
efe81977e1
1 changed files with 6 additions and 1 deletions
  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}