source: libcfa/src/common.hfa @ 760c88c

ast-experimental
Last change on this file since 760c88c was 95bda0a, checked in by Peter A. Buhr <pabuhr@…>, 2 years ago

add attribute always_inline to many CFA-library cover-routines to force inlining

  • Property mode set to 100644
File size: 3.7 KB
Line 
1//
2// Cforall Version 1.0.0 Copyright (C) 2016 University of Waterloo
3//
4// The contents of this file are covered under the licence agreement in the
5// file "LICENCE" distributed with Cforall.
6//
7// common.hfa --
8//
9// Author           : Peter A. Buhr
10// Created On       : Wed Jul 11 17:54:36 2018
11// Last Modified By : Peter A. Buhr
12// Last Modified On : Sat Oct  8 08:32:57 2022
13// Update Count     : 23
14//
15
16#pragma once
17
18//---------------------------------------
19
20[ int, int ] div( int num, int denom );
21[ long int, long int ] div( long int num, long int denom );
22[ long long int, long long int ] div( long long int num, long long int denom );
23forall( T | { T ?/?( T, T ); T ?%?( T, T ); } )
24[ T, T ] div( T num, T demon );
25
26//---------------------------------------
27
28extern "C" {
29        int abs( int );                                                                         // stdlib.h
30        long int labs( long int );
31        long long int llabs( long long int );
32} // extern "C"
33static inline __attribute__((always_inline)) {
34        unsigned char abs( signed char v ) { return abs( (int)v ); }
35        // use default C routine for int
36        unsigned long int abs( long int v ) { return labs( v ); }
37        unsigned long long int abs( long long int v ) { return llabs( v ); }
38} // distribution
39
40extern "C" {
41        double fabs( double );                                                          // math.h
42        float fabsf( float );
43        long double fabsl( long double );
44} // extern "C"
45static inline __attribute__((always_inline)) {
46        float abs( float x ) { return fabsf( x ); }
47        double abs( double x ) { return fabs( x ); }
48        long double abs( long double x ) { return fabsl( x ); }
49} // distribution
50
51extern "C" {
52        double cabs( double _Complex );                                         // complex.h
53        float cabsf( float _Complex );
54        long double cabsl( long double _Complex );
55} // extern "C"
56static inline __attribute__((always_inline)) {
57        float abs( float _Complex x ) { return cabsf( x ); }
58        double abs( double _Complex x ) { return cabs( x ); }
59        long double abs( long double _Complex x ) { return cabsl( x ); }
60} // distribution
61
62forall( T | { void ?{}( T &, zero_t ); int ?<?( T, T ); T -?( T ); } )
63T abs( T );
64
65//---------------------------------------
66
67static inline __attribute__((always_inline)) {
68        char min( char v1, char v2 ) { return v1 < v2 ? v1 : v2; } // optimization
69        int min( int v1, int v2 ) { return v1 < v2 ? v1 : v2; }
70        unsigned int min( unsigned int v1, unsigned int v2 ) { return v1 < v2 ? v1 : v2; }
71        long int min( long int v1, long int v2 ) { return v1 < v2 ? v1 : v2; }
72        unsigned long int min( unsigned long int v1, unsigned int v2 ) { return v1 < v2 ? v1 : v2; }
73        long long int min( long long int v1, long long int v2 ) { return v1 < v2 ? v1 : v2; }
74        unsigned long long int min( unsigned long long int v1, unsigned int v2 ) { return v1 < v2 ? v1 : v2; }
75        forall( T | { int ?<?( T, T ); } )                                      // generic
76        T min( T v1, T v2 ) { return v1 < v2 ? v1 : v2; }
77
78        char max( char v1, char v2 ) { return v1 > v2 ? v1 : v2; } // optimization
79        int max( int v1, int v2 ) { return v1 > v2 ? v1 : v2; }
80        unsigned int max( unsigned int v1, unsigned int v2 ) { return v1 > v2 ? v1 : v2; }
81        long int max( long int v1, long int v2 ) { return v1 > v2 ? v1 : v2; }
82        unsigned long int max( unsigned long int v1, unsigned long int v2 ) { return v1 > v2 ? v1 : v2; }
83        long long int max( long long int v1, long long int v2 ) { return v1 > v2 ? v1 : v2; }
84        unsigned long long int max( unsigned long long int v1, unsigned long long int v2 ) { return v1 > v2 ? v1 : v2; }
85        forall( T | { int ?>?( T, T ); } )                                      // generic
86        T max( T v1, T v2 ) { return v1 > v2 ? v1 : v2; }
87
88        forall( T | { T min( T, T ); T max( T, T ); } )
89        T clamp( T value, T min_val, T max_val ) { return max( min_val, min( value, max_val ) ); }
90
91        forall( T )
92        void swap( T & v1, T & v2 ) { T temp = v1; v1 = v2; v2 = temp; }
93} // distribution
94
95// Local Variables: //
96// mode: c //
97// tab-width: 4 //
98// End: //
Note: See TracBrowser for help on using the repository browser.