Merge pull request #2145 from martin-frbg/1912-3
[platform/upstream/openblas.git] / common_linux.h
1 /*********************************************************************/
2 /* Copyright 2009, 2010 The University of Texas at Austin.           */
3 /* All rights reserved.                                              */
4 /*                                                                   */
5 /* Redistribution and use in source and binary forms, with or        */
6 /* without modification, are permitted provided that the following   */
7 /* conditions are met:                                               */
8 /*                                                                   */
9 /*   1. Redistributions of source code must retain the above         */
10 /*      copyright notice, this list of conditions and the following  */
11 /*      disclaimer.                                                  */
12 /*                                                                   */
13 /*   2. Redistributions in binary form must reproduce the above      */
14 /*      copyright notice, this list of conditions and the following  */
15 /*      disclaimer in the documentation and/or other materials       */
16 /*      provided with the distribution.                              */
17 /*                                                                   */
18 /*    THIS  SOFTWARE IS PROVIDED  BY THE  UNIVERSITY OF  TEXAS AT    */
19 /*    AUSTIN  ``AS IS''  AND ANY  EXPRESS OR  IMPLIED WARRANTIES,    */
20 /*    INCLUDING, BUT  NOT LIMITED  TO, THE IMPLIED  WARRANTIES OF    */
21 /*    MERCHANTABILITY  AND FITNESS FOR  A PARTICULAR  PURPOSE ARE    */
22 /*    DISCLAIMED.  IN  NO EVENT SHALL THE UNIVERSITY  OF TEXAS AT    */
23 /*    AUSTIN OR CONTRIBUTORS BE  LIABLE FOR ANY DIRECT, INDIRECT,    */
24 /*    INCIDENTAL,  SPECIAL, EXEMPLARY,  OR  CONSEQUENTIAL DAMAGES    */
25 /*    (INCLUDING, BUT  NOT LIMITED TO,  PROCUREMENT OF SUBSTITUTE    */
26 /*    GOODS  OR  SERVICES; LOSS  OF  USE,  DATA,  OR PROFITS;  OR    */
27 /*    BUSINESS INTERRUPTION) HOWEVER CAUSED  AND ON ANY THEORY OF    */
28 /*    LIABILITY, WHETHER  IN CONTRACT, STRICT  LIABILITY, OR TORT    */
29 /*    (INCLUDING NEGLIGENCE OR OTHERWISE)  ARISING IN ANY WAY OUT    */
30 /*    OF  THE  USE OF  THIS  SOFTWARE,  EVEN  IF ADVISED  OF  THE    */
31 /*    POSSIBILITY OF SUCH DAMAGE.                                    */
32 /*                                                                   */
33 /* The views and conclusions contained in the software and           */
34 /* documentation are those of the authors and should not be          */
35 /* interpreted as representing official policies, either expressed   */
36 /* or implied, of The University of Texas at Austin.                 */
37 /*********************************************************************/
38
39 #ifndef COMMON_LINUX_H
40 #define COMMON_LINUX_H
41
42 #ifndef ASSEMBLER
43
44 #include <syscall.h>
45
46 extern long int syscall (long int __sysno, ...);
47
48 #ifndef MPOL_PREFERRED
49 #define MPOL_PREFERRED 1
50 #endif
51
52 #ifndef MPOL_INTERLEAVE
53 #define MPOL_INTERLEAVE 3
54 #endif
55
56 #if defined(ARCH_IA64) && defined(__ECC)
57 #ifndef __NR_mbind
58 #define __NR_mbind                      1259
59 #endif
60 #ifndef __NR_get_mempolicy
61 #define __NR_get_mempolicy              1260
62 #endif
63 #ifndef __NR_set_mempolicy
64 #define __NR_set_mempolicy              1261
65 #endif
66 #endif
67
68
69
70 static inline int my_mbind(void *addr, unsigned long len, int mode,
71                            unsigned long *nodemask, unsigned long maxnode,
72                            unsigned flags) {
73 #if defined (__LSB_VERSION__) || defined(ARCH_ZARCH)
74 // So far,  LSB (Linux Standard Base) don't support syscall().
75 // https://lsbbugs.linuxfoundation.org/show_bug.cgi?id=3482
76         return 0;
77 #else
78 #if defined (LOONGSON3B)
79 #if defined (__64BIT__)
80         return syscall(SYS_mbind, addr, len, mode, nodemask, maxnode, flags);
81 #else
82         return 0; //NULL Implementation on Loongson 3B 32bit.
83 #endif
84 #else
85 //Fixed randomly SEGFAULT when nodemask==NULL with above Linux 2.6.34
86 //      unsigned long null_nodemask=0;
87         return syscall(SYS_mbind, addr, len, mode, nodemask, maxnode, flags);
88 #endif
89 #endif
90 }
91
92 static inline int my_set_mempolicy(int mode, const unsigned long *addr, unsigned long flag) {
93 #if defined (__LSB_VERSION__) || defined(ARCH_ZARCH)
94 // So far,  LSB (Linux Standard Base) don't support syscall().
95 // https://lsbbugs.linuxfoundation.org/show_bug.cgi?id=3482
96   return 0;
97 #else
98   return syscall(SYS_set_mempolicy, mode, addr, flag);
99 #endif
100 }
101
102 static inline int my_gettid(void) {
103 #ifdef SYS_gettid
104 return syscall(SYS_gettid);
105 #else
106 return getpid();
107 #endif
108 }
109
110 #endif
111 #endif