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/MLRISC/x86/instructions/x86instr-ext.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/x86/instructions/x86instr-ext.sml

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

revision 562, Fri Mar 3 16:22:42 2000 UTC revision 600, Wed Apr 5 20:13:47 2000 UTC
# Line 8  Line 8 
8  structure X86InstrExt = struct  structure X86InstrExt = struct
9    datatype fsz = single | double | extended    datatype fsz = single | double | extended
10    
11    datatype ('r, 'f) sext    datatype ('s, 'r, 'f, 'c) sext
12        (* push an integer value onto the H/W stack *)
13      = PUSHL of 'r      = PUSHL of 'r
14          (* push a 32 bit value onto the H/W stack *)      | POP of 'r
15      | PUSHf of {sz:fsz, fexp: 'f}  
16          (* push a floating point value onto the H/W stack *)      (* FSTPS/L/T is a way of pulling things off the floating point
17         * stack and must therefore take FREG f as argument
18         *)
19        | FSTPS of 'f
20        | FSTPL of 'f
21        | FSTPT of 'f
22    
23        | LEAVE
24        | RET of 'r
25  end  end

Legend:
Removed from v.562  
changed lines
  Added in v.600

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