Return to ns32coder.sig CVS log

Up to [Research Unix] / researchv10no / cmd / sml / src / ns32

Annotation of researchv10no/cmd/sml/src/ns32/ns32coder.sig, revision 1.1.1.1

1.1       root        1: (* Copyright 1989 by AT&T Bell Laboratories *)
                      2: signature NS32CODER = sig
                      3: 
                      4: eqtype Label
                      5: 
                      6: val newlabel : unit -> Label
                      7: 
                      8: datatype Register = Genreg of int
                      9:                  | FloatReg of int
                     10:                  | FP
                     11:                  | SP
                     12:                  | SB
                     13:                  | PC
                     14: 
                     15: datatype Size = Byte | Word | Long
                     16: 
                     17: datatype EA = Direct of Register
                     18:            | Topofstack
                     19:            | Displace of int * Register
                     20:            | Immed of int
                     21:            | Immedlab of Label
                     22:            | Abs of int
                     23:            | OffAddress of Label * int
                     24:            | Index of EA * Register * Size
                     25: 
                     26: val r0 : Register
                     27: val r1 : Register
                     28: val r2 : Register
                     29: val r3 : Register
                     30: val r4 : Register
                     31: val r5 : Register
                     32: val r6 : Register
                     33: val r7 : Register
                     34: val fp : Register
                     35: val sp : Register
                     36: val sb : Register
                     37: val pc : Register
                     38: val fp0 : Register
                     39: 
                     40: val align : unit -> unit
                     41: val mark : unit -> unit
                     42: val define : Label -> unit
                     43: val emitstring : string -> unit
                     44: val realconst : string -> unit
                     45: val emitlong : int -> unit
                     46: 
                     47: val emitlab : int * Label -> unit
                     48: 
                     49: val lprl : EA * EA -> unit
                     50: val sprl : EA * EA -> unit
                     51: val tbit : EA * EA -> unit
                     52: val bfs : EA -> unit
                     53: val movl : EA * EA -> unit
                     54: val movql : EA * EA -> unit
                     55: val movb : EA * EA -> unit
                     56: val movzbl : EA * EA -> unit
                     57: val lea : EA * EA -> unit
                     58: val addl : EA * EA -> unit
                     59: val subl : EA * EA -> unit
                     60: val negl : EA * EA -> unit
                     61: val ashl : EA * EA -> unit
                     62: val andl : EA * EA -> unit
                     63: val orl : EA * EA -> unit
                     64: val xorl : EA * EA -> unit
                     65: val coml : EA * EA -> unit
                     66: val mull : EA * EA -> unit
                     67: val divl : EA * EA -> unit
                     68: val jump : EA -> unit
                     69: val beq : EA -> unit
                     70: val bne : EA -> unit
                     71: val bge : EA -> unit
                     72: val bgt : EA -> unit
                     73: val blt : EA -> unit
                     74: val ble : EA -> unit
                     75: val cmpl : EA * EA -> unit
                     76: 
                     77: val movg : EA * EA -> unit
                     78: val negg : EA * EA -> unit
                     79: val addg : EA * EA -> unit
                     80: val subg : EA * EA -> unit
                     81: val mulg : EA * EA -> unit
                     82: val divg : EA * EA -> unit
                     83: val cmpg : EA * EA -> unit
                     84: 
                     85: val comment : string -> unit
                     86: 
                     87: end (* signature NS32CODER *)
                     88: 
                     89: signature NS32MCODER = 
                     90: sig 
                     91:     structure Coder : NS32CODER
                     92:     val finish : unit -> string
                     93: end

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.