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/src/cm/compile/bfc.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/compile/bfc.sml

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

revision 1714, Wed Nov 24 19:59:47 2004 UTC revision 1715, Wed Nov 24 20:27:30 2004 UTC
# Line 60  Line 60 
60    
61      fun getStable { stable, offset, descr } = let      fun getStable { stable, offset, descr } = let
62          fun work s =          fun work s =
63              (Seek.seek (s, offset);              (Seek.seek (s, Position.fromInt offset);
64               (* We can use an empty static env because no               (* We can use an empty static env because no
65                * unpickling will be done. *)                * unpickling will be done. *)
66               #contents (BF.read { arch = arch, version = version,               #contents (BF.read { arch = arch, version = version,

Legend:
Removed from v.1714  
changed lines
  Added in v.1715

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