mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 12:05:57 +02:00
* Adapt to mipsel compiler defining cpumipsel and cpumipsel32 but not cpumips anymore
git-svn-id: trunk@21542 -
This commit is contained in:
parent
be67af4374
commit
651589c9a4
@ -545,7 +545,7 @@ begin
|
|||||||
{$ifdef CPU64}
|
{$ifdef CPU64}
|
||||||
Fppread:=do_syscall(syscall_nr_pread64,Fd,TSysParam(buf),nbytes,TSysParam(OffSet));
|
Fppread:=do_syscall(syscall_nr_pread64,Fd,TSysParam(buf),nbytes,TSysParam(OffSet));
|
||||||
{$else}
|
{$else}
|
||||||
{$ifdef CPUMIPS32}
|
{$if defined(CPUMIPS32) or defined(CPUMIPSEL32)}
|
||||||
Fppread:=do_syscall(syscall_nr_pread64,Fd,TSysParam(buf),nbytes,0, { align parameters as required with dummy }
|
Fppread:=do_syscall(syscall_nr_pread64,Fd,TSysParam(buf),nbytes,0, { align parameters as required with dummy }
|
||||||
{$ifdef FPC_BIG_ENDIAN} hi(offset),lo(offset){$endif}
|
{$ifdef FPC_BIG_ENDIAN} hi(offset),lo(offset){$endif}
|
||||||
{$ifdef FPC_LITTLE_ENDIAN} lo(offset),hi(offset){$endif}
|
{$ifdef FPC_LITTLE_ENDIAN} lo(offset),hi(offset){$endif}
|
||||||
@ -566,7 +566,7 @@ begin
|
|||||||
{$ifdef CPU64}
|
{$ifdef CPU64}
|
||||||
Fppwrite:=do_syscall(syscall_nr_pwrite64,Fd,TSysParam(buf),nbytes,TSysParam(OffSet));
|
Fppwrite:=do_syscall(syscall_nr_pwrite64,Fd,TSysParam(buf),nbytes,TSysParam(OffSet));
|
||||||
{$else}
|
{$else}
|
||||||
{$ifdef CPUMIPS32}
|
{$if defined(CPUMIPS32) or defined(CPUMIPSEL32)}
|
||||||
Fppwrite:=do_syscall(syscall_nr_pwrite64,Fd,TSysParam(buf),nbytes,0, { align parameters as required with dummy }
|
Fppwrite:=do_syscall(syscall_nr_pwrite64,Fd,TSysParam(buf),nbytes,0, { align parameters as required with dummy }
|
||||||
{$ifdef FPC_BIG_ENDIAN} hi(offset),lo(offset){$endif}
|
{$ifdef FPC_BIG_ENDIAN} hi(offset),lo(offset){$endif}
|
||||||
{$ifdef FPC_LITTLE_ENDIAN} lo(offset),hi(offset){$endif}
|
{$ifdef FPC_LITTLE_ENDIAN} lo(offset),hi(offset){$endif}
|
||||||
|
@ -182,14 +182,14 @@ const
|
|||||||
LED_SCR = 1; {scroll lock led}
|
LED_SCR = 1; {scroll lock led}
|
||||||
LED_NUM = 2; {num lock led}
|
LED_NUM = 2; {num lock led}
|
||||||
LED_CAP = 4; {caps lock led}
|
LED_CAP = 4; {caps lock led}
|
||||||
|
|
||||||
{Tty modes. (for KDSETMODE)}
|
{Tty modes. (for KDSETMODE)}
|
||||||
KD_TEXT = 0;
|
KD_TEXT = 0;
|
||||||
KD_GRAPHICS = 1;
|
KD_GRAPHICS = 1;
|
||||||
KD_TEXT0 = 2; {obsolete}
|
KD_TEXT0 = 2; {obsolete}
|
||||||
KD_TEXT1 = 3; {obsolete}
|
KD_TEXT1 = 3; {obsolete}
|
||||||
|
|
||||||
{$ifdef cpumips}
|
{$if defined(cpumips) or defined(cpumipsel)}
|
||||||
MAP_GROWSDOWN = $1000; { stack-like segment }
|
MAP_GROWSDOWN = $1000; { stack-like segment }
|
||||||
MAP_DENYWRITE = $2000; { ETXTBSY }
|
MAP_DENYWRITE = $2000; { ETXTBSY }
|
||||||
MAP_EXECUTABLE = $4000; { mark it as an executable }
|
MAP_EXECUTABLE = $4000; { mark it as an executable }
|
||||||
@ -281,7 +281,7 @@ type Puser_cap_header=^user_cap_header;
|
|||||||
version: cuint32;
|
version: cuint32;
|
||||||
pid:cint;
|
pid:cint;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
Puser_cap_data=^user_cap_data;
|
Puser_cap_data=^user_cap_data;
|
||||||
user_cap_data=record
|
user_cap_data=record
|
||||||
effective,permitted,inheritable:cuint32;
|
effective,permitted,inheritable:cuint32;
|
||||||
@ -292,7 +292,7 @@ function capget(header:Puser_cap_header;data:Puser_cap_data):cint;{$ifdef FPC_US
|
|||||||
{Set a capability.}
|
{Set a capability.}
|
||||||
function capset(header:Puser_cap_header;data:Puser_cap_data):cint;{$ifdef FPC_USE_LIBC} cdecl; external name 'capset'; {$endif}
|
function capset(header:Puser_cap_header;data:Puser_cap_data):cint;{$ifdef FPC_USE_LIBC} cdecl; external name 'capset'; {$endif}
|
||||||
|
|
||||||
|
|
||||||
const CAP_CHOWN = 0;
|
const CAP_CHOWN = 0;
|
||||||
CAP_DAC_OVERRIDE = 1;
|
CAP_DAC_OVERRIDE = 1;
|
||||||
CAP_DAC_READ_SEARCH = 2;
|
CAP_DAC_READ_SEARCH = 2;
|
||||||
@ -347,7 +347,7 @@ function vmsplice (fdout: cInt; iov: PIOVec; count: size_t; flags: cuInt): cInt;
|
|||||||
{* Splice two files together. *}
|
{* Splice two files together. *}
|
||||||
function splice (fdin: cInt; offin: off64_t; fdout: cInt;
|
function splice (fdin: cInt; offin: off64_t; fdout: cInt;
|
||||||
offout: off64_t; len: size_t; flags: cuInt): cInt; {$ifdef FPC_USE_LIBC} cdecl; external name 'splice'; {$ENDIF}
|
offout: off64_t; len: size_t; flags: cuInt): cInt; {$ifdef FPC_USE_LIBC} cdecl; external name 'splice'; {$ENDIF}
|
||||||
|
|
||||||
function tee(fd_in: cInt; fd_out: cInt; len: size_t; flags: cuInt): cInt; {$ifdef FPC_USE_LIBC} cdecl; external name 'tee'; {$ENDIF}
|
function tee(fd_in: cInt; fd_out: cInt; len: size_t; flags: cuInt): cInt; {$ifdef FPC_USE_LIBC} cdecl; external name 'tee'; {$ENDIF}
|
||||||
|
|
||||||
{$endif} // x86
|
{$endif} // x86
|
||||||
@ -390,7 +390,7 @@ Type
|
|||||||
IN_OPEN = $00000020; { File was opened. }
|
IN_OPEN = $00000020; { File was opened. }
|
||||||
IN_MOVED_FROM = $00000040; { File was moved from X. }
|
IN_MOVED_FROM = $00000040; { File was moved from X. }
|
||||||
IN_MOVED_TO = $00000080; { File was moved to Y. }
|
IN_MOVED_TO = $00000080; { File was moved to Y. }
|
||||||
|
|
||||||
IN_CLOSE = IN_CLOSE_WRITE or IN_CLOSE_NOWRITE; { Close. }
|
IN_CLOSE = IN_CLOSE_WRITE or IN_CLOSE_NOWRITE; { Close. }
|
||||||
IN_MOVE = IN_MOVED_FROM or IN_MOVED_TO; { Moves. }
|
IN_MOVE = IN_MOVED_FROM or IN_MOVED_TO; { Moves. }
|
||||||
|
|
||||||
@ -412,16 +412,16 @@ Type
|
|||||||
IN_ONESHOT = $80000000; { Only send event once. }
|
IN_ONESHOT = $80000000; { Only send event once. }
|
||||||
|
|
||||||
{ All events which a program can wait on. }
|
{ All events which a program can wait on. }
|
||||||
IN_ALL_EVENTS = IN_ACCESS or IN_MODIFY or IN_ATTRIB or IN_CLOSE
|
IN_ALL_EVENTS = IN_ACCESS or IN_MODIFY or IN_ATTRIB or IN_CLOSE
|
||||||
or IN_OPEN or IN_MOVE or IN_CREATE or IN_DELETE
|
or IN_OPEN or IN_MOVE or IN_CREATE or IN_DELETE
|
||||||
or IN_DELETE_SELF or IN_MOVE_SELF;
|
or IN_DELETE_SELF or IN_MOVE_SELF;
|
||||||
|
|
||||||
{ Create and initialize inotify instance. }
|
{ Create and initialize inotify instance. }
|
||||||
function inotify_init: cint;
|
function inotify_init: cint;
|
||||||
{ Create and initialize inotify instance. }
|
{ Create and initialize inotify instance. }
|
||||||
function inotify_init1(flags:cint):cint;
|
function inotify_init1(flags:cint):cint;
|
||||||
|
|
||||||
{ Add watch of object NAME to inotify instance FD.
|
{ Add watch of object NAME to inotify instance FD.
|
||||||
Notify about events specified by MASK. }
|
Notify about events specified by MASK. }
|
||||||
function inotify_add_watch(fd:cint; name:Pchar; mask:cuint32):cint;
|
function inotify_add_watch(fd:cint; name:Pchar; mask:cuint32):cint;
|
||||||
|
|
||||||
@ -452,7 +452,7 @@ Type
|
|||||||
function clock_getres(clk_id : clockid_t; res : ptimespec) : cint;
|
function clock_getres(clk_id : clockid_t; res : ptimespec) : cint;
|
||||||
function clock_gettime(clk_id : clockid_t; tp: ptimespec) : cint;
|
function clock_gettime(clk_id : clockid_t; tp: ptimespec) : cint;
|
||||||
function clock_settime(clk_id : clockid_t; tp : ptimespec) : cint;
|
function clock_settime(clk_id : clockid_t; tp : ptimespec) : cint;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
|
|
||||||
@ -551,13 +551,13 @@ end;
|
|||||||
|
|
||||||
function vmsplice (fdout: cInt; iov: PIOVec; count: size_t; flags: cuInt): cInt;
|
function vmsplice (fdout: cInt; iov: PIOVec; count: size_t; flags: cuInt): cInt;
|
||||||
begin
|
begin
|
||||||
vmsplice := do_syscall(syscall_nr_vmsplice, TSysParam(fdout), TSysParam(iov),
|
vmsplice := do_syscall(syscall_nr_vmsplice, TSysParam(fdout), TSysParam(iov),
|
||||||
TSysParam(count), TSysParam(flags));
|
TSysParam(count), TSysParam(flags));
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function splice (fdin: cInt; offin: off64_t; fdout: cInt; offout: off64_t; len: size_t; flags: cuInt): cInt;
|
function splice (fdin: cInt; offin: off64_t; fdout: cInt; offout: off64_t; len: size_t; flags: cuInt): cInt;
|
||||||
begin
|
begin
|
||||||
splice := do_syscall(syscall_nr_splice, TSysParam(fdin), TSysParam(@offin),
|
splice := do_syscall(syscall_nr_splice, TSysParam(fdin), TSysParam(@offin),
|
||||||
TSysParam(fdout), TSysParam(@offout), TSysParam(len), TSysParam(flags));
|
TSysParam(fdout), TSysParam(@offout), TSysParam(len), TSysParam(flags));
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -572,7 +572,7 @@ end;
|
|||||||
function sync_file_range(fd: cInt; offset: off64_t; nbytes: off64_t; flags: cuInt): cInt;
|
function sync_file_range(fd: cInt; offset: off64_t; nbytes: off64_t; flags: cuInt): cInt;
|
||||||
begin
|
begin
|
||||||
{$if defined(cpupowerpc) or defined(cpuarm)}
|
{$if defined(cpupowerpc) or defined(cpuarm)}
|
||||||
sync_file_range := do_syscall(syscall_nr_sync_file_range2, TSysParam(fd), TSysParam(flags),
|
sync_file_range := do_syscall(syscall_nr_sync_file_range2, TSysParam(fd), TSysParam(flags),
|
||||||
TSysParam(hi(offset)), TSysParam(lo(offset)), TSysParam(hi(nbytes)), TSysParam(lo(nbytes)));
|
TSysParam(hi(offset)), TSysParam(lo(offset)), TSysParam(hi(nbytes)), TSysParam(lo(nbytes)));
|
||||||
{$else}
|
{$else}
|
||||||
{$if defined(cpupowerpc64)}
|
{$if defined(cpupowerpc64)}
|
||||||
@ -580,7 +580,7 @@ begin
|
|||||||
TSysParam(offset), TSysParam(nbytes));
|
TSysParam(offset), TSysParam(nbytes));
|
||||||
{$else}
|
{$else}
|
||||||
{$ifdef cpu64}
|
{$ifdef cpu64}
|
||||||
sync_file_range := do_syscall(syscall_nr_sync_file_range, TSysParam(fd), TSysParam(offset),
|
sync_file_range := do_syscall(syscall_nr_sync_file_range, TSysParam(fd), TSysParam(offset),
|
||||||
TSysParam(nbytes), TSysParam(flags));
|
TSysParam(nbytes), TSysParam(flags));
|
||||||
{$else}
|
{$else}
|
||||||
sync_file_range := do_syscall(syscall_nr_sync_file_range, TSysParam(fd), TSysParam(lo(offset)),
|
sync_file_range := do_syscall(syscall_nr_sync_file_range, TSysParam(fd), TSysParam(lo(offset)),
|
||||||
|
@ -87,7 +87,7 @@ Const
|
|||||||
|
|
||||||
{ Constansts for MMAP }
|
{ Constansts for MMAP }
|
||||||
MAP_PRIVATE =2;
|
MAP_PRIVATE =2;
|
||||||
{$ifdef cpumips}
|
{$if defined(cpumips) or defined(cpumipsel)}
|
||||||
MAP_ANONYMOUS =$800;
|
MAP_ANONYMOUS =$800;
|
||||||
{$else cpumips}
|
{$else cpumips}
|
||||||
MAP_ANONYMOUS =$20;
|
MAP_ANONYMOUS =$20;
|
||||||
@ -1530,7 +1530,7 @@ const
|
|||||||
MAP_FIXED = $10; { Interpret addr exactly }
|
MAP_FIXED = $10; { Interpret addr exactly }
|
||||||
// MAP_ANONYMOUS = $20; { don't use a file }
|
// MAP_ANONYMOUS = $20; { don't use a file }
|
||||||
|
|
||||||
{$ifdef cpumips}
|
{$if defined(cpumips) or defined(cpumipsel)}
|
||||||
MAP_GROWSDOWN = $1000; { stack-like segment }
|
MAP_GROWSDOWN = $1000; { stack-like segment }
|
||||||
MAP_DENYWRITE = $2000; { ETXTBSY }
|
MAP_DENYWRITE = $2000; { ETXTBSY }
|
||||||
MAP_EXECUTABLE = $4000; { mark it as an executable }
|
MAP_EXECUTABLE = $4000; { mark it as an executable }
|
||||||
|
@ -271,7 +271,7 @@ CONST
|
|||||||
{$if defined(cpui386) or defined(cpux86_64) or defined(cpuia64)}
|
{$if defined(cpui386) or defined(cpux86_64) or defined(cpuia64)}
|
||||||
O_LARGEFILE = $8000;
|
O_LARGEFILE = $8000;
|
||||||
{$endif}
|
{$endif}
|
||||||
{$if defined(cpumips)}
|
{$if defined(cpumips) or defined(cpumipsel)}
|
||||||
O_LARGEFILE = $2000;
|
O_LARGEFILE = $2000;
|
||||||
{$endif}
|
{$endif}
|
||||||
{ mode_t possible values }
|
{ mode_t possible values }
|
||||||
|
@ -28,7 +28,7 @@ Const
|
|||||||
SIG_UNBLOCK = 2;
|
SIG_UNBLOCK = 2;
|
||||||
SIG_SETMASK = 4;
|
SIG_SETMASK = 4;
|
||||||
{$else CPUSPARC}
|
{$else CPUSPARC}
|
||||||
{$ifdef CPUMIPS}
|
{$if defined(cpumips) or defined(cpumipsel)}
|
||||||
SA_NOCLDSTOP = 1;
|
SA_NOCLDSTOP = 1;
|
||||||
SA_NOCLDWAIT = $10000;
|
SA_NOCLDWAIT = $10000;
|
||||||
SA_SIGINFO = 8;
|
SA_SIGINFO = 8;
|
||||||
|
@ -119,7 +119,7 @@ Const
|
|||||||
OCRNL = &0000010;
|
OCRNL = &0000010;
|
||||||
ONOCR = &0000020;
|
ONOCR = &0000020;
|
||||||
ONLRET = &0000040;
|
ONLRET = &0000040;
|
||||||
|
|
||||||
OFILL = &00000100;
|
OFILL = &00000100;
|
||||||
OFDEL = &00000200;
|
OFDEL = &00000200;
|
||||||
NLDLY = &00001400;
|
NLDLY = &00001400;
|
||||||
@ -147,7 +147,7 @@ Const
|
|||||||
VT0 = &00000000;
|
VT0 = &00000000;
|
||||||
VT1 = &00200000;
|
VT1 = &00200000;
|
||||||
XTABS = &01000000; { Hmm.. Linux/i386 considers this part of TABDLY.. }
|
XTABS = &01000000; { Hmm.. Linux/i386 considers this part of TABDLY.. }
|
||||||
|
|
||||||
{ c_cflag bit meaning }
|
{ c_cflag bit meaning }
|
||||||
CBAUD = &0000377;
|
CBAUD = &0000377;
|
||||||
B0 = &0000000; { hang up }
|
B0 = &0000000; { hang up }
|
||||||
@ -1167,7 +1167,7 @@ Const
|
|||||||
B115200 = $0001002;
|
B115200 = $0001002;
|
||||||
B230400 = $0001003;
|
B230400 = $0001003;
|
||||||
B460800 = $0001004;
|
B460800 = $0001004;
|
||||||
|
|
||||||
CIBAUD = $100F0000;
|
CIBAUD = $100F0000;
|
||||||
CMSPAR = $40000000;
|
CMSPAR = $40000000;
|
||||||
CRTSCTS = $80000000;
|
CRTSCTS = $80000000;
|
||||||
@ -1223,7 +1223,7 @@ Const
|
|||||||
{$endif cpuarm}
|
{$endif cpuarm}
|
||||||
|
|
||||||
|
|
||||||
{$ifdef cpumips}
|
{$if defined(cpumips) or defined(cpumipsel)}
|
||||||
const
|
const
|
||||||
TCGETA = $5401;
|
TCGETA = $5401;
|
||||||
TCSETA = $5402;
|
TCSETA = $5402;
|
||||||
|
Loading…
Reference in New Issue
Block a user