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/ppc/instructions/ppcInstr.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/ppc/instructions/ppcInstr.sml

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

revision 774, Wed Jan 10 12:50:56 2001 UTC revision 775, Fri Jan 12 01:17:51 2001 UTC
# Line 8  Line 8 
8  signature PPCINSTR =  signature PPCINSTR =
9  sig  sig
10     structure C : PPCCELLS     structure C : PPCCELLS
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     type gpr = int     type gpr = int
19     type fpr = int     type fpr = int
20     type ccr = int     type ccr = int
# Line 23  Line 26 
26     datatype operand =     datatype operand =
27       RegOp of C.cell       RegOp of C.cell
28     | ImmedOp of int     | ImmedOp of int
29     | LabelOp of LabelExp.labexp     | LabelOp of T.labexp
30     type addressing_mode = (C.cell * operand)     type addressing_mode = (C.cell * operand)
31     datatype ea =     datatype ea =
32       Direct of C.cell       Direct of C.cell
# Line 222  Line 225 
225     | PHI of {}     | PHI of {}
226  end  end
227    
228  functor PPCInstr(structure LabelExp : LABELEXP  functor PPCInstr(LabelExp : LABELEXP
                  structure Region   : REGION  
229                  ) : PPCINSTR =                  ) : PPCINSTR =
230  struct  struct
231     structure C = PPCCells     structure C = PPCCells
    structure Region = Region  
232     structure LabelExp = LabelExp     structure LabelExp = LabelExp
233     structure Constant = LabelExp.Constant     structure T = LabelExp.T
234       structure Region = T.Region
235       structure Constant = T.Constant
236     type gpr = int     type gpr = int
237     type fpr = int     type fpr = int
238     type ccr = int     type ccr = int
# Line 241  Line 244 
244     datatype operand =     datatype operand =
245       RegOp of C.cell       RegOp of C.cell
246     | ImmedOp of int     | ImmedOp of int
247     | LabelOp of LabelExp.labexp     | LabelOp of T.labexp
248     type addressing_mode = (C.cell * operand)     type addressing_mode = (C.cell * operand)
249     datatype ea =     datatype ea =
250       Direct of C.cell       Direct of C.cell

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

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