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/compiler/CodeGen/x86/x86CG.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/CodeGen/x86/x86CG.sml

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

revision 796, Tue Mar 6 00:04:33 2001 UTC revision 797, Fri Mar 16 00:00:17 2001 UTC
# Line 35  Line 35 
35                 (structure I = X86Instr                 (structure I = X86Instr
36                  structure T = X86MLTree                  structure T = X86MLTree
37                 )                 )
38               structure MLTreeUtils = MLTreeUtils
39                   (structure T = X86MLTree
40                    fun hashSext  _ _ = 0w0
41                    fun hashRext  _ _ = 0w0
42                    fun hashFext  _ _ = 0w0
43                    fun hashCCext _ _ = 0w0
44    
45                    (* Equality extensions *)
46                    fun eqSext  _ _ = false
47                    fun eqRext  _ _ = false
48                    fun eqFext  _ _ = false
49                    fun eqCCext _ _ = false
50    
51                    (* Pretty printing extensions *)
52                    fun showSext  _ _ = ""
53                    fun showRext  _ _ = ""
54                    fun showFext  _ _ = ""
55                    fun showCCext _ _ = ""
56                   )
57             val tempMem = I.Displace{base=esp, disp=I.Immed 304, mem=stack}             val tempMem = I.Displace{base=esp, disp=I.Immed 304, mem=stack}
58             fun cvti2f{src,ty} = (* ty is always 32 for SML/NJ *)             fun cvti2f{src,ty} = (* ty is always 32 for SML/NJ *)
59                 {instrs  = [I.MOVE{mvOp=I.MOVL, src=src, dst=tempMem}],                 {instrs  = [I.MOVE{mvOp=I.MOVL, src=src, dst=tempMem}],

Legend:
Removed from v.796  
changed lines
  Added in v.797

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