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/sparc/emit/sparcAsm.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/sparc/emit/sparcAsm.sml

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

revision 838, Tue Jun 5 19:10:21 2001 UTC revision 839, Thu Jun 7 20:28:44 2001 UTC
# Line 302  Line 302 
302             emit "], ";             emit "], ";
303             emitCell d;             emitCell d;
304             emit_region mem )             emit_region mem )
305           | I.UNIMP{const22} =>
306             ( emit "unimp ";
307               emit_int const22 )
308         | I.SETHI{i, d} =>         | I.SETHI{i, d} =>
309           let           let
310  (*#line 650.18 "sparc/sparc.mdl"*)  (*#line 655.18 "sparc/sparc.mdl"*)
311               val i = Word32.toString (Word32.<< (Word32.fromInt i, 0wxa))               val i = Word32.toString (Word32.<< (Word32.fromInt i, 0wxa))
312           in           in
313              ( emit "sethi\t%hi(0x";              ( emit "sethi\t%hi(0x";
# Line 454  Line 457 
457             emit_operand i )             emit_operand i )
458         | I.FPop1{a, r, d} =>         | I.FPop1{a, r, d} =>
459           let           let
460  (*#line 757.18 "sparc/sparc.mdl"*)  (*#line 762.18 "sparc/sparc.mdl"*)
461               fun f (a, r, d) =               fun f (a, r, d) =
462                   ( emit a;                   ( emit a;
463                     emit "\t";                     emit "\t";
# Line 462  Line 465 
465                     emit ", ";                     emit ", ";
466                     emit (C.showFP d))                     emit (C.showFP d))
467    
468  (*#line 762.18 "sparc/sparc.mdl"*)  (*#line 767.18 "sparc/sparc.mdl"*)
469               fun g (a, r, d) =               fun g (a, r, d) =
470                   let                   let
471  (*#line 763.22 "sparc/sparc.mdl"*)  (*#line 768.22 "sparc/sparc.mdl"*)
472                       val r = C.registerNum r                       val r = C.registerNum r
473                       and d = C.registerNum d                       and d = C.registerNum d
474                   in f (a, r, d);                   in f (a, r, d);
# Line 473  Line 476 
476                      f ("fmovs", r + 1, d + 1)                      f ("fmovs", r + 1, d + 1)
477                   end                   end
478    
479  (*#line 767.18 "sparc/sparc.mdl"*)  (*#line 772.18 "sparc/sparc.mdl"*)
480               fun h (a, r, d) =               fun h (a, r, d) =
481                   let                   let
482  (*#line 768.22 "sparc/sparc.mdl"*)  (*#line 773.22 "sparc/sparc.mdl"*)
483                       val r = C.registerNum r                       val r = C.registerNum r
484                       and d = C.registerNum d                       and d = C.registerNum d
485                   in f (a, r, d);                   in f (a, r, d);

Legend:
Removed from v.838  
changed lines
  Added in v.839

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