* lots of little longint() to TSysParam() fixes. Ancient code, brr.

git-svn-id: trunk@11790 -

rtl/bsd/bunxsysc.inc

@@ -37,7 +37,7 @@ Function FPSigPending(var nset: sigset_t):cint;
   signals is set in SSet
 }
 begin
-  FPsigpending:=do_syscall(syscall_nr_sigpending,longint(@nset));
+  FPsigpending:=do_syscall(syscall_nr_sigpending,TSysParam(@nset));
 end;
 
 function FPsigsuspend(const sigmask:sigset_t):cint;
@@ -47,7 +47,7 @@ function FPsigsuspend(const sigmask:sigset_t):cint;
 }
 
 begin
-  FPsigsuspend:= do_syscall(syscall_nr_sigsuspend,longint(@sigmask));
+  FPsigsuspend:= do_syscall(syscall_nr_sigsuspend,TSysParam(@sigmask));
 end;
 
 Type // implementation side for now. Should move to BSD unit.
@@ -63,13 +63,13 @@ Const   ITimer_Real    =0;
 Function SetITimer(Which : Longint;Const value : ItimerVal; var VarOValue:ItimerVal):Longint;
 
 Begin
-  SetItimer:=Do_Syscall(syscall_nr_setitimer,Which,Longint(@Value),longint(@varovalue));
+  SetItimer:=Do_Syscall(syscall_nr_setitimer,Which,TSysParam(@Value),TSysParam(@varovalue));
 End;
 
 Function GetITimer(Which : Longint;Var value : ItimerVal):Longint;
 
 Begin
-  GetItimer:=Do_Syscall(syscall_nr_getItimer,Which,Longint(@value));
+  GetItimer:=Do_Syscall(syscall_nr_getItimer,Which,TSysParam(@value));
 End;
 
 Function FPalarm(Seconds: cuint):cuint;
@@ -225,7 +225,7 @@ function FPwait(var stat_loc:cint): pid_t;
 }
 
 begin // actually a wait4() call with 4th arg 0.
- FPWait:=do_syscall(syscall_nr_WaitPID,WAIT_ANY,longint(@Stat_loc),0,0);
+ FPWait:=do_syscall(syscall_nr_WaitPID,WAIT_ANY,TSysParam(@Stat_loc),0,0);
 end;
 
 //function FPgetpid : pid_t;
@@ -281,7 +281,7 @@ end;
 function FPgetgroups(gidsetsize : cint; var grouplist:tgrparr): cint;
 
 begin
- FPgetgroups:=do_syscall(syscall_nr_getgroups,gidsetsize,longint(@grouplist));
+ FPgetgroups:=do_syscall(syscall_nr_getgroups,gidsetsize,TSysParam(@grouplist));
 end;
 
 function FPgetpgrp : pid_t;
@@ -311,25 +311,25 @@ Function FPlink(existing:pchar;newone:pchar):cint;
   In effect, new will be the same file as old.
 }
 begin
-  FPLink:=Do_Syscall(syscall_nr_link,longint(existing),longint(newone));
+  FPLink:=Do_Syscall(syscall_nr_link,TSysParam(existing),TSysParam(newone));
 end;
 
 Function FPmkfifo(path:pchar;mode:mode_t):cint;
 
 begin
-  FPmkfifo:=do_syscall(syscall_nr_mkfifo,longint(path),longint(mode));
+  FPmkfifo:=do_syscall(syscall_nr_mkfifo,TSysParam(path),TSysParam(mode));
 end;
 
 Function FPchmod(path:pchar;mode:mode_t):cint;
 
 begin
-  FPchmod:=do_syscall(syscall_nr_chmod,longint(path),longint(mode));
+  FPchmod:=do_syscall(syscall_nr_chmod,TSysParam(path),TSysParam(mode));
 end;
 
 Function FPchown(path:pchar;owner:uid_t;group:gid_t):cint;
 
 begin
-  FPChOwn:=do_syscall(syscall_nr_chown,longint(path),longint(owner),longint(group));
+  FPChOwn:=do_syscall(syscall_nr_chown,TSysParam(path),TSysParam(owner),TSysParam(group));
 end;
 
 Function FPUtime(path:pchar;times:putimbuf):cint;
@@ -348,13 +348,13 @@ begin
     tv[1].tv_usec:=0;
     tvp:=@tv;
    end;
