* x86-64 fixes

rtl/linux/bunxfunc.inc

@@ -25,7 +25,7 @@
 {$endif}
 //{$i genfuncs.inc}
 
-{$i bunxmacr.inc}       // macro's.
+{$i bunxmacr.inc}       // macros.
 
 {$I gensigset.inc}     // general sigset funcs implementation.
 {$I genfdset.inc}
@@ -61,7 +61,7 @@ Function fpSigProcMask(how:cint;nset : pSigSet; oset : pSigSet):cint; [public, a
 }
 
 begin
-  fpsigprocmask:=do_syscall(syscall_nr_sigprocmask,longint(how),longint(nset),longint(oset));
+  fpsigprocmask:=do_syscall(syscall_nr_rt_sigprocmask,longint(how),longint(nset),longint(oset));
 end;
 
 
@@ -71,7 +71,7 @@ Function fpSigPending(var nset: TSigSet):cint;
   signals is set in SSet
 }
 begin
-  fpsigpending:=do_syscall(syscall_nr_sigpending,longint(@nset));
+  fpsigpending:=do_syscall(syscall_nr_rt_sigpending,longint(@nset));
 end;
 
 function fpsigsuspend(const sigmask:TSigSet):cint;
@@ -81,7 +81,7 @@ function fpsigsuspend(const sigmask:TSigSet):cint;
 }
 
 begin
-  fpsigsuspend:= do_syscall(syscall_nr_sigsuspend,longint(@sigmask));
+  fpsigsuspend:= do_syscall(syscall_nr_rt_sigsuspend,longint(@sigmask));
 end;
 
 Type
@@ -446,7 +446,10 @@ end;
 
 {
  $Log$
- Revision 1.8  2004-02-21 23:18:50  marco
+ Revision 1.9  2004-04-22 17:17:23  peter
+   * x86-64 fixes
+
+ Revision 1.8  2004/02/21 23:18:50  marco
   * powerpc select fix
 
  Revision 1.7  2003/12/30 15:43:20  marco

rtl/linux/unixsock.inc

@@ -14,10 +14,16 @@
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 }
 
+{$ifndef cpux86_64}
+  {$define NEED_SOCKETCALL}
+{$endif}
+
 {******************************************************************************
                           Basic Socket Functions
 ******************************************************************************}
 
