paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 23:59:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Ptrint considered harmfull bug no 54689826, change to ptruint.

Browse Source 
git-svn-id: trunk@6961 -
This commit is contained in:
daniel 2007-03-23 15:38:28 +00:00
parent f91620c22b
commit 5da5440e12
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/linux/ossysc.inc
View File

@ -179,7 +179,7 @@ begin
dirp^.dd_size := bytes; dirp^.dd_size := bytes;
dirp^.dd_nextoff := 0; dirp^.dd_nextoff := 0;
end; end;
dp := pdirent(ptrint(dirp^.dd_buf)+dirp^.dd_nextoff); dp := Pdirent(ptruint(dirp^.dd_buf)+dirp^.dd_nextoff);
inc(dirp^.dd_nextoff,dp^.d_reclen); inc(dirp^.dd_nextoff,dp^.d_reclen);
inc(dirp^.dd_loc,dp^.d_reclen); inc(dirp^.dd_loc,dp^.d_reclen);
until dp^.d_fileno <> 0; // Don't show deleted files until dp^.d_fileno <> 0; // Don't show deleted files
@ -271,7 +271,7 @@ function Fpsigaction(sig: cint; new_action, old_action: psigactionrec): cint; [p
begin begin
{$ifdef cpusparc} {$ifdef cpusparc}
{ Sparc has an extra stub parameter } { Sparc has an extra stub parameter }
Fpsigaction:=do_syscall(syscall_nr_rt_sigaction,TSysParam(sig),TSysParam(new_action),TSysParam(old_action),TSysParam(PtrInt(@Fprt_sigreturn_stub)-8),TSysParam(8)); Fpsigaction:=do_syscall(syscall_nr_rt_sigaction,TSysParam(sig),TSysParam(new_action),TSysParam(old_action),TSysParam(ptruint(@Fprt_sigreturn_stub)-8),TSysParam(8));
{$else cpusparc} {$else cpusparc}
{$ifdef NEED_USER_TRAMPOLINE} {$ifdef NEED_USER_TRAMPOLINE}
if new_action <> nil then if new_action <> nil then
@ -582,7 +582,7 @@ end;
{$if defined(cpupowerpc)} {$if defined(cpupowerpc)}
{ fpprctl() call } { fpprctl() call }
function fpprctl(option : cint; const arg : ptrint) : cint; function fpprctl(option : cint; const arg : ptruint) : cint;
begin begin
fpprctl := do_syscall(syscall_nr_prctl, option, arg); fpprctl := do_syscall(syscall_nr_prctl, option, arg);
end; end;

2
rtl/unix/oscdeclh.inc
View File

@ -133,5 +133,5 @@ const
function FpWriteV (fd: cint; const iov : piovec; iovcnt : cint):TSSize; cdecl; external clib name 'writev'; function FpWriteV (fd: cint; const iov : piovec; iovcnt : cint):TSSize; cdecl; external clib name 'writev';
{$ifdef linux} {$ifdef linux}
function FpPrCtl(options : cInt; const args : ptrint) : cint; cdecl; external clib name 'prctl'; function FpPrCtl(options : cInt; const args : ptruint) : cint; cdecl; external clib name 'prctl';
{$endif} {$endif}