- FPutime:=do_syscall(syscall_nr_utimes,longint(path),longint(tvp));
+ FPutime:=do_syscall(syscall_nr_utimes,TSysParam(path),TSysParam(tvp));
 end;
 
 Function FPpipe(var fildes : tfildes):cint;
 
 begin
- FPpipe:=do_syscall(syscall_nr_pipe,longint(@fildes));
+ FPpipe:=do_syscall(syscall_nr_pipe,TSysParam(@fildes));
 end;
 
 function FPfcntl(fildes:cint;Cmd:cint;Arg:cint):cint;
@@ -366,7 +366,7 @@ end;
 function FPfcntl(fildes:cint;Cmd:cint;var Arg:flock):cint;
 
 begin
- FPfcntl:=do_syscall(syscall_nr_fcntl,fildes,cmd,longint(@arg));
+ FPfcntl:=do_syscall(syscall_nr_fcntl,fildes,cmd,TSysParam(@arg));
 end;
 
 function FPfcntl(fildes:cint;Cmd:cint):cint;
@@ -378,13 +378,13 @@ end;
 function FPexecve(path:pchar;argv:ppchar;envp:ppchar):cint;
 
 Begin
-  FPexecve:=do_syscall(syscall_nr_Execve,longint(path),longint(argv),longint(envp));
+  FPexecve:=do_syscall(syscall_nr_Execve,TSysParam(path),TSysParam(argv),TSysParam(envp));
 End;
 
 function FPexecv(path:pchar;argv:ppchar):cint;
 
 Begin
-  FPexecv:=do_syscall(syscall_nr_Execve,longint(path),longint(argv),longint(envp));
+  FPexecv:=do_syscall(syscall_nr_Execve,TSysParam(path),TSysParam(argv),TSysParam(envp));
 End;
 
 CONST RUSAGE_SELF       = 0;
@@ -393,7 +393,7 @@ CONST RUSAGE_SELF       = 0;
 function FPgetrusage(who:cint;var ru : rusage):cint;
 
 begin
- FPgetrusage:=do_syscall(syscall_nr_getrusage,longint(who),longint(@ru));
+ FPgetrusage:=do_syscall(syscall_nr_getrusage,longint(who),TSysParam(@ru));
 end;
 
 function FPtimes(var buffer : tms):clock_t;
@@ -422,7 +422,7 @@ begin
             exit(clock_t(-1));
         buffer.tms_cutime := CONVTCK(ru.ru_utime);
         buffer.tms_cstime := CONVTCK(ru.ru_stime);
-        if do_syscall(syscall_nr_gettimeofday,longint(@t),0)<>0 Then
+        if do_syscall(syscall_nr_gettimeofday,TSysParam(@t),0)<>0 Then
                     exit(clock_t(-1));
         FPtimes:=clock_t(CONVTCK(t));
 end;
@@ -434,7 +434,7 @@ Function fpSelect(N:cint;readfds,writefds,exceptfds:pfdSet;TimeOut:PTimeVal):cin
 }
 
 begin
- fpSelect:=do_syscall(syscall_nr_select,n,longint(readfds),longint(writefds),longint(exceptfds),longint(timeout));
+ fpSelect:=do_syscall(syscall_nr_select,n,TSysParam(readfds),TSysParam(writefds),TSysParam(exceptfds),TSysParam(timeout));
 end;
 
 Function fpLstat(path:pchar;Info:pstat):cint;

rtl/bsd/ossysc.inc

@@ -198,7 +198,7 @@ begin
    exit;
   ptr^.dd_fd:=fd;
   ptr^.dd_loc:=-1;
-  ptr^.dd_rewind:=longint(ptr^.dd_buf);
+  ptr^.dd_rewind:=ptrint(ptr^.dd_buf);
   ptr^.dd_size:=0;
 //  ptr^.dd_max:=sizeof(ptr^.dd_buf^);
   Fpopendir:=ptr;
@@ -248,7 +248,7 @@ begin
  if (dirp^.dd_buf=nil) or (dirp^.dd_loc=0) THEN
   exit(nil);
  if (dirp^.dd_loc=-1)   OR     {First readdir on this pdir. Initial fill of buffer}
