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/compiler/FLINT/main/literals.sml
ViewVC logotype

Diff of /sml/branches/SMLNJ/src/compiler/FLINT/main/literals.sml

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

revision 474, Wed Nov 10 22:59:58 1999 UTC revision 475, Wed Nov 10 22:59:58 1999 UTC
# Line 399  Line 399 
399                                            val t =                                            val t =
400                                              case rk                                              case rk
401                                               of RK_FBLOCK => PTRt(FPT n)                                               of RK_FBLOCK => PTRt(FPT n)
402                                                  | RK_VECTOR => BOGt
403                                                | _ => PTRt(RPT n)                                                | _ => PTRt(RPT n)
404                                         in fn ce => SELECT(i, rval, v, t, ce)                                         in fn ce => SELECT(i, rval, v, t, ce)
405                                        end)                                        end)
# Line 467  Line 468 
468  end (* toplevel local *)  end (* toplevel local *)
469  end (* Literals *)  end (* Literals *)
470    
471    (*
472     * $Log$
473     *)
474    

Legend:
Removed from v.474  
changed lines
  Added in v.475

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