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/num64/system/Basis/Implementation/Posix/posix-filesys-64.sml
ViewVC logotype

Diff of /sml/branches/num64/system/Basis/Implementation/Posix/posix-filesys-64.sml

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

revision 5221, Thu May 30 14:19:55 2019 UTC revision 5222, Thu May 30 14:40:44 2019 UTC
# Line 261  Line 261 
261              ctime = Time.fromNanoseconds (Int64.toLarge (#11 sr))              ctime = Time.fromNanoseconds (Int64.toLarge (#11 sr))
262            }            }
263    
264      val stat' : string -> statrep = cfun "stat"      val stat' : string -> statrep = cfun "stat_64"
265      val lstat' : string -> statrep = cfun "lstat"      val lstat' : string -> statrep = cfun "lstat_64"
266      val fstat' : s_int -> statrep = cfun "fstat"      val fstat' : s_int -> statrep = cfun "fstat_64"
267      fun stat fname = mkStat (stat' fname)      fun stat fname = mkStat (stat' fname)
268      fun lstat fname = mkStat (lstat' fname) (* POSIX 1003.1a *)      fun lstat fname = mkStat (lstat' fname) (* POSIX 1003.1a *)
269      fun fstat (FD{fd}) = mkStat (fstat' fd)      fun fstat (FD{fd}) = mkStat (fstat' fd)

Legend:
Removed from v.5221  
changed lines
  Added in v.5222

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