Mercurial > hg > CbC > CbC_gcc

comparison gcc/ada/libgnarl/s-osinte__android.ads @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children 1830386684a0
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
4 -- -- 4 -- --
5 -- S Y S T E M . O S _ I N T E R F A C E -- 5 -- S Y S T E M . O S _ I N T E R F A C E --
6 -- -- 6 -- --
7 -- S p e c -- 7 -- S p e c --
8 -- -- 8 -- --
9 -- Copyright (C) 1995-2017, Free Software Foundation, Inc. -- 9 -- Copyright (C) 1995-2018, Free Software Foundation, Inc. --
10 -- -- 10 -- --
11 -- GNAT is free software; you can redistribute it and/or modify it under -- 11 -- GNAT is free software; you can redistribute it and/or modify it under --
12 -- terms of the GNU General Public License as published by the Free Soft- -- 12 -- terms of the GNU General Public License as published by the Free Soft- --
13 -- ware Foundation; either version 3, or (at your option) any later ver- -- 13 -- ware Foundation; either version 3, or (at your option) any later ver- --
14 -- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- 14 -- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
311 -- This must be in keeping with init.c:__gnat_alternate_stack 311 -- This must be in keeping with init.c:__gnat_alternate_stack
312 312
313 Stack_Base_Available : constant Boolean := False; 313 Stack_Base_Available : constant Boolean := False;
314 -- Indicates whether the stack base is available on this target 314 -- Indicates whether the stack base is available on this target
315 315
316 function Get_Stack_Base (thread : pthread_t) 316 function Get_Stack_Base (ignored_thread : pthread_t)
317 return Address is (Null_Address); 317 return Address is (Null_Address);
318 -- This is a dummy procedure to share some GNULLI files 318 -- This is a dummy procedure to share some GNULLI files
319 319
320 function Get_Page_Size return int; 320 function Get_Page_Size return int;
321 pragma Import (C, Get_Page_Size, "_getpagesize"); 321 pragma Import (C, Get_Page_Size, "_getpagesize");
412 (cond : access pthread_cond_t; 412 (cond : access pthread_cond_t;
413 mutex : access pthread_mutex_t; 413 mutex : access pthread_mutex_t;
414 abstime : access timespec) return int; 414 abstime : access timespec) return int;
415 pragma Import (C, pthread_cond_timedwait, "pthread_cond_timedwait"); 415 pragma Import (C, pthread_cond_timedwait, "pthread_cond_timedwait");
416 416
417 Relative_Timed_Wait : constant Boolean := False;
418 -- pthread_cond_timedwait requires an absolute delay time
419
420 -------------------------- 417 --------------------------
421 -- POSIX.1c Section 13 -- 418 -- POSIX.1c Section 13 --
422 -------------------------- 419 --------------------------
423 420
424 PTHREAD_PRIO_PROTECT : constant := 0; 421 PTHREAD_PRIO_PROTECT : constant := 0;
425 PTHREAD_PRIO_INHERIT : constant := 1; 422 PTHREAD_PRIO_INHERIT : constant := 1;
426 423
427 function pthread_mutexattr_setprotocol 424 function pthread_mutexattr_setprotocol
428 (attr : access pthread_mutexattr_t; 425 (ignored_attr : access pthread_mutexattr_t;
429 protocol : int) return int is (0); 426 ignored_protocol : int) return int is (0);
430 427
431 function pthread_mutexattr_setprioceiling 428 function pthread_mutexattr_setprioceiling
432 (attr : access pthread_mutexattr_t; 429 (ignored_attr : access pthread_mutexattr_t;
433 prioceiling : int) return int is (0); 430 ignored_prioceiling : int) return int is (0);
434 431
435 type struct_sched_param is record 432 type struct_sched_param is record
436 sched_priority : int; -- scheduling priority 433 sched_priority : int; -- scheduling priority
437 end record; 434 end record;
438 pragma Convention (C, struct_sched_param); 435 pragma Convention (C, struct_sched_param);