SCM Repository

[smlnj] View of /sml/trunk/src/runtime/config/gen-bc-instr-def.c

[smlnj] / sml / trunk / src / runtime / config / gen-bc-instr-def.c

View of /sml/trunk/src/runtime/config/gen-bc-instr-def.c

Revision 250 - (download) (as text) (annotate)
Sat Apr 17 18:57:03 1999 UTC (21 years, 10 months ago) by monnier
File size: 480 byte(s)

This commit was generated by cvs2svn to compensate for changes in r249,
which included commits to RCS files with non-trunk default branches.

/* gen-bc-instr-def.c
 *
 * COPYRIGHT (c) 1993 by AT&T Bell Laboratories.
 *
 * A program to generate #defines for the bytecode instruction opcodes.
 */

#include <stdio.h>
#include "gen.h"
#include "bc.h"
#include "print-bc.h"

main ()
{
    int		i;
    FILE	*f;

    f = OpenFile ("bc-instr-def.h", "_BC_INSTR_DEF_");

    for (i = 0;  i < NUM_BC_INSTRS;  i++)
	fprintf(f, "#define %-23s %d\n", instrTbl[i].instrName, i);

    CloseFile (f, "_BC_INSTR_DEF_");

    exit (0);
}

root@smlnj-gforge.cs.uchicago.edu	ViewVC Help
Powered by ViewVC 1.0.0