PIPS
Macros | Functions | Variables
bootstrap.c File Reference
#include <stdio.h>
#include <string.h>
#include <limits.h>
#include <stdlib.h>
#include "linear.h"
#include "genC.h"
#include "ri.h"
#include "ri-util.h"
#include "database.h"
#include "bootstrap.h"
#include "misc.h"
#include "pipsdbm.h"
#include "parser_private.h"
#include "constants.h"
#include "resources.h"
#include "properties.h"
+ Include dependency graph for bootstrap.c:

Go to the source code of this file.

Macros

#define LOCAL   static
 
#define GET_TYPE(h, e)   ((basic)hash_get(h, (char*)(e)))
 Working with hash_table of basic. More...
 
#define PUT_TYPE(h, e, b)   hash_put(h, (char*)(e), (char*)(b))
 
#define TC_DCOMPLEX   get_bool_property("TYPE_CHECKER_DOUBLE_COMPLEX_EXTENSION")
 Type check double complex? More...
 
#define TC_LONGDCOMPLEX   get_bool_property("TYPE_CHECKER_LONG_DOUBLE_COMPLEX_EXTENSION")
 MB : Type check long double complex. More...
 

Functions

expression insert_cast (basic cast, basic from, expression exp, type_context_p)
 Function in type_checker.c. More...
 
expression cast_constant (expression exp_constant, basic to_basic, type_context_p context)
 
bool check_loop_range (range, hash_table)
 
void type_loop_range (basic, range, type_context_p)
 
void CreateAreas ()
 cproto-generated files More...
 
static void CreateLogicalUnits ()
 
static entity CreateAbstractStateVariable (string pn, string vn)
 added to handle xxxrandxxx functions. More...
 
static void CreateRandomSeed ()
 
static void CreateTimeSeed ()
 
static void CreateHeapAbstractState ()
 
static void CreateMemmoveAbstractState ()
 
static list make_parameter_list (int n, parameter(*mkprm)(void))
 
static type default_intrinsic_type (int n)
 The default intrinsic type is a functional type with n overloaded arguments returning an overloaded result if the arity is known. More...
 
static type overloaded_to_integer_type (int n)
 
static type overloaded_to_real_type (int n)
 
static type overloaded_to_double_type (int n)
 
static type overloaded_to_longdouble_type (int n)
 MB. More...
 
static type overloaded_to_complex_type (int n)
 
static type overloaded_to_doublecomplex_type (int n)
 
static type overloaded_to_logical_type (int n)
 type t = type_undefined; functional ft = functional_undefined; More...
 
static type integer_to_logical_type (int n)
 to handle BTEST function which takes integer as parameter and returns logical. More...
 
static type integer_to_integer_type (int n)
 Why do we make these functions static and keep them here instead of populating ri-util/type.c? More...
 
static type unsigned_integer_to_void_pointer_type (int n)
 
static type void_to_void_type (int n __attribute__((unused)))
 Can be used for C or Fortran functions. More...
 
static type void_to_void_to_int_pointer_type (int n __attribute__((unused)))
 C only because of pointer. More...
 
static type char_pointer_to_double_type (int n __attribute__((unused)))
 C only because of pointer. More...
 
static type integer_to_real_type (int n)
 
static type real_to_integer_type (int n)
 
static type real_to_real_type (int n)
 
static type real_to_double_type (int n)
 
static type real_to_longinteger_type (int n)
 MB. More...
 
static type real_to_longlonginteger_type (int n)
 MB. More...
 
static type double_to_integer_type (int n)
 
static type double_to_longinteger_type (int n)
 MB. More...
 
static type double_to_longlonginteger_type (int n)
 MB. More...
 
static type longinteger_to_longinteger_type (int n)
 MB. More...
 
static type longlonginteger_to_longlonginteger_type (int n)
 MB. More...
 
static type double_to_double_type (int n)
 
static type longdouble_to_integer_type (int n)
 MB. More...
 
static type longdouble_to_longinteger_type (int n)
 MB. More...
 
static type longdouble_to_longlonginteger_type (int n)
 MB. More...
 
static type longdouble_to_longdouble_type (int n)
 MB. More...
 
static type complex_to_real_type (int n)
 
static type doublecomplex_to_double_type (int n)
 
static type complex_to_complex_type (int n)
 
static type doublecomplex_to_doublecomplex_type (int n)
 
static type longdoublecomplex_to_longdoublecomplex_type (int n)
 MB. More...
 
static type longdoublecomplex_to_longdouble_type (int n)
 MB. More...
 
static type character_to_integer_type (int n)
 
static type character_to_logical_type (int n)
 
static type character_to_character_type (int n)
 
static type substring_type (int n)
 
static type assign_substring_type (int n)
 
static type logical_to_logical_type (int n)
 
static call convert_constant_from_int_to_real (call c)
 
static call convert_constant_from_int_to_double (call c)
 INT -> DOUBLE e.g: DBLE(10) => 10.0. More...
 
static call convert_constant_from_real_to_int (call c)
 REAL -> INT e.g: INT(-5.9E2) => -590. More...
 
static call convert_constant_from_real_to_double (call c)
 REAL -> DOUBLE e.g: DBLE(-5.9E-2) => -5.9D-2. More...
 
static call convert_constant_from_double_to_real (call c)
 DOUBLE -> REAL e.g: REAL(-5.9D-2) => -5.9E-2. More...
 
static call convert_constant_from_double_to_int (call c)
 DOUBLE -> INT e.g: INT(-5.9D2) => -590. More...
 
static call convert_constant_from_real_to_complex (call c)
 REAL -> COMPLEX e.g: CMPLX(-5.9E5) => (-5.9E5, 0.0) More...
 
static call convert_constant_from_double_to_complex (call c)
 DOUBLE -> COMPLEX e.g: CMPLX(-5.9D5) => (-5.9E5, 0.0) More...
 
static call convert_constant_from_int_to_complex (call c)
 INT -> COMPLEX e.g: CMPLX(-5) => (-5.0, 0.0) More...
 
static call convert_constant_from_double_to_dcomplex (call c)
 DOUBLE -> DCOMPLEX e.g: DCMPLX(-5.9D5) => (-5.9D5, 0.0) More...
 
static call convert_constant_from_real_to_dcomplex (call c)
 REAL -> DCOMPLEX e.g: DCMPLX(-5.9E5) => (-5.9D5, 0.0D0) More...
 
static call convert_constant_from_int_to_dcomplex (call c)
 INT -> DCOMPLEX e.g: DCMPLX(-5) => (-5D0, 0.0D0) More...
 
call convert_constant (call c, basic to_basic)
 
static entity get_cast_function_for_basic (basic cast, basic from)
 
static basic basic_union_arguments (call c, hash_table types)
 Determine the longest basic among the arguments of c. More...
 
static bool check_if_basics_ok (list le, hash_table types, bool(*basic_ok)(basic))
 Verify if all the arguments basic of function C are INTEGER If there is no argument, I return TRUE. More...
 
static bool is_basic_int_p (basic b)
 
static bool is_basic_longint_p (basic b)
 MB. More...
 
static bool is_basic_longlongint_p (basic b)
 MB. More...
 
static bool is_basic_real_p (basic b)
 
static bool is_basic_double_p (basic b)
 
static bool is_basic_longdouble_p (basic b)
 MB. More...
 
static bool is_basic_complex_p (basic b)
 
static bool is_basic_dcomplex_p (basic b)
 
static bool is_basic_longdcomplex_p (basic b)
 MB. More...
 
static bool arguments_are_integer (call c, hash_table types)
 
static bool arguments_are_longinteger (call c, hash_table types)
 MB. More...
 
static bool arguments_are_longlonginteger (call c, hash_table types)
 MB. More...
 
static bool arguments_are_real (call c, hash_table types)
 
static bool arguments_are_double (call c, hash_table types)
 
static bool arguments_are_longdouble (call c, hash_table types)
 MB. More...
 
static bool arguments_are_complex (call c, hash_table types)
 
static bool arguments_are_dcomplex (call c, hash_table types)
 
static bool arguments_are_longdcomplex (call c, hash_table types)
 MB. More...
 
static bool arguments_are_something (call c, type_context_p context, bool integer_ok, bool longinteger_ok, bool longlonginteger_ok, bool real_ok, bool double_ok, bool longdouble_ok, bool complex_ok, bool dcomplex_ok, bool longdcomplex_ok, bool logical_ok, bool character_ok)
 Molka Becher: add of long int, long long int, long double and long double complex types. More...
 
static bool arguments_are_IRDCS (call c, type_context_p context)
 
static bool arguments_are_IRDC (call c, type_context_p context)
 
static bool arguments_are_character (call c, type_context_p context)
 
static bool arguments_are_logical (call c, type_context_p context)
 
static bool arguments_are_RD (call c, type_context_p context)
 
static bool arguments_are_IR (call c, type_context_p context)
 
static bool arguments_are_IRD (call c, type_context_p context)
 
static bool arguments_are_RDC (call c, type_context_p context)
 
bool arguments_are_compatible (call c, hash_table types)
 
static void typing_arguments (call c, type_context_p context, basic b)
 
static basic typing_arithmetic_operator (call c, type_context_p context)
 
static basic typing_power_operator (call c, type_context_p context)
 
static basic typing_relational_operator (call c, type_context_p context)
 
static basic typing_logical_operator (call c, type_context_p context)
 
static basic typing_concat_operator (call c, type_context_p context)
 
static basic typing_function_argument_type_to_return_type (call c, type_context_p context, basic from_type, basic to_type)
 
static basic typing_function_int_to_int (call c, type_context_p context)
 
static basic typing_function_longint_to_longint (call c, type_context_p context)
 MB. More...
 
static basic typing_function_longlongint_to_longlongint (call c, type_context_p context)
 MB. More...
 
static basic typing_function_real_to_real (call c, type_context_p context)
 
static basic typing_function_double_to_double (call c, type_context_p context)
 
static basic typing_function_longdouble_to_longdouble (call c, type_context_p context)
 MB. More...
 
static basic typing_function_complex_to_complex (call c, type_context_p context)
 
static basic typing_function_dcomplex_to_dcomplex (call c, type_context_p context)
 
static basic typing_function_longdcomplex_to_longdcomplex (call c, type_context_p context)
 B: added for long double complex type. More...
 
static basic typing_function_longdcomplex_to_longdouble (call c, type_context_p context)
 MB. More...
 
static basic typing_function_char_to_int (call c, type_context_p context)
 
static basic typing_function_int_to_char (call c, type_context_p context)
 
static basic typing_function_real_to_int (call c, type_context_p context)
 
static basic typing_function_real_to_longint (call c, type_context_p context)
 MB. More...
 
static basic typing_function_real_to_longlongint (call c, type_context_p context)
 MB. More...
 
static basic typing_function_int_to_real (call c, type_context_p context)
 
static basic typing_function_int_to_logical (call c, type_context_p context)
 function added to handle one of the bit manipulation functions : BTEST. More...
 
static basic typing_function_double_to_int (call c, type_context_p context)
 
static basic typing_function_double_to_longint (call c, type_context_p context)
 MB. More...
 
static basic typing_function_double_to_longlongint (call c, type_context_p context)
 MB. More...
 
static basic typing_function_longdouble_to_int (call c, type_context_p context)
 MB. More...
 
static basic typing_function_longdouble_to_longint (call c, type_context_p context)
 MB. More...
 
static basic typing_function_longdouble_to_longlongint (call c, type_context_p context)
 MB. More...
 
static basic typing_function_real_to_double (call c, type_context_p context)
 
static basic typing_function_complex_to_real (call c, type_context_p context)
 
static basic typing_function_dcomplex_to_double (call c, type_context_p context)
 
static basic typing_function_char_to_logical (call c, type_context_p context)
 
static basic typing_function_RealDouble_to_RealDouble (call c, type_context_p context)
 
static basic typing_function_RealDouble_to_Integer (call c, type_context_p context)
 
static basic typing_function_RealDoubleComplex_to_RealDoubleComplex (call c, type_context_p context)
 
static basic typing_function_IntegerRealDouble_to_IntegerRealDouble (call c, type_context_p context)
 
static basic typing_function_IntegerRealDoubleComplex_to_IntegerRealDoubleReal (call c, type_context_p context)
 
static basic typing_function_conversion_to_numeric (call c, type_context_p context, basic to_type)
 
static basic typing_function_conversion_to_integer (call c, type_context_p context)
 
static basic typing_function_conversion_to_real (call c, type_context_p context)
 
static basic typing_function_conversion_to_double (call c, type_context_p context)
 
static basic typing_function_conversion_to_complex (call c, type_context_p context)
 
static basic typing_function_conversion_to_dcomplex (call c, type_context_p context)
 
static basic typing_function_constant_complex (call c, type_context_p context)
 CMPLX_. More...
 
static basic typing_function_constant_dcomplex (call c, type_context_p context)
 DCMPLX_. More...
 
static basic typing_function_overloaded (call __attribute__((unused)) c, type_context_p __attribute__((unused)) context)
 
static basic typing_function_format_name (call __attribute__((unused)) c, type_context_p __attribute__((unused)) context)
 
static basic typing_of_assign (call c, type_context_p context)
 
static basic typing_substring (call c, type_context_p context)
 
static basic typing_assign_substring (call c, type_context_p context)
 
static basic typing_buffer_inout (call c, type_context_p context)
 
static basic no_typing (call __attribute__((unused)) c, type_context_p __attribute__((unused)) context)
 
static basic typing_implied_do (call c, type_context_p context)
 
static bool is_constant (expression exp)
 Verify if an expression is a constant: YES : return true; otherwise, return FALSE. More...
 
static bool is_constant_of_basic (expression exp, basic b)
 Verify if an expression is a constant of basic b: YES : return true; otherwise, return FALSE. More...
 
static basic statement_without_argument (call c, type_context_p context)
 
static basic statement_with_at_most_one_integer_or_character (call c, type_context_p context)
 
static basic statement_with_at_most_one_expression_integer (call c, type_context_p context)
 
static bool is_label_statement (expression exp)
 
static bool is_label_specifier (string s, expression e, type_context_p context)
 
static bool is_integer_specifier (string s, expression e, type_context_p context)
 
static bool is_string_specifier (string s, expression e, type_context_p context)
 
static bool is_label_integer_string_specifier (string s, expression e, type_context_p context)
 
static bool is_varibale_array_element_specifier (string s, expression e, basic b, type_context_p context)
 
static bool is_unit_specifier (expression exp, type_context_p context)
 This function verifies the unit specifier; that is integer positive expression or character expression (According to ANSI X3.9-1978 FORTRAN 77; PAGE 12-7) More...
 
static bool is_format_specifier (expression exp, type_context_p context)
 
static bool is_record_specifier (expression exp, type_context_p context)
 
static bool is_iostat_specifier (expression exp, type_context_p context)
 Integer variable or integer array element which is maybe modified. More...
 
static bool is_err_specifier (expression exp, type_context_p context)
 Error specifier is a label statement. More...
 
static bool is_end_specifier (expression exp, type_context_p context)
 
static bool is_file_specifier (expression exp, type_context_p context)
 
static bool is_status_specifier (expression exp, type_context_p context)
 
static bool is_access_specifier (expression exp, type_context_p context)
 
static bool is_form_specifier (expression exp, type_context_p context)
 
static bool is_recl_specifier (expression exp, type_context_p context)
 
static bool is_blank_specifier (expression exp, type_context_p context)
 
static bool is_exist_specifier (expression exp, type_context_p context)
 
static bool is_opened_specifier (expression exp, type_context_p context)
 
static bool is_number_specifier (expression exp, type_context_p context)
 
static bool is_named_specifier (expression exp, type_context_p context)
 
static bool is_name_specifier (expression exp, type_context_p context)
 
static bool is_sequential_specifier (expression exp, type_context_p context)
 
static bool is_direct_specifier (expression exp, type_context_p context)
 
static bool is_formated_specifier (expression exp, type_context_p context)
 
static bool is_unformated_specifier (expression exp, type_context_p context)
 
static bool is_nextrec_specifier (expression exp, type_context_p context)
 
static bool check_spec (string name, bool allowed, const char *specifier, expression contents, type_context_p context, bool(*check_contents)(expression, type_context_p))
 
static bool check_io_list (list args, type_context_p ctxt, bool a_unit, bool a_fmt, bool a_rec, bool a_iostat, bool a_err, bool a_end, bool a_iolist, bool a_file, bool a_status, bool a_access, bool a_form, bool a_blank, bool a_recl, bool a_exist, bool a_opened, bool a_number, bool a_named, bool a_name, bool a_sequential, bool a_direct, bool a_formatted, bool a_unformatted, bool a_nextrec)
 
static basic check_read_write (call c, type_context_p context)
 
static basic check_open (call c, type_context_p context)
 
static basic check_close (call c, type_context_p context)
 
static basic check_inquire (call c, type_context_p context)
 
static basic check_backspace (call c, type_context_p context)
 
static basic check_endfile (call c, type_context_p context)
 
static basic check_rewind (call c, type_context_p context)
 
static basic check_format (call c, type_context_p context)
 
static void switch_generic_to_specific (expression exp, type_context_p context, string arg_int_name, string arg_real_name, string arg_double_name, string arg_complex_name, string arg_dcomplex_name)
 
static void switch_specific_aint (expression exp, type_context_p context)
 AINT. More...
 
static void switch_specific_anint (expression exp, type_context_p context)
 ANINT. More...
 
static void switch_specific_nint (expression exp, type_context_p context)
 NINT. More...
 
static void switch_specific_abs (expression exp, type_context_p context)
 ABS. More...
 
static void switch_specific_mod (expression exp, type_context_p context)
 MOD. More...
 
static void switch_specific_sign (expression exp, type_context_p context)
 SIGN. More...
 
static void switch_specific_dim (expression exp, type_context_p context)
 DIM. More...
 
static void switch_specific_max (expression exp, type_context_p context)
 MAX. More...
 
static void switch_specific_min (expression exp, type_context_p context)
 MIN. More...
 
static void switch_specific_sqrt (expression exp, type_context_p context)
 SQRT. More...
 
static void switch_specific_exp (expression exp, type_context_p context)
 EXP. More...
 
static void switch_specific_log (expression exp, type_context_p context)
 LOG. More...
 
static void switch_specific_log10 (expression exp, type_context_p context)
 LOG10. More...
 
static void switch_specific_sin (expression exp, type_context_p context)
 SIN. More...
 
static void switch_specific_cos (expression exp, type_context_p context)
 COS. More...
 
static void switch_specific_tan (expression exp, type_context_p context)
 TAN. More...
 
static void switch_specific_asin (expression exp, type_context_p context)
 ASIN. More...
 
static void switch_specific_acos (expression exp, type_context_p context)
 ACOS. More...
 
static void switch_specific_atan (expression exp, type_context_p context)
 ATAN. More...
 
static void switch_specific_atan2 (expression exp, type_context_p context)
 ATAN2. More...
 
static void switch_specific_sinh (expression exp, type_context_p context)
 SINH. More...
 
static void switch_specific_cosh (expression exp, type_context_p context)
 COSH. More...
 
static void switch_specific_tanh (expression exp, type_context_p context)
 TANH. More...
 
static void simplification_complex (expression, type_context_p)
 forward declarations More...
 
static void simplification_dcomplex (expression, type_context_p)
 
static void switch_specific_cmplx (expression exp, type_context_p context)
 
static void switch_specific_dcmplx (expression exp, type_context_p context)
 
static void simplification_conversion (expression exp, basic to_basic, type_context_p context)
 
static void simplification_int (expression exp, type_context_p context)
 
static void simplification_real (expression exp, type_context_p context)
 
static void simplification_double (expression exp, type_context_p context)
 
type MakeVoidResult ()
 Move the following functions to ri-util/type.c. More...
 
parameter MakeVoidParameter ()
 
type pointer_to_overloaded_type (int n)
 
type integer_to_overloaded_type (int n)
 
type longinteger_to_overloaded_type (int n)
 MB. More...
 
type longlonginteger_to_overloaded_type (int n)
 MB. More...
 
type integer_to_void_type (int n)
 
type __attribute__ ((unused))
 Package : C3/union Author : Arnauld LESERVOT (leservot(a)limeil.cea.fr) Date :
Modified : 04 04 95 Documents: UNION.tex : `‘Extension de C3 aux unions de polyedres’' Comments : More...
 
type overloaded_to_void_type (int n)
 
type void_to_integer_type (int n)
 
typing_function_t get_typing_function_for_intrinsic (const char *name)
 
switch_name_function get_switch_name_function_for_intrinsic (const char *name)
 
static entity MakeIntrinsic (string name, int arity, type(*intrinsic_type)(int))
 This function creates an entity that represents an intrinsic function. More...
 
entity FindOrMakeIntrinsic (string name, int arity, type(*intrinsic_type)(int))
 This function creates an entity that represents an intrinsic function, if the entity does not already exist. More...
 
entity FindOrMakeDefaultIntrinsic (string name, int arity)
 Create a default intrinsic. More...
 
void register_intrinsic_type_descriptor (IntrinsicDescriptor *p)
 This function is called one time (at the very beginning) to create all intrinsic functions. More...
 
void CreateIntrinsics (set module_list)
 
bool bootstrap (string workspace)
 
value MakeValueLitteral ()
 
string MakeFileName (char *prefix, char *base, char *suffix)
 
entity MakeIoFileArray (entity f)
 This array is pointed by FILE * pointers returned or used by fopen, fclose,... More...
 

Variables

static hash_table intrinsic_type_descriptor_mapping = hash_table_undefined
 

Macro Definition Documentation

◆ GET_TYPE

#define GET_TYPE (   h,
  e 
)    ((basic)hash_get(h, (char*)(e)))

Working with hash_table of basic.

Definition at line 89 of file bootstrap.c.

◆ LOCAL

#define LOCAL   static

Definition at line 84 of file bootstrap.c.

◆ PUT_TYPE

#define PUT_TYPE (   h,
  e,
  b 
)    hash_put(h, (char*)(e), (char*)(b))

Definition at line 90 of file bootstrap.c.

◆ TC_DCOMPLEX

#define TC_DCOMPLEX   get_bool_property("TYPE_CHECKER_DOUBLE_COMPLEX_EXTENSION")

Type check double complex?

Definition at line 1605 of file bootstrap.c.

◆ TC_LONGDCOMPLEX

#define TC_LONGDCOMPLEX   get_bool_property("TYPE_CHECKER_LONG_DOUBLE_COMPLEX_EXTENSION")

MB : Type check long double complex.

Definition at line 1609 of file bootstrap.c.

Function Documentation

◆ __attribute__()

type __attribute__ ( (unused)  )

Package : C3/union Author : Arnauld LESERVOT (leservot(a)limeil.cea.fr) Date :
Modified : 04 04 95 Documents: UNION.tex : `‘Extension de C3 aux unions de polyedres’' Comments : 

           WARNING

THOSE FUNCTIONS ARE AUTOMATICALLY DERIVED 

    FROM THE WEB SOURCES !

Ansi includes
Linear includes

Definition at line 4277 of file bootstrap.c.

4279 {
4280  type t = type_undefined;
4281  functional ft = functional_undefined;
4282 
4283  ft = make_functional(NIL, MakeOverloadedResult());
4284  t = make_type(is_type_functional, ft);
4285 
4286  functional_parameters(ft) =
4287  make_parameter_list(n, MakeVoidParameter);
4288  return t;
4289 }
make_functional
functional make_functional(list a1, type a2)
Definition: ri.c:1109
make_type
type make_type(enum type_utype tag, void *val)
Definition: ri.c:2706
make_parameter_list
static list make_parameter_list(int n, parameter(*mkprm)(void))
Definition: bootstrap.c:329
MakeVoidParameter
parameter MakeVoidParameter()
Definition: bootstrap.c:4199
NIL
#define NIL
The empty list (nil in Lisp)
Definition: newgen_list.h:47
MakeOverloadedResult
type MakeOverloadedResult(void)
this function creates a default fortran operator result, i.e.
Definition: type.c:261
functional_parameters
#define functional_parameters(x)
Definition: ri.h:1442
type_undefined
#define type_undefined
Definition: ri.h:2883
is_type_functional
@ is_type_functional
Definition: ri.h:2901
functional_undefined
#define functional_undefined
Definition: ri.h:1418
_newgen_struct_functional_
Definition: ri.h:1434
_newgen_struct_type_
Definition: ri.h:2922

References functional_parameters, functional_undefined, is_type_functional, make_functional(), make_parameter_list(), make_type(), MakeOverloadedResult(), MakeVoidParameter(), NIL, and type_undefined.

+ Here is the call graph for this function:

◆ arguments_are_character()

static bool arguments_are_character ( call  c,
type_context_p  context 
)
static

Definition at line 1914 of file bootstrap.c.

1915 {
1916  return arguments_are_something
1917  (c, context, false, false, false, false, false, false, false, false, false, false, true);
1918 }
arguments_are_something
static bool arguments_are_something(call c, type_context_p context, bool integer_ok, bool longinteger_ok, bool longlonginteger_ok, bool real_ok, bool double_ok, bool longdouble_ok, bool complex_ok, bool dcomplex_ok, bool longdcomplex_ok, bool logical_ok, bool character_ok)
Molka Becher: add of long int, long long int, long double and long double complex types.
Definition: bootstrap.c:1762
context
Definition: delay.c:253

References arguments_are_something().

Referenced by typing_concat_operator(), and typing_function_argument_type_to_return_type().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ arguments_are_compatible()

bool arguments_are_compatible ( call  c,
hash_table  types 
)

First item

Next item

Parameters
typesypes

Definition at line 1965 of file bootstrap.c.

1966 {
1967  basic b1, b2;
1968  b1 = basic_undefined;
1969 
1970  MAP(EXPRESSION, e,
1971  {
1972  /* First item */
1973  if(basic_undefined_p(b1))
1974  {
1975  b1 = GET_TYPE(types, e);
1976  }
1977  /* Next item */
1978  else
1979  {
1980  b2 = GET_TYPE(types, e);
1981  if(!basic_compatible_p(b1, b2))
1982  {
1983  return false;
1984  }
1985  }
1986  }
1987  , call_arguments(c));
1988 
1989  return true;
1990 }
GET_TYPE
#define GET_TYPE(h, e)
Working with hash_table of basic.
Definition: bootstrap.c:89
MAP
#define MAP(_map_CASTER, _map_item, _map_code, _map_list)
Apply/map an instruction block on all the elements of a list (old fashioned)
Definition: newgen_list.h:226
basic_compatible_p
#define basic_compatible_p(b1, b2)
Definition: ri-util-local.h:1697
basic_undefined_p
#define basic_undefined_p(x)
Definition: ri.h:557
EXPRESSION
#define EXPRESSION(x)
EXPRESSION.
Definition: ri.h:1217
basic_undefined
#define basic_undefined
Definition: ri.h:556
call_arguments
#define call_arguments(x)
Definition: ri.h:711
b2
Value b2
Definition: sc_gram.c:105
b1
Value b1
booleen indiquant quel membre est en cours d'analyse
Definition: sc_gram.c:105
_newgen_struct_basic_
Definition: ri.h:595

References b1, b2, basic_compatible_p, basic_undefined, basic_undefined_p, call_arguments, EXPRESSION, GET_TYPE, and MAP.

Referenced by typing_of_assign().

+ Here is the caller graph for this function:

◆ arguments_are_complex()

static bool arguments_are_complex ( call  c,
hash_table  types 
)
static

Definition at line 1736 of file bootstrap.c.

1737 {
1738  return check_if_basics_ok(call_arguments(c), types, is_basic_complex_p);
1739 }
check_if_basics_ok
static bool check_if_basics_ok(list le, hash_table types, bool(*basic_ok)(basic))
Verify if all the arguments basic of function C are INTEGER If there is no argument,...
Definition: bootstrap.c:1644
is_basic_complex_p
static bool is_basic_complex_p(basic b)
Definition: bootstrap.c:1689

References call_arguments, check_if_basics_ok(), and is_basic_complex_p().

Referenced by typing_function_argument_type_to_return_type().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ arguments_are_dcomplex()

static bool arguments_are_dcomplex ( call  c,
hash_table  types 
)
static

Definition at line 1741 of file bootstrap.c.

1742 {
1743  return check_if_basics_ok(call_arguments(c), types, is_basic_dcomplex_p);
1744 }
is_basic_dcomplex_p
static bool is_basic_dcomplex_p(basic b)
Definition: bootstrap.c:1694

References call_arguments, check_if_basics_ok(), and is_basic_dcomplex_p().

Referenced by typing_function_argument_type_to_return_type().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ arguments_are_double()

static bool arguments_are_double ( call  c,
hash_table  types 
)
static

Definition at line 1726 of file bootstrap.c.

1727 {
1728  return check_if_basics_ok(call_arguments(c), types, is_basic_double_p);
1729 }
is_basic_double_p
static bool is_basic_double_p(basic b)
Definition: bootstrap.c:1679

References call_arguments, check_if_basics_ok(), and is_basic_double_p().

Referenced by typing_function_argument_type_to_return_type().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ arguments_are_integer()

static bool arguments_are_integer ( call  c,
hash_table  types 
)
static

Definition at line 1705 of file bootstrap.c.

1706 {
1707  return check_if_basics_ok(call_arguments(c), types, is_basic_int_p);
1708 }
is_basic_int_p
static bool is_basic_int_p(basic b)
Definition: bootstrap.c:1659

References call_arguments, check_if_basics_ok(), and is_basic_int_p().

Referenced by typing_function_argument_type_to_return_type().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ arguments_are_IR()

static bool arguments_are_IR ( call  c,
type_context_p  context 
)
static

Definition at line 1933 of file bootstrap.c.

1934 {
1935  return arguments_are_something
1936  (c, context, true, true, true, true, false, false, false, false, false, false, false);
1937 }

References arguments_are_something().

Referenced by typing_function_constant_complex().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ arguments_are_IRD()

static bool arguments_are_IRD ( call  c,
type_context_p  context 
)
static

Definition at line 1939 of file bootstrap.c.

1940 {
1941  return arguments_are_something
1942  (c, context, true, true, true, true, true, true, false, false, false, false, false);
1943 }

References arguments_are_something().

Referenced by typing_function_constant_dcomplex(), and typing_function_IntegerRealDouble_to_IntegerRealDouble().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ arguments_are_IRDC()

static bool arguments_are_IRDC ( call  c,
type_context_p  context 
)
static

Definition at line 1908 of file bootstrap.c.

1909 {
1910  return arguments_are_something
1911  (c, context, true, true, true, true, true, true, true, TC_DCOMPLEX, TC_LONGDCOMPLEX, false, false);
1912 }
TC_LONGDCOMPLEX
#define TC_LONGDCOMPLEX
MB : Type check long double complex.
Definition: bootstrap.c:1609
TC_DCOMPLEX
#define TC_DCOMPLEX
Type check double complex?
Definition: bootstrap.c:1605

References arguments_are_something(), TC_DCOMPLEX, and TC_LONGDCOMPLEX.

Referenced by typing_arithmetic_operator(), typing_function_conversion_to_complex(), typing_function_conversion_to_dcomplex(), typing_function_conversion_to_numeric(), typing_function_IntegerRealDoubleComplex_to_IntegerRealDoubleReal(), and typing_power_operator().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ arguments_are_IRDCS()

static bool arguments_are_IRDCS ( call  c,
type_context_p  context 
)
static

Definition at line 1901 of file bootstrap.c.

1902 {
1903  return arguments_are_something
1904  (c, context, true, true, true, true, true, true, true, TC_DCOMPLEX, TC_LONGDCOMPLEX, false, true);
1905 }

References arguments_are_something(), TC_DCOMPLEX, and TC_LONGDCOMPLEX.

Referenced by typing_relational_operator().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ arguments_are_logical()

static bool arguments_are_logical ( call  c,
type_context_p  context 
)
static

Definition at line 1920 of file bootstrap.c.

1921 {
1922  return arguments_are_something
1923  (c, context, false, false, false, false, false, false, false, false, false, true, false);
1924 }

References arguments_are_something().

Referenced by typing_function_argument_type_to_return_type(), and typing_logical_operator().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ arguments_are_longdcomplex()

static bool arguments_are_longdcomplex ( call  c,
hash_table  types 
)
static

MB.

Definition at line 1746 of file bootstrap.c.

1747 {
1748  return check_if_basics_ok(call_arguments(c), types, is_basic_longdcomplex_p);
1749 }
is_basic_longdcomplex_p
static bool is_basic_longdcomplex_p(basic b)
MB.
Definition: bootstrap.c:1699

References call_arguments, check_if_basics_ok(), and is_basic_longdcomplex_p().

Referenced by typing_function_argument_type_to_return_type().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ arguments_are_longdouble()

static bool arguments_are_longdouble ( call  c,
hash_table  types 
)
static

MB.

Definition at line 1731 of file bootstrap.c.

1732 {
1733  return check_if_basics_ok(call_arguments(c), types, is_basic_longdouble_p);
1734 }
is_basic_longdouble_p
static bool is_basic_longdouble_p(basic b)
MB.
Definition: bootstrap.c:1684

References call_arguments, check_if_basics_ok(), and is_basic_longdouble_p().

Referenced by typing_function_argument_type_to_return_type().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ arguments_are_longinteger()

static bool arguments_are_longinteger ( call  c,
hash_table  types 
)
static

MB.

Definition at line 1710 of file bootstrap.c.

1711 {
1712  return check_if_basics_ok(call_arguments(c), types, is_basic_longint_p);
1713 }
is_basic_longint_p
static bool is_basic_longint_p(basic b)
MB.
Definition: bootstrap.c:1664

References call_arguments, check_if_basics_ok(), and is_basic_longint_p().

Referenced by typing_function_argument_type_to_return_type().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ arguments_are_longlonginteger()

static bool arguments_are_longlonginteger ( call  c,
hash_table  types 
)
static

MB.

Definition at line 1715 of file bootstrap.c.

1716 {
1717  return check_if_basics_ok(call_arguments(c), types, is_basic_longlongint_p);
1718 }
is_basic_longlongint_p
static bool is_basic_longlongint_p(basic b)
MB.
Definition: bootstrap.c:1669

References call_arguments, check_if_basics_ok(), and is_basic_longlongint_p().

Referenced by typing_function_argument_type_to_return_type().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ arguments_are_RD()

static bool arguments_are_RD ( call  c,
type_context_p  context 
)
static

Definition at line 1926 of file bootstrap.c.

1927 {
1928  return arguments_are_something
1929  (c, context, false, false, false, true, true, true, false, false, false, false, false);
1930 }

References arguments_are_something().

Referenced by typing_function_RealDouble_to_Integer(), and typing_function_RealDouble_to_RealDouble().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ arguments_are_RDC()

static bool arguments_are_RDC ( call  c,
type_context_p  context 
)
static

Definition at line 1954 of file bootstrap.c.

1955 {
1956  return arguments_are_something
1957  (c, context, false, false, false, true, true, true, true, TC_DCOMPLEX, TC_LONGDCOMPLEX, false, false);
1958 }

References arguments_are_something(), TC_DCOMPLEX, and TC_LONGDCOMPLEX.

Referenced by typing_function_RealDoubleComplex_to_RealDoubleComplex().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ arguments_are_real()

static bool arguments_are_real ( call  c,
hash_table  types 
)
static

Definition at line 1721 of file bootstrap.c.

1722 {
1723  return check_if_basics_ok(call_arguments(c), types, is_basic_real_p);
1724 }
is_basic_real_p
static bool is_basic_real_p(basic b)
Definition: bootstrap.c:1674

References call_arguments, check_if_basics_ok(), and is_basic_real_p().

Referenced by typing_function_argument_type_to_return_type().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ arguments_are_something()

static bool arguments_are_something ( call  c,
type_context_p  context,
bool  integer_ok,
bool  longinteger_ok,
bool  longlonginteger_ok,
bool  real_ok,
bool  double_ok,
bool  longdouble_ok,
bool  complex_ok,
bool  dcomplex_ok,
bool  longdcomplex_ok,
bool  logical_ok,
bool  character_ok 
)
static

Molka Becher: add of long int, long long int, long double and long double complex types.

Subroutine maybe be used as a function

The message should be language dependent, C or Fortran

Assume C

FI: assumes no pointers ever; still pretty much Fortran stuff

FI: nothing about strings?

if TC_DCOMPLEX, maybe they should not be incompatible?

Definition at line 1762 of file bootstrap.c.

1776 {
1777  basic b;
1778  int argnumber = 0;
1779  bool
1780  okay = true,
1781  arg_double = false,
1782  arg_cmplx = false;
1783 
1784  list args = call_arguments(c);
1785 
1786  FOREACH(EXPRESSION, e, args)
1787  {
1788  argnumber++;
1789 
1790  pips_assert("type is defined", hash_defined_p(context->types, e));
1791 
1792  b = GET_TYPE(context->types, e);
1793 
1794  /* Subroutine maybe be used as a function */
1795  if (basic_overloaded_p(b))
1796  {
1797  syntax s = expression_syntax(e);
1798  const char* what ;
1799  switch (syntax_tag(s)) {
1800  case is_syntax_call:
1801  what = entity_local_name(call_function(syntax_call(s)));
1802  break;
1803  case is_syntax_reference:
1804  what = entity_local_name(reference_variable(syntax_reference(s)));
1805  break;
1806  case is_syntax_range:
1807  what = "**RANGE**";
1808  break;
1809  default: pips_internal_error("unexpected syntax tag");
1810  }
1811 
1812  add_one_line_of_comment((statement) stack_head(context->stats),
1813  "not typed '%s' used as a function.",
1814  what, entity_local_name(call_function(c)));
1815  context->number_of_error++;
1816  okay = false;
1817  }
1818  else if (!((integer_ok && basic_int_p(b) && basic_int(b)==4) ||
1819  (longinteger_ok && basic_int_p(b) && basic_int(b)==6) ||
1820  (longlonginteger_ok && basic_int_p(b) && basic_int(b)==8) ||
1821  (real_ok && basic_float_p(b) && basic_float(b)==4) ||
1822  (double_ok && basic_float_p(b) && basic_float(b)==8) ||
1823  (longdouble_ok && basic_float_p(b) && basic_float(b)==16) ||
1824  (complex_ok && basic_complex_p(b) && basic_complex(b)==8) ||
1825  (dcomplex_ok && basic_complex_p(b) && basic_complex(b)==16) ||
1826  (longdcomplex_ok && basic_complex_p(b) && basic_complex(b)==32) ||
1827  (logical_ok && basic_logical_p(b)) ||
1828  (character_ok && basic_string_p(b))))
1829  {
1830  /* The message should be language dependent, C or Fortran */
1831  if(fortran_language_module_p(get_current_module_entity())) {
1832  add_one_line_of_comment((statement) stack_head(context->stats),
1833  "#%d argument of '%s' must be "
1834  "%s%s%s%s%s%s%s%s%s%s%s but not %s",
1835  argnumber,
1836  entity_local_name(call_function(c)),
1837  integer_ok? "INT, ": "",
1838  // The next two types are not used
1839  // for Fortran
1840  longinteger_ok? "": "",
1841  longlonginteger_ok? "": "",
1842  real_ok? "REAL, ": "",
1843  double_ok? "DOUBLE, ": "",
1844  // FI: Used to be QUAD. Exists or not?
1845  //longdouble_ok? "DOUBLE*16, ": "",
1846  longdouble_ok? "": "",
1847  complex_ok? "COMPLEX, ": "",
1848  dcomplex_ok? "DCOMPLEX, ": "",
1849  // FI: what should it be in Fortran?
1850  longdcomplex_ok? "": "",
1851  logical_ok? "LOGICAL, ": "",
1852  character_ok? "CHARACTER, ": "",
1853  basic_to_string(b));
1854  } else { /* Assume C */
1855  /* FI: assumes no pointers ever; still pretty much
1856  Fortran stuff */
1857  add_one_line_of_comment((statement) stack_head(context->stats),
1858  "#%d argument of '%s' must be "
1859  "%s%s%s%s%s%s%s%s%s%s%s but not %s",
1860  argnumber,
1861  entity_local_name(call_function(c)),
1862  integer_ok? "int, ": "",
1863  longinteger_ok? "long int, ": "",
1864  longlonginteger_ok? "long long int, ": "",
1865  real_ok? "float, ": "",
1866  double_ok? "double, ": "",
1867  longdouble_ok? "long double, ": "",
1868  complex_ok? "complex, ": "",
1869  dcomplex_ok? "double complex, ": "",
1870  longdcomplex_ok? "long double complex, ": "",
1871  logical_ok? "bool, ": "",
1872  /* FI: nothing about strings? */
1873  character_ok? "char, ": "",
1874  basic_to_string(b));
1875  }
1876  context->number_of_error++;
1877  okay = false;
1878  }
1879 
1880  /* if TC_DCOMPLEX, maybe they should not be incompatible? */
1881  arg_cmplx = arg_cmplx ||
1882  (complex_ok && basic_complex_p(b) && basic_complex(b)==8);
1883 
1884  arg_double = arg_double ||
1885  (double_ok && basic_float_p(b) && basic_float(b)==8);
1886  }
1887 
1888  if (arg_cmplx && arg_double)
1889  {
1890  add_one_line_of_comment((statement) stack_head(context->stats),
1891  "mixed complex and double arguments of '%s' forbidden",
1892  entity_local_name(call_function(c)));
1893  context->number_of_error++;
1894  okay = false;
1895  }
1896 
1897  return okay;
1898 }
get_current_module_entity
entity get_current_module_entity(void)
Get the entity of the current module.
Definition: static.c:85
FOREACH
#define FOREACH(_fe_CASTER, _fe_item, _fe_list)
Apply/map an instruction block on all the elements of a list.
Definition: newgen_list.h:179
add_one_line_of_comment
void add_one_line_of_comment(statement, string,...)
Definition: statement.c:1940
hash_defined_p
bool hash_defined_p(const hash_table htp, const void *key)
true if key has e value in htp.
Definition: hash.c:484
pips_assert
#define pips_assert(what, predicate)
common macros, two flavors depending on NDEBUG
Definition: misc-local.h:172
pips_internal_error
#define pips_internal_error
Definition: misc-local.h:149
stack_head
void * stack_head(const stack)
returns the item on top of stack s
Definition: stack.c:420
basic_to_string
string basic_to_string(basic)
Definition: type.c:87
entity_local_name
const char * entity_local_name(entity e)
entity_local_name modified so that it does not core when used in vect_fprint, since someone thought t...
Definition: entity.c:453
fortran_language_module_p
bool fortran_language_module_p(entity m)
Definition: module.c:452
basic_complex_p
#define basic_complex_p(x)
Definition: ri.h:626
basic_int_p
#define basic_int_p(x)
Definition: ri.h:614
syntax_reference
#define syntax_reference(x)
Definition: ri.h:2730
syntax_tag
#define syntax_tag(x)
Definition: ri.h:2727
call_function
#define call_function(x)
Definition: ri.h:709
reference_variable
#define reference_variable(x)
Definition: ri.h:2326
basic_int
#define basic_int(x)
Definition: ri.h:616
is_syntax_range
@ is_syntax_range
Definition: ri.h:2692
is_syntax_call
@ is_syntax_call
Definition: ri.h:2693
is_syntax_reference
@ is_syntax_reference
Definition: ri.h:2691
basic_overloaded_p
#define basic_overloaded_p(x)
Definition: ri.h:623
syntax_call
#define syntax_call(x)
Definition: ri.h:2736
basic_float
#define basic_float(x)
Definition: ri.h:619
basic_complex
#define basic_complex(x)
Definition: ri.h:628
basic_string_p
#define basic_string_p(x)
Definition: ri.h:629
expression_syntax
#define expression_syntax(x)
Definition: ri.h:1247
basic_logical_p
#define basic_logical_p(x)
Definition: ri.h:620
basic_float_p
#define basic_float_p(x)
Definition: ri.h:617
_newgen_struct_statement_
Definition: ri.h:2435
_newgen_struct_syntax_
Definition: ri.h:2711
cons
The structure used to build lists in NewGen.
Definition: newgen_list.h:41
context::stats
list stats
Definition: delay.c:255

References add_one_line_of_comment(), basic_complex, basic_complex_p, basic_float, basic_float_p, basic_int, basic_int_p, basic_logical_p, basic_overloaded_p, basic_string_p, basic_to_string(), call_arguments, call_function, entity_local_name(), EXPRESSION, expression_syntax, FOREACH, fortran_language_module_p(), get_current_module_entity(), GET_TYPE, hash_defined_p(), is_syntax_call, is_syntax_range, is_syntax_reference, pips_assert, pips_internal_error, reference_variable, stack_head(), context::stats, syntax_call, syntax_reference, and syntax_tag.

Referenced by arguments_are_character(), arguments_are_IR(), arguments_are_IRD(), arguments_are_IRDC(), arguments_are_IRDCS(), arguments_are_logical(), arguments_are_RD(), and arguments_are_RDC().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ assign_substring_type()

static type assign_substring_type ( int  n)
static

Definition at line 995 of file bootstrap.c.

996 {
997  type t = type_undefined;
998  functional ft = functional_undefined;
999 
1000  ft = make_functional(NIL, MakeCharacterResult());
1001  functional_parameters(ft) =
1002  CONS(PARAMETER, MakeCharacterParameter(), NIL);
1003  functional_parameters(ft) =
1004  CONS(PARAMETER, MakeIntegerParameter(),
1005  functional_parameters(ft));
1006  functional_parameters(ft) =
1007  CONS(PARAMETER, MakeIntegerParameter(),
1008  functional_parameters(ft));
1009  functional_parameters(ft) =
1010  CONS(PARAMETER, MakeCharacterParameter(),
1011  functional_parameters(ft));
1012  t = make_type(is_type_functional, ft);
1013 
1014  pips_assert("valid arity", (int)gen_length(functional_parameters(ft))==n);
1015 
1016  return t;
1017 }
gen_length
size_t gen_length(const list l)
Definition: list.c:150
CONS
#define CONS(_t_, _i_, _l_)
List element cell constructor (insert an element at the beginning of a list)
Definition: newgen_list.h:150
MakeCharacterParameter
parameter MakeCharacterParameter(void)
Definition: type.c:239
MakeCharacterResult
type MakeCharacterResult(void)
Definition: type.c:328
MakeIntegerParameter
parameter MakeIntegerParameter(void)
Definition: type.c:184
PARAMETER
#define PARAMETER(x)
PARAMETER.
Definition: ri.h:1788

References CONS, functional_parameters, functional_undefined, gen_length(), is_type_functional, make_functional(), make_type(), MakeCharacterParameter(), MakeCharacterResult(), MakeIntegerParameter(), NIL, PARAMETER, pips_assert, and type_undefined.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ basic_union_arguments()

static basic basic_union_arguments ( call  c,
hash_table  types 
)
static

Determine the longest basic among the arguments of c.

first time

after first argument

Definition at line 1615 of file bootstrap.c.

1616 {
1617  basic b2, b1 = basic_undefined;
1618 
1619  MAP(EXPRESSION, e,
1620  {
1621  if (b1==basic_undefined)
1622  {
1623  /* first time */
1624  b1 = GET_TYPE(types, e);
1625  }
1626  else
1627  {
1628  /* after first argument */
1629  b2 = GET_TYPE(types, e);
1630  if (is_inferior_basic(b1, b2))
1631  b1 = b2;
1632  }
1633  },
1634  call_arguments(c));
1635 
1636  return b1==basic_undefined? b1: copy_basic(b1);
1637 }
copy_basic
basic copy_basic(basic p)
BASIC.
Definition: ri.c:104
is_inferior_basic
bool is_inferior_basic(basic, basic)
bool is_inferior_basic(basic1, basic2) return true if basic1 is less complex than basic2 ex: int is l...
Definition: type.c:2687

References b1, b2, basic_undefined, call_arguments, copy_basic(), EXPRESSION, GET_TYPE, is_inferior_basic(), and MAP.

Referenced by typing_arithmetic_operator(), typing_function_IntegerRealDouble_to_IntegerRealDouble(), typing_function_IntegerRealDoubleComplex_to_IntegerRealDoubleReal(), typing_function_RealDouble_to_Integer(), typing_function_RealDouble_to_RealDouble(), typing_function_RealDoubleComplex_to_RealDoubleComplex(), and typing_relational_operator().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ bootstrap()

bool bootstrap ( string  workspace)

Create all intrinsics, skipping user-defined one

Creates the dynamic and static areas for the super global arrays such as the logical unit array (see below).

The current entity is unknown, but for a TOP-LEVEL:TOP-LEVEL which is used to create the logical unit array for IO effects

create hidden variables to modelize the abstract states defined by the libc:

seed for random function package

heap abstract state

Create hidden variable to modelize the abstract state of : temporary arry for memmove function. Molka Becher

Create the empty label

FI: I suppress the owner filed to make the database moveable

FC: the content must be consistent with pipsdbm/methods.h

Parameters
workspaceorkspace

Definition at line 5619 of file bootstrap.c.

5620 {
5621  pips_debug(1, "bootstraping in workspace %s\n", workspace);
5622 
5623  if (db_resource_p(DBR_ENTITIES, ""))
5624  pips_internal_error("entities already initialized");
5625 
5626  /* Create all intrinsics, skipping user-defined one */
5627  set module_list = set_make(set_string);
5628  gen_array_t ml = db_get_module_list();
5629  for(int i=0; i < (int) gen_array_nitems(ml); i++)
5630  set_add_element(module_list, module_list, (char*)gen_array_item(ml,i));
5631  CreateIntrinsics(module_list);
5632  set_free(module_list);
5633  gen_array_free(ml);
5634 
5635  /* Creates the dynamic and static areas for the super global
5636  * arrays such as the logical unit array (see below).
5637  */
5638  CreateAreas();
5639 
5640  /* The current entity is unknown, but for a TOP-LEVEL:TOP-LEVEL
5641  * which is used to create the logical unit array for IO effects
5642  */
5643  CreateLogicalUnits();
5644 
5645  /* create hidden variables to modelize the abstract states defined by the libc:
5646 
5647  seed for random function package
5648 
5649  heap abstract state
5650  */
5651  CreateRandomSeed();
5652  CreateTimeSeed();
5653  CreateHeapAbstractState();
5654  /* Create hidden variable to modelize the abstract state of :
5655  temporary arry for memmove function. Molka Becher
5656  */
5657  CreateMemmoveAbstractState();
5658 
5659  /* Create the empty label */
5660  (void) make_entity(strdup(concatenate(TOP_LEVEL_MODULE_NAME,
5661  MODULE_SEP_STRING,
5662  LABEL_PREFIX,
5663  NULL)),
5664  MakeTypeStatement(),
5665  make_storage_rom(),
5666  make_value(is_value_constant,
5667  make_constant_litteral()),
5668  DEFAULT_ENTITY_KIND);
5669 
5670  /* FI: I suppress the owner filed to make the database moveable */
5671  /* FC: the content must be consistent with pipsdbm/methods.h */
5672  DB_PUT_MEMORY_RESOURCE(DBR_ENTITIES, "", (char*) entity_domain);
5673 
5674  pips_debug(1, "bootstraping done\n");
5675 
5676  return true;
5677 }
make_storage_rom
storage make_storage_rom(void)
Definition: ri.c:2285
make_value
value make_value(enum value_utype tag, void *val)
Definition: ri.c:2832
make_constant_litteral
constant make_constant_litteral(void)
Definition: ri.c:418
db_resource_p
bool db_resource_p(const char *rname, const char *oname)
true if exists and in loaded or stored state.
Definition: database.c:524
int
void const char const char const int
Definition: arithmetique-local.h:585
gen_array_nitems
size_t gen_array_nitems(const gen_array_t a)
Definition: array.c:131
gen_array_item
void * gen_array_item(const gen_array_t a, size_t i)
Definition: array.c:143
gen_array_free
void gen_array_free(gen_array_t a)
Definition: array.c:70
CreateAreas
void CreateAreas()
cproto-generated files
Definition: bootstrap.c:104
CreateRandomSeed
static void CreateRandomSeed()
Definition: bootstrap.c:292
CreateIntrinsics
void CreateIntrinsics(set module_list)
Definition: bootstrap.c:4417
CreateHeapAbstractState
static void CreateHeapAbstractState()
Definition: bootstrap.c:310
CreateMemmoveAbstractState
static void CreateMemmoveAbstractState()
Definition: bootstrap.c:319
CreateTimeSeed
static void CreateTimeSeed()
Definition: bootstrap.c:300
CreateLogicalUnits
static void CreateLogicalUnits()
Definition: bootstrap.c:122
db_get_module_list
gen_array_t db_get_module_list(void)
Get an array of all the modules (functions, procedures and compilation units) of a workspace.
Definition: database.c:1266
DB_PUT_MEMORY_RESOURCE
#define DB_PUT_MEMORY_RESOURCE(res_name, own_name, res_val)
conform to old interface.
Definition: pipsdbm-local.h:66
pips_debug
#define pips_debug
these macros use the GNU extensions that allow variadic macros, including with an empty list.
Definition: misc-local.h:145
LABEL_PREFIX
#define LABEL_PREFIX
Definition: naming-local.h:31
TOP_LEVEL_MODULE_NAME
#define TOP_LEVEL_MODULE_NAME
Module containing the global variables in Fortran and C.
Definition: naming-local.h:101
MODULE_SEP_STRING
#define MODULE_SEP_STRING
Definition: naming-local.h:30
concatenate
string concatenate(const char *,...)
Return the concatenation of the given strings.
Definition: string.c:183
set_free
void set_free(set)
Definition: set.c:332
set_string
@ set_string
Definition: newgen_set.h:42
set_make
set set_make(set_type)
Create an empty set of any type but hash_private.
Definition: set.c:102
set_add_element
set set_add_element(set, const set, const void *)
Definition: set.c:152
make_entity
#define make_entity(n, t, s, i)
Definition: ri-util-local.h:2335
DEFAULT_ENTITY_KIND
@ DEFAULT_ENTITY_KIND
Definition: ri-util-local.h:2324
MakeTypeStatement
type MakeTypeStatement(void)
Definition: type.c:92
is_value_constant
@ is_value_constant
Definition: ri.h:3033
entity_domain
#define entity_domain
newgen_syntax_domain_defined
Definition: ri.h:410
strdup
char * strdup()
_gen_array_chunk_t
Definition: array.c:33
_set_chunk
FI: I do not understand why the type is duplicated at the set level.
Definition: set.c:59

References concatenate(), CreateAreas(), CreateHeapAbstractState(), CreateIntrinsics(), CreateLogicalUnits(), CreateMemmoveAbstractState(), CreateRandomSeed(), CreateTimeSeed(), db_get_module_list(), DB_PUT_MEMORY_RESOURCE, db_resource_p(), DEFAULT_ENTITY_KIND, entity_domain, gen_array_free(), gen_array_item(), gen_array_nitems(), int, is_value_constant, LABEL_PREFIX, make_constant_litteral(), make_entity, make_storage_rom(), make_value(), MakeTypeStatement(), MODULE_SEP_STRING, pips_debug, pips_internal_error, set_add_element(), set_free(), set_make(), set_string, strdup(), and TOP_LEVEL_MODULE_NAME.

Referenced by create_workspace().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ cast_constant()

expression cast_constant ( expression  exp_constant,
basic  to_basic,
type_context_p  context 
)

Convert if necessary

Two arguments, with imagine party

One argument, no imagine party

DCOMPLEX -> COMPLEX

Conversion implicit

Conversion explicit

COMPLEX -> DCOMPLEX

Conversion implicit

Conversion explicit

Parameters
exp_constantxp_constant
to_basico_basic
contextontext

Definition at line 1343 of file bootstrap.c.

1344 {
1345  entity function_called;
1346  call c;
1347  basic b = NULL;
1348  expression exp, exp_real, exp_imag, exp_real2, exp_imag2;
1349  syntax s = expression_syntax(exp_constant);
1350  if(syntax_call_p(s))
1351  {
1352  function_called = call_function(syntax_call(s));
1353  if(entity_constant_p(function_called))
1354  {
1355  /* Convert if necessary */
1356  c = convert_constant(syntax_call(s), to_basic);
1357  if (c != NULL)
1358  {
1359  context->number_of_simplication++;
1360  return make_expression(make_syntax(is_syntax_call, c),
1361  normalized_undefined);
1362  }
1363  }
1364  else if(ENTITY_UNARY_MINUS_P(function_called))
1365  {
1366  exp = cast_constant(EXPRESSION(CAR(call_arguments(syntax_call(s)))),
1367  to_basic, context);
1368  if (exp != NULL)
1369  {
1370  c = make_call(copy_entity(function_called),
1371  CONS(EXPRESSION, exp, NIL));
1372  return make_expression(make_syntax(is_syntax_call, c),
1373  normalized_undefined);
1374  }
1375  }
1376  else if(ENTITY_IMPLIED_CMPLX_P(function_called) ||
1377  ENTITY_CONVERSION_CMPLX_P(function_called) ||
1378  ENTITY_IMPLIED_DCMPLX_P(function_called) ||
1379  ENTITY_CONVERSION_DCMPLX_P(function_called))
1380  {
1381  exp_real = EXPRESSION(CAR(call_arguments(syntax_call(s))));
1382  /* Two arguments, with imagine party */
1383  if (CDR(call_arguments(syntax_call(s))) != NIL )
1384  {
1385  exp_imag = EXPRESSION(CAR(CDR(call_arguments(syntax_call(s)))));
1386  }
1387  /* One argument, no imagine party */
1388  else
1389  {
1390  exp_imag = NULL;
1391  }
1392  if (!basic_complex_p(to_basic))
1393  {
1394  return cast_constant(exp_real, to_basic, context);
1395  }
1396  /* DCOMPLEX -> COMPLEX */
1397  else if (basic_complex(to_basic) == 8 &&
1398  (ENTITY_IMPLIED_DCMPLX_P(function_called) ||
1399  ENTITY_CONVERSION_DCMPLX_P(function_called)))
1400  {
1401  b = make_basic_float(4);
1402  if ((exp_real2 = cast_constant(exp_real, b, context)) == NULL)
1403  {
1404  exp_real2 = exp_real;
1405  }
1406 
1407  if (exp_imag != NULL)
1408  {
1409  if ((exp_imag2 = cast_constant(exp_imag, b, context)) == NULL)
1410  {
1411  exp_imag2 = exp_imag;
1412  }
1413  }
1414  else
1415  {
1416  c = make_call(make_constant_entity("0.0E0", is_basic_float,
1417  REAL_LENGTH),
1418  NIL);
1419  exp_imag2 = make_expression(make_syntax(is_syntax_call, c),
1420  normalized_undefined);
1421  }
1422  /* Conversion implicit */
1423  if (!get_bool_property("TYPE_CHECKER_EXPLICIT_COMPLEX_CONSTANTS") &&
1424  ENTITY_IMPLIED_DCMPLX_P(function_called))
1425  {
1426  c = make_call(CreateIntrinsic(IMPLIED_COMPLEX_NAME),
1427  CONS(EXPRESSION, exp_real2,
1428  CONS(EXPRESSION, exp_imag2, NIL)));
1429  }
1430  /* Conversion explicit */
1431  else
1432  {
1433  c = make_call(CreateIntrinsic(CMPLX_GENERIC_CONVERSION_NAME),
1434  CONS(EXPRESSION, exp_real2,
1435  CONS(EXPRESSION, exp_imag2, NIL)));
1436  }
1437  return make_expression(make_syntax(is_syntax_call, c),
1438  normalized_undefined);
1439  }
1440  /* COMPLEX -> DCOMPLEX */
1441  else if (basic_complex(to_basic) == 16 &&
1442  (ENTITY_IMPLIED_CMPLX_P(function_called) ||
1443  ENTITY_CONVERSION_CMPLX_P(function_called)))
1444  {
1445  b = make_basic_float(8);
1446  if ((exp_real2 = cast_constant(exp_real, b, context)) == NULL)
1447  {
1448  exp_real2 = exp_real;
1449  }
1450  if (exp_imag != NULL)
1451  {
1452  if ((exp_imag2 = cast_constant(exp_imag, b, context)) == NULL)
1453  {
1454  exp_imag2 = exp_imag;
1455  }
1456  }
1457  else
1458  {
1459  c = make_call(make_constant_entity("0.0D0", is_basic_float,
1460  DOUBLE_LENGTH),
1461  NIL);
1462  exp_imag2 = make_expression(make_syntax(is_syntax_call, c),
1463  normalized_undefined);
1464  }
1465  /* Conversion implicit */
1466  if (!get_bool_property("TYPE_CHECKER_EXPLICIT_COMPLEX_CONSTANTS") &&
1467  ENTITY_IMPLIED_CMPLX_P(function_called))
1468  {
1469  c = make_call(CreateIntrinsic(IMPLIED_DCOMPLEX_NAME),
1470  CONS(EXPRESSION, exp_real2,
1471  CONS(EXPRESSION, exp_imag2, NIL)));
1472  }
1473  /* Conversion explicit */
1474  else
1475  {
1476  c = make_call(CreateIntrinsic(DCMPLX_GENERIC_CONVERSION_NAME),
1477  CONS(EXPRESSION, exp_real2,
1478  CONS(EXPRESSION, exp_imag2, NIL)));
1479  }
1480  return make_expression(make_syntax(is_syntax_call, c),
1481  normalized_undefined);
1482  }
1483  }
1484  }
1485  if (b != NULL)
1486  {
1487  free_basic(b);
1488  }
1489  return NULL;
1490 }
make_call
call make_call(entity a1, list a2)
Definition: ri.c:269
make_expression
expression make_expression(syntax a1, normalized a2)
Definition: ri.c:886
make_basic_float
basic make_basic_float(intptr_t _field_)
Definition: ri.c:161
copy_entity
entity copy_entity(entity p)
ENTITY.
Definition: ri.c:2521
make_syntax
syntax make_syntax(enum syntax_utype tag, void *val)
Definition: ri.c:2491
free_basic
void free_basic(basic p)
Definition: ri.c:107
DOUBLE_LENGTH
#define DOUBLE_LENGTH
Definition: bootstrap-local.h:28
REAL_LENGTH
#define REAL_LENGTH
Definition: bootstrap-local.h:27
convert_constant
call convert_constant(call c, basic to_basic)
Definition: bootstrap.c:1253
cast_constant
expression cast_constant(expression exp_constant, basic to_basic, type_context_p context)
Definition: bootstrap.c:1343
make_constant_entity
entity make_constant_entity(string name, tag bt, size_t size)
For historical reason, call the Fortran version.
Definition: constant.c:301
get_bool_property
bool get_bool_property(const string)
FC 2015-07-20: yuk, moved out to prevent an include cycle dependency include "properties....
Definition: gfc2pips-stubs.c:173
CAR
#define CAR(pcons)
Get the value of the first element of a list.
Definition: newgen_list.h:92
CDR
#define CDR(pcons)
Get the list less its first element.
Definition: newgen_list.h:111
DCMPLX_GENERIC_CONVERSION_NAME
#define DCMPLX_GENERIC_CONVERSION_NAME
Definition: ri-util-local.h:230
ENTITY_IMPLIED_DCMPLX_P
#define ENTITY_IMPLIED_DCMPLX_P(e)
Definition: ri-util-local.h:1650
ENTITY_UNARY_MINUS_P
#define ENTITY_UNARY_MINUS_P(e)
Definition: ri-util-local.h:1297
CMPLX_GENERIC_CONVERSION_NAME
#define CMPLX_GENERIC_CONVERSION_NAME
Definition: ri-util-local.h:229
IMPLIED_DCOMPLEX_NAME
#define IMPLIED_DCOMPLEX_NAME
Definition: ri-util-local.h:89
ENTITY_IMPLIED_CMPLX_P
#define ENTITY_IMPLIED_CMPLX_P(e)
Definition: ri-util-local.h:1649
entity_constant_p
#define entity_constant_p(e)
Definition: ri-util-local.h:1781
IMPLIED_COMPLEX_NAME
#define IMPLIED_COMPLEX_NAME
Definition: ri-util-local.h:88
CreateIntrinsic
entity CreateIntrinsic(string name)
this function does not create an intrinsic function because they must all be created beforehand by th...
Definition: entity.c:1311
is_basic_float
@ is_basic_float
Definition: ri.h:572
normalized_undefined
#define normalized_undefined
Definition: ri.h:1745
syntax_call_p
#define syntax_call_p(x)
Definition: ri.h:2734
_newgen_struct_call_
Definition: ri.h:701
_newgen_struct_entity_
Definition: ri.h:2778
_newgen_struct_expression_
Definition: ri.h:1239
ENTITY_CONVERSION_CMPLX_P
#define ENTITY_CONVERSION_CMPLX_P(e)
Definition: type_checker.c:63
ENTITY_CONVERSION_DCMPLX_P
#define ENTITY_CONVERSION_DCMPLX_P(e)
Definition: type_checker.c:64
exp
#define exp
Avoid some warnings from "gcc -Wshadow".
Definition: vasnprintf.c:207

References basic_complex, basic_complex_p, call_arguments, call_function, CAR, CDR, CMPLX_GENERIC_CONVERSION_NAME, CONS, convert_constant(), copy_entity(), CreateIntrinsic(), DCMPLX_GENERIC_CONVERSION_NAME, DOUBLE_LENGTH, entity_constant_p, ENTITY_CONVERSION_CMPLX_P, ENTITY_CONVERSION_DCMPLX_P, ENTITY_IMPLIED_CMPLX_P, ENTITY_IMPLIED_DCMPLX_P, ENTITY_UNARY_MINUS_P, exp, EXPRESSION, expression_syntax, free_basic(), get_bool_property(), IMPLIED_COMPLEX_NAME, IMPLIED_DCOMPLEX_NAME, is_basic_float, is_syntax_call, make_basic_float(), make_call(), make_constant_entity(), make_expression(), make_syntax(), NIL, normalized_undefined, REAL_LENGTH, syntax_call, and syntax_call_p.

Referenced by insert_cast(), and simplification_conversion().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ char_pointer_to_double_type()

static type char_pointer_to_double_type ( int n   __attribute__(unused))
static

C only because of pointer.

e.g. atof()

Definition at line 573 of file bootstrap.c.

574 {
575  type t = type_undefined;
576  functional ft = functional_undefined;
577  type cp = MakeCharacterResult();
578  //type cp = type_to_pointer_type(c);
579  type d = MakeDoubleprecisionResult();
580 
581  variable_qualifiers(type_variable(cp))
582  = CONS(QUALIFIER, make_qualifier_const(), NIL);
583 
584  ft = make_functional(NIL, d);
585  functional_parameters(ft) =
586  CONS(PARAMETER, make_parameter(cp,
587  make_mode_value(), // not
588  // significant
589  // for void...
590  make_dummy_unknown()), NIL);
591  t = make_type(is_type_functional, ft);
592 
593  pips_assert("t is consistent", type_consistent_p(t));
594 
595  return t;
596 }
make_parameter
parameter make_parameter(type a1, mode a2, dummy a3)
Definition: ri.c:1495
make_dummy_unknown
dummy make_dummy_unknown(void)
Definition: ri.c:617
make_mode_value
mode make_mode_value(void)
Definition: ri.c:1353
make_qualifier_const
qualifier make_qualifier_const(void)
Definition: ri.c:1924
type_consistent_p
bool type_consistent_p(type p)
Definition: ri.c:2664
MakeDoubleprecisionResult
type MakeDoubleprecisionResult(void)
Definition: type.c:296
QUALIFIER
#define QUALIFIER(x)
QUALIFIER.
Definition: ri.h:2106
type_variable
#define type_variable(x)
Definition: ri.h:2949
variable_qualifiers
#define variable_qualifiers(x)
Definition: ri.h:3124
cp
Pvecteur cp
pointeur sur l'egalite ou l'inegalite courante
Definition: sc_read.c:87

References CONS, cp, functional_parameters, functional_undefined, is_type_functional, make_dummy_unknown(), make_functional(), make_mode_value(), make_parameter(), make_qualifier_const(), make_type(), MakeCharacterResult(), MakeDoubleprecisionResult(), NIL, PARAMETER, pips_assert, QUALIFIER, type_consistent_p(), type_undefined, type_variable, and variable_qualifiers.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ character_to_character_type()

static type character_to_character_type ( int  n)
static

Definition at line 959 of file bootstrap.c.

960 {
961  type t = type_undefined;
962  functional ft = functional_undefined;
963 
964  ft = make_functional(NIL, MakeCharacterResult());
965  functional_parameters(ft) =
966  make_parameter_list(n, MakeCharacterParameter);
967  t = make_type(is_type_functional, ft);
968 
969  return t;
970 }

References functional_parameters, functional_undefined, is_type_functional, make_functional(), make_parameter_list(), make_type(), MakeCharacterParameter(), MakeCharacterResult(), NIL, and type_undefined.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ character_to_integer_type()

static type character_to_integer_type ( int  n)
static

Definition at line 931 of file bootstrap.c.

932 {
933  type t = type_undefined;
934  functional ft = functional_undefined;
935 
936  ft = make_functional(NIL, MakeIntegerResult());
937  functional_parameters(ft) =
938  make_parameter_list(n, MakeCharacterParameter);
939  t = make_type(is_type_functional, ft);
940 
941  return t;
942 }
MakeIntegerResult
type MakeIntegerResult(void)
Definition: type.c:276

References functional_parameters, functional_undefined, is_type_functional, make_functional(), make_parameter_list(), make_type(), MakeCharacterParameter(), MakeIntegerResult(), NIL, and type_undefined.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ character_to_logical_type()

static type character_to_logical_type ( int  n)
static

Definition at line 945 of file bootstrap.c.

946 {
947  type t = type_undefined;
948  functional ft = functional_undefined;
949 
950  ft = make_functional(NIL, MakeLogicalResult());
951  functional_parameters(ft) =
952  make_parameter_list(n, MakeCharacterParameter);
953  t = make_type(is_type_functional, ft);
954 
955  return t;
956 }
MakeLogicalResult
type MakeLogicalResult(void)
Definition: type.c:306

References functional_parameters, functional_undefined, is_type_functional, make_functional(), make_parameter_list(), make_type(), MakeCharacterParameter(), MakeLogicalResult(), NIL, and type_undefined.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ check_backspace()

static basic check_backspace ( call  c,
type_context_p  context 
)
static

UNIT FMT REC IOSTAT ERR END IOLIST

FILE STATUS ACCESS FORM BLANK RECL EXIST OPENED

NUMBER NAMED NAME SEQUENTIAL DIRECT FORMATTED

UNFORMATTED NEXTREC

Definition at line 3671 of file bootstrap.c.

3672 {
3673  list args = call_arguments(c);
3674  check_io_list(args, context,
3675  /* UNIT FMT REC IOSTAT ERR END IOLIST */
3676  true, false, false, true, true, false, false,
3677  /* FILE STATUS ACCESS FORM BLANK RECL EXIST OPENED */
3678  false, false, false, false, false, false, false, false,
3679  /* NUMBER NAMED NAME SEQUENTIAL DIRECT FORMATTED */
3680  false, false, false, false, false, false,
3681  /* UNFORMATTED NEXTREC */
3682  false, false);
3683  return basic_undefined;
3684 }
check_io_list
static bool check_io_list(list args, type_context_p ctxt, bool a_unit, bool a_fmt, bool a_rec, bool a_iostat, bool a_err, bool a_end, bool a_iolist, bool a_file, bool a_status, bool a_access, bool a_form, bool a_blank, bool a_recl, bool a_exist, bool a_opened, bool a_number, bool a_named, bool a_name, bool a_sequential, bool a_direct, bool a_formatted, bool a_unformatted, bool a_nextrec)
Definition: bootstrap.c:3504

References basic_undefined, call_arguments, and check_io_list().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ check_close()

static basic check_close ( call  c,
type_context_p  context 
)
static

UNIT FMT REC IOSTAT ERR END IOLIST

FILE STATUS ACCESS FORM BLANK RECL EXIST OPENED

NUMBER NAMED NAME SEQUENTIAL DIRECT FORMATTED

UNFORMATTED NEXTREC

Definition at line 3636 of file bootstrap.c.

3637 {
3638  list args = call_arguments(c);
3639 
3640  check_io_list(args, context,
3641  /* UNIT FMT REC IOSTAT ERR END IOLIST */
3642  true, false, false, true, true, false, false,
3643  /* FILE STATUS ACCESS FORM BLANK RECL EXIST OPENED */
3644  false, true, false, false, false, false, false, false,
3645  /* NUMBER NAMED NAME SEQUENTIAL DIRECT FORMATTED */
3646  false, false, false, false, false, false,
3647  /* UNFORMATTED NEXTREC */
3648  false, false);
3649  return basic_undefined;
3650 }

References basic_undefined, call_arguments, and check_io_list().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ check_endfile()

static basic check_endfile ( call  c,
type_context_p  context 
)
static

UNIT FMT REC IOSTAT ERR END IOLIST

FILE STATUS ACCESS FORM BLANK RECL EXIST OPENED

NUMBER NAMED NAME SEQUENTIAL DIRECT FORMATTED

UNFORMATTED NEXTREC

Definition at line 3687 of file bootstrap.c.

3688 {
3689  list args = call_arguments(c);
3690  check_io_list(args, context,
3691  /* UNIT FMT REC IOSTAT ERR END IOLIST */
3692  true, false, false, true, true, false, false,
3693  /* FILE STATUS ACCESS FORM BLANK RECL EXIST OPENED */
3694  false, false, false, false, false, false, false, false,
3695  /* NUMBER NAMED NAME SEQUENTIAL DIRECT FORMATTED */
3696  false, false, false, false, false, false,
3697  /* UNFORMATTED NEXTREC */
3698  false, false);
3699  return basic_undefined;
3700 }

References basic_undefined, call_arguments, and check_io_list().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ check_format()

static basic check_format ( call  c,
type_context_p  context 
)
static

Definition at line 3719 of file bootstrap.c.

3720 {
3721  list args = call_arguments(c);
3722  if (args == NIL)
3723  {
3724  add_one_line_of_comment((statement) stack_head(context->stats),
3725  "FORMAT statement needs a format specification");
3726  context->number_of_error++;
3727  }
3728  else
3729  {
3730  expression exp = EXPRESSION(CAR(args));
3731  if (!basic_string_p(GET_TYPE(context->types, exp)))
3732  {
3733  add_one_line_of_comment((statement) stack_head(context->stats),
3734  "Format specification must be a string");
3735  context->number_of_error++;
3736  }
3737  }
3738  return basic_undefined;
3739 }

References add_one_line_of_comment(), basic_string_p, basic_undefined, call_arguments, CAR, exp, EXPRESSION, GET_TYPE, NIL, stack_head(), and context::stats.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ check_if_basics_ok()

static bool check_if_basics_ok ( list  le,
hash_table  types,
bool(*)(basic)  basic_ok 
)
static

Verify if all the arguments basic of function C are INTEGER If there is no argument, I return TRUE.

Definition at line 1644 of file bootstrap.c.

1645 {
1646  MAP(EXPRESSION, e,
1647  {
1648  if (!basic_ok(GET_TYPE(types, e)))
1649  {
1650  return false;
1651  }
1652  }
1653  , le);
1654 
1655  return true;
1656 }

References EXPRESSION, GET_TYPE, and MAP.

Referenced by arguments_are_complex(), arguments_are_dcomplex(), arguments_are_double(), arguments_are_integer(), arguments_are_longdcomplex(), arguments_are_longdouble(), arguments_are_longinteger(), arguments_are_longlonginteger(), and arguments_are_real().

+ Here is the caller graph for this function:

◆ check_inquire()

static basic check_inquire ( call  c,
type_context_p  context 
)
static

UNIT FMT REC IOSTAT ERR END IOLIST

FILE STATUS ACCESS FORM BLANK RECL EXIST OPENED

NUMBER NAMED NAME SEQUENTIAL DIRECT FORMATTED

UNFORMATTED NEXTREC

Definition at line 3653 of file bootstrap.c.

3654 {
3655  list args = call_arguments(c);
3656 
3657  check_io_list(args, context,
3658  /* UNIT FMT REC IOSTAT ERR END IOLIST */
3659  true, false, false, true, true, false, false,
3660  /* FILE STATUS ACCESS FORM BLANK RECL EXIST OPENED */
3661  true, false, true, true, true, true, true, true,
3662  /* NUMBER NAMED NAME SEQUENTIAL DIRECT FORMATTED */
3663  true, true, true, true, true, true,
3664  /* UNFORMATTED NEXTREC */
3665  true, true);
3666 
3667  return basic_undefined;
3668 }

References basic_undefined, call_arguments, and check_io_list().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ check_io_list()

static bool check_io_list ( list  args,
type_context_p  ctxt,
bool  a_unit,
bool  a_fmt,
bool  a_rec,
bool  a_iostat,
bool  a_err,
bool  a_end,
bool  a_iolist,
bool  a_file,
bool  a_status,
bool  a_access,
bool  a_form,
bool  a_blank,
bool  a_recl,
bool  a_exist,
bool  a_opened,
bool  a_number,
bool  a_named,
bool  a_name,
bool  a_sequential,
bool  a_direct,
bool  a_formatted,
bool  a_unformatted,
bool  a_nextrec 
)
static

specifier must be UNIT= FMT=...

Parameters
argsof expression

Definition at line 3504 of file bootstrap.c.

3529 {
3530  const char* spec;
3531  pips_assert("Even number of arguments", gen_length(args)%2==0);
3532 
3533  for (; args; args = CDR(CDR(args)))
3534  {
3535  expression specifier = EXPRESSION(CAR(args));
3536  expression cont = EXPRESSION(CAR(CDR(args)));
3537 
3538  syntax s = expression_syntax(specifier);
3539  pips_assert("Specifier must be a call with arguments",
3540  !syntax_call_p(s) || !call_arguments(syntax_call(s)));
3541 
3542  spec = entity_local_name(call_function(syntax_call(s)));
3543 
3544  /* specifier must be UNIT= FMT=... */
3545  if (!check_spec("UNIT=", a_unit, spec, cont, ctxt,
3546  is_unit_specifier) &&
3547  !check_spec("FMT=", a_fmt, spec, cont, ctxt,
3548  is_format_specifier) &&
3549  !check_spec("IOSTAT=", a_iostat, spec, cont, ctxt,
3550  is_iostat_specifier) &&
3551  !check_spec("REC=", a_rec, spec, cont, ctxt,
3552  is_record_specifier) &&
3553  !check_spec("ERR=", a_err, spec, cont, ctxt,
3554  is_err_specifier) &&
3555  !check_spec("END=", a_end, spec, cont, ctxt,
3556  is_end_specifier) &&
3557  !check_spec("IOLIST=", a_iolist, spec, cont, ctxt,
3558  (bool (*)(expression, type_context_p)) gen_true2) &&
3559  !check_spec("FILE=", a_file, spec, cont, ctxt,
3560  is_file_specifier) &&
3561  !check_spec("STATUS=", a_status, spec, cont, ctxt,
3562  is_status_specifier) &&
3563  !check_spec("ACCESS=", a_access, spec, cont, ctxt,
3564  is_access_specifier) &&
3565  !check_spec("FORM=", a_form, spec, cont, ctxt,
3566  is_form_specifier) &&
3567  !check_spec("BLANK=", a_blank, spec, cont, ctxt,
3568  is_blank_specifier) &&
3569  !check_spec("RECL=", a_recl, spec, cont, ctxt,
3570  is_recl_specifier) &&
3571  !check_spec("EXIST=", a_exist, spec, cont, ctxt,
3572  is_exist_specifier) &&
3573  !check_spec("OPENED=", a_opened, spec, cont, ctxt,
3574  is_opened_specifier) &&
3575  !check_spec("NUMBER=", a_number, spec, cont, ctxt,
3576  is_number_specifier) &&
3577  !check_spec("NAMED=", a_named, spec, cont, ctxt,
3578  is_named_specifier) &&
3579  !check_spec("NAME=", a_name, spec, cont, ctxt,
3580  is_name_specifier) &&
3581  !check_spec("SEQUENTIAL=", a_sequential, spec, cont, ctxt,
3582  is_sequential_specifier) &&
3583  !check_spec("DIRECT=", a_direct, spec, cont, ctxt,
3584  is_direct_specifier) &&
3585  !check_spec("FORMATED=", a_formatted, spec, cont, ctxt,
3586  is_formated_specifier) &&
3587  !check_spec("UNFORMATED=", a_unformatted, spec, cont, ctxt,
3588  is_unformated_specifier) &&
3589  !check_spec("NEXTREC=", a_nextrec, spec, cont, ctxt,
3590  is_nextrec_specifier))
3591  {
3592  add_one_line_of_comment((statement) stack_head(ctxt->stats),
3593  "Unexpected specifier '%s'", spec);
3594  ctxt->number_of_error++;
3595  return false;
3596  }
3597  }
3598 
3599  return true;
3600 }
check_spec
static bool check_spec(string name, bool allowed, const char *specifier, expression contents, type_context_p context, bool(*check_contents)(expression, type_context_p))
Definition: bootstrap.c:3474
is_opened_specifier
static bool is_opened_specifier(expression exp, type_context_p context)
Definition: bootstrap.c:3393
is_file_specifier
static bool is_file_specifier(expression exp, type_context_p context)
Definition: bootstrap.c:3348
is_named_specifier
static bool is_named_specifier(expression exp, type_context_p context)
Definition: bootstrap.c:3411
is_err_specifier
static bool is_err_specifier(expression exp, type_context_p context)
Error specifier is a label statement.
Definition: bootstrap.c:3336
is_sequential_specifier
static bool is_sequential_specifier(expression exp, type_context_p context)
Definition: bootstrap.c:3429
is_record_specifier
static bool is_record_specifier(expression exp, type_context_p context)
Definition: bootstrap.c:3316
is_format_specifier
static bool is_format_specifier(expression exp, type_context_p context)
Definition: bootstrap.c:3310
is_iostat_specifier
static bool is_iostat_specifier(expression exp, type_context_p context)
Integer variable or integer array element which is maybe modified.
Definition: bootstrap.c:3324
is_end_specifier
static bool is_end_specifier(expression exp, type_context_p context)
Definition: bootstrap.c:3342
is_nextrec_specifier
static bool is_nextrec_specifier(expression exp, type_context_p context)
Definition: bootstrap.c:3465
is_formated_specifier
static bool is_formated_specifier(expression exp, type_context_p context)
Definition: bootstrap.c:3447
is_exist_specifier
static bool is_exist_specifier(expression exp, type_context_p context)
Definition: bootstrap.c:3384
is_access_specifier
static bool is_access_specifier(expression exp, type_context_p context)
Definition: bootstrap.c:3360
is_recl_specifier
static bool is_recl_specifier(expression exp, type_context_p context)
Definition: bootstrap.c:3372
is_form_specifier
static bool is_form_specifier(expression exp, type_context_p context)
Definition: bootstrap.c:3366
is_number_specifier
static bool is_number_specifier(expression exp, type_context_p context)
Definition: bootstrap.c:3402
is_unit_specifier
static bool is_unit_specifier(expression exp, type_context_p context)
This function verifies the unit specifier; that is integer positive expression or character expressio...
Definition: bootstrap.c:3292
is_direct_specifier
static bool is_direct_specifier(expression exp, type_context_p context)
Definition: bootstrap.c:3438
is_blank_specifier
static bool is_blank_specifier(expression exp, type_context_p context)
Definition: bootstrap.c:3378
is_name_specifier
static bool is_name_specifier(expression exp, type_context_p context)
Definition: bootstrap.c:3420
is_status_specifier
static bool is_status_specifier(expression exp, type_context_p context)
Definition: bootstrap.c:3354
is_unformated_specifier
static bool is_unformated_specifier(expression exp, type_context_p context)
Definition: bootstrap.c:3456
gen_true2
bool gen_true2(__attribute__((unused)) gen_chunk *u1, __attribute__((unused)) void *u2)
Definition: genClib.c:2785
type_context_t
context for type checking.
Definition: bootstrap-local.h:34
type_context_t::stats
stack stats
Definition: bootstrap-local.h:36
type_context_t::number_of_error
int number_of_error
Definition: bootstrap-local.h:37

References add_one_line_of_comment(), call_arguments, call_function, CAR, CDR, check_spec(), entity_local_name(), EXPRESSION, expression_syntax, gen_length(), gen_true2(), is_access_specifier(), is_blank_specifier(), is_direct_specifier(), is_end_specifier(), is_err_specifier(), is_exist_specifier(), is_file_specifier(), is_form_specifier(), is_format_specifier(), is_formated_specifier(), is_iostat_specifier(), is_name_specifier(), is_named_specifier(), is_nextrec_specifier(), is_number_specifier(), is_opened_specifier(), is_recl_specifier(), is_record_specifier(), is_sequential_specifier(), is_status_specifier(), is_unformated_specifier(), is_unit_specifier(), type_context_t::number_of_error, pips_assert, stack_head(), type_context_t::stats, syntax_call, and syntax_call_p.

Referenced by check_backspace(), check_close(), check_endfile(), check_inquire(), check_open(), check_read_write(), and check_rewind().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ check_loop_range()

bool check_loop_range ( range  r,
hash_table  types 
)

Definition at line 292 of file type_checker.c.

293 {
294  basic lower, upper, incr;
295  lower = GET_TYPE(types, range_lower(r));
296  upper = GET_TYPE(types, range_upper(r));
297  incr = GET_TYPE(types, range_increment(r));
298  if( (basic_int_p(lower) || basic_float_p(lower)) &&
299  (basic_int_p(upper) || basic_float_p(upper)) &&
300  (basic_int_p(incr) || basic_float_p(incr)))
301  {
302  return true;
303  }
304  return false;
305 }
range_upper
#define range_upper(x)
Definition: ri.h:2290
range_increment
#define range_increment(x)
Definition: ri.h:2292
range_lower
#define range_lower(x)
Definition: ri.h:2288
GET_TYPE
#define GET_TYPE(h, e)
type of intrinsics stuff...
Definition: type_checker.c:50

References basic_float_p, basic_int_p, GET_TYPE, range_increment, range_lower, and range_upper.

Referenced by typing_implied_do().

+ Here is the caller graph for this function:

◆ check_open()

static basic check_open ( call  c,
type_context_p  context 
)
static

UNIT FMT REC IOSTAT ERR END IOLIST

FILE STATUS ACCESS FORM BLANK RECL EXIST OPENED

NUMBER NAMED NAME SEQUENTIAL DIRECT FORMATTED

UNFORMATTED NEXTREC

Definition at line 3620 of file bootstrap.c.

3621 {
3622  list args = call_arguments(c);
3623  check_io_list(args, context,
3624  /* UNIT FMT REC IOSTAT ERR END IOLIST */
3625  true, false, false, true, true, false, false,
3626  /* FILE STATUS ACCESS FORM BLANK RECL EXIST OPENED */
3627  true, true, true, true, true, true, false, false,
3628  /* NUMBER NAMED NAME SEQUENTIAL DIRECT FORMATTED */
3629  false, false, false, false, false, false,
3630  /* UNFORMATTED NEXTREC */
3631  false, false);
3632  return basic_undefined;
3633 }

References basic_undefined, call_arguments, and check_io_list().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ check_read_write()

static basic check_read_write ( call  c,
type_context_p  context 
)
static

UNIT FMT REC IOSTAT ERR END IOLIST

FILE STATUS ACCESS FORM BLANK RECL EXIST OPENED

NUMBER NAMED NAME SEQUENTIAL DIRECT FORMATTED

UNFORMATTED NEXTREC

Definition at line 3603 of file bootstrap.c.

3604 {
3605  list args = call_arguments(c);
3606  check_io_list(args, context,
3607  /* UNIT FMT REC IOSTAT ERR END IOLIST */
3608  true, true, true, true, true, true, true,
3609  /* FILE STATUS ACCESS FORM BLANK RECL EXIST OPENED */
3610  false, false, false, false, false, false, false, false,
3611  /* NUMBER NAMED NAME SEQUENTIAL DIRECT FORMATTED */
3612  false, false, false, false, false, false,
3613  /* UNFORMATTED NEXTREC */
3614  false, false);
3615 
3616  return basic_undefined;
3617 }

References basic_undefined, call_arguments, and check_io_list().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ check_rewind()

static basic check_rewind ( call  c,
type_context_p  context 
)
static

UNIT FMT REC IOSTAT ERR END IOLIST

FILE STATUS ACCESS FORM BLANK RECL EXIST OPENED

NUMBER NAMED NAME SEQUENTIAL DIRECT FORMATTED

UNFORMATTED NEXTREC

Definition at line 3703 of file bootstrap.c.

3704 {
3705  list args = call_arguments(c);
3706  check_io_list(args, context,
3707  /* UNIT FMT REC IOSTAT ERR END IOLIST */
3708  true, false, false, true, true, false, false,
3709  /* FILE STATUS ACCESS FORM BLANK RECL EXIST OPENED */
3710  false, false, false, false, false, false, false, false,
3711  /* NUMBER NAMED NAME SEQUENTIAL DIRECT FORMATTED */
3712  false, false, false, false, false, false,
3713  /* UNFORMATTED NEXTREC */
3714  false, false);
3715  return basic_undefined;
3716 }

References basic_undefined, call_arguments, and check_io_list().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ check_spec()

static bool check_spec ( string  name,
bool  allowed,
const char *  specifier,
expression  contents,
type_context_p  context,
bool(*)(expression, type_context_p)  check_contents 
)
static

else ok

not allowed

checked!

Definition at line 3474 of file bootstrap.c.

3480 {
3481  if (same_string_p(name, specifier))
3482  {
3483  if (allowed)
3484  {
3485  if (check_contents(contents, context))
3486  {
3487  return true;
3488  }
3489  /* else ok */
3490  }
3491  else /* not allowed */
3492  {
3493  add_one_line_of_comment((statement) stack_head(context->stats),
3494  "Specifier '%s' is not allowed", name);
3495  context->number_of_error++;
3496  }
3497  return true; /* checked! */
3498  }
3499 
3500  return false;
3501 }
same_string_p
#define same_string_p(s1, s2)
Definition: newgen_include.h:198

References add_one_line_of_comment(), same_string_p, stack_head(), and context::stats.

Referenced by check_io_list().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ complex_to_complex_type()

static type complex_to_complex_type ( int  n)
static

Definition at line 876 of file bootstrap.c.

877 {
878  type t = type_undefined;
879  functional ft = functional_undefined;
880 
881  ft = make_functional(NIL, MakeComplexResult());
882  functional_parameters(ft) = make_parameter_list(n, MakeComplexParameter);
883  t = make_type(is_type_functional, ft);
884 
885  return t;
886 }
MakeComplexResult
type MakeComplexResult(void)
Definition: type.c:311
MakeComplexParameter
parameter MakeComplexParameter(void)
Definition: type.c:224

References functional_parameters, functional_undefined, is_type_functional, make_functional(), make_parameter_list(), make_type(), MakeComplexParameter(), MakeComplexResult(), NIL, and type_undefined.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ complex_to_real_type()

static type complex_to_real_type ( int  n)
static

Definition at line 849 of file bootstrap.c.

850 {
851  type t = type_undefined;
852  functional ft = functional_undefined;
853 
854  ft = make_functional(NIL, MakeRealResult());
855  functional_parameters(ft) = make_parameter_list(n, MakeComplexParameter);
856  t = make_type(is_type_functional, ft);
857 
858  return t;
859 }
MakeRealResult
type MakeRealResult(void)
Definition: type.c:291

References functional_parameters, functional_undefined, is_type_functional, make_functional(), make_parameter_list(), make_type(), MakeComplexParameter(), MakeRealResult(), NIL, and type_undefined.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ convert_constant()

call convert_constant ( call  c,
basic  to_basic 
)

INT -> REAL

INT -> DOUBLE

INT -> COMPLEX

INT -> DCOMPLEX

REAL -> INT

REAL -> DOUBLE

REAL -> COMPLEX

REAL -> DCOMPLEX

DOUBLE -> INT

DOUBLE -> REAL

DOUBLE -> COMPLEX

DOUBLE -> DCOMPLEX

Parameters
to_basico_basic

Definition at line 1253 of file bootstrap.c.

1254 {
1255  basic b;
1256  entity function_called = call_function(c);
1257  if(entity_constant_p(function_called))
1258  {
1259  b = entity_basic(function_called);
1260  if(basic_equal_p(b, to_basic))
1261  {
1262  //return NULL;
1263  return copy_call(c);
1264  }
1265  else if (basic_int_p(b))
1266  {
1267  /* INT -> REAL */
1268  if (basic_float_p(to_basic) && basic_float(to_basic)==4)
1269  {
1270  return convert_constant_from_int_to_real(c);
1271  }
1272  /* INT -> DOUBLE */
1273  if (basic_float_p(to_basic) && basic_float(to_basic)==8)
1274  {
1275  return convert_constant_from_int_to_double(c);
1276  }
1277  /* INT -> COMPLEX */
1278  if (basic_complex_p(to_basic) && basic_complex(to_basic)==8)
1279  {
1280  return convert_constant_from_int_to_complex(c);
1281  }
1282  /* INT -> DCOMPLEX */
1283  if (basic_complex_p(to_basic) && basic_complex(to_basic)==16)
1284  {
1285  return convert_constant_from_int_to_dcomplex(c);
1286  }
1287  }
1288  else if (basic_float_p(b) && basic_float(b)==4)
1289  {
1290  /* REAL -> INT */
1291  if (basic_int_p(to_basic))
1292  {
1293  return convert_constant_from_real_to_int(c);
1294  }
1295  /* REAL -> DOUBLE */
1296  else if (basic_float_p(to_basic) && basic_float(to_basic)==8)
1297  {
1298  return convert_constant_from_real_to_double(c);
1299  }
1300  /* REAL -> COMPLEX */
1301  else if (basic_complex_p(to_basic) && basic_complex(to_basic)==8)
1302  {
1303  return convert_constant_from_real_to_complex(c);
1304  }
1305  /* REAL -> DCOMPLEX */
1306  else if (basic_complex_p(to_basic) && basic_complex(to_basic)==16)
1307  {
1308  return convert_constant_from_real_to_dcomplex(c);
1309  }
1310  }
1311  else if (basic_float_p(b) && basic_float(b)==8)
1312  {
1313  /* DOUBLE -> INT */
1314  if (basic_int_p(to_basic))
1315  {
1316  return convert_constant_from_double_to_int(c);
1317  }
1318  /* DOUBLE -> REAL */
1319  else if (basic_float_p(to_basic) && basic_float(to_basic)==4)
1320  {
1321  return convert_constant_from_double_to_real(c);
1322  }
1323  /* DOUBLE -> COMPLEX */
1324  else if (basic_complex_p(to_basic) && basic_complex(to_basic)==8)
1325  {
1326  return convert_constant_from_double_to_complex(c);
1327  }
1328  /* DOUBLE -> DCOMPLEX */
1329  else if (basic_complex_p(to_basic) && basic_complex(to_basic)==16)
1330  {
1331  return convert_constant_from_double_to_dcomplex(c);
1332  }
1333  }
1334  }
1335  return NULL;
1336 }
copy_call
call copy_call(call p)
CALL.
Definition: ri.c:233
convert_constant_from_double_to_dcomplex
static call convert_constant_from_double_to_dcomplex(call c)
DOUBLE -> DCOMPLEX e.g: DCMPLX(-5.9D5) => (-5.9D5, 0.0)
Definition: bootstrap.c:1207
convert_constant_from_real_to_double
static call convert_constant_from_real_to_double(call c)
REAL -> DOUBLE e.g: DBLE(-5.9E-2) => -5.9D-2.
Definition: bootstrap.c:1101
convert_constant_from_real_to_dcomplex
static call convert_constant_from_real_to_dcomplex(call c)
REAL -> DCOMPLEX e.g: DCMPLX(-5.9E5) => (-5.9D5, 0.0D0)
Definition: bootstrap.c:1232
convert_constant_from_int_to_dcomplex
static call convert_constant_from_int_to_dcomplex(call c)
INT -> DCOMPLEX e.g: DCMPLX(-5) => (-5D0, 0.0D0)
Definition: bootstrap.c:1242
convert_constant_from_int_to_double
static call convert_constant_from_int_to_double(call c)
INT -> DOUBLE e.g: DBLE(10) => 10.0.
Definition: bootstrap.c:1075
convert_constant_from_double_to_complex
static call convert_constant_from_double_to_complex(call c)
DOUBLE -> COMPLEX e.g: CMPLX(-5.9D5) => (-5.9E5, 0.0)
Definition: bootstrap.c:1187
convert_constant_from_double_to_real
static call convert_constant_from_double_to_real(call c)
DOUBLE -> REAL e.g: REAL(-5.9D-2) => -5.9E-2.
Definition: bootstrap.c:1127
convert_constant_from_int_to_real
static call convert_constant_from_int_to_real(call c)
Definition: bootstrap.c:1063
convert_constant_from_double_to_int
static call convert_constant_from_double_to_int(call c)
DOUBLE -> INT e.g: INT(-5.9D2) => -590.
Definition: bootstrap.c:1153
convert_constant_from_int_to_complex
static call convert_constant_from_int_to_complex(call c)
INT -> COMPLEX e.g: CMPLX(-5) => (-5.0, 0.0)
Definition: bootstrap.c:1197
convert_constant_from_real_to_int
static call convert_constant_from_real_to_int(call c)
REAL -> INT e.g: INT(-5.9E2) => -590.
Definition: bootstrap.c:1087
convert_constant_from_real_to_complex
static call convert_constant_from_real_to_complex(call c)
REAL -> COMPLEX e.g: CMPLX(-5.9E5) => (-5.9E5, 0.0)
Definition: bootstrap.c:1163
entity_basic
basic entity_basic(entity e)
return the basic associated to entity e if it's a function/variable/constant basic_undefined otherwis...
Definition: entity.c:1380
basic_equal_p
bool basic_equal_p(basic, basic)
Definition: type.c:927

References basic_complex, basic_complex_p, basic_equal_p(), basic_float, basic_float_p, basic_int_p, call_function, convert_constant_from_double_to_complex(), convert_constant_from_double_to_dcomplex(), convert_constant_from_double_to_int(), convert_constant_from_double_to_real(), convert_constant_from_int_to_complex(), convert_constant_from_int_to_dcomplex(), convert_constant_from_int_to_double(), convert_constant_from_int_to_real(), convert_constant_from_real_to_complex(), convert_constant_from_real_to_dcomplex(), convert_constant_from_real_to_double(), convert_constant_from_real_to_int(), copy_call(), entity_basic(), and entity_constant_p.

Referenced by cast_constant().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ convert_constant_from_double_to_complex()

static call convert_constant_from_double_to_complex ( call  c)
static

DOUBLE -> COMPLEX e.g: CMPLX(-5.9D5) => (-5.9E5, 0.0)

Definition at line 1187 of file bootstrap.c.

1188 {
1189  call c_result, c_real = convert_constant_from_double_to_real(c);
1190  c_result = convert_constant_from_real_to_complex(c_real);
1191  free_call(c_real);
1192  return c_result;
1193 }
free_call
void free_call(call p)
Definition: ri.c:236

References convert_constant_from_double_to_real(), convert_constant_from_real_to_complex(), and free_call().

Referenced by convert_constant().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ convert_constant_from_double_to_dcomplex()

static call convert_constant_from_double_to_dcomplex ( call  c)
static

DOUBLE -> DCOMPLEX e.g: DCMPLX(-5.9D5) => (-5.9D5, 0.0)

Conversion explicit

Conversion inplicit

Definition at line 1207 of file bootstrap.c.

1208 {
1209  expression exp_real, exp_imag;
1210  call c_imag;
1211  list args;
1212  exp_real = make_expression(make_syntax(is_syntax_call, copy_call(c)),
1213  normalized_undefined);
1214  c_imag = make_call(make_constant_entity("0.0D0",
1215  is_basic_float, DOUBLE_LENGTH),
1216  NIL);
1217  exp_imag = make_expression(make_syntax(is_syntax_call, c_imag),
1218  normalized_undefined);
1219  args = CONS(EXPRESSION, exp_real, CONS(EXPRESSION, exp_imag, NIL));
1220 
1221  /* Conversion explicit */
1222  if (get_bool_property("TYPE_CHECKER_EXPLICIT_COMPLEX_CONSTANTS"))
1223  {
1224  return make_call(CreateIntrinsic(DCMPLX_GENERIC_CONVERSION_NAME), args);
1225  }
1226  /* Conversion inplicit */
1227  return make_call(CreateIntrinsic(IMPLIED_DCOMPLEX_NAME), args);
1228 }

References CONS, copy_call(), CreateIntrinsic(), DCMPLX_GENERIC_CONVERSION_NAME, DOUBLE_LENGTH, EXPRESSION, get_bool_property(), IMPLIED_DCOMPLEX_NAME, is_basic_float, is_syntax_call, make_call(), make_constant_entity(), make_expression(), make_syntax(), NIL, and normalized_undefined.

Referenced by convert_constant(), convert_constant_from_int_to_dcomplex(), and convert_constant_from_real_to_dcomplex().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ convert_constant_from_double_to_int()

static call convert_constant_from_double_to_int ( call  c)
static

DOUBLE -> INT e.g: INT(-5.9D2) => -590.

Definition at line 1153 of file bootstrap.c.

1154 {
1155  call c_result, c_real = convert_constant_from_double_to_real(c);
1156  c_result = convert_constant_from_real_to_int(c_real);
1157  free_call(c_real);
1158  return c_result;
1159 }

References convert_constant_from_double_to_real(), convert_constant_from_real_to_int(), and free_call().

Referenced by convert_constant().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ convert_constant_from_double_to_real()

static call convert_constant_from_double_to_real ( call  c)
static

DOUBLE -> REAL e.g: REAL(-5.9D-2) => -5.9E-2.

There is not D, e.g: 5.496

Definition at line 1127 of file bootstrap.c.

1128 {
1129  char s[255];
1130  int i, len;
1131  strcpy(s, entity_local_name(call_function(c)));
1132  len = strlen(s);
1133  for(i = 0; i < len; i++)
1134  {
1135  if (s[i]=='D' || s[i]=='d')
1136  {
1137  s[i]='E';
1138  break;
1139  }
1140  }
1141  /* There is not D, e.g: 5.496 */
1142  if (i == len)
1143  {
1144  strcat(s,"E0");
1145  }
1146  return make_call(make_constant_entity((string)s,
1147  is_basic_float, REAL_LENGTH),
1148  NIL);
1149 }

References call_function, entity_local_name(), is_basic_float, make_call(), make_constant_entity(), NIL, and REAL_LENGTH.

Referenced by convert_constant(), convert_constant_from_double_to_complex(), and convert_constant_from_double_to_int().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ convert_constant_from_int_to_complex()

static call convert_constant_from_int_to_complex ( call  c)
static

INT -> COMPLEX e.g: CMPLX(-5) => (-5.0, 0.0)

Definition at line 1197 of file bootstrap.c.

1198 {
1199  call c_result, c_real = convert_constant_from_int_to_real(c);
1200  c_result = convert_constant_from_real_to_complex(c_real);
1201  free_call(c_real);
1202  return c_result;
1203 }

References convert_constant_from_int_to_real(), convert_constant_from_real_to_complex(), and free_call().

Referenced by convert_constant().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ convert_constant_from_int_to_dcomplex()

static call convert_constant_from_int_to_dcomplex ( call  c)
static

INT -> DCOMPLEX e.g: DCMPLX(-5) => (-5D0, 0.0D0)

Definition at line 1242 of file bootstrap.c.

1243 {
1244  call c_result, c_double = convert_constant_from_int_to_double(c);
1245  c_result = convert_constant_from_double_to_dcomplex(c_double);
1246  free_call(c_double);
1247  return c_result;
1248 }

References convert_constant_from_double_to_dcomplex(), convert_constant_from_int_to_double(), and free_call().

Referenced by convert_constant().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ convert_constant_from_int_to_double()

static call convert_constant_from_int_to_double ( call  c)
static

INT -> DOUBLE e.g: DBLE(10) => 10.0.

Definition at line 1075 of file bootstrap.c.

1076 {
1077  char s[255];
1078  strcpy(s, entity_local_name(call_function(c)));
1079  strcat(s,".0D0");
1080  return make_call(make_constant_entity((string)s,
1081  is_basic_float, DOUBLE_LENGTH),
1082  NIL);
1083 }

References call_function, DOUBLE_LENGTH, entity_local_name(), is_basic_float, make_call(), make_constant_entity(), and NIL.

Referenced by convert_constant(), and convert_constant_from_int_to_dcomplex().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ convert_constant_from_int_to_real()

static call convert_constant_from_int_to_real ( call  c)
static

Definition at line 1063 of file bootstrap.c.

1064 {
1065  char s[255];
1066  strcpy(s, entity_local_name(call_function(c)));
1067  strcat(s,".0E0");
1068  return make_call(make_constant_entity((string)s,
1069  is_basic_float, REAL_LENGTH),
1070  NIL);
1071 }

References call_function, entity_local_name(), is_basic_float, make_call(), make_constant_entity(), NIL, and REAL_LENGTH.

Referenced by convert_constant(), and convert_constant_from_int_to_complex().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ convert_constant_from_real_to_complex()

static call convert_constant_from_real_to_complex ( call  c)
static

REAL -> COMPLEX e.g: CMPLX(-5.9E5) => (-5.9E5, 0.0)

Conversion explicit

Conversion inplicit

Definition at line 1163 of file bootstrap.c.

1164 {
1165  expression exp_real, exp_imag;
1166  call c_imag;
1167  list args;
1168  exp_real = make_expression(make_syntax(is_syntax_call, copy_call(c)),
1169  normalized_undefined);
1170  c_imag = make_call(make_constant_entity("0.0E0",
1171  is_basic_float, REAL_LENGTH),
1172  NIL);
1173  exp_imag = make_expression(make_syntax(is_syntax_call, c_imag),
1174  normalized_undefined);
1175  args = CONS(EXPRESSION, exp_real, CONS(EXPRESSION, exp_imag, NIL));
1176  /* Conversion explicit */
1177  if (get_bool_property("TYPE_CHECKER_EXPLICIT_COMPLEX_CONSTANTS"))
1178  {
1179  return make_call(CreateIntrinsic(CMPLX_GENERIC_CONVERSION_NAME), args);
1180  }
1181  /* Conversion inplicit */
1182  return make_call(CreateIntrinsic(IMPLIED_COMPLEX_NAME), args);
1183 }

References CMPLX_GENERIC_CONVERSION_NAME, CONS, copy_call(), CreateIntrinsic(), EXPRESSION, get_bool_property(), IMPLIED_COMPLEX_NAME, is_basic_float, is_syntax_call, make_call(), make_constant_entity(), make_expression(), make_syntax(), NIL, normalized_undefined, and REAL_LENGTH.

Referenced by convert_constant(), convert_constant_from_double_to_complex(), and convert_constant_from_int_to_complex().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ convert_constant_from_real_to_dcomplex()

static call convert_constant_from_real_to_dcomplex ( call  c)
static

REAL -> DCOMPLEX e.g: DCMPLX(-5.9E5) => (-5.9D5, 0.0D0)

Definition at line 1232 of file bootstrap.c.

1233 {
1234  call c_result, c_double = convert_constant_from_real_to_double(c);
1235  c_result = convert_constant_from_double_to_dcomplex(c_double);
1236  free_call(c_double);
1237  return c_result;
1238 }

References convert_constant_from_double_to_dcomplex(), convert_constant_from_real_to_double(), and free_call().

Referenced by convert_constant().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ convert_constant_from_real_to_double()

static call convert_constant_from_real_to_double ( call  c)
static

REAL -> DOUBLE e.g: DBLE(-5.9E-2) => -5.9D-2.

There is not E, e.g: 5.496

Definition at line 1101 of file bootstrap.c.

1102 {
1103  char s[255];
1104  int i, len;
1105  strcpy(s, entity_local_name(call_function(c)));
1106  len = strlen(s);
1107  for(i = 0; i < len; i++)
1108  {
1109  if (s[i]=='E' || s[i]=='e')
1110  {
1111  s[i]='D';
1112  break;
1113  }
1114  }
1115  /* There is not E, e.g: 5.496 */
1116  if (i == len)
1117  {
1118  strcat(s,"D0");
1119  }
1120  return make_call(make_constant_entity((string)s,
1121  is_basic_float, DOUBLE_LENGTH),
1122  NIL);
1123 }

References call_function, DOUBLE_LENGTH, entity_local_name(), is_basic_float, make_call(), make_constant_entity(), and NIL.

Referenced by convert_constant(), and convert_constant_from_real_to_dcomplex().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ convert_constant_from_real_to_int()

static call convert_constant_from_real_to_int ( call  c)
static

REAL -> INT e.g: INT(-5.9E2) => -590.

Definition at line 1087 of file bootstrap.c.

1088 {
1089  long l;
1090  float r;
1091  char s[255];
1092  sscanf(entity_local_name(call_function(c)), "%f",&r);
1093  l = (long)r;
1094  sprintf(s, "%ld", l);
1095  return make_call(make_constant_entity((string)s, is_basic_int, INT_LENGTH),
1096  NIL);
1097 }
INT_LENGTH
#define INT_LENGTH
should be some properties to accomodate cray codes??
Definition: bootstrap-local.h:26
is_basic_int
@ is_basic_int
Definition: ri.h:571

References call_function, entity_local_name(), INT_LENGTH, is_basic_int, make_call(), make_constant_entity(), and NIL.

Referenced by convert_constant(), and convert_constant_from_double_to_int().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ CreateAbstractStateVariable()

static entity CreateAbstractStateVariable ( string  pn,
string  vn 
)
static

added to handle xxxrandxxx functions.

Amira Mensi and then generalized for other hidden libc variables

First a dummy function - close to C one "crt0()" - in order to

  • link the next entity to its ram
  • make an unbounded dimension for this entity

entity for random seed or other abstract states like heap: It is an unsigned int.

make_storage(is_storage_ram, make_ram(entity_undefined, DynamicArea, 0, NIL))

Definition at line 236 of file bootstrap.c.

237 {
238  /* First a dummy function - close to C one "crt0()" - in order to
239  - link the next entity to its ram
240  - make an unbounded dimension for this entity
241  */
242 
243  entity ent = FindEntity(TOP_LEVEL_MODULE_NAME, pn);
244  entity as = entity_undefined;
245  sequence s = make_sequence(NIL);
246  code c = make_code(NIL, strdup(""), s, NIL, make_language_unknown());
247 
248  code_initializations(c) = s;
249 
250  if(entity_undefined_p(ent)) {
251  ent = make_entity(AddPackageToName(TOP_LEVEL_MODULE_NAME,
252  pn),
253  make_type(is_type_functional,
254  make_functional(NIL,make_type(is_type_void,
255  NIL))),
256  make_storage(is_storage_rom, UU),
257  make_value(is_value_code, c),
258  DEFAULT_ENTITY_KIND);
259 
260  set_current_module_entity(ent);
261 
262  make_entity(AddPackageToName(pn,
263  STATIC_AREA_LOCAL_NAME),
264  make_type(is_type_area, make_area(0, NIL)),
265  make_storage(is_storage_rom, UU),
266  make_value(is_value_unknown, UU),
267  EFFECTS_PACKAGE|ABSTRACT_LOCATION|ENTITY_STATIC_AREA);
268  }
269  else
270  set_current_module_entity(ent);
271 
272  /* entity for random seed or other abstract states like heap: It is
273  an unsigned int. */
274  as = make_entity(AddPackageToName(pn, vn),
275  make_scalar_integer_type(DEFAULT_INTEGER_TYPE_SIZE),
276  /* make_storage(is_storage_ram,
277  make_ram(entity_undefined, DynamicArea, 0, NIL))
278  */
279  make_storage(is_storage_ram,
280  make_ram(ent,
281  FindEntity(pn,
282  STATIC_AREA_LOCAL_NAME),
283  0, NIL)),
284  make_value(is_value_unknown, UU),
285  EFFECTS_PACKAGE);
286 
287  reset_current_module_entity();
288  return as;
289 }
make_storage
storage make_storage(enum storage_utype tag, void *val)
Definition: ri.c:2273
make_language_unknown
language make_language_unknown(void)
Definition: ri.c:1259
make_ram
ram make_ram(entity a1, entity a2, intptr_t a3, list a4)
Definition: ri.c:1999
make_area
area make_area(intptr_t a1, list a2)
Definition: ri.c:98
make_code
code make_code(list a1, string a2, sequence a3, list a4, language a5)
Definition: ri.c:353
make_sequence
sequence make_sequence(list a)
Definition: ri.c:2125
reset_current_module_entity
void reset_current_module_entity(void)
Reset the current module entity.
Definition: static.c:97
set_current_module_entity
entity set_current_module_entity(entity)
static.c
Definition: static.c:66
STATIC_AREA_LOCAL_NAME
#define STATIC_AREA_LOCAL_NAME
Definition: naming-local.h:70
UU
#define UU
Definition: newgen_types.h:98
DEFAULT_INTEGER_TYPE_SIZE
#define DEFAULT_INTEGER_TYPE_SIZE
Definition: ri-util-local.h:1929
ENTITY_STATIC_AREA
@ ENTITY_STATIC_AREA
Definition: ri-util-local.h:2330
EFFECTS_PACKAGE
@ EFFECTS_PACKAGE
Definition: ri-util-local.h:2325
ABSTRACT_LOCATION
@ ABSTRACT_LOCATION
Definition: ri-util-local.h:2326
FindEntity
entity FindEntity(const char *package, const char *name)
Retrieve an entity from its package/module name and its local name.
Definition: entity.c:1503
AddPackageToName
char * AddPackageToName(string p, string n)
This function concatenate a package name and a local name to produce a global entity name.
Definition: entity.c:2134
make_scalar_integer_type
type make_scalar_integer_type(_int)
Definition: type.c:712
is_value_unknown
@ is_value_unknown
Definition: ri.h:3035
is_value_code
@ is_value_code
Definition: ri.h:3031
is_storage_rom
@ is_storage_rom
Definition: ri.h:2494
is_storage_ram
@ is_storage_ram
Definition: ri.h:2492
entity_undefined_p
#define entity_undefined_p(x)
Definition: ri.h:2762
entity_undefined
#define entity_undefined
Definition: ri.h:2761
code_initializations
#define code_initializations(x)
Definition: ri.h:788
is_type_void
@ is_type_void
Definition: ri.h:2904
is_type_area
@ is_type_area
Definition: ri.h:2899
_newgen_struct_code_
Definition: ri.h:773
_newgen_struct_sequence_
Definition: ri.h:2354

References ABSTRACT_LOCATION, AddPackageToName(), code_initializations, DEFAULT_ENTITY_KIND, DEFAULT_INTEGER_TYPE_SIZE, EFFECTS_PACKAGE, ENTITY_STATIC_AREA, entity_undefined, entity_undefined_p, FindEntity(), is_storage_ram, is_storage_rom, is_type_area, is_type_functional, is_type_void, is_value_code, is_value_unknown, make_area(), make_code(), make_entity, make_functional(), make_language_unknown(), make_ram(), make_scalar_integer_type(), make_sequence(), make_storage(), make_type(), make_value(), NIL, reset_current_module_entity(), set_current_module_entity(), STATIC_AREA_LOCAL_NAME, strdup(), TOP_LEVEL_MODULE_NAME, and UU.

Referenced by CreateHeapAbstractState(), CreateMemmoveAbstractState(), CreateRandomSeed(), and CreateTimeSeed().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ CreateAreas()

void CreateAreas ( void  )

cproto-generated files

bootstrap.c

Definition at line 104 of file bootstrap.c.

105 {
106  make_entity(AddPackageToName(TOP_LEVEL_MODULE_NAME,
107  DYNAMIC_AREA_LOCAL_NAME),
108  make_type(is_type_area, make_area(0, NIL)),
109  make_storage(is_storage_rom, UU),
110  make_value(is_value_unknown, UU),
111  ABSTRACT_LOCATION|ENTITY_DYNAMIC_AREA);
112 
113 
114  make_entity(AddPackageToName(TOP_LEVEL_MODULE_NAME,
115  STATIC_AREA_LOCAL_NAME),
116  make_type(is_type_area, make_area(0, NIL)),
117  make_storage(is_storage_rom, UU),
118  make_value(is_value_unknown, UU),
119  ABSTRACT_LOCATION|ENTITY_STATIC_AREA);
120 }
DYNAMIC_AREA_LOCAL_NAME
#define DYNAMIC_AREA_LOCAL_NAME
Definition: naming-local.h:69
ENTITY_DYNAMIC_AREA
@ ENTITY_DYNAMIC_AREA
Definition: ri-util-local.h:2329

References ABSTRACT_LOCATION, AddPackageToName(), DYNAMIC_AREA_LOCAL_NAME, ENTITY_DYNAMIC_AREA, ENTITY_STATIC_AREA, is_storage_rom, is_type_area, is_value_unknown, make_area(), make_entity, make_storage(), make_type(), make_value(), NIL, STATIC_AREA_LOCAL_NAME, TOP_LEVEL_MODULE_NAME, and UU.

Referenced by bootstrap().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ CreateHeapAbstractState()

static void CreateHeapAbstractState ( )
static

Definition at line 310 of file bootstrap.c.

311 {
312  entity as =
313  CreateAbstractStateVariable(MALLOC_EFFECTS_PACKAGE_NAME, MALLOC_EFFECTS_NAME);
314 
315  add_thread_safe_variable(as);
316  add_abstract_state_variable(as);
317 }
CreateAbstractStateVariable
static entity CreateAbstractStateVariable(string pn, string vn)
added to handle xxxrandxxx functions.
Definition: bootstrap.c:236
MALLOC_EFFECTS_NAME
#define MALLOC_EFFECTS_NAME
variable name for heap effects
Definition: ri-util-local.h:1990
MALLOC_EFFECTS_PACKAGE_NAME
#define MALLOC_EFFECTS_PACKAGE_NAME
package name for malloc routines (could be libc package)
Definition: ri-util-local.h:1988
add_thread_safe_variable
void add_thread_safe_variable(entity v)
Definition: entity.c:2525
add_abstract_state_variable
void add_abstract_state_variable(entity v)
Definition: entity.c:2558

References add_abstract_state_variable(), add_thread_safe_variable(), CreateAbstractStateVariable(), MALLOC_EFFECTS_NAME, and MALLOC_EFFECTS_PACKAGE_NAME.

Referenced by bootstrap().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ CreateIntrinsics()

void CreateIntrinsics ( set  module_list)

The table of intrinsic functions. this table is used at the begining of linking to create Fortran operators, commands and intrinsic functions.

Functions with a variable number of arguments are declared with INT_MAX arguments.

Nga Nguyen 27/06/2003 Fuse the tables of intrinsics for C and Fortran. Since there are differences between some kind of operators, such as in Fortran, "+" is only applied to arithmetic numbers, in C, "+" is also applied to pointer, the typing functions are different. So in some cases, we have to rename the operators

Pragma can be represented in the pips IR as a list of expression so new functions/intrinsics are needed. For exmaple to represent OMP pragmas, following intrinscs are needed: 1 - omp, parallel and for which are constant so with 0 argument, 2 - the colom poperator (for reduction) that takes two arguments 3 - private and reduction that takes a variable number of arguments.

internal inverse operator...

FORTRAN IO statement

Control statement

Arnauld Leservot, code CEA

(0.,1.) -> switched to a function call...

Bit manipulation functions : ISO/IEC 1539

These operators are used within the OPTIMIZE transformation in order to manipulate operators such as n-ary add and multiply or multiply-add operators ( JZ - sept 98)

integer combined multiply add or sub - FC oct 2005

Here are C intrinsics arranged in the order of the standard ISO/IEC 9899:TC2. MB

ISO 6.5.2.3 structure and union members

ISO 6.5.2.4 postfix increment and decrement operators, real or pointer type operand

ISO 6.5.3.1 prefix increment and decrement operators, real or pointer type operand

ISO 6.5.3.2 address and indirection operators, add pointer type

ISO 6.5.3.3 unary arithmetic operators

Unuary minus : ALREADY EXIST (FORTRAN) {UNARY_MINUS_OPERATOR_NAME, 1, default_intrinsic_type, typing_arithmetic_operator, 0},

ISO 6.5.5 multiplicative operators : ALREADY EXIST (FORTRAN) {MULTIPLY_OPERATOR_NAME, 2, default_intrinsic_type, typing_arithmetic_operator, 0}, {DIVIDE_OPERATOR_NAME, 2, default_intrinsic_type, typing_arithmetic_operator, 0},

ISO 6.5.6 additive operators, arithmetic types or pointer + integer type

ISO 6.5.7 bitwise shift operators

ISO 6.5.8 relational operators,arithmetic or pointer types

ISO 6.5.9 equality operators, return 0 or 1

ISO 6.5.10 bitwise AND operator

ISO 6.5.11 bitwise exclusive OR operator

ISO 6.5.12 bitwise inclusive OR operator

ISO 6.5.13 logical AND operator

ISO 6.5.14 logical OR operator

ISO 6.5.15 conditional operator

ISO 6.5.16.1 simple assignment : ALREADY EXIST (FORTRAN) {ASSIGN_OPERATOR_NAME, 2, default_intrinsic_type, typing_of_assign, 0},

ISO 6.5.16.2 compound assignments

ISO 6.5.17 comma operator

intrinsic to handle C initialization

include <assert.h>

does not return

include <complex.h>

include <ctype.h>

End ctype.h

Real type is void -> unsigned short int **

include <errno.h>

{"errno", 0, overloaded_to_integer_type, 0, 0},

bits/errno.h

include <fenv.h>

include <float.h>

{"__flt_rounds", 1, void_to_integer_type, 0, 0},

include <inttypes.h>

include <iso646.h>

{"_sysconf", 1, integer_to_integer_type, 0, 0},

{"localeconv", 1, default_intrinsic_type, 0, 0}, {"dcgettext", 3, default_intrinsic_type, 0, 0}, {"dgettext", 2, default_intrinsic_type, 0, 0}, {"gettext", 1, default_intrinsic_type, 0, 0}, {"textdomain", 1, default_intrinsic_type, 0, 0}, {"bindtextdomain", 2, default_intrinsic_type, 0, 0}, {"wdinit", 1, void_to_integer_type, 0 ,0}, {"wdchkind", 1, overloaded_to_integer_type, 0 ,0}, {"wdbindf", 3, overloaded_to_integer_type, 0 ,0}, {"wddelim", 3, default_intrinsic_type, 0, 0}, {"mcfiller", 1, void_to_overloaded_type, 0, 0}, {"mcwrap", 1, void_to_integer_type, 0 ,0},

include <limits.h>

include <locale.h>

include <math.h>

GNU C Library

End math.h

same name in stdlib {"ecvt", 4, default_intrinsic_type, 0, 0}, {"fcvt", 4, default_intrinsic_type, 0, 0}, {"gcvt", 3, default_intrinsic_type, 0, 0}, {"strtod", 2, overloaded_to_double_type, 0, 0},

include <setjmp.h>

include <signal.h>

include <stdarg.h>

include <stdbool.h>

include <stddef.h>

include <stdint.h>

include <stdio.h>

same name in stdlib {"getopt", 3, overloaded_to_integer_type, 0, 0}, {"getsubopt", 3, default_intrinsic_type, 0, 0},

C IO system functions in man -S 2. The typing could be refined. See unistd.h

2 or 3 arguments

returns ssize_t

{FCNTL_FUNCTION_NAME, (INT_MAX), overloaded_to_integer_type, 0, 0},

2 or 3 arguments of various types

located with fcntl.h

include <stdlib.h>

void -> long int

include <string.h>

include <tgmath.h>

include <time.h>

include <wchar.h>

include <wctype.h>

netdb.h

include <fcntl.h>

OMP

BSD <err.h>

F95

F2003

PIPS run-time support for C code generation

Source code located in validation/Hyperplane/run_time.src for the time being.

assembly function

PIPS intrinsics to simulate various effects

PIRE

PI necessary calls

Parameters
module_listodule_list

Definition at line 4417 of file bootstrap.c.

4418 {
4419  /* The table of intrinsic functions. this table is used at the begining
4420  of linking to create Fortran operators, commands and intrinsic functions.
4421 
4422  Functions with a variable number of arguments are declared with INT_MAX
4423  arguments.
4424  */
4425 
4426  /* Nga Nguyen 27/06/2003 Fuse the tables of intrinsics for C and Fortran.
4427  Since there are differences between some kind of operators, such as in
4428  Fortran, "+" is only applied to arithmetic numbers, in C, "+" is also applied
4429  to pointer, the typing functions are different. So in some cases, we have to
4430  rename the operators */
4431  /* Pragma can be represented in the pips IR as a list of expression so new
4432  * functions/intrinsics are needed. For exmaple to represent OMP pragmas,
4433  * following intrinscs are needed:
4434  * 1 - omp, parallel and for which are constant so with 0 argument,
4435  * 2 - the colom poperator (for reduction) that takes two arguments
4436  * 3 - private and reduction that takes a variable number of arguments.
4437  */
4438  /*
4439  * IntrinsicDescriptor need:
4440  * {Name, Nbr_arg, Type, Type_Function, switch_name_function}
4441  * \Name Name of the intrinsic operator/function
4442  * \Nbr_arg Number of argument than the intrinsic operator/function need
4443  * \Type is a pointer of function, that expect to have 1 arg (\Nbr_arg) and return a type of kind functional
4444  * \Type_Function
4445  * \switch_name_function
4446  */
4447  static IntrinsicDescriptor IntrinsicTypeDescriptorTable[] =
4448  {
4449  {PLUS_OPERATOR_NAME, 2, default_intrinsic_type, typing_arithmetic_operator, 0},
4450  {MINUS_OPERATOR_NAME, 2, default_intrinsic_type, typing_arithmetic_operator, 0},
4451  {DIVIDE_OPERATOR_NAME, 2, default_intrinsic_type, typing_arithmetic_operator, 0},
4452  {MULTIPLY_OPERATOR_NAME, 2, default_intrinsic_type, typing_arithmetic_operator, 0},
4453  {UNARY_MINUS_OPERATOR_NAME, 1, default_intrinsic_type, typing_arithmetic_operator, 0}, // unary minus
4454  {POWER_OPERATOR_NAME, 2, default_intrinsic_type, typing_power_operator, 0},
4455 
4456  /* internal inverse operator... */
4457  { INVERSE_OPERATOR_NAME, 1, real_to_real_type,
4458  typing_function_RealDoubleComplex_to_RealDoubleComplex, 0},
4459 
4460  {ASSIGN_OPERATOR_NAME, 2, default_intrinsic_type, typing_of_assign, 0},
4461 
4462  {EQUIV_OPERATOR_NAME, 2, overloaded_to_logical_type, typing_logical_operator, 0},
4463  {NON_EQUIV_OPERATOR_NAME, 2, overloaded_to_logical_type, typing_logical_operator, 0},
4464 
4465  {OR_OPERATOR_NAME, 2, logical_to_logical_type, typing_logical_operator, 0},
4466  {AND_OPERATOR_NAME, 2, logical_to_logical_type, typing_logical_operator, 0},
4467  {NOT_OPERATOR_NAME, 1, logical_to_logical_type, typing_logical_operator, 0},
4468 
4469  {LESS_THAN_OPERATOR_NAME, 2, overloaded_to_logical_type, typing_relational_operator, 0},
4470  {GREATER_THAN_OPERATOR_NAME, 2, overloaded_to_logical_type, typing_relational_operator, 0},
4471  {LESS_OR_EQUAL_OPERATOR_NAME, 2, overloaded_to_logical_type, typing_relational_operator, 0},
4472  {GREATER_OR_EQUAL_OPERATOR_NAME, 2, overloaded_to_logical_type, typing_relational_operator, 0},
4473  {EQUAL_OPERATOR_NAME, 2, overloaded_to_logical_type, typing_relational_operator, 0},
4474  {NON_EQUAL_OPERATOR_NAME, 2, overloaded_to_logical_type, typing_relational_operator, 0},
4475 
4476  {CONCATENATION_FUNCTION_NAME, 2, character_to_character_type, typing_concat_operator, 0},
4477 
4478  /* FORTRAN IO statement */
4479  {WRITE_FUNCTION_NAME, (INT_MAX), default_intrinsic_type, check_read_write, 0},
4480  {REWIND_FUNCTION_NAME, (INT_MAX), default_intrinsic_type, check_rewind, 0},
4481  {BACKSPACE_FUNCTION_NAME, (INT_MAX), default_intrinsic_type, check_backspace, 0},
4482  {OPEN_FUNCTION_NAME, (INT_MAX), default_intrinsic_type, check_open, 0},
4483  {CLOSE_FUNCTION_NAME, (INT_MAX), default_intrinsic_type, check_close, 0},
4484  {READ_FUNCTION_NAME, (INT_MAX), default_intrinsic_type, check_read_write, 0},
4485  {BUFFERIN_FUNCTION_NAME, (INT_MAX), default_intrinsic_type, typing_buffer_inout, 0},
4486  {BUFFEROUT_FUNCTION_NAME, (INT_MAX), default_intrinsic_type, typing_buffer_inout, 0},
4487  {ENDFILE_FUNCTION_NAME, (INT_MAX), default_intrinsic_type, check_endfile, 0},
4488  {IMPLIED_DO_NAME, (INT_MAX), default_intrinsic_type, typing_implied_do, 0},
4489  {REPEAT_VALUE_NAME, 2, default_intrinsic_type, no_typing, 0},
4490  {STATIC_INITIALIZATION_FUNCTION_NAME, (INT_MAX) , default_intrinsic_type, no_typing, 0},
4491  {DATA_LIST_FUNCTION_NAME, (INT_MAX) , default_intrinsic_type, no_typing, 0},
4492  {FORMAT_FUNCTION_NAME, 1, default_intrinsic_type, check_format, 0},
4493  {INQUIRE_FUNCTION_NAME, (INT_MAX), default_intrinsic_type, check_inquire, 0},
4494 
4495  {SUBSTRING_FUNCTION_NAME, 3, substring_type, typing_substring, 0},
4496  {ASSIGN_SUBSTRING_FUNCTION_NAME, 4, assign_substring_type, typing_assign_substring, 0},
4497 
4498  /* Control statement */
4499  {CONTINUE_FUNCTION_NAME, 0, default_intrinsic_type, statement_without_argument, 0},
4500  {"ENDDO", 0, default_intrinsic_type, 0, 0}, // Why do we need this one?
4501  {PAUSE_FUNCTION_NAME, 1, default_intrinsic_type,
4502  statement_with_at_most_one_integer_or_character, 0},
4503  {RETURN_FUNCTION_NAME, 0, default_intrinsic_type,
4504  statement_with_at_most_one_expression_integer, 0},
4505  {STOP_FUNCTION_NAME, 0, default_intrinsic_type,
4506  statement_with_at_most_one_integer_or_character, 0},
4507  {END_FUNCTION_NAME, 0, default_intrinsic_type, statement_without_argument, 0}, // Is it useful?
4508 
4509 
4510  {INT_GENERIC_CONVERSION_NAME, 1, overloaded_to_integer_type,
4511  typing_function_conversion_to_integer, simplification_int},
4512  {IFIX_GENERIC_CONVERSION_NAME, 1, real_to_integer_type, typing_function_real_to_int,
4513  simplification_int},
4514  {IDINT_GENERIC_CONVERSION_NAME, 1, double_to_integer_type, typing_function_double_to_int,
4515  simplification_int},
4516  {REAL_GENERIC_CONVERSION_NAME, 1, overloaded_to_real_type, typing_function_conversion_to_real,
4517  simplification_real},
4518  {FLOAT_GENERIC_CONVERSION_NAME, 1, overloaded_to_real_type, typing_function_conversion_to_real,
4519  simplification_real},
4520  {DFLOAT_GENERIC_CONVERSION_NAME, 1, overloaded_to_double_type,
4521  typing_function_conversion_to_double, simplification_double},
4522  {SNGL_GENERIC_CONVERSION_NAME, 1, overloaded_to_real_type, typing_function_conversion_to_real,
4523  simplification_real},
4524  {DBLE_GENERIC_CONVERSION_NAME, 1, overloaded_to_double_type,
4525  typing_function_conversion_to_double, simplification_double},
4526  {DREAL_GENERIC_CONVERSION_NAME, 1, overloaded_to_double_type, /* Arnauld Leservot, code CEA */
4527  typing_function_conversion_to_double, simplification_double},
4528  {CMPLX_GENERIC_CONVERSION_NAME, (INT_MAX), overloaded_to_complex_type,
4529  typing_function_conversion_to_complex, simplification_complex},
4530 
4531  {DCMPLX_GENERIC_CONVERSION_NAME, (INT_MAX), overloaded_to_doublecomplex_type,
4532  typing_function_conversion_to_dcomplex, simplification_dcomplex},
4533 
4534  /* (0.,1.) -> switched to a function call... */
4535  { IMPLIED_COMPLEX_NAME, 2, overloaded_to_complex_type,
4536  typing_function_constant_complex, switch_specific_cmplx },
4537  { IMPLIED_DCOMPLEX_NAME, 2, overloaded_to_doublecomplex_type,
4538  typing_function_constant_dcomplex, switch_specific_dcmplx },
4539 
4540  {CHAR_TO_INT_CONVERSION_NAME, 1, default_intrinsic_type, typing_function_char_to_int, 0},
4541  {INT_TO_CHAR_CONVERSION_NAME, 1, default_intrinsic_type, typing_function_int_to_char, 0},
4542 
4543  {AINT_CONVERSION_NAME, 1, real_to_real_type,
4544  typing_function_RealDouble_to_RealDouble, switch_specific_aint},
4545  {DINT_CONVERSION_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
4546  {ANINT_CONVERSION_NAME, 1, real_to_real_type,
4547  typing_function_RealDouble_to_RealDouble, switch_specific_anint},
4548  {DNINT_CONVERSION_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
4549  {NINT_CONVERSION_NAME, 1, real_to_integer_type,
4550  typing_function_RealDouble_to_Integer, switch_specific_nint},
4551  {IDNINT_CONVERSION_NAME, 1, double_to_integer_type, typing_function_double_to_int, 0},
4552 
4553  //Fortran
4554  {IABS_OPERATOR_NAME, 1, integer_to_integer_type, typing_function_int_to_int, 0},
4555  {ABS_OPERATOR_NAME, 1, real_to_real_type,
4556  typing_function_IntegerRealDoubleComplex_to_IntegerRealDoubleReal,
4557  switch_specific_abs},
4558  {DABS_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
4559  {CABS_OPERATOR_NAME, 1, complex_to_real_type, typing_function_complex_to_real, 0},
4560  {CDABS_OPERATOR_NAME, 1, doublecomplex_to_double_type,
4561  typing_function_dcomplex_to_double, 0},
4562 
4563  {MODULO_OPERATOR_NAME, 2, default_intrinsic_type,
4564  typing_function_IntegerRealDouble_to_IntegerRealDouble,
4565  switch_specific_mod},
4566  {REAL_MODULO_OPERATOR_NAME, 2, real_to_real_type, typing_function_real_to_real, 0},
4567  {DOUBLE_MODULO_OPERATOR_NAME, 2, double_to_double_type, typing_function_double_to_double, 0},
4568 
4569  {ISIGN_OPERATOR_NAME, 2, integer_to_integer_type, typing_function_int_to_int, 0},
4570  {SIGN_OPERATOR_NAME, 2, default_intrinsic_type,
4571  typing_function_IntegerRealDouble_to_IntegerRealDouble,
4572  switch_specific_sign},
4573  {DSIGN_OPERATOR_NAME, 2, double_to_double_type, typing_function_double_to_double, 0},
4574 
4575  {IDIM_OPERATOR_NAME, 2, integer_to_integer_type, typing_function_int_to_int, 0},
4576  {DIM_OPERATOR_NAME, 2, default_intrinsic_type,
4577  typing_function_IntegerRealDouble_to_IntegerRealDouble,
4578  switch_specific_dim},
4579  {DDIM_OPERATOR_NAME, 2, double_to_double_type, typing_function_double_to_double, 0},
4580 
4581  {DPROD_OPERATOR_NAME, 2, real_to_double_type, typing_function_real_to_double, 0},
4582 
4583  {MAX_OPERATOR_NAME, (INT_MAX), default_intrinsic_type,
4584  typing_function_IntegerRealDouble_to_IntegerRealDouble,
4585  switch_specific_max},
4586  {MAX0_OPERATOR_NAME, (INT_MAX), integer_to_integer_type,
4587  typing_function_int_to_int, 0},
4588  {AMAX1_OPERATOR_NAME, (INT_MAX), real_to_real_type, typing_function_real_to_real, 0},
4589  {DMAX1_OPERATOR_NAME, (INT_MAX), double_to_double_type,
4590  typing_function_double_to_double, 0},
4591  {AMAX0_OPERATOR_NAME, (INT_MAX), integer_to_real_type,
4592  typing_function_int_to_real, 0},
4593  {MAX1_OPERATOR_NAME, (INT_MAX), real_to_integer_type, typing_function_real_to_int, 0},
4594 
4595  {MIN_OPERATOR_NAME, (INT_MAX), default_intrinsic_type,
4596  typing_function_IntegerRealDouble_to_IntegerRealDouble,
4597  switch_specific_min},
4598  {MIN0_OPERATOR_NAME, (INT_MAX), integer_to_integer_type,
4599  typing_function_int_to_int, 0},
4600  {AMIN1_OPERATOR_NAME, (INT_MAX), real_to_real_type, typing_function_real_to_real, 0},
4601  {DMIN1_OPERATOR_NAME, (INT_MAX), double_to_double_type,
4602  typing_function_double_to_double, 0},
4603  {AMIN0_OPERATOR_NAME, (INT_MAX), integer_to_real_type,
4604  typing_function_int_to_real, 0},
4605  {MIN1_OPERATOR_NAME, (INT_MAX), real_to_integer_type, typing_function_real_to_int, 0},
4606 
4607  {LENGTH_OPERATOR_NAME, 1, character_to_integer_type, typing_function_char_to_int, 0},
4608  {INDEX_OPERATOR_NAME, 2, character_to_integer_type, typing_function_char_to_int, 0},
4609 
4610  {AIMAG_CONVERSION_NAME, 1, complex_to_real_type, typing_function_complex_to_real, 0},
4611  {DIMAG_CONVERSION_NAME, 1, doublecomplex_to_double_type,
4612  typing_function_dcomplex_to_double, 0},
4613 
4614  {CONJG_OPERATOR_NAME, 1, complex_to_complex_type,
4615  typing_function_complex_to_complex, 0},
4616  {DCONJG_OPERATOR_NAME, 1, doublecomplex_to_doublecomplex_type,
4617  typing_function_dcomplex_to_dcomplex, 0},
4618 
4619  {SQRT_OPERATOR_NAME, 1, default_intrinsic_type,
4620  typing_function_RealDoubleComplex_to_RealDoubleComplex,
4621  switch_specific_sqrt},
4622  {DSQRT_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
4623  {CSQRT_OPERATOR_NAME, 1, complex_to_complex_type,
4624  typing_function_complex_to_complex, 0},
4625  {CDSQRT_OPERATOR_NAME, 1, doublecomplex_to_doublecomplex_type,
4626  typing_function_dcomplex_to_dcomplex, 0},
4627 
4628  {EXP_OPERATOR_NAME, 1, default_intrinsic_type,
4629  typing_function_RealDoubleComplex_to_RealDoubleComplex,
4630  switch_specific_exp},
4631  {DEXP_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
4632  {CEXP_OPERATOR_NAME, 1, complex_to_complex_type,
4633  typing_function_complex_to_complex, 0},
4634  {CDEXP_OPERATOR_NAME, 1, doublecomplex_to_doublecomplex_type,
4635  typing_function_dcomplex_to_dcomplex, 0},
4636 
4637  {LOG_OPERATOR_NAME, 1, default_intrinsic_type,
4638  typing_function_RealDoubleComplex_to_RealDoubleComplex,
4639  switch_specific_log},
4640  {ALOG_OPERATOR_NAME, 1, real_to_real_type, typing_function_real_to_real, 0},
4641  {DLOG_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
4642  {CLOG_OPERATOR_NAME, 1, complex_to_complex_type,
4643  typing_function_complex_to_complex, 0},
4644  {CDLOG_OPERATOR_NAME, 1, doublecomplex_to_doublecomplex_type,
4645  typing_function_dcomplex_to_dcomplex, 0},
4646 
4647  {LOG10_OPERATOR_NAME, 1, default_intrinsic_type,
4648  typing_function_RealDouble_to_RealDouble, switch_specific_log10},
4649  {ALOG10_OPERATOR_NAME, 1, real_to_real_type, typing_function_real_to_real, 0},
4650  {DLOG10_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
4651 
4652  {SIN_OPERATOR_NAME, 1, default_intrinsic_type,
4653  typing_function_RealDoubleComplex_to_RealDoubleComplex,
4654  switch_specific_sin},
4655  {DSIN_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
4656  {CSIN_OPERATOR_NAME, 1, complex_to_complex_type,
4657  typing_function_complex_to_complex, 0},
4658  {CDSIN_OPERATOR_NAME, 1, doublecomplex_to_doublecomplex_type,
4659  typing_function_dcomplex_to_dcomplex, 0},
4660 
4661  {COS_OPERATOR_NAME, 1, default_intrinsic_type,
4662  typing_function_RealDoubleComplex_to_RealDoubleComplex,
4663  switch_specific_cos},
4664  {DCOS_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
4665  {CCOS_OPERATOR_NAME, 1, complex_to_complex_type,
4666  typing_function_complex_to_complex, 0},
4667  {CDCOS_OPERATOR_NAME, 1, doublecomplex_to_doublecomplex_type,
4668  typing_function_dcomplex_to_dcomplex, 0},
4669 
4670  {TAN_OPERATOR_NAME, 1, default_intrinsic_type,
4671  typing_function_RealDouble_to_RealDouble, switch_specific_tan},
4672  {DTAN_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
4673 
4674  {ASIN_OPERATOR_NAME, 1, default_intrinsic_type,
4675  typing_function_RealDouble_to_RealDouble, switch_specific_asin},
4676  {DASIN_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
4677 
4678  {ACOS_OPERATOR_NAME, 1, default_intrinsic_type,
4679  typing_function_RealDouble_to_RealDouble, switch_specific_acos},
4680  {DACOS_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
4681 
4682  {ATAN_OPERATOR_NAME, 1, default_intrinsic_type,
4683  typing_function_RealDouble_to_RealDouble, switch_specific_atan},
4684  {DATAN_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
4685  {ATAN2_OPERATOR_NAME, 1, default_intrinsic_type,
4686  typing_function_RealDouble_to_RealDouble, switch_specific_atan2},
4687  {DATAN2_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
4688 
4689  {SINH_OPERATOR_NAME, 1, default_intrinsic_type,
4690  typing_function_RealDouble_to_RealDouble, switch_specific_sinh},
4691  {DSINH_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
4692 
4693  {COSH_OPERATOR_NAME, 1, default_intrinsic_type,
4694  typing_function_RealDouble_to_RealDouble, switch_specific_cosh},
4695  {DCOSH_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
4696 
4697  {TANH_OPERATOR_NAME, 1, default_intrinsic_type,
4698  typing_function_RealDouble_to_RealDouble, switch_specific_tanh},
4699  {DTANH_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
4700 
4701  {LGE_OPERATOR_NAME, 2, character_to_logical_type, typing_function_char_to_logical, 0},
4702  {LGT_OPERATOR_NAME, 2, character_to_logical_type, typing_function_char_to_logical, 0},
4703  {LLE_OPERATOR_NAME, 2, character_to_logical_type, typing_function_char_to_logical, 0},
4704  {LLT_OPERATOR_NAME, 2, character_to_logical_type, typing_function_char_to_logical, 0},
4705 
4706  {LIST_DIRECTED_FORMAT_NAME, 0, default_intrinsic_type,
4707  typing_function_format_name, 0},
4708  {UNBOUNDED_DIMENSION_NAME, 0, default_intrinsic_type,
4709  typing_function_overloaded, 0},
4710 
4711  /* Bit manipulation functions : ISO/IEC 1539 */
4712  {ISHFT_OPERATOR_NAME, 2, integer_to_integer_type, typing_function_int_to_int, 0},
4713  {ISHFTC_OPERATOR_NAME, 3,integer_to_integer_type, typing_function_int_to_int, 0},
4714  {IBITS_OPERATOR_NAME, 3, integer_to_integer_type, typing_function_int_to_int, 0},
4715  {MVBITS_OPERATOR_NAME, 5,integer_to_integer_type, typing_function_int_to_int, 0},
4716  {BTEST_OPERATOR_NAME, 2,integer_to_logical_type, typing_function_int_to_logical, 0},
4717  {IBSET_OPERATOR_NAME, 2,integer_to_integer_type, typing_function_int_to_int, 0},
4718  {IBCLR_OPERATOR_NAME, 2,integer_to_integer_type, typing_function_int_to_int, 0},
4719  {BIT_SIZE_OPERATOR_NAME, 2,integer_to_integer_type, typing_function_int_to_int, 0},
4720  {IAND_OPERATOR_NAME, 2,integer_to_integer_type, typing_function_int_to_int, 0},
4721  {IEOR_OPERATOR_NAME, 2,integer_to_integer_type, typing_function_int_to_int, 0},
4722  {IOR_OPERATOR_NAME, 2,integer_to_integer_type, typing_function_int_to_int, 0},
4723 
4724  /* These operators are used within the OPTIMIZE transformation in
4725  order to manipulate operators such as n-ary add and multiply or
4726  multiply-add operators ( JZ - sept 98) */
4727  {EOLE_SUM_OPERATOR_NAME, (INT_MAX), default_intrinsic_type ,
4728  typing_arithmetic_operator, 0},
4729  {EOLE_PROD_OPERATOR_NAME, (INT_MAX), default_intrinsic_type ,
4730  typing_arithmetic_operator, 0},
4731  {EOLE_FMA_OPERATOR_NAME, 3, default_intrinsic_type ,
4732  typing_arithmetic_operator, 0},
4733  {EOLE_FMS_OPERATOR_NAME, 3, default_intrinsic_type ,
4734  typing_arithmetic_operator, 0},
4735 
4736  /* integer combined multiply add or sub - FC oct 2005 */
4737  { IMA_OPERATOR_NAME, 3, integer_to_integer_type,
4738  typing_function_int_to_int, 0 },
4739  { IMS_OPERATOR_NAME, 3, integer_to_integer_type,
4740  typing_function_int_to_int, 0 },
4741 
4742  /* Here are C intrinsics arranged in the order of the standard ISO/IEC 9899:TC2. MB */
4743 
4744  /* ISO 6.5.2.3 structure and union members */
4745  {FIELD_OPERATOR_NAME, 2, default_intrinsic_type, 0, 0},
4746  {POINT_TO_OPERATOR_NAME, 2, default_intrinsic_type, 0, 0},
4747  /* ISO 6.5.2.4 postfix increment and decrement operators, real or pointer type operand */
4748  {POST_INCREMENT_OPERATOR_NAME, 1, default_intrinsic_type, 0, 0},
4749  {POST_DECREMENT_OPERATOR_NAME, 1, default_intrinsic_type, 0, 0},
4750  /* ISO 6.5.3.1 prefix increment and decrement operators, real or pointer type operand */
4751  {PRE_INCREMENT_OPERATOR_NAME, 1, default_intrinsic_type, 0, 0},
4752  {PRE_DECREMENT_OPERATOR_NAME, 1, default_intrinsic_type, 0, 0},
4753  /* ISO 6.5.3.2 address and indirection operators, add pointer type */
4754  // this definition must be more precise but cause a type issue
4755  // {ADDRESS_OF_OPERATOR_NAME, 1, pointer_to_overloaded_type, 0, 0},
4756  {ADDRESS_OF_OPERATOR_NAME, 1, default_intrinsic_type, 0, 0},
4757  {DEREFERENCING_OPERATOR_NAME, 1, default_intrinsic_type, 0, 0},
4758  /* ISO 6.5.3.3 unary arithmetic operators */
4759  {UNARY_PLUS_OPERATOR_NAME, 1, default_intrinsic_type, typing_arithmetic_operator, 0},
4760  /* Unuary minus : ALREADY EXIST (FORTRAN)
4761  {UNARY_MINUS_OPERATOR_NAME, 1, default_intrinsic_type, typing_arithmetic_operator, 0},*/
4762  {BITWISE_NOT_OPERATOR_NAME, 1, integer_to_overloaded_type, typing_arithmetic_operator, 0},
4763  {C_NOT_OPERATOR_NAME, 1, overloaded_to_integer_type, 0, 0},
4764  /* ISO 6.5.5 multiplicative operators : ALREADY EXIST (FORTRAN)
4765  {MULTIPLY_OPERATOR_NAME, 2, default_intrinsic_type, typing_arithmetic_operator, 0},
4766  {DIVIDE_OPERATOR_NAME, 2, default_intrinsic_type, typing_arithmetic_operator, 0},*/
4767  {C_MODULO_OPERATOR_NAME, 2, integer_to_overloaded_type, typing_arithmetic_operator, 0},
4768  /* ISO 6.5.6 additive operators, arithmetic types or pointer + integer type*/
4769  {PLUS_C_OPERATOR_NAME, 2, default_intrinsic_type, 0, 0},
4770  {MINUS_C_OPERATOR_NAME, 2, default_intrinsic_type, 0, 0},
4771  /* ISO 6.5.7 bitwise shift operators*/
4772  {LEFT_SHIFT_OPERATOR_NAME, 2, integer_to_overloaded_type, 0, 0},
4773  {RIGHT_SHIFT_OPERATOR_NAME, 2, integer_to_overloaded_type, 0, 0},
4774  /* ISO 6.5.8 relational operators,arithmetic or pointer types */
4775  {C_LESS_THAN_OPERATOR_NAME, 2, overloaded_to_integer_type, 0, 0},
4776  {C_GREATER_THAN_OPERATOR_NAME, 2, overloaded_to_integer_type, 0, 0},
4777  {C_LESS_OR_EQUAL_OPERATOR_NAME, 2, overloaded_to_integer_type, 0, 0},
4778  {C_GREATER_OR_EQUAL_OPERATOR_NAME, 2, overloaded_to_integer_type, 0, 0},
4779  /* ISO 6.5.9 equality operators, return 0 or 1*/
4780  {C_EQUAL_OPERATOR_NAME, 2, overloaded_to_integer_type, 0, 0},
4781  {C_NON_EQUAL_OPERATOR_NAME, 2, overloaded_to_integer_type, 0, 0},
4782  /* ISO 6.5.10 bitwise AND operator */
4783  {BITWISE_AND_OPERATOR_NAME, 2, integer_to_integer_type, typing_arithmetic_operator, 0},
4784  /* ISO 6.5.11 bitwise exclusive OR operator */
4785  {BITWISE_XOR_OPERATOR_NAME, 2, integer_to_integer_type, typing_arithmetic_operator, 0},
4786  /* ISO 6.5.12 bitwise inclusive OR operator */
4787  {BITWISE_OR_OPERATOR_NAME, 2, integer_to_integer_type, typing_arithmetic_operator, 0},
4788  /* ISO 6.5.13 logical AND operator */
4789  {C_AND_OPERATOR_NAME, 2, overloaded_to_integer_type, 0, 0},
4790  /* ISO 6.5.14 logical OR operator */
4791  {C_OR_OPERATOR_NAME, 2, overloaded_to_integer_type, 0, 0},
4792  /* ISO 6.5.15 conditional operator */
4793  {CONDITIONAL_OPERATOR_NAME, 3, default_intrinsic_type, 0, 0},
4794  /* ISO 6.5.16.1 simple assignment : ALREADY EXIST (FORTRAN)
4795  {ASSIGN_OPERATOR_NAME, 2, default_intrinsic_type, typing_of_assign, 0}, */
4796  /* ISO 6.5.16.2 compound assignments*/
4797  {MULTIPLY_UPDATE_OPERATOR_NAME, 2, default_intrinsic_type, typing_of_assign, 0},
4798  {DIVIDE_UPDATE_OPERATOR_NAME, 2, default_intrinsic_type, typing_of_assign, 0},
4799  {MODULO_UPDATE_OPERATOR_NAME, 2, default_intrinsic_type, typing_of_assign, 0},
4800  {PLUS_UPDATE_OPERATOR_NAME, 2, default_intrinsic_type, typing_of_assign, 0},
4801  {MINUS_UPDATE_OPERATOR_NAME, 2, default_intrinsic_type, typing_of_assign, 0},
4802  {LEFT_SHIFT_UPDATE_OPERATOR_NAME, 2, default_intrinsic_type, typing_of_assign, 0},
4803  {RIGHT_SHIFT_UPDATE_OPERATOR_NAME, 2, default_intrinsic_type, typing_of_assign, 0},
4804  {BITWISE_AND_UPDATE_OPERATOR_NAME, 2, default_intrinsic_type, typing_of_assign, 0},
4805  {BITWISE_XOR_UPDATE_OPERATOR_NAME, 2, default_intrinsic_type, typing_of_assign, 0},
4806  {BITWISE_OR_UPDATE_OPERATOR_NAME, 2, default_intrinsic_type, typing_of_assign, 0},
4807  /* ISO 6.5.17 comma operator */
4808  {COMMA_OPERATOR_NAME, (INT_MAX), default_intrinsic_type, 0, 0},
4809 
4810  {BREAK_FUNCTION_NAME, 0, default_intrinsic_type, 0, 0},
4811  {CASE_FUNCTION_NAME, 0, default_intrinsic_type, 0, 0},
4812  {DEFAULT_FUNCTION_NAME, 0, default_intrinsic_type, 0, 0},
4813  {C_RETURN_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
4814 
4815  /* intrinsic to handle C initialization */
4816  {BRACE_INTRINSIC, (INT_MAX) , default_intrinsic_type, no_typing, 0},
4817 
4818  /* #include <assert.h> */
4819  {ASSERT_FUNCTION_NAME, 3, overloaded_to_void_type,0,0},
4820  {ASSERT_FAIL_FUNCTION_NAME, 4, overloaded_to_void_type,0,0}, /* does not return */
4821 
4822  /* #include <complex.h> */
4823 
4824  {CACOS_OPERATOR_NAME, 1, doublecomplex_to_doublecomplex_type, typing_function_dcomplex_to_dcomplex, 0},
4825  {CACOSF_OPERATOR_NAME, 1, complex_to_complex_type, typing_function_complex_to_complex, 0},
4826  {CACOSL_OPERATOR_NAME, 1, longdoublecomplex_to_longdoublecomplex_type, typing_function_longdcomplex_to_longdcomplex, 0},
4827  {CASIN_OPERATOR_NAME, 1, doublecomplex_to_doublecomplex_type, typing_function_dcomplex_to_dcomplex, 0},
4828  {CASINF_OPERATOR_NAME, 1, complex_to_complex_type, typing_function_complex_to_complex, 0},
4829  {CASINL_OPERATOR_NAME, 1, longdoublecomplex_to_longdoublecomplex_type, typing_function_longdcomplex_to_longdcomplex, 0},
4830  {CATAN_OPERATOR_NAME, 1, doublecomplex_to_doublecomplex_type, typing_function_dcomplex_to_dcomplex, 0},
4831  {CATANF_OPERATOR_NAME, 1, complex_to_complex_type, typing_function_complex_to_complex, 0},
4832  {CATANL_OPERATOR_NAME, 1, longdoublecomplex_to_longdoublecomplex_type, typing_function_longdcomplex_to_longdcomplex, 0},
4833  {C_CCOS_OPERATOR_NAME, 1, doublecomplex_to_doublecomplex_type, typing_function_dcomplex_to_dcomplex, 0},
4834  {CCOSF_OPERATOR_NAME, 1, complex_to_complex_type, typing_function_complex_to_complex, 0},
4835  {CCOSL_OPERATOR_NAME, 1, longdoublecomplex_to_longdoublecomplex_type, typing_function_longdcomplex_to_longdcomplex, 0},
4836  {C_CSIN_OPERATOR_NAME, 1, doublecomplex_to_doublecomplex_type, typing_function_dcomplex_to_dcomplex, 0},
4837  {CSINF_OPERATOR_NAME, 1, complex_to_complex_type, typing_function_complex_to_complex, 0},
4838  {CSINL_OPERATOR_NAME, 1, longdoublecomplex_to_longdoublecomplex_type, typing_function_longdcomplex_to_longdcomplex, 0},
4839  {CTAN_OPERATOR_NAME, 1, doublecomplex_to_doublecomplex_type, typing_function_dcomplex_to_dcomplex, 0},
4840  {CTANF_OPERATOR_NAME, 1, complex_to_complex_type, typing_function_complex_to_complex, 0},
4841  {CTANL_OPERATOR_NAME, 1, longdoublecomplex_to_longdoublecomplex_type, typing_function_longdcomplex_to_longdcomplex, 0},
4842  {CACOSH_OPERATOR_NAME, 1, doublecomplex_to_doublecomplex_type, typing_function_dcomplex_to_dcomplex, 0},
4843  {CACOSHF_OPERATOR_NAME, 1, complex_to_complex_type, typing_function_complex_to_complex, 0},
4844  {CACOSHL_OPERATOR_NAME, 1, longdoublecomplex_to_longdoublecomplex_type, typing_function_longdcomplex_to_longdcomplex, 0},
4845  {CASINH_OPERATOR_NAME, 1, doublecomplex_to_doublecomplex_type, typing_function_dcomplex_to_dcomplex, 0},
4846  {CASINHF_OPERATOR_NAME, 1, complex_to_complex_type, typing_function_complex_to_complex, 0},
4847  {CASINHL_OPERATOR_NAME, 1, longdoublecomplex_to_longdoublecomplex_type, typing_function_longdcomplex_to_longdcomplex, 0},
4848  {CATANH_OPERATOR_NAME, 1, doublecomplex_to_doublecomplex_type, typing_function_dcomplex_to_dcomplex, 0},
4849  {CATANHF_OPERATOR_NAME, 1, complex_to_complex_type, typing_function_complex_to_complex, 0},
4850  {CATANHL_OPERATOR_NAME, 1, longdoublecomplex_to_longdoublecomplex_type, typing_function_longdcomplex_to_longdcomplex, 0},
4851  {CCOSH_OPERATOR_NAME, 1, doublecomplex_to_doublecomplex_type, typing_function_dcomplex_to_dcomplex, 0},
4852  {CCOSHF_OPERATOR_NAME, 1, complex_to_complex_type, typing_function_complex_to_complex, 0},
4853  {CCOSHL_OPERATOR_NAME, 1, longdoublecomplex_to_longdoublecomplex_type, typing_function_longdcomplex_to_longdcomplex, 0},
4854  {CSINH_OPERATOR_NAME, 1, doublecomplex_to_doublecomplex_type, typing_function_dcomplex_to_dcomplex, 0},
4855  {CSINHF_OPERATOR_NAME, 1, complex_to_complex_type, typing_function_complex_to_complex, 0},
4856  {CSINHL_OPERATOR_NAME, 1, longdoublecomplex_to_longdoublecomplex_type, typing_function_longdcomplex_to_longdcomplex, 0},
4857  {CTANH_OPERATOR_NAME, 1, doublecomplex_to_doublecomplex_type, typing_function_dcomplex_to_dcomplex, 0},
4858  {CTANHF_OPERATOR_NAME, 1, complex_to_complex_type, typing_function_complex_to_complex, 0},
4859  {CTANHL_OPERATOR_NAME, 1, longdoublecomplex_to_longdoublecomplex_type, typing_function_longdcomplex_to_longdcomplex, 0},
4860  {C_CEXP_OPERATOR_NAME, 1, doublecomplex_to_doublecomplex_type, typing_function_dcomplex_to_dcomplex, 0},
4861  {CEXPF_OPERATOR_NAME, 1, complex_to_complex_type, typing_function_complex_to_complex, 0},
4862  {CEXPL_OPERATOR_NAME, 1, longdoublecomplex_to_longdoublecomplex_type, typing_function_longdcomplex_to_longdcomplex, 0},
4863  {C_CLOG_OPERATOR_NAME, 1, doublecomplex_to_doublecomplex_type, typing_function_dcomplex_to_dcomplex, 0},
4864  {CLOGF_OPERATOR_NAME, 1, complex_to_complex_type, typing_function_complex_to_complex, 0},
4865  {CLOGL_OPERATOR_NAME, 1, longdoublecomplex_to_longdoublecomplex_type, typing_function_longdcomplex_to_longdcomplex, 0},
4866  {C_CABS_OPERATOR_NAME, 1, doublecomplex_to_double_type, typing_function_dcomplex_to_double, 0},
4867  {CABSF_OPERATOR_NAME, 1, complex_to_real_type, typing_function_complex_to_real, 0},
4868  {CABSL_OPERATOR_NAME, 1, longdoublecomplex_to_longdouble_type, typing_function_longdcomplex_to_longdouble, 0},
4869  {CPOW_OPERATOR_NAME, 1, doublecomplex_to_doublecomplex_type, typing_function_dcomplex_to_dcomplex, 0},
4870  {CPOWF_OPERATOR_NAME, 1, complex_to_complex_type, typing_function_complex_to_complex, 0},
4871  {CPOWL_OPERATOR_NAME, 1, longdoublecomplex_to_longdoublecomplex_type, typing_function_longdcomplex_to_longdcomplex, 0},
4872  {C_CSQRT_OPERATOR_NAME, 1, doublecomplex_to_doublecomplex_type, typing_function_dcomplex_to_dcomplex, 0},
4873  {CSQRTF_OPERATOR_NAME, 1, complex_to_complex_type, typing_function_complex_to_complex, 0},
4874  {CSQRTL_OPERATOR_NAME, 1, longdoublecomplex_to_longdoublecomplex_type, typing_function_longdcomplex_to_longdcomplex, 0},
4875  {CARG_OPERATOR_NAME, 1, doublecomplex_to_double_type, typing_function_dcomplex_to_double, 0},
4876  {CARGF_OPERATOR_NAME, 1, complex_to_real_type, typing_function_complex_to_real, 0},
4877  {CARGL_OPERATOR_NAME, 1, longdoublecomplex_to_longdouble_type, typing_function_longdcomplex_to_longdouble, 0},
4878  {CIMAG_OPERATOR_NAME, 1, doublecomplex_to_double_type, typing_function_dcomplex_to_double, 0},
4879  {GCC_CIMAG_OPERATOR_NAME, 1, doublecomplex_to_double_type, typing_function_dcomplex_to_double, 0},
4880  {CIMAGF_OPERATOR_NAME, 1, complex_to_real_type, typing_function_complex_to_real, 0},
4881  {CIMAGL_OPERATOR_NAME, 1, longdoublecomplex_to_longdouble_type, typing_function_longdcomplex_to_longdouble, 0},
4882  {CONJ_OPERATOR_NAME, 1, doublecomplex_to_doublecomplex_type, typing_function_dcomplex_to_dcomplex, 0},
4883  {CONJF_OPERATOR_NAME, 1, complex_to_complex_type, typing_function_complex_to_complex, 0},
4884  {CONJL_OPERATOR_NAME, 1, longdoublecomplex_to_longdoublecomplex_type, typing_function_longdcomplex_to_longdcomplex, 0},
4885  {CPROJ_OPERATOR_NAME, 1, doublecomplex_to_doublecomplex_type, typing_function_dcomplex_to_dcomplex, 0},
4886  {CPROJF_OPERATOR_NAME, 1, complex_to_complex_type, typing_function_complex_to_complex, 0},
4887  {CPROJL_OPERATOR_NAME, 1, longdoublecomplex_to_longdoublecomplex_type, typing_function_longdcomplex_to_longdcomplex, 0},
4888  {CREAL_OPERATOR_NAME, 1, doublecomplex_to_double_type, typing_function_dcomplex_to_double, 0},
4889  {GCC_CREAL_OPERATOR_NAME, 1, doublecomplex_to_double_type, typing_function_dcomplex_to_double, 0},
4890  {CREALF_OPERATOR_NAME, 1, complex_to_real_type, typing_function_complex_to_real, 0},
4891  {CREALL_OPERATOR_NAME, 1, longdoublecomplex_to_longdouble_type, typing_function_longdcomplex_to_longdouble, 0},
4892 
4893  /* #include <ctype.h> */
4894 
4895  {ISALNUM_OPERATOR_NAME, 1, integer_to_integer_type, typing_function_int_to_int, 0},
4896  {ISALPHA_OPERATOR_NAME, 1, integer_to_integer_type, typing_function_int_to_int, 0},
4897  {ISBLANK_OPERATOR_NAME, 1, integer_to_integer_type, typing_function_int_to_int, 0},
4898  {ISCNTRL_OPERATOR_NAME, 1, integer_to_integer_type, typing_function_int_to_int, 0},
4899  {ISDIGIT_OPERATOR_NAME, 1, integer_to_integer_type, typing_function_int_to_int, 0},
4900  {ISGRAPH_OPERATOR_NAME, 1, integer_to_integer_type, typing_function_int_to_int, 0},
4901  {ISLOWER_OPERATOR_NAME, 1, integer_to_integer_type, typing_function_int_to_int, 0},
4902  {ISPRINT_OPERATOR_NAME, 1, integer_to_integer_type, typing_function_int_to_int, 0},
4903  {ISPUNCT_OPERATOR_NAME, 1, integer_to_integer_type, typing_function_int_to_int, 0},
4904  {ISSPACE_OPERATOR_NAME, 1, integer_to_integer_type, typing_function_int_to_int, 0},
4905  {ISUPPER_OPERATOR_NAME, 1, integer_to_integer_type, typing_function_int_to_int, 0},
4906  {ISXDIGIT_OPERATOR_NAME, 1, integer_to_integer_type, typing_function_int_to_int, 0},
4907  {TOLOWER_OPERATOR_NAME, 1, integer_to_integer_type, typing_function_int_to_int, 0},
4908  {TOUPPER_OPERATOR_NAME, 1, integer_to_integer_type, typing_function_int_to_int, 0},
4909  /* End ctype.h */
4910  //not found in standard C99 (in GNU C Library)
4911  {ISASCII_OPERATOR_NAME, 1, integer_to_integer_type, typing_function_int_to_int, 0},
4912  {TOASCII_OPERATOR_NAME, 1, integer_to_integer_type, typing_function_int_to_int, 0},
4913  {_TOLOWER_OPERATOR_NAME, 1, integer_to_integer_type, typing_function_int_to_int, 0},
4914  {_TOUPPER_OPERATOR_NAME, 1, integer_to_integer_type, typing_function_int_to_int, 0},
4915 
4916  /* Real type is void -> unsigned short int ** */
4917  {CTYPE_B_LOC_OPERATOR_NAME, 0, integer_to_integer_type, 0, 0},
4918 
4919  /* #include <errno.h> */
4920  /* {"errno", 0, overloaded_to_integer_type, 0, 0}, */
4921  /* bits/errno.h */
4922  {__ERRNO_LOCATION_OPERATOR_NAME, 0, default_intrinsic_type, 0, 0},
4923 
4924 
4925  /* #include <fenv.h> */
4926  {FECLEAREXCEPT_FUNCTION_NAME, 1, integer_to_integer_type, typing_function_int_to_int, 0},
4927  {FERAISEEXCEPT_FUNCTION_NAME, 1, integer_to_integer_type, typing_function_int_to_int, 0},
4928  {FESETEXCEPTFLAG_FUNCTION_NAME, 2, overloaded_to_integer_type, 0, 0},
4929  {FETESTEXCEPT_FUNCTION_NAME, 1, integer_to_integer_type, typing_function_int_to_int, 0},
4930  {FEGETROUND_FUNCTION_NAME, 1, void_to_integer_type, 0, 0},
4931  {FESETROUND_FUNCTION_NAME, 1, integer_to_integer_type, typing_function_int_to_int, 0},
4932  // fenv_t *
4933  //{FESETENV_FUNCTION_NAME, 1, integer_to_integer_type, typing_function_int_to_int, 0},
4934  //{FEUPDATEENV_FUNCTION_NAME, 1, integer_to_integer_type, typing_function_int_to_int, 0},
4935 
4936 
4937  /* #include <float.h> */
4938  /* {"__flt_rounds", 1, void_to_integer_type, 0, 0}, */
4939 
4940  /* #include <inttypes.h> */
4941  {IMAXABS_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
4942  {IMAXDIV_FUNCTION_NAME, 2, default_intrinsic_type, 0, 0},
4943 
4944  /* #include <iso646.h> */
4945 
4946  /* {"_sysconf", 1, integer_to_integer_type, 0, 0},
4947 
4948  {"localeconv", 1, default_intrinsic_type, 0, 0},
4949  {"dcgettext", 3, default_intrinsic_type, 0, 0},
4950  {"dgettext", 2, default_intrinsic_type, 0, 0},
4951  {"gettext", 1, default_intrinsic_type, 0, 0},
4952  {"textdomain", 1, default_intrinsic_type, 0, 0},
4953  {"bindtextdomain", 2, default_intrinsic_type, 0, 0},
4954  {"wdinit", 1, void_to_integer_type, 0 ,0},
4955  {"wdchkind", 1, overloaded_to_integer_type, 0 ,0},
4956  {"wdbindf", 3, overloaded_to_integer_type, 0 ,0},
4957  {"wddelim", 3, default_intrinsic_type, 0, 0},
4958  {"mcfiller", 1, void_to_overloaded_type, 0, 0},
4959  {"mcwrap", 1, void_to_integer_type, 0 ,0},*/
4960 
4961  /* #include <limits.h> */
4962 
4963  /* #include <locale.h> */
4964  {SETLOCALE_FUNCTION_NAME, 2, default_intrinsic_type, 0, 0},
4965 
4966  /* #include <math.h> */
4967 
4968  {FPCLASSIFY_OPERATOR_NAME, 1, double_to_integer_type,typing_function_double_to_int, 0},
4969  {ISFINITE_OPERATOR_NAME, 1, double_to_integer_type, typing_function_double_to_int, 0},
4970  {ISINF_OPERATOR_NAME, 1, double_to_integer_type, typing_function_double_to_int, 0},
4971  {ISNAN_OPERATOR_NAME, 1, double_to_integer_type, typing_function_double_to_int, 0},
4972  {ISNANL_OPERATOR_NAME, 1, double_to_integer_type, typing_function_real_to_int, 0},
4973  {ISNANF_OPERATOR_NAME, 1, real_to_integer_type, typing_function_real_to_int, 0},
4974  {ISNORMAL_OPERATOR_NAME, 1, double_to_integer_type, typing_function_double_to_int, 0},
4975  {SIGNBIT_OPERATOR_NAME, 1, double_to_integer_type,typing_function_double_to_int, 0},
4976  {C_ACOS_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double , 0},
4977  {ACOSF_OPERATOR_NAME, 1, real_to_real_type, typing_function_real_to_real, 0},
4978  {ACOSL_OPERATOR_NAME, 1, longdouble_to_longdouble_type, typing_function_longdouble_to_longdouble, 0},
4979  {C_ASIN_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
4980  {ASINF_OPERATOR_NAME, 1, real_to_real_type, typing_function_real_to_real, 0},
4981  {ASINL_OPERATOR_NAME, 1, longdouble_to_longdouble_type, typing_function_longdouble_to_longdouble, 0},
4982  {C_ATAN_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
4983  {ATANF_OPERATOR_NAME, 1, real_to_real_type, typing_function_real_to_real, 0},
4984  {ATANL_OPERATOR_NAME, 1, longdouble_to_longdouble_type, typing_function_longdouble_to_longdouble, 0},
4985  {C_ATAN2_OPERATOR_NAME, 2, double_to_double_type, typing_function_double_to_double, 0},
4986  {ATAN2F_OPERATOR_NAME, 2, real_to_real_type, typing_function_real_to_real, 0},
4987  {ATAN2L_OPERATOR_NAME, 2, longdouble_to_longdouble_type, typing_function_longdouble_to_longdouble, 0},
4988  {C_COS_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
4989  {COSF_OPERATOR_NAME, 1, real_to_real_type, typing_function_real_to_real, 0},
4990  {COSL_OPERATOR_NAME, 1, longdouble_to_longdouble_type, typing_function_longdouble_to_longdouble, 0},
4991  {C_SIN_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
4992  {SINF_OPERATOR_NAME, 1, real_to_real_type, typing_function_real_to_real, 0},
4993  {SINL_OPERATOR_NAME, 1, longdouble_to_longdouble_type, typing_function_longdouble_to_longdouble, 0},
4994  {C_TAN_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
4995  {TANF_OPERATOR_NAME, 1, real_to_real_type, typing_function_real_to_real, 0},
4996  {TANL_OPERATOR_NAME, 1, longdouble_to_longdouble_type, typing_function_longdouble_to_longdouble, 0},
4997  {C_ACOSH_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
4998  {ACOSHF_OPERATOR_NAME, 1, real_to_real_type, typing_function_real_to_real, 0},
4999  {ACOSHL_OPERATOR_NAME, 1, longdouble_to_longdouble_type, typing_function_longdouble_to_longdouble, 0},
5000  {C_ASINH_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
5001  {ASINHF_OPERATOR_NAME, 1, real_to_real_type, typing_function_real_to_real, 0},
5002  {ASINHL_OPERATOR_NAME, 1, longdouble_to_longdouble_type, typing_function_longdouble_to_longdouble, 0},
5003  {C_ATANH_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
5004  {ATANHF_OPERATOR_NAME, 1, real_to_real_type, typing_function_real_to_real, 0},
5005  {ATANHL_OPERATOR_NAME, 1, longdouble_to_longdouble_type, typing_function_longdouble_to_longdouble, 0},
5006  {C_COSH_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
5007  {COSHF_OPERATOR_NAME, 1, real_to_real_type, typing_function_real_to_real, 0},
5008  {COSHL_OPERATOR_NAME, 1, longdouble_to_longdouble_type, typing_function_longdouble_to_longdouble, 0},
5009  {C_SINH_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
5010  {SINHF_OPERATOR_NAME, 1, real_to_real_type, typing_function_real_to_real, 0},
5011  {SINHL_OPERATOR_NAME, 1, longdouble_to_longdouble_type, typing_function_longdouble_to_longdouble, 0},
5012  {C_TANH_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
5013  {TANHF_OPERATOR_NAME, 1, real_to_real_type, typing_function_real_to_real, 0},
5014  {TANHL_OPERATOR_NAME, 1, longdouble_to_longdouble_type, typing_function_longdouble_to_longdouble, 0},
5015  {C_EXP_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
5016  {EXPF_OPERATOR_NAME, 1, real_to_real_type, typing_function_real_to_real, 0},
5017  {EXPL_OPERATOR_NAME, 1, longdouble_to_longdouble_type, typing_function_longdouble_to_longdouble, 0},
5018  {EXP2_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
5019  {EXP2F_OPERATOR_NAME, 1, real_to_real_type, typing_function_real_to_real, 0},
5020  {EXP2L_OPERATOR_NAME, 1, longdouble_to_longdouble_type, typing_function_longdouble_to_longdouble, 0},
5021  {EXPM1_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
5022  {EXPM1F_OPERATOR_NAME, 1, real_to_real_type, typing_function_real_to_real, 0},
5023  {EXPM1L_OPERATOR_NAME, 1, longdouble_to_longdouble_type, typing_function_longdouble_to_longdouble, 0},
5024  {FREXP_OPERATOR_NAME, 2, overloaded_to_double_type, 0, 0},/*?*/
5025  {ILOGB_OPERATOR_NAME, 1, double_to_integer_type, typing_function_double_to_int, 0},
5026  {ILOGBF_OPERATOR_NAME, 1, double_to_integer_type, typing_function_double_to_int, 0},
5027  {ILOGBL_OPERATOR_NAME, 1, longdouble_to_integer_type, typing_function_longdouble_to_int, 0},
5028  {LDEXP_OPERATOR_NAME, 2, overloaded_to_double_type, 0, 0},
5029  {LDEXPF_OPERATOR_NAME, 2, overloaded_to_real_type, 0, 0},
5030  {LDEXPL_OPERATOR_NAME, 2, overloaded_to_longdouble_type, 0, 0},
5031  {C_LOG_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
5032  {LOGF_OPERATOR_NAME, 1, real_to_real_type, typing_function_real_to_real, 0},
5033  {LOGL_OPERATOR_NAME, 1, longdouble_to_longdouble_type, typing_function_longdouble_to_longdouble, 0},
5034  {C_LOG10_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
5035  {LOG10F_OPERATOR_NAME, 1, real_to_real_type, typing_function_real_to_real, 0},
5036  {LOG10L_OPERATOR_NAME, 1, longdouble_to_longdouble_type, typing_function_longdouble_to_longdouble, 0},
5037  {LOG1P_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
5038  {LOG1PF_OPERATOR_NAME, 1, real_to_real_type, typing_function_real_to_real, 0},
5039  {LOG1PL_OPERATOR_NAME, 1, longdouble_to_longdouble_type, typing_function_longdouble_to_longdouble, 0},
5040  {LOG2_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
5041  {LOG2F_OPERATOR_NAME, 1, real_to_real_type, typing_function_real_to_real, 0},
5042  {LOG2L_OPERATOR_NAME, 1, longdouble_to_longdouble_type, typing_function_longdouble_to_longdouble, 0},
5043  {LOGB_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
5044  {LOGBF_OPERATOR_NAME, 1, real_to_real_type, typing_function_real_to_real, 0},
5045  {LOGBL_OPERATOR_NAME, 1, longdouble_to_longdouble_type, typing_function_longdouble_to_longdouble, 0},
5046  {MODF_OPERATOR_NAME, 2, overloaded_to_double_type, 0, 0},
5047  {MODFF_OPERATOR_NAME, 2, overloaded_to_real_type, 0, 0},
5048  {SCALBN_OPERATOR_NAME, 2, overloaded_to_double_type, 0, 0},
5049  {SCALBNF_OPERATOR_NAME, 2, overloaded_to_real_type, 0, 0},
5050  {SCALBNL_OPERATOR_NAME, 2, overloaded_to_longdouble_type, 0, 0},
5051  {SCALB_OPERATOR_NAME, 2, double_to_double_type, typing_function_double_to_double, 0}, //POSIX.1-2001
5052  {SCALBLN_OPERATOR_NAME, 2, overloaded_to_double_type, 0, 0},
5053  {SCALBLNF_OPERATOR_NAME, 2, overloaded_to_real_type, 0, 0},
5054  {SCALBLNL_OPERATOR_NAME, 2, overloaded_to_longdouble_type, 0, 0},
5055  {CBRT_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
5056  {CBRTF_OPERATOR_NAME, 1, real_to_real_type, typing_function_real_to_real, 0},
5057  {CBRTL_OPERATOR_NAME, 1, longdouble_to_longdouble_type, typing_function_longdouble_to_longdouble, 0},
5058  {FABS_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
5059  {FABSF_OPERATOR_NAME, 1, real_to_real_type, typing_function_real_to_real, 0},
5060  {FABSL_OPERATOR_NAME, 1, longdouble_to_longdouble_type, typing_function_longdouble_to_longdouble, 0},
5061  {HYPOT_OPERATOR_NAME, 2, double_to_double_type, typing_function_double_to_double, 0},
5062  {HYPOTF_OPERATOR_NAME, 2, real_to_real_type, typing_function_real_to_real, 0},
5063  {HYPOTL_OPERATOR_NAME, 2, longdouble_to_longdouble_type, typing_function_longdouble_to_longdouble, 0},
5064  {POW_OPERATOR_NAME, 2, double_to_double_type, typing_function_double_to_double, 0},
5065  {POWF_OPERATOR_NAME, 2, real_to_real_type, typing_function_real_to_real, 0},
5066  {POWL_OPERATOR_NAME, 1, longdouble_to_longdouble_type, typing_function_longdouble_to_longdouble, 0},
5067  {C_SQRT_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
5068  {SQRTF_OPERATOR_NAME, 1, real_to_real_type, typing_function_real_to_real, 0},
5069  {SQRTL_OPERATOR_NAME, 1, longdouble_to_longdouble_type, typing_function_longdouble_to_longdouble, 0},
5070  {ERF_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
5071  {ERFF_OPERATOR_NAME, 1, real_to_real_type, typing_function_real_to_real, 0},
5072  {ERFL_OPERATOR_NAME, 1, longdouble_to_longdouble_type, typing_function_longdouble_to_longdouble, 0},
5073  {ERFC_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
5074  {ERFCF_OPERATOR_NAME, 1, real_to_real_type, typing_function_real_to_real, 0},
5075  {ERFCL_OPERATOR_NAME, 1, longdouble_to_longdouble_type, typing_function_longdouble_to_longdouble, 0},
5076  {GAMMA_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0}, /* GNU C Library */
5077  {LGAMMA_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
5078  {LGAMMAF_OPERATOR_NAME, 1, real_to_real_type, typing_function_real_to_real, 0},
5079  {LGAMMAL_OPERATOR_NAME, 1, longdouble_to_longdouble_type, typing_function_longdouble_to_longdouble, 0},
5080  {TGAMMA_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
5081  {TGAMMAF_OPERATOR_NAME, 1, real_to_real_type, typing_function_real_to_real, 0},
5082  {CEIL_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
5083  {CEILF_OPERATOR_NAME, 1, real_to_real_type, typing_function_real_to_real, 0},
5084  {CEILL_OPERATOR_NAME, 1, longdouble_to_longdouble_type, typing_function_longdouble_to_longdouble, 0},
5085  {FLOOR_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
5086  {FLOORF_OPERATOR_NAME, 1, real_to_real_type, typing_function_real_to_real, 0},
5087  {FLOORL_OPERATOR_NAME, 1, longdouble_to_longdouble_type, typing_function_longdouble_to_longdouble, 0},
5088  {NEARBYINT_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
5089  {NEARBYINTF_OPERATOR_NAME, 1, real_to_real_type, typing_function_real_to_real, 0},
5090  {NEARBYINTL_OPERATOR_NAME, 1, longdouble_to_longdouble_type, typing_function_longdouble_to_longdouble, 0},
5091  {RINT_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
5092  {RINTF_OPERATOR_NAME, 1, real_to_real_type, typing_function_real_to_real, 0},
5093  {RINTL_OPERATOR_NAME, 1, longdouble_to_longdouble_type, typing_function_longdouble_to_longdouble, 0},
5094  {LRINT_OPERATOR_NAME, 1, double_to_longinteger_type, typing_function_double_to_longint, 0},
5095  {LRINTF_OPERATOR_NAME, 1, real_to_longinteger_type, typing_function_real_to_longint, 0},
5096  {LRINTL_OPERATOR_NAME, 1, longdouble_to_longinteger_type, typing_function_longdouble_to_longint, 0},
5097  {LLRINT_OPERATOR_NAME, 1, double_to_longlonginteger_type, typing_function_double_to_longlongint, 0},
5098  {LLRINTF_OPERATOR_NAME, 1, real_to_longlonginteger_type, typing_function_real_to_longlongint, 0},
5099  {LLRINTL_OPERATOR_NAME, 1, longdouble_to_longlonginteger_type, typing_function_longdouble_to_longlongint, 0},
5100  {ROUND_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
5101  {ROUNDF_OPERATOR_NAME, 1, real_to_real_type, typing_function_real_to_real, 0},
5102  {ROUNDL_OPERATOR_NAME, 1, longdouble_to_longdouble_type, typing_function_longdouble_to_longdouble, 0},
5103  {LROUND_OPERATOR_NAME, 1, double_to_longinteger_type, typing_function_double_to_longint, 0},
5104  {LROUNDF_OPERATOR_NAME, 1, real_to_longinteger_type, typing_function_real_to_longint, 0},
5105  {LROUNDL_OPERATOR_NAME, 1, longdouble_to_longinteger_type, typing_function_longdouble_to_longint, 0},
5106  {LLROUND_OPERATOR_NAME, 1, double_to_longlonginteger_type, typing_function_double_to_longlongint, 0},
5107  {LLROUNDF_OPERATOR_NAME, 1, real_to_longlonginteger_type, typing_function_real_to_longlongint, 0},
5108  {LLROUNDL_OPERATOR_NAME, 1, longdouble_to_longlonginteger_type, typing_function_longdouble_to_longlongint, 0},
5109  {TRUNC_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
5110  {TRUNCF_OPERATOR_NAME, 1, real_to_real_type, typing_function_real_to_real, 0},
5111  {TRUNCL_OPERATOR_NAME, 1, longdouble_to_longdouble_type, typing_function_longdouble_to_longdouble, 0},
5112  {FMOD_OPERATOR_NAME, 2, double_to_double_type, typing_function_double_to_double, 0},
5113  {FMODF_OPERATOR_NAME, 2, real_to_real_type, typing_function_real_to_real, 0},
5114  {FMODL_OPERATOR_NAME, 2, longdouble_to_longdouble_type, typing_function_longdouble_to_longdouble, 0},
5115  {REMAINDER_OPERATOR_NAME, 2, double_to_double_type, typing_function_double_to_double, 0},
5116  {REMAINDERF_OPERATOR_NAME, 2, real_to_real_type, typing_function_real_to_real, 0},
5117  {REMAINDERL_OPERATOR_NAME, 1, longdouble_to_longdouble_type, typing_function_longdouble_to_longdouble, 0},
5118  {COPYSIGN_OPERATOR_NAME, 2, double_to_double_type, typing_function_double_to_double, 0},
5119  {COPYSIGNF_OPERATOR_NAME, 2, real_to_real_type, typing_function_real_to_real, 0},
5120  {COPYSIGNL_OPERATOR_NAME, 2, longdouble_to_longdouble_type, typing_function_longdouble_to_longdouble, 0},
5121  {NAN_OPERATOR_NAME, 1, char_pointer_to_double_type, 0, 0},
5122  {NANF_OPERATOR_NAME, 1, default_intrinsic_type, 0, 0},
5123  {NANL_OPERATOR_NAME, 1, default_intrinsic_type, 0, 0},
5124  {NEXTAFTER_OPERATOR_NAME, 2, double_to_double_type, typing_function_double_to_double, 0},
5125  {NEXTAFTERF_OPERATOR_NAME, 2, real_to_real_type, typing_function_real_to_real, 0},
5126  {NEXTAFTERL_OPERATOR_NAME, 2, longdouble_to_longdouble_type, typing_function_longdouble_to_longdouble, 0},
5127  {NEXTTOWARD_OPERATOR_NAME, 2, overloaded_to_double_type,0, 0},
5128  {NEXTTOWARDF_OPERATOR_NAME, 2, overloaded_to_real_type, 0, 0},
5129  {NEXTTOWARDL_OPERATOR_NAME, 2, longdouble_to_longdouble_type, typing_function_longdouble_to_longdouble, 0},
5130  {FDIM_OPERATOR_NAME, 2, double_to_double_type, typing_function_double_to_double, 0},
5131  {FDIMF_OPERATOR_NAME, 2, real_to_real_type, typing_function_real_to_real, 0},
5132  {FDIML_OPERATOR_NAME, 2, longdouble_to_longdouble_type, typing_function_longdouble_to_longdouble, 0},
5133  {FMAX_OPERATOR_NAME, 2, double_to_double_type, typing_function_double_to_double, 0},
5134  {FMAXF_OPERATOR_NAME, 2, real_to_real_type, typing_function_real_to_real, 0},
5135  {FMAXL_OPERATOR_NAME, 2, longdouble_to_longdouble_type, typing_function_longdouble_to_longdouble, 0},
5136  {FMIN_OPERATOR_NAME, 2, double_to_double_type, typing_function_double_to_double, 0},
5137  {FMINF_OPERATOR_NAME, 2, real_to_real_type, typing_function_real_to_real, 0},
5138  {FMINL_OPERATOR_NAME, 2, longdouble_to_longdouble_type, typing_function_longdouble_to_longdouble, 0},
5139  {FMA_OPERATOR_NAME, 3, double_to_double_type, typing_function_double_to_double, 0},
5140  {FMAF_OPERATOR_NAME, 3, real_to_real_type, typing_function_real_to_real, 0},
5141  {FMAL_OPERATOR_NAME, 3, longdouble_to_longdouble_type, typing_function_longdouble_to_longdouble, 0},
5142  {ISGREATER_OPERATOR_NAME, 2, double_to_integer_type, typing_function_double_to_int, 0},
5143  {ISGREATEREQUAL_OPERATOR_NAME, 2, double_to_integer_type, typing_function_double_to_int, 0},
5144  {ISLESS_OPERATOR_NAME, 2, double_to_integer_type, typing_function_double_to_int, 0},
5145  {ISLESSEQUAL_OPERATOR_NAME, 2, double_to_integer_type, typing_function_double_to_int, 0},
5146  {ISLESSGREATER_OPERATOR_NAME, 2, double_to_integer_type, typing_function_double_to_int, 0},
5147  {ISUNORDERED_OPERATOR_NAME, 2, double_to_integer_type, typing_function_double_to_int, 0},
5148  /* End math.h */
5149 
5150  {J0_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
5151  {J1_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
5152  {JN_OPERATOR_NAME, 2, overloaded_to_double_type, 0, 0},
5153 
5154  {Y0_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
5155  {Y1_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
5156  {YN_OPERATOR_NAME, 2, overloaded_to_double_type, 0, 0},
5157 
5158  {MATHERR_OPERATOR_NAME, 1, overloaded_to_integer_type, 0, 0},
5159  {SIGNIFICAND_OPERATOR_NAME, 1, double_to_double_type, typing_function_double_to_double, 0},
5160 
5161  {SIGFPE_OPERATOR_NAME, 2, default_intrinsic_type, 0, 0},
5162  {SINGLE_TO_DECIMAL_OPERATOR_NAME, 4, overloaded_to_void_type, 0, 0},
5163  {DOUBLE_TO_DECIMAL_OPERATOR_NAME, 4, overloaded_to_void_type, 0, 0},
5164  {EXTENDED_TO_DECIMAL_OPERATOR_NAME, 4, overloaded_to_void_type, 0, 0},
5165  {QUADRUPLE_TO_DECIMAL_OPERATOR_NAME, 4, overloaded_to_void_type, 0, 0},
5166  {DECIMAL_TO_SINGLE_OPERATOR_NAME, 4, overloaded_to_void_type, 0, 0},
5167  {DECIMAL_TO_DOUBLE_OPERATOR_NAME, 4, overloaded_to_void_type, 0, 0},
5168  {DECIMAL_TO_EXTENDED_OPERATOR_NAME, 4, overloaded_to_void_type, 0, 0},
5169  {DECIMAL_TO_QUADRUPLE_OPERATOR_NAME, 4, overloaded_to_void_type, 0, 0},
5170  {STRING_TO_DECIMAL_OPERATOR_NAME, 6, overloaded_to_void_type, 0, 0},
5171  {FUNC_TO_DECIMAL_OPERATOR_NAME, 9, overloaded_to_void_type, 0, 0},
5172  {FILE_TO_DECIMAL_OPERATOR_NAME, 8, overloaded_to_void_type, 0, 0},
5173  {SECONVERT_OPERATOR_NAME, 5, default_intrinsic_type, 0, 0},
5174  {SFCONVERT_OPERATOR_NAME, 5, default_intrinsic_type, 0, 0},
5175  {SGCONVERT_OPERATOR_NAME, 4, default_intrinsic_type, 0, 0},
5176  {ECONVERT_OPERATOR_NAME, 5, default_intrinsic_type, 0, 0},
5177  {FCONVERT_OPERATOR_NAME, 5, default_intrinsic_type, 0, 0},
5178  {GCONVERT_OPERATOR_NAME, 4, default_intrinsic_type, 0, 0},
5179  {QECONVERT_OPERATOR_NAME, 5, default_intrinsic_type, 0, 0},
5180  {QFCONVERT_OPERATOR_NAME, 5, default_intrinsic_type, 0, 0},
5181  {QGCONVERT_OPERATOR_NAME, 4, default_intrinsic_type, 0, 0},
5182 
5183 
5184  /* same name in stdlib
5185  {"ecvt", 4, default_intrinsic_type, 0, 0},
5186  {"fcvt", 4, default_intrinsic_type, 0, 0},
5187  {"gcvt", 3, default_intrinsic_type, 0, 0},
5188  {"strtod", 2, overloaded_to_double_type, 0, 0}, */
5189 
5190  /*#include <setjmp.h>*/
5191 
5192  {"setjmp", 1, overloaded_to_integer_type, 0, 0},
5193  {"__setjmp", 1, overloaded_to_integer_type, 0, 0},
5194  {"longjmp", 2, overloaded_to_void_type, 0, 0},
5195  {"__longjmp", 2, overloaded_to_void_type, 0, 0},
5196  {"sigsetjmp", 2, overloaded_to_integer_type, 0, 0},
5197  {"siglongjmp", 2, overloaded_to_void_type, 0, 0},
5198 
5199 
5200  /*#include <signal.h>*/
5201  {SIGNAL_OPERATOR_NAME, 2, default_intrinsic_type, 0, 0},
5202  {RAISE_FUNCTION_NAME, 1, integer_to_integer_type, typing_function_int_to_int, 0},
5203 
5204  /*#include <stdarg.h>*/
5205  /*#include <stdbool.h>*/
5206  /*#include <stddef.h>*/
5207  /*#include <stdint.h>*/
5208  /*#include <stdio.h>*/
5209 
5210  {REMOVE_FUNCTION_NAME, 1, overloaded_to_integer_type, 0, 0},
5211  {RENAME_FUNCTION_NAME, 2, overloaded_to_integer_type, 0, 0},
5212  {TMPFILE_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5213  {TMPNAM_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5214  {FCLOSE_FUNCTION_NAME, 1, overloaded_to_integer_type, 0, 0},
5215  {FFLUSH_FUNCTION_NAME, 1, overloaded_to_integer_type, 0, 0},
5216  {FOPEN_FUNCTION_NAME, 2, default_intrinsic_type, 0, 0},
5217  {FREOPEN_FUNCTION_NAME, 3, default_intrinsic_type, 0, 0},
5218  {SETBUF_FUNCTION_NAME, 2, default_intrinsic_type, 0, 0},
5219  {SETVBUF_FUNCTION_NAME, 4, overloaded_to_integer_type, 0, 0},
5220  {FPRINTF_FUNCTION_NAME, (INT_MAX), overloaded_to_integer_type, 0, 0},
5221  {FSCANF_FUNCTION_NAME, (INT_MAX), overloaded_to_integer_type, 0, 0},
5222  {ISOC99_FSCANF_FUNCTION_NAME, (INT_MAX), overloaded_to_integer_type, 0, 0},
5223  {PRINTF_FUNCTION_NAME, (INT_MAX), overloaded_to_integer_type, 0, 0},
5224  {SCANF_FUNCTION_NAME, (INT_MAX), overloaded_to_integer_type, 0, 0},
5225  {ISOC99_SCANF_FUNCTION_NAME, (INT_MAX), overloaded_to_integer_type, 0, 0},
5226  {SPRINTF_FUNCTION_NAME, (INT_MAX), overloaded_to_integer_type, 0, 0},
5227  {SSCANF_FUNCTION_NAME, (INT_MAX), overloaded_to_integer_type, 0, 0},
5228  {ISOC99_SSCANF_FUNCTION_NAME, (INT_MAX), overloaded_to_integer_type, 0, 0},
5229  {VSCANF_FUNCTION_NAME, (INT_MAX), overloaded_to_integer_type, 0, 0},
5230  {ISOC99_VSCANF_FUNCTION_NAME, (INT_MAX), overloaded_to_integer_type, 0, 0},
5231  {VSSCANF_FUNCTION_NAME, (INT_MAX), overloaded_to_integer_type, 0, 0},
5232  {ISOC99_VSSCANF_FUNCTION_NAME, (INT_MAX), overloaded_to_integer_type, 0, 0},
5233  {VFSCANF_FUNCTION_NAME, (INT_MAX), overloaded_to_integer_type, 0, 0},
5234  {ISOC99_VFSCANF_FUNCTION_NAME, (INT_MAX), overloaded_to_integer_type, 0, 0},
5235  {VFPRINTF_FUNCTION_NAME, 3, overloaded_to_integer_type, 0, 0},
5236  {VPRINTF_FUNCTION_NAME, 2, overloaded_to_integer_type, 0, 0},
5237  {VSPRINTF_FUNCTION_NAME, 3, overloaded_to_integer_type, 0, 0},
5238  {FGETC_FUNCTION_NAME, 1, overloaded_to_integer_type, 0, 0},
5239  {FGETS_FUNCTION_NAME, 3, default_intrinsic_type, 0, 0},
5240  {FPUTC_FUNCTION_NAME, 2, overloaded_to_integer_type, 0, 0},
5241  {FPUTS_FUNCTION_NAME, 2, overloaded_to_integer_type, 0, 0},
5242  {GETC_FUNCTION_NAME, 1, overloaded_to_integer_type, 0, 0},
5243  {_IO_GETC_FUNCTION_NAME, 1, overloaded_to_integer_type, 0, 0},
5244  {PUTC_FUNCTION_NAME, 2, overloaded_to_integer_type, 0, 0},
5245  {_IO_PUTC_FUNCTION_NAME, 2, overloaded_to_integer_type, 0, 0},
5246  {GETCHAR_FUNCTION_NAME, 1, void_to_integer_type, 0, 0},
5247  {PUTCHAR_FUNCTION_NAME, 1, integer_to_integer_type, 0, 0},
5248  {GETS_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5249  {PUTS_FUNCTION_NAME, 1, overloaded_to_integer_type, 0, 0},
5250  {UNGETC_FUNCTION_NAME, 2, overloaded_to_integer_type, 0, 0},
5251  {FREAD_FUNCTION_NAME, 4, default_intrinsic_type, 0, 0},
5252  {FWRITE_FUNCTION_NAME, 4, default_intrinsic_type, 0, 0},
5253  {FGETPOS_FUNCTION_NAME, 2, overloaded_to_integer_type, 0, 0},
5254  {FSEEK_FUNCTION_NAME, 3, overloaded_to_integer_type, 0, 0},
5255  {FSETPOS_FUNCTION_NAME, 2, overloaded_to_integer_type, 0, 0},
5256  {FTELL_FUNCTION_NAME,1, default_intrinsic_type, 0, 0},
5257  {C_REWIND_FUNCTION_NAME,1, default_intrinsic_type, 0, 0},
5258  {CLEARERR_FUNCTION_NAME,1, default_intrinsic_type, 0, 0},
5259  {FEOF_FUNCTION_NAME, 1, overloaded_to_integer_type, 0, 0},
5260  {FERROR_FUNCTION_NAME, 1, overloaded_to_integer_type, 0, 0},
5261  {PERROR_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5262  {__FILBUF_FUNCTION_NAME, 1, overloaded_to_integer_type, 0, 0},
5263  {__FILSBUF_FUNCTION_NAME, 2, overloaded_to_integer_type, 0, 0},
5264  {SETBUFFER_FUNCTION_NAME, 3, overloaded_to_void_type, 0, 0},
5265  {SETLINEBUF_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5266  {SNPRINTF_FUNCTION_NAME, (INT_MAX), overloaded_to_integer_type, 0, 0},
5267  {VSNPRINTF_FUNCTION_NAME, 4, overloaded_to_integer_type, 0, 0},
5268  {FDOPEN_FUNCTION_NAME, 2, default_intrinsic_type, 0, 0},
5269  {CTERMID_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5270  {FILENO_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5271  {POPEN_FUNCTION_NAME, 2, default_intrinsic_type, 0, 0},
5272  {CUSERID_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5273  {TEMPNAM_FUNCTION_NAME, 2,default_intrinsic_type, 0, 0},
5274  /* same name in stdlib
5275  {"getopt", 3, overloaded_to_integer_type, 0, 0},
5276  {"getsubopt", 3, default_intrinsic_type, 0, 0},*/
5277  {GETW_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5278  {PUTW_FUNCTION_NAME, 2, overloaded_to_integer_type, 0, 0},
5279  {PCLOSE_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5280  {FSEEKO_FUNCTION_NAME, 3, overloaded_to_integer_type, 0, 0},
5281  {FTELLO_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5282  {FOPEN64_FUNCTION_NAME, 2, default_intrinsic_type, 0, 0},
5283  {FREOPEN64_FUNCTION_NAME, 3, default_intrinsic_type, 0, 0},
5284  {TMPFILE64_FUNCTION_NAME, 1,default_intrinsic_type, 0, 0},
5285  {FGETPOS64_FUNCTION_NAME, 2, default_intrinsic_type, 0, 0},
5286  {FSETPOS64_FUNCTION_NAME, 2, default_intrinsic_type, 0, 0},
5287  {FSEEKO64_FUNCTION_NAME, 3, overloaded_to_integer_type, 0, 0},
5288  {FTELLO64_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5289 
5290  /* C IO system functions in man -S 2. The typing could be refined. See unistd.h */
5291 
5292  {C_OPEN_FUNCTION_NAME, (INT_MAX), overloaded_to_integer_type, 0, 0}, /* 2 or 3 arguments */
5293  {CREAT_FUNCTION_NAME, 2, overloaded_to_integer_type, 0, 0},
5294  {C_CLOSE_FUNCTION_NAME, 1, integer_to_integer_type, 0, 0},
5295  {C_WRITE_FUNCTION_NAME, 2, default_intrinsic_type, 0, 0}, /* returns ssize_t */
5296  {C_READ_FUNCTION_NAME, 2, default_intrinsic_type, 0, 0},
5297  {USLEEP_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5298  {LINK_FUNCTION_NAME, 2, overloaded_to_integer_type, 0, 0},
5299  {SYMLINK_FUNCTION_NAME, 2, overloaded_to_integer_type, 0, 0},
5300  {UNLINK_FUNCTION_NAME, 1, overloaded_to_integer_type, 0, 0},
5301 
5302  /* {FCNTL_FUNCTION_NAME, (INT_MAX), overloaded_to_integer_type, 0, 0},*/ /* 2 or 3 arguments of various types*/ /* located with fcntl.h */
5303  {FSYNC_FUNCTION_NAME, 2, integer_to_integer_type, 0, 0},
5304  {FDATASYNC_FUNCTION_NAME, 2, integer_to_integer_type, 0, 0},
5305  {IOCTL_FUNCTION_NAME, (INT_MAX), overloaded_to_integer_type, 0, 0},
5306  {SELECT_FUNCTION_NAME, 5, overloaded_to_integer_type, 0, 0},
5307  {PSELECT_FUNCTION_NAME, 6, overloaded_to_integer_type, 0, 0},
5308  {STAT_FUNCTION_NAME, 2, overloaded_to_integer_type, 0, 0},
5309  {FSTAT_FUNCTION_NAME, 2, overloaded_to_integer_type, 0, 0},
5310  {LSTAT_FUNCTION_NAME, 2, overloaded_to_integer_type, 0, 0},
5311  /*#include <stdlib.h>*/
5312 
5313  {ATOF_FUNCTION_NAME, 1, char_pointer_to_double_type, 0, 0},
5314  {ATOI_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5315  {ATOL_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5316  {ATOLL_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5317  {STRTOD_FUNCTION_NAME, 2, default_intrinsic_type, 0, 0},
5318  {STRTOF_FUNCTION_NAME, 2, default_intrinsic_type, 0, 0},
5319  {STRTOLD_FUNCTION_NAME, 2, default_intrinsic_type, 0, 0},
5320  {STRTOL_FUNCTION_NAME, 3, default_intrinsic_type, 0, 0},
5321  {STRTOLL_FUNCTION_NAME, 3, default_intrinsic_type, 0, 0},
5322  {STRTOUL_FUNCTION_NAME, 3, default_intrinsic_type, 0, 0},
5323  {STRTOULL_FUNCTION_NAME, 3, default_intrinsic_type, 0, 0},
5324  {RAND_FUNCTION_NAME, 1, void_to_integer_type, 0, 0},
5325  {SRAND_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5326  {CALLOC_FUNCTION_NAME, 2, default_intrinsic_type, 0, 0},
5327  {FREE_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5328  {MALLOC_FUNCTION_NAME, 1, unsigned_integer_to_void_pointer_type, 0, 0},
5329  {REALLOC_FUNCTION_NAME, 2, default_intrinsic_type, 0, 0},
5330  {ALLOCA_FUNCTION_NAME, 1, unsigned_integer_to_void_pointer_type, 0, 0},
5331  {ABORT_FUNCTION_NAME, 1, void_to_void_type, 0, 0},
5332  {ATEXIT_FUNCTION_NAME, 1, void_to_void_to_int_pointer_type, 0, 0},
5333  {EXIT_FUNCTION_NAME, 1, integer_to_void_type, 0, 0},
5334  {_EXIT_FUNCTION_NAME, 1, integer_to_void_type, 0, 0},
5335  {GETENV_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5336  {SYSTEM_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5337  {BSEARCH_FUNCTION_NAME, 5, default_intrinsic_type, 0, 0},
5338  {QSORT_FUNCTION_NAME, 4, default_intrinsic_type, 0, 0},
5339  {C_ABS_FUNCTION_NAME, 1, integer_to_integer_type, typing_function_int_to_int, 0},
5340  {LABS_FUNCTION_NAME, 1, longinteger_to_longinteger_type, typing_function_longint_to_longint, 0},
5341  {LLABS_FUNCTION_NAME, 1, longlonginteger_to_longlonginteger_type, typing_function_longlongint_to_longlongint, 0},
5342  {DIV_FUNCTION_NAME, 2, integer_to_overloaded_type, 0, 0},
5343  {LDIV_FUNCTION_NAME, 2, longinteger_to_overloaded_type, 0, 0},
5344  {LLDIV_FUNCTION_NAME, 2, longlonginteger_to_overloaded_type, 0, 0},
5345  {MBLEN_FUNCTION_NAME, 2, overloaded_to_integer_type, 0, 0},
5346  {MBTOWC_FUNCTION_NAME, 3, overloaded_to_integer_type, 0, 0},
5347  {WCTOMB_FUNCTION_NAME, 2, overloaded_to_integer_type, 0, 0},
5348  {MBSTOWCS_FUNCTION_NAME, 3, default_intrinsic_type, 0, 0},
5349  {WCSTOMBS_FUNCTION_NAME, 3, default_intrinsic_type, 0, 0},
5350 
5351 
5352  //to check
5353  {POSIX_MEMALIGN_FUNCTION_NAME, 3, default_intrinsic_type, 0, 0},
5354  {ATOQ_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5355  {EXITHANDLE_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5356  {DRAND48_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5357  {ERAND48_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5358  {JRAND48_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5359  {LCONG48_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5360  {LRAND48_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5361  {MRAND48_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5362  {NRAND48_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5363  {SEED48_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5364  {SRAND48_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5365  {PUTENV_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5366  {SETKEY_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5367  {SWAB_FUNCTION_NAME, 3, default_intrinsic_type, 0, 0},
5368  {MKSTEMP_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5369  {MKSTEMP64_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5370  {A614_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5371  {ECVT_FUNCTION_NAME, 4, default_intrinsic_type, 0, 0},
5372  {FCVT_FUNCTION_NAME, 4, default_intrinsic_type, 0, 0},
5373  {GCVT_FUNCTION_NAME, 3, default_intrinsic_type, 0, 0},
5374  {GETSUBOPT_FUNCTION_NAME, 3, default_intrinsic_type, 0, 0},
5375  {GRANTPT_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5376  {INITSTATE_FUNCTION_NAME, 3, default_intrinsic_type, 0, 0},
5377  {C_164A_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5378  {MKTEMP_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5379  {PTSNAME_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5380  {RANDOM_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0}, /* void -> long int */
5381  {REALPATH_FUNCTION_NAME, 2, default_intrinsic_type, 0, 0},
5382  {SETSTATE_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5383  {SRANDOM_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5384  {TTYSLOT_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5385  {UNLOCKPT_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5386  {VALLOC_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5387  {DUP2_FUNCTION_NAME, 2, default_intrinsic_type, 0, 0},
5388  {QECVT_FUNCTION_NAME, 4, default_intrinsic_type, 0, 0},
5389  {QFCVT_FUNCTION_NAME, 4, default_intrinsic_type, 0, 0},
5390  {QGCVT_FUNCTION_NAME, 3, default_intrinsic_type, 0, 0},
5391  {GETCWD_FUNCTION_NAME, 2, default_intrinsic_type, 0, 0},
5392  {GETEXECNAME_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5393  {GETLOGIN_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5394  {GETOPT_FUNCTION_NAME, 3, default_intrinsic_type, 0, 0},
5395  {GETOPT_LONG_FUNCTION_NAME, 5, default_intrinsic_type, 0, 0},
5396  {GETOPT_LONG_ONLY_FUNCTION_NAME, 5, default_intrinsic_type, 0, 0},
5397  {GETPASS_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5398  {GETPASSPHRASE_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5399  {GETPW_FUNCTION_NAME, 2, default_intrinsic_type, 0, 0},
5400  {ISATTY_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5401  {MEMALIGN_FUNCTION_NAME, 2, default_intrinsic_type, 0, 0},
5402  {TTYNAME_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5403  {LLTOSTR_FUNCTION_NAME, 2, default_intrinsic_type, 0, 0},
5404  {ULLTOSTR_FUNCTION_NAME, 2, default_intrinsic_type, 0, 0},
5405 
5406  /*#include <string.h>*/
5407 
5408  {MEMCPY_FUNCTION_NAME,3,default_intrinsic_type, 0, 0},
5409  {MEMMOVE_FUNCTION_NAME,3,default_intrinsic_type, 0, 0},
5410  {STRCPY_FUNCTION_NAME,2,default_intrinsic_type, 0, 0},
5411  {STRDUP_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5412  {STRNCPY_FUNCTION_NAME,3,default_intrinsic_type, 0, 0},
5413  {STRCAT_FUNCTION_NAME,2,default_intrinsic_type, 0, 0},
5414  {STRNCAT_FUNCTION_NAME,3,default_intrinsic_type, 0, 0},
5415  {MEMCMP_FUNCTION_NAME,3,overloaded_to_integer_type, 0, 0},
5416  {STRCMP_FUNCTION_NAME,2,overloaded_to_integer_type, 0, 0},
5417  {STRCOLL_FUNCTION_NAME,2,overloaded_to_integer_type, 0, 0},
5418  {STRNCMP_FUNCTION_NAME,3,overloaded_to_integer_type, 0, 0},
5419  {STRXFRM_FUNCTION_NAME,3,overloaded_to_integer_type, 0, 0},
5420  {MEMCHR_FUNCTION_NAME,3,default_intrinsic_type, 0, 0},
5421  {STRCHR_FUNCTION_NAME,2,default_intrinsic_type, 0, 0},
5422  {STRCSPN_FUNCTION_NAME,2,default_intrinsic_type, 0, 0},
5423  {STRPBRK_FUNCTION_NAME,2,default_intrinsic_type, 0, 0},
5424  {STRRCHR_FUNCTION_NAME,2,default_intrinsic_type, 0, 0},
5425  {STRSPN_FUNCTION_NAME,2,default_intrinsic_type, 0, 0},
5426  {STRSTR_FUNCTION_NAME,2,default_intrinsic_type, 0, 0},
5427  {STRTOK_FUNCTION_NAME,2,default_intrinsic_type, 0, 0},
5428  {MEMSET_FUNCTION_NAME,3,default_intrinsic_type, 0, 0},
5429  {STRERROR_FUNCTION_NAME,1,integer_to_overloaded_type, 0, 0},
5430  {STRERROR_R_FUNCTION_NAME,3,default_intrinsic_type, 0, 0},
5431  {STRLEN_FUNCTION_NAME,1,default_intrinsic_type, 0, 0},
5432 
5433  /*#include <tgmath.h>*/
5434  /*#include <time.h>*/
5435  {TIME_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5436  {LOCALTIME_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5437  {DIFFTIME_FUNCTION_NAME, 2, default_intrinsic_type, 0, 0},
5438  {NANOSLEEP_FUNCTION_NAME, 2, default_intrinsic_type, 0, 0},
5439  {GETTIMEOFDAY_FUNCTION_NAME, 2, overloaded_to_void_type, 0, 0}, // BSD-GNU
5440  {CLOCK_GETTIME_FUNCTION_NAME, 2, overloaded_to_integer_type, 0, 0}, // BSD-GNU
5441  {CLOCK_FUNCTION_NAME, 0, void_to_overloaded_type, 0, 0},
5442  {SECOND_FUNCTION_NAME, 0, void_to_overloaded_type, 0, 0}, //GFORTRAN
5443 
5444  /*#include <wchar.h>*/
5445  { FWPRINTF_FUNCTION_NAME, (INT_MAX), overloaded_to_integer_type, 0, 0},
5446  { FWSCANF_FUNCTION_NAME, (INT_MAX), overloaded_to_integer_type, 0, 0},
5447  { SWPRINTF_FUNCTION_NAME, (INT_MAX), overloaded_to_integer_type, 0, 0},
5448  { SWSCANF_FUNCTION_NAME, (INT_MAX), overloaded_to_integer_type, 0, 0},
5449  { VFWPRINTF_FUNCTION_NAME, 3, overloaded_to_integer_type, 0, 0},
5450  { VFWSCANF_FUNCTION_NAME, 3, overloaded_to_integer_type, 0, 0},
5451  { VSWPRINTF_FUNCTION_NAME, 4, overloaded_to_integer_type, 0, 0},
5452  { VSWSCANF_FUNCTION_NAME, 3, overloaded_to_integer_type, 0, 0},
5453  { VWPRINTF_FUNCTION_NAME, 2, overloaded_to_integer_type, 0, 0},
5454  { VWSCANF_FUNCTION_NAME, 2, overloaded_to_integer_type, 0, 0},
5455  { WPRINTF_FUNCTION_NAME, (INT_MAX), overloaded_to_integer_type, 0, 0},
5456  { WSCANF_FUNCTION_NAME, (INT_MAX), overloaded_to_integer_type, 0, 0},
5457  { FGETWC_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5458  { FGETWS_FUNCTION_NAME, 3, default_intrinsic_type, 0, 0},
5459  { FPUTWC_FUNCTION_NAME, 2, default_intrinsic_type, 0, 0},
5460  { FPUTWS_FUNCTION_NAME, 2, default_intrinsic_type, 0, 0},
5461  { FWIDE_FUNCTION_NAME, 2, overloaded_to_integer_type, 0, 0},
5462  { GETWC_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5463  { GETWCHAR_FUNCTION_NAME, 0, default_intrinsic_type, 0, 0},
5464  { PUTWC_FUNCTION_NAME, 2, default_intrinsic_type, 0, 0},
5465  { PUTWCHAR_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5466  { UNGETWC_FUNCTION_NAME, 2, default_intrinsic_type, 0, 0},
5467  { WCSTOD_FUNCTION_NAME, 2, overloaded_to_double_type, 0, 0},
5468  { WCSTOF_FUNCTION_NAME, 2, overloaded_to_real_type, 0, 0},
5469  { WCSTOLD_FUNCTION_NAME, 2, default_intrinsic_type, 0, 0},
5470  { WCSTOL_FUNCTION_NAME, 3, default_intrinsic_type, 0, 0},
5471  { WCSTOLL_FUNCTION_NAME, 3, default_intrinsic_type, 0, 0},
5472  { WCSTOUL_FUNCTION_NAME, 3, default_intrinsic_type, 0, 0},
5473  { WCSTOULL_FUNCTION_NAME, 3, default_intrinsic_type, 0, 0},
5474  { WCSCPY_FUNCTION_NAME, 2, default_intrinsic_type, 0, 0},
5475  { WCSNCPY_FUNCTION_NAME, 3, default_intrinsic_type, 0, 0},
5476  { WMEMCPY_FUNCTION_NAME, 3, default_intrinsic_type, 0, 0},
5477  { WMEMMOVE_FUNCTION_NAME, 3, default_intrinsic_type, 0, 0},
5478  { WCSCAT_FUNCTION_NAME, 2, default_intrinsic_type, 0, 0},
5479  { WCSNCAT_FUNCTION_NAME, 3, default_intrinsic_type, 0, 0},
5480  { WCSCMP_FUNCTION_NAME, 2, overloaded_to_integer_type, 0, 0},
5481  { WCSCOLL_FUNCTION_NAME, 2, overloaded_to_integer_type, 0, 0},
5482  { WCSNCMP_FUNCTION_NAME, 3, overloaded_to_integer_type, 0, 0},
5483  { WCSXFRM_FUNCTION_NAME, 3, default_intrinsic_type, 0, 0},
5484  { WMEMCMP_FUNCTION_NAME, 3, overloaded_to_integer_type, 0, 0},
5485  { WCSCHR_FUNCTION_NAME, 2, default_intrinsic_type, 0, 0},
5486  { WCSCSPN_FUNCTION_NAME, 2, default_intrinsic_type, 0, 0},
5487  { WCSPBRK_FUNCTION_NAME, 2, default_intrinsic_type, 0, 0},
5488  { WCSRCHR_FUNCTION_NAME, 2, default_intrinsic_type, 0, 0},
5489  { WCSSPN_FUNCTION_NAME, 2, default_intrinsic_type, 0, 0},
5490  { WCSSTR_FUNCTION_NAME, 2, default_intrinsic_type, 0, 0},
5491  { WCSTOK_FUNCTION_NAME, 3, default_intrinsic_type, 0, 0},
5492  { WMEMCHR_FUNCTION_NAME, 2, default_intrinsic_type, 0, 0},
5493  { WCSLEN_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5494  { WMEMSET_FUNCTION_NAME, 3, default_intrinsic_type, 0, 0},
5495  { WCSFTIME_FUNCTION_NAME, 4, default_intrinsic_type, 0, 0},
5496  { BTOWC_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5497  { WCTOB_FUNCTION_NAME, 1, overloaded_to_integer_type, 0, 0},
5498  { MBSINIT_FUNCTION_NAME, 1, overloaded_to_integer_type, 0, 0},
5499  { MBRLEN_FUNCTION_NAME, 3, default_intrinsic_type, 0, 0},
5500  { MBRTOWC_FUNCTION_NAME, 3, default_intrinsic_type, 0, 0},
5501  { WCRTOMB_FUNCTION_NAME, 3, default_intrinsic_type, 0, 0},
5502  { MBSRTOWCS_FUNCTION_NAME, 4, default_intrinsic_type, 0, 0},
5503  { WCSRTOMBS_FUNCTION_NAME, 4, default_intrinsic_type, 0, 0},
5504 
5505  /*#include <wctype.h>*/
5506 
5507  {ISWALNUM_OPERATOR_NAME, 1, overloaded_to_integer_type, 0, 0},
5508  {ISWALPHA_OPERATOR_NAME, 1, overloaded_to_integer_type, 0, 0},
5509  {ISWBLANK_OPERATOR_NAME, 1, overloaded_to_integer_type, 0, 0},
5510  {ISWCNTRL_OPERATOR_NAME, 1, overloaded_to_integer_type, 0, 0},
5511  {ISWDIGIT_OPERATOR_NAME, 1, overloaded_to_integer_type, 0, 0},
5512  {ISWGRAPH_OPERATOR_NAME, 1, overloaded_to_integer_type, 0, 0},
5513  {ISWLOWER_OPERATOR_NAME, 1, overloaded_to_integer_type, 0, 0},
5514  {ISWPRINT_OPERATOR_NAME, 1, overloaded_to_integer_type, 0, 0},
5515  {ISWPUNCT_OPERATOR_NAME, 1, overloaded_to_integer_type, 0, 0},
5516  {ISWSPACE_OPERATOR_NAME, 1, overloaded_to_integer_type, 0, 0},
5517  {ISWUPPER_OPERATOR_NAME, 1, overloaded_to_integer_type, 0, 0},
5518  {ISWXDIGIT_OPERATOR_NAME, 1, overloaded_to_integer_type, 0, 0},
5519  {ISWCTYPE_OPERATOR_NAME, 2, overloaded_to_integer_type, 0, 0},
5520  {WCTYPE_OPERATOR_NAME, 1, default_intrinsic_type, 0, 0},
5521  {TOWLOWER_OPERATOR_NAME, 1, default_intrinsic_type, 0, 0},
5522  {TOWUPPER_OPERATOR_NAME, 1, default_intrinsic_type, 0, 0},
5523  {TOWCTRANS_OPERATOR_NAME, 2, default_intrinsic_type, 0, 0},
5524  {WCTRANS_OPERATOR_NAME, 1, default_intrinsic_type, 0, 0},
5525 
5526  /* netdb.h */
5527  {__H_ERRNO_LOCATION_OPERATOR_NAME, 0, default_intrinsic_type, 0, 0},
5528 
5529 
5530  /* #include <fcntl.h>*/
5531 
5532  {FCNTL_FUNCTION_NAME, (INT_MAX), overloaded_to_integer_type, 0, 0},
5533  {DIRECTIO_FUNCTION_NAME, 2, integer_to_integer_type, 0, 0},
5534  {OPEN64_FUNCTION_NAME, (INT_MAX), overloaded_to_integer_type, 0, 0},
5535  {CREAT64_FUNCTION_NAME, 2, overloaded_to_integer_type, 0, 0},
5536 
5537  /* OMP */
5538  {OMP_IF_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5539  {OMP_OMP_FUNCTION_NAME, 0, default_intrinsic_type, 0, 0},
5540  {OMP_FOR_FUNCTION_NAME, 0, default_intrinsic_type, 0, 0},
5541  {OMP_PRIVATE_FUNCTION_NAME,(INT_MAX), default_intrinsic_type, 0, 0},
5542  {OMP_PARALLEL_FUNCTION_NAME, 0, default_intrinsic_type, 0, 0},
5543  {OMP_REDUCTION_FUNCTION_NAME,(INT_MAX), default_intrinsic_type, 0, 0},
5544 
5545  /* BSD <err.h> */
5546  {ERR_FUNCTION_NAME, (INT_MAX), overloaded_to_void_type, 0, 0},
5547  {ERRX_FUNCTION_NAME, (INT_MAX), overloaded_to_void_type, 0, 0},
5548  {WARN_FUNCTION_NAME, (INT_MAX), overloaded_to_void_type, 0, 0},
5549  {WARNX_FUNCTION_NAME, (INT_MAX), overloaded_to_void_type, 0, 0},
5550  {VERR_FUNCTION_NAME, 3, overloaded_to_void_type, 0, 0},
5551  {VERRX_FUNCTION_NAME, 3, overloaded_to_void_type, 0, 0},
5552  {VWARN_FUNCTION_NAME, 2, overloaded_to_void_type, 0, 0},
5553  {VWARNX_FUNCTION_NAME, 2, overloaded_to_void_type, 0, 0},
5554 
5555  /* F95 */
5556  {ALLOCATE_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5557  {DEALLOCATE_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5558  {ETIME_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5559  {DTIME_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5560  {CPU_TIME_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5561 
5562  /* F2003 */
5563  {C_LOC_FUNCTION_NAME, 1, default_intrinsic_type, 0, 0},
5564 
5565  /* PIPS run-time support for C code generation
5566  *
5567  * Source code located in validation/Hyperplane/run_time.src for the
5568  * time being.
5569  */
5570  {PIPS_C_MIN_OPERATOR_NAME, (INT_MAX), integer_to_integer_type,
5571  typing_function_int_to_int, 0},
5572  {PIPS_C_MAX_OPERATOR_NAME, (INT_MAX), integer_to_integer_type,
5573  typing_function_int_to_int, 0},
5574  {PIPS_C_DIV_OPERATOR_NAME, 2, integer_to_integer_type,
5575  typing_function_int_to_int, 0},
5576 
5577  /* assembly function */
5578  { ASM_FUNCTION_NAME, 1, overloaded_to_void_type , 0 , 0},
5579  // The 2 last arg don't know for what
5580 
5581  /* PIPS intrinsics to simulate various effects */
5582  {PIPS_MEMORY_BARRIER_OPERATOR_NAME, 0, void_to_void_type, 0, 0},
5583  {PIPS_IO_BARRIER_OPERATOR_NAME, 0, void_to_void_type, 0, 0},
5584  /*SPIRE*/
5585  {SEND_FUNCTION_NAME, (INT_MAX), overloaded_to_integer_type, 0, 0},
5586  {RECV_FUNCTION_NAME, (INT_MAX), overloaded_to_integer_type, 0, 0},
5587 
5588  /*MPI necessary calls*/
5589  //since C and Fortran MPI functions are not differentiate,
5590  // The Fortran version is consider for number of argument
5591  // (it has 1 more argument for the error handler when the C version return it)
5592  {MPI_INIT_FUNCTION_NAME, (3), overloaded_to_integer_type, 0, 0},
5593  {MPI_FINALIZE_FUNCTION_NAME, (1), overloaded_to_integer_type, 0, 0},
5594  {MPI_BARRIER_FUNCTION_NAME, (2), overloaded_to_integer_type, 0, 0},
5595  {MPI_COMM_SIZE_FUNCTION_NAME, (3), overloaded_to_integer_type, 0, 0},
5596  {MPI_COMM_RANK_FUNCTION_NAME, (3), overloaded_to_integer_type, 0, 0},
5597  {MPI_SEND_FUNCTION_NAME, (7), overloaded_to_integer_type, 0, 0},
5598  {MPI_SSEND_FUNCTION_NAME, (7), overloaded_to_integer_type, 0, 0},
5599  {MPI_RSEND_FUNCTION_NAME, (7), overloaded_to_integer_type, 0, 0},
5600  {MPI_BSEND_FUNCTION_NAME, (7), overloaded_to_integer_type, 0, 0},
5601  {MPI_ISEND_FUNCTION_NAME, (8), overloaded_to_integer_type, 0, 0},
5602  {MPI_ISSEND_FUNCTION_NAME, (8), overloaded_to_integer_type, 0, 0},
5603  {MPI_IRSEND_FUNCTION_NAME, (8), overloaded_to_integer_type, 0, 0},
5604  {MPI_IBSEND_FUNCTION_NAME, (8), overloaded_to_integer_type, 0, 0},
5605  {MPI_RECV_FUNCTION_NAME, (8), overloaded_to_integer_type, 0, 0},
5606  {MPI_IRECV_FUNCTION_NAME, (8), overloaded_to_integer_type, 0, 0},
5607  {MPI_SENDRECV_FUNCTION_NAME, (13), overloaded_to_integer_type, 0, 0},
5608 
5609  {NULL, 0, 0, 0, 0}
5610  };
5611  intrinsic_type_descriptor_mapping=hash_table_make(hash_string,sizeof(IntrinsicTypeDescriptorTable));
5612  for(IntrinsicDescriptor *p = &IntrinsicTypeDescriptorTable[0];p->name;++p) {
5613  if(!set_belong_p(module_list,p->name))
5614  register_intrinsic_type_descriptor(p);
5615  }
5616 }
switch_specific_dcmplx
static void switch_specific_dcmplx(expression exp, type_context_p context)
Definition: bootstrap.c:3981
switch_specific_asin
static void switch_specific_asin(expression exp, type_context_p context)
ASIN.
Definition: bootstrap.c:3916
typing_function_real_to_double
static basic typing_function_real_to_double(call c, type_context_p context)
Definition: bootstrap.c:2471
double_to_integer_type
static type double_to_integer_type(int n)
Definition: bootstrap.c:691
overloaded_to_double_type
static type overloaded_to_double_type(int n)
Definition: bootstrap.c:404
typing_function_real_to_real
static basic typing_function_real_to_real(call c, type_context_p context)
Definition: bootstrap.c:2246
typing_function_complex_to_real
static basic typing_function_complex_to_real(call c, type_context_p context)
Definition: bootstrap.c:2483
typing_function_overloaded
static basic typing_function_overloaded(call __attribute__((unused)) c, type_context_p __attribute__((unused)) context)
Definition: bootstrap.c:2772
check_close
static basic check_close(call c, type_context_p context)
Definition: bootstrap.c:3636
typing_buffer_inout
static basic typing_buffer_inout(call c, type_context_p context)
Definition: bootstrap.c:2926
switch_specific_max
static void switch_specific_max(expression exp, type_context_p context)
MAX.
Definition: bootstrap.c:3853
typing_substring
static basic typing_substring(call c, type_context_p context)
Definition: bootstrap.c:2815
typing_implied_do
static basic typing_implied_do(call c, type_context_p context)
Definition: bootstrap.c:2980
complex_to_real_type
static type complex_to_real_type(int n)
Definition: bootstrap.c:849
real_to_integer_type
static type real_to_integer_type(int n)
Definition: bootstrap.c:626
typing_logical_operator
static basic typing_logical_operator(call c, type_context_p context)
Definition: bootstrap.c:2107
longinteger_to_overloaded_type
type longinteger_to_overloaded_type(int n)
MB.
Definition: bootstrap.c:4236
typing_function_constant_complex
static basic typing_function_constant_complex(call c, type_context_p context)
CMPLX_.
Definition: bootstrap.c:2738
typing_function_dcomplex_to_double
static basic typing_function_dcomplex_to_double(call c, type_context_p context)
Definition: bootstrap.c:2495
overloaded_to_void_type
type overloaded_to_void_type(int n)
Definition: bootstrap.c:4292
real_to_longlonginteger_type
static type real_to_longlonginteger_type(int n)
MB.
Definition: bootstrap.c:678
typing_function_longdouble_to_longint
static basic typing_function_longdouble_to_longint(call c, type_context_p context)
MB.
Definition: bootstrap.c:2446
check_backspace
static basic check_backspace(call c, type_context_p context)
Definition: bootstrap.c:3671
typing_function_double_to_int
static basic typing_function_double_to_int(call c, type_context_p context)
Definition: bootstrap.c:2398
typing_function_RealDouble_to_RealDouble
static basic typing_function_RealDouble_to_RealDouble(call c, type_context_p context)
Definition: bootstrap.c:2523
longinteger_to_longinteger_type
static type longinteger_to_longinteger_type(int n)
MB.
Definition: bootstrap.c:733
no_typing
static basic no_typing(call __attribute__((unused)) c, type_context_p __attribute__((unused)) context)
Definition: bootstrap.c:2971
integer_to_logical_type
static type integer_to_logical_type(int n)
to handle BTEST function which takes integer as parameter and returns logical.
Definition: bootstrap.c:490
switch_specific_tan
static void switch_specific_tan(expression exp, type_context_p context)
TAN.
Definition: bootstrap.c:3909
typing_function_RealDouble_to_Integer
static basic typing_function_RealDouble_to_Integer(call c, type_context_p context)
Definition: bootstrap.c:2540
typing_function_longdouble_to_longlongint
static basic typing_function_longdouble_to_longlongint(call c, type_context_p context)
MB.
Definition: bootstrap.c:2459
check_rewind
static basic check_rewind(call c, type_context_p context)
Definition: bootstrap.c:3703
intrinsic_type_descriptor_mapping
static hash_table intrinsic_type_descriptor_mapping
Definition: bootstrap.c:4324
overloaded_to_real_type
static type overloaded_to_real_type(int n)
Definition: bootstrap.c:390
typing_function_int_to_int
static basic typing_function_int_to_int(call c, type_context_p context)
Definition: bootstrap.c:2219
switch_specific_sinh
static void switch_specific_sinh(expression exp, type_context_p context)
SINH.
Definition: bootstrap.c:3944
longdouble_to_longdouble_type
static type longdouble_to_longdouble_type(int n)
MB.
Definition: bootstrap.c:834
typing_function_longdouble_to_int
static basic typing_function_longdouble_to_int(call c, type_context_p context)
MB.
Definition: bootstrap.c:2433
check_endfile
static basic check_endfile(call c, type_context_p context)
Definition: bootstrap.c:3687
longdoublecomplex_to_longdoublecomplex_type
static type longdoublecomplex_to_longdoublecomplex_type(int n)
MB.
Definition: bootstrap.c:903
check_read_write
static basic check_read_write(call c, type_context_p context)
Definition: bootstrap.c:3603
typing_function_int_to_real
static basic typing_function_int_to_real(call c, type_context_p context)
Definition: bootstrap.c:2370
switch_specific_mod
static void switch_specific_mod(expression exp, type_context_p context)
MOD.
Definition: bootstrap.c:3832
typing_function_RealDoubleComplex_to_RealDoubleComplex
static basic typing_function_RealDoubleComplex_to_RealDoubleComplex(call c, type_context_p context)
Definition: bootstrap.c:2558
double_to_longlonginteger_type
static type double_to_longlonginteger_type(int n)
MB.
Definition: bootstrap.c:719
typing_function_IntegerRealDouble_to_IntegerRealDouble
static basic typing_function_IntegerRealDouble_to_IntegerRealDouble(call c, type_context_p context)
Definition: bootstrap.c:2576
typing_function_char_to_logical
static basic typing_function_char_to_logical(call c, type_context_p context)
Definition: bootstrap.c:2507
overloaded_to_doublecomplex_type
static type overloaded_to_doublecomplex_type(int n)
Definition: bootstrap.c:446
typing_function_double_to_double
static basic typing_function_double_to_double(call c, type_context_p context)
Definition: bootstrap.c:2255
integer_to_void_type
type integer_to_void_type(int n)
Definition: bootstrap.c:4264
switch_specific_dim
static void switch_specific_dim(expression exp, type_context_p context)
DIM.
Definition: bootstrap.c:3846
typing_function_conversion_to_complex
static basic typing_function_conversion_to_complex(call c, type_context_p context)
Definition: bootstrap.c:2669
typing_function_format_name
static basic typing_function_format_name(call __attribute__((unused)) c, type_context_p __attribute__((unused)) context)
Definition: bootstrap.c:2779
simplification_dcomplex
static void simplification_dcomplex(expression, type_context_p)
Definition: bootstrap.c:4183
char_pointer_to_double_type
static type char_pointer_to_double_type(int n __attribute__((unused)))
C only because of pointer.
Definition: bootstrap.c:573
integer_to_overloaded_type
type integer_to_overloaded_type(int n)
Definition: bootstrap.c:4222
typing_function_longdcomplex_to_longdouble
static basic typing_function_longdcomplex_to_longdouble(call c, type_context_p context)
MB.
Definition: bootstrap.c:2300
switch_specific_log10
static void switch_specific_log10(expression exp, type_context_p context)
LOG10.
Definition: bootstrap.c:3888
default_intrinsic_type
static type default_intrinsic_type(int n)
The default intrinsic type is a functional type with n overloaded arguments returning an overloaded r...
Definition: bootstrap.c:362
longdouble_to_longlonginteger_type
static type longdouble_to_longlonginteger_type(int n)
MB.
Definition: bootstrap.c:819
switch_specific_anint
static void switch_specific_anint(expression exp, type_context_p context)
ANINT.
Definition: bootstrap.c:3811
typing_arithmetic_operator
static basic typing_arithmetic_operator(call c, type_context_p context)
Definition: bootstrap.c:2020
switch_specific_aint
static void switch_specific_aint(expression exp, type_context_p context)
AINT.
Definition: bootstrap.c:3804
switch_specific_min
static void switch_specific_min(expression exp, type_context_p context)
MIN.
Definition: bootstrap.c:3860
substring_type
static type substring_type(int n)
Definition: bootstrap.c:973
statement_with_at_most_one_expression_integer
static basic statement_with_at_most_one_expression_integer(call c, type_context_p context)
Definition: bootstrap.c:3153
switch_specific_atan
static void switch_specific_atan(expression exp, type_context_p context)
ATAN.
Definition: bootstrap.c:3930
typing_function_real_to_longint
static basic typing_function_real_to_longint(call c, type_context_p context)
MB.
Definition: bootstrap.c:2346
real_to_real_type
static type real_to_real_type(int n)
Definition: bootstrap.c:639
character_to_logical_type
static type character_to_logical_type(int n)
Definition: bootstrap.c:945
simplification_real
static void simplification_real(expression exp, type_context_p context)
Definition: bootstrap.c:4162
integer_to_real_type
static type integer_to_real_type(int n)
Definition: bootstrap.c:598
doublecomplex_to_doublecomplex_type
static type doublecomplex_to_doublecomplex_type(int n)
Definition: bootstrap.c:889
assign_substring_type
static type assign_substring_type(int n)
Definition: bootstrap.c:995
typing_function_longint_to_longint
static basic typing_function_longint_to_longint(call c, type_context_p context)
MB.
Definition: bootstrap.c:2228
typing_function_longlongint_to_longlongint
static basic typing_function_longlongint_to_longlongint(call c, type_context_p context)
MB.
Definition: bootstrap.c:2237
switch_specific_log
static void switch_specific_log(expression exp, type_context_p context)
LOG.
Definition: bootstrap.c:3881
void_to_void_to_int_pointer_type
static type void_to_void_to_int_pointer_type(int n __attribute__((unused)))
C only because of pointer.
Definition: bootstrap.c:551
statement_with_at_most_one_integer_or_character
static basic statement_with_at_most_one_integer_or_character(call c, type_context_p context)
Definition: bootstrap.c:3100
typing_function_conversion_to_real
static basic typing_function_conversion_to_real(call c, type_context_p context)
Definition: bootstrap.c:2653
switch_specific_sqrt
static void switch_specific_sqrt(expression exp, type_context_p context)
SQRT.
Definition: bootstrap.c:3867
typing_function_int_to_logical
static basic typing_function_int_to_logical(call c, type_context_p context)
function added to handle one of the bit manipulation functions : BTEST.
Definition: bootstrap.c:2385
typing_of_assign
static basic typing_of_assign(call c, type_context_p context)
Definition: bootstrap.c:2786
typing_power_operator
static basic typing_power_operator(call c, type_context_p context)
Definition: bootstrap.c:2041
typing_function_constant_dcomplex
static basic typing_function_constant_dcomplex(call c, type_context_p context)
DCMPLX_.
Definition: bootstrap.c:2755
check_inquire
static basic check_inquire(call c, type_context_p context)
Definition: bootstrap.c:3653
simplification_complex
static void simplification_complex(expression, type_context_p)
forward declarations
Definition: bootstrap.c:4176
longdouble_to_integer_type
static type longdouble_to_integer_type(int n)
MB.
Definition: bootstrap.c:791
register_intrinsic_type_descriptor
void register_intrinsic_type_descriptor(IntrinsicDescriptor *p)
This function is called one time (at the very beginning) to create all intrinsic functions.
Definition: bootstrap.c:4411
switch_specific_nint
static void switch_specific_nint(expression exp, type_context_p context)
NINT.
Definition: bootstrap.c:3818
typing_function_double_to_longlongint
static basic typing_function_double_to_longlongint(call c, type_context_p context)
MB.
Definition: bootstrap.c:2422
double_to_double_type
static type double_to_double_type(int n)
Definition: bootstrap.c:777
typing_assign_substring
static basic typing_assign_substring(call c, type_context_p context)
Definition: bootstrap.c:2867
typing_function_real_to_int
static basic typing_function_real_to_int(call c, type_context_p context)
Definition: bootstrap.c:2334
logical_to_logical_type
static type logical_to_logical_type(int n)
Definition: bootstrap.c:1020
unsigned_integer_to_void_pointer_type
static type unsigned_integer_to_void_pointer_type(int n)
Definition: bootstrap.c:517
check_format
static basic check_format(call c, type_context_p context)
Definition: bootstrap.c:3719
typing_function_dcomplex_to_dcomplex
static basic typing_function_dcomplex_to_dcomplex(call c, type_context_p context)
Definition: bootstrap.c:2282
typing_function_longdouble_to_longdouble
static basic typing_function_longdouble_to_longdouble(call c, type_context_p context)
MB.
Definition: bootstrap.c:2264
simplification_int
static void simplification_int(expression exp, type_context_p context)
Definition: bootstrap.c:4155
void_to_void_type
static type void_to_void_type(int n __attribute__((unused)))
Can be used for C or Fortran functions.
Definition: bootstrap.c:531
longdouble_to_longinteger_type
static type longdouble_to_longinteger_type(int n)
MB.
Definition: bootstrap.c:805
character_to_integer_type
static type character_to_integer_type(int n)
Definition: bootstrap.c:931
overloaded_to_complex_type
static type overloaded_to_complex_type(int n)
Definition: bootstrap.c:432
void_to_integer_type
type void_to_integer_type(int n)
Definition: bootstrap.c:4306
switch_specific_cos
static void switch_specific_cos(expression exp, type_context_p context)
COS.
Definition: bootstrap.c:3902
longlonginteger_to_longlonginteger_type
static type longlonginteger_to_longlonginteger_type(int n)
MB.
Definition: bootstrap.c:747
typing_function_char_to_int
static basic typing_function_char_to_int(call c, type_context_p context)
Definition: bootstrap.c:2311
longlonginteger_to_overloaded_type
type longlonginteger_to_overloaded_type(int n)
MB.
Definition: bootstrap.c:4250
switch_specific_sign
static void switch_specific_sign(expression exp, type_context_p context)
SIGN.
Definition: bootstrap.c:3839
typing_function_conversion_to_double
static basic typing_function_conversion_to_double(call c, type_context_p context)
Definition: bootstrap.c:2661
overloaded_to_logical_type
static type overloaded_to_logical_type(int n)
type t = type_undefined; functional ft = functional_undefined;
Definition: bootstrap.c:474
double_to_longinteger_type
static type double_to_longinteger_type(int n)
MB.
Definition: bootstrap.c:705
typing_relational_operator
static basic typing_relational_operator(call c, type_context_p context)
Definition: bootstrap.c:2085
simplification_double
static void simplification_double(expression exp, type_context_p context)
Definition: bootstrap.c:4169
overloaded_to_integer_type
static type overloaded_to_integer_type(int n)
Definition: bootstrap.c:376
check_open
static basic check_open(call c, type_context_p context)
Definition: bootstrap.c:3620
switch_specific_cosh
static void switch_specific_cosh(expression exp, type_context_p context)
COSH.
Definition: bootstrap.c:3951
typing_function_longdcomplex_to_longdcomplex
static basic typing_function_longdcomplex_to_longdcomplex(call c, type_context_p context)
B: added for long double complex type.
Definition: bootstrap.c:2291
typing_function_real_to_longlongint
static basic typing_function_real_to_longlongint(call c, type_context_p context)
MB.
Definition: bootstrap.c:2358
real_to_longinteger_type
static type real_to_longinteger_type(int n)
MB.
Definition: bootstrap.c:665
typing_function_complex_to_complex
static basic typing_function_complex_to_complex(call c, type_context_p context)
Definition: bootstrap.c:2273
real_to_double_type
static type real_to_double_type(int n)
Definition: bootstrap.c:652
statement_without_argument
static basic statement_without_argument(call c, type_context_p context)
Definition: bootstrap.c:3079
longdoublecomplex_to_longdouble_type
static type longdoublecomplex_to_longdouble_type(int n)
MB.
Definition: bootstrap.c:917
switch_specific_sin
static void switch_specific_sin(expression exp, type_context_p context)
SIN.
Definition: bootstrap.c:3895
typing_concat_operator
static basic typing_concat_operator(call c, type_context_p context)
Definition: bootstrap.c:2120
complex_to_complex_type
static type complex_to_complex_type(int n)
Definition: bootstrap.c:876
typing_function_int_to_char
static basic typing_function_int_to_char(call c, type_context_p context)
Definition: bootstrap.c:2322
overloaded_to_longdouble_type
static type overloaded_to_longdouble_type(int n)
MB.
Definition: bootstrap.c:418
switch_specific_tanh
static void switch_specific_tanh(expression exp, type_context_p context)
TANH.
Definition: bootstrap.c:3958
switch_specific_atan2
static void switch_specific_atan2(expression exp, type_context_p context)
ATAN2.
Definition: bootstrap.c:3937
character_to_character_type
static type character_to_character_type(int n)
Definition: bootstrap.c:959
typing_function_IntegerRealDoubleComplex_to_IntegerRealDoubleReal
static basic typing_function_IntegerRealDoubleComplex_to_IntegerRealDoubleReal(call c, type_context_p context)
Definition: bootstrap.c:2600
switch_specific_abs
static void switch_specific_abs(expression exp, type_context_p context)
ABS.
Definition: bootstrap.c:3825
typing_function_conversion_to_integer
static basic typing_function_conversion_to_integer(call c, type_context_p context)
Definition: bootstrap.c:2645
integer_to_integer_type
static type integer_to_integer_type(int n)
Why do we make these functions static and keep them here instead of populating ri-util/type....
Definition: bootstrap.c:505
switch_specific_cmplx
static void switch_specific_cmplx(expression exp, type_context_p context)
Definition: bootstrap.c:3969
doublecomplex_to_double_type
static type doublecomplex_to_double_type(int n)
Definition: bootstrap.c:862
typing_function_double_to_longint
static basic typing_function_double_to_longint(call c, type_context_p context)
MB.
Definition: bootstrap.c:2410
typing_function_conversion_to_dcomplex
static basic typing_function_conversion_to_dcomplex(call c, type_context_p context)
Definition: bootstrap.c:2703
switch_specific_exp
static void switch_specific_exp(expression exp, type_context_p context)
EXP.
Definition: bootstrap.c:3874
switch_specific_acos
static void switch_specific_acos(expression exp, type_context_p context)
ACOS.
Definition: bootstrap.c:3923
void_to_overloaded_type
type void_to_overloaded_type(int)
hash_table_make
hash_table hash_table_make(hash_key_type key_type, size_t size)
Definition: hash.c:294
LIST_DIRECTED_FORMAT_NAME
#define LIST_DIRECTED_FORMAT_NAME
Definition: naming-local.h:97
hash_string
@ hash_string
Definition: newgen_hash.h:32
set_belong_p
bool set_belong_p(const set, const void *)
Definition: set.c:194
UNBOUNDED_DIMENSION_NAME
#define UNBOUNDED_DIMENSION_NAME
Definition: ri-util-local.h:74
GETS_FUNCTION_NAME
#define GETS_FUNCTION_NAME
Definition: ri-util-local.h:917
ERFCL_OPERATOR_NAME
#define ERFCL_OPERATOR_NAME
Definition: ri-util-local.h:689
ERFC_OPERATOR_NAME
#define ERFC_OPERATOR_NAME
Definition: ri-util-local.h:687
BITWISE_OR_OPERATOR_NAME
#define BITWISE_OR_OPERATOR_NAME
Definition: ri-util-local.h:192
FREAD_FUNCTION_NAME
#define FREAD_FUNCTION_NAME
Definition: ri-util-local.h:951
ALLOCA_FUNCTION_NAME
#define ALLOCA_FUNCTION_NAME
Definition: ri-util-local.h:1018
WCSFTIME_FUNCTION_NAME
#define WCSFTIME_FUNCTION_NAME
Definition: ri-util-local.h:1128
NINT_CONVERSION_NAME
#define NINT_CONVERSION_NAME
Definition: ri-util-local.h:239
ATAN2_OPERATOR_NAME
#define ATAN2_OPERATOR_NAME
Definition: ri-util-local.h:165
SGCONVERT_OPERATOR_NAME
#define SGCONVERT_OPERATOR_NAME
Definition: ri-util-local.h:1213
FWSCANF_FUNCTION_NAME
#define FWSCANF_FUNCTION_NAME
Definition: ri-util-local.h:1079
LDEXPL_OPERATOR_NAME
#define LDEXPL_OPERATOR_NAME
Definition: ri-util-local.h:645
QECONVERT_OPERATOR_NAME
#define QECONVERT_OPERATOR_NAME
Definition: ri-util-local.h:1217
CREALF_OPERATOR_NAME
#define CREALF_OPERATOR_NAME
Definition: ri-util-local.h:531
FESETEXCEPTFLAG_FUNCTION_NAME
#define FESETEXCEPTFLAG_FUNCTION_NAME
Definition: ri-util-local.h:569
VFPRINTF_FUNCTION_NAME
#define VFPRINTF_FUNCTION_NAME
Definition: ri-util-local.h:930
EXPM1L_OPERATOR_NAME
#define EXPM1L_OPERATOR_NAME
Definition: ri-util-local.h:638
C_TANH_OPERATOR_NAME
#define C_TANH_OPERATOR_NAME
Definition: ri-util-local.h:627
CTANHF_OPERATOR_NAME
#define CTANHF_OPERATOR_NAME
Definition: ri-util-local.h:499
LABS_FUNCTION_NAME
#define LABS_FUNCTION_NAME
Definition: ri-util-local.h:1028
FUNC_TO_DECIMAL_OPERATOR_NAME
#define FUNC_TO_DECIMAL_OPERATOR_NAME
Definition: ri-util-local.h:1209
C_WRITE_FUNCTION_NAME
#define C_WRITE_FUNCTION_NAME
Definition: ri-util-local.h:785
DREAL_GENERIC_CONVERSION_NAME
#define DREAL_GENERIC_CONVERSION_NAME
Definition: ri-util-local.h:228
SRAND_FUNCTION_NAME
#define SRAND_FUNCTION_NAME
Definition: ri-util-local.h:1013
FGETWC_FUNCTION_NAME
#define FGETWC_FUNCTION_NAME
Definition: ri-util-local.h:1090
CASINL_OPERATOR_NAME
#define CASINL_OPERATOR_NAME
Definition: ri-util-local.h:470
MAX_OPERATOR_NAME
#define MAX_OPERATOR_NAME
Definition: ri-util-local.h:199
POWER_OPERATOR_NAME
#define POWER_OPERATOR_NAME
Definition: ri-util-local.h:120
ATOI_FUNCTION_NAME
#define ATOI_FUNCTION_NAME
Definition: ri-util-local.h:1002
LLE_OPERATOR_NAME
#define LLE_OPERATOR_NAME
Definition: ri-util-local.h:215
DECIMAL_TO_SINGLE_OPERATOR_NAME
#define DECIMAL_TO_SINGLE_OPERATOR_NAME
Definition: ri-util-local.h:1204
_TOLOWER_OPERATOR_NAME
#define _TOLOWER_OPERATOR_NAME
Definition: ri-util-local.h:555
ATANL_OPERATOR_NAME
#define ATANL_OPERATOR_NAME
Definition: ri-util-local.h:599
CABS_OPERATOR_NAME
#define CABS_OPERATOR_NAME
Definition: ri-util-local.h:208
REALLOC_FUNCTION_NAME
#define REALLOC_FUNCTION_NAME
Definition: ri-util-local.h:1017
LOGB_OPERATOR_NAME
#define LOGB_OPERATOR_NAME
Definition: ri-util-local.h:658
WCSRCHR_FUNCTION_NAME
#define WCSRCHR_FUNCTION_NAME
Definition: ri-util-local.h:1121
CPROJ_OPERATOR_NAME
#define CPROJ_OPERATOR_NAME
Definition: ri-util-local.h:526
WCSTOMBS_FUNCTION_NAME
#define WCSTOMBS_FUNCTION_NAME
Definition: ri-util-local.h:1037
FGETC_FUNCTION_NAME
#define FGETC_FUNCTION_NAME
Definition: ri-util-local.h:921
GETLOGIN_FUNCTION_NAME
#define GETLOGIN_FUNCTION_NAME
Definition: ri-util-local.h:863
LOG1P_OPERATOR_NAME
#define LOG1P_OPERATOR_NAME
Definition: ri-util-local.h:652
STRLEN_FUNCTION_NAME
#define STRLEN_FUNCTION_NAME
Definition: ri-util-local.h:1067
TOWUPPER_OPERATOR_NAME
#define TOWUPPER_OPERATOR_NAME
Definition: ri-util-local.h:1156
POST_DECREMENT_OPERATOR_NAME
#define POST_DECREMENT_OPERATOR_NAME
Definition: ri-util-local.h:98
MBSINIT_FUNCTION_NAME
#define MBSINIT_FUNCTION_NAME
Definition: ri-util-local.h:1131
CPU_TIME_FUNCTION_NAME
#define CPU_TIME_FUNCTION_NAME
Definition: ri-util-local.h:331
DTIME_FUNCTION_NAME
#define DTIME_FUNCTION_NAME
Definition: ri-util-local.h:330
NEXTAFTERF_OPERATOR_NAME
#define NEXTAFTERF_OPERATOR_NAME
Definition: ri-util-local.h:740
STAT_FUNCTION_NAME
#define STAT_FUNCTION_NAME
Definition: ri-util-local.h:1175
MEMSET_FUNCTION_NAME
#define MEMSET_FUNCTION_NAME
Definition: ri-util-local.h:1063
CEXP_OPERATOR_NAME
#define CEXP_OPERATOR_NAME
Definition: ri-util-local.h:139
CPOWL_OPERATOR_NAME
#define CPOWL_OPERATOR_NAME
Definition: ri-util-local.h:512
RECV_FUNCTION_NAME
#define RECV_FUNCTION_NAME
Definition: ri-util-local.h:2339
FDATASYNC_FUNCTION_NAME
#define FDATASYNC_FUNCTION_NAME
Definition: ri-util-local.h:1171
IDNINT_CONVERSION_NAME
#define IDNINT_CONVERSION_NAME
Definition: ri-util-local.h:240
FWRITE_FUNCTION_NAME
#define FWRITE_FUNCTION_NAME
Definition: ri-util-local.h:952
SWPRINTF_FUNCTION_NAME
#define SWPRINTF_FUNCTION_NAME
Definition: ri-util-local.h:1080
MBTOWC_FUNCTION_NAME
#define MBTOWC_FUNCTION_NAME
Definition: ri-util-local.h:1034
MEMALIGN_FUNCTION_NAME
#define MEMALIGN_FUNCTION_NAME
Definition: ri-util-local.h:429
FLOAT_GENERIC_CONVERSION_NAME
#define FLOAT_GENERIC_CONVERSION_NAME
Definition: ri-util-local.h:224
ISOC99_VFSCANF_FUNCTION_NAME
#define ISOC99_VFSCANF_FUNCTION_NAME
Definition: ri-util-local.h:932
TTYNAME_FUNCTION_NAME
#define TTYNAME_FUNCTION_NAME
Definition: ri-util-local.h:848
TOLOWER_OPERATOR_NAME
#define TOLOWER_OPERATOR_NAME
Definition: ri-util-local.h:549
BITWISE_XOR_OPERATOR_NAME
#define BITWISE_XOR_OPERATOR_NAME
Definition: ri-util-local.h:182
STRSPN_FUNCTION_NAME
#define STRSPN_FUNCTION_NAME
Definition: ri-util-local.h:1060
FGETPOS_FUNCTION_NAME
#define FGETPOS_FUNCTION_NAME
Definition: ri-util-local.h:953
C_LESS_OR_EQUAL_OPERATOR_NAME
#define C_LESS_OR_EQUAL_OPERATOR_NAME
Definition: ri-util-local.h:266
REPEAT_VALUE_NAME
#define REPEAT_VALUE_NAME
Definition: ri-util-local.h:77
NANL_OPERATOR_NAME
#define NANL_OPERATOR_NAME
Definition: ri-util-local.h:738
SEED48_FUNCTION_NAME
#define SEED48_FUNCTION_NAME
Definition: ri-util-local.h:392
TANH_OPERATOR_NAME
#define TANH_OPERATOR_NAME
Definition: ri-util-local.h:171
REMAINDERF_OPERATOR_NAME
#define REMAINDERF_OPERATOR_NAME
Definition: ri-util-local.h:731
CREAT64_FUNCTION_NAME
#define CREAT64_FUNCTION_NAME
Definition: ri-util-local.h:1167
IMAXDIV_FUNCTION_NAME
#define IMAXDIV_FUNCTION_NAME
Definition: ri-util-local.h:576
FMINF_OPERATOR_NAME
#define FMINF_OPERATOR_NAME
Definition: ri-util-local.h:752
STRCMP_FUNCTION_NAME
#define STRCMP_FUNCTION_NAME
Definition: ri-util-local.h:1051
CACOSH_OPERATOR_NAME
#define CACOSH_OPERATOR_NAME
Definition: ri-util-local.h:483
NEARBYINTF_OPERATOR_NAME
#define NEARBYINTF_OPERATOR_NAME
Definition: ri-util-local.h:704
VALLOC_FUNCTION_NAME
#define VALLOC_FUNCTION_NAME
Definition: ri-util-local.h:414
SETSTATE_FUNCTION_NAME
#define SETSTATE_FUNCTION_NAME
Definition: ri-util-local.h:411
COS_OPERATOR_NAME
#define COS_OPERATOR_NAME
Definition: ri-util-local.h:153
__FILBUF_FUNCTION_NAME
#define __FILBUF_FUNCTION_NAME
Definition: ri-util-local.h:973
C_EXP_OPERATOR_NAME
#define C_EXP_OPERATOR_NAME
Definition: ri-util-local.h:630
CDABS_OPERATOR_NAME
#define CDABS_OPERATOR_NAME
Definition: ri-util-local.h:209
DSIGN_OPERATOR_NAME
#define DSIGN_OPERATOR_NAME
Definition: ri-util-local.h:126
SCANF_FUNCTION_NAME
#define SCANF_FUNCTION_NAME
Definition: ri-util-local.h:910
COPYSIGNF_OPERATOR_NAME
#define COPYSIGNF_OPERATOR_NAME
Definition: ri-util-local.h:734
WCSRTOMBS_FUNCTION_NAME
#define WCSRTOMBS_FUNCTION_NAME
Definition: ri-util-local.h:1136
ISWALNUM_OPERATOR_NAME
#define ISWALNUM_OPERATOR_NAME
include <wctype.h>
Definition: ri-util-local.h:1141
MRAND48_FUNCTION_NAME
#define MRAND48_FUNCTION_NAME
Definition: ri-util-local.h:390
FSYNC_FUNCTION_NAME
#define FSYNC_FUNCTION_NAME
fcntl is declared with fcntl.h
Definition: ri-util-local.h:1170
FTELLO64_FUNCTION_NAME
#define FTELLO64_FUNCTION_NAME
Definition: ri-util-local.h:994
DOUBLE_MODULO_OPERATOR_NAME
#define DOUBLE_MODULO_OPERATOR_NAME
Definition: ri-util-local.h:123
READ_FUNCTION_NAME
#define READ_FUNCTION_NAME
Definition: ri-util-local.h:297
ISLOWER_OPERATOR_NAME
#define ISLOWER_OPERATOR_NAME
Definition: ri-util-local.h:543
STRNCPY_FUNCTION_NAME
#define STRNCPY_FUNCTION_NAME
Definition: ri-util-local.h:1047
C_ACOSH_OPERATOR_NAME
#define C_ACOSH_OPERATOR_NAME
Definition: ri-util-local.h:612
CTANHL_OPERATOR_NAME
#define CTANHL_OPERATOR_NAME
Definition: ri-util-local.h:500
FDIML_OPERATOR_NAME
#define FDIML_OPERATOR_NAME
Definition: ri-util-local.h:747
WARNX_FUNCTION_NAME
#define WARNX_FUNCTION_NAME
Definition: ri-util-local.h:342
C_AND_OPERATOR_NAME
#define C_AND_OPERATOR_NAME
Definition: ri-util-local.h:183
GREATER_THAN_OPERATOR_NAME
#define GREATER_THAN_OPERATOR_NAME
Definition: ri-util-local.h:263
CTANF_OPERATOR_NAME
#define CTANF_OPERATOR_NAME
Definition: ri-util-local.h:481
ENDFILE_FUNCTION_NAME
#define ENDFILE_FUNCTION_NAME
Definition: ri-util-local.h:300
DIV_FUNCTION_NAME
#define DIV_FUNCTION_NAME
Definition: ri-util-local.h:1030
VSWSCANF_FUNCTION_NAME
#define VSWSCANF_FUNCTION_NAME
Definition: ri-util-local.h:1085
FREOPEN64_FUNCTION_NAME
#define FREOPEN64_FUNCTION_NAME
Definition: ri-util-local.h:989
TOWLOWER_OPERATOR_NAME
#define TOWLOWER_OPERATOR_NAME
Definition: ri-util-local.h:1155
C_GREATER_OR_EQUAL_OPERATOR_NAME
#define C_GREATER_OR_EQUAL_OPERATOR_NAME
Definition: ri-util-local.h:262
SIGN_OPERATOR_NAME
#define SIGN_OPERATOR_NAME
Definition: ri-util-local.h:124
ATANF_OPERATOR_NAME
#define ATANF_OPERATOR_NAME
Definition: ri-util-local.h:598
ISWXDIGIT_OPERATOR_NAME
#define ISWXDIGIT_OPERATOR_NAME
Definition: ri-util-local.h:1152
DMIN1_OPERATOR_NAME
#define DMIN1_OPERATOR_NAME
Definition: ri-util-local.h:198
C_LOG10_OPERATOR_NAME
#define C_LOG10_OPERATOR_NAME
Definition: ri-util-local.h:649
FDIMF_OPERATOR_NAME
#define FDIMF_OPERATOR_NAME
Definition: ri-util-local.h:746
LOGF_OPERATOR_NAME
#define LOGF_OPERATOR_NAME
Definition: ri-util-local.h:647
FPUTWS_FUNCTION_NAME
#define FPUTWS_FUNCTION_NAME
Definition: ri-util-local.h:1093
ATAN2F_OPERATOR_NAME
#define ATAN2F_OPERATOR_NAME
Definition: ri-util-local.h:601
CACOS_OPERATOR_NAME
#define CACOS_OPERATOR_NAME
include <complex.h>
Definition: ri-util-local.h:465
STRSTR_FUNCTION_NAME
#define STRSTR_FUNCTION_NAME
Definition: ri-util-local.h:1061
BITWISE_OR_UPDATE_OPERATOR_NAME
#define BITWISE_OR_UPDATE_OPERATOR_NAME
Definition: ri-util-local.h:107
ABS_OPERATOR_NAME
#define ABS_OPERATOR_NAME
Definition: ri-util-local.h:205
DECIMAL_TO_QUADRUPLE_OPERATOR_NAME
#define DECIMAL_TO_QUADRUPLE_OPERATOR_NAME
Definition: ri-util-local.h:1207
TOWCTRANS_OPERATOR_NAME
#define TOWCTRANS_OPERATOR_NAME
Definition: ri-util-local.h:1157
C_REWIND_FUNCTION_NAME
#define C_REWIND_FUNCTION_NAME
Definition: ri-util-local.h:957
GCC_CIMAG_OPERATOR_NAME
#define GCC_CIMAG_OPERATOR_NAME
Definition: ri-util-local.h:520
LLROUNDF_OPERATOR_NAME
#define LLROUNDF_OPERATOR_NAME
Definition: ri-util-local.h:722
NEXTTOWARDF_OPERATOR_NAME
#define NEXTTOWARDF_OPERATOR_NAME
Definition: ri-util-local.h:743
DBLE_GENERIC_CONVERSION_NAME
#define DBLE_GENERIC_CONVERSION_NAME
Definition: ri-util-local.h:227
WCRTOMB_FUNCTION_NAME
#define WCRTOMB_FUNCTION_NAME
Definition: ri-util-local.h:1134
SYSTEM_FUNCTION_NAME
#define SYSTEM_FUNCTION_NAME
Definition: ri-util-local.h:1024
FEGETROUND_FUNCTION_NAME
#define FEGETROUND_FUNCTION_NAME
Definition: ri-util-local.h:571
SUBSTRING_FUNCTION_NAME
#define SUBSTRING_FUNCTION_NAME
Definition: ri-util-local.h:286
MBRLEN_FUNCTION_NAME
#define MBRLEN_FUNCTION_NAME
Definition: ri-util-local.h:1132
COSHL_OPERATOR_NAME
#define COSHL_OPERATOR_NAME
Definition: ri-util-local.h:623
GETC_FUNCTION_NAME
#define GETC_FUNCTION_NAME
Definition: ri-util-local.h:944
ISOC99_FSCANF_FUNCTION_NAME
#define ISOC99_FSCANF_FUNCTION_NAME
Definition: ri-util-local.h:914
DACOS_OPERATOR_NAME
#define DACOS_OPERATOR_NAME
Definition: ri-util-local.h:162
ISHFT_OPERATOR_NAME
#define ISHFT_OPERATOR_NAME
Bit manipulation functions.
Definition: ri-util-local.h:305
TOASCII_OPERATOR_NAME
#define TOASCII_OPERATOR_NAME
Definition: ri-util-local.h:554
MALLOC_FUNCTION_NAME
#define MALLOC_FUNCTION_NAME
Definition: ri-util-local.h:1016
ASSERT_FUNCTION_NAME
#define ASSERT_FUNCTION_NAME
Here are C intrinsics arranged in the order of the standard ISO/IEC 9899:TC2.
Definition: ri-util-local.h:460
LLROUND_OPERATOR_NAME
#define LLROUND_OPERATOR_NAME
Definition: ri-util-local.h:721
DIRECTIO_FUNCTION_NAME
#define DIRECTIO_FUNCTION_NAME
Definition: ri-util-local.h:1165
PIPS_IO_BARRIER_OPERATOR_NAME
#define PIPS_IO_BARRIER_OPERATOR_NAME
Definition: ri-util-local.h:1252
CLEARERR_FUNCTION_NAME
#define CLEARERR_FUNCTION_NAME
Definition: ri-util-local.h:958
TIME_FUNCTION_NAME
#define TIME_FUNCTION_NAME
include<time.h>
Definition: ri-util-local.h:1071
CSINL_OPERATOR_NAME
#define CSINL_OPERATOR_NAME
Definition: ri-util-local.h:479
COSH_OPERATOR_NAME
#define COSH_OPERATOR_NAME
Definition: ri-util-local.h:169
ISUPPER_OPERATOR_NAME
#define ISUPPER_OPERATOR_NAME
Definition: ri-util-local.h:547
ISALNUM_OPERATOR_NAME
#define ISALNUM_OPERATOR_NAME
include <ctype.h>
Definition: ri-util-local.h:537
VERR_FUNCTION_NAME
#define VERR_FUNCTION_NAME
Definition: ri-util-local.h:343
BUFFERIN_FUNCTION_NAME
#define BUFFERIN_FUNCTION_NAME
Definition: ri-util-local.h:298
EOLE_FMA_OPERATOR_NAME
#define EOLE_FMA_OPERATOR_NAME
These operators are used within the optimize transformation in order to manipulate operators such as ...
Definition: ri-util-local.h:1234
WMEMCHR_FUNCTION_NAME
#define WMEMCHR_FUNCTION_NAME
Definition: ri-util-local.h:1125
WCSTOULL_FUNCTION_NAME
#define WCSTOULL_FUNCTION_NAME
Definition: ri-util-local.h:1106
IEOR_OPERATOR_NAME
#define IEOR_OPERATOR_NAME
Definition: ri-util-local.h:314
LRAND48_FUNCTION_NAME
#define LRAND48_FUNCTION_NAME
Definition: ri-util-local.h:389
LLRINT_OPERATOR_NAME
#define LLRINT_OPERATOR_NAME
Definition: ri-util-local.h:712
ACOSHL_OPERATOR_NAME
#define ACOSHL_OPERATOR_NAME
Definition: ri-util-local.h:614
ISPUNCT_OPERATOR_NAME
#define ISPUNCT_OPERATOR_NAME
Definition: ri-util-local.h:545
STRERROR_R_FUNCTION_NAME
#define STRERROR_R_FUNCTION_NAME
Definition: ri-util-local.h:1066
NEXTTOWARDL_OPERATOR_NAME
#define NEXTTOWARDL_OPERATOR_NAME
Definition: ri-util-local.h:744
ERR_FUNCTION_NAME
#define ERR_FUNCTION_NAME
F2008.
Definition: ri-util-local.h:339
C_GREATER_THAN_OPERATOR_NAME
#define C_GREATER_THAN_OPERATOR_NAME
Definition: ri-util-local.h:264
CPOW_OPERATOR_NAME
#define CPOW_OPERATOR_NAME
Definition: ri-util-local.h:510
DSQRT_OPERATOR_NAME
#define DSQRT_OPERATOR_NAME
Definition: ri-util-local.h:134
MPI_IBSEND_FUNCTION_NAME
#define MPI_IBSEND_FUNCTION_NAME
Definition: ri-util-local.h:2360
C_CCOS_OPERATOR_NAME
#define C_CCOS_OPERATOR_NAME
Definition: ri-util-local.h:474
SSCANF_FUNCTION_NAME
#define SSCANF_FUNCTION_NAME
Definition: ri-util-local.h:927
SINF_OPERATOR_NAME
#define SINF_OPERATOR_NAME
Definition: ri-util-local.h:607
C_MODULO_OPERATOR_NAME
#define C_MODULO_OPERATOR_NAME
Definition: ri-util-local.h:190
MPI_RSEND_FUNCTION_NAME
#define MPI_RSEND_FUNCTION_NAME
Definition: ri-util-local.h:2355
ISDIGIT_OPERATOR_NAME
#define ISDIGIT_OPERATOR_NAME
Definition: ri-util-local.h:541
A614_FUNCTION_NAME
#define A614_FUNCTION_NAME
Definition: ri-util-local.h:400
COPYSIGNL_OPERATOR_NAME
#define COPYSIGNL_OPERATOR_NAME
Definition: ri-util-local.h:735
CACOSHL_OPERATOR_NAME
#define CACOSHL_OPERATOR_NAME
Definition: ri-util-local.h:485
STRCPY_FUNCTION_NAME
#define STRCPY_FUNCTION_NAME
Definition: ri-util-local.h:1045
MINUS_OPERATOR_NAME
#define MINUS_OPERATOR_NAME
Definition: ri-util-local.h:113
IDIM_OPERATOR_NAME
#define IDIM_OPERATOR_NAME
Definition: ri-util-local.h:128
CSINHF_OPERATOR_NAME
#define CSINHF_OPERATOR_NAME
Definition: ri-util-local.h:496
INITSTATE_FUNCTION_NAME
#define INITSTATE_FUNCTION_NAME
Definition: ri-util-local.h:406
C_COSH_OPERATOR_NAME
#define C_COSH_OPERATOR_NAME
Definition: ri-util-local.h:621
DUP2_FUNCTION_NAME
#define DUP2_FUNCTION_NAME
Definition: ri-util-local.h:805
GETWC_FUNCTION_NAME
#define GETWC_FUNCTION_NAME
Definition: ri-util-local.h:1095
_TOUPPER_OPERATOR_NAME
#define _TOUPPER_OPERATOR_NAME
Definition: ri-util-local.h:556
EXP2L_OPERATOR_NAME
#define EXP2L_OPERATOR_NAME
Definition: ri-util-local.h:635
LGAMMAF_OPERATOR_NAME
#define LGAMMAF_OPERATOR_NAME
Definition: ri-util-local.h:692
ATOF_FUNCTION_NAME
#define ATOF_FUNCTION_NAME
random functions of <stdlib.h>
Definition: ri-util-local.h:1001
ETIME_FUNCTION_NAME
#define ETIME_FUNCTION_NAME
Definition: ri-util-local.h:329
ILOGBF_OPERATOR_NAME
#define ILOGBF_OPERATOR_NAME
Definition: ri-util-local.h:641
AINT_CONVERSION_NAME
#define AINT_CONVERSION_NAME
Definition: ri-util-local.h:235
STRTOUL_FUNCTION_NAME
#define STRTOUL_FUNCTION_NAME
Definition: ri-util-local.h:1010
LESS_THAN_OPERATOR_NAME
#define LESS_THAN_OPERATOR_NAME
Definition: ri-util-local.h:267
DNINT_CONVERSION_NAME
#define DNINT_CONVERSION_NAME
Definition: ri-util-local.h:238
PUTC_FUNCTION_NAME
#define PUTC_FUNCTION_NAME
Definition: ri-util-local.h:947
ISFINITE_OPERATOR_NAME
#define ISFINITE_OPERATOR_NAME
Definition: ri-util-local.h:584
CCOSH_OPERATOR_NAME
#define CCOSH_OPERATOR_NAME
Definition: ri-util-local.h:492
CLOG_OPERATOR_NAME
#define CLOG_OPERATOR_NAME
Definition: ri-util-local.h:144
VSSCANF_FUNCTION_NAME
#define VSSCANF_FUNCTION_NAME
Definition: ri-util-local.h:938
DINT_CONVERSION_NAME
#define DINT_CONVERSION_NAME
Definition: ri-util-local.h:236
MKTEMP_FUNCTION_NAME
#define MKTEMP_FUNCTION_NAME
Definition: ri-util-local.h:408
IABS_OPERATOR_NAME
#define IABS_OPERATOR_NAME
Definition: ri-util-local.h:206
FLOORF_OPERATOR_NAME
#define FLOORF_OPERATOR_NAME
Definition: ri-util-local.h:701
ERRX_FUNCTION_NAME
#define ERRX_FUNCTION_NAME
Definition: ri-util-local.h:340
EQUIV_OPERATOR_NAME
#define EQUIV_OPERATOR_NAME
Definition: ri-util-local.h:253
STRTOL_FUNCTION_NAME
#define STRTOL_FUNCTION_NAME
Definition: ri-util-local.h:1008
WCSTOLL_FUNCTION_NAME
#define WCSTOLL_FUNCTION_NAME
Definition: ri-util-local.h:1104
CLOGF_OPERATOR_NAME
#define CLOGF_OPERATOR_NAME
Definition: ri-util-local.h:505
NRAND48_FUNCTION_NAME
#define NRAND48_FUNCTION_NAME
Definition: ri-util-local.h:391
SCALBLNL_OPERATOR_NAME
#define SCALBLNL_OPERATOR_NAME
Definition: ri-util-local.h:668
CTAN_OPERATOR_NAME
#define CTAN_OPERATOR_NAME
Definition: ri-util-local.h:480
ASM_FUNCTION_NAME
#define ASM_FUNCTION_NAME
__asm function
Definition: ri-util-local.h:1906
Y0_OPERATOR_NAME
#define Y0_OPERATOR_NAME
Definition: ri-util-local.h:1186
DIVIDE_UPDATE_OPERATOR_NAME
#define DIVIDE_UPDATE_OPERATOR_NAME
Definition: ri-util-local.h:102
WSCANF_FUNCTION_NAME
#define WSCANF_FUNCTION_NAME
Definition: ri-util-local.h:1089
RAISE_FUNCTION_NAME
#define RAISE_FUNCTION_NAME
Definition: ri-util-local.h:767
CEILF_OPERATOR_NAME
#define CEILF_OPERATOR_NAME
Definition: ri-util-local.h:698
FSEEK_FUNCTION_NAME
#define FSEEK_FUNCTION_NAME
Definition: ri-util-local.h:954
ISGREATER_OPERATOR_NAME
#define ISGREATER_OPERATOR_NAME
Definition: ri-util-local.h:757
C_SQRT_OPERATOR_NAME
#define C_SQRT_OPERATOR_NAME
Definition: ri-util-local.h:681
MPI_IRSEND_FUNCTION_NAME
#define MPI_IRSEND_FUNCTION_NAME
Definition: ri-util-local.h:2359
USLEEP_FUNCTION_NAME
#define USLEEP_FUNCTION_NAME
Definition: ri-util-local.h:793
STRCHR_FUNCTION_NAME
#define STRCHR_FUNCTION_NAME
Definition: ri-util-local.h:1056
MODF_OPERATOR_NAME
#define MODF_OPERATOR_NAME
Definition: ri-util-local.h:661
GETOPT_FUNCTION_NAME
#define GETOPT_FUNCTION_NAME
Definition: ri-util-local.h:422
CBRT_OPERATOR_NAME
#define CBRT_OPERATOR_NAME
Definition: ri-util-local.h:669
C_164A_FUNCTION_NAME
#define C_164A_FUNCTION_NAME
Definition: ri-util-local.h:407
ATOLL_FUNCTION_NAME
#define ATOLL_FUNCTION_NAME
Definition: ri-util-local.h:1004
ISATTY_FUNCTION_NAME
#define ISATTY_FUNCTION_NAME
Definition: ri-util-local.h:850
FGETWS_FUNCTION_NAME
#define FGETWS_FUNCTION_NAME
Definition: ri-util-local.h:1091
COMMA_OPERATOR_NAME
#define COMMA_OPERATOR_NAME
Definition: ri-util-local.h:109
MODULO_UPDATE_OPERATOR_NAME
#define MODULO_UPDATE_OPERATOR_NAME
Definition: ri-util-local.h:184
POINT_TO_OPERATOR_NAME
#define POINT_TO_OPERATOR_NAME
Definition: ri-util-local.h:92
CSQRTF_OPERATOR_NAME
#define CSQRTF_OPERATOR_NAME
Definition: ri-util-local.h:514
_IO_GETC_FUNCTION_NAME
#define _IO_GETC_FUNCTION_NAME
Definition: ri-util-local.h:945
ISWLOWER_OPERATOR_NAME
#define ISWLOWER_OPERATOR_NAME
Definition: ri-util-local.h:1147
PUTCHAR_FUNCTION_NAME
#define PUTCHAR_FUNCTION_NAME
Definition: ri-util-local.h:949
PLUS_OPERATOR_NAME
#define PLUS_OPERATOR_NAME
Definition: ri-util-local.h:111
LOG10_OPERATOR_NAME
#define LOG10_OPERATOR_NAME
Definition: ri-util-local.h:146
VPRINTF_FUNCTION_NAME
#define VPRINTF_FUNCTION_NAME
Definition: ri-util-local.h:934
LENGTH_OPERATOR_NAME
#define LENGTH_OPERATOR_NAME
Definition: ri-util-local.h:211
CATAN_OPERATOR_NAME
#define CATAN_OPERATOR_NAME
Definition: ri-util-local.h:471
LOG2F_OPERATOR_NAME
#define LOG2F_OPERATOR_NAME
Definition: ri-util-local.h:656
SWAB_FUNCTION_NAME
#define SWAB_FUNCTION_NAME
Definition: ri-util-local.h:898
SIGNAL_OPERATOR_NAME
#define SIGNAL_OPERATOR_NAME
signal.h
Definition: ri-util-local.h:766
STRTOK_FUNCTION_NAME
#define STRTOK_FUNCTION_NAME
Definition: ri-util-local.h:1062
GCC_CREAL_OPERATOR_NAME
#define GCC_CREAL_OPERATOR_NAME
Definition: ri-util-local.h:530
DCOSH_OPERATOR_NAME
#define DCOSH_OPERATOR_NAME
Definition: ri-util-local.h:170
DIM_OPERATOR_NAME
#define DIM_OPERATOR_NAME
Definition: ri-util-local.h:127
LOCALTIME_FUNCTION_NAME
#define LOCALTIME_FUNCTION_NAME
Definition: ri-util-local.h:1072
IOCTL_FUNCTION_NAME
#define IOCTL_FUNCTION_NAME
Definition: ri-util-local.h:1172
EXPF_OPERATOR_NAME
#define EXPF_OPERATOR_NAME
Definition: ri-util-local.h:631
WCSCAT_FUNCTION_NAME
#define WCSCAT_FUNCTION_NAME
Definition: ri-util-local.h:1111
LRINTF_OPERATOR_NAME
#define LRINTF_OPERATOR_NAME
Definition: ri-util-local.h:710
LLRINTL_OPERATOR_NAME
#define LLRINTL_OPERATOR_NAME
Definition: ri-util-local.h:714
_EXIT_FUNCTION_NAME
#define _EXIT_FUNCTION_NAME
Definition: ri-util-local.h:1022
SPRINTF_FUNCTION_NAME
#define SPRINTF_FUNCTION_NAME
Definition: ri-util-local.h:943
TANL_OPERATOR_NAME
#define TANL_OPERATOR_NAME
Definition: ri-util-local.h:611
DIMAG_CONVERSION_NAME
#define DIMAG_CONVERSION_NAME
Definition: ri-util-local.h:242
MVBITS_OPERATOR_NAME
#define MVBITS_OPERATOR_NAME
Definition: ri-util-local.h:308
FMAL_OPERATOR_NAME
#define FMAL_OPERATOR_NAME
Definition: ri-util-local.h:756
LDEXP_OPERATOR_NAME
#define LDEXP_OPERATOR_NAME
Definition: ri-util-local.h:643
SIN_OPERATOR_NAME
#define SIN_OPERATOR_NAME
Definition: ri-util-local.h:149
RAND_FUNCTION_NAME
#define RAND_FUNCTION_NAME
Definition: ri-util-local.h:1012
SINGLE_TO_DECIMAL_OPERATOR_NAME
#define SINGLE_TO_DECIMAL_OPERATOR_NAME
Definition: ri-util-local.h:1200
RANDOM_FUNCTION_NAME
#define RANDOM_FUNCTION_NAME
Definition: ri-util-local.h:436
C_COS_OPERATOR_NAME
#define C_COS_OPERATOR_NAME
Definition: ri-util-local.h:603
FMAX_OPERATOR_NAME
#define FMAX_OPERATOR_NAME
Definition: ri-util-local.h:748
TMPFILE64_FUNCTION_NAME
#define TMPFILE64_FUNCTION_NAME
Definition: ri-util-local.h:990
EXPL_OPERATOR_NAME
#define EXPL_OPERATOR_NAME
Definition: ri-util-local.h:632
NEARBYINTL_OPERATOR_NAME
#define NEARBYINTL_OPERATOR_NAME
Definition: ri-util-local.h:705
EQUAL_OPERATOR_NAME
#define EQUAL_OPERATOR_NAME
Definition: ri-util-local.h:269
CEXPF_OPERATOR_NAME
#define CEXPF_OPERATOR_NAME
Definition: ri-util-local.h:502
FTELLO_FUNCTION_NAME
#define FTELLO_FUNCTION_NAME
Definition: ri-util-local.h:987
WMEMMOVE_FUNCTION_NAME
#define WMEMMOVE_FUNCTION_NAME
Definition: ri-util-local.h:1110
STRRCHR_FUNCTION_NAME
#define STRRCHR_FUNCTION_NAME
Definition: ri-util-local.h:1059
FPUTWC_FUNCTION_NAME
#define FPUTWC_FUNCTION_NAME
Definition: ri-util-local.h:1092
STRNCAT_FUNCTION_NAME
#define STRNCAT_FUNCTION_NAME
Definition: ri-util-local.h:1049
QGCONVERT_OPERATOR_NAME
#define QGCONVERT_OPERATOR_NAME
Definition: ri-util-local.h:1219
QGCVT_FUNCTION_NAME
#define QGCVT_FUNCTION_NAME
Definition: ri-util-local.h:418
FETESTEXCEPT_FUNCTION_NAME
#define FETESTEXCEPT_FUNCTION_NAME
Definition: ri-util-local.h:570
FMODL_OPERATOR_NAME
#define FMODL_OPERATOR_NAME
Definition: ri-util-local.h:729
REMAINDER_OPERATOR_NAME
#define REMAINDER_OPERATOR_NAME
Definition: ri-util-local.h:1191
WARN_FUNCTION_NAME
#define WARN_FUNCTION_NAME
Definition: ri-util-local.h:341
MEMCMP_FUNCTION_NAME
#define MEMCMP_FUNCTION_NAME
Definition: ri-util-local.h:1050
WCSCSPN_FUNCTION_NAME
#define WCSCSPN_FUNCTION_NAME
Definition: ri-util-local.h:1119
FMIN_OPERATOR_NAME
#define FMIN_OPERATOR_NAME
Definition: ri-util-local.h:751
C_CSQRT_OPERATOR_NAME
#define C_CSQRT_OPERATOR_NAME
Definition: ri-util-local.h:513
ISWUPPER_OPERATOR_NAME
#define ISWUPPER_OPERATOR_NAME
Definition: ri-util-local.h:1151
LROUNDL_OPERATOR_NAME
#define LROUNDL_OPERATOR_NAME
Definition: ri-util-local.h:720
MBSRTOWCS_FUNCTION_NAME
#define MBSRTOWCS_FUNCTION_NAME
Definition: ri-util-local.h:1135
ATANHL_OPERATOR_NAME
#define ATANHL_OPERATOR_NAME
Definition: ri-util-local.h:620
FDOPEN_FUNCTION_NAME
#define FDOPEN_FUNCTION_NAME
Definition: ri-util-local.h:977
EXPM1_OPERATOR_NAME
#define EXPM1_OPERATOR_NAME
Definition: ri-util-local.h:636
CREALL_OPERATOR_NAME
#define CREALL_OPERATOR_NAME
Definition: ri-util-local.h:532
WCSCPY_FUNCTION_NAME
#define WCSCPY_FUNCTION_NAME
Definition: ri-util-local.h:1107
WCSTOF_FUNCTION_NAME
#define WCSTOF_FUNCTION_NAME
Definition: ri-util-local.h:1101
CPROJL_OPERATOR_NAME
#define CPROJL_OPERATOR_NAME
Definition: ri-util-local.h:528
CLOGL_OPERATOR_NAME
#define CLOGL_OPERATOR_NAME
Definition: ri-util-local.h:506
IBITS_OPERATOR_NAME
#define IBITS_OPERATOR_NAME
Definition: ri-util-local.h:307
DLOG10_OPERATOR_NAME
#define DLOG10_OPERATOR_NAME
Definition: ri-util-local.h:148
DCONJG_OPERATOR_NAME
#define DCONJG_OPERATOR_NAME
Definition: ri-util-local.h:132
FREOPEN_FUNCTION_NAME
#define FREOPEN_FUNCTION_NAME
Definition: ri-util-local.h:970
CCOSHF_OPERATOR_NAME
#define CCOSHF_OPERATOR_NAME
Definition: ri-util-local.h:493
QSORT_FUNCTION_NAME
#define QSORT_FUNCTION_NAME
Definition: ri-util-local.h:1026
CALLOC_FUNCTION_NAME
#define CALLOC_FUNCTION_NAME
Definition: ri-util-local.h:1014
ILOGBL_OPERATOR_NAME
#define ILOGBL_OPERATOR_NAME
Definition: ri-util-local.h:642
CSINHL_OPERATOR_NAME
#define CSINHL_OPERATOR_NAME
Definition: ri-util-local.h:497
MAX0_OPERATOR_NAME
#define MAX0_OPERATOR_NAME
Definition: ri-util-local.h:200
J1_OPERATOR_NAME
#define J1_OPERATOR_NAME
Definition: ri-util-local.h:1184
AMIN0_OPERATOR_NAME
#define AMIN0_OPERATOR_NAME
Definition: ri-util-local.h:196
SETLOCALE_FUNCTION_NAME
#define SETLOCALE_FUNCTION_NAME
include <locale.h>
Definition: ri-util-local.h:579
PSELECT_FUNCTION_NAME
#define PSELECT_FUNCTION_NAME
Definition: ri-util-local.h:1174
GETPW_FUNCTION_NAME
#define GETPW_FUNCTION_NAME
Definition: ri-util-local.h:427
ECONVERT_OPERATOR_NAME
#define ECONVERT_OPERATOR_NAME
Definition: ri-util-local.h:1214
CLOCK_FUNCTION_NAME
#define CLOCK_FUNCTION_NAME
time.h
Definition: ri-util-local.h:1221
POWF_OPERATOR_NAME
#define POWF_OPERATOR_NAME
Definition: ri-util-local.h:679
SCALBLN_OPERATOR_NAME
#define SCALBLN_OPERATOR_NAME
Definition: ri-util-local.h:666
FOPEN_FUNCTION_NAME
#define FOPEN_FUNCTION_NAME
Definition: ri-util-local.h:922
RETURN_FUNCTION_NAME
#define RETURN_FUNCTION_NAME
Definition: ri-util-local.h:275
C_ASINH_OPERATOR_NAME
#define C_ASINH_OPERATOR_NAME
Definition: ri-util-local.h:615
BACKSPACE_FUNCTION_NAME
#define BACKSPACE_FUNCTION_NAME
Definition: ri-util-local.h:296
ISOC99_VSSCANF_FUNCTION_NAME
#define ISOC99_VSSCANF_FUNCTION_NAME
Definition: ri-util-local.h:939
CARGL_OPERATOR_NAME
#define CARGL_OPERATOR_NAME
Definition: ri-util-local.h:518
DEREFERENCING_OPERATOR_NAME
#define DEREFERENCING_OPERATOR_NAME
Definition: ri-util-local.h:93
CEILL_OPERATOR_NAME
#define CEILL_OPERATOR_NAME
Definition: ri-util-local.h:699
CASE_FUNCTION_NAME
#define CASE_FUNCTION_NAME
Definition: ri-util-local.h:282
MIN0_OPERATOR_NAME
#define MIN0_OPERATOR_NAME
Definition: ri-util-local.h:194
LRINT_OPERATOR_NAME
#define LRINT_OPERATOR_NAME
Definition: ri-util-local.h:709
CSINF_OPERATOR_NAME
#define CSINF_OPERATOR_NAME
Definition: ri-util-local.h:478
VFWPRINTF_FUNCTION_NAME
#define VFWPRINTF_FUNCTION_NAME
Definition: ri-util-local.h:1082
PIPS_C_MAX_OPERATOR_NAME
#define PIPS_C_MAX_OPERATOR_NAME
Definition: ri-util-local.h:452
JRAND48_FUNCTION_NAME
#define JRAND48_FUNCTION_NAME
Definition: ri-util-local.h:387
GETCHAR_FUNCTION_NAME
#define GETCHAR_FUNCTION_NAME
Definition: ri-util-local.h:946
C_CABS_OPERATOR_NAME
#define C_CABS_OPERATOR_NAME
Definition: ri-util-local.h:507
__ERRNO_LOCATION_OPERATOR_NAME
#define __ERRNO_LOCATION_OPERATOR_NAME
bits/errno.h
Definition: ri-util-local.h:563
UNLINK_FUNCTION_NAME
#define UNLINK_FUNCTION_NAME
Definition: ri-util-local.h:858
ASINL_OPERATOR_NAME
#define ASINL_OPERATOR_NAME
Definition: ri-util-local.h:596
CREAT_FUNCTION_NAME
#define CREAT_FUNCTION_NAME
Definition: ri-util-local.h:1164
HYPOTL_OPERATOR_NAME
#define HYPOTL_OPERATOR_NAME
Definition: ri-util-local.h:677
LOG2L_OPERATOR_NAME
#define LOG2L_OPERATOR_NAME
Definition: ri-util-local.h:657
STRCSPN_FUNCTION_NAME
#define STRCSPN_FUNCTION_NAME
Definition: ri-util-local.h:1057
MAX1_OPERATOR_NAME
#define MAX1_OPERATOR_NAME
Definition: ri-util-local.h:202
WPRINTF_FUNCTION_NAME
#define WPRINTF_FUNCTION_NAME
Definition: ri-util-local.h:1088
FIELD_OPERATOR_NAME
#define FIELD_OPERATOR_NAME
Definition: ri-util-local.h:91
SFCONVERT_OPERATOR_NAME
#define SFCONVERT_OPERATOR_NAME
Definition: ri-util-local.h:1212
ROUNDF_OPERATOR_NAME
#define ROUNDF_OPERATOR_NAME
Definition: ri-util-local.h:716
HYPOT_OPERATOR_NAME
#define HYPOT_OPERATOR_NAME
Definition: ri-util-local.h:675
WMEMCMP_FUNCTION_NAME
#define WMEMCMP_FUNCTION_NAME
Definition: ri-util-local.h:1117
CARGF_OPERATOR_NAME
#define CARGF_OPERATOR_NAME
Definition: ri-util-local.h:517
NON_EQUIV_OPERATOR_NAME
#define NON_EQUIV_OPERATOR_NAME
Definition: ri-util-local.h:254
CEIL_OPERATOR_NAME
#define CEIL_OPERATOR_NAME
Definition: ri-util-local.h:697
C_CLOG_OPERATOR_NAME
#define C_CLOG_OPERATOR_NAME
Definition: ri-util-local.h:504
LGAMMAL_OPERATOR_NAME
#define LGAMMAL_OPERATOR_NAME
Definition: ri-util-local.h:693
ISOC99_SSCANF_FUNCTION_NAME
#define ISOC99_SSCANF_FUNCTION_NAME
Definition: ri-util-local.h:928
WCTRANS_OPERATOR_NAME
#define WCTRANS_OPERATOR_NAME
Definition: ri-util-local.h:1158
MATHERR_OPERATOR_NAME
#define MATHERR_OPERATOR_NAME
Definition: ri-util-local.h:1194
CASINH_OPERATOR_NAME
#define CASINH_OPERATOR_NAME
Definition: ri-util-local.h:486
FABSL_OPERATOR_NAME
#define FABSL_OPERATOR_NAME
Definition: ri-util-local.h:674
C_NON_EQUAL_OPERATOR_NAME
#define C_NON_EQUAL_OPERATOR_NAME
Definition: ri-util-local.h:189
ISWPRINT_OPERATOR_NAME
#define ISWPRINT_OPERATOR_NAME
Definition: ri-util-local.h:1148
MODFF_OPERATOR_NAME
#define MODFF_OPERATOR_NAME
Definition: ri-util-local.h:1198
LEFT_SHIFT_UPDATE_OPERATOR_NAME
#define LEFT_SHIFT_UPDATE_OPERATOR_NAME
Definition: ri-util-local.h:105
LDEXPF_OPERATOR_NAME
#define LDEXPF_OPERATOR_NAME
Definition: ri-util-local.h:644
SCALB_OPERATOR_NAME
#define SCALB_OPERATOR_NAME
Definition: ri-util-local.h:665
ATOQ_FUNCTION_NAME
#define ATOQ_FUNCTION_NAME
Definition: ri-util-local.h:435
BTOWC_FUNCTION_NAME
#define BTOWC_FUNCTION_NAME
Definition: ri-util-local.h:1129
OPEN64_FUNCTION_NAME
#define OPEN64_FUNCTION_NAME
Definition: ri-util-local.h:1166
IMS_OPERATOR_NAME
#define IMS_OPERATOR_NAME
Definition: ri-util-local.h:1242
WCTOB_FUNCTION_NAME
#define WCTOB_FUNCTION_NAME
Definition: ri-util-local.h:1130
FMINL_OPERATOR_NAME
#define FMINL_OPERATOR_NAME
Definition: ri-util-local.h:753
STRTOLD_FUNCTION_NAME
#define STRTOLD_FUNCTION_NAME
Definition: ri-util-local.h:1007
MEMCPY_FUNCTION_NAME
#define MEMCPY_FUNCTION_NAME
include <string.h>
Definition: ri-util-local.h:1043
DECIMAL_TO_DOUBLE_OPERATOR_NAME
#define DECIMAL_TO_DOUBLE_OPERATOR_NAME
Definition: ri-util-local.h:1205
REAL_MODULO_OPERATOR_NAME
#define REAL_MODULO_OPERATOR_NAME
Definition: ri-util-local.h:122
SETVBUF_FUNCTION_NAME
#define SETVBUF_FUNCTION_NAME
Definition: ri-util-local.h:972
ISBLANK_OPERATOR_NAME
#define ISBLANK_OPERATOR_NAME
Definition: ri-util-local.h:539
QFCVT_FUNCTION_NAME
#define QFCVT_FUNCTION_NAME
Definition: ri-util-local.h:417
STRXFRM_FUNCTION_NAME
#define STRXFRM_FUNCTION_NAME
Definition: ri-util-local.h:1054
DATA_LIST_FUNCTION_NAME
#define DATA_LIST_FUNCTION_NAME
Definition: ri-util-local.h:81
LLABS_FUNCTION_NAME
#define LLABS_FUNCTION_NAME
Definition: ri-util-local.h:1029
CCOSHL_OPERATOR_NAME
#define CCOSHL_OPERATOR_NAME
Definition: ri-util-local.h:494
ILOGB_OPERATOR_NAME
#define ILOGB_OPERATOR_NAME
Definition: ri-util-local.h:640
GETW_FUNCTION_NAME
#define GETW_FUNCTION_NAME
Definition: ri-util-local.h:983
LOG10L_OPERATOR_NAME
#define LOG10L_OPERATOR_NAME
Definition: ri-util-local.h:651
NEARBYINT_OPERATOR_NAME
#define NEARBYINT_OPERATOR_NAME
Definition: ri-util-local.h:703
CONJG_OPERATOR_NAME
#define CONJG_OPERATOR_NAME
Definition: ri-util-local.h:131
ASINHL_OPERATOR_NAME
#define ASINHL_OPERATOR_NAME
Definition: ri-util-local.h:617
ISOC99_SCANF_FUNCTION_NAME
#define ISOC99_SCANF_FUNCTION_NAME
Definition: ri-util-local.h:911
C_TAN_OPERATOR_NAME
#define C_TAN_OPERATOR_NAME
Definition: ri-util-local.h:609
GCVT_FUNCTION_NAME
#define GCVT_FUNCTION_NAME
Definition: ri-util-local.h:403
WCSTOUL_FUNCTION_NAME
#define WCSTOUL_FUNCTION_NAME
Definition: ri-util-local.h:1105
LOGBL_OPERATOR_NAME
#define LOGBL_OPERATOR_NAME
Definition: ri-util-local.h:660
C_SIN_OPERATOR_NAME
#define C_SIN_OPERATOR_NAME
Definition: ri-util-local.h:606
AMAX0_OPERATOR_NAME
#define AMAX0_OPERATOR_NAME
Definition: ri-util-local.h:201
VFSCANF_FUNCTION_NAME
#define VFSCANF_FUNCTION_NAME
Definition: ri-util-local.h:931
CCOSL_OPERATOR_NAME
#define CCOSL_OPERATOR_NAME
Definition: ri-util-local.h:476
GETOPT_LONG_ONLY_FUNCTION_NAME
#define GETOPT_LONG_ONLY_FUNCTION_NAME
Definition: ri-util-local.h:424
FFLUSH_FUNCTION_NAME
#define FFLUSH_FUNCTION_NAME
Definition: ri-util-local.h:969
STRDUP_FUNCTION_NAME
#define STRDUP_FUNCTION_NAME
Definition: ri-util-local.h:1046
ROUNDL_OPERATOR_NAME
#define ROUNDL_OPERATOR_NAME
Definition: ri-util-local.h:717
GETWCHAR_FUNCTION_NAME
#define GETWCHAR_FUNCTION_NAME
Definition: ri-util-local.h:1096
ISWBLANK_OPERATOR_NAME
#define ISWBLANK_OPERATOR_NAME
Definition: ri-util-local.h:1143
FMAXF_OPERATOR_NAME
#define FMAXF_OPERATOR_NAME
Definition: ri-util-local.h:749
REWIND_FUNCTION_NAME
#define REWIND_FUNCTION_NAME
Definition: ri-util-local.h:292
LROUND_OPERATOR_NAME
#define LROUND_OPERATOR_NAME
Definition: ri-util-local.h:718
LLROUNDL_OPERATOR_NAME
#define LLROUNDL_OPERATOR_NAME
Definition: ri-util-local.h:723
DMAX1_OPERATOR_NAME
#define DMAX1_OPERATOR_NAME
Definition: ri-util-local.h:204
RENAME_FUNCTION_NAME
#define RENAME_FUNCTION_NAME
Definition: ri-util-local.h:966
IBSET_OPERATOR_NAME
#define IBSET_OPERATOR_NAME
Definition: ri-util-local.h:310
CDSQRT_OPERATOR_NAME
#define CDSQRT_OPERATOR_NAME
Definition: ri-util-local.h:136
FWPRINTF_FUNCTION_NAME
#define FWPRINTF_FUNCTION_NAME
include <wchar.h>
Definition: ri-util-local.h:1078
IFIX_GENERIC_CONVERSION_NAME
#define IFIX_GENERIC_CONVERSION_NAME
Definition: ri-util-local.h:221
FREE_FUNCTION_NAME
#define FREE_FUNCTION_NAME
Definition: ri-util-local.h:1015
ACOS_OPERATOR_NAME
#define ACOS_OPERATOR_NAME
Definition: ri-util-local.h:161
EXPM1F_OPERATOR_NAME
#define EXPM1F_OPERATOR_NAME
Definition: ri-util-local.h:637
FPRINTF_FUNCTION_NAME
#define FPRINTF_FUNCTION_NAME
Definition: ri-util-local.h:909
WCSNCPY_FUNCTION_NAME
#define WCSNCPY_FUNCTION_NAME
Definition: ri-util-local.h:1108
MULTIPLY_UPDATE_OPERATOR_NAME
#define MULTIPLY_UPDATE_OPERATOR_NAME
Definition: ri-util-local.h:101
GETSUBOPT_FUNCTION_NAME
#define GETSUBOPT_FUNCTION_NAME
Definition: ri-util-local.h:404
Y1_OPERATOR_NAME
#define Y1_OPERATOR_NAME
Definition: ri-util-local.h:1187
ACOSL_OPERATOR_NAME
#define ACOSL_OPERATOR_NAME
Definition: ri-util-local.h:593
C_READ_FUNCTION_NAME
#define C_READ_FUNCTION_NAME
Definition: ri-util-local.h:784
GETTIMEOFDAY_FUNCTION_NAME
#define GETTIMEOFDAY_FUNCTION_NAME
Definition: ri-util-local.h:1224
C_ACOS_OPERATOR_NAME
#define C_ACOS_OPERATOR_NAME
Definition: ri-util-local.h:591
OPEN_FUNCTION_NAME
#define OPEN_FUNCTION_NAME
Definition: ri-util-local.h:293
END_FUNCTION_NAME
#define END_FUNCTION_NAME
Definition: ri-util-local.h:278
CCOSF_OPERATOR_NAME
#define CCOSF_OPERATOR_NAME
Definition: ri-util-local.h:475
ISWPUNCT_OPERATOR_NAME
#define ISWPUNCT_OPERATOR_NAME
Definition: ri-util-local.h:1149
BSEARCH_FUNCTION_NAME
#define BSEARCH_FUNCTION_NAME
Definition: ri-util-local.h:1025
WMEMSET_FUNCTION_NAME
#define WMEMSET_FUNCTION_NAME
Definition: ri-util-local.h:1127
ISHFTC_OPERATOR_NAME
#define ISHFTC_OPERATOR_NAME
Definition: ri-util-local.h:306
TMPFILE_FUNCTION_NAME
#define TMPFILE_FUNCTION_NAME
Definition: ri-util-local.h:967
C_ABS_FUNCTION_NAME
#define C_ABS_FUNCTION_NAME
Definition: ri-util-local.h:1027
ISNAN_OPERATOR_NAME
#define ISNAN_OPERATOR_NAME
Definition: ri-util-local.h:586
MPI_SEND_FUNCTION_NAME
#define MPI_SEND_FUNCTION_NAME
Definition: ri-util-local.h:2353
FCVT_FUNCTION_NAME
#define FCVT_FUNCTION_NAME
Definition: ri-util-local.h:402
IMPLIED_DO_NAME
#define IMPLIED_DO_NAME
Definition: ri-util-local.h:75
GETOPT_LONG_FUNCTION_NAME
#define GETOPT_LONG_FUNCTION_NAME
Definition: ri-util-local.h:423
ABORT_FUNCTION_NAME
#define ABORT_FUNCTION_NAME
Definition: ri-util-local.h:1019
CREAL_OPERATOR_NAME
#define CREAL_OPERATOR_NAME
Definition: ri-util-local.h:529
CDCOS_OPERATOR_NAME
#define CDCOS_OPERATOR_NAME
Definition: ri-util-local.h:156
INVERSE_OPERATOR_NAME
#define INVERSE_OPERATOR_NAME
Definition: ri-util-local.h:119
ERFF_OPERATOR_NAME
#define ERFF_OPERATOR_NAME
Definition: ri-util-local.h:685
LEFT_SHIFT_OPERATOR_NAME
#define LEFT_SHIFT_OPERATOR_NAME
Definition: ri-util-local.h:173
CDLOG_OPERATOR_NAME
#define CDLOG_OPERATOR_NAME
Definition: ri-util-local.h:145
ISXDIGIT_OPERATOR_NAME
#define ISXDIGIT_OPERATOR_NAME
Definition: ri-util-local.h:548
CONDITIONAL_OPERATOR_NAME
#define CONDITIONAL_OPERATOR_NAME
Definition: ri-util-local.h:187
BREAK_FUNCTION_NAME
#define BREAK_FUNCTION_NAME
Definition: ri-util-local.h:281
CPOWF_OPERATOR_NAME
#define CPOWF_OPERATOR_NAME
Definition: ri-util-local.h:511
SCALBLNF_OPERATOR_NAME
#define SCALBLNF_OPERATOR_NAME
Definition: ri-util-local.h:667
TTYSLOT_FUNCTION_NAME
#define TTYSLOT_FUNCTION_NAME
Definition: ri-util-local.h:851
VFWSCANF_FUNCTION_NAME
#define VFWSCANF_FUNCTION_NAME
Definition: ri-util-local.h:1083
ALOG10_OPERATOR_NAME
#define ALOG10_OPERATOR_NAME
Definition: ri-util-local.h:147
FMODF_OPERATOR_NAME
#define FMODF_OPERATOR_NAME
Definition: ri-util-local.h:728
EXTENDED_TO_DECIMAL_OPERATOR_NAME
#define EXTENDED_TO_DECIMAL_OPERATOR_NAME
Definition: ri-util-local.h:1202
MPI_ISEND_FUNCTION_NAME
#define MPI_ISEND_FUNCTION_NAME
Definition: ri-util-local.h:2357
LLT_OPERATOR_NAME
#define LLT_OPERATOR_NAME
Definition: ri-util-local.h:216
VSPRINTF_FUNCTION_NAME
#define VSPRINTF_FUNCTION_NAME
Definition: ri-util-local.h:942
SETBUFFER_FUNCTION_NAME
#define SETBUFFER_FUNCTION_NAME
Definition: ri-util-local.h:975
C_ASIN_OPERATOR_NAME
#define C_ASIN_OPERATOR_NAME
Definition: ri-util-local.h:594
CLOCK_GETTIME_FUNCTION_NAME
#define CLOCK_GETTIME_FUNCTION_NAME
Definition: ri-util-local.h:1223
C_RETURN_FUNCTION_NAME
#define C_RETURN_FUNCTION_NAME
Definition: ri-util-local.h:284
FSEEKO_FUNCTION_NAME
#define FSEEKO_FUNCTION_NAME
Definition: ri-util-local.h:986
YN_OPERATOR_NAME
#define YN_OPERATOR_NAME
Definition: ri-util-local.h:1188
GETPASS_FUNCTION_NAME
#define GETPASS_FUNCTION_NAME
Definition: ri-util-local.h:880
BUFFEROUT_FUNCTION_NAME
#define BUFFEROUT_FUNCTION_NAME
Definition: ri-util-local.h:299
GRANTPT_FUNCTION_NAME
#define GRANTPT_FUNCTION_NAME
Definition: ri-util-local.h:405
WCSNCAT_FUNCTION_NAME
#define WCSNCAT_FUNCTION_NAME
Definition: ri-util-local.h:1112
CCOS_OPERATOR_NAME
#define CCOS_OPERATOR_NAME
Definition: ri-util-local.h:155
ROUND_OPERATOR_NAME
#define ROUND_OPERATOR_NAME
Definition: ri-util-local.h:715
C_LOC_FUNCTION_NAME
#define C_LOC_FUNCTION_NAME
F2003.
Definition: ri-util-local.h:334
ISGRAPH_OPERATOR_NAME
#define ISGRAPH_OPERATOR_NAME
Definition: ri-util-local.h:542
MPI_INIT_FUNCTION_NAME
#define MPI_INIT_FUNCTION_NAME
PI calls.
Definition: ri-util-local.h:2345
LCONG48_FUNCTION_NAME
#define LCONG48_FUNCTION_NAME
Definition: ri-util-local.h:388
DPROD_OPERATOR_NAME
#define DPROD_OPERATOR_NAME
Definition: ri-util-local.h:130
GETENV_FUNCTION_NAME
#define GETENV_FUNCTION_NAME
Definition: ri-util-local.h:1023
CUSERID_FUNCTION_NAME
#define CUSERID_FUNCTION_NAME
Definition: ri-util-local.h:981
CDSIN_OPERATOR_NAME
#define CDSIN_OPERATOR_NAME
Definition: ri-util-local.h:152
SCALBNF_OPERATOR_NAME
#define SCALBNF_OPERATOR_NAME
Definition: ri-util-local.h:663
LLRINTF_OPERATOR_NAME
#define LLRINTF_OPERATOR_NAME
Definition: ri-util-local.h:713
SINHL_OPERATOR_NAME
#define SINHL_OPERATOR_NAME
Definition: ri-util-local.h:626
AND_OPERATOR_NAME
#define AND_OPERATOR_NAME
FI: intrinsics are defined at a third place after bootstrap and effects! I guess the name should be d...
Definition: ri-util-local.h:248
ISNORMAL_OPERATOR_NAME
#define ISNORMAL_OPERATOR_NAME
Definition: ri-util-local.h:589
MINUS_UPDATE_OPERATOR_NAME
#define MINUS_UPDATE_OPERATOR_NAME
Definition: ri-util-local.h:104
MPI_RECV_FUNCTION_NAME
#define MPI_RECV_FUNCTION_NAME
Definition: ri-util-local.h:2361
ANINT_CONVERSION_NAME
#define ANINT_CONVERSION_NAME
Definition: ri-util-local.h:237
REMOVE_FUNCTION_NAME
#define REMOVE_FUNCTION_NAME
Definition: ri-util-local.h:965
CPROJF_OPERATOR_NAME
#define CPROJF_OPERATOR_NAME
Definition: ri-util-local.h:527
TRUNCL_OPERATOR_NAME
#define TRUNCL_OPERATOR_NAME
Definition: ri-util-local.h:726
UNGETWC_FUNCTION_NAME
#define UNGETWC_FUNCTION_NAME
Definition: ri-util-local.h:1099
SIGNBIT_OPERATOR_NAME
#define SIGNBIT_OPERATOR_NAME
Definition: ri-util-local.h:590
EOLE_FMS_OPERATOR_NAME
#define EOLE_FMS_OPERATOR_NAME
Definition: ri-util-local.h:1235
C_NOT_OPERATOR_NAME
#define C_NOT_OPERATOR_NAME
Definition: ri-util-local.h:188
MKSTEMP64_FUNCTION_NAME
#define MKSTEMP64_FUNCTION_NAME
Definition: ri-util-local.h:399
CATANHL_OPERATOR_NAME
#define CATANHL_OPERATOR_NAME
Definition: ri-util-local.h:491
CABSL_OPERATOR_NAME
#define CABSL_OPERATOR_NAME
Definition: ri-util-local.h:509
INT_TO_CHAR_CONVERSION_NAME
#define INT_TO_CHAR_CONVERSION_NAME
Definition: ri-util-local.h:232
ISWALPHA_OPERATOR_NAME
#define ISWALPHA_OPERATOR_NAME
Definition: ri-util-local.h:1142
FOPEN64_FUNCTION_NAME
#define FOPEN64_FUNCTION_NAME
Definition: ri-util-local.h:988
ASSERT_FAIL_FUNCTION_NAME
#define ASSERT_FAIL_FUNCTION_NAME
Definition: ri-util-local.h:461
OMP_FOR_FUNCTION_NAME
#define OMP_FOR_FUNCTION_NAME
Definition: ri-util-local.h:321
GCONVERT_OPERATOR_NAME
#define GCONVERT_OPERATOR_NAME
Definition: ri-util-local.h:1216
VWSCANF_FUNCTION_NAME
#define VWSCANF_FUNCTION_NAME
Definition: ri-util-local.h:1087
POW_OPERATOR_NAME
#define POW_OPERATOR_NAME
Definition: ri-util-local.h:678
LGAMMA_OPERATOR_NAME
#define LGAMMA_OPERATOR_NAME
Definition: ri-util-local.h:691
CONTINUE_FUNCTION_NAME
#define CONTINUE_FUNCTION_NAME
Definition: ri-util-local.h:272
ACOSF_OPERATOR_NAME
#define ACOSF_OPERATOR_NAME
Definition: ri-util-local.h:592
FMAF_OPERATOR_NAME
#define FMAF_OPERATOR_NAME
Definition: ri-util-local.h:755
ALLOCATE_FUNCTION_NAME
#define ALLOCATE_FUNCTION_NAME
F95.
Definition: ri-util-local.h:327
ISLESS_OPERATOR_NAME
#define ISLESS_OPERATOR_NAME
Definition: ri-util-local.h:759
FSTAT_FUNCTION_NAME
#define FSTAT_FUNCTION_NAME
Definition: ri-util-local.h:1176
WCSTOD_FUNCTION_NAME
#define WCSTOD_FUNCTION_NAME
Definition: ri-util-local.h:1100
__FILSBUF_FUNCTION_NAME
#define __FILSBUF_FUNCTION_NAME
Definition: ri-util-local.h:974
STRTOD_FUNCTION_NAME
#define STRTOD_FUNCTION_NAME
Definition: ri-util-local.h:1005
WCSXFRM_FUNCTION_NAME
#define WCSXFRM_FUNCTION_NAME
Definition: ri-util-local.h:1116
RINT_OPERATOR_NAME
#define RINT_OPERATOR_NAME
Definition: ri-util-local.h:706
LINK_FUNCTION_NAME
#define LINK_FUNCTION_NAME
Definition: ri-util-local.h:852
ISOC99_VSCANF_FUNCTION_NAME
#define ISOC99_VSCANF_FUNCTION_NAME
Definition: ri-util-local.h:936
POSIX_MEMALIGN_FUNCTION_NAME
#define POSIX_MEMALIGN_FUNCTION_NAME
Definition: ri-util-local.h:434
SNPRINTF_FUNCTION_NAME
#define SNPRINTF_FUNCTION_NAME
Definition: ri-util-local.h:926
WCSCMP_FUNCTION_NAME
#define WCSCMP_FUNCTION_NAME
Definition: ri-util-local.h:1113
COPYSIGN_OPERATOR_NAME
#define COPYSIGN_OPERATOR_NAME
Definition: ri-util-local.h:733
CSINH_OPERATOR_NAME
#define CSINH_OPERATOR_NAME
Definition: ri-util-local.h:495
NEXTAFTERL_OPERATOR_NAME
#define NEXTAFTERL_OPERATOR_NAME
Definition: ri-util-local.h:741
COSHF_OPERATOR_NAME
#define COSHF_OPERATOR_NAME
Definition: ri-util-local.h:622
VWPRINTF_FUNCTION_NAME
#define VWPRINTF_FUNCTION_NAME
Definition: ri-util-local.h:1086
COSL_OPERATOR_NAME
#define COSL_OPERATOR_NAME
Definition: ri-util-local.h:605
ADDRESS_OF_OPERATOR_NAME
#define ADDRESS_OF_OPERATOR_NAME
Definition: ri-util-local.h:179
FABSF_OPERATOR_NAME
#define FABSF_OPERATOR_NAME
Definition: ri-util-local.h:673
DOUBLE_TO_DECIMAL_OPERATOR_NAME
#define DOUBLE_TO_DECIMAL_OPERATOR_NAME
Definition: ri-util-local.h:1201
PIPS_MEMORY_BARRIER_OPERATOR_NAME
#define PIPS_MEMORY_BARRIER_OPERATOR_NAME
special pips intrinsics with global effects
Definition: ri-util-local.h:1251
ATOL_FUNCTION_NAME
#define ATOL_FUNCTION_NAME
Definition: ri-util-local.h:1003
C_ATAN2_OPERATOR_NAME
#define C_ATAN2_OPERATOR_NAME
Definition: ri-util-local.h:600
MBRTOWC_FUNCTION_NAME
#define MBRTOWC_FUNCTION_NAME
Definition: ri-util-local.h:1133
PRE_DECREMENT_OPERATOR_NAME
#define PRE_DECREMENT_OPERATOR_NAME
Definition: ri-util-local.h:100
MKSTEMP_FUNCTION_NAME
#define MKSTEMP_FUNCTION_NAME
Definition: ri-util-local.h:398
CHAR_TO_INT_CONVERSION_NAME
#define CHAR_TO_INT_CONVERSION_NAME
Definition: ri-util-local.h:233
FCNTL_FUNCTION_NAME
#define FCNTL_FUNCTION_NAME
include <fcntl.h>
Definition: ri-util-local.h:1163
SQRT_OPERATOR_NAME
#define SQRT_OPERATOR_NAME
Definition: ri-util-local.h:133
MPI_COMM_RANK_FUNCTION_NAME
#define MPI_COMM_RANK_FUNCTION_NAME
Definition: ri-util-local.h:2352
ATAN_OPERATOR_NAME
#define ATAN_OPERATOR_NAME
Definition: ri-util-local.h:163
ATANHF_OPERATOR_NAME
#define ATANHF_OPERATOR_NAME
Definition: ri-util-local.h:619
PUTWCHAR_FUNCTION_NAME
#define PUTWCHAR_FUNCTION_NAME
Definition: ri-util-local.h:1098
ERFL_OPERATOR_NAME
#define ERFL_OPERATOR_NAME
Definition: ri-util-local.h:686
ISIGN_OPERATOR_NAME
#define ISIGN_OPERATOR_NAME
Definition: ri-util-local.h:125
C_CEXP_OPERATOR_NAME
#define C_CEXP_OPERATOR_NAME
Definition: ri-util-local.h:501
STRTOULL_FUNCTION_NAME
#define STRTOULL_FUNCTION_NAME
Definition: ri-util-local.h:1011
TGAMMA_OPERATOR_NAME
#define TGAMMA_OPERATOR_NAME
Definition: ri-util-local.h:694
OMP_OMP_FUNCTION_NAME
#define OMP_OMP_FUNCTION_NAME
Definition: ri-util-local.h:320
UNGETC_FUNCTION_NAME
#define UNGETC_FUNCTION_NAME
Definition: ri-util-local.h:950
STRPBRK_FUNCTION_NAME
#define STRPBRK_FUNCTION_NAME
Definition: ri-util-local.h:1058
SRAND48_FUNCTION_NAME
#define SRAND48_FUNCTION_NAME
Definition: ri-util-local.h:393
GETCWD_FUNCTION_NAME
#define GETCWD_FUNCTION_NAME
Definition: ri-util-local.h:801
OMP_PARALLEL_FUNCTION_NAME
#define OMP_PARALLEL_FUNCTION_NAME
Definition: ri-util-local.h:323
QUADRUPLE_TO_DECIMAL_OPERATOR_NAME
#define QUADRUPLE_TO_DECIMAL_OPERATOR_NAME
Definition: ri-util-local.h:1203
INT_GENERIC_CONVERSION_NAME
#define INT_GENERIC_CONVERSION_NAME
generic conversion names.
Definition: ri-util-local.h:220
C_ATAN_OPERATOR_NAME
#define C_ATAN_OPERATOR_NAME
Definition: ri-util-local.h:597
MPI_COMM_SIZE_FUNCTION_NAME
#define MPI_COMM_SIZE_FUNCTION_NAME
Definition: ri-util-local.h:2351
EXP2F_OPERATOR_NAME
#define EXP2F_OPERATOR_NAME
Definition: ri-util-local.h:634
SELECT_FUNCTION_NAME
#define SELECT_FUNCTION_NAME
Definition: ri-util-local.h:1173
C_CLOSE_FUNCTION_NAME
#define C_CLOSE_FUNCTION_NAME
Definition: ri-util-local.h:783
GETEXECNAME_FUNCTION_NAME
#define GETEXECNAME_FUNCTION_NAME
Definition: ri-util-local.h:420
GAMMA_OPERATOR_NAME
#define GAMMA_OPERATOR_NAME
Definition: ri-util-local.h:690
LGE_OPERATOR_NAME
#define LGE_OPERATOR_NAME
Definition: ri-util-local.h:213
SWSCANF_FUNCTION_NAME
#define SWSCANF_FUNCTION_NAME
Definition: ri-util-local.h:1081
NANOSLEEP_FUNCTION_NAME
#define NANOSLEEP_FUNCTION_NAME
Definition: ri-util-local.h:1074
DIVIDE_OPERATOR_NAME
#define DIVIDE_OPERATOR_NAME
Definition: ri-util-local.h:118
MEMCHR_FUNCTION_NAME
#define MEMCHR_FUNCTION_NAME
Definition: ri-util-local.h:1055
DRAND48_FUNCTION_NAME
#define DRAND48_FUNCTION_NAME
Definition: ri-util-local.h:385
BIT_SIZE_OPERATOR_NAME
#define BIT_SIZE_OPERATOR_NAME
Definition: ri-util-local.h:312
TGAMMAF_OPERATOR_NAME
#define TGAMMAF_OPERATOR_NAME
Definition: ri-util-local.h:695
WRITE_FUNCTION_NAME
#define WRITE_FUNCTION_NAME
Definition: ri-util-local.h:290
SETLINEBUF_FUNCTION_NAME
#define SETLINEBUF_FUNCTION_NAME
Definition: ri-util-local.h:976
NAN_OPERATOR_NAME
#define NAN_OPERATOR_NAME
Definition: ri-util-local.h:736
DABS_OPERATOR_NAME
#define DABS_OPERATOR_NAME
Definition: ri-util-local.h:207
REMAINDERL_OPERATOR_NAME
#define REMAINDERL_OPERATOR_NAME
Definition: ri-util-local.h:732
SINL_OPERATOR_NAME
#define SINL_OPERATOR_NAME
Definition: ri-util-local.h:608
FECLEAREXCEPT_FUNCTION_NAME
#define FECLEAREXCEPT_FUNCTION_NAME
include <fenv.h>
Definition: ri-util-local.h:567
DIFFTIME_FUNCTION_NAME
#define DIFFTIME_FUNCTION_NAME
Definition: ri-util-local.h:1073
CBRTL_OPERATOR_NAME
#define CBRTL_OPERATOR_NAME
Definition: ri-util-local.h:671
SETKEY_FUNCTION_NAME
#define SETKEY_FUNCTION_NAME
Definition: ri-util-local.h:396
JN_OPERATOR_NAME
#define JN_OPERATOR_NAME
Definition: ri-util-local.h:1185
CLOSE_FUNCTION_NAME
#define CLOSE_FUNCTION_NAME
Definition: ri-util-local.h:294
FABS_OPERATOR_NAME
#define FABS_OPERATOR_NAME
Definition: ri-util-local.h:672
GETPASSPHRASE_FUNCTION_NAME
#define GETPASSPHRASE_FUNCTION_NAME
Definition: ri-util-local.h:426
STRCOLL_FUNCTION_NAME
#define STRCOLL_FUNCTION_NAME
Definition: ri-util-local.h:1052
UNARY_MINUS_OPERATOR_NAME
#define UNARY_MINUS_OPERATOR_NAME
Definition: ri-util-local.h:115
MPI_BSEND_FUNCTION_NAME
#define MPI_BSEND_FUNCTION_NAME
Definition: ri-util-local.h:2356
SEND_FUNCTION_NAME
#define SEND_FUNCTION_NAME
SPIRE API.
Definition: ri-util-local.h:2338
AMIN1_OPERATOR_NAME
#define AMIN1_OPERATOR_NAME
Definition: ri-util-local.h:197
LROUNDF_OPERATOR_NAME
#define LROUNDF_OPERATOR_NAME
Definition: ri-util-local.h:719
_IO_PUTC_FUNCTION_NAME
#define _IO_PUTC_FUNCTION_NAME
Definition: ri-util-local.h:948
MPI_IRECV_FUNCTION_NAME
#define MPI_IRECV_FUNCTION_NAME
Definition: ri-util-local.h:2362
DCOS_OPERATOR_NAME
#define DCOS_OPERATOR_NAME
Definition: ri-util-local.h:154
RINTF_OPERATOR_NAME
#define RINTF_OPERATOR_NAME
Definition: ri-util-local.h:707
BITWISE_XOR_UPDATE_OPERATOR_NAME
#define BITWISE_XOR_UPDATE_OPERATOR_NAME
Definition: ri-util-local.h:186
FERAISEEXCEPT_FUNCTION_NAME
#define FERAISEEXCEPT_FUNCTION_NAME
Definition: ri-util-local.h:568
CASINHL_OPERATOR_NAME
#define CASINHL_OPERATOR_NAME
Definition: ri-util-local.h:488
C_OPEN_FUNCTION_NAME
#define C_OPEN_FUNCTION_NAME
Not found in unistd.h.
Definition: ri-util-local.h:904
MPI_SSEND_FUNCTION_NAME
#define MPI_SSEND_FUNCTION_NAME
Definition: ri-util-local.h:2354
LRINTL_OPERATOR_NAME
#define LRINTL_OPERATOR_NAME
Definition: ri-util-local.h:711
ISNANL_OPERATOR_NAME
#define ISNANL_OPERATOR_NAME
Definition: ri-util-local.h:587
QFCONVERT_OPERATOR_NAME
#define QFCONVERT_OPERATOR_NAME
Definition: ri-util-local.h:1218
STRCAT_FUNCTION_NAME
#define STRCAT_FUNCTION_NAME
Definition: ri-util-local.h:1048
ISGREATEREQUAL_OPERATOR_NAME
#define ISGREATEREQUAL_OPERATOR_NAME
Definition: ri-util-local.h:758
CATANHF_OPERATOR_NAME
#define CATANHF_OPERATOR_NAME
Definition: ri-util-local.h:490
TEMPNAM_FUNCTION_NAME
#define TEMPNAM_FUNCTION_NAME
Definition: ri-util-local.h:982
CARG_OPERATOR_NAME
#define CARG_OPERATOR_NAME
Definition: ri-util-local.h:516
LLTOSTR_FUNCTION_NAME
#define LLTOSTR_FUNCTION_NAME
Definition: ri-util-local.h:431
CONCATENATION_FUNCTION_NAME
#define CONCATENATION_FUNCTION_NAME
Definition: ri-util-local.h:287
WCSTOLD_FUNCTION_NAME
#define WCSTOLD_FUNCTION_NAME
Definition: ri-util-local.h:1102
EXP_OPERATOR_NAME
#define EXP_OPERATOR_NAME
Definition: ri-util-local.h:137
STATIC_INITIALIZATION_FUNCTION_NAME
#define STATIC_INITIALIZATION_FUNCTION_NAME
Definition: ri-util-local.h:80
ERAND48_FUNCTION_NAME
#define ERAND48_FUNCTION_NAME
Definition: ri-util-local.h:386
FMA_OPERATOR_NAME
#define FMA_OPERATOR_NAME
Definition: ri-util-local.h:754
WCSPBRK_FUNCTION_NAME
#define WCSPBRK_FUNCTION_NAME
Definition: ri-util-local.h:1120
EOLE_PROD_OPERATOR_NAME
#define EOLE_PROD_OPERATOR_NAME
Definition: ri-util-local.h:1236
VSCANF_FUNCTION_NAME
#define VSCANF_FUNCTION_NAME
Definition: ri-util-local.h:935
HYPOTF_OPERATOR_NAME
#define HYPOTF_OPERATOR_NAME
Definition: ri-util-local.h:676
WMEMCPY_FUNCTION_NAME
#define WMEMCPY_FUNCTION_NAME
Definition: ri-util-local.h:1109
IBCLR_OPERATOR_NAME
#define IBCLR_OPERATOR_NAME
Definition: ri-util-local.h:311
WCSCOLL_FUNCTION_NAME
#define WCSCOLL_FUNCTION_NAME
Definition: ri-util-local.h:1114
CTANH_OPERATOR_NAME
#define CTANH_OPERATOR_NAME
Definition: ri-util-local.h:498
PCLOSE_FUNCTION_NAME
#define PCLOSE_FUNCTION_NAME
Definition: ri-util-local.h:985
SRANDOM_FUNCTION_NAME
#define SRANDOM_FUNCTION_NAME
Definition: ri-util-local.h:437
PIPS_C_MIN_OPERATOR_NAME
#define PIPS_C_MIN_OPERATOR_NAME
PIPS run-time support for C code generation.
Definition: ri-util-local.h:451
LDIV_FUNCTION_NAME
#define LDIV_FUNCTION_NAME
Definition: ri-util-local.h:1031
FSEEKO64_FUNCTION_NAME
#define FSEEKO64_FUNCTION_NAME
Definition: ri-util-local.h:993
ATAN2L_OPERATOR_NAME
#define ATAN2L_OPERATOR_NAME
Definition: ri-util-local.h:602
C_LOG_OPERATOR_NAME
#define C_LOG_OPERATOR_NAME
Definition: ri-util-local.h:646
LOGBF_OPERATOR_NAME
#define LOGBF_OPERATOR_NAME
Definition: ri-util-local.h:659
IMA_OPERATOR_NAME
#define IMA_OPERATOR_NAME
Integer Multiply Add and Sub, FC 27/10/2005 for FI.
Definition: ri-util-local.h:1241
ERF_OPERATOR_NAME
#define ERF_OPERATOR_NAME
Definition: ri-util-local.h:684
UNARY_PLUS_OPERATOR_NAME
#define UNARY_PLUS_OPERATOR_NAME
Definition: ri-util-local.h:116
ASINHF_OPERATOR_NAME
#define ASINHF_OPERATOR_NAME
Definition: ri-util-local.h:616
BRACE_INTRINSIC
#define BRACE_INTRINSIC
Definition: ri-util-local.h:85
NANF_OPERATOR_NAME
#define NANF_OPERATOR_NAME
Definition: ri-util-local.h:737
LOG_OPERATOR_NAME
#define LOG_OPERATOR_NAME
Definition: ri-util-local.h:141
FDIM_OPERATOR_NAME
#define FDIM_OPERATOR_NAME
Definition: ri-util-local.h:745
RIGHT_SHIFT_UPDATE_OPERATOR_NAME
#define RIGHT_SHIFT_UPDATE_OPERATOR_NAME
Definition: ri-util-local.h:106
POPEN_FUNCTION_NAME
#define POPEN_FUNCTION_NAME
Definition: ri-util-local.h:980
ATEXIT_FUNCTION_NAME
#define ATEXIT_FUNCTION_NAME
Definition: ri-util-local.h:1020
LOGL_OPERATOR_NAME
#define LOGL_OPERATOR_NAME
Definition: ri-util-local.h:648
SECOND_FUNCTION_NAME
#define SECOND_FUNCTION_NAME
Definition: ri-util-local.h:1222
DSIN_OPERATOR_NAME
#define DSIN_OPERATOR_NAME
Definition: ri-util-local.h:150
NEXTAFTER_OPERATOR_NAME
#define NEXTAFTER_OPERATOR_NAME
Definition: ri-util-local.h:1190
RINTL_OPERATOR_NAME
#define RINTL_OPERATOR_NAME
Definition: ri-util-local.h:708
FGETS_FUNCTION_NAME
#define FGETS_FUNCTION_NAME
Definition: ri-util-local.h:919
ISSPACE_OPERATOR_NAME
#define ISSPACE_OPERATOR_NAME
Definition: ri-util-local.h:546
FEOF_FUNCTION_NAME
#define FEOF_FUNCTION_NAME
Definition: ri-util-local.h:959
ISLESSGREATER_OPERATOR_NAME
#define ISLESSGREATER_OPERATOR_NAME
Definition: ri-util-local.h:761
FESETROUND_FUNCTION_NAME
#define FESETROUND_FUNCTION_NAME
Definition: ri-util-local.h:572
VERRX_FUNCTION_NAME
#define VERRX_FUNCTION_NAME
Definition: ri-util-local.h:344
C_ATANH_OPERATOR_NAME
#define C_ATANH_OPERATOR_NAME
Definition: ri-util-local.h:618
CSQRT_OPERATOR_NAME
#define CSQRT_OPERATOR_NAME
Definition: ri-util-local.h:135
ISASCII_OPERATOR_NAME
#define ISASCII_OPERATOR_NAME
Definition: ri-util-local.h:553
IOR_OPERATOR_NAME
#define IOR_OPERATOR_NAME
Definition: ri-util-local.h:315
C_SINH_OPERATOR_NAME
#define C_SINH_OPERATOR_NAME
Definition: ri-util-local.h:624
CSQRTL_OPERATOR_NAME
#define CSQRTL_OPERATOR_NAME
Definition: ri-util-local.h:515
ASINF_OPERATOR_NAME
#define ASINF_OPERATOR_NAME
Definition: ri-util-local.h:595
C_LESS_THAN_OPERATOR_NAME
#define C_LESS_THAN_OPERATOR_NAME
Definition: ri-util-local.h:268
ACOSHF_OPERATOR_NAME
#define ACOSHF_OPERATOR_NAME
Definition: ri-util-local.h:613
BITWISE_NOT_OPERATOR_NAME
#define BITWISE_NOT_OPERATOR_NAME
Definition: ri-util-local.h:181
__H_ERRNO_LOCATION_OPERATOR_NAME
#define __H_ERRNO_LOCATION_OPERATOR_NAME
netdb.h
Definition: ri-util-local.h:1227
CATANL_OPERATOR_NAME
#define CATANL_OPERATOR_NAME
Definition: ri-util-local.h:473
CACOSHF_OPERATOR_NAME
#define CACOSHF_OPERATOR_NAME
Definition: ri-util-local.h:484
FLOORL_OPERATOR_NAME
#define FLOORL_OPERATOR_NAME
Definition: ri-util-local.h:702
GREATER_OR_EQUAL_OPERATOR_NAME
#define GREATER_OR_EQUAL_OPERATOR_NAME
Definition: ri-util-local.h:261
TAN_OPERATOR_NAME
#define TAN_OPERATOR_NAME
Definition: ri-util-local.h:157
FILE_TO_DECIMAL_OPERATOR_NAME
#define FILE_TO_DECIMAL_OPERATOR_NAME
Definition: ri-util-local.h:1210
PUTW_FUNCTION_NAME
#define PUTW_FUNCTION_NAME
Definition: ri-util-local.h:984
VWARNX_FUNCTION_NAME
#define VWARNX_FUNCTION_NAME
Definition: ri-util-local.h:346
ERFCF_OPERATOR_NAME
#define ERFCF_OPERATOR_NAME
Definition: ri-util-local.h:688
FILENO_FUNCTION_NAME
#define FILENO_FUNCTION_NAME
Definition: ri-util-local.h:979
STOP_FUNCTION_NAME
#define STOP_FUNCTION_NAME
Definition: ri-util-local.h:276
DECIMAL_TO_EXTENDED_OPERATOR_NAME
#define DECIMAL_TO_EXTENDED_OPERATOR_NAME
Definition: ri-util-local.h:1206
PRE_INCREMENT_OPERATOR_NAME
#define PRE_INCREMENT_OPERATOR_NAME
Definition: ri-util-local.h:99
WCSTOL_FUNCTION_NAME
#define WCSTOL_FUNCTION_NAME
Definition: ri-util-local.h:1103
VWARN_FUNCTION_NAME
#define VWARN_FUNCTION_NAME
Definition: ri-util-local.h:345
STRING_TO_DECIMAL_OPERATOR_NAME
#define STRING_TO_DECIMAL_OPERATOR_NAME
Definition: ri-util-local.h:1208
FTELL_FUNCTION_NAME
#define FTELL_FUNCTION_NAME
Definition: ri-util-local.h:956
CACOSL_OPERATOR_NAME
#define CACOSL_OPERATOR_NAME
Definition: ri-util-local.h:467
CIMAG_OPERATOR_NAME
#define CIMAG_OPERATOR_NAME
Definition: ri-util-local.h:519
EOLE_SUM_OPERATOR_NAME
#define EOLE_SUM_OPERATOR_NAME
Definition: ri-util-local.h:1237
REALPATH_FUNCTION_NAME
#define REALPATH_FUNCTION_NAME
Definition: ri-util-local.h:410
FPUTC_FUNCTION_NAME
#define FPUTC_FUNCTION_NAME
Definition: ri-util-local.h:920
CEXPL_OPERATOR_NAME
#define CEXPL_OPERATOR_NAME
Definition: ri-util-local.h:503
EXITHANDLE_FUNCTION_NAME
#define EXITHANDLE_FUNCTION_NAME
Definition: ri-util-local.h:995
SETBUF_FUNCTION_NAME
#define SETBUF_FUNCTION_NAME
Definition: ri-util-local.h:971
C_CSIN_OPERATOR_NAME
#define C_CSIN_OPERATOR_NAME
Definition: ri-util-local.h:477
POST_INCREMENT_OPERATOR_NAME
#define POST_INCREMENT_OPERATOR_NAME
Definition: ri-util-local.h:97
TMPNAM_FUNCTION_NAME
#define TMPNAM_FUNCTION_NAME
Definition: ri-util-local.h:968
DSINH_OPERATOR_NAME
#define DSINH_OPERATOR_NAME
Definition: ri-util-local.h:168
SIGFPE_OPERATOR_NAME
#define SIGFPE_OPERATOR_NAME
Definition: ri-util-local.h:1199
IAND_OPERATOR_NAME
#define IAND_OPERATOR_NAME
Definition: ri-util-local.h:313
QECVT_FUNCTION_NAME
#define QECVT_FUNCTION_NAME
Definition: ri-util-local.h:416
ISWCNTRL_OPERATOR_NAME
#define ISWCNTRL_OPERATOR_NAME
Definition: ri-util-local.h:1144
AIMAG_CONVERSION_NAME
#define AIMAG_CONVERSION_NAME
Definition: ri-util-local.h:241
EXIT_FUNCTION_NAME
#define EXIT_FUNCTION_NAME
Definition: ri-util-local.h:1021
PLUS_UPDATE_OPERATOR_NAME
#define PLUS_UPDATE_OPERATOR_NAME
Definition: ri-util-local.h:103
WCSSTR_FUNCTION_NAME
#define WCSSTR_FUNCTION_NAME
Definition: ri-util-local.h:1123
WCSTOK_FUNCTION_NAME
#define WCSTOK_FUNCTION_NAME
Definition: ri-util-local.h:1124
CONJ_OPERATOR_NAME
#define CONJ_OPERATOR_NAME
Definition: ri-util-local.h:523
SIGNIFICAND_OPERATOR_NAME
#define SIGNIFICAND_OPERATOR_NAME
Definition: ri-util-local.h:1195
J0_OPERATOR_NAME
#define J0_OPERATOR_NAME
Definition: ri-util-local.h:1183
LSTAT_FUNCTION_NAME
#define LSTAT_FUNCTION_NAME
Definition: ri-util-local.h:1177
MPI_ISSEND_FUNCTION_NAME
#define MPI_ISSEND_FUNCTION_NAME
Definition: ri-util-local.h:2358
PTSNAME_FUNCTION_NAME
#define PTSNAME_FUNCTION_NAME
Definition: ri-util-local.h:409
INDEX_OPERATOR_NAME
#define INDEX_OPERATOR_NAME
Definition: ri-util-local.h:212
ISLESSEQUAL_OPERATOR_NAME
#define ISLESSEQUAL_OPERATOR_NAME
Definition: ri-util-local.h:760
ISWGRAPH_OPERATOR_NAME
#define ISWGRAPH_OPERATOR_NAME
Definition: ri-util-local.h:1146
ISNANF_OPERATOR_NAME
#define ISNANF_OPERATOR_NAME
Definition: ri-util-local.h:588
BTEST_OPERATOR_NAME
#define BTEST_OPERATOR_NAME
Definition: ri-util-local.h:309
WCTYPE_OPERATOR_NAME
#define WCTYPE_OPERATOR_NAME
Definition: ri-util-local.h:1154
TRUNCF_OPERATOR_NAME
#define TRUNCF_OPERATOR_NAME
Definition: ri-util-local.h:725
MBLEN_FUNCTION_NAME
#define MBLEN_FUNCTION_NAME
Definition: ri-util-local.h:1033
ISWDIGIT_OPERATOR_NAME
#define ISWDIGIT_OPERATOR_NAME
Definition: ri-util-local.h:1145
PAUSE_FUNCTION_NAME
#define PAUSE_FUNCTION_NAME
Definition: ri-util-local.h:277
CDEXP_OPERATOR_NAME
#define CDEXP_OPERATOR_NAME
Definition: ri-util-local.h:140
STRTOF_FUNCTION_NAME
#define STRTOF_FUNCTION_NAME
Definition: ri-util-local.h:1006
FLOOR_OPERATOR_NAME
#define FLOOR_OPERATOR_NAME
Definition: ri-util-local.h:700
SINHF_OPERATOR_NAME
#define SINHF_OPERATOR_NAME
Definition: ri-util-local.h:625
STRTOLL_FUNCTION_NAME
#define STRTOLL_FUNCTION_NAME
Definition: ri-util-local.h:1009
COSF_OPERATOR_NAME
#define COSF_OPERATOR_NAME
Definition: ri-util-local.h:604
LOG10F_OPERATOR_NAME
#define LOG10F_OPERATOR_NAME
Definition: ri-util-local.h:650
VSNPRINTF_FUNCTION_NAME
#define VSNPRINTF_FUNCTION_NAME
Definition: ri-util-local.h:941
FORMAT_FUNCTION_NAME
#define FORMAT_FUNCTION_NAME
Definition: ri-util-local.h:301
LLDIV_FUNCTION_NAME
#define LLDIV_FUNCTION_NAME
Definition: ri-util-local.h:1032
DATAN2_OPERATOR_NAME
#define DATAN2_OPERATOR_NAME
Definition: ri-util-local.h:166
WCSLEN_FUNCTION_NAME
#define WCSLEN_FUNCTION_NAME
Definition: ri-util-local.h:1126
DDIM_OPERATOR_NAME
#define DDIM_OPERATOR_NAME
Definition: ri-util-local.h:129
TANHF_OPERATOR_NAME
#define TANHF_OPERATOR_NAME
Definition: ri-util-local.h:628
FGETPOS64_FUNCTION_NAME
#define FGETPOS64_FUNCTION_NAME
Definition: ri-util-local.h:991
SINH_OPERATOR_NAME
#define SINH_OPERATOR_NAME
Definition: ri-util-local.h:167
OMP_IF_FUNCTION_NAME
#define OMP_IF_FUNCTION_NAME
OMP related function and opertor names.
Definition: ri-util-local.h:319
FPCLASSIFY_OPERATOR_NAME
#define FPCLASSIFY_OPERATOR_NAME
include <math.h>
Definition: ri-util-local.h:583
PERROR_FUNCTION_NAME
#define PERROR_FUNCTION_NAME
Definition: ri-util-local.h:962
REAL_GENERIC_CONVERSION_NAME
#define REAL_GENERIC_CONVERSION_NAME
Definition: ri-util-local.h:223
DEFAULT_FUNCTION_NAME
#define DEFAULT_FUNCTION_NAME
Definition: ri-util-local.h:283
WCTOMB_FUNCTION_NAME
#define WCTOMB_FUNCTION_NAME
Definition: ri-util-local.h:1035
CACOSF_OPERATOR_NAME
#define CACOSF_OPERATOR_NAME
Definition: ri-util-local.h:466
TRUNC_OPERATOR_NAME
#define TRUNC_OPERATOR_NAME
Definition: ri-util-local.h:724
CTERMID_FUNCTION_NAME
#define CTERMID_FUNCTION_NAME
Definition: ri-util-local.h:978
SQRTF_OPERATOR_NAME
#define SQRTF_OPERATOR_NAME
Definition: ri-util-local.h:682
ISINF_OPERATOR_NAME
#define ISINF_OPERATOR_NAME
Definition: ri-util-local.h:585
STRNCMP_FUNCTION_NAME
#define STRNCMP_FUNCTION_NAME
Definition: ri-util-local.h:1053
ISUNORDERED_OPERATOR_NAME
#define ISUNORDERED_OPERATOR_NAME
Definition: ri-util-local.h:762
TOUPPER_OPERATOR_NAME
#define TOUPPER_OPERATOR_NAME
Definition: ri-util-local.h:550
MINUS_C_OPERATOR_NAME
#define MINUS_C_OPERATOR_NAME
Definition: ri-util-local.h:114
MULTIPLY_OPERATOR_NAME
#define MULTIPLY_OPERATOR_NAME
Definition: ri-util-local.h:117
DEXP_OPERATOR_NAME
#define DEXP_OPERATOR_NAME
Definition: ri-util-local.h:138
BITWISE_AND_UPDATE_OPERATOR_NAME
#define BITWISE_AND_UPDATE_OPERATOR_NAME
Definition: ri-util-local.h:185
DLOG_OPERATOR_NAME
#define DLOG_OPERATOR_NAME
Definition: ri-util-local.h:143
LESS_OR_EQUAL_OPERATOR_NAME
#define LESS_OR_EQUAL_OPERATOR_NAME
Definition: ri-util-local.h:265
CBRTF_OPERATOR_NAME
#define CBRTF_OPERATOR_NAME
Definition: ri-util-local.h:670
C_OR_OPERATOR_NAME
#define C_OR_OPERATOR_NAME
Definition: ri-util-local.h:250
STRERROR_FUNCTION_NAME
#define STRERROR_FUNCTION_NAME
Definition: ri-util-local.h:1065
CONJL_OPERATOR_NAME
#define CONJL_OPERATOR_NAME
Definition: ri-util-local.h:525
BITWISE_AND_OPERATOR_NAME
#define BITWISE_AND_OPERATOR_NAME
Definition: ri-util-local.h:180
CSIN_OPERATOR_NAME
#define CSIN_OPERATOR_NAME
Definition: ri-util-local.h:151
SNGL_GENERIC_CONVERSION_NAME
#define SNGL_GENERIC_CONVERSION_NAME
Definition: ri-util-local.h:226
FMOD_OPERATOR_NAME
#define FMOD_OPERATOR_NAME
Definition: ri-util-local.h:727
IMAXABS_FUNCTION_NAME
#define IMAXABS_FUNCTION_NAME
include <inttypes.h>
Definition: ri-util-local.h:575
SCALBNL_OPERATOR_NAME
#define SCALBNL_OPERATOR_NAME
Definition: ri-util-local.h:664
DTANH_OPERATOR_NAME
#define DTANH_OPERATOR_NAME
Definition: ri-util-local.h:172
EXP2_OPERATOR_NAME
#define EXP2_OPERATOR_NAME
Definition: ri-util-local.h:633
UNLOCKPT_FUNCTION_NAME
#define UNLOCKPT_FUNCTION_NAME
Definition: ri-util-local.h:413
DFLOAT_GENERIC_CONVERSION_NAME
#define DFLOAT_GENERIC_CONVERSION_NAME
Definition: ri-util-local.h:225
SQRTL_OPERATOR_NAME
#define SQRTL_OPERATOR_NAME
Definition: ri-util-local.h:683
FERROR_FUNCTION_NAME
#define FERROR_FUNCTION_NAME
Definition: ri-util-local.h:960
TANHL_OPERATOR_NAME
#define TANHL_OPERATOR_NAME
Definition: ri-util-local.h:629
FWIDE_FUNCTION_NAME
#define FWIDE_FUNCTION_NAME
Definition: ri-util-local.h:1094
WCSNCMP_FUNCTION_NAME
#define WCSNCMP_FUNCTION_NAME
Definition: ri-util-local.h:1115
SYMLINK_FUNCTION_NAME
#define SYMLINK_FUNCTION_NAME
Definition: ri-util-local.h:854
ULLTOSTR_FUNCTION_NAME
#define ULLTOSTR_FUNCTION_NAME
Definition: ri-util-local.h:432
OMP_REDUCTION_FUNCTION_NAME
#define OMP_REDUCTION_FUNCTION_NAME
Definition: ri-util-local.h:324
RIGHT_SHIFT_OPERATOR_NAME
#define RIGHT_SHIFT_OPERATOR_NAME
Definition: ri-util-local.h:174
CATANF_OPERATOR_NAME
#define CATANF_OPERATOR_NAME
Definition: ri-util-local.h:472
CATANH_OPERATOR_NAME
#define CATANH_OPERATOR_NAME
Definition: ri-util-local.h:489
ISCNTRL_OPERATOR_NAME
#define ISCNTRL_OPERATOR_NAME
Definition: ri-util-local.h:540
ASIN_OPERATOR_NAME
#define ASIN_OPERATOR_NAME
Definition: ri-util-local.h:159
AMAX1_OPERATOR_NAME
#define AMAX1_OPERATOR_NAME
Definition: ri-util-local.h:203
CTANL_OPERATOR_NAME
#define CTANL_OPERATOR_NAME
Definition: ri-util-local.h:482
CABSF_OPERATOR_NAME
#define CABSF_OPERATOR_NAME
Definition: ri-util-local.h:508
CASINHF_OPERATOR_NAME
#define CASINHF_OPERATOR_NAME
Definition: ri-util-local.h:487
CONJF_OPERATOR_NAME
#define CONJF_OPERATOR_NAME
Definition: ri-util-local.h:524
PUTENV_FUNCTION_NAME
#define PUTENV_FUNCTION_NAME
Definition: ri-util-local.h:395
DEALLOCATE_FUNCTION_NAME
#define DEALLOCATE_FUNCTION_NAME
Definition: ri-util-local.h:328
SECONVERT_OPERATOR_NAME
#define SECONVERT_OPERATOR_NAME
Definition: ri-util-local.h:1211
DASIN_OPERATOR_NAME
#define DASIN_OPERATOR_NAME
Definition: ri-util-local.h:160
TANF_OPERATOR_NAME
#define TANF_OPERATOR_NAME
Definition: ri-util-local.h:610
INQUIRE_FUNCTION_NAME
#define INQUIRE_FUNCTION_NAME
Definition: ri-util-local.h:295
NEXTTOWARD_OPERATOR_NAME
#define NEXTTOWARD_OPERATOR_NAME
Definition: ri-util-local.h:742
PUTS_FUNCTION_NAME
#define PUTS_FUNCTION_NAME
Definition: ri-util-local.h:916
IDINT_GENERIC_CONVERSION_NAME
#define IDINT_GENERIC_CONVERSION_NAME
Definition: ri-util-local.h:222
MEMMOVE_FUNCTION_NAME
#define MEMMOVE_FUNCTION_NAME
Definition: ri-util-local.h:1044
NOT_OPERATOR_NAME
#define NOT_OPERATOR_NAME
Definition: ri-util-local.h:251
POWL_OPERATOR_NAME
#define POWL_OPERATOR_NAME
Definition: ri-util-local.h:680
MPI_FINALIZE_FUNCTION_NAME
#define MPI_FINALIZE_FUNCTION_NAME
Definition: ri-util-local.h:2346
FSCANF_FUNCTION_NAME
#define FSCANF_FUNCTION_NAME
Definition: ri-util-local.h:913
FCONVERT_OPERATOR_NAME
#define FCONVERT_OPERATOR_NAME
Definition: ri-util-local.h:1215
WCSCHR_FUNCTION_NAME
#define WCSCHR_FUNCTION_NAME
Definition: ri-util-local.h:1118
LGT_OPERATOR_NAME
#define LGT_OPERATOR_NAME
Definition: ri-util-local.h:214
MIN1_OPERATOR_NAME
#define MIN1_OPERATOR_NAME
Definition: ri-util-local.h:195
ISWCTYPE_OPERATOR_NAME
#define ISWCTYPE_OPERATOR_NAME
Definition: ri-util-local.h:1153
CASIN_OPERATOR_NAME
#define CASIN_OPERATOR_NAME
Definition: ri-util-local.h:468
LOG1PF_OPERATOR_NAME
#define LOG1PF_OPERATOR_NAME
Definition: ri-util-local.h:653
ASSIGN_SUBSTRING_FUNCTION_NAME
#define ASSIGN_SUBSTRING_FUNCTION_NAME
Definition: ri-util-local.h:288
OR_OPERATOR_NAME
#define OR_OPERATOR_NAME
Definition: ri-util-local.h:249
VSWPRINTF_FUNCTION_NAME
#define VSWPRINTF_FUNCTION_NAME
Definition: ri-util-local.h:1084
LOG1PL_OPERATOR_NAME
#define LOG1PL_OPERATOR_NAME
Definition: ri-util-local.h:654
FSETPOS64_FUNCTION_NAME
#define FSETPOS64_FUNCTION_NAME
Definition: ri-util-local.h:992
CIMAGL_OPERATOR_NAME
#define CIMAGL_OPERATOR_NAME
Definition: ri-util-local.h:522
NON_EQUAL_OPERATOR_NAME
#define NON_EQUAL_OPERATOR_NAME
Definition: ri-util-local.h:252
DATAN_OPERATOR_NAME
#define DATAN_OPERATOR_NAME
Definition: ri-util-local.h:164
DTAN_OPERATOR_NAME
#define DTAN_OPERATOR_NAME
Definition: ri-util-local.h:158
C_EQUAL_OPERATOR_NAME
#define C_EQUAL_OPERATOR_NAME
Definition: ri-util-local.h:270
ISWSPACE_OPERATOR_NAME
#define ISWSPACE_OPERATOR_NAME
Definition: ri-util-local.h:1150
PRINTF_FUNCTION_NAME
#define PRINTF_FUNCTION_NAME
include<stdio.h>
Definition: ri-util-local.h:908
ECVT_FUNCTION_NAME
#define ECVT_FUNCTION_NAME
Definition: ri-util-local.h:401
CIMAGF_OPERATOR_NAME
#define CIMAGF_OPERATOR_NAME
Definition: ri-util-local.h:521
ASSIGN_OPERATOR_NAME
#define ASSIGN_OPERATOR_NAME
Definition: ri-util-local.h:95
ISPRINT_OPERATOR_NAME
#define ISPRINT_OPERATOR_NAME
Definition: ri-util-local.h:544
MODULO_OPERATOR_NAME
#define MODULO_OPERATOR_NAME
Definition: ri-util-local.h:121
SCALBN_OPERATOR_NAME
#define SCALBN_OPERATOR_NAME
Definition: ri-util-local.h:662
PUTWC_FUNCTION_NAME
#define PUTWC_FUNCTION_NAME
Definition: ri-util-local.h:1097
PIPS_C_DIV_OPERATOR_NAME
#define PIPS_C_DIV_OPERATOR_NAME
Definition: ri-util-local.h:453
FPUTS_FUNCTION_NAME
#define FPUTS_FUNCTION_NAME
Definition: ri-util-local.h:918
PLUS_C_OPERATOR_NAME
#define PLUS_C_OPERATOR_NAME
Definition: ri-util-local.h:112
MPI_BARRIER_FUNCTION_NAME
#define MPI_BARRIER_FUNCTION_NAME
Definition: ri-util-local.h:2349
FCLOSE_FUNCTION_NAME
#define FCLOSE_FUNCTION_NAME
Definition: ri-util-local.h:925
OMP_PRIVATE_FUNCTION_NAME
#define OMP_PRIVATE_FUNCTION_NAME
Definition: ri-util-local.h:322
ALOG_OPERATOR_NAME
#define ALOG_OPERATOR_NAME
Definition: ri-util-local.h:142
FMAXL_OPERATOR_NAME
#define FMAXL_OPERATOR_NAME
Definition: ri-util-local.h:750
FREXP_OPERATOR_NAME
#define FREXP_OPERATOR_NAME
Definition: ri-util-local.h:639
FSETPOS_FUNCTION_NAME
#define FSETPOS_FUNCTION_NAME
Definition: ri-util-local.h:955
MIN_OPERATOR_NAME
#define MIN_OPERATOR_NAME
Definition: ri-util-local.h:193
MPI_SENDRECV_FUNCTION_NAME
#define MPI_SENDRECV_FUNCTION_NAME
Definition: ri-util-local.h:2365
CTYPE_B_LOC_OPERATOR_NAME
#define CTYPE_B_LOC_OPERATOR_NAME
Part of the binary standard.
Definition: ri-util-local.h:559
ISALPHA_OPERATOR_NAME
#define ISALPHA_OPERATOR_NAME
Definition: ri-util-local.h:538
LOG2_OPERATOR_NAME
#define LOG2_OPERATOR_NAME
Definition: ri-util-local.h:655
MBSTOWCS_FUNCTION_NAME
#define MBSTOWCS_FUNCTION_NAME
Definition: ri-util-local.h:1036
CASINF_OPERATOR_NAME
#define CASINF_OPERATOR_NAME
Definition: ri-util-local.h:469
WCSSPN_FUNCTION_NAME
#define WCSSPN_FUNCTION_NAME
Definition: ri-util-local.h:1122
IntrinsicDescriptor
The following data structure describes an intrinsic function: its name and its arity and its type,...
Definition: bootstrap-local.h:52

References __ERRNO_LOCATION_OPERATOR_NAME, __FILBUF_FUNCTION_NAME, __FILSBUF_FUNCTION_NAME, __H_ERRNO_LOCATION_OPERATOR_NAME, _EXIT_FUNCTION_NAME, _IO_GETC_FUNCTION_NAME, _IO_PUTC_FUNCTION_NAME, _TOLOWER_OPERATOR_NAME, _TOUPPER_OPERATOR_NAME, A614_FUNCTION_NAME, ABORT_FUNCTION_NAME, ABS_OPERATOR_NAME, ACOS_OPERATOR_NAME, ACOSF_OPERATOR_NAME, ACOSHF_OPERATOR_NAME, ACOSHL_OPERATOR_NAME, ACOSL_OPERATOR_NAME, ADDRESS_OF_OPERATOR_NAME, AIMAG_CONVERSION_NAME, AINT_CONVERSION_NAME, ALLOCA_FUNCTION_NAME, ALLOCATE_FUNCTION_NAME, ALOG10_OPERATOR_NAME, ALOG_OPERATOR_NAME, AMAX0_OPERATOR_NAME, AMAX1_OPERATOR_NAME, AMIN0_OPERATOR_NAME, AMIN1_OPERATOR_NAME, AND_OPERATOR_NAME, ANINT_CONVERSION_NAME, ASIN_OPERATOR_NAME, ASINF_OPERATOR_NAME, ASINHF_OPERATOR_NAME, ASINHL_OPERATOR_NAME, ASINL_OPERATOR_NAME, ASM_FUNCTION_NAME, ASSERT_FAIL_FUNCTION_NAME, ASSERT_FUNCTION_NAME, ASSIGN_OPERATOR_NAME, ASSIGN_SUBSTRING_FUNCTION_NAME, assign_substring_type(), ATAN2_OPERATOR_NAME, ATAN2F_OPERATOR_NAME, ATAN2L_OPERATOR_NAME, ATAN_OPERATOR_NAME, ATANF_OPERATOR_NAME, ATANHF_OPERATOR_NAME, ATANHL_OPERATOR_NAME, ATANL_OPERATOR_NAME, ATEXIT_FUNCTION_NAME, ATOF_FUNCTION_NAME, ATOI_FUNCTION_NAME, ATOL_FUNCTION_NAME, ATOLL_FUNCTION_NAME, ATOQ_FUNCTION_NAME, BACKSPACE_FUNCTION_NAME, BIT_SIZE_OPERATOR_NAME, BITWISE_AND_OPERATOR_NAME, BITWISE_AND_UPDATE_OPERATOR_NAME, BITWISE_NOT_OPERATOR_NAME, BITWISE_OR_OPERATOR_NAME, BITWISE_OR_UPDATE_OPERATOR_NAME, BITWISE_XOR_OPERATOR_NAME, BITWISE_XOR_UPDATE_OPERATOR_NAME, BRACE_INTRINSIC, BREAK_FUNCTION_NAME, BSEARCH_FUNCTION_NAME, BTEST_OPERATOR_NAME, BTOWC_FUNCTION_NAME, BUFFERIN_FUNCTION_NAME, BUFFEROUT_FUNCTION_NAME, C_164A_FUNCTION_NAME, C_ABS_FUNCTION_NAME, C_ACOS_OPERATOR_NAME, C_ACOSH_OPERATOR_NAME, C_AND_OPERATOR_NAME, C_ASIN_OPERATOR_NAME, C_ASINH_OPERATOR_NAME, C_ATAN2_OPERATOR_NAME, C_ATAN_OPERATOR_NAME, C_ATANH_OPERATOR_NAME, C_CABS_OPERATOR_NAME, C_CCOS_OPERATOR_NAME, C_CEXP_OPERATOR_NAME, C_CLOG_OPERATOR_NAME, C_CLOSE_FUNCTION_NAME, C_COS_OPERATOR_NAME, C_COSH_OPERATOR_NAME, C_CSIN_OPERATOR_NAME, C_CSQRT_OPERATOR_NAME, C_EQUAL_OPERATOR_NAME, C_EXP_OPERATOR_NAME, C_GREATER_OR_EQUAL_OPERATOR_NAME, C_GREATER_THAN_OPERATOR_NAME, C_LESS_OR_EQUAL_OPERATOR_NAME, C_LESS_THAN_OPERATOR_NAME, C_LOC_FUNCTION_NAME, C_LOG10_OPERATOR_NAME, C_LOG_OPERATOR_NAME, C_MODULO_OPERATOR_NAME, C_NON_EQUAL_OPERATOR_NAME, C_NOT_OPERATOR_NAME, C_OPEN_FUNCTION_NAME, C_OR_OPERATOR_NAME, C_READ_FUNCTION_NAME, C_RETURN_FUNCTION_NAME, C_REWIND_FUNCTION_NAME, C_SIN_OPERATOR_NAME, C_SINH_OPERATOR_NAME, C_SQRT_OPERATOR_NAME, C_TAN_OPERATOR_NAME, C_TANH_OPERATOR_NAME, C_WRITE_FUNCTION_NAME, CABS_OPERATOR_NAME, CABSF_OPERATOR_NAME, CABSL_OPERATOR_NAME, CACOS_OPERATOR_NAME, CACOSF_OPERATOR_NAME, CACOSH_OPERATOR_NAME, CACOSHF_OPERATOR_NAME, CACOSHL_OPERATOR_NAME, CACOSL_OPERATOR_NAME, CALLOC_FUNCTION_NAME, CARG_OPERATOR_NAME, CARGF_OPERATOR_NAME, CARGL_OPERATOR_NAME, CASE_FUNCTION_NAME, CASIN_OPERATOR_NAME, CASINF_OPERATOR_NAME, CASINH_OPERATOR_NAME, CASINHF_OPERATOR_NAME, CASINHL_OPERATOR_NAME, CASINL_OPERATOR_NAME, CATAN_OPERATOR_NAME, CATANF_OPERATOR_NAME, CATANH_OPERATOR_NAME, CATANHF_OPERATOR_NAME, CATANHL_OPERATOR_NAME, CATANL_OPERATOR_NAME, CBRT_OPERATOR_NAME, CBRTF_OPERATOR_NAME, CBRTL_OPERATOR_NAME, CCOS_OPERATOR_NAME, CCOSF_OPERATOR_NAME, CCOSH_OPERATOR_NAME, CCOSHF_OPERATOR_NAME, CCOSHL_OPERATOR_NAME, CCOSL_OPERATOR_NAME, CDABS_OPERATOR_NAME, CDCOS_OPERATOR_NAME, CDEXP_OPERATOR_NAME, CDLOG_OPERATOR_NAME, CDSIN_OPERATOR_NAME, CDSQRT_OPERATOR_NAME, CEIL_OPERATOR_NAME, CEILF_OPERATOR_NAME, CEILL_OPERATOR_NAME, CEXP_OPERATOR_NAME, CEXPF_OPERATOR_NAME, CEXPL_OPERATOR_NAME, char_pointer_to_double_type(), CHAR_TO_INT_CONVERSION_NAME, character_to_character_type(), character_to_integer_type(), character_to_logical_type(), check_backspace(), check_close(), check_endfile(), check_format(), check_inquire(), check_open(), check_read_write(), check_rewind(), CIMAG_OPERATOR_NAME, CIMAGF_OPERATOR_NAME, CIMAGL_OPERATOR_NAME, CLEARERR_FUNCTION_NAME, CLOCK_FUNCTION_NAME, CLOCK_GETTIME_FUNCTION_NAME, CLOG_OPERATOR_NAME, CLOGF_OPERATOR_NAME, CLOGL_OPERATOR_NAME, CLOSE_FUNCTION_NAME, CMPLX_GENERIC_CONVERSION_NAME, COMMA_OPERATOR_NAME, complex_to_complex_type(), complex_to_real_type(), CONCATENATION_FUNCTION_NAME, CONDITIONAL_OPERATOR_NAME, CONJ_OPERATOR_NAME, CONJF_OPERATOR_NAME, CONJG_OPERATOR_NAME, CONJL_OPERATOR_NAME, CONTINUE_FUNCTION_NAME, COPYSIGN_OPERATOR_NAME, COPYSIGNF_OPERATOR_NAME, COPYSIGNL_OPERATOR_NAME, COS_OPERATOR_NAME, COSF_OPERATOR_NAME, COSH_OPERATOR_NAME, COSHF_OPERATOR_NAME, COSHL_OPERATOR_NAME, COSL_OPERATOR_NAME, CPOW_OPERATOR_NAME, CPOWF_OPERATOR_NAME, CPOWL_OPERATOR_NAME, CPROJ_OPERATOR_NAME, CPROJF_OPERATOR_NAME, CPROJL_OPERATOR_NAME, CPU_TIME_FUNCTION_NAME, CREAL_OPERATOR_NAME, CREALF_OPERATOR_NAME, CREALL_OPERATOR_NAME, CREAT64_FUNCTION_NAME, CREAT_FUNCTION_NAME, CSIN_OPERATOR_NAME, CSINF_OPERATOR_NAME, CSINH_OPERATOR_NAME, CSINHF_OPERATOR_NAME, CSINHL_OPERATOR_NAME, CSINL_OPERATOR_NAME, CSQRT_OPERATOR_NAME, CSQRTF_OPERATOR_NAME, CSQRTL_OPERATOR_NAME, CTAN_OPERATOR_NAME, CTANF_OPERATOR_NAME, CTANH_OPERATOR_NAME, CTANHF_OPERATOR_NAME, CTANHL_OPERATOR_NAME, CTANL_OPERATOR_NAME, CTERMID_FUNCTION_NAME, CTYPE_B_LOC_OPERATOR_NAME, CUSERID_FUNCTION_NAME, DABS_OPERATOR_NAME, DACOS_OPERATOR_NAME, DASIN_OPERATOR_NAME, DATA_LIST_FUNCTION_NAME, DATAN2_OPERATOR_NAME, DATAN_OPERATOR_NAME, DBLE_GENERIC_CONVERSION_NAME, DCMPLX_GENERIC_CONVERSION_NAME, DCONJG_OPERATOR_NAME, DCOS_OPERATOR_NAME, DCOSH_OPERATOR_NAME, DDIM_OPERATOR_NAME, DEALLOCATE_FUNCTION_NAME, DECIMAL_TO_DOUBLE_OPERATOR_NAME, DECIMAL_TO_EXTENDED_OPERATOR_NAME, DECIMAL_TO_QUADRUPLE_OPERATOR_NAME, DECIMAL_TO_SINGLE_OPERATOR_NAME, DEFAULT_FUNCTION_NAME, default_intrinsic_type(), DEREFERENCING_OPERATOR_NAME, DEXP_OPERATOR_NAME, DFLOAT_GENERIC_CONVERSION_NAME, DIFFTIME_FUNCTION_NAME, DIM_OPERATOR_NAME, DIMAG_CONVERSION_NAME, DINT_CONVERSION_NAME, DIRECTIO_FUNCTION_NAME, DIV_FUNCTION_NAME, DIVIDE_OPERATOR_NAME, DIVIDE_UPDATE_OPERATOR_NAME, DLOG10_OPERATOR_NAME, DLOG_OPERATOR_NAME, DMAX1_OPERATOR_NAME, DMIN1_OPERATOR_NAME, DNINT_CONVERSION_NAME, DOUBLE_MODULO_OPERATOR_NAME, DOUBLE_TO_DECIMAL_OPERATOR_NAME, double_to_double_type(), double_to_integer_type(), double_to_longinteger_type(), double_to_longlonginteger_type(), doublecomplex_to_double_type(), doublecomplex_to_doublecomplex_type(), DPROD_OPERATOR_NAME, DRAND48_FUNCTION_NAME, DREAL_GENERIC_CONVERSION_NAME, DSIGN_OPERATOR_NAME, DSIN_OPERATOR_NAME, DSINH_OPERATOR_NAME, DSQRT_OPERATOR_NAME, DTAN_OPERATOR_NAME, DTANH_OPERATOR_NAME, DTIME_FUNCTION_NAME, DUP2_FUNCTION_NAME, ECONVERT_OPERATOR_NAME, ECVT_FUNCTION_NAME, END_FUNCTION_NAME, ENDFILE_FUNCTION_NAME, EOLE_FMA_OPERATOR_NAME, EOLE_FMS_OPERATOR_NAME, EOLE_PROD_OPERATOR_NAME, EOLE_SUM_OPERATOR_NAME, EQUAL_OPERATOR_NAME, EQUIV_OPERATOR_NAME, ERAND48_FUNCTION_NAME, ERF_OPERATOR_NAME, ERFC_OPERATOR_NAME, ERFCF_OPERATOR_NAME, ERFCL_OPERATOR_NAME, ERFF_OPERATOR_NAME, ERFL_OPERATOR_NAME, ERR_FUNCTION_NAME, ERRX_FUNCTION_NAME, ETIME_FUNCTION_NAME, EXIT_FUNCTION_NAME, EXITHANDLE_FUNCTION_NAME, EXP2_OPERATOR_NAME, EXP2F_OPERATOR_NAME, EXP2L_OPERATOR_NAME, EXP_OPERATOR_NAME, EXPF_OPERATOR_NAME, EXPL_OPERATOR_NAME, EXPM1_OPERATOR_NAME, EXPM1F_OPERATOR_NAME, EXPM1L_OPERATOR_NAME, EXTENDED_TO_DECIMAL_OPERATOR_NAME, FABS_OPERATOR_NAME, FABSF_OPERATOR_NAME, FABSL_OPERATOR_NAME, FCLOSE_FUNCTION_NAME, FCNTL_FUNCTION_NAME, FCONVERT_OPERATOR_NAME, FCVT_FUNCTION_NAME, FDATASYNC_FUNCTION_NAME, FDIM_OPERATOR_NAME, FDIMF_OPERATOR_NAME, FDIML_OPERATOR_NAME, FDOPEN_FUNCTION_NAME, FECLEAREXCEPT_FUNCTION_NAME, FEGETROUND_FUNCTION_NAME, FEOF_FUNCTION_NAME, FERAISEEXCEPT_FUNCTION_NAME, FERROR_FUNCTION_NAME, FESETEXCEPTFLAG_FUNCTION_NAME, FESETROUND_FUNCTION_NAME, FETESTEXCEPT_FUNCTION_NAME, FFLUSH_FUNCTION_NAME, FGETC_FUNCTION_NAME, FGETPOS64_FUNCTION_NAME, FGETPOS_FUNCTION_NAME, FGETS_FUNCTION_NAME, FGETWC_FUNCTION_NAME, FGETWS_FUNCTION_NAME, FIELD_OPERATOR_NAME, FILE_TO_DECIMAL_OPERATOR_NAME, FILENO_FUNCTION_NAME, FLOAT_GENERIC_CONVERSION_NAME, FLOOR_OPERATOR_NAME, FLOORF_OPERATOR_NAME, FLOORL_OPERATOR_NAME, FMA_OPERATOR_NAME, FMAF_OPERATOR_NAME, FMAL_OPERATOR_NAME, FMAX_OPERATOR_NAME, FMAXF_OPERATOR_NAME, FMAXL_OPERATOR_NAME, FMIN_OPERATOR_NAME, FMINF_OPERATOR_NAME, FMINL_OPERATOR_NAME, FMOD_OPERATOR_NAME, FMODF_OPERATOR_NAME, FMODL_OPERATOR_NAME, FOPEN64_FUNCTION_NAME, FOPEN_FUNCTION_NAME, FORMAT_FUNCTION_NAME, FPCLASSIFY_OPERATOR_NAME, FPRINTF_FUNCTION_NAME, FPUTC_FUNCTION_NAME, FPUTS_FUNCTION_NAME, FPUTWC_FUNCTION_NAME, FPUTWS_FUNCTION_NAME, FREAD_FUNCTION_NAME, FREE_FUNCTION_NAME, FREOPEN64_FUNCTION_NAME, FREOPEN_FUNCTION_NAME, FREXP_OPERATOR_NAME, FSCANF_FUNCTION_NAME, FSEEK_FUNCTION_NAME, FSEEKO64_FUNCTION_NAME, FSEEKO_FUNCTION_NAME, FSETPOS64_FUNCTION_NAME, FSETPOS_FUNCTION_NAME, FSTAT_FUNCTION_NAME, FSYNC_FUNCTION_NAME, FTELL_FUNCTION_NAME, FTELLO64_FUNCTION_NAME, FTELLO_FUNCTION_NAME, FUNC_TO_DECIMAL_OPERATOR_NAME, FWIDE_FUNCTION_NAME, FWPRINTF_FUNCTION_NAME, FWRITE_FUNCTION_NAME, FWSCANF_FUNCTION_NAME, GAMMA_OPERATOR_NAME, GCC_CIMAG_OPERATOR_NAME, GCC_CREAL_OPERATOR_NAME, GCONVERT_OPERATOR_NAME, GCVT_FUNCTION_NAME, GETC_FUNCTION_NAME, GETCHAR_FUNCTION_NAME, GETCWD_FUNCTION_NAME, GETENV_FUNCTION_NAME, GETEXECNAME_FUNCTION_NAME, GETLOGIN_FUNCTION_NAME, GETOPT_FUNCTION_NAME, GETOPT_LONG_FUNCTION_NAME, GETOPT_LONG_ONLY_FUNCTION_NAME, GETPASS_FUNCTION_NAME, GETPASSPHRASE_FUNCTION_NAME, GETPW_FUNCTION_NAME, GETS_FUNCTION_NAME, GETSUBOPT_FUNCTION_NAME, GETTIMEOFDAY_FUNCTION_NAME, GETW_FUNCTION_NAME, GETWC_FUNCTION_NAME, GETWCHAR_FUNCTION_NAME, GRANTPT_FUNCTION_NAME, GREATER_OR_EQUAL_OPERATOR_NAME, GREATER_THAN_OPERATOR_NAME, hash_string, hash_table_make(), HYPOT_OPERATOR_NAME, HYPOTF_OPERATOR_NAME, HYPOTL_OPERATOR_NAME, IABS_OPERATOR_NAME, IAND_OPERATOR_NAME, IBCLR_OPERATOR_NAME, IBITS_OPERATOR_NAME, IBSET_OPERATOR_NAME, IDIM_OPERATOR_NAME, IDINT_GENERIC_CONVERSION_NAME, IDNINT_CONVERSION_NAME, IEOR_OPERATOR_NAME, IFIX_GENERIC_CONVERSION_NAME, ILOGB_OPERATOR_NAME, ILOGBF_OPERATOR_NAME, ILOGBL_OPERATOR_NAME, IMA_OPERATOR_NAME, IMAXABS_FUNCTION_NAME, IMAXDIV_FUNCTION_NAME, IMPLIED_COMPLEX_NAME, IMPLIED_DCOMPLEX_NAME, IMPLIED_DO_NAME, IMS_OPERATOR_NAME, INDEX_OPERATOR_NAME, INITSTATE_FUNCTION_NAME, INQUIRE_FUNCTION_NAME, INT_GENERIC_CONVERSION_NAME, INT_TO_CHAR_CONVERSION_NAME, integer_to_integer_type(), integer_to_logical_type(), integer_to_overloaded_type(), integer_to_real_type(), integer_to_void_type(), intrinsic_type_descriptor_mapping, INVERSE_OPERATOR_NAME, IOCTL_FUNCTION_NAME, IOR_OPERATOR_NAME, ISALNUM_OPERATOR_NAME, ISALPHA_OPERATOR_NAME, ISASCII_OPERATOR_NAME, ISATTY_FUNCTION_NAME, ISBLANK_OPERATOR_NAME, ISCNTRL_OPERATOR_NAME, ISDIGIT_OPERATOR_NAME, ISFINITE_OPERATOR_NAME, ISGRAPH_OPERATOR_NAME, ISGREATER_OPERATOR_NAME, ISGREATEREQUAL_OPERATOR_NAME, ISHFT_OPERATOR_NAME, ISHFTC_OPERATOR_NAME, ISIGN_OPERATOR_NAME, ISINF_OPERATOR_NAME, ISLESS_OPERATOR_NAME, ISLESSEQUAL_OPERATOR_NAME, ISLESSGREATER_OPERATOR_NAME, ISLOWER_OPERATOR_NAME, ISNAN_OPERATOR_NAME, ISNANF_OPERATOR_NAME, ISNANL_OPERATOR_NAME, ISNORMAL_OPERATOR_NAME, ISOC99_FSCANF_FUNCTION_NAME, ISOC99_SCANF_FUNCTION_NAME, ISOC99_SSCANF_FUNCTION_NAME, ISOC99_VFSCANF_FUNCTION_NAME, ISOC99_VSCANF_FUNCTION_NAME, ISOC99_VSSCANF_FUNCTION_NAME, ISPRINT_OPERATOR_NAME, ISPUNCT_OPERATOR_NAME, ISSPACE_OPERATOR_NAME, ISUNORDERED_OPERATOR_NAME, ISUPPER_OPERATOR_NAME, ISWALNUM_OPERATOR_NAME, ISWALPHA_OPERATOR_NAME, ISWBLANK_OPERATOR_NAME, ISWCNTRL_OPERATOR_NAME, ISWCTYPE_OPERATOR_NAME, ISWDIGIT_OPERATOR_NAME, ISWGRAPH_OPERATOR_NAME, ISWLOWER_OPERATOR_NAME, ISWPRINT_OPERATOR_NAME, ISWPUNCT_OPERATOR_NAME, ISWSPACE_OPERATOR_NAME, ISWUPPER_OPERATOR_NAME, ISWXDIGIT_OPERATOR_NAME, ISXDIGIT_OPERATOR_NAME, J0_OPERATOR_NAME, J1_OPERATOR_NAME, JN_OPERATOR_NAME, JRAND48_FUNCTION_NAME, LABS_FUNCTION_NAME, LCONG48_FUNCTION_NAME, LDEXP_OPERATOR_NAME, LDEXPF_OPERATOR_NAME, LDEXPL_OPERATOR_NAME, LDIV_FUNCTION_NAME, LEFT_SHIFT_OPERATOR_NAME, LEFT_SHIFT_UPDATE_OPERATOR_NAME, LENGTH_OPERATOR_NAME, LESS_OR_EQUAL_OPERATOR_NAME, LESS_THAN_OPERATOR_NAME, LGAMMA_OPERATOR_NAME, LGAMMAF_OPERATOR_NAME, LGAMMAL_OPERATOR_NAME, LGE_OPERATOR_NAME, LGT_OPERATOR_NAME, LINK_FUNCTION_NAME, LIST_DIRECTED_FORMAT_NAME, LLABS_FUNCTION_NAME, LLDIV_FUNCTION_NAME, LLE_OPERATOR_NAME, LLRINT_OPERATOR_NAME, LLRINTF_OPERATOR_NAME, LLRINTL_OPERATOR_NAME, LLROUND_OPERATOR_NAME, LLROUNDF_OPERATOR_NAME, LLROUNDL_OPERATOR_NAME, LLT_OPERATOR_NAME, LLTOSTR_FUNCTION_NAME, LOCALTIME_FUNCTION_NAME, LOG10_OPERATOR_NAME, LOG10F_OPERATOR_NAME, LOG10L_OPERATOR_NAME, LOG1P_OPERATOR_NAME, LOG1PF_OPERATOR_NAME, LOG1PL_OPERATOR_NAME, LOG2_OPERATOR_NAME, LOG2F_OPERATOR_NAME, LOG2L_OPERATOR_NAME, LOG_OPERATOR_NAME, LOGB_OPERATOR_NAME, LOGBF_OPERATOR_NAME, LOGBL_OPERATOR_NAME, LOGF_OPERATOR_NAME, logical_to_logical_type(), LOGL_OPERATOR_NAME, longdouble_to_integer_type(), longdouble_to_longdouble_type(), longdouble_to_longinteger_type(), longdouble_to_longlonginteger_type(), longdoublecomplex_to_longdouble_type(), longdoublecomplex_to_longdoublecomplex_type(), longinteger_to_longinteger_type(), longinteger_to_overloaded_type(), longlonginteger_to_longlonginteger_type(), longlonginteger_to_overloaded_type(), LRAND48_FUNCTION_NAME, LRINT_OPERATOR_NAME, LRINTF_OPERATOR_NAME, LRINTL_OPERATOR_NAME, LROUND_OPERATOR_NAME, LROUNDF_OPERATOR_NAME, LROUNDL_OPERATOR_NAME, LSTAT_FUNCTION_NAME, MALLOC_FUNCTION_NAME, MATHERR_OPERATOR_NAME, MAX0_OPERATOR_NAME, MAX1_OPERATOR_NAME, MAX_OPERATOR_NAME, MBLEN_FUNCTION_NAME, MBRLEN_FUNCTION_NAME, MBRTOWC_FUNCTION_NAME, MBSINIT_FUNCTION_NAME, MBSRTOWCS_FUNCTION_NAME, MBSTOWCS_FUNCTION_NAME, MBTOWC_FUNCTION_NAME, MEMALIGN_FUNCTION_NAME, MEMCHR_FUNCTION_NAME, MEMCMP_FUNCTION_NAME, MEMCPY_FUNCTION_NAME, MEMMOVE_FUNCTION_NAME, MEMSET_FUNCTION_NAME, MIN0_OPERATOR_NAME, MIN1_OPERATOR_NAME, MIN_OPERATOR_NAME, MINUS_C_OPERATOR_NAME, MINUS_OPERATOR_NAME, MINUS_UPDATE_OPERATOR_NAME, MKSTEMP64_FUNCTION_NAME, MKSTEMP_FUNCTION_NAME, MKTEMP_FUNCTION_NAME, MODF_OPERATOR_NAME, MODFF_OPERATOR_NAME, MODULO_OPERATOR_NAME, MODULO_UPDATE_OPERATOR_NAME, MPI_BARRIER_FUNCTION_NAME, MPI_BSEND_FUNCTION_NAME, MPI_COMM_RANK_FUNCTION_NAME, MPI_COMM_SIZE_FUNCTION_NAME, MPI_FINALIZE_FUNCTION_NAME, MPI_IBSEND_FUNCTION_NAME, MPI_INIT_FUNCTION_NAME, MPI_IRECV_FUNCTION_NAME, MPI_IRSEND_FUNCTION_NAME, MPI_ISEND_FUNCTION_NAME, MPI_ISSEND_FUNCTION_NAME, MPI_RECV_FUNCTION_NAME, MPI_RSEND_FUNCTION_NAME, MPI_SEND_FUNCTION_NAME, MPI_SENDRECV_FUNCTION_NAME, MPI_SSEND_FUNCTION_NAME, MRAND48_FUNCTION_NAME, MULTIPLY_OPERATOR_NAME, MULTIPLY_UPDATE_OPERATOR_NAME, MVBITS_OPERATOR_NAME, IntrinsicDescriptor::name, NAN_OPERATOR_NAME, NANF_OPERATOR_NAME, NANL_OPERATOR_NAME, NANOSLEEP_FUNCTION_NAME, NEARBYINT_OPERATOR_NAME, NEARBYINTF_OPERATOR_NAME, NEARBYINTL_OPERATOR_NAME, NEXTAFTER_OPERATOR_NAME, NEXTAFTERF_OPERATOR_NAME, NEXTAFTERL_OPERATOR_NAME, NEXTTOWARD_OPERATOR_NAME, NEXTTOWARDF_OPERATOR_NAME, NEXTTOWARDL_OPERATOR_NAME, NINT_CONVERSION_NAME, no_typing(), NON_EQUAL_OPERATOR_NAME, NON_EQUIV_OPERATOR_NAME, NOT_OPERATOR_NAME, NRAND48_FUNCTION_NAME, OMP_FOR_FUNCTION_NAME, OMP_IF_FUNCTION_NAME, OMP_OMP_FUNCTION_NAME, OMP_PARALLEL_FUNCTION_NAME, OMP_PRIVATE_FUNCTION_NAME, OMP_REDUCTION_FUNCTION_NAME, OPEN64_FUNCTION_NAME, OPEN_FUNCTION_NAME, OR_OPERATOR_NAME, overloaded_to_complex_type(), overloaded_to_double_type(), overloaded_to_doublecomplex_type(), overloaded_to_integer_type(), overloaded_to_logical_type(), overloaded_to_longdouble_type(), overloaded_to_real_type(), overloaded_to_void_type(), PAUSE_FUNCTION_NAME, PCLOSE_FUNCTION_NAME, PERROR_FUNCTION_NAME, PIPS_C_DIV_OPERATOR_NAME, PIPS_C_MAX_OPERATOR_NAME, PIPS_C_MIN_OPERATOR_NAME, PIPS_IO_BARRIER_OPERATOR_NAME, PIPS_MEMORY_BARRIER_OPERATOR_NAME, PLUS_C_OPERATOR_NAME, PLUS_OPERATOR_NAME, PLUS_UPDATE_OPERATOR_NAME, POINT_TO_OPERATOR_NAME, POPEN_FUNCTION_NAME, POSIX_MEMALIGN_FUNCTION_NAME, POST_DECREMENT_OPERATOR_NAME, POST_INCREMENT_OPERATOR_NAME, POW_OPERATOR_NAME, POWER_OPERATOR_NAME, POWF_OPERATOR_NAME, POWL_OPERATOR_NAME, PRE_DECREMENT_OPERATOR_NAME, PRE_INCREMENT_OPERATOR_NAME, PRINTF_FUNCTION_NAME, PSELECT_FUNCTION_NAME, PTSNAME_FUNCTION_NAME, PUTC_FUNCTION_NAME, PUTCHAR_FUNCTION_NAME, PUTENV_FUNCTION_NAME, PUTS_FUNCTION_NAME, PUTW_FUNCTION_NAME, PUTWC_FUNCTION_NAME, PUTWCHAR_FUNCTION_NAME, QECONVERT_OPERATOR_NAME, QECVT_FUNCTION_NAME, QFCONVERT_OPERATOR_NAME, QFCVT_FUNCTION_NAME, QGCONVERT_OPERATOR_NAME, QGCVT_FUNCTION_NAME, QSORT_FUNCTION_NAME, QUADRUPLE_TO_DECIMAL_OPERATOR_NAME, RAISE_FUNCTION_NAME, RAND_FUNCTION_NAME, RANDOM_FUNCTION_NAME, READ_FUNCTION_NAME, REAL_GENERIC_CONVERSION_NAME, REAL_MODULO_OPERATOR_NAME, real_to_double_type(), real_to_integer_type(), real_to_longinteger_type(), real_to_longlonginteger_type(), real_to_real_type(), REALLOC_FUNCTION_NAME, REALPATH_FUNCTION_NAME, RECV_FUNCTION_NAME, register_intrinsic_type_descriptor(), REMAINDER_OPERATOR_NAME, REMAINDERF_OPERATOR_NAME, REMAINDERL_OPERATOR_NAME, REMOVE_FUNCTION_NAME, RENAME_FUNCTION_NAME, REPEAT_VALUE_NAME, RETURN_FUNCTION_NAME, REWIND_FUNCTION_NAME, RIGHT_SHIFT_OPERATOR_NAME, RIGHT_SHIFT_UPDATE_OPERATOR_NAME, RINT_OPERATOR_NAME, RINTF_OPERATOR_NAME, RINTL_OPERATOR_NAME, ROUND_OPERATOR_NAME, ROUNDF_OPERATOR_NAME, ROUNDL_OPERATOR_NAME, SCALB_OPERATOR_NAME, SCALBLN_OPERATOR_NAME, SCALBLNF_OPERATOR_NAME, SCALBLNL_OPERATOR_NAME, SCALBN_OPERATOR_NAME, SCALBNF_OPERATOR_NAME, SCALBNL_OPERATOR_NAME, SCANF_FUNCTION_NAME, SECOND_FUNCTION_NAME, SECONVERT_OPERATOR_NAME, SEED48_FUNCTION_NAME, SELECT_FUNCTION_NAME, SEND_FUNCTION_NAME, set_belong_p(), SETBUF_FUNCTION_NAME, SETBUFFER_FUNCTION_NAME, SETKEY_FUNCTION_NAME, SETLINEBUF_FUNCTION_NAME, SETLOCALE_FUNCTION_NAME, SETSTATE_FUNCTION_NAME, SETVBUF_FUNCTION_NAME, SFCONVERT_OPERATOR_NAME, SGCONVERT_OPERATOR_NAME, SIGFPE_OPERATOR_NAME, SIGN_OPERATOR_NAME, SIGNAL_OPERATOR_NAME, SIGNBIT_OPERATOR_NAME, SIGNIFICAND_OPERATOR_NAME, simplification_complex(), simplification_dcomplex(), simplification_double(), simplification_int(), simplification_real(), SIN_OPERATOR_NAME, SINF_OPERATOR_NAME, SINGLE_TO_DECIMAL_OPERATOR_NAME, SINH_OPERATOR_NAME, SINHF_OPERATOR_NAME, SINHL_OPERATOR_NAME, SINL_OPERATOR_NAME, SNGL_GENERIC_CONVERSION_NAME, SNPRINTF_FUNCTION_NAME, SPRINTF_FUNCTION_NAME, SQRT_OPERATOR_NAME, SQRTF_OPERATOR_NAME, SQRTL_OPERATOR_NAME, SRAND48_FUNCTION_NAME, SRAND_FUNCTION_NAME, SRANDOM_FUNCTION_NAME, SSCANF_FUNCTION_NAME, STAT_FUNCTION_NAME, statement_with_at_most_one_expression_integer(), statement_with_at_most_one_integer_or_character(), statement_without_argument(), STATIC_INITIALIZATION_FUNCTION_NAME, STOP_FUNCTION_NAME, STRCAT_FUNCTION_NAME, STRCHR_FUNCTION_NAME, STRCMP_FUNCTION_NAME, STRCOLL_FUNCTION_NAME, STRCPY_FUNCTION_NAME, STRCSPN_FUNCTION_NAME, STRDUP_FUNCTION_NAME, STRERROR_FUNCTION_NAME, STRERROR_R_FUNCTION_NAME, STRING_TO_DECIMAL_OPERATOR_NAME, STRLEN_FUNCTION_NAME, STRNCAT_FUNCTION_NAME, STRNCMP_FUNCTION_NAME, STRNCPY_FUNCTION_NAME, STRPBRK_FUNCTION_NAME, STRRCHR_FUNCTION_NAME, STRSPN_FUNCTION_NAME, STRSTR_FUNCTION_NAME, STRTOD_FUNCTION_NAME, STRTOF_FUNCTION_NAME, STRTOK_FUNCTION_NAME, STRTOL_FUNCTION_NAME, STRTOLD_FUNCTION_NAME, STRTOLL_FUNCTION_NAME, STRTOUL_FUNCTION_NAME, STRTOULL_FUNCTION_NAME, STRXFRM_FUNCTION_NAME, SUBSTRING_FUNCTION_NAME, substring_type(), SWAB_FUNCTION_NAME, switch_specific_abs(), switch_specific_acos(), switch_specific_aint(), switch_specific_anint(), switch_specific_asin(), switch_specific_atan(), switch_specific_atan2(), switch_specific_cmplx(), switch_specific_cos(), switch_specific_cosh(), switch_specific_dcmplx(), switch_specific_dim(), switch_specific_exp(), switch_specific_log(), switch_specific_log10(), switch_specific_max(), switch_specific_min(), switch_specific_mod(), switch_specific_nint(), switch_specific_sign(), switch_specific_sin(), switch_specific_sinh(), switch_specific_sqrt(), switch_specific_tan(), switch_specific_tanh(), SWPRINTF_FUNCTION_NAME, SWSCANF_FUNCTION_NAME, SYMLINK_FUNCTION_NAME, SYSTEM_FUNCTION_NAME, TAN_OPERATOR_NAME, TANF_OPERATOR_NAME, TANH_OPERATOR_NAME, TANHF_OPERATOR_NAME, TANHL_OPERATOR_NAME, TANL_OPERATOR_NAME, TEMPNAM_FUNCTION_NAME, TGAMMA_OPERATOR_NAME, TGAMMAF_OPERATOR_NAME, TIME_FUNCTION_NAME, TMPFILE64_FUNCTION_NAME, TMPFILE_FUNCTION_NAME, TMPNAM_FUNCTION_NAME, TOASCII_OPERATOR_NAME, TOLOWER_OPERATOR_NAME, TOUPPER_OPERATOR_NAME, TOWCTRANS_OPERATOR_NAME, TOWLOWER_OPERATOR_NAME, TOWUPPER_OPERATOR_NAME, TRUNC_OPERATOR_NAME, TRUNCF_OPERATOR_NAME, TRUNCL_OPERATOR_NAME, TTYNAME_FUNCTION_NAME, TTYSLOT_FUNCTION_NAME, typing_arithmetic_operator(), typing_assign_substring(), typing_buffer_inout(), typing_concat_operator(), typing_function_char_to_int(), typing_function_char_to_logical(), typing_function_complex_to_complex(), typing_function_complex_to_real(), typing_function_constant_complex(), typing_function_constant_dcomplex(), typing_function_conversion_to_complex(), typing_function_conversion_to_dcomplex(), typing_function_conversion_to_double(), typing_function_conversion_to_integer(), typing_function_conversion_to_real(), typing_function_dcomplex_to_dcomplex(), typing_function_dcomplex_to_double(), typing_function_double_to_double(), typing_function_double_to_int(), typing_function_double_to_longint(), typing_function_double_to_longlongint(), typing_function_format_name(), typing_function_int_to_char(), typing_function_int_to_int(), typing_function_int_to_logical(), typing_function_int_to_real(), typing_function_IntegerRealDouble_to_IntegerRealDouble(), typing_function_IntegerRealDoubleComplex_to_IntegerRealDoubleReal(), typing_function_longdcomplex_to_longdcomplex(), typing_function_longdcomplex_to_longdouble(), typing_function_longdouble_to_int(), typing_function_longdouble_to_longdouble(), typing_function_longdouble_to_longint(), typing_function_longdouble_to_longlongint(), typing_function_longint_to_longint(), typing_function_longlongint_to_longlongint(), typing_function_overloaded(), typing_function_real_to_double(), typing_function_real_to_int(), typing_function_real_to_longint(), typing_function_real_to_longlongint(), typing_function_real_to_real(), typing_function_RealDouble_to_Integer(), typing_function_RealDouble_to_RealDouble(), typing_function_RealDoubleComplex_to_RealDoubleComplex(), typing_implied_do(), typing_logical_operator(), typing_of_assign(), typing_power_operator(), typing_relational_operator(), typing_substring(), ULLTOSTR_FUNCTION_NAME, UNARY_MINUS_OPERATOR_NAME, UNARY_PLUS_OPERATOR_NAME, UNBOUNDED_DIMENSION_NAME, UNGETC_FUNCTION_NAME, UNGETWC_FUNCTION_NAME, UNLINK_FUNCTION_NAME, UNLOCKPT_FUNCTION_NAME, unsigned_integer_to_void_pointer_type(), USLEEP_FUNCTION_NAME, VALLOC_FUNCTION_NAME, VERR_FUNCTION_NAME, VERRX_FUNCTION_NAME, VFPRINTF_FUNCTION_NAME, VFSCANF_FUNCTION_NAME, VFWPRINTF_FUNCTION_NAME, VFWSCANF_FUNCTION_NAME, void_to_integer_type(), void_to_overloaded_type(), void_to_void_to_int_pointer_type(), void_to_void_type(), VPRINTF_FUNCTION_NAME, VSCANF_FUNCTION_NAME, VSNPRINTF_FUNCTION_NAME, VSPRINTF_FUNCTION_NAME, VSSCANF_FUNCTION_NAME, VSWPRINTF_FUNCTION_NAME, VSWSCANF_FUNCTION_NAME, VWARN_FUNCTION_NAME, VWARNX_FUNCTION_NAME, VWPRINTF_FUNCTION_NAME, VWSCANF_FUNCTION_NAME, WARN_FUNCTION_NAME, WARNX_FUNCTION_NAME, WCRTOMB_FUNCTION_NAME, WCSCAT_FUNCTION_NAME, WCSCHR_FUNCTION_NAME, WCSCMP_FUNCTION_NAME, WCSCOLL_FUNCTION_NAME, WCSCPY_FUNCTION_NAME, WCSCSPN_FUNCTION_NAME, WCSFTIME_FUNCTION_NAME, WCSLEN_FUNCTION_NAME, WCSNCAT_FUNCTION_NAME, WCSNCMP_FUNCTION_NAME, WCSNCPY_FUNCTION_NAME, WCSPBRK_FUNCTION_NAME, WCSRCHR_FUNCTION_NAME, WCSRTOMBS_FUNCTION_NAME, WCSSPN_FUNCTION_NAME, WCSSTR_FUNCTION_NAME, WCSTOD_FUNCTION_NAME, WCSTOF_FUNCTION_NAME, WCSTOK_FUNCTION_NAME, WCSTOL_FUNCTION_NAME, WCSTOLD_FUNCTION_NAME, WCSTOLL_FUNCTION_NAME, WCSTOMBS_FUNCTION_NAME, WCSTOUL_FUNCTION_NAME, WCSTOULL_FUNCTION_NAME, WCSXFRM_FUNCTION_NAME, WCTOB_FUNCTION_NAME, WCTOMB_FUNCTION_NAME, WCTRANS_OPERATOR_NAME, WCTYPE_OPERATOR_NAME, WMEMCHR_FUNCTION_NAME, WMEMCMP_FUNCTION_NAME, WMEMCPY_FUNCTION_NAME, WMEMMOVE_FUNCTION_NAME, WMEMSET_FUNCTION_NAME, WPRINTF_FUNCTION_NAME, WRITE_FUNCTION_NAME, WSCANF_FUNCTION_NAME, Y0_OPERATOR_NAME, Y1_OPERATOR_NAME, and YN_OPERATOR_NAME.

Referenced by bootstrap().

+ Here is the caller graph for this function:

◆ CreateLogicalUnits()

static void CreateLogicalUnits ( )
static

First a dummy function - close to C one "crt0()" - in order to

  • link the next entity to its ram
  • make an unbounded dimension for this entity

GO: entity for io logical units: It is an array which

make_storage(is_storage_ram, make_ram(entity_undefined, DynamicArea, 0, NIL))

GO: entity for io logical units: It is an array which

make_storage(is_storage_ram, make_ram(entity_undefined, DynamicArea, 0, NIL))

GO: entity for io logical units: It is an array which

make_storage(is_storage_ram, make_ram(entity_undefined, DynamicArea, 0, NIL))

Definition at line 122 of file bootstrap.c.

123 {
124  /* First a dummy function - close to C one "crt0()" - in order to
125  - link the next entity to its ram
126  - make an unbounded dimension for this entity
127  */
128 
129  entity ent = entity_undefined;
130  entity luns = entity_undefined;
131  sequence s = make_sequence(NIL);
132  code c = make_code(NIL, strdup(""), s, NIL, make_language_unknown());
133 
134  code_initializations(c) = s;
135 
136  ent = make_entity(AddPackageToName(TOP_LEVEL_MODULE_NAME,
137  IO_EFFECTS_PACKAGE_NAME),
138  make_type(is_type_functional,
139  make_functional(NIL,make_type(is_type_void,
140  NIL))),
141  make_storage(is_storage_rom, UU),
142  make_value(is_value_code, c),
143  DEFAULT_ENTITY_KIND);
144 
145  set_current_module_entity(ent);
146 
147  make_entity(AddPackageToName(IO_EFFECTS_PACKAGE_NAME,
148  STATIC_AREA_LOCAL_NAME),
149  make_type(is_type_area, make_area(0, NIL)),
150  make_storage(is_storage_rom, UU),
151  make_value(is_value_unknown, UU),
152  EFFECTS_PACKAGE|ABSTRACT_LOCATION|ENTITY_STATIC_AREA);
153 
154  /* GO: entity for io logical units: It is an array which*/
155  make_entity(AddPackageToName(IO_EFFECTS_PACKAGE_NAME,
156  IO_EFFECTS_ARRAY_NAME),
157  MakeTypeArray(make_basic_int(IO_EFFECTS_UNIT_SPECIFIER_LENGTH),
158  CONS(DIMENSION,
159  make_dimension
160  (int_to_expression(0),
161  /*
162  MakeNullaryCall
163  (CreateIntrinsic(UNBOUNDED_DIMENSION_NAME))
164  */
165  int_to_expression(2000),
166  NIL),
167  NIL)),
168  /* make_storage(is_storage_ram,
169  make_ram(entity_undefined, DynamicArea, 0, NIL))
170  */
171  make_storage(is_storage_ram,
172  make_ram(ent,
173  FindEntity(IO_EFFECTS_PACKAGE_NAME,
174  STATIC_AREA_LOCAL_NAME),
175  0, NIL)),
176  make_value(is_value_unknown, UU),
177  EFFECTS_PACKAGE);
178 
179  /* GO: entity for io logical units: It is an array which*/
180  make_entity(AddPackageToName(IO_EFFECTS_PACKAGE_NAME,
181  IO_EOF_ARRAY_NAME),
182  MakeTypeArray(make_basic_logical(IO_EFFECTS_UNIT_SPECIFIER_LENGTH),
183  CONS(DIMENSION,
184  make_dimension
185  (int_to_expression(0),
186  /*
187  MakeNullaryCall
188  (CreateIntrinsic(UNBOUNDED_DIMENSION_NAME))
189  */
190  int_to_expression(2000),
191  NIL),
192  NIL)),
193  /* make_storage(is_storage_ram,
194  make_ram(entity_undefined, DynamicArea, 0, NIL))
195  */
196  make_storage(is_storage_ram,
197  make_ram(ent,
198  FindEntity(IO_EFFECTS_PACKAGE_NAME,
199  STATIC_AREA_LOCAL_NAME),
200  0, NIL)),
201  make_value(is_value_unknown, UU),
202  EFFECTS_PACKAGE);
203 
204  /* GO: entity for io logical units: It is an array which*/
205  luns = make_entity(AddPackageToName(IO_EFFECTS_PACKAGE_NAME,
206  IO_ERROR_ARRAY_NAME),
207  MakeTypeArray(make_basic_logical(IO_EFFECTS_UNIT_SPECIFIER_LENGTH),
208  CONS(DIMENSION,
209  make_dimension
210  (int_to_expression(0),
211  /*
212  * MakeNullaryCall
213  * (CreateIntrinsic(UNBOUNDED_DIMENSION_NAME))
214  */
215  int_to_expression(2000),
216  NIL),
217  NIL)),
218  /* make_storage(is_storage_ram,
219  * make_ram(entity_undefined, DynamicArea, 0, NIL))
220  */
221  make_storage(is_storage_ram,
222  make_ram(ent,
223  FindEntity(IO_EFFECTS_PACKAGE_NAME,
224  STATIC_AREA_LOCAL_NAME),
225  0, NIL)),
226  make_value(is_value_unknown, UU),
227  EFFECTS_PACKAGE);
228 
229  reset_current_module_entity();
230  add_abstract_state_variable(luns);
231 }
make_basic_int
basic make_basic_int(intptr_t _field_)
Definition: ri.c:158
make_dimension
dimension make_dimension(expression a1, expression a2, list a3)
Definition: ri.c:565
make_basic_logical
basic make_basic_logical(intptr_t _field_)
Definition: ri.c:164
IO_EFFECTS_PACKAGE_NAME
#define IO_EFFECTS_PACKAGE_NAME
Implicit variables to handle IO effetcs.
Definition: ri-util-local.h:1980
IO_EFFECTS_UNIT_SPECIFIER_LENGTH
#define IO_EFFECTS_UNIT_SPECIFIER_LENGTH
size of the unit specifier
Definition: ri-util-local.h:2010
IO_EFFECTS_ARRAY_NAME
#define IO_EFFECTS_ARRAY_NAME
array of Logical UNits; it is more or less handled as the current file pointer; in C,...
Definition: ri-util-local.h:1996
IO_EOF_ARRAY_NAME
#define IO_EOF_ARRAY_NAME
array of end of file codes
Definition: ri-util-local.h:2003
IO_ERROR_ARRAY_NAME
#define IO_ERROR_ARRAY_NAME
array of error codes for LUNs
Definition: ri-util-local.h:2005
int_to_expression
expression int_to_expression(_int i)
transform an int into an expression and generate the corresponding entity if necessary; it is not cle...
Definition: expression.c:1188
MakeTypeArray
type MakeTypeArray(basic, cons *)
functions on types
Definition: type.c:162
DIMENSION
#define DIMENSION
Definition: sc_simplex_feasibility_fixprec.c:118

References ABSTRACT_LOCATION, add_abstract_state_variable(), AddPackageToName(), code_initializations, CONS, DEFAULT_ENTITY_KIND, DIMENSION, EFFECTS_PACKAGE, ENTITY_STATIC_AREA, entity_undefined, FindEntity(), int_to_expression(), IO_EFFECTS_ARRAY_NAME, IO_EFFECTS_PACKAGE_NAME, IO_EFFECTS_UNIT_SPECIFIER_LENGTH, IO_EOF_ARRAY_NAME, IO_ERROR_ARRAY_NAME, is_storage_ram, is_storage_rom, is_type_area, is_type_functional, is_type_void, is_value_code, is_value_unknown, make_area(), make_basic_int(), make_basic_logical(), make_code(), make_dimension(), make_entity, make_functional(), make_language_unknown(), make_ram(), make_sequence(), make_storage(), make_type(), make_value(), MakeTypeArray(), NIL, reset_current_module_entity(), set_current_module_entity(), STATIC_AREA_LOCAL_NAME, strdup(), TOP_LEVEL_MODULE_NAME, and UU.

Referenced by bootstrap().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ CreateMemmoveAbstractState()

static void CreateMemmoveAbstractState ( )
static

Definition at line 319 of file bootstrap.c.

320 {
321  entity as =
322  CreateAbstractStateVariable(MEMMOVE_EFFECTS_PACKAGE_NAME, MEMMOVE_EFFECTS_NAME);
323 
324  add_thread_safe_variable(as);
325  add_abstract_state_variable(as);
326 }
MEMMOVE_EFFECTS_PACKAGE_NAME
#define MEMMOVE_EFFECTS_PACKAGE_NAME
package name for memmove routines
Definition: ri-util-local.h:1992
MEMMOVE_EFFECTS_NAME
#define MEMMOVE_EFFECTS_NAME
variable name for memmove unit
Definition: ri-util-local.h:1994

References add_abstract_state_variable(), add_thread_safe_variable(), CreateAbstractStateVariable(), MEMMOVE_EFFECTS_NAME, and MEMMOVE_EFFECTS_PACKAGE_NAME.

Referenced by bootstrap().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ CreateRandomSeed()

static void CreateRandomSeed ( )
static

Definition at line 292 of file bootstrap.c.

293 {
294  entity as =
295  CreateAbstractStateVariable(RAND_EFFECTS_PACKAGE_NAME, RAND_GEN_EFFECTS_NAME);
296  //add_thread_safe_variable(as);
297  add_abstract_state_variable(as);
298 }
RAND_GEN_EFFECTS_NAME
#define RAND_GEN_EFFECTS_NAME
variable name for random unit
Definition: ri-util-local.h:1986
RAND_EFFECTS_PACKAGE_NAME
#define RAND_EFFECTS_PACKAGE_NAME
package name for random routines
Definition: ri-util-local.h:1984

References add_abstract_state_variable(), CreateAbstractStateVariable(), RAND_EFFECTS_PACKAGE_NAME, and RAND_GEN_EFFECTS_NAME.

Referenced by bootstrap().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ CreateTimeSeed()

static void CreateTimeSeed ( )
static

Definition at line 300 of file bootstrap.c.

301 {
302  entity as =
303  CreateAbstractStateVariable(TIME_EFFECTS_PACKAGE_NAME, TIME_EFFECTS_VARIABLE_NAME);
304  add_abstract_state_variable(as);
305  entity asb =
306  CreateAbstractStateVariable(TIME_EFFECTS_PACKAGE_NAME, TIME_EFFECTS_BUFFER_NAME);
307  add_abstract_state_variable(asb);
308 }
TIME_EFFECTS_PACKAGE_NAME
#define TIME_EFFECTS_PACKAGE_NAME
package name for time routines
Definition: ri-util-local.h:1982
TIME_EFFECTS_BUFFER_NAME
#define TIME_EFFECTS_BUFFER_NAME
Definition: ri-util-local.h:2008
TIME_EFFECTS_VARIABLE_NAME
#define TIME_EFFECTS_VARIABLE_NAME
variable holding time effects
Definition: ri-util-local.h:2007

References add_abstract_state_variable(), CreateAbstractStateVariable(), TIME_EFFECTS_BUFFER_NAME, TIME_EFFECTS_PACKAGE_NAME, and TIME_EFFECTS_VARIABLE_NAME.

Referenced by bootstrap().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ default_intrinsic_type()

static type default_intrinsic_type ( int  n)
static

The default intrinsic type is a functional type with n overloaded arguments returning an overloaded result if the arity is known.

If the arity is unknown, the default intrinsic type is a 0-ary functional type returning an overloaded result.

Definition at line 362 of file bootstrap.c.

363 {
364  type t = type_undefined;
365  functional ft = functional_undefined;
366 
367  ft = make_functional(NIL, MakeOverloadedResult());
368  t = make_type(is_type_functional, ft);
369 
370  functional_parameters(ft) =
371  make_parameter_list(n, MakeOverloadedParameter);
372  return t;
373 }
MakeOverloadedParameter
parameter MakeOverloadedParameter(void)
Definition: type.c:167

References functional_parameters, functional_undefined, is_type_functional, make_functional(), make_parameter_list(), make_type(), MakeOverloadedParameter(), MakeOverloadedResult(), NIL, and type_undefined.

Referenced by CreateIntrinsics(), and FindOrMakeDefaultIntrinsic().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ double_to_double_type()

static type double_to_double_type ( int  n)
static

Definition at line 777 of file bootstrap.c.

778 {
779  type t = type_undefined;
780  functional ft = functional_undefined;
781 
782  ft = make_functional(NIL, MakeDoubleprecisionResult());
783  functional_parameters(ft) =
784  make_parameter_list(n, MakeDoubleprecisionParameter);
785  t = make_type(is_type_functional, ft);
786 
787  return t;
788 }
MakeDoubleprecisionParameter
parameter MakeDoubleprecisionParameter(void)
Definition: type.c:209

References functional_parameters, functional_undefined, is_type_functional, make_functional(), make_parameter_list(), make_type(), MakeDoubleprecisionParameter(), MakeDoubleprecisionResult(), NIL, and type_undefined.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ double_to_integer_type()

static type double_to_integer_type ( int  n)
static

Definition at line 691 of file bootstrap.c.

692 {
693  type t = type_undefined;
694  functional ft = functional_undefined;
695 
696  ft = make_functional(NIL, MakeIntegerResult());
697  functional_parameters(ft) =
698  make_parameter_list(n, MakeDoubleprecisionParameter);
699  t = make_type(is_type_functional, ft);
700 
701  return t;
702 }

References functional_parameters, functional_undefined, is_type_functional, make_functional(), make_parameter_list(), make_type(), MakeDoubleprecisionParameter(), MakeIntegerResult(), NIL, and type_undefined.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ double_to_longinteger_type()

static type double_to_longinteger_type ( int  n)
static

MB.

Definition at line 705 of file bootstrap.c.

706 {
707  type t = type_undefined;
708  functional ft = functional_undefined;
709 
710  ft = make_functional(NIL, MakeLongIntegerResult());
711  functional_parameters(ft) =
712  make_parameter_list(n, MakeDoubleprecisionParameter);
713  t = make_type(is_type_functional, ft);
714 
715  return t;
716 }
MakeLongIntegerResult
type MakeLongIntegerResult(void)
MB.
Definition: type.c:281

References functional_parameters, functional_undefined, is_type_functional, make_functional(), make_parameter_list(), make_type(), MakeDoubleprecisionParameter(), MakeLongIntegerResult(), NIL, and type_undefined.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ double_to_longlonginteger_type()

static type double_to_longlonginteger_type ( int  n)
static

MB.

Definition at line 719 of file bootstrap.c.

720 {
721  type t = type_undefined;
722  functional ft = functional_undefined;
723 
724  ft = make_functional(NIL, MakeLongLongIntegerResult());
725  functional_parameters(ft) =
726  make_parameter_list(n, MakeDoubleprecisionParameter);
727  t = make_type(is_type_functional, ft);
728 
729  return t;
730 }
MakeLongLongIntegerResult
type MakeLongLongIntegerResult(void)
MB.
Definition: type.c:286

References functional_parameters, functional_undefined, is_type_functional, make_functional(), make_parameter_list(), make_type(), MakeDoubleprecisionParameter(), MakeLongLongIntegerResult(), NIL, and type_undefined.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ doublecomplex_to_double_type()

static type doublecomplex_to_double_type ( int  n)
static

Definition at line 862 of file bootstrap.c.

863 {
864  type t = type_undefined;
865  functional ft = functional_undefined;
866 
867  ft = make_functional(NIL, MakeDoubleprecisionResult());
868  functional_parameters(ft) =
869  make_parameter_list(n, MakeDoublecomplexParameter);
870  t = make_type(is_type_functional, ft);
871 
872  return t;
873 }
MakeDoublecomplexParameter
parameter MakeDoublecomplexParameter(void)
Definition: type.c:229

References functional_parameters, functional_undefined, is_type_functional, make_functional(), make_parameter_list(), make_type(), MakeDoublecomplexParameter(), MakeDoubleprecisionResult(), NIL, and type_undefined.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ doublecomplex_to_doublecomplex_type()

static type doublecomplex_to_doublecomplex_type ( int  n)
static

Definition at line 889 of file bootstrap.c.

890 {
891  type t = type_undefined;
892  functional ft = functional_undefined;
893 
894  ft = make_functional(NIL, MakeDoublecomplexResult());
895  functional_parameters(ft) =
896  make_parameter_list(n, MakeDoublecomplexParameter);
897  t = make_type(is_type_functional, ft);
898 
899  return t;
900 }
MakeDoublecomplexResult
type MakeDoublecomplexResult(void)
Definition: type.c:316

References functional_parameters, functional_undefined, is_type_functional, make_functional(), make_parameter_list(), make_type(), MakeDoublecomplexParameter(), MakeDoublecomplexResult(), NIL, and type_undefined.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ FindOrMakeDefaultIntrinsic()

entity FindOrMakeDefaultIntrinsic ( string  name,
int  arity 
)

Create a default intrinsic.

Useful to create on-the-fly intrinsics.

It creates an intrinsic with a default type, that is with overload parameter and return types.

Parameters
nameis the name of the intrinsic
nis the number of argument
Returns
the entity of the intrinsic

It seems it has been previously created:

Parameters
nameame
arityrity

Definition at line 4397 of file bootstrap.c.

4398 {
4399  entity e = FindEntity(TOP_LEVEL_MODULE_NAME, name);
4400  if (!entity_undefined_p(e))
4401  /* It seems it has been previously created: */
4402  return e;
4403 
4404  return MakeIntrinsic(name, arity, default_intrinsic_type);
4405 }
MakeIntrinsic
static entity MakeIntrinsic(string name, int arity, type(*intrinsic_type)(int))
This function creates an entity that represents an intrinsic function.
Definition: bootstrap.c:4351

References default_intrinsic_type(), entity_undefined_p, FindEntity(), MakeIntrinsic(), and TOP_LEVEL_MODULE_NAME.

+ Here is the call graph for this function:

◆ FindOrMakeIntrinsic()

entity FindOrMakeIntrinsic ( string  name,
int  arity,
type(*)(int)  intrinsic_type 
)

This function creates an entity that represents an intrinsic function, if the entity does not already exist.

Fortran operators and basic statements are intrinsic functions.

An intrinsic function has a rom storage, an unknown initial value and a functional type whose result and arguments have an overloaded basic type. The number of arguments is given by the IntrinsicTypeDescriptorTable data structure.

Parameters
nameame
arityrity

Definition at line 4371 of file bootstrap.c.

4372 {
4373  entity e = FindEntity(TOP_LEVEL_MODULE_NAME, name);
4374 
4375  if (entity_undefined_p(e)) {
4376  e = MakeIntrinsic(name, arity, intrinsic_type);
4377  }
4378 
4379  return e;
4380 }

References entity_undefined_p, FindEntity(), MakeIntrinsic(), and TOP_LEVEL_MODULE_NAME.

Referenced by register_intrinsic_type_descriptor().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ get_cast_function_for_basic()

static entity get_cast_function_for_basic ( basic  cast,
basic  from 
)
static

Definition at line 1495 of file bootstrap.c.

1496 {
1497  switch (basic_tag(cast))
1498  {
1499  case is_basic_int:
1500  if (from!=NULL && from!=basic_undefined && basic_string_p(from))
1501  {
1502  return CreateIntrinsic(CHAR_TO_INT_CONVERSION_NAME);
1503  }
1504  else
1505  {
1506  switch(basic_int(cast))
1507  {
1508  case 2:
1509  case 4:
1510  case 8:
1511  return CreateIntrinsic(INT_GENERIC_CONVERSION_NAME) ;
1512  default:
1513  pips_internal_error("Unexpected integer size %d", basic_int(cast));
1514  }
1515  }
1516  break;
1517  case is_basic_float:
1518  switch(basic_float(cast))
1519  {
1520  case 4:
1521  return CreateIntrinsic(REAL_GENERIC_CONVERSION_NAME) ;
1522  case 8:
1523  return CreateIntrinsic(DBLE_GENERIC_CONVERSION_NAME) ;
1524  default:
1525  pips_internal_error("Unexpected float size %d", basic_float(cast));
1526  }
1527  break;
1528  case is_basic_logical:
1529  switch(basic_logical(cast))
1530  {
1531  case 1:
1532  case 2:
1533  case 4:
1534  case 8:
1535  return entity_undefined;
1536  default:
1537  pips_internal_error("Unexpected logical size %d", basic_logical(cast));
1538  }
1539  break;
1540  case is_basic_complex:
1541  switch(basic_complex(cast))
1542  {
1543  case 8:
1544  return CreateIntrinsic(CMPLX_GENERIC_CONVERSION_NAME) ;
1545  case 16:
1546  return CreateIntrinsic(DCMPLX_GENERIC_CONVERSION_NAME) ;
1547  default:
1548  pips_internal_error("Unexpected complex size %d", basic_complex(cast));
1549  }
1550  break;
1551  case is_basic_string:
1552  return CreateIntrinsic(INT_TO_CHAR_CONVERSION_NAME);
1553  case is_basic_overloaded:
1554  pips_internal_error("Should never convert to overloaded...");
1555  default:
1556  pips_internal_error("Unexpected basic tag (%d)", basic_tag(cast));
1557  }
1558 
1559  return NULL;
1560 }
is_basic_string
@ is_basic_string
Definition: ri.h:576
is_basic_overloaded
@ is_basic_overloaded
Definition: ri.h:574
is_basic_logical
@ is_basic_logical
Definition: ri.h:573
is_basic_complex
@ is_basic_complex
Definition: ri.h:575
basic_tag
#define basic_tag(x)
Definition: ri.h:613
basic_logical
#define basic_logical(x)
Definition: ri.h:622
_newgen_struct_cast_
Definition: ri.h:737

References basic_complex, basic_float, basic_int, basic_logical, basic_string_p, basic_tag, basic_undefined, CHAR_TO_INT_CONVERSION_NAME, CMPLX_GENERIC_CONVERSION_NAME, CreateIntrinsic(), DBLE_GENERIC_CONVERSION_NAME, DCMPLX_GENERIC_CONVERSION_NAME, entity_undefined, INT_GENERIC_CONVERSION_NAME, INT_TO_CHAR_CONVERSION_NAME, is_basic_complex, is_basic_float, is_basic_int, is_basic_logical, is_basic_overloaded, is_basic_string, pips_internal_error, and REAL_GENERIC_CONVERSION_NAME.

Referenced by insert_cast().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ get_switch_name_function_for_intrinsic()

switch_name_function get_switch_name_function_for_intrinsic ( const char *  name)
Parameters
nameame

Definition at line 4338 of file bootstrap.c.

4339 {
4340  return ((IntrinsicDescriptor *) hash_get(intrinsic_type_descriptor_mapping, name))->name_function;
4341 }
hash_get
void * hash_get(const hash_table htp, const void *key)
this function retrieves in the hash table pointed to by htp the couple whose key is equal to key.
Definition: hash.c:449

References hash_get(), and intrinsic_type_descriptor_mapping.

Referenced by type_this_call().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ get_typing_function_for_intrinsic()

typing_function_t get_typing_function_for_intrinsic ( const char *  name)
Parameters
nameame

Definition at line 4330 of file bootstrap.c.

4331 {
4332  return ((IntrinsicDescriptor *) hash_get(intrinsic_type_descriptor_mapping, name))->type_function;
4333 }

References hash_get(), and intrinsic_type_descriptor_mapping.

Referenced by type_this_call(), and type_this_instruction().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ insert_cast()

expression insert_cast ( basic  cast,
basic  from,
expression  exp,
type_context_p  context 
)

Function in type_checker.c.

If exp is a constant -> Convert it e.g: 5.9 -> 5 (REAL -> INT)

If not

Count the number of conversions

Parameters
fromrom
expxp
contextontext

Definition at line 1567 of file bootstrap.c.

1568 {
1569  call c;
1570  syntax s;
1571  entity cast_function;
1572  expression exp_constant;
1573 
1574  s = expression_syntax(exp);
1575 
1576  /* If exp is a constant -> Convert it
1577  * e.g: 5.9 -> 5 (REAL -> INT)
1578  */
1579  if ((exp_constant = cast_constant(exp, cast, context)) != NULL)
1580  {
1581  return exp_constant;
1582  }
1583 
1584  /* If not */
1585  cast_function = get_cast_function_for_basic(cast, from);
1586  if (cast_function == NULL)
1587  {
1588  pips_internal_error("Cast function is not verified!");
1589  }
1590  if (cast_function == entity_undefined)
1591  {
1592  pips_internal_error("Can not convert to LOGICAL!");
1593  }
1594  c = make_call(cast_function, CONS(EXPRESSION, exp, NIL));
1595  s = make_syntax(is_syntax_call, c);
1596 
1597  /* Count the number of conversions */
1598  context->number_of_conversion++;
1599 
1600  return make_expression(s, normalized_undefined);
1601 }
get_cast_function_for_basic
static entity get_cast_function_for_basic(basic cast, basic from)
Definition: bootstrap.c:1495

References cast_constant(), CONS, entity_undefined, exp, EXPRESSION, expression_syntax, get_cast_function_for_basic(), is_syntax_call, make_call(), make_expression(), make_syntax(), NIL, normalized_undefined, and pips_internal_error.

Referenced by check_this_reference(), type_loop_range(), type_this_entity_if_needed(), typing_arguments(), typing_of_assign(), and typing_power_operator().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ integer_to_integer_type()

static type integer_to_integer_type ( int  n)
static

Why do we make these functions static and keep them here instead of populating ri-util/type.c?

Definition at line 505 of file bootstrap.c.

506 {
507  type t = type_undefined;
508  functional ft = functional_undefined;
509 
510  ft = make_functional(NIL, MakeIntegerResult());
511  functional_parameters(ft) =
512  make_parameter_list(n, MakeIntegerParameter);
513  t = make_type(is_type_functional, ft);
514 
515  return t;
516 }

References functional_parameters, functional_undefined, is_type_functional, make_functional(), make_parameter_list(), make_type(), MakeIntegerParameter(), MakeIntegerResult(), NIL, and type_undefined.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ integer_to_logical_type()

static type integer_to_logical_type ( int  n)
static

to handle BTEST function which takes integer as parameter and returns logical.

Amira Mensi

Definition at line 490 of file bootstrap.c.

491 {
492  type t = type_undefined;
493  functional ft = functional_undefined;
494 
495  ft = make_functional(NIL, MakeLogicalResult());
496  functional_parameters(ft) =
497  make_parameter_list(n, MakeIntegerParameter);
498  t = make_type(is_type_functional, ft);
499 
500  return t;
501 }

References functional_parameters, functional_undefined, is_type_functional, make_functional(), make_parameter_list(), make_type(), MakeIntegerParameter(), MakeLogicalResult(), NIL, and type_undefined.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ integer_to_overloaded_type()

type integer_to_overloaded_type ( int  n)

Definition at line 4222 of file bootstrap.c.

4223 {
4224  type t = type_undefined;
4225  functional ft = functional_undefined;
4226 
4227  ft = make_functional(NIL, MakeOverloadedResult());
4228  t = make_type(is_type_functional, ft);
4229 
4230  functional_parameters(ft) =
4231  make_parameter_list(n, MakeIntegerParameter);
4232  return t;
4233 }

References functional_parameters, functional_undefined, is_type_functional, make_functional(), make_parameter_list(), make_type(), MakeIntegerParameter(), MakeOverloadedResult(), NIL, and type_undefined.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ integer_to_real_type()

static type integer_to_real_type ( int  n)
static

Definition at line 598 of file bootstrap.c.

599 {
600  type t = type_undefined;
601  functional ft = functional_undefined;
602 
603  ft = make_functional(NIL, MakeRealResult());
604  functional_parameters(ft) = make_parameter_list(n, MakeIntegerParameter);
605  t = make_type(is_type_functional, ft);
606 
607  return t;
608 }

References functional_parameters, functional_undefined, is_type_functional, make_functional(), make_parameter_list(), make_type(), MakeIntegerParameter(), MakeRealResult(), NIL, and type_undefined.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ integer_to_void_type()

type integer_to_void_type ( int  n)

Definition at line 4264 of file bootstrap.c.

4265 {
4266  type t = type_undefined;
4267  functional ft = functional_undefined;
4268 
4269  ft = make_functional(NIL, make_type_void(NIL));
4270  t = make_type(is_type_functional, ft);
4271 
4272  functional_parameters(ft) =
4273  make_parameter_list(n, MakeIntegerParameter);
4274  return t;
4275 }
make_type_void
type make_type_void(list _field_)
Definition: ri.c:2727

References functional_parameters, functional_undefined, is_type_functional, make_functional(), make_parameter_list(), make_type(), make_type_void(), MakeIntegerParameter(), NIL, and type_undefined.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ is_access_specifier()

static bool is_access_specifier ( expression  exp,
type_context_p  context 
)
static

Definition at line 3360 of file bootstrap.c.

3361 {
3362  return is_string_specifier("ACCESS", exp, context);
3363 }
is_string_specifier
static bool is_string_specifier(string s, expression e, type_context_p context)
Definition: bootstrap.c:3236

References exp, and is_string_specifier().

Referenced by check_io_list().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ is_basic_complex_p()

static bool is_basic_complex_p ( basic  b)
static

Definition at line 1689 of file bootstrap.c.

1690 {
1691  return basic_complex_p(b) && basic_complex(b)==8;
1692 }

References basic_complex, and basic_complex_p.

Referenced by arguments_are_complex().

+ Here is the caller graph for this function:

◆ is_basic_dcomplex_p()

static bool is_basic_dcomplex_p ( basic  b)
static

Definition at line 1694 of file bootstrap.c.

1695 {
1696  return basic_complex_p(b) && basic_complex(b)==16;
1697 }

References basic_complex, and basic_complex_p.

Referenced by arguments_are_dcomplex().

+ Here is the caller graph for this function:

◆ is_basic_double_p()

static bool is_basic_double_p ( basic  b)
static

Definition at line 1679 of file bootstrap.c.

1680 {
1681  return basic_float_p(b) && basic_float(b)==8;
1682 }

References basic_float, and basic_float_p.

Referenced by arguments_are_double().

+ Here is the caller graph for this function:

◆ is_basic_int_p()

static bool is_basic_int_p ( basic  b)
static

Definition at line 1659 of file bootstrap.c.

1660 {
1661  return basic_int_p(b) && basic_int(b)==4;
1662 }

References basic_int, and basic_int_p.

Referenced by arguments_are_integer().

+ Here is the caller graph for this function:

◆ is_basic_longdcomplex_p()

static bool is_basic_longdcomplex_p ( basic  b)
static

MB.

Definition at line 1699 of file bootstrap.c.

1700 {
1701  return basic_complex_p(b) && basic_complex(b)==32;
1702 }

References basic_complex, and basic_complex_p.

Referenced by arguments_are_longdcomplex().

+ Here is the caller graph for this function:

◆ is_basic_longdouble_p()

static bool is_basic_longdouble_p ( basic  b)
static

MB.

Definition at line 1684 of file bootstrap.c.

1685 {
1686  return basic_float_p(b) && basic_float(b)==16;
1687 }

References basic_float, and basic_float_p.

Referenced by arguments_are_longdouble().

+ Here is the caller graph for this function:

◆ is_basic_longint_p()

static bool is_basic_longint_p ( basic  b)
static

MB.

Definition at line 1664 of file bootstrap.c.

1665 {
1666  return basic_int_p(b) && basic_int(b)==6;
1667 }

References basic_int, and basic_int_p.

Referenced by arguments_are_longinteger().

+ Here is the caller graph for this function:

◆ is_basic_longlongint_p()

static bool is_basic_longlongint_p ( basic  b)
static

MB.

Definition at line 1669 of file bootstrap.c.

1670 {
1671  return basic_int_p(b) && basic_int(b)==8;
1672 }

References basic_int, and basic_int_p.

Referenced by arguments_are_longlonginteger().

+ Here is the caller graph for this function:

◆ is_basic_real_p()

static bool is_basic_real_p ( basic  b)
static

Definition at line 1674 of file bootstrap.c.

1675 {
1676  return basic_float_p(b) && basic_float(b)==4;
1677 }

References basic_float, and basic_float_p.

Referenced by arguments_are_real().

+ Here is the caller graph for this function:

◆ is_blank_specifier()

static bool is_blank_specifier ( expression  exp,
type_context_p  context 
)
static

Definition at line 3378 of file bootstrap.c.

3379 {
3380  return is_string_specifier("BLANK", exp, context);
3381 }

References exp, and is_string_specifier().

Referenced by check_io_list().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ is_constant()

static bool is_constant ( expression  exp)
static

Verify if an expression is a constant: YES : return true; otherwise, return FALSE.

Definition at line 3046 of file bootstrap.c.

3047 {
3048  syntax s = expression_syntax(exp);
3049  if (!syntax_call_p(s))
3050  {
3051  return false;
3052  }
3053  return (entity_constant_p(call_function(syntax_call(s))));
3054 }

References call_function, entity_constant_p, exp, expression_syntax, syntax_call, and syntax_call_p.

Referenced by is_constant_of_basic().

+ Here is the caller graph for this function:

◆ is_constant_of_basic()

static bool is_constant_of_basic ( expression  exp,
basic  b 
)
static

Verify if an expression is a constant of basic b: YES : return true; otherwise, return FALSE.

Definition at line 3060 of file bootstrap.c.

3061 {
3062  type call_type, return_type;
3063  basic bb;
3064  if (!is_constant(exp))
3065  {
3066  return false;
3067  }
3068  call_type = entity_type(call_function(syntax_call(expression_syntax(exp))));
3069  return_type = functional_result(type_functional(call_type));
3070  bb = variable_basic(type_variable(return_type));
3071  if (basic_undefined_p(bb) || !basic_equal_p(b, bb))
3072  {
3073  return false;
3074  }
3075  return true;
3076 }
is_constant
static bool is_constant(expression exp)
Verify if an expression is a constant: YES : return true; otherwise, return FALSE.
Definition: bootstrap.c:3046
functional_result
#define functional_result(x)
Definition: ri.h:1444
type_functional
#define type_functional(x)
Definition: ri.h:2952
entity_type
#define entity_type(x)
Definition: ri.h:2792
variable_basic
#define variable_basic(x)
Definition: ri.h:3120

References basic_equal_p(), basic_undefined_p, call_function, entity_type, exp, expression_syntax, functional_result, is_constant(), syntax_call, type_functional, type_variable, and variable_basic.

Referenced by statement_with_at_most_one_integer_or_character().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ is_direct_specifier()

static bool is_direct_specifier ( expression  exp,
type_context_p  context 
)
static

Definition at line 3438 of file bootstrap.c.

3439 {
3440  basic b = make_basic_string(0);
3441  bool r = is_varibale_array_element_specifier("DIRECT", exp, b, context);
3442  free_basic(b);
3443  return r;
3444 }
make_basic_string
basic make_basic_string(value _field_)
Definition: ri.c:173
is_varibale_array_element_specifier
static bool is_varibale_array_element_specifier(string s, expression e, basic b, type_context_p context)
Definition: bootstrap.c:3270

References exp, free_basic(), is_varibale_array_element_specifier(), and make_basic_string().

Referenced by check_io_list().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ is_end_specifier()

static bool is_end_specifier ( expression  exp,
type_context_p  context 
)
static

Definition at line 3342 of file bootstrap.c.

3343 {
3344  return is_label_specifier("END", exp, context);
3345 }
is_label_specifier
static bool is_label_specifier(string s, expression e, type_context_p context)
Definition: bootstrap.c:3204

References exp, and is_label_specifier().

Referenced by check_io_list().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ is_err_specifier()

static bool is_err_specifier ( expression  exp,
type_context_p  context 
)
static

Error specifier is a label statement.

Definition at line 3336 of file bootstrap.c.

3337 {
3338  return is_label_specifier("ERR", exp, context);
3339 }

References exp, and is_label_specifier().

Referenced by check_io_list().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ is_exist_specifier()

static bool is_exist_specifier ( expression  exp,
type_context_p  context 
)
static

Definition at line 3384 of file bootstrap.c.

3385 {
3386  basic b = make_basic_logical(4);
3387  bool r = is_varibale_array_element_specifier("IOSTAT", exp, b, context);
3388  free_basic(b);
3389  return r;
3390 }

References exp, free_basic(), is_varibale_array_element_specifier(), and make_basic_logical().

Referenced by check_io_list().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ is_file_specifier()

static bool is_file_specifier ( expression  exp,
type_context_p  context 
)
static

Definition at line 3348 of file bootstrap.c.

3349 {
3350  return is_string_specifier("FILE", exp, context);
3351 }

References exp, and is_string_specifier().

Referenced by check_io_list().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ is_form_specifier()

static bool is_form_specifier ( expression  exp,
type_context_p  context 
)
static

Definition at line 3366 of file bootstrap.c.

3367 {
3368  return is_string_specifier("FORM", exp, context);
3369 }

References exp, and is_string_specifier().

Referenced by check_io_list().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ is_format_specifier()

static bool is_format_specifier ( expression  exp,
type_context_p  context 
)
static

Definition at line 3310 of file bootstrap.c.

3311 {
3312  return is_label_integer_string_specifier("FORMAT", exp, context);
3313 }
is_label_integer_string_specifier
static bool is_label_integer_string_specifier(string s, expression e, type_context_p context)
Definition: bootstrap.c:3252

References exp, and is_label_integer_string_specifier().

Referenced by check_io_list().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ is_formated_specifier()

static bool is_formated_specifier ( expression  exp,
type_context_p  context 
)
static

Definition at line 3447 of file bootstrap.c.

3448 {
3449  basic b = make_basic_string(0);
3450  bool r = is_varibale_array_element_specifier("FORMATTED", exp, b, context);
3451  free_basic(b);
3452  return r;
3453 }

References exp, free_basic(), is_varibale_array_element_specifier(), and make_basic_string().

Referenced by check_io_list().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ is_integer_specifier()

static bool is_integer_specifier ( string  s,
expression  e,
type_context_p  context 
)
static

Count the number of errors

Definition at line 3219 of file bootstrap.c.

3220 {
3221  basic b = GET_TYPE(context->types, e);
3222 
3223  if (!basic_int_p(b))
3224  {
3225  add_one_line_of_comment((statement) stack_head(context->stats),
3226  "%s specifier must be an integer expression", s);
3227 
3228  /* Count the number of errors */
3229  context->number_of_error++;
3230  return false;
3231  }
3232  return true;
3233 }

References add_one_line_of_comment(), basic_int_p, GET_TYPE, stack_head(), and context::stats.

Referenced by is_recl_specifier().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ is_iostat_specifier()

static bool is_iostat_specifier ( expression  exp,
type_context_p  context 
)
static

Integer variable or integer array element which is maybe modified.

Definition at line 3324 of file bootstrap.c.

3325 {
3326  basic b = make_basic_int(4);
3327  bool r = is_varibale_array_element_specifier("IOSTAT", exp, b, context);
3328  free_basic(b);
3329  return r;
3330 }

References exp, free_basic(), is_varibale_array_element_specifier(), and make_basic_int().

Referenced by check_io_list().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ is_label_integer_string_specifier()

static bool is_label_integer_string_specifier ( string  s,
expression  e,
type_context_p  context 
)
static

Count the number of errors

Definition at line 3252 of file bootstrap.c.

3254 {
3255  basic b = GET_TYPE(context->types, e);
3256  if (!is_label_statement(e) && !basic_int_p(b) && !basic_string_p(b))
3257  {
3258  add_one_line_of_comment((statement) stack_head(context->stats),
3259  "%s specifier must be a label, an integer or character expression", s);
3260 
3261  /* Count the number of errors */
3262  context->number_of_error++;
3263  return false;
3264  }
3265 
3266  return true;
3267 }
is_label_statement
static bool is_label_statement(expression exp)
Definition: bootstrap.c:3189

References add_one_line_of_comment(), basic_int_p, basic_string_p, GET_TYPE, is_label_statement(), stack_head(), and context::stats.

Referenced by is_format_specifier(), and is_record_specifier().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ is_label_specifier()

static bool is_label_specifier ( string  s,
expression  e,
type_context_p  context 
)
static

Count the number of errors

Definition at line 3204 of file bootstrap.c.

3205 {
3206  if (!is_label_statement(e))
3207  {
3208  add_one_line_of_comment((statement) stack_head(context->stats),
3209  "%s specifier must be a label statement", s);
3210 
3211  /* Count the number of errors */
3212  context->number_of_error++;
3213  return false;
3214  }
3215  return true;
3216 }

References add_one_line_of_comment(), is_label_statement(), stack_head(), and context::stats.

Referenced by is_end_specifier(), and is_err_specifier().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ is_label_statement()

static bool is_label_statement ( expression  exp)
static

Definition at line 3189 of file bootstrap.c.

3190 {
3191  call c;
3192  entity fc;
3193  syntax s = expression_syntax(exp);
3194  if (!syntax_call_p(s))
3195  {
3196  return false;
3197  }
3198  c = syntax_call(s);
3199  fc = call_function(c);
3200  return entity_label_p(fc);
3201 }
entity_label_p
bool entity_label_p(entity e)
Definition: entity.c:678

References call_function, entity_label_p(), exp, expression_syntax, syntax_call, and syntax_call_p.

Referenced by is_label_integer_string_specifier(), and is_label_specifier().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ is_name_specifier()

static bool is_name_specifier ( expression  exp,
type_context_p  context 
)
static

Definition at line 3420 of file bootstrap.c.

3421 {
3422  basic b = make_basic_string(0);
3423  bool r = is_varibale_array_element_specifier("NAME", exp, b, context);
3424  free_basic(b);
3425  return r;
3426 }

References exp, free_basic(), is_varibale_array_element_specifier(), and make_basic_string().

Referenced by check_io_list().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ is_named_specifier()

static bool is_named_specifier ( expression  exp,
type_context_p  context 
)
static

Definition at line 3411 of file bootstrap.c.

3412 {
3413  basic b = make_basic_logical(4);
3414  bool r = is_varibale_array_element_specifier("NAMED", exp, b, context);
3415  free_basic(b);
3416  return r;
3417 }

References exp, free_basic(), is_varibale_array_element_specifier(), and make_basic_logical().

Referenced by check_io_list().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ is_nextrec_specifier()

static bool is_nextrec_specifier ( expression  exp,
type_context_p  context 
)
static

Definition at line 3465 of file bootstrap.c.

3466 {
3467  basic b = make_basic_int(4);
3468  bool r = is_varibale_array_element_specifier("NEXTREC", exp, b, context);
3469  free_basic(b);
3470  return r;
3471 }

References exp, free_basic(), is_varibale_array_element_specifier(), and make_basic_int().

Referenced by check_io_list().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ is_number_specifier()

static bool is_number_specifier ( expression  exp,
type_context_p  context 
)
static

Definition at line 3402 of file bootstrap.c.

3403 {
3404  basic b = make_basic_int(4);
3405  bool r = is_varibale_array_element_specifier("NUMBER", exp, b, context);
3406  free_basic(b);
3407  return r;
3408 }

References exp, free_basic(), is_varibale_array_element_specifier(), and make_basic_int().

Referenced by check_io_list().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ is_opened_specifier()

static bool is_opened_specifier ( expression  exp,
type_context_p  context 
)
static

Definition at line 3393 of file bootstrap.c.

3394 {
3395  basic b = make_basic_logical(4);
3396  bool r = is_varibale_array_element_specifier("OPENED", exp, b, context);
3397  free_basic(b);
3398  return r;
3399 }

References exp, free_basic(), is_varibale_array_element_specifier(), and make_basic_logical().

Referenced by check_io_list().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ is_recl_specifier()

static bool is_recl_specifier ( expression  exp,
type_context_p  context 
)
static

Definition at line 3372 of file bootstrap.c.

3373 {
3374  return is_integer_specifier("RECL", exp, context);
3375 }
is_integer_specifier
static bool is_integer_specifier(string s, expression e, type_context_p context)
Definition: bootstrap.c:3219

References exp, and is_integer_specifier().

Referenced by check_io_list().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ is_record_specifier()

static bool is_record_specifier ( expression  exp,
type_context_p  context 
)
static

Definition at line 3316 of file bootstrap.c.

3317 {
3318  return is_label_integer_string_specifier("RECORD", exp, context);
3319 }

References exp, and is_label_integer_string_specifier().

Referenced by check_io_list().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ is_sequential_specifier()

static bool is_sequential_specifier ( expression  exp,
type_context_p  context 
)
static

Definition at line 3429 of file bootstrap.c.

3430 {
3431  basic b = make_basic_string(0);
3432  bool r = is_varibale_array_element_specifier("SEQUENTIAL", exp, b, context);
3433  free_basic(b);
3434  return r;
3435 }

References exp, free_basic(), is_varibale_array_element_specifier(), and make_basic_string().

Referenced by check_io_list().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ is_status_specifier()

static bool is_status_specifier ( expression  exp,
type_context_p  context 
)
static

Definition at line 3354 of file bootstrap.c.

3355 {
3356  return is_string_specifier("STATUS", exp, context);
3357 }

References exp, and is_string_specifier().

Referenced by check_io_list().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ is_string_specifier()

static bool is_string_specifier ( string  s,
expression  e,
type_context_p  context 
)
static

Count the number of errors

Definition at line 3236 of file bootstrap.c.

3237 {
3238  basic b = GET_TYPE(context->types, e);
3239  if (!basic_string_p(b))
3240  {
3241  add_one_line_of_comment((statement) stack_head(context->stats),
3242  "%s specifier must be a character expression", s);
3243 
3244  /* Count the number of errors */
3245  context->number_of_error++;
3246  return false;
3247  }
3248  return true;
3249 }

References add_one_line_of_comment(), basic_string_p, GET_TYPE, stack_head(), and context::stats.

Referenced by is_access_specifier(), is_blank_specifier(), is_file_specifier(), is_form_specifier(), and is_status_specifier().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ is_unformated_specifier()

static bool is_unformated_specifier ( expression  exp,
type_context_p  context 
)
static

Definition at line 3456 of file bootstrap.c.

3457 {
3458  basic b = make_basic_string(0);
3459  bool r = is_varibale_array_element_specifier("UNFORMATTED", exp, b, context);
3460  free_basic(b);
3461  return r;
3462 }

References exp, free_basic(), is_varibale_array_element_specifier(), and make_basic_string().

Referenced by check_io_list().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ is_unit_specifier()

static bool is_unit_specifier ( expression  exp,
type_context_p  context 
)
static

This function verifies the unit specifier; that is integer positive expression or character expression (According to ANSI X3.9-1978 FORTRAN 77; PAGE 12-7)

Count the number of errors

Definition at line 3292 of file bootstrap.c.

3293 {
3294  basic b;
3295  b = GET_TYPE(context->types, exp);
3296  if (!basic_int_p(b) && !basic_string_p(b))
3297  {
3298  add_one_line_of_comment((statement) stack_head(context->stats),
3299  "UNIT specifier must be an integer or character expression");
3300 
3301  /* Count the number of errors */
3302  context->number_of_error++;
3303  return false;
3304  }
3305 
3306  return true;
3307 }

References add_one_line_of_comment(), basic_int_p, basic_string_p, exp, GET_TYPE, stack_head(), and context::stats.

Referenced by check_io_list().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ is_varibale_array_element_specifier()

static bool is_varibale_array_element_specifier ( string  s,
expression  e,
basic  b,
type_context_p  context 
)
static

Count the number of errors

Definition at line 3270 of file bootstrap.c.

3272 {
3273  if (!basic_equal_p(GET_TYPE(context->types, e), b) ||
3274  !syntax_reference_p(expression_syntax(e)))
3275  {
3276  add_one_line_of_comment((statement) stack_head(context->stats),
3277  "%s specifier must be a variable or an array element of %s", s,
3278  basic_string_p(b)? "STRING":basic_to_string(b));
3279 
3280  /* Count the number of errors */
3281  context->number_of_error++;
3282  return false;
3283  }
3284  return true;
3285 
3286 }
syntax_reference_p
#define syntax_reference_p(x)
Definition: ri.h:2728

References add_one_line_of_comment(), basic_equal_p(), basic_string_p, basic_to_string(), expression_syntax, GET_TYPE, stack_head(), context::stats, and syntax_reference_p.

Referenced by is_direct_specifier(), is_exist_specifier(), is_formated_specifier(), is_iostat_specifier(), is_name_specifier(), is_named_specifier(), is_nextrec_specifier(), is_number_specifier(), is_opened_specifier(), is_sequential_specifier(), and is_unformated_specifier().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ logical_to_logical_type()

static type logical_to_logical_type ( int  n)
static

Definition at line 1020 of file bootstrap.c.

1021 {
1022  type t = type_undefined;
1023  functional ft = functional_undefined;
1024 
1025  ft = make_functional(NIL, MakeLogicalResult());
1026  functional_parameters(ft) = make_parameter_list(n, MakeCharacterParameter);
1027  t = make_type(is_type_functional, ft);
1028 
1029  return t;
1030 }

References functional_parameters, functional_undefined, is_type_functional, make_functional(), make_parameter_list(), make_type(), MakeCharacterParameter(), MakeLogicalResult(), NIL, and type_undefined.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ longdouble_to_integer_type()

static type longdouble_to_integer_type ( int  n)
static

MB.

Definition at line 791 of file bootstrap.c.

792 {
793  type t = type_undefined;
794  functional ft = functional_undefined;
795 
796  ft = make_functional(NIL, MakeIntegerResult());
797  functional_parameters(ft) =
798  make_parameter_list(n, MakeQuadprecisionParameter);
799  t = make_type(is_type_functional, ft);
800 
801  return t;
802 }
MakeQuadprecisionParameter
parameter MakeQuadprecisionParameter(void)
MB.
Definition: type.c:214

References functional_parameters, functional_undefined, is_type_functional, make_functional(), make_parameter_list(), make_type(), MakeIntegerResult(), MakeQuadprecisionParameter(), NIL, and type_undefined.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ longdouble_to_longdouble_type()

static type longdouble_to_longdouble_type ( int  n)
static

MB.

Definition at line 834 of file bootstrap.c.

835 {
836  type t = type_undefined;
837  functional ft = functional_undefined;
838 
839  ft = make_functional(NIL, MakeQuadprecisionResult());
840  functional_parameters(ft) =
841  make_parameter_list(n, MakeQuadprecisionParameter);
842  t = make_type(is_type_functional, ft);
843 
844  return t;
845 }
MakeQuadprecisionResult
type MakeQuadprecisionResult(void)
MB.
Definition: type.c:301

References functional_parameters, functional_undefined, is_type_functional, make_functional(), make_parameter_list(), make_type(), MakeQuadprecisionParameter(), MakeQuadprecisionResult(), NIL, and type_undefined.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ longdouble_to_longinteger_type()

static type longdouble_to_longinteger_type ( int  n)
static

MB.

Definition at line 805 of file bootstrap.c.

806 {
807  type t = type_undefined;
808  functional ft = functional_undefined;
809 
810  ft = make_functional(NIL, MakeLongIntegerResult());
811  functional_parameters(ft) =
812  make_parameter_list(n, MakeQuadprecisionParameter);
813  t = make_type(is_type_functional, ft);
814 
815  return t;
816 }

References functional_parameters, functional_undefined, is_type_functional, make_functional(), make_parameter_list(), make_type(), MakeLongIntegerResult(), MakeQuadprecisionParameter(), NIL, and type_undefined.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ longdouble_to_longlonginteger_type()

static type longdouble_to_longlonginteger_type ( int  n)
static

MB.

Definition at line 819 of file bootstrap.c.

820 {
821  type t = type_undefined;
822  functional ft = functional_undefined;
823 
824  ft = make_functional(NIL, MakeLongLongIntegerResult());
825  functional_parameters(ft) =
826  make_parameter_list(n, MakeQuadprecisionParameter);
827  t = make_type(is_type_functional, ft);
828 
829  return t;
830 }

References functional_parameters, functional_undefined, is_type_functional, make_functional(), make_parameter_list(), make_type(), MakeLongLongIntegerResult(), MakeQuadprecisionParameter(), NIL, and type_undefined.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ longdoublecomplex_to_longdouble_type()

static type longdoublecomplex_to_longdouble_type ( int  n)
static

MB.

Definition at line 917 of file bootstrap.c.

918 {
919  type t = type_undefined;
920  functional ft = functional_undefined;
921 
922  ft = make_functional(NIL, MakeQuadprecisionResult());
923  functional_parameters(ft) =
924  make_parameter_list(n, MakeLongDoublecomplexParameter);
925  t = make_type(is_type_functional, ft);
926 
927  return t;
928 }
MakeLongDoublecomplexParameter
parameter MakeLongDoublecomplexParameter(void)
MB.
Definition: type.c:234

References functional_parameters, functional_undefined, is_type_functional, make_functional(), make_parameter_list(), make_type(), MakeLongDoublecomplexParameter(), MakeQuadprecisionResult(), NIL, and type_undefined.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ longdoublecomplex_to_longdoublecomplex_type()

static type longdoublecomplex_to_longdoublecomplex_type ( int  n)
static

MB.

Definition at line 903 of file bootstrap.c.

904 {
905  type t = type_undefined;
906  functional ft = functional_undefined;
907 
908  ft = make_functional(NIL, MakeLongDoublecomplexResult());
909  functional_parameters(ft) =
910  make_parameter_list(n, MakeLongDoublecomplexParameter);
911  t = make_type(is_type_functional, ft);
912 
913  return t;
914 }
MakeLongDoublecomplexResult
type MakeLongDoublecomplexResult(void)
MB.
Definition: type.c:322

References functional_parameters, functional_undefined, is_type_functional, make_functional(), make_parameter_list(), make_type(), MakeLongDoublecomplexParameter(), MakeLongDoublecomplexResult(), NIL, and type_undefined.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ longinteger_to_longinteger_type()

static type longinteger_to_longinteger_type ( int  n)
static

MB.

Definition at line 733 of file bootstrap.c.

734 {
735  type t = type_undefined;
736  functional ft = functional_undefined;
737 
738  ft = make_functional(NIL, MakeLongIntegerResult());
739  functional_parameters(ft) =
740  make_parameter_list(n, MakeDoubleprecisionParameter);
741  t = make_type(is_type_functional, ft);
742 
743  return t;
744 }

References functional_parameters, functional_undefined, is_type_functional, make_functional(), make_parameter_list(), make_type(), MakeDoubleprecisionParameter(), MakeLongIntegerResult(), NIL, and type_undefined.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ longinteger_to_overloaded_type()

type longinteger_to_overloaded_type ( int  n)

MB.

Definition at line 4236 of file bootstrap.c.

4237 {
4238  type t = type_undefined;
4239  functional ft = functional_undefined;
4240 
4241  ft = make_functional(NIL, MakeOverloadedResult());
4242  t = make_type(is_type_functional, ft);
4243 
4244  functional_parameters(ft) =
4245  make_parameter_list(n, MakeLongIntegerParameter);
4246  return t;
4247 }
MakeLongIntegerParameter
parameter MakeLongIntegerParameter(void)
Definition: type.c:189

References functional_parameters, functional_undefined, is_type_functional, make_functional(), make_parameter_list(), make_type(), MakeLongIntegerParameter(), MakeOverloadedResult(), NIL, and type_undefined.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ longlonginteger_to_longlonginteger_type()

static type longlonginteger_to_longlonginteger_type ( int  n)
static

MB.

Definition at line 747 of file bootstrap.c.

748 {
749  type t = type_undefined;
750  functional ft = functional_undefined;
751 
752  ft = make_functional(NIL, MakeLongLongIntegerResult());
753  functional_parameters(ft) =
754  make_parameter_list(n, MakeDoubleprecisionParameter);
755  t = make_type(is_type_functional, ft);
756 
757  return t;
758 }

References functional_parameters, functional_undefined, is_type_functional, make_functional(), make_parameter_list(), make_type(), MakeDoubleprecisionParameter(), MakeLongLongIntegerResult(), NIL, and type_undefined.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ longlonginteger_to_overloaded_type()

type longlonginteger_to_overloaded_type ( int  n)

MB.

Definition at line 4250 of file bootstrap.c.

4251 {
4252  type t = type_undefined;
4253  functional ft = functional_undefined;
4254 
4255  ft = make_functional(NIL, MakeOverloadedResult());
4256  t = make_type(is_type_functional, ft);
4257 
4258  functional_parameters(ft) =
4259  make_parameter_list(n, MakeLongLongIntegerParameter);
4260  return t;
4261 }
MakeLongLongIntegerParameter
parameter MakeLongLongIntegerParameter(void)
MB.
Definition: type.c:199

References functional_parameters, functional_undefined, is_type_functional, make_functional(), make_parameter_list(), make_type(), MakeLongLongIntegerParameter(), MakeOverloadedResult(), NIL, and type_undefined.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ make_parameter_list()

static list make_parameter_list ( int  n,
parameter(*)(void)  mkprm 
)
static

varargs

Definition at line 329 of file bootstrap.c.

330 {
331  list l = NIL;
332 
333  if (n < (INT_MAX))
334  {
335  int i = n;
336  while (i-- > 0)
337  {
338  l = CONS(PARAMETER, mkprm(), l);
339  }
340  }
341  else
342  {
343  /* varargs */
344  parameter p = mkprm();
345  type pt = copy_type(parameter_type(p));
346  type v = make_type(is_type_varargs, pt);
347  parameter vp = make_parameter(v, make_mode(is_mode_reference, UU), make_dummy_unknown());
348 
349  l = CONS(PARAMETER, vp, l);
350  free_parameter(p);
351  }
352  return l;
353 }
free_parameter
void free_parameter(parameter p)
Definition: ri.c:1462
make_mode
mode make_mode(enum mode_utype tag, void *val)
Definition: ri.c:1350
copy_type
type copy_type(type p)
TYPE.
Definition: ri.c:2655
parameter_type
#define parameter_type(x)
Definition: ri.h:1819
is_mode_reference
@ is_mode_reference
Definition: ri.h:1676
is_type_varargs
@ is_type_varargs
Definition: ri.h:2902
_newgen_struct_parameter_
Definition: ri.h:1810

References CONS, copy_type(), free_parameter(), is_mode_reference, is_type_varargs, make_dummy_unknown(), make_mode(), make_parameter(), make_type(), NIL, PARAMETER, parameter_type, and UU.

Referenced by __attribute__(), character_to_character_type(), character_to_integer_type(), character_to_logical_type(), complex_to_complex_type(), complex_to_real_type(), default_intrinsic_type(), double_to_double_type(), double_to_integer_type(), double_to_longinteger_type(), double_to_longlonginteger_type(), doublecomplex_to_double_type(), doublecomplex_to_doublecomplex_type(), integer_to_integer_type(), integer_to_logical_type(), integer_to_overloaded_type(), integer_to_real_type(), integer_to_void_type(), logical_to_logical_type(), longdouble_to_integer_type(), longdouble_to_longdouble_type(), longdouble_to_longinteger_type(), longdouble_to_longlonginteger_type(), longdoublecomplex_to_longdouble_type(), longdoublecomplex_to_longdoublecomplex_type(), longinteger_to_longinteger_type(), longinteger_to_overloaded_type(), longlonginteger_to_longlonginteger_type(), longlonginteger_to_overloaded_type(), overloaded_to_complex_type(), overloaded_to_double_type(), overloaded_to_doublecomplex_type(), overloaded_to_integer_type(), overloaded_to_logical_type(), overloaded_to_longdouble_type(), overloaded_to_real_type(), overloaded_to_void_type(), pointer_to_overloaded_type(), real_to_double_type(), real_to_integer_type(), real_to_longinteger_type(), real_to_longlonginteger_type(), real_to_real_type(), unsigned_integer_to_void_pointer_type(), and void_to_integer_type().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ MakeFileName()

string MakeFileName ( char *  prefix,
char *  base,
char *  suffix 
)
Parameters
prefixrefix
basease
suffixuffix

Definition at line 5687 of file bootstrap.c.

5689 {
5690  char *s;
5691 
5692  s = (char*) malloc(strlen(prefix)+strlen(base)+strlen(suffix)+1);
5693 
5694  strcpy(s, prefix);
5695  strcat(s, base);
5696  strcat(s, suffix);
5697 
5698  return(s);
5699 }
base
bdt base
Current expression.
Definition: bdt_read_paf.c:100
malloc
void * malloc(YYSIZE_T)
prefix
static const char * prefix
Definition: rename_operator.c:24

References base, malloc(), and prefix.

+ Here is the call graph for this function:

◆ MakeIntrinsic()

static entity MakeIntrinsic ( string  name,
int  arity,
type(*)(int)  intrinsic_type 
)
static

This function creates an entity that represents an intrinsic function.

Fortran operators and basic statements are intrinsic functions.

An intrinsic function has a rom storage, an unknown initial value and a functional type whose result and arguments have an overloaded basic type. The number of arguments is given by the IntrinsicTypeDescriptorTable data structure.

Definition at line 4351 of file bootstrap.c.

4351  {
4352  entity e;
4353 
4354  e = make_entity(AddPackageToName(TOP_LEVEL_MODULE_NAME, name),
4355  intrinsic_type(arity),
4356  make_storage(is_storage_rom, UU),
4357  make_value(is_value_intrinsic, NIL),
4358  DEFAULT_ENTITY_KIND);
4359 
4360  return e;
4361 }
is_value_intrinsic
@ is_value_intrinsic
Definition: ri.h:3034

References AddPackageToName(), DEFAULT_ENTITY_KIND, is_storage_rom, is_value_intrinsic, make_entity, make_storage(), make_value(), NIL, TOP_LEVEL_MODULE_NAME, and UU.

Referenced by FindOrMakeDefaultIntrinsic(), and FindOrMakeIntrinsic().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ MakeIoFileArray()

entity MakeIoFileArray ( entity  f)

This array is pointed by FILE * pointers returned or used by fopen, fclose,...

. The argument f must be the intrinsic fopen returning a FILE * or another function also returning a FILE *. So we do not have to synthesize the type FILE.

FI: this initialization is usually performed in bootstrap.c, but it is easier to do it here because the IO_FILE type does not have to be built from scratch.

Definition at line 5705 of file bootstrap.c.

5706 {
5707  entity io_files = FindOrCreateEntity(IO_EFFECTS_PACKAGE_NAME, IO_EFFECTS_IO_FILE_NAME);
5708 
5709  if(type_undefined_p(entity_type(io_files))) {
5710  /* FI: this initialization is usually performed in
5711  bootstrap.c, but it is easier to do it here because the
5712  IO_FILE type does not have to be built from scratch. */
5713  type rt = functional_result(type_functional(entity_type(f)));
5714  type ct = copy_type(type_to_pointed_type(rt)); // FI: no risk with typedef
5715  pips_assert("ct is a scalar type",
5716  ENDP(variable_dimensions(type_variable(ct))));
5717  variable_dimensions(type_variable(ct)) =
5718  CONS(DIMENSION,
5719  make_dimension(int_to_expression(0),
5720  /*
5721  MakeNullaryCall
5722  (CreateIntrinsic(UNBOUNDED_DIMENSION_NAME))
5723  */
5724  int_to_expression(2000),
5725  NIL),
5726  NIL);
5727  entity_type(io_files) = ct;
5728  entity ent = FindOrCreateEntity(TOP_LEVEL_MODULE_NAME,
5729  IO_EFFECTS_PACKAGE_NAME);
5730  entity_storage(io_files) =
5731  make_storage(is_storage_ram,
5732  make_ram(ent,
5733  FindEntity(IO_EFFECTS_PACKAGE_NAME,
5734  STATIC_AREA_LOCAL_NAME),
5735  0, NIL));
5736  entity_initial(io_files) = make_value(is_value_unknown, UU);
5737  }
5738  return io_files;
5739 }
ENDP
#define ENDP(l)
Test if a list is empty.
Definition: newgen_list.h:66
f
int f(int off1, int off2, int n, float r[n], float a[n], float b[n])
Definition: offsets.c:15
IO_EFFECTS_IO_FILE_NAME
#define IO_EFFECTS_IO_FILE_NAME
Array of struct io_files pointed to by pointers returned by fopen and used by fclose,...
Definition: ri-util-local.h:1999
FindOrCreateEntity
entity FindOrCreateEntity(const char *package, const char *local_name)
Problem: A functional global entity may be referenced without parenthesis or CALL keyword in a functi...
Definition: entity.c:1586
type_to_pointed_type
type type_to_pointed_type(type)
returns t if t is not a pointer type, and the pointed type if t is a pointer type.
Definition: type.c:5265
entity_storage
#define entity_storage(x)
Definition: ri.h:2794
type_undefined_p
#define type_undefined_p(x)
Definition: ri.h:2884
variable_dimensions
#define variable_dimensions(x)
Definition: ri.h:3122
entity_initial
#define entity_initial(x)
Definition: ri.h:2796

References CONS, copy_type(), DIMENSION, ENDP, entity_initial, entity_storage, entity_type, f(), FindEntity(), FindOrCreateEntity(), functional_result, int_to_expression(), IO_EFFECTS_IO_FILE_NAME, IO_EFFECTS_PACKAGE_NAME, is_storage_ram, is_value_unknown, make_dimension(), make_ram(), make_storage(), make_value(), NIL, pips_assert, STATIC_AREA_LOCAL_NAME, TOP_LEVEL_MODULE_NAME, type_functional, type_to_pointed_type(), type_undefined_p, type_variable, UU, and variable_dimensions.

Referenced by binary_intrinsic_call_to_points_to_sinks(), and create_stub_points_to().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ MakeValueLitteral()

value MakeValueLitteral ( void  )

Definition at line 5680 of file bootstrap.c.

5681 {
5682  return(make_value(is_value_constant,
5683  make_constant(is_constant_litteral, UU)));
5684 }
make_constant
constant make_constant(enum constant_utype tag, void *val)
Definition: ri.c:406
is_constant_litteral
@ is_constant_litteral
Definition: ri.h:820

References is_constant_litteral, is_value_constant, make_constant(), make_value(), and UU.

Referenced by EvalConstant().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ MakeVoidParameter()

parameter MakeVoidParameter ( void  )

Definition at line 4199 of file bootstrap.c.

4200 {
4201  return make_parameter(make_type(is_type_void, UU),
4202  make_mode(is_mode_reference, UU),
4203  make_dummy_unknown());
4204 }

References is_mode_reference, is_type_void, make_dummy_unknown(), make_mode(), make_parameter(), make_type(), and UU.

Referenced by __attribute__(), and void_to_integer_type().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ MakeVoidResult()

type MakeVoidResult ( void  )

Move the following functions to ri-util/type.c.

Definition at line 4193 of file bootstrap.c.

4194 {
4195  return make_type(is_type_void, UU);
4196 }

References is_type_void, make_type(), and UU.

Referenced by overloaded_to_void_type().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ no_typing()

static basic no_typing ( call __attribute__((unused))  c,
type_context_p __attribute__((unused))  context 
)
static

To please the compiler

Definition at line 2971 of file bootstrap.c.

2973 {
2974  basic bt = basic_undefined;
2975  pips_internal_error("This should not be type-checked because it is not Fortran function");
2976  return bt; /* To please the compiler */
2977 }

References basic_undefined, and pips_internal_error.

Referenced by CreateIntrinsics().

+ Here is the caller graph for this function:

◆ overloaded_to_complex_type()

static type overloaded_to_complex_type ( int  n)
static

Definition at line 432 of file bootstrap.c.

433 {
434  type t = type_undefined;
435  functional ft = functional_undefined;
436 
437  ft = make_functional(NIL, MakeComplexResult());
438  functional_parameters(ft) =
439  make_parameter_list(n, MakeOverloadedParameter);
440  t = make_type(is_type_functional, ft);
441 
442  return t;
443 }

References functional_parameters, functional_undefined, is_type_functional, make_functional(), make_parameter_list(), make_type(), MakeComplexResult(), MakeOverloadedParameter(), NIL, and type_undefined.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ overloaded_to_double_type()

static type overloaded_to_double_type ( int  n)
static

Definition at line 404 of file bootstrap.c.

405 {
406  type t = type_undefined;
407  functional ft = functional_undefined;
408 
409  ft = make_functional(NIL, MakeDoubleprecisionResult());
410  functional_parameters(ft) =
411  make_parameter_list(n, MakeOverloadedParameter);
412  t = make_type(is_type_functional, ft);
413 
414  return t;
415 }

References functional_parameters, functional_undefined, is_type_functional, make_functional(), make_parameter_list(), make_type(), MakeDoubleprecisionResult(), MakeOverloadedParameter(), NIL, and type_undefined.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ overloaded_to_doublecomplex_type()

static type overloaded_to_doublecomplex_type ( int  n)
static

Definition at line 446 of file bootstrap.c.

447 {
448  type t = type_undefined;
449  functional ft = functional_undefined;
450 
451  ft = make_functional(NIL, MakeDoublecomplexResult());
452  functional_parameters(ft) =
453  make_parameter_list(n, MakeOverloadedParameter);
454  t = make_type(is_type_functional, ft);
455 
456  return t;
457 }

References functional_parameters, functional_undefined, is_type_functional, make_functional(), make_parameter_list(), make_type(), MakeDoublecomplexResult(), MakeOverloadedParameter(), NIL, and type_undefined.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ overloaded_to_integer_type()

static type overloaded_to_integer_type ( int  n)
static

Definition at line 376 of file bootstrap.c.

377 {
378  type t = type_undefined;
379  functional ft = functional_undefined;
380 
381  ft = make_functional(NIL, MakeIntegerResult());
382  functional_parameters(ft) =
383  make_parameter_list(n, MakeOverloadedParameter);
384  t = make_type(is_type_functional, ft);
385 
386  return t;
387 }

References functional_parameters, functional_undefined, is_type_functional, make_functional(), make_parameter_list(), make_type(), MakeIntegerResult(), MakeOverloadedParameter(), NIL, and type_undefined.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ overloaded_to_logical_type()

static type overloaded_to_logical_type ( int  n)
static

type t = type_undefined; functional ft = functional_undefined;

ft = make_functional(NIL, MakeLongDoublecomplexResult()); functional_parameters(ft) = make_parameter_list(n, MakeOverloadedParameter); t = make_type(is_type_functional, ft);

return t; }

Definition at line 474 of file bootstrap.c.

475 {
476  type t = type_undefined;
477  functional ft = functional_undefined;
478 
479  ft = make_functional(NIL, MakeLogicalResult());
480  functional_parameters(ft) =
481  make_parameter_list(n, MakeOverloadedParameter);
482  t = make_type(is_type_functional, ft);
483 
484  return t;
485 }

References functional_parameters, functional_undefined, is_type_functional, make_functional(), make_parameter_list(), make_type(), MakeLogicalResult(), MakeOverloadedParameter(), NIL, and type_undefined.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ overloaded_to_longdouble_type()

static type overloaded_to_longdouble_type ( int  n)
static

MB.

Definition at line 418 of file bootstrap.c.

419 {
420  type t = type_undefined;
421  functional ft = functional_undefined;
422 
423  ft = make_functional(NIL, MakeQuadprecisionResult());
424  functional_parameters(ft) =
425  make_parameter_list(n, MakeOverloadedParameter);
426  t = make_type(is_type_functional, ft);
427 
428  return t;
429 }

References functional_parameters, functional_undefined, is_type_functional, make_functional(), make_parameter_list(), make_type(), MakeOverloadedParameter(), MakeQuadprecisionResult(), NIL, and type_undefined.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ overloaded_to_real_type()

static type overloaded_to_real_type ( int  n)
static

Definition at line 390 of file bootstrap.c.

391 {
392  type t = type_undefined;
393  functional ft = functional_undefined;
394 
395  ft = make_functional(NIL, MakeRealResult());
396  functional_parameters(ft) =
397  make_parameter_list(n, MakeOverloadedParameter);
398  t = make_type(is_type_functional, ft);
399 
400  return t;
401 }

References functional_parameters, functional_undefined, is_type_functional, make_functional(), make_parameter_list(), make_type(), MakeOverloadedParameter(), MakeRealResult(), NIL, and type_undefined.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ overloaded_to_void_type()

type overloaded_to_void_type ( int  n)

Definition at line 4292 of file bootstrap.c.

4293 {
4294  type t = type_undefined;
4295  functional ft = functional_undefined;
4296 
4297  ft = make_functional(NIL, MakeVoidResult());
4298  functional_parameters(ft) =
4299  make_parameter_list(n, MakeOverloadedParameter);
4300  t = make_type(is_type_functional, ft);
4301 
4302  return t;
4303 }
MakeVoidResult
type MakeVoidResult()
Move the following functions to ri-util/type.c.
Definition: bootstrap.c:4193

References functional_parameters, functional_undefined, is_type_functional, make_functional(), make_parameter_list(), make_type(), MakeOverloadedParameter(), MakeVoidResult(), NIL, and type_undefined.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ pointer_to_overloaded_type()

type pointer_to_overloaded_type ( int  n)

Definition at line 4208 of file bootstrap.c.

4209 {
4210  type t = type_undefined;
4211  functional ft = functional_undefined;
4212 
4213  ft = make_functional(NIL, MakeOverloadedResult());
4214  t = make_type(is_type_functional, ft);
4215 
4216  functional_parameters(ft) =
4217  make_parameter_list(n, MakePointerParameter);
4218  return t;
4219 }
MakePointerParameter
parameter MakePointerParameter(void)
Definition: type.c:173

References functional_parameters, functional_undefined, is_type_functional, make_functional(), make_parameter_list(), make_type(), MakeOverloadedResult(), MakePointerParameter(), NIL, and type_undefined.

+ Here is the call graph for this function:

◆ real_to_double_type()

static type real_to_double_type ( int  n)
static

Definition at line 652 of file bootstrap.c.

653 {
654  type t = type_undefined;
655  functional ft = functional_undefined;
656 
657  ft = make_functional(NIL, MakeDoubleprecisionResult());
658  functional_parameters(ft) = make_parameter_list(n, MakeRealParameter);
659  t = make_type(is_type_functional, ft);
660 
661  return t;
662 }
MakeRealParameter
parameter MakeRealParameter(void)
Definition: type.c:204

References functional_parameters, functional_undefined, is_type_functional, make_functional(), make_parameter_list(), make_type(), MakeDoubleprecisionResult(), MakeRealParameter(), NIL, and type_undefined.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ real_to_integer_type()

static type real_to_integer_type ( int  n)
static

Definition at line 626 of file bootstrap.c.

627 {
628  type t = type_undefined;
629  functional ft = functional_undefined;
630 
631  ft = make_functional(NIL, MakeIntegerResult());
632  functional_parameters(ft) = make_parameter_list(n, MakeRealParameter);
633  t = make_type(is_type_functional, ft);
634 
635  return t;
636 }

References functional_parameters, functional_undefined, is_type_functional, make_functional(), make_parameter_list(), make_type(), MakeIntegerResult(), MakeRealParameter(), NIL, and type_undefined.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ real_to_longinteger_type()

static type real_to_longinteger_type ( int  n)
static

MB.

Definition at line 665 of file bootstrap.c.

666 {
667  type t = type_undefined;
668  functional ft = functional_undefined;
669 
670  ft = make_functional(NIL, MakeLongIntegerResult());
671  functional_parameters(ft) = make_parameter_list(n, MakeRealParameter);
672  t = make_type(is_type_functional, ft);
673 
674  return t;
675 }

References functional_parameters, functional_undefined, is_type_functional, make_functional(), make_parameter_list(), make_type(), MakeLongIntegerResult(), MakeRealParameter(), NIL, and type_undefined.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ real_to_longlonginteger_type()

static type real_to_longlonginteger_type ( int  n)
static

MB.

Definition at line 678 of file bootstrap.c.

679 {
680  type t = type_undefined;
681  functional ft = functional_undefined;
682 
683  ft = make_functional(NIL, MakeLongLongIntegerResult());
684  functional_parameters(ft) = make_parameter_list(n, MakeRealParameter);
685  t = make_type(is_type_functional, ft);
686 
687  return t;
688 }

References functional_parameters, functional_undefined, is_type_functional, make_functional(), make_parameter_list(), make_type(), MakeLongLongIntegerResult(), MakeRealParameter(), NIL, and type_undefined.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ real_to_real_type()

static type real_to_real_type ( int  n)
static

Definition at line 639 of file bootstrap.c.

640 {
641  type t = type_undefined;
642  functional ft = functional_undefined;
643 
644  ft = make_functional(NIL, MakeRealResult());
645  functional_parameters(ft) = make_parameter_list(n, MakeRealParameter);
646  t = make_type(is_type_functional, ft);
647 
648  return t;
649 }

References functional_parameters, functional_undefined, is_type_functional, make_functional(), make_parameter_list(), make_type(), MakeRealParameter(), MakeRealResult(), NIL, and type_undefined.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ register_intrinsic_type_descriptor()

void register_intrinsic_type_descriptor ( IntrinsicDescriptor *  p)

This function is called one time (at the very beginning) to create all intrinsic functions.

Definition at line 4411 of file bootstrap.c.

4411  {
4412  FindOrMakeIntrinsic(p->name, p->nbargs, p->intrinsic_type);
4413  hash_put(intrinsic_type_descriptor_mapping,p->name,p);
4414 }
FindOrMakeIntrinsic
entity FindOrMakeIntrinsic(string name, int arity, type(*intrinsic_type)(int))
This function creates an entity that represents an intrinsic function, if the entity does not already...
Definition: bootstrap.c:4371
hash_put
void hash_put(hash_table htp, const void *key, const void *val)
This functions stores a couple (key,val) in the hash table pointed to by htp.
Definition: hash.c:364
IntrinsicDescriptor::intrinsic_type
type(* intrinsic_type)(int)
Definition: bootstrap-local.h:55

References FindOrMakeIntrinsic(), hash_put(), IntrinsicDescriptor::intrinsic_type, intrinsic_type_descriptor_mapping, IntrinsicDescriptor::name, and IntrinsicDescriptor::nbargs.

Referenced by CreateIntrinsics(), and step_analyse_init().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ simplification_complex()

static void simplification_complex ( expression  exp,
type_context_p  context 
)
static

forward declarations

Definition at line 4176 of file bootstrap.c.

4177 {
4178  basic b = make_basic_complex(8);
4179  simplification_conversion(exp, b, context);
4180  free_basic(b);
4181 }
make_basic_complex
basic make_basic_complex(intptr_t _field_)
Definition: ri.c:170
simplification_conversion
static void simplification_conversion(expression exp, basic to_basic, type_context_p context)
Definition: bootstrap.c:3999

References exp, free_basic(), make_basic_complex(), and simplification_conversion().

Referenced by CreateIntrinsics(), and switch_specific_cmplx().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ simplification_conversion()

static void simplification_conversion ( expression  exp,
basic  to_basic,
type_context_p  context 
)
static

Argument is a variable

e.g: INT(I) -> I

e.g: CMPLX(R) -> CMPLX(R, 0.0E0)

e.g: DCMPLX(D) -> DCMPLX(D, 0.0D0)

Argument is a call

e.g: INT(INT(R)) -> INT(R)

Cast constant if necessary

Conversion: CMPLX, CMPLX_, DCMPLX, DCMPLX_

Imagine party is empty

Argument is NOT complex or double complex

CMPLX

DCMPLX

CMPLX(C) -> C; DCMPLX(DC) -> DC

Argument being a call is examined in typing function

Cast constants if necessary

Number of simplifications is already counted in cast_constant()

Conversion: INT (IFIX, ...), REAL (FLOAT, ...), DBLE e.g: INT(2.9) -> 2

Number of simplifications is already counted in cast_constant()

Update exp

Definition at line 3999 of file bootstrap.c.

4001 {
4002  syntax s_arg;
4003  expression arg, exp_tmp = NULL;
4004  basic b;
4005  call c = syntax_call(expression_syntax(exp));
4006  arg = EXPRESSION(CAR(call_arguments(c)));
4007  s_arg = expression_syntax(arg);
4008  /* Argument is a variable */
4009  if (syntax_reference_p(s_arg))
4010  {
4011  /* e.g: INT(I) -> I */
4012  if (basic_equal_p(to_basic,
4013  entity_basic(reference_variable(
4014  syntax_reference(s_arg)))) &&
4015  CDR(call_arguments(c)) == NIL)
4016  {
4017  exp_tmp = copy_expression(arg);
4018  context->number_of_simplication++;
4019  }
4020  /* e.g: CMPLX(R) -> CMPLX(R, 0.0E0) */
4021  else if (ENTITY_CONVERSION_CMPLX_P(call_function(c)) &&
4022  ! basic_complex_p(entity_basic
4023  (reference_variable(syntax_reference(s_arg)))) &&
4024  CDR(call_arguments(c)) == NIL)
4025  {
4026  call c_imag;
4027  expression exp_imag;
4028  c_imag = make_call(make_constant_entity("0.0E0",
4029  is_basic_float, 8),
4030  NIL);
4031  exp_imag = make_expression(make_syntax(is_syntax_call, c_imag),
4032  normalized_undefined);
4033  call_arguments(c)
4034  = CONS(EXPRESSION, arg, CONS(EXPRESSION, exp_imag, NIL));
4035  context->number_of_simplication++;
4036  }
4037  /* e.g: DCMPLX(D) -> DCMPLX(D, 0.0D0) */
4038  else if (ENTITY_CONVERSION_DCMPLX_P(call_function(c)) &&
4039  ! basic_complex_p(entity_basic
4040  (reference_variable(syntax_reference(s_arg)))) &&
4041  CDR(call_arguments(c)) == NIL)
4042  {
4043  call c_imag;
4044  expression exp_imag;
4045  c_imag = make_call(make_constant_entity("0.0D0",
4046  is_basic_float, 16),
4047  NIL);
4048  exp_imag = make_expression(make_syntax(is_syntax_call, c_imag),
4049  normalized_undefined);
4050  call_arguments(c)
4051  = CONS(EXPRESSION, arg, CONS(EXPRESSION, exp_imag, NIL));
4052  context->number_of_simplication++;
4053  }
4054  }
4055  /* Argument is a call */
4056  else if(syntax_call_p(s_arg))
4057  {
4058  b = GET_TYPE(context->types, arg);
4059  /* e.g: INT(INT(R)) -> INT(R) */
4060  if (basic_equal_p(b, to_basic))
4061  {
4062  exp_tmp = copy_expression(arg);
4063 
4064  context->number_of_simplication++;
4065  }
4066  /* Cast constant if necessary */
4067  /* Conversion: CMPLX, CMPLX_, DCMPLX, DCMPLX_ */
4068  else if (ENTITY_IMPLIED_CMPLX_P(call_function(c)) ||
4069  ENTITY_CONVERSION_CMPLX_P(call_function(c)) ||
4070  ENTITY_IMPLIED_DCMPLX_P(call_function(c)) ||
4071  ENTITY_CONVERSION_DCMPLX_P(call_function(c)))
4072  {
4073  list args = call_arguments(c);
4074  basic b_arg = GET_TYPE(context->types, arg);
4075  /* Imagine party is empty */
4076  if (CDR(args) == NIL)
4077  {
4078  /* Argument is NOT complex or double complex */
4079  if (!basic_complex_p(b_arg))
4080  {
4081  call c_imag;
4082  expression exp_imag;
4083  /* CMPLX */
4084  if ((ENTITY_IMPLIED_CMPLX_P(call_function(c)) ||
4085  ENTITY_CONVERSION_CMPLX_P(call_function(c))))
4086  {
4087  c_imag = make_call(make_constant_entity("0.0E0",
4088  is_basic_float, 8),
4089  NIL);
4090  }
4091  /* DCMPLX */
4092  else
4093  {
4094  c_imag = make_call(make_constant_entity("0.0D0",
4095  is_basic_float, 16),
4096  NIL);
4097  }
4098  exp_imag = make_expression(make_syntax(is_syntax_call, c_imag),
4099  normalized_undefined);
4100  call_arguments(c)
4101  = CONS(EXPRESSION, arg, CONS(EXPRESSION, exp_imag, NIL));
4102  context->number_of_simplication++;
4103  }
4104  /* CMPLX(C) -> C; DCMPLX(DC) -> DC */
4105  else if( (basic_complex(b_arg) == 8 &&
4106  ENTITY_CONVERSION_CMPLX_P(call_function(c))) ||
4107  (basic_complex(b_arg) == 16 &&
4108  ENTITY_CONVERSION_DCMPLX_P(call_function(c))))
4109  {
4110  syntax s_tmp;
4111  normalized n_tmp;
4112  /* Argument being a call is examined in typing function */
4113  pips_assert("Argument is a call ",
4114  syntax_call_p(expression_syntax(arg)));
4115 
4116  s_tmp = expression_syntax(exp);
4117  n_tmp = expression_normalized(exp);
4118  expression_syntax(exp)
4119  = copy_syntax(expression_syntax(arg));
4120  expression_normalized(exp)
4121  = copy_normalized(expression_normalized(arg));
4122 
4123  free_syntax(s_tmp);
4124  free_normalized(n_tmp);
4125  context->number_of_simplication++;
4126  return;
4127  }
4128  }
4129  /* Cast constants if necessary */
4130  exp_tmp = cast_constant(exp, to_basic, context);
4131  /* Number of simplifications is already counted in cast_constant() */
4132  }
4133  /* Conversion: INT (IFIX, ...), REAL (FLOAT, ...), DBLE
4134  * e.g: INT(2.9) -> 2
4135  */
4136  else
4137  {
4138  exp_tmp = cast_constant(arg, to_basic, context);
4139  /* Number of simplifications is already counted in cast_constant() */
4140  }
4141  }
4142  /* Update exp */
4143  if (exp_tmp != NULL)
4144  {
4145  free_syntax(expression_syntax(exp));
4146  free_normalized(expression_normalized(exp));
4147  expression_syntax(exp) = copy_syntax(expression_syntax(exp_tmp));
4148  expression_normalized(exp) = copy_normalized(
4149  expression_normalized(exp_tmp));
4150  free_expression(exp_tmp);
4151  }
4152 }
copy_normalized
normalized copy_normalized(normalized p)
NORMALIZED.
Definition: ri.c:1404
free_normalized
void free_normalized(normalized p)
Definition: ri.c:1407
copy_expression
expression copy_expression(expression p)
EXPRESSION.
Definition: ri.c:850
copy_syntax
syntax copy_syntax(syntax p)
SYNTAX.
Definition: ri.c:2442
free_expression
void free_expression(expression p)
Definition: ri.c:853
free_syntax
void free_syntax(syntax p)
Definition: ri.c:2445
expression_normalized
#define expression_normalized(x)
Definition: ri.h:1249
_newgen_struct_normalized_
Definition: ri.h:1768

References basic_complex, basic_complex_p, basic_equal_p(), call_arguments, call_function, CAR, cast_constant(), CDR, CONS, copy_expression(), copy_normalized(), copy_syntax(), entity_basic(), ENTITY_CONVERSION_CMPLX_P, ENTITY_CONVERSION_DCMPLX_P, ENTITY_IMPLIED_CMPLX_P, ENTITY_IMPLIED_DCMPLX_P, exp, EXPRESSION, expression_normalized, expression_syntax, free_expression(), free_normalized(), free_syntax(), GET_TYPE, is_basic_float, is_syntax_call, make_call(), make_constant_entity(), make_expression(), make_syntax(), NIL, normalized_undefined, pips_assert, reference_variable, syntax_call, syntax_call_p, syntax_reference, and syntax_reference_p.

Referenced by simplification_complex(), simplification_dcomplex(), simplification_double(), simplification_int(), and simplification_real().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ simplification_dcomplex()

static void simplification_dcomplex ( expression  exp,
type_context_p  context 
)
static

Definition at line 4183 of file bootstrap.c.

4184 {
4185  basic b = make_basic_complex(16);
4186  simplification_conversion(exp, b, context);
4187  free_basic(b);
4188 }

References exp, free_basic(), make_basic_complex(), and simplification_conversion().

Referenced by CreateIntrinsics(), and switch_specific_dcmplx().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ simplification_double()

static void simplification_double ( expression  exp,
type_context_p  context 
)
static

Definition at line 4169 of file bootstrap.c.

4170 {
4171  basic b = make_basic_float(8);
4172  simplification_conversion(exp, b, context);
4173  free_basic(b);
4174 }

References exp, free_basic(), make_basic_float(), and simplification_conversion().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ simplification_int()

static void simplification_int ( expression  exp,
type_context_p  context 
)
static

Definition at line 4155 of file bootstrap.c.

4156 {
4157  basic b = make_basic_int(4);
4158  simplification_conversion(exp, b, context);
4159  free_basic(b);
4160 }

References exp, free_basic(), make_basic_int(), and simplification_conversion().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ simplification_real()

static void simplification_real ( expression  exp,
type_context_p  context 
)
static

Definition at line 4162 of file bootstrap.c.

4163 {
4164  basic b = make_basic_float(4);
4165  simplification_conversion(exp, b, context);
4166  free_basic(b);
4167 }

References exp, free_basic(), make_basic_float(), and simplification_conversion().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ statement_with_at_most_one_expression_integer()

static basic statement_with_at_most_one_expression_integer ( call  c,
type_context_p  context 
)
static

Count the number of errors

Count the number of errors

Here, we are not interested in the basic returned

Definition at line 3153 of file bootstrap.c.

3155 {
3156  basic b;
3157  list args = call_arguments(c);
3158  if (args != NIL)
3159  {
3160  expression arg1 = EXPRESSION(CAR(args));
3161  b = GET_TYPE(context->types, arg1);
3162 
3163  if ( !basic_int_p(b) )
3164  {
3165  add_one_line_of_comment((statement) stack_head(context->stats),
3166  "Argument #1 of '%s' must be an integer expression",
3167  entity_local_name(call_function(c)));
3168  /* Count the number of errors */
3169  context->number_of_error++;
3170  }
3171 
3172  if (CDR(args) != NIL)
3173  {
3174  add_one_line_of_comment((statement) stack_head(context->stats),
3175  "Statement '%s' needs at most an integer expression",
3176  entity_local_name(call_function(c)));
3177  /* Count the number of errors */
3178  context->number_of_error++;
3179  }
3180  }
3181 
3182  /* Here, we are not interested in the basic returned */
3183  return basic_undefined;
3184 }

References add_one_line_of_comment(), basic_int_p, basic_undefined, call_arguments, call_function, CAR, CDR, entity_local_name(), EXPRESSION, GET_TYPE, NIL, stack_head(), and context::stats.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ statement_with_at_most_one_integer_or_character()

static basic statement_with_at_most_one_integer_or_character ( call  c,
type_context_p  context 
)
static

Count the number of errors

Count the number of errors

Count the number of errors

Here, we are not interested in the basic returned

Definition at line 3100 of file bootstrap.c.

3102 {
3103  basic b_int, b_char;
3104  expression arg1;
3105  entity en;
3106  int l;
3107  list args = call_arguments(c);
3108  if (args != NIL)
3109  {
3110  b_int = make_basic_int(4);
3111  b_char = make_basic_string(0);
3112  arg1 = EXPRESSION(CAR(args));
3113  if ( !is_constant_of_basic(arg1, b_int) &&
3114  !is_constant_of_basic(arg1, b_char))
3115  {
3116  add_one_line_of_comment((statement) stack_head(context->stats),
3117  "Argument #1 of '%s' must be an integer or character constant",
3118  entity_local_name(call_function(c)));
3119  /* Count the number of errors */
3120  context->number_of_error++;
3121  }
3122  else if ( is_constant_of_basic(arg1, b_int) )
3123  {
3124  en = call_function(syntax_call(expression_syntax(arg1)));
3125  l = strlen(entity_local_name(en));
3126  if (l > 5)
3127  {
3128  add_one_line_of_comment((statement) stack_head(context->stats),
3129  "Argument must be an integer of at most 5 digits (instead of '%d')",
3130  l);
3131  /* Count the number of errors */
3132  context->number_of_error++;
3133  }
3134  }
3135 
3136  if (CDR(args) != NIL)
3137  {
3138  add_one_line_of_comment((statement) stack_head(context->stats),
3139  "Statement '%s' needs at most an argument, " \
3140  "neight integer constant nor character constant",
3141  entity_local_name(call_function(c)));
3142  /* Count the number of errors */
3143  context->number_of_error++;
3144  }
3145  free_basic(b_int);
3146  free_basic(b_char);
3147  }
3148  /* Here, we are not interested in the basic returned */
3149  return basic_undefined;
3150 }
is_constant_of_basic
static bool is_constant_of_basic(expression exp, basic b)
Verify if an expression is a constant of basic b: YES : return true; otherwise, return FALSE.
Definition: bootstrap.c:3060

References add_one_line_of_comment(), basic_undefined, call_arguments, call_function, CAR, CDR, entity_local_name(), EXPRESSION, expression_syntax, free_basic(), is_constant_of_basic(), make_basic_int(), make_basic_string(), NIL, stack_head(), context::stats, and syntax_call.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ statement_without_argument()

static basic statement_without_argument ( call  c,
type_context_p  context 
)
static

Count the number of errors

Here, we are not interested in the basic returned

Definition at line 3079 of file bootstrap.c.

3080 {
3081  if (call_arguments(c) != NIL)
3082  {
3083  add_one_line_of_comment((statement) stack_head(context->stats),
3084  "Statement '%s' doesn't need any argument",
3085  entity_local_name(call_function(c)));
3086  /* Count the number of errors */
3087  context->number_of_error++;
3088  }
3089 
3090  /* Here, we are not interested in the basic returned */
3091  return basic_undefined;
3092 }

References add_one_line_of_comment(), basic_undefined, call_arguments, call_function, entity_local_name(), NIL, stack_head(), and context::stats.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ substring_type()

static type substring_type ( int  n)
static

Definition at line 973 of file bootstrap.c.

974 {
975  type t = type_undefined;
976  functional ft = functional_undefined;
977 
978  ft = make_functional(NIL, MakeCharacterResult());
979  functional_parameters(ft) =
980  CONS(PARAMETER, MakeIntegerParameter(), NIL);
981  functional_parameters(ft) =
982  CONS(PARAMETER, MakeIntegerParameter(),
983  functional_parameters(ft));
984  functional_parameters(ft) =
985  CONS(PARAMETER, MakeCharacterParameter(),
986  functional_parameters(ft));
987  t = make_type(is_type_functional, ft);
988 
989  pips_assert("valid arity", (int)gen_length(functional_parameters(ft))==n);
990 
991  return t;
992 }

References CONS, functional_parameters, functional_undefined, gen_length(), is_type_functional, make_functional(), make_type(), MakeCharacterParameter(), MakeCharacterResult(), MakeIntegerParameter(), NIL, PARAMETER, pips_assert, and type_undefined.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ switch_generic_to_specific()

static void switch_generic_to_specific ( expression  exp,
type_context_p  context,
string  arg_int_name,
string  arg_real_name,
string  arg_double_name,
string  arg_complex_name,
string  arg_dcomplex_name 
)
static

Find the specific name from the specific argument

Each intrinsic of name generic have a function for switching to the specific name correspondent with the argument

Here, expression_syntax(exp) is always a call

else generic name is kept...

Modify the (function:entity) of the call c if necessary NOTE: If specific_name == NULL: Invalid argument or argument basic unknown

Count number of simplifications

Definition at line 3748 of file bootstrap.c.

3754 {
3755  call c;
3756  list args;
3757  basic arg_basic;
3758  string specific_name = NULL;
3759  /* Here, expression_syntax(exp) is always a call */
3760  syntax s = expression_syntax(exp);
3761  c = syntax_call(s);
3762  args = call_arguments(c);
3763  arg_basic = GET_TYPE(context->types, EXPRESSION(CAR(args)));
3764 
3765  if (basic_int_p(arg_basic))
3766  {
3767  specific_name = arg_int_name;
3768  }
3769  else if (basic_float_p(arg_basic) && basic_float(arg_basic) == 4)
3770  {
3771  specific_name = arg_real_name;
3772  }
3773  else if (basic_float_p(arg_basic) && basic_float(arg_basic) == 8)
3774  {
3775  specific_name = arg_double_name;
3776  }
3777  else if (basic_complex_p(arg_basic) && basic_complex(arg_basic) == 8)
3778  {
3779  specific_name = arg_complex_name;
3780  }
3781  else if (basic_complex_p(arg_basic) && basic_complex(arg_basic) == 16)
3782  {
3783  if (TC_DCOMPLEX)
3784  specific_name = arg_dcomplex_name;
3785  /* else generic name is kept... */
3786  }
3787 
3788  /* Modify the (function:entity) of the call c if necessary
3789  * NOTE: If specific_name == NULL: Invalid argument or
3790  * argument basic unknown
3791  */
3792  if(specific_name != NULL &&
3793  strcmp(specific_name, entity_local_name(call_function(c))) != 0)
3794  {
3795  call_function(c) = CreateIntrinsic(specific_name);
3796 
3797  /* Count number of simplifications */
3798  context->number_of_simplication++;
3799  }
3800 }

References basic_complex, basic_complex_p, basic_float, basic_float_p, basic_int_p, call_arguments, call_function, CAR, CreateIntrinsic(), entity_local_name(), exp, EXPRESSION, expression_syntax, GET_TYPE, syntax_call, and TC_DCOMPLEX.

Referenced by switch_specific_abs(), switch_specific_acos(), switch_specific_aint(), switch_specific_anint(), switch_specific_asin(), switch_specific_atan(), switch_specific_atan2(), switch_specific_cos(), switch_specific_cosh(), switch_specific_dim(), switch_specific_exp(), switch_specific_log(), switch_specific_log10(), switch_specific_max(), switch_specific_min(), switch_specific_mod(), switch_specific_nint(), switch_specific_sign(), switch_specific_sin(), switch_specific_sinh(), switch_specific_sqrt(), switch_specific_tan(), and switch_specific_tanh().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ switch_specific_abs()

static void switch_specific_abs ( expression  exp,
type_context_p  context 
)
static

ABS.

Definition at line 3825 of file bootstrap.c.

3826 {
3827  switch_generic_to_specific(exp, context,
3828  "IABS", "ABS", "DABS", "CABS", "CDABS");
3829 }
switch_generic_to_specific
static void switch_generic_to_specific(expression exp, type_context_p context, string arg_int_name, string arg_real_name, string arg_double_name, string arg_complex_name, string arg_dcomplex_name)
Definition: bootstrap.c:3748

References exp, and switch_generic_to_specific().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ switch_specific_acos()

static void switch_specific_acos ( expression  exp,
type_context_p  context 
)
static

ACOS.

Definition at line 3923 of file bootstrap.c.

3924 {
3925  switch_generic_to_specific(exp, context,
3926  NULL, "ACOS", "DACOS", NULL, NULL);
3927 }

References exp, and switch_generic_to_specific().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ switch_specific_aint()

static void switch_specific_aint ( expression  exp,
type_context_p  context 
)
static

AINT.

Definition at line 3804 of file bootstrap.c.

3805 {
3806  switch_generic_to_specific(exp, context,
3807  NULL, "AINT", "DINT", NULL, NULL);
3808 }

References exp, and switch_generic_to_specific().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ switch_specific_anint()

static void switch_specific_anint ( expression  exp,
type_context_p  context 
)
static

ANINT.

Definition at line 3811 of file bootstrap.c.

3812 {
3813  switch_generic_to_specific(exp, context,
3814  NULL, "ANINT", "DNINT", NULL, NULL);
3815 }

References exp, and switch_generic_to_specific().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ switch_specific_asin()

static void switch_specific_asin ( expression  exp,
type_context_p  context 
)
static

ASIN.

Definition at line 3916 of file bootstrap.c.

3917 {
3918  switch_generic_to_specific(exp, context,
3919  NULL, "ASIN", "DASIN", NULL, NULL);
3920 }

References exp, and switch_generic_to_specific().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ switch_specific_atan()

static void switch_specific_atan ( expression  exp,
type_context_p  context 
)
static

ATAN.

Definition at line 3930 of file bootstrap.c.

3931 {
3932  switch_generic_to_specific(exp, context,
3933  NULL, "ATAN", "DATAN", NULL, NULL);
3934 }

References exp, and switch_generic_to_specific().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ switch_specific_atan2()

static void switch_specific_atan2 ( expression  exp,
type_context_p  context 
)
static

ATAN2.

Definition at line 3937 of file bootstrap.c.

3938 {
3939  switch_generic_to_specific(exp, context,
3940  NULL, "ATAN2", "DATAN2", NULL, NULL);
3941 }

References exp, and switch_generic_to_specific().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ switch_specific_cmplx()

static void switch_specific_cmplx ( expression  exp,
type_context_p  context 
)
static

Definition at line 3969 of file bootstrap.c.

3970 {
3971  if (get_bool_property("TYPE_CHECKER_EXPLICIT_COMPLEX_CONSTANTS"))
3972  {
3973  pips_assert("expression is a call", expression_call_p(exp));
3974  call_function(syntax_call(expression_syntax(exp))) =
3975  CreateIntrinsic("CMPLX");
3976  }
3977  simplification_complex(exp, context);
3978 }
expression_call_p
bool expression_call_p(expression e)
Definition: expression.c:415

References call_function, CreateIntrinsic(), exp, expression_call_p(), expression_syntax, get_bool_property(), pips_assert, simplification_complex(), and syntax_call.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ switch_specific_cos()

static void switch_specific_cos ( expression  exp,
type_context_p  context 
)
static

COS.

Definition at line 3902 of file bootstrap.c.

3903 {
3904  switch_generic_to_specific(exp, context,
3905  NULL, "COS", "DCOS", "CCOS", "CDCOS");
3906 }

References exp, and switch_generic_to_specific().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ switch_specific_cosh()

static void switch_specific_cosh ( expression  exp,
type_context_p  context 
)
static

COSH.

Definition at line 3951 of file bootstrap.c.

3952 {
3953  switch_generic_to_specific(exp, context,
3954  NULL, "COSH", "DCOSH", NULL, NULL);
3955 }

References exp, and switch_generic_to_specific().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ switch_specific_dcmplx()

static void switch_specific_dcmplx ( expression  exp,
type_context_p  context 
)
static

Definition at line 3981 of file bootstrap.c.

3982 {
3983  if (get_bool_property("TYPE_CHECKER_EXPLICIT_COMPLEX_CONSTANTS") &&
3984  TC_DCOMPLEX)
3985  {
3986  pips_assert("expression is a call", expression_call_p(exp));
3987  call_function(syntax_call(expression_syntax(exp))) =
3988  CreateIntrinsic("DCMPLX");
3989  }
3990  simplification_dcomplex(exp, context);
3991 }

References call_function, CreateIntrinsic(), exp, expression_call_p(), expression_syntax, get_bool_property(), pips_assert, simplification_dcomplex(), syntax_call, and TC_DCOMPLEX.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ switch_specific_dim()

static void switch_specific_dim ( expression  exp,
type_context_p  context 
)
static

DIM.

Definition at line 3846 of file bootstrap.c.

3847 {
3848  switch_generic_to_specific(exp, context,
3849  "IDIM", "DIM", "DDIM", NULL, NULL);
3850 }

References exp, and switch_generic_to_specific().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ switch_specific_exp()

static void switch_specific_exp ( expression  exp,
type_context_p  context 
)
static

EXP.

Definition at line 3874 of file bootstrap.c.

3875 {
3876  switch_generic_to_specific(exp, context,
3877  NULL, "EXP", "DEXP", "CEXP", "CDEXP");
3878 }

References exp, and switch_generic_to_specific().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ switch_specific_log()

static void switch_specific_log ( expression  exp,
type_context_p  context 
)
static

LOG.

Definition at line 3881 of file bootstrap.c.

3882 {
3883  switch_generic_to_specific(exp, context,
3884  NULL, "ALOG", "DLOG", "CLOG", "CDLOG");
3885 }

References exp, and switch_generic_to_specific().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ switch_specific_log10()

static void switch_specific_log10 ( expression  exp,
type_context_p  context 
)
static

LOG10.

Definition at line 3888 of file bootstrap.c.

3889 {
3890  switch_generic_to_specific(exp, context,
3891  NULL, "ALOG10", "DLOG10", NULL, NULL);
3892 }

References exp, and switch_generic_to_specific().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ switch_specific_max()

static void switch_specific_max ( expression  exp,
type_context_p  context 
)
static

MAX.

Definition at line 3853 of file bootstrap.c.

3854 {
3855  switch_generic_to_specific(exp, context,
3856  "MAX0", "AMAX1", "DMAX1", NULL, NULL);
3857 }

References exp, and switch_generic_to_specific().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ switch_specific_min()

static void switch_specific_min ( expression  exp,
type_context_p  context 
)
static

MIN.

Definition at line 3860 of file bootstrap.c.

3861 {
3862  switch_generic_to_specific(exp, context,
3863  "MIN0", "AMIN1", "DMIN1", NULL, NULL);
3864 }

References exp, and switch_generic_to_specific().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ switch_specific_mod()

static void switch_specific_mod ( expression  exp,
type_context_p  context 
)
static

MOD.

Definition at line 3832 of file bootstrap.c.

3833 {
3834  switch_generic_to_specific(exp, context,
3835  "MOD", "AMOD", "DMOD", NULL, NULL);
3836 }

References exp, and switch_generic_to_specific().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ switch_specific_nint()

static void switch_specific_nint ( expression  exp,
type_context_p  context 
)
static

NINT.

Definition at line 3818 of file bootstrap.c.

3819 {
3820  switch_generic_to_specific(exp, context,
3821  NULL, "NINT", "IDNINT", NULL, NULL);
3822 }

References exp, and switch_generic_to_specific().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ switch_specific_sign()

static void switch_specific_sign ( expression  exp,
type_context_p  context 
)
static

SIGN.

Definition at line 3839 of file bootstrap.c.

3840 {
3841  switch_generic_to_specific(exp, context,
3842  "ISIGN", "SIGN", "DSIGN", NULL, NULL);
3843 }

References exp, and switch_generic_to_specific().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ switch_specific_sin()

static void switch_specific_sin ( expression  exp,
type_context_p  context 
)
static

SIN.

Definition at line 3895 of file bootstrap.c.

3896 {
3897  switch_generic_to_specific(exp, context,
3898  NULL,"SIN","DSIN", "CSIN", "CDSIN");
3899 }

References exp, and switch_generic_to_specific().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ switch_specific_sinh()

static void switch_specific_sinh ( expression  exp,
type_context_p  context 
)
static

SINH.

Definition at line 3944 of file bootstrap.c.

3945 {
3946  switch_generic_to_specific(exp, context,
3947  NULL, "SINH", "DSINH", NULL, NULL);
3948 }

References exp, and switch_generic_to_specific().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ switch_specific_sqrt()

static void switch_specific_sqrt ( expression  exp,
type_context_p  context 
)
static

SQRT.

Definition at line 3867 of file bootstrap.c.

3868 {
3869  switch_generic_to_specific(exp, context,
3870  NULL, "SQRT", "DSQRT", "CSQRT", "CDSQRT");
3871 }

References exp, and switch_generic_to_specific().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ switch_specific_tan()

static void switch_specific_tan ( expression  exp,
type_context_p  context 
)
static

TAN.

Definition at line 3909 of file bootstrap.c.

3910 {
3911  switch_generic_to_specific(exp, context,
3912  NULL, "TAN", "DTAN", NULL, NULL);
3913 }

References exp, and switch_generic_to_specific().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ switch_specific_tanh()

static void switch_specific_tanh ( expression  exp,
type_context_p  context 
)
static

TANH.

Definition at line 3958 of file bootstrap.c.

3959 {
3960  switch_generic_to_specific(exp, context,
3961  NULL, "TANH", "DTANH", NULL, NULL);
3962 }

References exp, and switch_generic_to_specific().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ type_loop_range()

void type_loop_range ( basic  index,
range  r,
type_context_p  context 
)
Parameters
indexndex
contextontext

Definition at line 1038 of file bootstrap.c.

1039 {
1040  basic lower, upper, incr;
1041  lower = GET_TYPE(context->types, range_lower(r));
1042  upper = GET_TYPE(context->types, range_upper(r));
1043  incr = GET_TYPE(context->types, range_increment(r));
1044 
1045  if(!basic_equal_p(index, lower))
1046  {
1047  range_lower(r) = insert_cast(index, lower, range_lower(r), context);
1048  }
1049  if(!basic_equal_p(index, upper))
1050  {
1051  range_upper(r) = insert_cast(index, upper, range_upper(r), context);
1052  }
1053  if(!basic_equal_p(index, incr))
1054  {
1055  range_increment(r) = insert_cast(index, incr, range_increment(r), context);
1056  }
1057 }
insert_cast
expression insert_cast(basic cast, basic from, expression exp, type_context_p)
Function in type_checker.c.
Definition: bootstrap.c:1567

References basic_equal_p(), GET_TYPE, insert_cast(), range_increment, range_lower, and range_upper.

Referenced by check_this_loop(), and typing_implied_do().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_arguments()

static void typing_arguments ( call  c,
type_context_p  context,
basic  b 
)
static

Update hash table

Definition at line 1996 of file bootstrap.c.

1997 {
1998  basic b1;
1999  list args = call_arguments(c);
2000 
2001  while (args != NIL)
2002  {
2003  b1 = GET_TYPE(context->types, EXPRESSION(CAR(args)));
2004  if (!basic_equal_p(b, b1))
2005  {
2006  EXPRESSION_(CAR(args)) =
2007  insert_cast(b, b1, EXPRESSION(CAR(args)), context);
2008  /* Update hash table */
2009  PUT_TYPE(context->types, EXPRESSION(CAR(args)), copy_basic(b));
2010  }
2011  args = CDR(args);
2012  }
2013 }
PUT_TYPE
#define PUT_TYPE(h, e, b)
Definition: bootstrap.c:90
EXPRESSION_
#define EXPRESSION_(x)
Definition: ri.h:1220

References b1, basic_equal_p(), call_arguments, CAR, CDR, copy_basic(), EXPRESSION, EXPRESSION_, GET_TYPE, insert_cast(), NIL, and PUT_TYPE.

Referenced by typing_arithmetic_operator(), typing_function_constant_complex(), typing_function_constant_dcomplex(), typing_function_conversion_to_complex(), typing_function_conversion_to_dcomplex(), typing_function_IntegerRealDouble_to_IntegerRealDouble(), typing_function_IntegerRealDoubleComplex_to_IntegerRealDoubleReal(), typing_function_RealDouble_to_Integer(), typing_function_RealDouble_to_RealDouble(), typing_function_RealDoubleComplex_to_RealDoubleComplex(), and typing_relational_operator().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_arithmetic_operator()

static basic typing_arithmetic_operator ( call  c,
type_context_p  context 
)
static

Just for return a result

Find the longest type amongs all arguments

Typing all arguments to b if necessary

Definition at line 2020 of file bootstrap.c.

2021 {
2022  basic b;
2023 
2024  if(!arguments_are_IRDC(c, context))
2025  {
2026  /* Just for return a result */
2027  return make_basic_float(4);
2028  }
2029  /* Find the longest type amongs all arguments */
2030  b = basic_union_arguments(c, context->types);
2031 
2032  /* Typing all arguments to b if necessary */
2033  typing_arguments(c, context, b);
2034 
2035  return b;
2036 }
arguments_are_IRDC
static bool arguments_are_IRDC(call c, type_context_p context)
Definition: bootstrap.c:1908
basic_union_arguments
static basic basic_union_arguments(call c, hash_table types)
Determine the longest basic among the arguments of c.
Definition: bootstrap.c:1615
typing_arguments
static void typing_arguments(call c, type_context_p context, basic b)
Definition: bootstrap.c:1996

References arguments_are_IRDC(), basic_union_arguments(), make_basic_float(), and typing_arguments().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_assign_substring()

static basic typing_assign_substring ( call  c,
type_context_p  context 
)
static

Count the number of errors

Count the number of errors

Count the number of errors

count > 4

Count the number of errors

Count the number of errors

Definition at line 2867 of file bootstrap.c.

2868 {
2869  int count = 0;
2870  MAP(EXPRESSION, e,
2871  {
2872  count++;
2873  switch (count)
2874  {
2875  case 1:
2876  if( !basic_string_p(GET_TYPE(context->types, e)) ||
2877  !syntax_reference_p(expression_syntax(e)) )
2878  {
2879  add_one_line_of_comment((statement) stack_head(context->stats),
2880  "Argument #1 must be a reference to string");
2881  /* Count the number of errors */
2882  context->number_of_error++;
2883  }
2884  break;
2885  case 2:
2886  case 3:
2887  if( !basic_int_p(GET_TYPE(context->types, e)))
2888  {
2889  add_one_line_of_comment((statement) stack_head(context->stats),
2890  "Argument #%d must be an integer expression",
2891  count);
2892  /* Count the number of errors */
2893  context->number_of_error++;
2894  }
2895  break;
2896  case 4:
2897  if( !basic_string_p(GET_TYPE(context->types, e)))
2898  {
2899  add_one_line_of_comment((statement) stack_head(context->stats),
2900  "Argument #4 must be a string expression");
2901  /* Count the number of errors */
2902  context->number_of_error++;
2903  }
2904  break;
2905  default: /* count > 4 */
2906  add_one_line_of_comment((statement) stack_head(context->stats),
2907  "Too many of arguments for assign sub-string function");
2908  /* Count the number of errors */
2909  context->number_of_error++;
2910  return basic_undefined;
2911  }
2912  },
2913  call_arguments(c));
2914  if (count < 4)
2915  {
2916  add_one_line_of_comment((statement) stack_head(context->stats),
2917  "Lack of %d argument(s) for assign sub-string function",
2918  4-count);
2919  /* Count the number of errors */
2920  context->number_of_error++;
2921  }
2922  return basic_undefined;
2923 }
count
static int count
Definition: SDG.c:519

References add_one_line_of_comment(), basic_int_p, basic_string_p, basic_undefined, call_arguments, count, EXPRESSION, expression_syntax, GET_TYPE, MAP, stack_head(), context::stats, and syntax_reference_p.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_buffer_inout()

static basic typing_buffer_inout ( call  c,
type_context_p  context 
)
static

Count the number of errors

PDSon: Nobody knows the type of 3 last arguments, I do nothing here

count > 4

Count the number of errors

Count the number of errors

Definition at line 2926 of file bootstrap.c.

2927 {
2928  int count = 0;
2929 
2930  MAP(EXPRESSION, e,
2931  {
2932  count++;
2933  switch (count)
2934  {
2935  case 1:
2936  if( !basic_int_p(GET_TYPE(context->types, e)) )
2937  {
2938  add_one_line_of_comment((statement) stack_head(context->stats),
2939  "Argument #1 must be an integer expression");
2940  /* Count the number of errors */
2941  context->number_of_error++;
2942  }
2943  break;
2944  case 2:
2945  case 3:
2946  case 4:
2947  /* PDSon: Nobody knows the type of 3 last arguments, I do nothing here */
2948  break;
2949  default: /* count > 4 */
2950  add_one_line_of_comment((statement) stack_head(context->stats),
2951  "Too many of arguments for function '%s'",
2952  entity_local_name(call_function(c)));
2953  /* Count the number of errors */
2954  context->number_of_error++;
2955  return basic_undefined;
2956  }
2957  },
2958  call_arguments(c));
2959 
2960  if (count < 4)
2961  {
2962  add_one_line_of_comment((statement) stack_head(context->stats),
2963  "Lack of %d argument(s) for function '%s'",
2964  4-count, entity_local_name(call_function(c)));
2965  /* Count the number of errors */
2966  context->number_of_error++;
2967  }
2968  return basic_undefined;
2969 }

References add_one_line_of_comment(), basic_int_p, basic_undefined, call_arguments, call_function, count, entity_local_name(), EXPRESSION, GET_TYPE, MAP, stack_head(), and context::stats.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_concat_operator()

static basic typing_concat_operator ( call  c,
type_context_p  context 
)
static

Just for return a result

Definition at line 2120 of file bootstrap.c.

2121 {
2122  if(!arguments_are_character(c, context))
2123  {
2124  /* Just for return a result */
2125  return make_basic_string(value_undefined);
2126  }
2127  return make_basic_string(value_undefined);
2128 }
arguments_are_character
static bool arguments_are_character(call c, type_context_p context)
Definition: bootstrap.c:1914
value_undefined
#define value_undefined
Definition: ri.h:3016

References arguments_are_character(), make_basic_string(), and value_undefined.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_function_argument_type_to_return_type()

static basic typing_function_argument_type_to_return_type ( call  c,
type_context_p  context,
basic  from_type,
basic  to_type 
)
static

INT

LONG INT : added by MB

LONG LONG INT

REAL

DOUBLE

LONG DOUBLE : added by MB

COMPLEX

DOUBLE COMPLEX

LONG DOUBLE COMPLEX : added by MB

CHAR

LOGICAL

UNEXPECTED

ERROR: Invalide of argument type

Count the number of errors

Definition at line 2135 of file bootstrap.c.

2137 {
2138  bool check_arg = false;
2139 
2140  /* INT */
2141  if(basic_int_p(from_type) && basic_int(from_type) == 4)
2142  {
2143  check_arg = arguments_are_integer(c, context->types);
2144  }
2145  /* LONG INT : added by MB */
2146  else if(basic_int_p(from_type) && basic_int(from_type) == 6)
2147  {
2148  check_arg = arguments_are_longinteger(c, context->types);
2149  }
2150  /* LONG LONG INT */
2151  else if(basic_int_p(from_type) && basic_int(from_type) == 8)
2152  {
2153  check_arg = arguments_are_longlonginteger(c, context->types);
2154  }
2155  /* REAL */
2156  else if(basic_float_p(from_type) && basic_float(from_type) == 4)
2157  {
2158  check_arg = arguments_are_real(c, context->types);
2159  }
2160  /* DOUBLE */
2161  else if(basic_float_p(from_type) && basic_float(from_type) == 8)
2162  {
2163  check_arg = arguments_are_double(c, context->types);
2164  }
2165  /* LONG DOUBLE : added by MB */
2166  else if(basic_float_p(from_type) && basic_float(from_type) == 16)
2167  {
2168  check_arg = arguments_are_longdouble(c, context->types);
2169  }
2170  /* COMPLEX */
2171  else if(basic_complex_p(from_type) && basic_complex(from_type) == 8)
2172  {
2173  check_arg = arguments_are_complex(c, context->types);
2174  }
2175  /* DOUBLE COMPLEX */
2176  else if(basic_complex_p(from_type) && basic_complex(from_type) == 16)
2177  {
2178  if (TC_DCOMPLEX)
2179  check_arg = arguments_are_dcomplex(c, context->types);
2180  }
2181  /* LONG DOUBLE COMPLEX : added by MB*/
2182  else if(basic_complex_p(from_type) && basic_complex(from_type) == 32)
2183  {
2184  if (TC_LONGDCOMPLEX)
2185  check_arg = arguments_are_longdcomplex(c, context->types);
2186  }
2187  /* CHAR */
2188  else if(basic_string_p(from_type))
2189  {
2190  check_arg = arguments_are_character(c, context);
2191  }
2192  /* LOGICAL */
2193  else if(basic_logical_p(from_type))
2194  {
2195  check_arg = arguments_are_logical(c, context);
2196  }
2197  /* UNEXPECTED */
2198  else
2199  {
2200  pips_internal_error("Unexpected basic: %s ",
2201  basic_to_string(from_type));
2202  }
2203 
2204  /* ERROR: Invalide of argument type */
2205  if(check_arg == false)
2206  {
2207  add_one_line_of_comment((statement) stack_head(context->stats),
2208  "Invalid argument(s) to '%s'!",
2209  entity_local_name(call_function(c)));
2210 
2211  /* Count the number of errors */
2212  context->number_of_error++;
2213  }
2214 
2215  return copy_basic(to_type);
2216 }
arguments_are_longdcomplex
static bool arguments_are_longdcomplex(call c, hash_table types)
MB.
Definition: bootstrap.c:1746
arguments_are_longinteger
static bool arguments_are_longinteger(call c, hash_table types)
MB.
Definition: bootstrap.c:1710
arguments_are_complex
static bool arguments_are_complex(call c, hash_table types)
Definition: bootstrap.c:1736
arguments_are_longdouble
static bool arguments_are_longdouble(call c, hash_table types)
MB.
Definition: bootstrap.c:1731
arguments_are_integer
static bool arguments_are_integer(call c, hash_table types)
Definition: bootstrap.c:1705
arguments_are_longlonginteger
static bool arguments_are_longlonginteger(call c, hash_table types)
MB.
Definition: bootstrap.c:1715
arguments_are_double
static bool arguments_are_double(call c, hash_table types)
Definition: bootstrap.c:1726
arguments_are_real
static bool arguments_are_real(call c, hash_table types)
Definition: bootstrap.c:1721
arguments_are_logical
static bool arguments_are_logical(call c, type_context_p context)
Definition: bootstrap.c:1920
arguments_are_dcomplex
static bool arguments_are_dcomplex(call c, hash_table types)
Definition: bootstrap.c:1741

References add_one_line_of_comment(), arguments_are_character(), arguments_are_complex(), arguments_are_dcomplex(), arguments_are_double(), arguments_are_integer(), arguments_are_logical(), arguments_are_longdcomplex(), arguments_are_longdouble(), arguments_are_longinteger(), arguments_are_longlonginteger(), arguments_are_real(), basic_complex, basic_complex_p, basic_float, basic_float_p, basic_int, basic_int_p, basic_logical_p, basic_string_p, basic_to_string(), call_function, copy_basic(), entity_local_name(), pips_internal_error, stack_head(), context::stats, TC_DCOMPLEX, and TC_LONGDCOMPLEX.

Referenced by typing_function_char_to_int(), typing_function_char_to_logical(), typing_function_complex_to_complex(), typing_function_complex_to_real(), typing_function_dcomplex_to_dcomplex(), typing_function_dcomplex_to_double(), typing_function_double_to_double(), typing_function_double_to_int(), typing_function_double_to_longint(), typing_function_double_to_longlongint(), typing_function_int_to_char(), typing_function_int_to_int(), typing_function_int_to_logical(), typing_function_int_to_real(), typing_function_longdcomplex_to_longdcomplex(), typing_function_longdcomplex_to_longdouble(), typing_function_longdouble_to_int(), typing_function_longdouble_to_longdouble(), typing_function_longdouble_to_longint(), typing_function_longdouble_to_longlongint(), typing_function_longint_to_longint(), typing_function_longlongint_to_longlongint(), typing_function_real_to_double(), typing_function_real_to_int(), typing_function_real_to_longint(), typing_function_real_to_longlongint(), and typing_function_real_to_real().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_function_char_to_int()

static basic typing_function_char_to_int ( call  c,
type_context_p  context 
)
static

Definition at line 2311 of file bootstrap.c.

2312 {
2313  basic result, type_INT = make_basic_int(4);
2314  basic type_CHAR = make_basic_string(value_undefined);
2315  result = typing_function_argument_type_to_return_type(c, context, type_CHAR,
2316  type_INT);
2317  free_basic(type_INT);
2318  free_basic(type_CHAR);
2319  return result;
2320 }
typing_function_argument_type_to_return_type
static basic typing_function_argument_type_to_return_type(call c, type_context_p context, basic from_type, basic to_type)
Definition: bootstrap.c:2135

References free_basic(), make_basic_int(), make_basic_string(), typing_function_argument_type_to_return_type(), and value_undefined.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_function_char_to_logical()

static basic typing_function_char_to_logical ( call  c,
type_context_p  context 
)
static

Definition at line 2507 of file bootstrap.c.

2508 {
2509  basic result, type_LOGICAL = make_basic_logical(4);
2510  basic type_CHAR = make_basic_string(value_undefined);
2511  result = typing_function_argument_type_to_return_type(c, context,
2512  type_CHAR,
2513  type_LOGICAL);
2514  free_basic(type_LOGICAL);
2515  free_basic(type_CHAR);
2516  return result;
2517 }

References free_basic(), make_basic_logical(), make_basic_string(), typing_function_argument_type_to_return_type(), and value_undefined.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_function_complex_to_complex()

static basic typing_function_complex_to_complex ( call  c,
type_context_p  context 
)
static

Definition at line 2273 of file bootstrap.c.

2274 {
2275  basic result, type_CMPLX = make_basic_complex(8);
2276  result = typing_function_argument_type_to_return_type(c, context,
2277  type_CMPLX, type_CMPLX);
2278  free_basic(type_CMPLX);
2279  return result;
2280 }

References free_basic(), make_basic_complex(), and typing_function_argument_type_to_return_type().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_function_complex_to_real()

static basic typing_function_complex_to_real ( call  c,
type_context_p  context 
)
static

Definition at line 2483 of file bootstrap.c.

2484 {
2485  basic result, type_REAL = make_basic_float(4);
2486  basic type_CMPLX = make_basic_complex(8);
2487  result = typing_function_argument_type_to_return_type(c, context,
2488  type_CMPLX,
2489  type_REAL);
2490  free_basic(type_REAL);
2491  free_basic(type_CMPLX);
2492  return result;
2493 }

References free_basic(), make_basic_complex(), make_basic_float(), and typing_function_argument_type_to_return_type().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_function_constant_complex()

static basic typing_function_constant_complex ( call  c,
type_context_p  context 
)
static

CMPLX_.

Just for return result

Typing all arguments to REAL if necessary

Definition at line 2738 of file bootstrap.c.

2739 {
2740  basic b;
2741  if(!arguments_are_IR(c, context))
2742  {
2743  return make_basic_float(4); /* Just for return result */
2744  }
2745 
2746  /* Typing all arguments to REAL if necessary */
2747  b = make_basic_float(4);
2748  typing_arguments(c, context, b);
2749  free_basic(b);
2750 
2751  return make_basic_complex(8);
2752 }
arguments_are_IR
static bool arguments_are_IR(call c, type_context_p context)
Definition: bootstrap.c:1933

References arguments_are_IR(), free_basic(), make_basic_complex(), make_basic_float(), and typing_arguments().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_function_constant_dcomplex()

static basic typing_function_constant_dcomplex ( call  c,
type_context_p  context 
)
static

DCMPLX_.

Just for return result

Typing all arguments to DOUBLE if necessary

Definition at line 2755 of file bootstrap.c.

2756 {
2757  basic b;
2758  if(!arguments_are_IRD(c, context))
2759  {
2760  return make_basic_float(4); /* Just for return result */
2761  }
2762 
2763  /* Typing all arguments to DOUBLE if necessary */
2764  b = make_basic_float(8);
2765  typing_arguments(c, context, b);
2766  free_basic(b);
2767 
2768  return make_basic_complex(16);
2769 }
arguments_are_IRD
static bool arguments_are_IRD(call c, type_context_p context)
Definition: bootstrap.c:1939

References arguments_are_IRD(), free_basic(), make_basic_complex(), make_basic_float(), and typing_arguments().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_function_conversion_to_complex()

static basic typing_function_conversion_to_complex ( call  c,
type_context_p  context 
)
static

Just for return result

Argument is a varibale

Free memory occupied by old argument list

Typing all arguments to REAL if necessary

Definition at line 2669 of file bootstrap.c.

2670 {
2671  basic b;
2672  expression arg;
2673  if(!arguments_are_IRDC(c, context))
2674  {
2675  return make_basic_float(4); /* Just for return result */
2676  }
2677 
2678  arg = EXPRESSION(CAR(call_arguments(c)));
2679  if (CDR(call_arguments(c)) == NIL &&
2680  basic_complex_p(GET_TYPE(context->types, arg)))
2681  {
2682  syntax ss = expression_syntax(arg);
2683  if (syntax_call_p(ss))
2684  {
2685  call_arguments(c) = call_arguments(syntax_call(ss));
2686  context->number_of_conversion++;
2687  }
2688  else /* Argument is a varibale */
2689  {
2690  return make_basic_complex(8);
2691  }
2692  /* Free memory occupied by old argument list*/
2693  }
2694 
2695  /* Typing all arguments to REAL if necessary */
2696  b = make_basic_float(4);
2697  typing_arguments(c, context, b);
2698  free_basic(b);
2699 
2700  return make_basic_complex(8);
2701 }

References arguments_are_IRDC(), basic_complex_p, call_arguments, CAR, CDR, EXPRESSION, expression_syntax, free_basic(), GET_TYPE, make_basic_complex(), make_basic_float(), NIL, syntax_call, syntax_call_p, and typing_arguments().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_function_conversion_to_dcomplex()

static basic typing_function_conversion_to_dcomplex ( call  c,
type_context_p  context 
)
static

Just for return result

Argument is a varibale

Free memory occupied by old argument list

Typing all arguments to DBLE if necessary

Definition at line 2703 of file bootstrap.c.

2704 {
2705  basic b;
2706  expression arg;
2707  if(!arguments_are_IRDC(c, context))
2708  {
2709  return make_basic_float(4); /* Just for return result */
2710  }
2711 
2712  arg = EXPRESSION(CAR(call_arguments(c)));
2713  if (CDR(call_arguments(c)) == NIL &&
2714  basic_complex_p(GET_TYPE(context->types, arg)))
2715  {
2716  syntax ss = expression_syntax(arg);
2717  if (syntax_call_p(ss))
2718  {
2719  call_arguments(c) = call_arguments(syntax_call(ss));
2720  context->number_of_conversion++;
2721  }
2722  else /* Argument is a varibale */
2723  {
2724  return make_basic_complex(16);
2725  }
2726  /* Free memory occupied by old argument list */
2727  }
2728 
2729  /* Typing all arguments to DBLE if necessary */
2730  b = make_basic_float(8);
2731  typing_arguments(c, context, b);
2732  free_basic(b);
2733 
2734  return make_basic_complex(16);
2735 }

References arguments_are_IRDC(), basic_complex_p, call_arguments, CAR, CDR, EXPRESSION, expression_syntax, free_basic(), GET_TYPE, make_basic_complex(), make_basic_float(), NIL, syntax_call, syntax_call_p, and typing_arguments().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_function_conversion_to_double()

static basic typing_function_conversion_to_double ( call  c,
type_context_p  context 
)
static

Definition at line 2661 of file bootstrap.c.

2662 {
2663  basic result, b = make_basic_float(8);
2664  result = typing_function_conversion_to_numeric(c, context, b);
2665  free_basic(b);
2666  return result;
2667 }
typing_function_conversion_to_numeric
static basic typing_function_conversion_to_numeric(call c, type_context_p context, basic to_type)
Definition: bootstrap.c:2635

References free_basic(), make_basic_float(), and typing_function_conversion_to_numeric().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_function_conversion_to_integer()

static basic typing_function_conversion_to_integer ( call  c,
type_context_p  context 
)
static

Definition at line 2645 of file bootstrap.c.

2646 {
2647  basic result, b = make_basic_int(4);
2648  result = typing_function_conversion_to_numeric(c, context, b);
2649  free_basic(b);
2650  return result;
2651 }

References free_basic(), make_basic_int(), and typing_function_conversion_to_numeric().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_function_conversion_to_numeric()

static basic typing_function_conversion_to_numeric ( call  c,
type_context_p  context,
basic  to_type 
)
static

Definition at line 2635 of file bootstrap.c.

2637 {
2638  if(!arguments_are_IRDC(c, context))
2639  {
2640  return copy_basic(to_type);
2641  }
2642  return copy_basic(to_type);
2643 }

References arguments_are_IRDC(), and copy_basic().

Referenced by typing_function_conversion_to_double(), typing_function_conversion_to_integer(), and typing_function_conversion_to_real().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_function_conversion_to_real()

static basic typing_function_conversion_to_real ( call  c,
type_context_p  context 
)
static

Definition at line 2653 of file bootstrap.c.

2654 {
2655  basic result, b = make_basic_float(4);
2656  result = typing_function_conversion_to_numeric(c, context, b);
2657  free_basic(b);
2658  return result;
2659 }

References free_basic(), make_basic_float(), and typing_function_conversion_to_numeric().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_function_dcomplex_to_dcomplex()

static basic typing_function_dcomplex_to_dcomplex ( call  c,
type_context_p  context 
)
static

Definition at line 2282 of file bootstrap.c.

2283 {
2284  basic result, type_DCMPLX = make_basic_complex(16);
2285  result = typing_function_argument_type_to_return_type(c, context,
2286  type_DCMPLX, type_DCMPLX);
2287  free_basic(type_DCMPLX);
2288  return result;
2289 }

References free_basic(), make_basic_complex(), and typing_function_argument_type_to_return_type().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_function_dcomplex_to_double()

static basic typing_function_dcomplex_to_double ( call  c,
type_context_p  context 
)
static

Definition at line 2495 of file bootstrap.c.

2496 {
2497  basic result, type_DBLE = make_basic_float(8);
2498  basic type_DCMPLX = make_basic_complex(16);
2499  result = typing_function_argument_type_to_return_type(c, context,
2500  type_DCMPLX,
2501  type_DBLE);
2502  free_basic(type_DBLE);
2503  free_basic(type_DCMPLX);
2504  return result;
2505 }

References free_basic(), make_basic_complex(), make_basic_float(), and typing_function_argument_type_to_return_type().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_function_double_to_double()

static basic typing_function_double_to_double ( call  c,
type_context_p  context 
)
static

Definition at line 2255 of file bootstrap.c.

2256 {
2257  basic result, type_DBLE = make_basic_float(8);
2258  result = typing_function_argument_type_to_return_type(c, context,
2259  type_DBLE, type_DBLE);
2260  free_basic(type_DBLE);
2261  return result;
2262 }

References free_basic(), make_basic_float(), and typing_function_argument_type_to_return_type().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_function_double_to_int()

static basic typing_function_double_to_int ( call  c,
type_context_p  context 
)
static

Definition at line 2398 of file bootstrap.c.

2399 {
2400  basic result, type_INT = make_basic_int(4);
2401  basic type_DBLE = make_basic_float(8);
2402  result = typing_function_argument_type_to_return_type(c, context,
2403  type_DBLE,
2404  type_INT);
2405  free_basic(type_INT);
2406  free_basic(type_DBLE);
2407  return result;
2408 }

References free_basic(), make_basic_float(), make_basic_int(), and typing_function_argument_type_to_return_type().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_function_double_to_longint()

static basic typing_function_double_to_longint ( call  c,
type_context_p  context 
)
static

MB.

Definition at line 2410 of file bootstrap.c.

2411 {
2412  basic result, type_LINT = make_basic_int(6);
2413  basic type_DBLE = make_basic_float(8);
2414  result = typing_function_argument_type_to_return_type(c, context,
2415  type_DBLE, type_LINT);
2416  free_basic(type_LINT);
2417  free_basic(type_DBLE);
2418  return result;
2419 }

References free_basic(), make_basic_float(), make_basic_int(), and typing_function_argument_type_to_return_type().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_function_double_to_longlongint()

static basic typing_function_double_to_longlongint ( call  c,
type_context_p  context 
)
static

MB.

Definition at line 2422 of file bootstrap.c.

2423 {
2424  basic result, type_LLINT = make_basic_int(8);
2425  basic type_DBLE = make_basic_float(8);
2426  result = typing_function_argument_type_to_return_type(c, context,
2427  type_DBLE, type_LLINT);
2428  free_basic(type_LLINT);
2429  free_basic(type_DBLE);
2430  return result;
2431 }

References free_basic(), make_basic_float(), make_basic_int(), and typing_function_argument_type_to_return_type().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_function_format_name()

static basic typing_function_format_name ( call __attribute__((unused))  c,
type_context_p __attribute__((unused))  context 
)
static

Definition at line 2779 of file bootstrap.c.

2781 {
2782  return make_basic_int(4);
2783 }

References make_basic_int().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_function_int_to_char()

static basic typing_function_int_to_char ( call  c,
type_context_p  context 
)
static

Definition at line 2322 of file bootstrap.c.

2323 {
2324  basic result, type_INT = make_basic_int(4);
2325  basic type_CHAR = make_basic_string(value_undefined);
2326  result = typing_function_argument_type_to_return_type(c, context,
2327  type_INT,
2328  type_CHAR);
2329  free_basic(type_INT);
2330  free_basic(type_CHAR);
2331  return result;
2332 }

References free_basic(), make_basic_int(), make_basic_string(), typing_function_argument_type_to_return_type(), and value_undefined.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_function_int_to_int()

static basic typing_function_int_to_int ( call  c,
type_context_p  context 
)
static

Definition at line 2219 of file bootstrap.c.

2220 {
2221  basic result, type_INT = make_basic_int(4);
2222  result = typing_function_argument_type_to_return_type(c, context,
2223  type_INT, type_INT);
2224  free_basic(type_INT);
2225  return result;
2226 }

References free_basic(), make_basic_int(), and typing_function_argument_type_to_return_type().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_function_int_to_logical()

static basic typing_function_int_to_logical ( call  c,
type_context_p  context 
)
static

function added to handle one of the bit manipulation functions : BTEST.

Amira Mensi

Definition at line 2385 of file bootstrap.c.

2386 {
2387  basic result, type_INT = make_basic_int(4);
2388  basic type_LOGICAL = make_basic_float(4);
2389  result = typing_function_argument_type_to_return_type(c, context,
2390  type_INT,
2391  type_LOGICAL);
2392  free_basic(type_INT);
2393  free_basic(type_LOGICAL);
2394  return result;
2395 }

References free_basic(), make_basic_float(), make_basic_int(), and typing_function_argument_type_to_return_type().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_function_int_to_real()

static basic typing_function_int_to_real ( call  c,
type_context_p  context 
)
static

Definition at line 2370 of file bootstrap.c.

2371 {
2372  basic result, type_INT = make_basic_int(4);
2373  basic type_REAL = make_basic_float(4);
2374  result = typing_function_argument_type_to_return_type(c, context,
2375  type_INT,
2376  type_REAL);
2377  free_basic(type_INT);
2378  free_basic(type_REAL);
2379  return result;
2380 }

References free_basic(), make_basic_float(), make_basic_int(), and typing_function_argument_type_to_return_type().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_function_IntegerRealDouble_to_IntegerRealDouble()

static basic typing_function_IntegerRealDouble_to_IntegerRealDouble ( call  c,
type_context_p  context 
)
static

Just for return a result

Find the longest type amongs all arguments

Definition at line 2576 of file bootstrap.c.

2578 {
2579  basic b;
2580 
2581  if(!arguments_are_IRD(c, context))
2582  {
2583  return make_basic_float(4); /* Just for return a result */
2584  }
2585  /* Find the longest type amongs all arguments */
2586  b = basic_union_arguments(c, context->types);
2587 
2588  // Typing all arguments to b if necessary
2589  typing_arguments(c, context, b);
2590 
2591  return b;
2592 }

References arguments_are_IRD(), basic_union_arguments(), make_basic_float(), and typing_arguments().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_function_IntegerRealDoubleComplex_to_IntegerRealDoubleReal()

static basic typing_function_IntegerRealDoubleComplex_to_IntegerRealDoubleReal ( call  c,
type_context_p  context 
)
static

Just for return result

Find the longest type amongs all arguments

Typing all arguments to b if necessary

CMPLX --> REAL

DCMPLX -> DOUBLE

else?

Definition at line 2600 of file bootstrap.c.

2602 {
2603  basic b;
2604 
2605  if(!arguments_are_IRDC(c, context))
2606  {
2607  return make_basic_float(4); /* Just for return result */
2608  }
2609  /* Find the longest type amongs all arguments */
2610  b = basic_union_arguments(c, context->types);
2611 
2612  /* Typing all arguments to b if necessary */
2613  typing_arguments(c, context, b);
2614 
2615  if (basic_complex_p(b) )
2616  {
2617  if (basic_complex(b)==8)
2618  {
2619  free_basic(b);
2620  b = make_basic_float(4); /* CMPLX --> REAL */
2621  } else if (basic_complex(b)==16 && TC_DCOMPLEX) {
2622  free_basic(b);
2623  b = make_basic_float(8); /* DCMPLX -> DOUBLE */
2624  } /* else? */
2625  }
2626  return b;
2627 }

References arguments_are_IRDC(), basic_complex, basic_complex_p, basic_union_arguments(), free_basic(), make_basic_float(), TC_DCOMPLEX, and typing_arguments().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_function_longdcomplex_to_longdcomplex()

static basic typing_function_longdcomplex_to_longdcomplex ( call  c,
type_context_p  context 
)
static

B: added for long double complex type.

Definition at line 2291 of file bootstrap.c.

2292 {
2293  basic result, type_LDCMPLX = make_basic_complex(32);
2294  result = typing_function_argument_type_to_return_type(c, context,
2295  type_LDCMPLX, type_LDCMPLX);
2296  free_basic(type_LDCMPLX);
2297  return result;
2298 }

References free_basic(), make_basic_complex(), and typing_function_argument_type_to_return_type().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_function_longdcomplex_to_longdouble()

static basic typing_function_longdcomplex_to_longdouble ( call  c,
type_context_p  context 
)
static

MB.

Definition at line 2300 of file bootstrap.c.

2301 {
2302  basic result, type_LDBLE = make_basic_float(16);
2303  basic type_LDCMPLX = make_basic_complex(32);
2304  result = typing_function_argument_type_to_return_type(c, context,
2305  type_LDCMPLX, type_LDBLE);
2306  free_basic(type_LDBLE);
2307  free_basic(type_LDCMPLX);
2308  return result;
2309 }

References free_basic(), make_basic_complex(), make_basic_float(), and typing_function_argument_type_to_return_type().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_function_longdouble_to_int()

static basic typing_function_longdouble_to_int ( call  c,
type_context_p  context 
)
static

MB.

Definition at line 2433 of file bootstrap.c.

2434 {
2435  basic result, type_INT = make_basic_int(4);
2436  basic type_LDBLE = make_basic_float(16);
2437  result = typing_function_argument_type_to_return_type(c, context,
2438  type_LDBLE,
2439  type_INT);
2440  free_basic(type_INT);
2441  free_basic(type_LDBLE);
2442  return result;
2443 }

References free_basic(), make_basic_float(), make_basic_int(), and typing_function_argument_type_to_return_type().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_function_longdouble_to_longdouble()

static basic typing_function_longdouble_to_longdouble ( call  c,
type_context_p  context 
)
static

MB.

Definition at line 2264 of file bootstrap.c.

2265 {
2266  basic result, type_LDBLE = make_basic_float(16);
2267  result = typing_function_argument_type_to_return_type(c, context,
2268  type_LDBLE, type_LDBLE);
2269  free_basic(type_LDBLE);
2270  return result;
2271 }

References free_basic(), make_basic_float(), and typing_function_argument_type_to_return_type().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_function_longdouble_to_longint()

static basic typing_function_longdouble_to_longint ( call  c,
type_context_p  context 
)
static

MB.

Definition at line 2446 of file bootstrap.c.

2447 {
2448  basic result, type_LINT = make_basic_int(6);
2449  basic type_LDBLE = make_basic_float(16);
2450  result = typing_function_argument_type_to_return_type(c, context,
2451  type_LDBLE,
2452  type_LINT);
2453  free_basic(type_LINT);
2454  free_basic(type_LDBLE);
2455  return result;
2456 }

References free_basic(), make_basic_float(), make_basic_int(), and typing_function_argument_type_to_return_type().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_function_longdouble_to_longlongint()

static basic typing_function_longdouble_to_longlongint ( call  c,
type_context_p  context 
)
static

MB.

Definition at line 2459 of file bootstrap.c.

2460 {
2461  basic result, type_LLINT = make_basic_int(8);
2462  basic type_LDBLE = make_basic_float(16);
2463  result = typing_function_argument_type_to_return_type(c, context,
2464  type_LDBLE,
2465  type_LLINT);
2466  free_basic(type_LLINT);
2467  free_basic(type_LDBLE);
2468  return result;
2469 }

References free_basic(), make_basic_float(), make_basic_int(), and typing_function_argument_type_to_return_type().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_function_longint_to_longint()

static basic typing_function_longint_to_longint ( call  c,
type_context_p  context 
)
static

MB.

Definition at line 2228 of file bootstrap.c.

2229 {
2230  basic result, type_LINT = make_basic_int(6);
2231  result = typing_function_argument_type_to_return_type(c, context,
2232  type_LINT, type_LINT);
2233  free_basic(type_LINT);
2234  return result;
2235 }

References free_basic(), make_basic_int(), and typing_function_argument_type_to_return_type().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_function_longlongint_to_longlongint()

static basic typing_function_longlongint_to_longlongint ( call  c,
type_context_p  context 
)
static

MB.

Definition at line 2237 of file bootstrap.c.

2238 {
2239  basic result, type_LLINT = make_basic_int(8);
2240  result = typing_function_argument_type_to_return_type(c, context,
2241  type_LLINT, type_LLINT);
2242  free_basic(type_LLINT);
2243  return result;
2244 }

References free_basic(), make_basic_int(), and typing_function_argument_type_to_return_type().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_function_overloaded()

static basic typing_function_overloaded ( call __attribute__((unused))  c,
type_context_p __attribute__((unused))  context 
)
static

Definition at line 2772 of file bootstrap.c.

2774 {
2775  return make_basic_overloaded();
2776 }
make_basic_overloaded
basic make_basic_overloaded(void)
Definition: ri.c:167

References make_basic_overloaded().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_function_real_to_double()

static basic typing_function_real_to_double ( call  c,
type_context_p  context 
)
static

Definition at line 2471 of file bootstrap.c.

2472 {
2473  basic result, type_REAL = make_basic_float(4);
2474  basic type_DBLE = make_basic_float(8);
2475  result = typing_function_argument_type_to_return_type(c, context,
2476  type_REAL,
2477  type_DBLE);
2478  free_basic(type_REAL);
2479  free_basic(type_DBLE);
2480  return result;
2481 }

References free_basic(), make_basic_float(), and typing_function_argument_type_to_return_type().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_function_real_to_int()

static basic typing_function_real_to_int ( call  c,
type_context_p  context 
)
static

Definition at line 2334 of file bootstrap.c.

2335 {
2336  basic result, type_INT = make_basic_int(4);
2337  basic type_REAL = make_basic_float(4);
2338  result = typing_function_argument_type_to_return_type(c, context,
2339  type_REAL,
2340  type_INT);
2341  free_basic(type_INT);
2342  free_basic(type_REAL);
2343  return result;
2344 }

References free_basic(), make_basic_float(), make_basic_int(), and typing_function_argument_type_to_return_type().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_function_real_to_longint()

static basic typing_function_real_to_longint ( call  c,
type_context_p  context 
)
static

MB.

Definition at line 2346 of file bootstrap.c.

2347 {
2348  basic result, type_LINT = make_basic_int(6);
2349  basic type_REAL = make_basic_float(4);
2350  result = typing_function_argument_type_to_return_type(c, context,
2351  type_REAL,
2352  type_LINT);
2353  free_basic(type_LINT);
2354  free_basic(type_REAL);
2355  return result;
2356 }

References free_basic(), make_basic_float(), make_basic_int(), and typing_function_argument_type_to_return_type().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_function_real_to_longlongint()

static basic typing_function_real_to_longlongint ( call  c,
type_context_p  context 
)
static

MB.

Definition at line 2358 of file bootstrap.c.

2359 {
2360  basic result, type_LLINT = make_basic_int(8);
2361  basic type_REAL = make_basic_float(4);
2362  result = typing_function_argument_type_to_return_type(c, context,
2363  type_REAL,
2364  type_LLINT);
2365  free_basic(type_LLINT);
2366  free_basic(type_REAL);
2367  return result;
2368 }

References free_basic(), make_basic_float(), make_basic_int(), and typing_function_argument_type_to_return_type().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_function_real_to_real()

static basic typing_function_real_to_real ( call  c,
type_context_p  context 
)
static

Definition at line 2246 of file bootstrap.c.

2247 {
2248  basic result, type_REAL = make_basic_float(4);
2249  result = typing_function_argument_type_to_return_type(c, context,
2250  type_REAL, type_REAL);
2251  free_basic(type_REAL);
2252  return result;
2253 }

References free_basic(), make_basic_float(), and typing_function_argument_type_to_return_type().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_function_RealDouble_to_Integer()

static basic typing_function_RealDouble_to_Integer ( call  c,
type_context_p  context 
)
static

Just for return a result

Find the longest type amongs all arguments

Typing all arguments to b if necessary

Definition at line 2540 of file bootstrap.c.

2541 {
2542  basic b;
2543 
2544  if(!arguments_are_RD(c, context))
2545  {
2546  return make_basic_float(4); /* Just for return a result */
2547  }
2548  /* Find the longest type amongs all arguments */
2549  b = basic_union_arguments(c, context->types);
2550 
2551  /* Typing all arguments to b if necessary */
2552  typing_arguments(c, context, b);
2553 
2554  free_basic(b);
2555  return make_basic_int(4);
2556 }
arguments_are_RD
static bool arguments_are_RD(call c, type_context_p context)
Definition: bootstrap.c:1926

References arguments_are_RD(), basic_union_arguments(), free_basic(), make_basic_float(), make_basic_int(), and typing_arguments().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_function_RealDouble_to_RealDouble()

static basic typing_function_RealDouble_to_RealDouble ( call  c,
type_context_p  context 
)
static

Just for return a result

Find the longest type amongs all arguments

Typing all arguments to b if necessary

Definition at line 2523 of file bootstrap.c.

2524 {
2525  basic b;
2526 
2527  if(!arguments_are_RD(c, context))
2528  {
2529  return make_basic_float(4); /* Just for return a result */
2530  }
2531  /* Find the longest type amongs all arguments */
2532  b = basic_union_arguments(c, context->types);
2533 
2534  /* Typing all arguments to b if necessary */
2535  typing_arguments(c, context, b);
2536 
2537  return b;
2538 }

References arguments_are_RD(), basic_union_arguments(), make_basic_float(), and typing_arguments().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_function_RealDoubleComplex_to_RealDoubleComplex()

static basic typing_function_RealDoubleComplex_to_RealDoubleComplex ( call  c,
type_context_p  context 
)
static

Just for return a result

Find the longest type amongs all arguments

Typing all arguments to b if necessary

Definition at line 2558 of file bootstrap.c.

2560 {
2561  basic b;
2562 
2563  if(!arguments_are_RDC(c, context))
2564  {
2565  return make_basic_float(4); /* Just for return a result */
2566  }
2567  /* Find the longest type amongs all arguments */
2568  b = basic_union_arguments(c, context->types);
2569 
2570  /* Typing all arguments to b if necessary */
2571  typing_arguments(c, context, b);
2572 
2573  return b;
2574 }
arguments_are_RDC
static bool arguments_are_RDC(call c, type_context_p context)
Definition: bootstrap.c:1954

References arguments_are_RDC(), basic_union_arguments(), make_basic_float(), and typing_arguments().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_implied_do()

static basic typing_implied_do ( call  c,
type_context_p  context 
)
static

Count the number of errors

range

Count the number of errors

Count the number of errors

Definition at line 2980 of file bootstrap.c.

2981 {
2982  basic b_int = NULL;
2983  int count = 0;
2984 
2985  MAP(EXPRESSION, e,
2986  {
2987  count++;
2988  switch (count)
2989  {
2990  case 1:
2991  b_int = GET_TYPE(context->types, e);
2992  if( !basic_int_p(GET_TYPE(context->types, e)) ||
2993  !syntax_reference_p(expression_syntax(e)) )
2994  {
2995  add_one_line_of_comment((statement) stack_head(context->stats),
2996  "Argument #1 must be a reference to integer");
2997  /* Count the number of errors */
2998  context->number_of_error++;
2999  }
3000  break;
3001 
3002  case 2: /* range */
3003  if(!syntax_range_p(expression_syntax(e)))
3004  {
3005  add_one_line_of_comment((statement) stack_head(context->stats),
3006  "Argument #2 must be a range of integer");
3007  /* Count the number of errors */
3008  context->number_of_error++;
3009  return basic_undefined;
3010  }
3011  else
3012  {
3013  range r = syntax_range(expression_syntax(e));
3014  if (!check_loop_range(r, context->types))
3015  {
3016  add_one_line_of_comment((statement) stack_head(context->stats),
3017  "Range must be Integer, Real or Double!");
3018  context->number_of_error++;
3019  }
3020  else
3021  {
3022  type_loop_range(b_int, r, context);
3023  }
3024  }
3025  return basic_undefined;
3026  }
3027  },
3028  call_arguments(c));
3029 
3030  if (count < 2)
3031  {
3032  add_one_line_of_comment((statement) stack_head(context->stats),
3033  "Lack of %d argument(s) for function '%s'",
3034  2-count, entity_local_name(call_function(c)));
3035  /* Count the number of errors */
3036  context->number_of_error++;
3037  }
3038  return basic_undefined;
3039 }
check_loop_range
bool check_loop_range(range, hash_table)
Definition: type_checker.c:292
type_loop_range
void type_loop_range(basic, range, type_context_p)
Definition: bootstrap.c:1038
syntax_range
#define syntax_range(x)
Definition: ri.h:2733
syntax_range_p
#define syntax_range_p(x)
Definition: ri.h:2731
_newgen_struct_range_
Definition: ri.h:2279

References add_one_line_of_comment(), basic_int_p, basic_undefined, call_arguments, call_function, check_loop_range(), count, entity_local_name(), EXPRESSION, expression_syntax, GET_TYPE, MAP, stack_head(), context::stats, syntax_range, syntax_range_p, syntax_reference_p, and type_loop_range().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_logical_operator()

static basic typing_logical_operator ( call  c,
type_context_p  context 
)
static

Just for return a result

Definition at line 2107 of file bootstrap.c.

2108 {
2109  if(!arguments_are_logical(c, context))
2110  {
2111  /* Just for return a result */
2112  return make_basic_logical(4);
2113  }
2114  return make_basic_logical(4);
2115 }

References arguments_are_logical(), and make_basic_logical().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_of_assign()

static basic typing_of_assign ( call  c,
type_context_p  context 
)
static

Count the number of errors

Here, we aren't interested in the type of return

Definition at line 2786 of file bootstrap.c.

2787 {
2788  list args = call_arguments(c);
2789  basic b1, b2;
2790 
2791  if(!arguments_are_compatible(c, context->types))
2792  {
2793  add_one_line_of_comment((statement) stack_head(context->stats),
2794  "Arguments of assignment '%s' are not compatible",
2795  entity_local_name(call_function(c)));
2796  /* Count the number of errors */
2797  context->number_of_error++;
2798  }
2799  else
2800  {
2801  b1 = GET_TYPE(context->types, EXPRESSION(CAR(args)));
2802  b2 = GET_TYPE(context->types, EXPRESSION(CAR(CDR(args))));
2803  if (!basic_equal_p(b1, b2))
2804  {
2805  EXPRESSION_(CAR(CDR(args))) =
2806  insert_cast(b1, b2, EXPRESSION(CAR(CDR(args))), context);
2807  }
2808  }
2809 
2810  /* Here, we aren't interested in the type of return */
2811  return basic_undefined;
2812 }
arguments_are_compatible
bool arguments_are_compatible(call c, hash_table types)
Definition: bootstrap.c:1965

References add_one_line_of_comment(), arguments_are_compatible(), b1, b2, basic_equal_p(), basic_undefined, call_arguments, call_function, CAR, CDR, entity_local_name(), EXPRESSION, EXPRESSION_, GET_TYPE, insert_cast(), stack_head(), and context::stats.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_power_operator()

static basic typing_power_operator ( call  c,
type_context_p  context 
)
static

of expression

Just for return a result

Fortran prefers: (ANSI X3.9-1978, FORTRAN 77, PAGE 6-6, TABLE 3) "var_double = var_double ** var_int" instead of "var_double = var_double ** DBLE(var_int)"

Definition at line 2041 of file bootstrap.c.

2042 {
2043  basic b, b1, b2;
2044  list /* of expression */ args = call_arguments(c);
2045  b = basic_undefined;
2046 
2047  if(!arguments_are_IRDC(c, context))
2048  {
2049  /* Just for return a result */
2050  return make_basic_float(4);
2051  }
2052 
2053  b1 = GET_TYPE(context->types, EXPRESSION(CAR(args)));
2054  b2 = GET_TYPE(context->types, EXPRESSION(CAR(CDR(args))));
2055 
2056  if (is_inferior_basic(b1, b2))
2057  {
2058  b = b2;
2059  }
2060  else
2061  {
2062  b = b1;
2063  }
2064 
2065  if (!basic_equal_p(b, b1))
2066  {
2067  EXPRESSION_(CAR(args)) =
2068  insert_cast(b, b1, EXPRESSION(CAR(args)), context);
2069  }
2070  /* Fortran prefers: (ANSI X3.9-1978, FORTRAN 77, PAGE 6-6, TABLE 3)
2071  * "var_double = var_double ** var_int" instead of
2072  * "var_double = var_double ** DBLE(var_int)"
2073  */
2074  if (!basic_equal_p(b, b2) && !basic_int_p(b2))
2075  {
2076  EXPRESSION_(CAR(CDR(args))) =
2077  insert_cast(b, b2, EXPRESSION(CAR(CDR(args))), context);
2078  }
2079  return copy_basic(b);
2080 }

References arguments_are_IRDC(), b1, b2, basic_equal_p(), basic_int_p, basic_undefined, call_arguments, CAR, CDR, copy_basic(), EXPRESSION, EXPRESSION_, GET_TYPE, insert_cast(), is_inferior_basic(), and make_basic_float().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_relational_operator()

static basic typing_relational_operator ( call  c,
type_context_p  context 
)
static

Just for return a result

Find the longest type amongs all arguments

Typing all arguments to b if necessary

Definition at line 2085 of file bootstrap.c.

2086 {
2087  basic b;
2088 
2089  if(!arguments_are_IRDCS(c, context))
2090  {
2091  /* Just for return a result */
2092  return make_basic_logical(4);
2093  }
2094  /* Find the longest type amongs all arguments */
2095  b = basic_union_arguments(c, context->types);
2096 
2097  /* Typing all arguments to b if necessary */
2098  typing_arguments(c, context, b);
2099 
2100  free_basic(b);
2101  return make_basic_logical(4);
2102 }
arguments_are_IRDCS
static bool arguments_are_IRDCS(call c, type_context_p context)
Definition: bootstrap.c:1901

References arguments_are_IRDCS(), basic_union_arguments(), free_basic(), make_basic_logical(), and typing_arguments().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ typing_substring()

static basic typing_substring ( call  c,
type_context_p  context 
)
static

Count the number of errors

Count the number of errors

count > 3

Count the number of errors

Count the number of errors

Definition at line 2815 of file bootstrap.c.

2816 {
2817  int count = 0;
2818 
2819  MAP(EXPRESSION, e,
2820  {
2821  count++;
2822  switch (count)
2823  {
2824  case 1:
2825  if( !basic_string_p(GET_TYPE(context->types, e)) ||
2826  !syntax_reference_p(expression_syntax(e)) )
2827  {
2828  add_one_line_of_comment((statement) stack_head(context->stats),
2829  "Argument #1 must be a reference to string");
2830  /* Count the number of errors */
2831  context->number_of_error++;
2832  }
2833  break;
2834  case 2:
2835  case 3:
2836  if( !basic_int_p(GET_TYPE(context->types, e)))
2837  {
2838  add_one_line_of_comment((statement) stack_head(context->stats),
2839  "Argument #%d must be an integer expression",
2840  count);
2841  /* Count the number of errors */
2842  context->number_of_error++;
2843  }
2844  break;
2845  default: /* count > 3 */
2846  add_one_line_of_comment((statement) stack_head(context->stats),
2847  "Too many of arguments for sub-string function");
2848  /* Count the number of errors */
2849  context->number_of_error++;
2850  return make_basic_string(value_undefined);
2851  }
2852  },
2853  call_arguments(c));
2854  if (count < 3)
2855  {
2856  add_one_line_of_comment((statement) stack_head(context->stats),
2857  "Lack of %d argument(s) for sub-string function",
2858  3-count);
2859  /* Count the number of errors */
2860  context->number_of_error++;
2861  }
2862 
2863  return make_basic_string(value_undefined);
2864 }

References add_one_line_of_comment(), basic_int_p, basic_string_p, call_arguments, count, EXPRESSION, expression_syntax, GET_TYPE, make_basic_string(), MAP, stack_head(), context::stats, syntax_reference_p, and value_undefined.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ unsigned_integer_to_void_pointer_type()

static type unsigned_integer_to_void_pointer_type ( int  n)
static

Definition at line 517 of file bootstrap.c.

518 {
519  type t = type_undefined;
520  functional ft = functional_undefined;
521 
522  ft = make_functional(NIL, MakeVoidPointerResult());
523  functional_parameters(ft) =
524  make_parameter_list(n, MakeUnsignedIntegerParameter);
525  t = make_type(is_type_functional, ft);
526 
527  return t;
528 }
MakeVoidPointerResult
type MakeVoidPointerResult(void)
Definition: type.c:271
MakeUnsignedIntegerParameter
parameter MakeUnsignedIntegerParameter(void)
Definition: type.c:194

References functional_parameters, functional_undefined, is_type_functional, make_functional(), make_parameter_list(), make_type(), MakeUnsignedIntegerParameter(), MakeVoidPointerResult(), NIL, and type_undefined.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ void_to_integer_type()

type void_to_integer_type ( int  n)

Definition at line 4306 of file bootstrap.c.

4307 {
4308  type t = type_undefined;
4309  functional ft = functional_undefined;
4310 
4311  ft = make_functional(NIL, MakeIntegerResult());
4312  functional_parameters(ft) =
4313  make_parameter_list(n, MakeVoidParameter);
4314  t = make_type(is_type_functional, ft);
4315 
4316  return t;
4317 }

References functional_parameters, functional_undefined, is_type_functional, make_functional(), make_parameter_list(), make_type(), MakeIntegerResult(), MakeVoidParameter(), NIL, and type_undefined.

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ void_to_void_to_int_pointer_type()

static type void_to_void_to_int_pointer_type ( int n   __attribute__(unused))
static

C only because of pointer.

e.g. atexit()

Definition at line 551 of file bootstrap.c.

552 {
553  type t = type_undefined;
554  functional ft = functional_undefined;
555  type vtv = void_to_void_type(0);
556  type vtvp = type_to_pointer_type(vtv);
557 
558  ft = make_functional(NIL, MakeIntegerResult());
559  functional_parameters(ft) =
560  CONS(PARAMETER, make_parameter(vtvp,
561  make_mode_value(), // not
562  // significant
563  // for void...
564  make_dummy_unknown()), NIL);
565  t = make_type(is_type_functional, ft);
566 
567  pips_assert("t is consistent", type_consistent_p(t));
568 
569  return t;
570 }
type_to_pointer_type
type type_to_pointer_type(type)
allocate a new type "pt" which includes directly "t".
Definition: type.c:5253

References CONS, functional_parameters, functional_undefined, is_type_functional, make_dummy_unknown(), make_functional(), make_mode_value(), make_parameter(), make_type(), MakeIntegerResult(), NIL, PARAMETER, pips_assert, type_consistent_p(), type_to_pointer_type(), type_undefined, and void_to_void_type().

Referenced by CreateIntrinsics().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ void_to_void_type()

static type void_to_void_type ( int n   __attribute__(unused))
static

Can be used for C or Fortran functions.

E.g. abort()

Definition at line 531 of file bootstrap.c.

532 {
533  type t = type_undefined;
534  functional ft = functional_undefined;
535 
536  ft = make_functional(NIL, make_type_void(NIL));
537  functional_parameters(ft) =
538  CONS(PARAMETER, make_parameter(make_type_void(NIL),
539  make_mode_value(), // not
540  // significant
541  // for void...
542  make_dummy_unknown()), NIL);
543  t = make_type(is_type_functional, ft);
544 
545  pips_assert("t is consistent", type_consistent_p(t));
546 
547  return t;
548 }

References CONS, functional_parameters, functional_undefined, is_type_functional, make_dummy_unknown(), make_functional(), make_mode_value(), make_parameter(), make_type(), make_type_void(), NIL, PARAMETER, pips_assert, type_consistent_p(), and type_undefined.

Referenced by CreateIntrinsics(), and void_to_void_to_int_pointer_type().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

Variable Documentation

◆ intrinsic_type_descriptor_mapping

hash_table intrinsic_type_descriptor_mapping = hash_table_undefined
static

Definition at line 4324 of file bootstrap.c.

Referenced by CreateIntrinsics(), get_switch_name_function_for_intrinsic(), get_typing_function_for_intrinsic(), and register_intrinsic_type_descriptor().