Back to index

cell-binutils  2.17cvs20070401
Classes | Functions | Variables
cond.c File Reference
#include "as.h"
#include "sb.h"
#include "macro.h"
#include "obstack.h"

Go to the source code of this file.

Classes

struct  file_line
struct  conditional_frame

Functions

static void initialize_cframe (struct conditional_frame *cframe)
static char * get_mri_string (int, int *)
void s_ifdef (int test_defined)
void s_if (int arg)
void s_ifb (int test_blank)
void s_ifc (int arg)
void s_elseif (int arg)
void s_endif (int arg ATTRIBUTE_UNUSED)
void s_else (int arg ATTRIBUTE_UNUSED)
void s_ifeqs (int arg)
int ignore_input (void)
void cond_finish_check (int nest)
void cond_exit_macro (int nest)

Variables

static struct conditional_framecurrent_cframe = NULL

Class Documentation

struct file_line

Definition at line 32 of file cond.c.

Class Members
char * file
unsigned int line
struct conditional_frame

Definition at line 40 of file cond.c.

Collaboration diagram for conditional_frame:
Class Members
int dead_tree
int else_seen
int ignoring
int macro_nest
struct conditional_frame * previous_cframe

Function Documentation

void cond_exit_macro ( int  nest)

Definition at line 567 of file cond.c.

{
  while (current_cframe != NULL && current_cframe->macro_nest >= nest)
    {
      struct conditional_frame *hold;

      hold = current_cframe;
      current_cframe = current_cframe->previous_cframe;
      obstack_free (&cond_obstack, hold);
    }
}

Here is the caller graph for this function:

void cond_finish_check ( int  nest)

Definition at line 544 of file cond.c.

