ik wrote:
I think that the entire design of the Do_SysCall is malformed in the
way it assumes the number of parameters and also the type of them, so
as I asked before, how I can either call the syscall command without
assembler, or how I can pass an array of const (prior to that I asked
regarding array of TSysParam) to assembly if three is no other way to
use syscall ?
{/= SigTimedWait =====================================================\}
{ }
{\====================================================================/}
function SigTimedWait (
var SigSet : BaseUnix.tSigSet;
Info : BaseUnix.pSigInfo;
var TimeOut : BaseUnix.tTimeSpec) : BaseUnix.CInt; inline;
begin
{$HINTS OFF} // I fucking *know* that most conversions below are not
// portable, so there is no need for the compiler
// telling me that crap. After all, this portion is
// unportable code by design anyway. ;)
exit (SysCall.Do_SysCall (
SysCall.Syscall_Nr_RT_SigTimedWait,
SysCall.tSysParam (@SigSet),
SysCall.tSysParam (Info),
SysCall.tSysParam (@Timeout),
SysCall.tSysParam (KERNEL_EXPECTED_SIGSET_SIZE)));
{$HINTS ON}
end {SigTimedWait};
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
