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/releases/release-110.31/ckit/src/ast/build-ast.sml
ViewVC logotype

Diff of /sml/releases/release-110.31/ckit/src/ast/build-ast.sml

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

revision 654, Thu Jun 8 21:38:04 2000 UTC revision 665, Fri Jun 16 04:43:57 2000 UTC
# Line 2733  Line 2733 
2733                                  val sizeOpt =                                  val sizeOpt =
2734                                    case expr of                                    case expr of
2735                                      PT.EmptyExpr => NONE                                      PT.EmptyExpr => NONE
2736                                          (* nch: fix: check bitfield types -- see checks in sizeof *)
2737                                    | _ => (case evalExpr expr of                                    | _ => (case evalExpr expr of
2738                                              (SOME i, _, _, false) => SOME i                                              (SOME i, _, _, false) => SOME i
2739                                            | (SOME i, _, _, true) =>                                            | (SOME i, _, _, true) =>

Legend:
Removed from v.654  
changed lines
  Added in v.665

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