-   (dirp^.dd_rewind>=(longint(dirp^.dd_buf)+dirp^.dd_size)) then  {no more entries left?}
+   (dirp^.dd_rewind>=(ptrint(dirp^.dd_buf)+dirp^.dd_size)) then  {no more entries left?}
   Begin
     if readbuffer=0 then        {succesful read?}
      Exit(NIL);                 {No more data}
@@ -477,7 +477,7 @@ function FPSigProcMask(how:cint;nset : psigset;oset : psigset):cint; [public, al
 }
 
 begin
-  FPsigprocmask:=do_syscall(syscall_nr_sigprocmask,longint(how),longint(nset),longint(oset));
+  FPsigprocmask:=do_syscall(syscall_nr_sigprocmask,tsysparam(how),TSysParam(nset),TSysParam(oset));
 end;
 {$user BLA!}
 Function FpNanoSleep(req : ptimespec;rem : ptimespec) : cint; [public, alias : 'FPC_SYSC_NANOSLEEP'];

rtl/bsd/sysctl.pp

@@ -105,7 +105,7 @@ function FPsysctl (Name: pchar; namelen:cuint; oldp:pointer;oldlenp:psize_t; new
 
 Begin
         if (name[0] <> chr(CTL_USER)) Then
-           exit(do_syscall(syscall_nr___sysctl,longint(name), namelen, longint(oldp), longint(oldlenp), longint(newp), longint(newlen)))
+           exit(do_syscall(syscall_nr___sysctl,TSysParam(name), namelen, TSysParam(oldp), TSysParam(oldlenp), TSysParam(newp), TSysParam(newlen)))
         else
          Exit(0);
 End;

rtl/freebsd/Makefile

@@ -1,5 +1,5 @@
 #
-# Don't edit, this file is generated by FPCMake Version 2.0.0 [2008/09/13]
+# Don't edit, this file is generated by FPCMake Version 2.0.0 [2008/09/14]
 #
 default: all
 MAKEFILETARGETS=i386-linux i386-go32v2 i386-win32 i386-os2 i386-freebsd i386-beos i386-haiku i386-netbsd i386-solaris i386-qnx i386-netware i386-openbsd i386-wdosx i386-darwin i386-emx i386-watcom i386-netwlibc i386-wince i386-embedded i386-symbian m68k-linux m68k-freebsd m68k-netbsd m68k-amiga m68k-atari m68k-openbsd m68k-palmos m68k-embedded powerpc-linux powerpc-netbsd powerpc-amiga powerpc-macos powerpc-darwin powerpc-morphos powerpc-embedded sparc-linux sparc-netbsd sparc-solaris sparc-embedded x86_64-linux x86_64-freebsd x86_64-darwin x86_64-win64 x86_64-embedded arm-linux arm-palmos arm-darwin arm-wince arm-gba arm-nds arm-embedded arm-symbian powerpc64-linux powerpc64-darwin powerpc64-embedded avr-embedded armeb-linux armeb-embedded
@@ -283,6 +283,11 @@ CPU_UNITS=x86 ports cpu mmx
 else
 CPU_UNITS=
 endif
+ifeq ($(CPU_TARGET),x86_64)
+CPU_UNITS=x86 ports 
+else
+CPU_UNITS=
+endif
 ifdef RELEASE
 override FPCOPT+=-Ur
 endif

rtl/freebsd/Makefile.fpc

@@ -74,6 +74,12 @@ else
 CPU_UNITS=
 endif
 
+ifeq ($(CPU_TARGET),x86_64)
+CPU_UNITS=x86 ports 
+else
+CPU_UNITS=
+endif
+
 
 # Use new feature from 1.0.5 version
 # that generates release PPU files

rtl/freebsd/ptypes.inc

@@ -153,7 +153,7 @@ type
 
 
 Const
-     MNAMLEN   = 88-2*sizeof(long); // slightly machine specific.
+     MNAMLEN   = 88-2*sizeof(clong); // slightly machine specific.
      MFSNamLen = 16;	
 type
   fsid_t  = array[0..1] of cint;

rtl/freebsd/unxsysc.inc

@@ -118,6 +118,6 @@ end;
 
 function MUnMap (P : Pointer; Size : size_t) : cint;
 begin
-  MUnMap:=do_syscall(syscall_nr_munmap,longint(P),Size);
+  MUnMap:=do_syscall(syscall_nr_munmap,TSysParam(P),Size);
 end;