+{$ifdef NEED_SOCKETCALL}
+
 Const
   {
     Arguments to the Linux Kernel system call for sockets. All
@@ -61,15 +67,15 @@ begin
 end;
 
 
-Function SocketCall(SockCallNr,a1,a2,a3:longint):longint;
+function SocketCall(SockCallNr,a1,a2,a3:longint):longint;
 begin
   SocketCall:=SocketCall(SockCallNr,a1,a2,a3,0,0,0);
 end;
 
 function  fpsocket (domain:cint; xtype:cint; protocol: cint):cint; 
-Begin
+begin
   fpSocket:=SocketCall(Socket_Sys_socket,Domain,xtype,Protocol);
-End;
+end;
 
 function  fpsend (s:cint; msg:pointer; len:size_t; flags:cint):ssize_t; 
 begin
@@ -137,14 +143,95 @@ begin
 end;
 
 function  fpsocketpair (d:cint; xtype:cint; protocol:cint; sv:pcint):cint; 
-
 begin
   fpSocketPair:=SocketCall(Socket_Sys_SocketPair,d,xtype,protocol,TSysParam(sv),0,0);
 end;
 
+{$else NEED_SOCKETCALL}
+
+function  fpsocket (domain:cint; xtype:cint; protocol: cint):cint; 
+begin
+  fpSocket:=do_syscall(syscall_nr_socket,Domain,xtype,Protocol);
+end;
+
+function  fpsend (s:cint; msg:pointer; len:size_t; flags:cint):ssize_t; 
+begin
+  fpSend:=do_syscall(syscall_nr_sendto,S,TSysParam(msg),Len,Flags);
+end;
+
+function  fpsendto (s:cint; msg:pointer; len:size_t; flags:cint; tox :psockaddr; tolen: tsocklen):ssize_t; 
+begin
+  fpSendto:=do_syscall(syscall_nr_sendto,S,TSysParam(msg),Len,Flags,TSysParam(tox),tolen);
+end;
+
+function  fprecv (s:cint; buf: pointer; len: size_t; flags:cint):ssize_t;
+begin
+  fpRecv:=do_syscall(syscall_nr_Recvfrom,S,tsysparam(buf),len,flags);
+end;
+
+function  fprecvfrom (s:cint; buf: pointer; len: size_t; flags: cint; from : psockaddr; fromlen : psocklen):ssize_t; 
+begin
+  fpRecvFrom:=do_syscall(syscall_nr_Recvfrom,S,TSysParam(buf),len,flags,TSysParam(from),TSysParam(fromlen));
+end;
+
+function  fpbind (s:cint; addrx : psockaddr; addrlen : tsocklen):cint; 
+begin
+  fpBind:=do_syscall(syscall_nr_Bind,S,TSysParam(addrx),addrlen);
+end;
+
+function  fplisten (s:cint; backlog : cint):cint;                          
+begin
+  fpListen:=do_syscall(syscall_nr_Listen,S,backlog);
+end;
+
+function  fpaccept (s:cint; addrx : psockaddr; addrlen : psocklen):cint; 
+begin
+  fpAccept:=do_syscall(syscall_nr_accept,S,TSysParam(addrx),TSysParam(addrlen));
+end;
+
+function  fpconnect (s:cint; name  : psockaddr; namelen : tsocklen):cint; 
+begin
+  fpConnect:=do_syscall(syscall_nr_connect,S,TSysParam(name),namelen);
+end;
+
+function  fpshutdown (s:cint; how:cint):cint; 
+begin
+  fpShutDown:=do_syscall(syscall_nr_shutdown,S,how);
+end;
+
+function  fpgetsockname (s:cint; name  : psockaddr; namelen : psocklen):cint; 
+begin
+  fpGetSockName:=do_syscall(syscall_nr_GetSockName,S,TSysParam(name),TSysParam(namelen));
+end;
+
+function  fpgetpeername (s:cint; name  : psockaddr; namelen : psocklen):cint; 
+begin
+  fpGetPeerName:=do_syscall(syscall_nr_GetPeerName,S,TSysParam(name),TSysParam(namelen));
+end;
+
+function  fpsetsockopt  (s:cint; level:cint; optname:cint; optval:pointer; optlen : tsocklen):cint;
+begin
+  fpSetSockOpt:=do_syscall(syscall_nr_SetSockOpt,S,level,optname,TSysParam(optval),optlen);
+end;
+
+function  fpgetsockopt  (s:cint; level:cint; optname:cint; optval:pointer; optlen : psocklen):cint; 
+begin
+  fpGetSockOpt:=do_syscall(syscall_nr_GetSockOpt,S,level,TSysParam(optname),TSysParam(optval),TSysParam(optlen));
+end;
+
+function  fpsocketpair (d:cint; xtype:cint; protocol:cint; sv:pcint):cint; 
+begin
+  fpSocketPair:=do_syscall(syscall_nr_SocketPair,d,xtype,protocol,TSysParam(sv));
+end;
+
+{$endif NEED_do_syscall}
+
 {
  $Log$
- Revision 1.12  2004-03-22 06:49:28  marco
+ Revision 1.13  2004-04-22 17:17:23  peter
+   * x86-64 fixes
+
+ Revision 1.12  2004/03/22 06:49:28  marco
   * more fixes from Lloyd
 
  Revision 1.11  2004/03/20 15:19:29  marco

rtl/linux/unxsysc.inc

@@ -17,13 +17,24 @@
 function fpNice(N:cint):cint;
 {
   Set process priority. A positive N means a lower priority.
-  A negative N decreases priority.
+  A negative N increases priority.
 
 Doesn't exist in BSD. Linux emu uses setpriority in a construct as below:
 }
 
+{$ifdef cpux86_64}
+var
+  oldprio : cint;
+{$endif}  
 begin
+{$ifdef cpux86_64}
+  oldprio:=fpGetPriority(Prio_Process,0);
+  fpNice:=fpSetPriority(Prio_Process,0,oldprio+N);
+  if fpNice=0 then
+    fpNice:=fpGetPriority(Prio_Process,0);
+{$else}  
   fpNice:=do_syscall(Syscall_nr_nice,N);
+{$endif}
 end;
 
 Function fpGetPriority(Which,Who:cint):cint;
@@ -105,7 +116,10 @@ end;
 
 {
  $Log$
- Revision 1.4  2004-01-01 16:10:23  marco
+ Revision 1.5  2004-04-22 17:17:23  peter
+   * x86-64 fixes
+
+ Revision 1.4  2004/01/01 16:10:23  marco
   * fpreadlink(pathstr) moved to unxovl (since not platform specific),
  	small fixes for "make all OPT='-dFPC_USE_LIBC'
 

rtl/linux/x86_64/syscall.inc

@@ -30,7 +30,7 @@ asm
   movq %r9, %r8
   syscall                 { Do the system call. }
   cmpq $-4095, %rax       { Check %rax for error.  }
-  jnae .LSyscOK           { Jump to error handler if error.  }  
+  jnae .LSyscOK           { Jump to error handler if error.  }
   negq  %rax
   movq  %rax,%rdx
   movq  FPC_THREADVAR_RELOCATE,%rax
@@ -56,7 +56,7 @@ asm
   movq param1, %rdi         { shift arg1 - arg5. }
   syscall                 { Do the system call. }
   cmpq $-4095, %rax       { Check %rax for error.  }
-  jnae .LSyscOK           { Jump to error handler if error.  }  
+  jnae .LSyscOK           { Jump to error handler if error.  }
   negq  %rax
   movq  %rax,%rdx
   movq  FPC_THREADVAR_RELOCATE,%rax
@@ -83,7 +83,7 @@ asm
   movq param2, %rsi
   syscall                 { Do the system call. }
   cmpq $-4095, %rax       { Check %rax for error.  }
-  jnae .LSyscOK           { Jump to error handler if error.  }  
+  jnae .LSyscOK           { Jump to error handler if error.  }
   negq  %rax
   movq  %rax,%rdx
   movq  FPC_THREADVAR_RELOCATE,%rax
@@ -111,7 +111,7 @@ asm
   movq param3, %rdx
   syscall                 { Do the system call. }
   cmpq $-4095, %rax       { Check %rax for error.  }
-  jnae .LSyscOK           { Jump to error handler if error.  }  
+  jnae .LSyscOK           { Jump to error handler if error.  }
   negq  %rax
   movq  %rax,%rdx
   movq  FPC_THREADVAR_RELOCATE,%rax
@@ -140,7 +140,7 @@ asm
   movq param4, %r10
   syscall                 { Do the system call. }
   cmpq $-4095, %rax       { Check %rax for error.  }
-  jnae .LSyscOK           { Jump to error handler if error.  }  
+  jnae .LSyscOK           { Jump to error handler if error.  }
   negq  %rax
   movq  %rax,%rdx
   movq  FPC_THREADVAR_RELOCATE,%rax
@@ -170,7 +170,7 @@ asm
   movq param5, %r8
   syscall                 { Do the system call. }
   cmpq $-4095, %rax       { Check %rax for error.  }
-  jnae .LSyscOK           { Jump to error handler if error.  }  
+  jnae .LSyscOK           { Jump to error handler if error.  }
   negq  %rax
   movq  %rax,%rdx
   movq  FPC_THREADVAR_RELOCATE,%rax
@@ -189,43 +189,38 @@ asm
 .LSyscOK:
 end;
 
-{$ifdef notsupported}
-{ Only 5 params are pushed, so it'll not work as expected (PFV) }
+
 function FpSysCall(sysnr,param1,param2,param3,param4,param5,param6 : TSysParam):TSysResult; assembler;[public,alias:'FPC_SYSCALL6'];
 
 asm
-{ load the registers... }
-  movl sysnr,%eax
-  movl param1,%ebx
-  movl param2,%ecx
-  movl param3,%edx
-  movl param4,%esi
-  movl param5,%edi
-  int $0x80
-  testl %eax,%eax
-  jns   .LSyscOK
-  negl  %eax
-{$ifdef VER1_0}
-  movl  %eax,Errno
-{$else}
-  movl  %eax,%edx
-  movl  FPC_THREADVAR_RELOCATE,%eax
-  testl %eax,%eax
+  movq sysnr, %rax        { Syscall number -> rax.  }
+  movq param1, %rdi         { shift arg1 - arg5. }
+  movq param2, %rsi
+  movq param3, %rdx
+  movq param4, %r10
+  movq param5, %r8
+  movq param6, %r9
+  syscall                 { Do the system call. }
+  cmpq $-4095, %rax       { Check %rax for error.  }
+  jnae .LSyscOK           { Jump to error handler if error.  }
+  negq  %rax
+  movq  %rax,%rdx
+  movq  FPC_THREADVAR_RELOCATE,%rax
+  testq %rax,%rax
   jne   .LThread
-  movl  %edx,Errno+4
+  movq  %rdx,Errno+4
   jmp   .LNoThread
 .LThread:
-  pushl %edx
-  pushl Errno
-  call  *%eax
-  popl  %edx
-  movl  %edx,(%eax)
+  pushq %rdx
+  pushq Errno
+  call  *%rax
+  popq  %rdx
+  movq  %rdx,(%rax)
 .LNoThread:
-  movl  $-1,%eax
-{$endif}
+  movq  $-1,%rax
 .LSyscOK:
 end;
-{$endif notsupported}
+
 
 {No debugging for syslinux include !}
 {$IFDEF SYS_LINUX}
@@ -235,7 +230,10 @@ end;
 
 {
   $Log$
-  Revision 1.4  2004-02-06 23:06:16  florian
+  Revision 1.5  2004-04-22 17:17:23  peter
+    * x86-64 fixes
+
+  Revision 1.4  2004/02/06 23:06:16  florian
     - killed tsyscallregs
 
   Revision 1.3  2004/02/06 15:58:21  florian

rtl/linux/x86_64/syscallh.inc

@@ -39,13 +39,14 @@ function Do_SysCall(sysnr,param1,param2:TSysParam):TSysResult;  external name 'F
 function Do_SysCall(sysnr,param1,param2,param3:TSysParam):TSysResult; external name 'FPC_SYSCALL3';
 function Do_SysCall(sysnr,param1,param2,param3,param4:TSysParam):TSysResult; external name 'FPC_SYSCALL4';
 function Do_SysCall(sysnr,param1,param2,param3,param4,param5:TSysParam):TSysResult;  external name 'FPC_SYSCALL5';
-{$ifdef notsupported}
-function Do_SysCall(sysnr,param1,param2,param3,param4,param5,param6:TSysParam):TSysResult;  external name 'FPC_SYSCALL5';
-{$endif notsupported}
+function Do_SysCall(sysnr,param1,param2,param3,param4,param5,param6:TSysParam):TSysResult;  external name 'FPC_SYSCALL6';
 
 {
   $Log$
-  Revision 1.3  2004-02-06 15:58:21  florian
+  Revision 1.4  2004-04-22 17:17:23  peter
+    * x86-64 fixes
+
+  Revision 1.3  2004/02/06 15:58:21  florian
     * fixed x86-64 assembler problems
 
   Revision 1.2  2003/05/01 08:05:23  florian
@@ -53,29 +54,4 @@ function Do_SysCall(sysnr,param1,param2,param3,param4,param5,param6:TSysParam):T
 
   Revision 1.1  2003/04/30 22:11:06  florian
     + for a lot of x86-64 dependend files mostly dummies added
-
-  Revision 1.3  2002/12/18 20:41:33  peter
-    * Threadvar support for Errno
-    * Fixed syscall error return check
-    * Uncommented Syscall with 6 parameters, only 5 were really set
-
-  Revision 1.2  2002/12/18 16:46:37  marco
-   * Some mods.
-
-  Revision 1.1  2002/11/16 15:37:47  marco
-   * TSysParam + result moved to -h
-
-  Revision 1.4  2002/10/16 18:44:00  marco
-   * and again for ftruncate (sigh)
-
-  Revision 1.3  2002/10/16 18:41:14  marco
-   * the 7 param syscall (for lseek and truncate) now returns a int64.
-
-  Revision 1.2  2002/09/07 16:01:17  peter
-    * old logs removed and tabs fixed
-
-  Revision 1.1  2002/08/20 08:28:14  marco
-   * Updates for new errno scheme.
-
-
 }

rtl/unix/ipc.pp

@@ -241,6 +241,27 @@ implementation
 
 uses BaseUnix,Syscall;
 
+//{$ifdef linux}
+  {$ifndef cpux86_64}
+    {$define NEED_IPCCALL}
+  {$endif}
+//{$endif}
+
+
+Function ftok (Path : String; ID : char) : TKey;
+Var Info : TStat;
+begin
+  If fpstat(path,info)<0 then
+    ftok:=-1
+  else
+    begin
+    ftok:= (info.st_ino and $FFFF) or ((info.st_dev and $ff) shl 16) or (byte(ID) shl 24)
+    end;
+end;
+
+
+{$ifdef NEED_IPCCALL}
+
 { The following definitions come from linux/ipc.h }
 
 Const
@@ -259,38 +280,21 @@ Const
 { generic call that handles all IPC calls }
 
 function ipccall(Call,First,Second,Third : Longint; P : Pointer) : longint;
-
 begin
- {$IFNDEF bsd}
-  ipccall:=do_syscall(syscall_nr_ipc,call,first,second,third,longint(P));
-  {$Endif}
+{$ifndef BSD}
+ ipccall:=do_syscall(syscall_nr_ipc,call,first,second,third,longint(P));
+{$endif} 
  ipcerror:=fpgetErrno;
 end;
 
-Function ftok (Path : String; ID : char) : TKey;
-
-Var Info : TStat;
-
-begin
-  If fpstat(path,info)<0 then
-    ftok:=-1
-  else
-    begin
-    ftok:= (info.st_ino and $FFFF) or ((info.st_dev and $ff) shl 16) or (byte(ID) shl 24)
-    end;
-end;
-
 function shmget(key: Tkey; size:longint; flag:longint):longint;
-
 begin
   shmget:=ipccall (CALL_SHMGET,key,size,flag,nil);
 end;
 
 function shmat (shmid:longint; shmaddr:pchar; shmflg:longint): pchar;
-
 Var raddr : pchar;
     error : longint;
-
 begin
   error:=ipccall(CALL_SHMAT,shmid,shmflg,longint(@raddr),shmaddr);
   If Error<0 then
@@ -309,29 +313,24 @@ begin
  shmctl:=ipccall(CALL_SHMCTL,shmid,cmd,0,buf)=0;
 end;
 
-Function msgget(key:Tkey; msgflg:longint):longint;
-
+function msgget(key:Tkey; msgflg:longint):longint;
 begin
   msgget:=ipccall(CALL_MSGGET,key,msgflg,0,Nil);
 end;
 
-Function msgsnd(msqid:longint; msgp: PMSGBuf; msgsz: longint; msgflg:longint):Boolean;
-
+function msgsnd(msqid:longint; msgp: PMSGBuf; msgsz: longint; msgflg:longint):Boolean;
 begin
   msgsnd:=ipccall(Call_MSGSND,msqid,msgsz,msgflg,msgp)=0;
 end;
 
-Function msgrcv(msqid:longint; msgp: PMSGBuf; msgsz: longint; msgtyp:longint; msgflg:longint):Boolean;
-
+function msgrcv(msqid:longint; msgp: PMSGBuf; msgsz: longint; msgtyp:longint; msgflg:longint):Boolean;
 Type
   TIPC_Kludge = Record
     msgp   : pmsgbuf;
     msgtyp : longint;
   end;
-
 Var
    tmp : TIPC_Kludge;
-
 begin
   tmp.msgp   := msgp;
   tmp.msgtyp := msgtyp;
@@ -339,19 +338,16 @@ begin
 end;
 
 Function msgctl(msqid:longint; cmd: longint; buf: PMSQid_ds): Boolean;
-
 begin
   msgctl:=ipccall(CALL_MSGCTL,msqid,cmd,0,buf)=0;
 end;
 
 Function semget(key:Tkey; nsems:longint; semflg:longint): longint;
-
 begin
   semget:=ipccall (CALL_SEMGET,key,nsems,semflg,Nil);
 end;
 
 Function semop(semid:longint; sops: pointer; nsops:cardinal): Boolean;
-
 begin
   semop:=ipccall (CALL_SEMOP,semid,Longint(nsops),0,Pointer(sops))=0;
 end;
@@ -361,10 +357,87 @@ begin
   semctl:=ipccall(CALL_SEMCTL,semid,semnum,cmd,@arg);
 end;
 
+{$else NEED_IPCCALL}
+
+function shmget(key: Tkey; size:longint; flag:longint):longint;
+begin
+  shmget:=do_syscall (syscall_nr_SHMGET,TSysParam(key),TSysParam(size),TSysParam(flag),TSysParam(0));
+end;
+
+function shmat (shmid:longint; shmaddr:pchar; shmflg:longint): pchar;
+Var raddr : pchar;
+    error : longint;
+begin
+  error:=do_syscall(syscall_nr_SHMAT,TSysParam(shmid),TSysParam(shmflg),TSysParam(@raddr),TSysParam(shmaddr));
+  If Error<0 then
+    shmat:=pchar(error)
+  else
+    shmat:=raddr;
+end;
+
+function shmdt (shmaddr:pchar): boolean;
+begin
+  shmdt:=do_syscall(syscall_nr_SHMDT,TSysParam(0),TSysParam(0),TSysParam(0),TSysParam(shmaddr))<>-1;
+end;
+
+function shmctl(shmid:longint; cmd:longint; buf: pshmid_ds): Boolean;
+begin
+ shmctl:=do_syscall(syscall_nr_SHMCTL,TSysParam(shmid),TSysParam(cmd),TSysParam(0),TSysParam(buf))=0;
+end;
+
+function msgget(key:Tkey; msgflg:longint):longint;
+begin
+  msgget:=do_syscall(syscall_nr_MSGGET,TSysParam(key),TSysParam(msgflg),TSysParam(0),TSysParam(0));
+end;
+
+function msgsnd(msqid:longint; msgp: PMSGBuf; msgsz: longint; msgflg:longint):Boolean;
+begin
+  msgsnd:=do_syscall(syscall_nr_MSGSND,TSysParam(msqid),TSysParam(msgsz),TSysParam(msgflg),TSysParam(msgp))=0;
+end;
+
+function msgrcv(msqid:longint; msgp: PMSGBuf; msgsz: longint; msgtyp:longint; msgflg:longint):Boolean;
+Type
+  TIPC_Kludge = Record
+    msgp   : pmsgbuf;
+    msgtyp : longint;
+  end;
+Var
+   tmp : TIPC_Kludge;
+begin
+  tmp.msgp   := msgp;
+  tmp.msgtyp := msgtyp;
+  msgrcv:=do_syscall(syscall_nr_MSGRCV,TSysParam(msqid),TSysParam(msgsz),TSysParam(msgflg),TSysParam(@tmp))>=0;
+end;
+
+Function msgctl(msqid:longint; cmd: longint; buf: PMSQid_ds): Boolean;
+begin
+  msgctl:=do_syscall(syscall_nr_MSGCTL,TSysParam(msqid),TSysParam(cmd),TSysParam(0),TSysParam(buf))=0;
+end;
+
+Function semget(key:Tkey; nsems:longint; semflg:longint): longint;
+begin
+  semget:=do_syscall (syscall_nr_SEMGET,TSysParam(key),TSysParam(nsems),TSysParam(semflg),TSysParam(0));
+end;
+
+Function semop(semid:longint; sops: pointer; nsops:cardinal): Boolean;
+begin
+  semop:=do_syscall (syscall_nr_SEMOP,TSysParam(semid),TSysParam(nsops),TSysParam(0),TSysParam(sops))=0;
+end;
+
+Function semctl(semid:longint; semnum:longint; cmd:longint; var arg: tsemun): longint;
+begin
+  semctl:=do_syscall(syscall_nr_SEMCTL,TSysParam(semid),TSysParam(semnum),TSysParam(cmd),TSysParam(@arg));
+end;
+
+{$endif NEED_IPCCALL}
+
 end.
 {
   $Log$
-  Revision 1.7  2004-02-06 23:06:16  florian
+  Revision 1.8  2004-04-22 17:17:13  peter
+    * x86-64 fixes
+
+  Revision 1.7  2004/02/06 23:06:16  florian
     - killed tsyscallregs
 
   Revision 1.6  2003/11/16 14:09:25  marco

rtl/unix/unix.pp

@@ -537,7 +537,7 @@ Var
 Begin
   If SearchPath and (pos('/',pathname)=0) Then
     Begin
-      // The above could be better. (check if not escaped/quoted '/' 's) ?
+      // The above could be better. (check if not escaped/quoted '/'s) ?
       // (Jilles says this is ok)
       // Stevens says only search if newcmd contains no '/'
       // fsearch is not ansistring clean yet.
@@ -882,11 +882,23 @@ function intstime (t:ptime_t):cint; external name 'stime';
 {$endif}
 
 Function stime (t : cint) : boolean;
+{$ifndef FPC_USE_LIBC}
+  {$ifdef cpux86_64}  
+  var
+    tv : ttimeval;
+  {$endif}
+{$endif}     
 begin
   {$ifdef FPC_USE_LIBC}
    stime:=intstime(@t)=0;
   {$else}
-   stime:=do_SysCall(Syscall_nr_stime,cint(@t))=0;
+    {$ifdef cpux86_64}  
+      tv.tv_sec:=t;
+      tv.tv_usec:=0;
+      stime:=do_SysCall(Syscall_nr_settimeofday,TSysParam(@tv),0)=0;
+    {$else}
+      stime:=do_SysCall(Syscall_nr_stime,TSysParam(@t))=0;
+    {$endif}  
   {$endif}
 end;
 {$endif}
@@ -1742,7 +1754,10 @@ End.
 
 {
   $Log$
-  Revision 1.68  2004-03-04 22:15:17  marco
+  Revision 1.69  2004-04-22 17:17:13  peter
+    * x86-64 fixes
+
+  Revision 1.68  2004/03/04 22:15:17  marco
    * UnixType changes. Please report problems to me.
 
   Revision 1.66  2004/02/16 13:21:18  marco