1------------------------------------------------------------------------------ 2-- -- 3-- GNU ADA RUN-TIME LIBRARY (GNARL) COMPONENTS -- 4-- -- 5-- S Y S T E M . L I N U X -- 6-- -- 7-- S p e c -- 8-- -- 9-- Copyright (C) 2013-2019, Free Software Foundation, Inc. -- 10-- 11-- -- 12-- GNARL is free software; you can redistribute it and/or modify it under -- 13-- terms of the GNU General Public License as published by the Free Soft- -- 14-- ware Foundation; either version 3, or (at your option) any later ver- -- 15-- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- 16-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- 17-- or FITNESS FOR A PARTICULAR PURPOSE. -- 18-- -- 19-- As a special exception under Section 7 of GPL version 3, you are granted -- 20-- additional permissions described in the GCC Runtime Library Exception, -- 21-- version 3.1, as published by the Free Software Foundation. -- 22-- -- 23-- You should have received a copy of the GNU General Public License and -- 24-- a copy of the GCC Runtime Library Exception along with this program; -- 25-- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- 26-- <http://www.gnu.org/licenses/>. -- 27-- -- 28-- -- 29------------------------------------------------------------------------------ 30 31-- This is the x32 version of this package 32 33-- This package encapsulates cpu specific differences between implementations 34-- of GNU/Linux, in order to share s-osinte-linux.ads. 35 36-- PLEASE DO NOT add any with-clauses to this package or remove the pragma 37-- Preelaborate. This package is designed to be a bottom-level (leaf) package 38 39with Interfaces.C; 40 41package System.Linux is 42 pragma Preelaborate; 43 44 ---------- 45 -- Time -- 46 ---------- 47 48 subtype suseconds_t is Long_Long_Integer; 49 subtype time_t is Long_Long_Integer; 50 subtype clockid_t is Interfaces.C.int; 51 52 type timespec is record 53 tv_sec : time_t; 54 tv_nsec : Long_Long_Integer; 55 end record; 56 pragma Convention (C, timespec); 57 58 type timeval is record 59 tv_sec : time_t; 60 tv_usec : suseconds_t; 61 end record; 62 pragma Convention (C, timeval); 63 64 ----------- 65 -- Errno -- 66 ----------- 67 68 EAGAIN : constant := 11; 69 EINTR : constant := 4; 70 EINVAL : constant := 22; 71 ENOMEM : constant := 12; 72 EPERM : constant := 1; 73 ETIMEDOUT : constant := 110; 74 75 ------------- 76 -- Signals -- 77 ------------- 78 79 SIGHUP : constant := 1; -- hangup 80 SIGINT : constant := 2; -- interrupt (rubout) 81 SIGQUIT : constant := 3; -- quit (ASCD FS) 82 SIGILL : constant := 4; -- illegal instruction (not reset) 83 SIGTRAP : constant := 5; -- trace trap (not reset) 84 SIGIOT : constant := 6; -- IOT instruction 85 SIGABRT : constant := 6; -- used by abort, replace SIGIOT in the future 86 SIGFPE : constant := 8; -- floating point exception 87 SIGKILL : constant := 9; -- kill (cannot be caught or ignored) 88 SIGBUS : constant := 7; -- bus error 89 SIGUSR1 : constant := 10; -- user defined signal 1 90 SIGSEGV : constant := 11; -- segmentation violation 91 SIGUSR2 : constant := 12; -- user defined signal 2 92 SIGPIPE : constant := 13; -- write on a pipe with no one to read it 93 SIGALRM : constant := 14; -- alarm clock 94 SIGTERM : constant := 15; -- software termination signal from kill 95 SIGSTKFLT : constant := 16; -- coprocessor stack fault (Linux) 96 SIGCLD : constant := 17; -- alias for SIGCHLD 97 SIGCHLD : constant := 17; -- child status change 98 SIGSTOP : constant := 19; -- stop (cannot be caught or ignored) 99 SIGTSTP : constant := 20; -- user stop requested from tty 100 SIGCONT : constant := 18; -- stopped process has been continued 101 SIGTTIN : constant := 21; -- background tty read attempted 102 SIGTTOU : constant := 22; -- background tty write attempted 103 SIGURG : constant := 23; -- urgent condition on IO channel 104 SIGXCPU : constant := 24; -- CPU time limit exceeded 105 SIGXFSZ : constant := 25; -- filesize limit exceeded 106 SIGVTALRM : constant := 26; -- virtual timer expired 107 SIGPROF : constant := 27; -- profiling timer expired 108 SIGWINCH : constant := 28; -- window size change 109 SIGPOLL : constant := 29; -- pollable event occurred 110 SIGIO : constant := 29; -- I/O now possible (4.2 BSD) 111 SIGLOST : constant := 29; -- File lock lost 112 SIGPWR : constant := 30; -- power-fail restart 113 SIGSYS : constant := 31; -- bad system call 114 SIGUNUSED : constant := 31; -- unused signal (mapped to SIGSYS) 115 SIG32 : constant := 32; -- glibc internal signal 116 SIG33 : constant := 33; -- glibc internal signal 117 SIG34 : constant := 34; -- glibc internal signal 118 119 -- struct_sigaction offsets 120 121 sa_handler_pos : constant := 0; 122 sa_mask_pos : constant := Standard'Address_Size / 8; 123 sa_flags_pos : constant := 128 + sa_mask_pos; 124 125 SA_SIGINFO : constant := 16#04#; 126 SA_ONSTACK : constant := 16#08000000#; 127 128end System.Linux; 129