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 780, Tue Jan 30 22:45:26 2001 UTC revision 805, Thu Mar 22 20:08:01 2001 UTC
# Line 1  Line 1 
1  structure RawMemInlineT = struct  structure RawMemInlineT = struct
2    (* The ops that are commented-out are not currently supported by
3     * the compiler's backend. *)
4      val w8l  : word32 -> word32           = InLine.raww8l      val w8l  : word32 -> word32           = InLine.raww8l
5      val i8l  : word32 -> int32            = InLine.rawi8l      val i8l  : word32 -> int32            = InLine.rawi8l
6      val w16l : word32 -> word32           = InLine.raww16l      val w16l : word32 -> word32           = InLine.raww16l
7      val i16l : word32 -> int32            = InLine.rawi16l      val i16l : word32 -> int32            = InLine.rawi16l
8      val w32l : word32 -> word32           = InLine.raww32l      val w32l : word32 -> word32           = InLine.raww32l
9      val i32l : word32 -> int32            = InLine.rawi32l      val i32l : word32 -> int32            = InLine.rawi32l
10        val f32l : word32 -> real             = (* InLine.rawf32l *) fn _ => 0.0
11      val f64l : word32 -> real             = InLine.rawf64l      val f64l : word32 -> real             = InLine.rawf64l
12      val w8s  : word32 * word32 -> unit    = InLine.raww8s      val w8s  : word32 * word32 -> unit    = InLine.raww8s
13      val i8s  : word32 * int32  -> unit    = InLine.rawi8s      val i8s  : word32 * int32  -> unit    = InLine.rawi8s
14  (* not supported yet by code generator      val w16s : word32 * word32 -> unit    = (* InLine.raww16s *) fn _ => ()
15      val w16s : word32 * word32 -> unit    = InLine.raww16s      val i16s : word32 * int32  -> unit    = (* InLine.rawi16s *) fn _ => ()
     val i16s : word32 * int32  -> unit    = InLine.rawi16s  
 *)  
16      val w32s : word32 * word32 -> unit    = InLine.raww32s      val w32s : word32 * word32 -> unit    = InLine.raww32s
17      val i32s : word32 * int32  -> unit    = InLine.rawi32s      val i32s : word32 * int32  -> unit    = InLine.rawi32s
18        val f32s : word32 * real   -> unit    = (* InLine.rawf32s *) fn _ => ()
19      val f64s : word32 * real   -> unit    = InLine.rawf64s      val f64s : word32 * real   -> unit    = InLine.rawf64s
20      val rawccall : word32 * 'a * 'b -> 'c = InLine.rawccall      val rawccall : word32 * 'a * 'b -> 'c = InLine.rawccall
21  end  end

Legend:
Removed from v.780  
changed lines
  Added in v.805

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