paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 12:09:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ dummy intassignpipe for non-i386

Browse Source 
git-svn-id: trunk@11791 -
This commit is contained in:
florian 2008-09-16 08:36:28 +00:00
parent 3f5511661a
commit efe81977e1
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/freebsd/unxsysc.inc
View File

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