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/flowgraph/pseudo-ops-little.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/flowgraph/pseudo-ops-little.sml

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

revision 984, Wed Nov 21 19:00:08 2001 UTC revision 991, Thu Nov 22 14:25:12 2001 UTC
# Line 1  Line 1 
1  (* Major bug: The x86 is padded with bytes, but something like the  (* pseudo-ops-little.sml
2   * alpha is padded with words. Should fix!   *
3   * val nop : {sz: int, w: Word32.word}   * COPYRIGHT (c) 2001 Lucent Technologies, Bell Laboratories.
4     *
5     * Subset of pseudo-ops functions that are little endian sensitive
6   *)   *)
7    
8  functor PseudoOpsLittle  functor PseudoOpsLittle
9     ( structure T : MLTREE     ( structure T : MLTREE
10       structure MLTreeEval : MLTREE_EVAL       structure MLTreeEval : MLTREE_EVAL
# Line 9  Line 12 
12       val icache_alignment : int         (* cache line size *)       val icache_alignment : int         (* cache line size *)
13       val max_alignment : int option     (* maximum alignment for internal labels *)       val max_alignment : int option     (* maximum alignment for internal labels *)
14       val nop: {sz:int, en:Word32.word}  (* encoding for noop *)       val nop: {sz:int, en:Word32.word}  (* encoding for noop *)
15      ) =      ) : PSEUDO_OPS_ENDIAN =
16  struct  struct
17    structure W = Word    structure W = Word
18    structure T = T    structure T = T
19    structure PB = PseudoOpsBasisTyp    structure PB = PseudoOpsBasisTyp
20      type 'a pseudo_op = (T.labexp, 'a) PB.pseudo_op
21    
22    fun error msg = MLRiscErrorMsg.error ("PseudoOpsLittle.", msg)    fun error msg = MLRiscErrorMsg.error ("PseudoOpsLittle.", msg)
23    

Legend:
Removed from v.984  
changed lines
  Added in v.991

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