gfc2pips.h File Reference

#include "config.h"
#include "system.h"
#include "gfortran.h"

Include dependency graph for gfc2pips.h:

This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Data Structures
struct	_gfc2pips_comments_

Macros
#define	match   pips_match
#define	hash_table   pips_hash_table
#define	loop   pips_loop

Typedefs
typedef struct _gfc2pips_comments_ *	gfc2pips_comments

Functions
bool	get_bool_property (const string)
	FC 2015-07-20: yuk, moved out to prevent an include cycle dependency include "properties.h". More...
void	gfc2pips_set_last_comments_done (unsigned long nb)
void	gfc2pips_pop_not_done_comments (void)
void	gfc2pips_replace_comments_num (unsigned long old, unsigned long new)

Variables
int	gfc2pips_nb_of_statements
gfc2pips_comments	gfc2pips_comments_stack
gfc2pips_comments	gfc2pips_comments_stack_

Macro Definition Documentation

hash_table

#define hash_table   pips_hash_table

Definition at line 53 of file gfc2pips.h.

loop

#define loop   pips_loop

Definition at line 54 of file gfc2pips.h.

match

#define match   pips_match

Definition at line 52 of file gfc2pips.h.

Typedef Documentation

gfc2pips_comments

typedef struct _gfc2pips_comments_ * gfc2pips_comments

Function Documentation

get_bool_property()

bool get_bool_property

(

const

string

)

FC 2015-07-20: yuk, moved out to prevent an include cycle dependency include "properties.h".

Definition at line 173 of file gfc2pips-stubs.c.

                                            {
  if ( strcmp( "PRETTYPRINT_LISTS_WITH_SPACES", name ) == 0
      || strcmp( "PRETTYPRINT_REGENERATE_ALTERNATE_RETURNS", name ) == 0
      || strcmp( "PRETTYPRINT_C_CODE", name ) == 0
      || strcmp( "ABORT_ON_USER_ERROR", name ) == 0 ) {
    return true;
  }
  if ( strcmp( "NO_USER_WARNING", name ) == 0 ) {
    return false;
  }
  fprintf( stderr, "***** Property requested : %s ***** ", name );
  STUB_WARNING();
  return 0;
}

gfc2pips_pop_not_done_comments()

void gfc2pips_pop_not_done_comments

(

void

)

Definition at line 215 of file gfc2pips-comments.c.

                                          {
  while(gfc2pips_comments_stack && gfc2pips_comments_stack->done == false) {
    gfc2pips_pop_comment();
  }
}

References _gfc2pips_comments_::done, gfc2pips_comments_stack, and gfc2pips_pop_comment().

Here is the call graph for this function:

gfc2pips_replace_comments_num()

void gfc2pips_replace_comments_num	(	unsigned long	old,
		unsigned long	new
	)

Definition at line 182 of file gfc2pips-comments.c.

                                                                         {
  gfc2pips_comments retour = gfc2pips_comments_stack;
  bool if_changed = false;
  //fprintf(stderr,"gfc2pips_replace_comments_num: replace %d by %d\n", old, new );
  while(retour) {
    if(retour->num == old) {
      if_changed = true;
      retour->num = new;
    }
    retour = retour->prev;
  }
  //if(if_changed) gfc2pips_nb_of_statements--;
}

References gfc2pips_comments_stack, _gfc2pips_comments_::num, and _gfc2pips_comments_::prev.

Referenced by gfc2pips_code2instruction__TOP().

Here is the caller graph for this function:

gfc2pips_set_last_comments_done()

void gfc2pips_set_last_comments_done

(

unsigned long

nb

)

Definition at line 145 of file gfc2pips-comments.c.

                                                       {
  //printf("gfc2pips_set_last_comments_done\n");
  gfc2pips_comments retour = gfc2pips_comments_stack;
  while(retour) {
    if(retour->done)
      return;
    retour->num = nb;
    retour->done = true;
    retour = retour->prev;
  }
}

References _gfc2pips_comments_::done, gfc2pips_comments_stack, _gfc2pips_comments_::num, and _gfc2pips_comments_::prev.

Variable Documentation

gfc2pips_comments_stack

gfc2pips_comments gfc2pips_comments_stack

extern

Referenced by gfc2pips_assign_num_to_last_comments(), gfc2pips_check_already_done(), gfc2pips_comment_num_exists(), gfc2pips_pop_comment(), gfc2pips_pop_not_done_comments(), gfc2pips_push_comment(), gfc2pips_replace_comments_num(), gfc2pips_set_last_comments_done(), and gfc2pips_shift_comments().

gfc2pips_comments_stack_

gfc2pips_comments gfc2pips_comments_stack_

extern

Referenced by gfc2pips_assign_gfc_code_to_last_comments(), gfc2pips_assign_gfc_code_to_num_comments(), gfc2pips_get_comment_of_code(), gfc2pips_get_num_of_gfc_code(), gfc2pips_pop_comment(), and gfc2pips_push_comment().

gfc2pips_nb_of_statements

int gfc2pips_nb_of_statements

extern