Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Annotation of /tests/trunk/bugs/tests.obsolete/bug1553.1.sml
ViewVC logotype

Annotation of /tests/trunk/bugs/tests.obsolete/bug1553.1.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2460 - (view) (download)

1 : dbm 548 (* bug1553.1.sml *)
2 :    
3 :     signature S =
4 :     sig
5 :     type flags
6 :     val toWord : flags -> Word32.word
7 :     val fromWord : Word32.word -> flags
8 :     val flags : flags list -> flags
9 :     val allSet : flags * flags -> bool
10 :     val anySet : flags * flags -> bool
11 :     type mode = flags
12 :     val irwxu : mode
13 :     val irusr : mode
14 :     val iwusr : mode
15 :     val ixusr : mode
16 :     val irwxg : mode
17 :     val irgrp : mode
18 :     val iwgrp : mode
19 :     val ixgrp : mode
20 :     val irwxo : mode
21 :     val iroth : mode
22 :     val iwoth : mode
23 :     val ixoth : mode
24 :     val isuid : mode
25 :     val isgid : mode
26 :     (**** Comment out the following line to obtain a compilation. bug BUG ****)
27 :     sharing type flags = mode
28 :     end;

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