ftp.nice.ch/pub/next/developer/languages/c/djgpp-NS.s.tar.gz#/djgpp/src/gcc-260/bi-opcod.c

This is bi-opcod.c in view mode; [Download] [Up]

/* Utility to generate opcode list from bytecode definition.
   Copyright (C) 1993, 1994 Free Software Foundation, Inc.

This file is part of GNU CC.

GNU CC is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2, or (at your option)
any later version.

GNU CC is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with GNU CC; see the file COPYING.  If not, write to
the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */

#include <stdio.h>
#include "hconfig.h"
#include "bi-defs.h"

int
main(argc, argv)
     int argc;
     char **argv;
{
  struct def *d;
  struct variation *v;
  int i;

  yyparse();
  reverse();


  printf ("/* This file is automatically generated from bytecode.def,\n");
  printf ("do not make any changes here. Instead edit bytecode.def.  */\n\n");
  printf ("enum bytecode_opcode\n{");

  i = 0;
  for (d = defs; d; d = d->next)
    for (v = d->variations; v; v = v->next)
      {
	printf ("  %s%s,\n", d->basename, v->name);
	++i;
      }

  puts ("  LAST_AND_UNUSED_OPCODE\n};");

  if (i > 256)
    fprintf (stderr, "%s: warning, number of opcodes is %d\n", *argv, i);
  else
    fprintf (stderr, "(Number of opcodes is %d)\n", i);

  fflush (stdout);
  exit (ferror (stdout) != 0 ? FATAL_EXIT_CODE : SUCCESS_EXIT_CODE);
  /* NOTREACHED */
  return 0;
}

/* Safely allocate NBYTES bytes of memory. Returns pointer to block of
   memory. */
char *
xmalloc (nbytes)
     int nbytes;
{
  char *tmp = (char *) malloc (nbytes);
  
  if (!tmp)
    {
      fprintf (stderr, "can't allocate %d bytes (out of virtual memory)\n", nbytes);
      exit (FATAL_EXIT_CODE);
    }

  return tmp;
}

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.