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/branches/SMLNJ/src/MLRISC/mltree/mltreegen.sml
ViewVC logotype

Diff of /sml/branches/SMLNJ/src/MLRISC/mltree/mltreegen.sml

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

revision 468, Wed Nov 10 22:42:52 1999 UTC revision 469, Wed Nov 10 22:42:52 1999 UTC
# Line 182  Line 182 
182         | T.CVTI2I(ty,T.ZERO_EXTEND,e) =>         | T.CVTI2I(ty,T.ZERO_EXTEND,e) =>
183           let val fromTy = size e           let val fromTy = size e
184           in  if fromTy <= ty then e           in  if fromTy <= ty then e
185               else case fromTy of               else case ty of (* ty < fromTy *)
186                      8  => T.ANDB(ty,e,T.LI32 0wxff)                      8  => T.ANDB(ty,e,T.LI32 0wxff)
187                    | 16 => T.ANDB(ty,e,T.LI32 0wxffff)                    | 16 => T.ANDB(ty,e,T.LI32 0wxffff)
188                    | 32 => T.ANDB(ty,e,T.LI32 0wxffffffff)                    | 32 => T.ANDB(ty,e,T.LI32 0wxffffffff)
189                      | 64 => e
190                    | _  => raise T.Unsupported("unknown expression",exp)                    | _  => raise T.Unsupported("unknown expression",exp)
191           end           end
192    

Legend:
Removed from v.468  
changed lines
  Added in v.469

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