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

SCM Repository

[smlnj] Diff of /sml/trunk/src/MLRISC/alpha/instructions/alphaInstr.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/alpha/instructions/alphaInstr.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 744, Fri Dec 8 04:11:42 2000 UTC revision 775, Fri Jan 12 01:17:51 2001 UTC
# Line 8  Line 8 
8  signature ALPHAINSTR =  signature ALPHAINSTR =
9  sig  sig
10     structure C : ALPHACELLS     structure C : ALPHACELLS
11     structure Constant: CONSTANT     structure T : MLTREE
12     structure LabelExp: LABELEXP     structure LabelExp: LABELEXP
13       structure Constant: CONSTANT
14     structure Region : REGION     structure Region : REGION
15        sharing Constant = LabelExp.Constant        sharing LabelExp.T = T
16          sharing Constant = T.Constant
17          sharing Region = T.Region
18     datatype ea =     datatype ea =
19       Direct of C.cell       Direct of C.cell
20     | FDirect of C.cell     | FDirect of C.cell
# Line 19  Line 22 
22     datatype operand =     datatype operand =
23       REGop of C.cell       REGop of C.cell
24     | IMMop of int     | IMMop of int
25     | HILABop of LabelExp.labexp     | HILABop of T.labexp
26     | LOLABop of LabelExp.labexp     | LOLABop of T.labexp
27     | LABop of LabelExp.labexp     | LABop of T.labexp
28     datatype branch =     datatype branch =
29       BR       BR
30     | BLBC     | BLBC
# Line 248  Line 251 
251     | PHI of {}     | PHI of {}
252  end  end
253    
254  functor AlphaInstr(structure LabelExp : LABELEXP  functor AlphaInstr(LabelExp : LABELEXP
                    structure Region   : REGION  
255                    ) : ALPHAINSTR =                    ) : ALPHAINSTR =
256  struct  struct
257     structure C = AlphaCells     structure C = AlphaCells
    structure Region = Region  
258     structure LabelExp = LabelExp     structure LabelExp = LabelExp
259     structure Constant = LabelExp.Constant     structure T = LabelExp.T
260       structure Region = T.Region
261       structure Constant = T.Constant
262     datatype ea =     datatype ea =
263       Direct of C.cell       Direct of C.cell
264     | FDirect of C.cell     | FDirect of C.cell
# Line 263  Line 266 
266     datatype operand =     datatype operand =
267       REGop of C.cell       REGop of C.cell
268     | IMMop of int     | IMMop of int
269     | HILABop of LabelExp.labexp     | HILABop of T.labexp
270     | LOLABop of LabelExp.labexp     | LOLABop of T.labexp
271     | LABop of LabelExp.labexp     | LABop of T.labexp
272     datatype branch =     datatype branch =
273       BR       BR
274     | BLBC     | BLBC

Legend:
Removed from v.744  
changed lines
  Added in v.775

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