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

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

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

revision 234, Sat Apr 17 18:21:47 1999 UTC revision 235, Sat Apr 17 18:21:47 1999 UTC
# Line 67  Line 67 
67    
68    (* load/store has 13 bits sign extended immediates *)    (* load/store has 13 bits sign extended immediates *)
69    fun immed13 n = ~4096 <= n andalso n < 4096    fun immed13 n = ~4096 <= n andalso n < 4096
70    fun immed13w w = let val x = W.~>>(w,0w12)    fun immed13w w = let
71                     in  W.orb(x,W.notb x) = 0w0 end      val x = W.~>>(w,0w12)
72      in x=0w0 orelse (W.notb x)=0w0
73      end
74    
75    (* split into 22 high bits/10 low bits *)    (* split into 22 high bits/10 low bits *)
76    
# Line 453  Line 455 
455    
456  (*  (*
457   * $Log: sparc.sml,v $   * $Log: sparc.sml,v $
458     * Revision 1.1.1.1  1999/01/04 21:56:27  george
459     *   Version 110.12
460     *
461   * Revision 1.4  1998/09/30 19:36:54  dbm   * Revision 1.4  1998/09/30 19:36:54  dbm
462   * fixing sharing/defspec conflict   * fixing sharing/defspec conflict
463   *   *

Legend:
Removed from v.234  
changed lines
  Added in v.235

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