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/compiler/FLINT/cpsopt/flatten.sml
ViewVC logotype

Diff of /sml/trunk/compiler/FLINT/cpsopt/flatten.sml

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

revision 4539, Sat Apr 21 17:13:52 2018 UTC revision 4540, Wed Apr 25 17:06:35 2018 UTC
# Line 1  Line 1 
1  (* Copyright 1996 by Bell Laboratories *)  (* flatten.sml
2  (* flatten.sml *)   *
3     * COPYRIGHT (c) 2018 The Fellowship of SML/NJ (http://www.smlnj.org)
4     * All rights reserved.
5     *)
6    
7  signature FLATTEN = sig  signature FLATTEN = sig
8    val flatten : {function: CPS.function,    val flatten : {function: CPS.function,
# Line 74  Line 77 
77          | g(REAL _) = LT.ltc_real          | g(REAL _) = LT.ltc_real
78          | g(STRING _) = LT.ltc_void          | g(STRING _) = LT.ltc_void
79          | g(LABEL v) = getty v          | g(LABEL v) = getty v
80          | g _ = LT.ltc_void          | g _ = LT.ltc_void (* QUESTION: what about other integer types? *)
81     in if type_flag then g u     in if type_flag then g u
82        else LT.ltc_void        else LT.ltc_void
83    end    end

Legend:
Removed from v.4539  
changed lines
  Added in v.4540

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