paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-03 13:58:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@11790 -
This commit is contained in:
marco 2008-09-15 20:01:17 +00:00
parent fbbbf33be1
commit 3f5511661a
7 changed files with 36 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
rtl/bsd/bunxsysc.inc
View File

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

6
rtl/bsd/ossysc.inc
View File

@ -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'];

2
rtl/bsd/sysctl.pp
View File

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

7
rtl/freebsd/Makefile
View File

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

6
rtl/freebsd/Makefile.fpc
View File

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

2
rtl/freebsd/ptypes.inc
View File

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

2
rtl/freebsd/unxsysc.inc
View File

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