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/x86/mltree/x86.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/x86/mltree/x86.sml

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

revision 1117, Wed Mar 6 15:29:24 2002 UTC revision 1119, Wed Mar 6 15:52:44 2002 UTC
# Line 290  Line 290 
290          | cond T.EQ = I.EQ | cond T.NE  = I.NE          | cond T.EQ = I.EQ | cond T.NE  = I.NE
291          | cond T.GE = I.GE | cond T.GEU = I.AE          | cond T.GE = I.GE | cond T.GEU = I.AE
292          | cond T.GT = I.GT | cond T.GTU = I.A          | cond T.GT = I.GT | cond T.GTU = I.A
293            | cond cc = error(concat["cond(", T.Basis.condToString cc, ")"])
294    
295        fun zero dst = emit(I.BINARY{binOp=I.XORL, src=dst, dst=dst})        fun zero dst = emit(I.BINARY{binOp=I.XORL, src=dst, dst=dst})
296    
# Line 1178  Line 1179 
1179                     | T.?>   => (sahf(); j(I.P,lab); testil 0x4100; j(I.EQ,lab))                     | T.?>   => (sahf(); j(I.P,lab); testil 0x4100; j(I.EQ,lab))
1180                     | T.<>   => (testil 0x4400; j(I.EQ,lab))                     | T.<>   => (testil 0x4400; j(I.EQ,lab))
1181                     | T.?=   => (testil 0x4400; j(I.NE,lab))                     | T.?=   => (testil 0x4400; j(I.NE,lab))
1182                     | _      => error "fbranch"                     | _      => error(concat[
1183                                      "fbranch(", T.Basis.fcondToString fcc, ")"
1184                                    ])
1185                   (*esac*)                   (*esac*)
1186                val fcc = compare()                val fcc = compare()
1187            in  emit I.FNSTSW;            in  emit I.FNSTSW;

Legend:
Removed from v.1117  
changed lines
  Added in v.1119

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