Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 651 - (view) (download) (as text)

1 : monnier 249 /* gen-bc-instr-def.c
2 :     *
3 :     * COPYRIGHT (c) 1993 by AT&T Bell Laboratories.
4 :     *
5 :     * A program to generate #defines for the bytecode instruction opcodes.
6 :     */
7 :    
8 :     #include <stdio.h>
9 :     #include "gen.h"
10 :     #include "bc.h"
11 :     #include "print-bc.h"
12 :    
13 :     main ()
14 :     {
15 :     int i;
16 :     FILE *f;
17 :    
18 :     f = OpenFile ("bc-instr-def.h", "_BC_INSTR_DEF_");
19 :    
20 :     for (i = 0; i < NUM_BC_INSTRS; i++)
21 :     fprintf(f, "#define %-23s %d\n", instrTbl[i].instrName, i);
22 :    
23 :     CloseFile (f, "_BC_INSTR_DEF_");
24 :    
25 :     exit (0);
26 :     }
27 :    

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