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/system/smlnj/init/rawmem-x86.sml
ViewVC logotype

Diff of /sml/trunk/src/system/smlnj/init/rawmem-x86.sml

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

revision 807, Sat Apr 14 02:39:01 2001 UTC revision 808, Wed Apr 18 15:43:09 2001 UTC
# Line 1  Line 1 
1  structure RawMemInlineT = struct  structure RawMemInlineT = struct
 (* The ops that are commented-out are not currently supported by  
  * the compiler's backend. *)  
2      val w8l  : word32 -> word32           = InLine.raww8l      val w8l  : word32 -> word32           = InLine.raww8l
3      val i8l  : word32 -> int32            = InLine.rawi8l      val i8l  : word32 -> int32            = InLine.rawi8l
4      val w16l : word32 -> word32           = InLine.raww16l      val w16l : word32 -> word32           = InLine.raww16l
5      val i16l : word32 -> int32            = InLine.rawi16l      val i16l : word32 -> int32            = InLine.rawi16l
6      val w32l : word32 -> word32           = InLine.raww32l      val w32l : word32 -> word32           = InLine.raww32l
7      val i32l : word32 -> int32            = InLine.rawi32l      val i32l : word32 -> int32            = InLine.rawi32l
8      val f32l : word32 -> real             = (* InLine.rawf32l *) fn _ => 0.0      val f32l : word32 -> real             = InLine.rawf32l
9      val f64l : word32 -> real             = InLine.rawf64l      val f64l : word32 -> real             = InLine.rawf64l
10      val w8s  : word32 * word32 -> unit    = InLine.raww8s      val w8s  : word32 * word32 -> unit    = InLine.raww8s
11      val i8s  : word32 * int32  -> unit    = InLine.rawi8s      val i8s  : word32 * int32  -> unit    = InLine.rawi8s
12      val w16s : word32 * word32 -> unit    = (* InLine.raww16s *) fn _ => ()      val w16s : word32 * word32 -> unit    = InLine.raww16s
13      val i16s : word32 * int32  -> unit    = (* InLine.rawi16s *) fn _ => ()      val i16s : word32 * int32  -> unit    = InLine.rawi16s
14      val w32s : word32 * word32 -> unit    = InLine.raww32s      val w32s : word32 * word32 -> unit    = InLine.raww32s
15      val i32s : word32 * int32  -> unit    = InLine.rawi32s      val i32s : word32 * int32  -> unit    = InLine.rawi32s
16      val f32s : word32 * real   -> unit    = (* InLine.rawf32s *) fn _ => ()      val f32s : word32 * real   -> unit    = InLine.rawf32s
17      val f64s : word32 * real   -> unit    = InLine.rawf64s      val f64s : word32 * real   -> unit    = InLine.rawf64s
18      val rawccall : word32 * 'a * 'b -> 'c = InLine.rawccall      val rawccall : word32 * 'a * 'b -> 'c = InLine.rawccall
19  end  end

Legend:
Removed from v.807  
changed lines
  Added in v.808

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