{
  if (current_cframe != NULL && current_cframe->macro_nest >= nest)
    {
      if (nest >= 0)
       as_bad (_("end of macro inside conditional"));
      else
       as_bad (_("end of file inside conditional"));
      as_bad_where (current_cframe->if_file_line.file,
                  current_cframe->if_file_line.line,
                  _("here is the start of the unterminated conditional"));
      if (current_cframe->else_seen)
       as_bad_where (current_cframe->else_file_line.file,
                    current_cframe->else_file_line.line,
                    _("here is the \"else\" of the unterminated conditional"));
    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

static char * get_mri_string ( int  terminator,
int len 
) [static]

Definition at line 222 of file cond.c.

{
  char *ret;
  char *s;

  SKIP_WHITESPACE ();
  s = ret = input_line_pointer;
  if (*input_line_pointer == '\'')
    {
      ++s;
      ++input_line_pointer;
      while (! is_end_of_line[(unsigned char) *input_line_pointer])
       {
         *s++ = *input_line_pointer++;
         if (s[-1] == '\'')
           {
             if (*input_line_pointer != '\'')
              break;
             ++input_line_pointer;
           }
       }
      SKIP_WHITESPACE ();
    }
  else
    {
      while (*input_line_pointer != terminator
            && ! is_end_of_line[(unsigned char) *input_line_pointer])
       ++input_line_pointer;
      s = input_line_pointer;
      while (s > ret && (s[-1] == ' ' || s[-1] == '\t'))
       --s;
    }

  *len = s - ret;
  return ret;
}

Here is the caller graph for this function:

int ignore_input ( void  )

Definition at line 494 of file cond.c.

{
  char *s;

  s = input_line_pointer;

  if (NO_PSEUDO_DOT || flag_m68k_mri)
    {
      if (s[-1] != '.')
       --s;
    }
  else
    {
      if (s[-1] != '.')
       return (current_cframe != NULL) && (current_cframe->ignoring);
    }

  /* We cannot ignore certain pseudo ops.  */
  if (((s[0] == 'i'
       || s[0] == 'I')
       && (!strncasecmp (s, "if", 2)
          || !strncasecmp (s, "ifdef", 5)
          || !strncasecmp (s, "ifndef", 6)))
      || ((s[0] == 'e'
          || s[0] == 'E')
         && (!strncasecmp (s, "else", 4)
             || !strncasecmp (s, "endif", 5)
             || !strncasecmp (s, "endc", 4))))
    return 0;

  return (current_cframe != NULL) && (current_cframe->ignoring);
}

Here is the call graph for this function:

Here is the caller graph for this function:

static void initialize_cframe ( struct conditional_frame cframe) [static]

Definition at line 528 of file cond.c.

{
  memset (cframe, 0, sizeof (*cframe));
  as_where (&cframe->if_file_line.file,
           &cframe->if_file_line.line);
  cframe->previous_cframe = current_cframe;
  cframe->dead_tree = current_cframe != NULL && current_cframe->ignoring;
  cframe->macro_nest = macro_nest;
}

Here is the call graph for this function:

Here is the caller graph for this function:

void s_else ( int arg  ATTRIBUTE_UNUSED)

Definition at line 409 of file cond.c.

{
  if (current_cframe == NULL)
    {
      as_bad (_("\".else\" without matching \".if\""));
    }
  else if (current_cframe->else_seen)
    {
      as_bad (_("duplicate \"else\""));
      as_bad_where (current_cframe->else_file_line.file,
                  current_cframe->else_file_line.line,
                  _("here is the previous \"else\""));
      as_bad_where (current_cframe->if_file_line.file,
                  current_cframe->if_file_line.line,
                  _("here is the previous \"if\""));
    }
  else
    {
      as_where (&current_cframe->else_file_line.file,
              &current_cframe->else_file_line.line);

      current_cframe->ignoring =
       current_cframe->dead_tree | !current_cframe->ignoring;

      if (LISTING_SKIP_COND ()
         && (current_cframe->previous_cframe == NULL
             || ! current_cframe->previous_cframe->ignoring))
       {
         if (! current_cframe->ignoring)
           listing_list (1);
         else
           listing_list (2);
       }

      current_cframe->else_seen = 1;
    }

  if (flag_mri)
    {
      while (! is_end_of_line[(unsigned char) *input_line_pointer])
       ++input_line_pointer;
    }

  demand_empty_rest_of_line ();
}

Here is the call graph for this function:

Here is the caller graph for this function:

void s_elseif ( int  arg)

Definition at line 303 of file cond.c.

{
  if (current_cframe == NULL)
    {
      as_bad (_("\".elseif\" without matching \".if\""));
    }
  else if (current_cframe->else_seen)
    {
      as_bad (_("\".elseif\" after \".else\""));
      as_bad_where (current_cframe->else_file_line.file,
                  current_cframe->else_file_line.line,
                  _("here is the previous \"else\""));
      as_bad_where (current_cframe->if_file_line.file,
                  current_cframe->if_file_line.line,
                  _("here is the previous \"if\""));
    }
  else
    {
      as_where (&current_cframe->else_file_line.file,
              &current_cframe->else_file_line.line);

      current_cframe->dead_tree |= !current_cframe->ignoring;
      current_cframe->ignoring = current_cframe->dead_tree;
    }

  if (current_cframe == NULL || current_cframe->ignoring)
    {
      while (! is_end_of_line[(unsigned char) *input_line_pointer])
       ++input_line_pointer;

      if (current_cframe == NULL)
       return;
    }
  else
    {
      expressionS operand;
      int t;

      /* Leading whitespace is part of operand.  */
      SKIP_WHITESPACE ();

      expression_and_evaluate (&operand);
      if (operand.X_op != O_constant)
       as_bad (_("non-constant expression in \".elseif\" statement"));

      switch ((operatorT) arg)
       {
       case O_eq: t = operand.X_add_number == 0; break;
       case O_ne: t = operand.X_add_number != 0; break;
       case O_lt: t = operand.X_add_number < 0; break;
       case O_le: t = operand.X_add_number <= 0; break;
       case O_ge: t = operand.X_add_number >= 0; break;
       case O_gt: t = operand.X_add_number > 0; break;
       default:
         abort ();
         return;
       }

      current_cframe->ignoring = current_cframe->dead_tree || ! t;
    }

  if (LISTING_SKIP_COND ()
      && (current_cframe->previous_cframe == NULL
         || ! current_cframe->previous_cframe->ignoring))
    {
      if (! current_cframe->ignoring)
       listing_list (1);
      else
       listing_list (2);
    }

  demand_empty_rest_of_line ();
}

Here is the call graph for this function:

void s_endif ( int arg  ATTRIBUTE_UNUSED)

Definition at line 378 of file cond.c.

{
  struct conditional_frame *hold;

  if (current_cframe == NULL)
    {
      as_bad (_("\".endif\" without \".if\""));
    }
  else
    {
      if (LISTING_SKIP_COND ()
         && current_cframe->ignoring
         && (current_cframe->previous_cframe == NULL
             || ! current_cframe->previous_cframe->ignoring))
       listing_list (1);

      hold = current_cframe;
      current_cframe = current_cframe->previous_cframe;
      obstack_free (&cond_obstack, hold);
    }                       /* if one pop too many */

  if (flag_mri)
    {
      while (! is_end_of_line[(unsigned char) *input_line_pointer])
       ++input_line_pointer;
    }

  demand_empty_rest_of_line ();
}

Here is the call graph for this function:

Here is the caller graph for this function:

void s_if ( int  arg)

Definition at line 126 of file cond.c.

{
  expressionS operand;
  struct conditional_frame cframe;
  int t;
  char *stop = NULL;
  char stopc;

  if (flag_mri)
    stop = mri_comment_field (&stopc);

  /* Leading whitespace is part of operand.  */
  SKIP_WHITESPACE ();

  if (current_cframe != NULL && current_cframe->ignoring)
    {
      operand.X_add_number = 0;
      while (! is_end_of_line[(unsigned char) *input_line_pointer])
       ++input_line_pointer;
    }
  else
    {
      expression_and_evaluate (&operand);
      if (operand.X_op != O_constant)
       as_bad (_("non-constant expression in \".if\" statement"));
    }

  switch ((operatorT) arg)
    {
    case O_eq: t = operand.X_add_number == 0; break;
    case O_ne: t = operand.X_add_number != 0; break;
    case O_lt: t = operand.X_add_number < 0; break;
    case O_le: t = operand.X_add_number <= 0; break;
    case O_ge: t = operand.X_add_number >= 0; break;
    case O_gt: t = operand.X_add_number > 0; break;
    default:
      abort ();
      return;
    }

  /* If the above error is signaled, this will dispatch
     using an undefined result.  No big deal.  */
  initialize_cframe (&cframe);
  cframe.ignoring = cframe.dead_tree || ! t;
  current_cframe = ((struct conditional_frame *)
                  obstack_copy (&cond_obstack, &cframe, sizeof (cframe)));

  if (LISTING_SKIP_COND ()
      && cframe.ignoring
      && (cframe.previous_cframe == NULL
         || ! cframe.previous_cframe->ignoring))
    listing_list (2);

  if (flag_mri)
    mri_comment_end (stop, stopc);

  demand_empty_rest_of_line ();
}

Here is the call graph for this function:

Here is the caller graph for this function:

void s_ifb ( int  test_blank)

Definition at line 189 of file cond.c.

{
  struct conditional_frame cframe;

  initialize_cframe (&cframe);
  
  if (cframe.dead_tree)
    cframe.ignoring = 1;
  else
    {
      int is_eol;

      SKIP_WHITESPACE ();
      is_eol = is_end_of_line[(unsigned char) *input_line_pointer];
      cframe.ignoring = (test_blank == !is_eol);
    }

  current_cframe = ((struct conditional_frame *)
                  obstack_copy (&cond_obstack, &cframe,
                              sizeof (cframe)));

  if (LISTING_SKIP_COND ()
      && cframe.ignoring
      && (cframe.previous_cframe == NULL
         || ! cframe.previous_cframe->ignoring))
    listing_list (2);

  ignore_rest_of_line ();
}

Here is the call graph for this function:

void s_ifc ( int  arg)

Definition at line 262 of file cond.c.

{
  char *stop = NULL;
  char stopc;
  char *s1, *s2;
  int len1, len2;
  int res;
  struct conditional_frame cframe;

  if (flag_mri)
    stop = mri_comment_field (&stopc);

  s1 = get_mri_string (',', &len1);

  if (*input_line_pointer != ',')
    as_bad (_("bad format for ifc or ifnc"));
  else
    ++input_line_pointer;

  s2 = get_mri_string (';', &len2);

  res = len1 == len2 && strncmp (s1, s2, len1) == 0;

  initialize_cframe (&cframe);
  cframe.ignoring = cframe.dead_tree || ! (res ^ arg);
  current_cframe = ((struct conditional_frame *)
                  obstack_copy (&cond_obstack, &cframe, sizeof (cframe)));

  if (LISTING_SKIP_COND ()
      && cframe.ignoring
      && (cframe.previous_cframe == NULL
         || ! cframe.previous_cframe->ignoring))
    listing_list (2);

  if (flag_mri)
    mri_comment_end (stop, stopc);

  demand_empty_rest_of_line ();
}

Here is the call graph for this function:

Here is the caller graph for this function:

void s_ifdef ( int  test_defined)

Definition at line 68 of file cond.c.

{
  /* Points to name of symbol.  */
  char *name;
  /* Points to symbol.  */
  symbolS *symbolP;
  struct conditional_frame cframe;
  char c;

  /* Leading whitespace is part of operand.  */
  SKIP_WHITESPACE ();
  name = input_line_pointer;

  if (!is_name_beginner (*name))
    {
      as_bad (_("invalid identifier for \".ifdef\""));
      obstack_1grow (&cond_obstack, 0);
      ignore_rest_of_line ();
      return;
    }

  c = get_symbol_end ();
  symbolP = symbol_find (name);
  *input_line_pointer = c;

  initialize_cframe (&cframe);
  
  if (cframe.dead_tree)
    cframe.ignoring = 1;
  else
    {
      int is_defined;

      /* Use the same definition of 'defined' as .equiv so that a symbol
        which has been referenced but not yet given a value/address is
        considered to be undefined.  */
      is_defined =
       symbolP != NULL
       && (S_IS_DEFINED (symbolP) || symbol_equated_p (symbolP))
       && S_GET_SEGMENT (symbolP) != reg_section;

      cframe.ignoring = ! (test_defined ^ is_defined);
    }

  current_cframe = ((struct conditional_frame *)
                  obstack_copy (&cond_obstack, &cframe,
                              sizeof (cframe)));

  if (LISTING_SKIP_COND ()
      && cframe.ignoring
      && (cframe.previous_cframe == NULL
         || ! cframe.previous_cframe->ignoring))
    listing_list (2);

  demand_empty_rest_of_line ();
}

Here is the call graph for this function:

Here is the caller graph for this function:

void s_ifeqs ( int  arg)

Definition at line 456 of file cond.c.

{
  char *s1, *s2;
  int len1, len2;
  int res;
  struct conditional_frame cframe;

  s1 = demand_copy_C_string (&len1);

  SKIP_WHITESPACE ();
  if (*input_line_pointer != ',')
    {
      as_bad (_(".ifeqs syntax error"));
      ignore_rest_of_line ();
      return;
    }

  ++input_line_pointer;

  s2 = demand_copy_C_string (&len2);

  res = len1 == len2 && strncmp (s1, s2, len1) == 0;

  initialize_cframe (&cframe);
  cframe.ignoring = cframe.dead_tree || ! (res ^ arg);
  current_cframe = ((struct conditional_frame *)
                  obstack_copy (&cond_obstack, &cframe, sizeof (cframe)));

  if (LISTING_SKIP_COND ()
      && cframe.ignoring
      && (cframe.previous_cframe == NULL
         || ! cframe.previous_cframe->ignoring))
    listing_list (2);

  demand_empty_rest_of_line ();
}

Here is the call graph for this function:

Here is the caller graph for this function:


Variable Documentation

Definition at line 62 of file cond.c.