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 839, Thu Jun 7 20:28:44 2001 UTC revision 840, Fri Jun 15 19:05:19 2001 UTC
# Line 9  Line 9 
9                          structure Shuffle : SPARCSHUFFLE                          structure Shuffle : SPARCSHUFFLE
10                             where I = Instr                             where I = Instr
11    
12  (*#line 465.21 "sparc/sparc.mdl"*)  (*#line 466.21 "sparc/sparc.mdl"*)
13                          val V9 : bool                          val V9 : bool
14                         ) : INSTRUCTION_EMITTER =                         ) : INSTRUCTION_EMITTER =
15  struct  struct
# Line 248  Line 248 
248           emit_labexp labexp;           emit_labexp labexp;
249           emit ")" )           emit ")" )
250    
251  (*#line 468.7 "sparc/sparc.mdl"*)  (*#line 469.7 "sparc/sparc.mdl"*)
252     fun emit_leaf false = ()     fun emit_leaf false = ()
253       | emit_leaf true = emit "l"       | emit_leaf true = emit "l"
254    
255  (*#line 469.7 "sparc/sparc.mdl"*)  (*#line 470.7 "sparc/sparc.mdl"*)
256     fun emit_nop false = ()     fun emit_nop false = ()
257       | emit_nop true = emit "\n\tnop"       | emit_nop true = emit "\n\tnop"
258    
259  (*#line 470.7 "sparc/sparc.mdl"*)  (*#line 471.7 "sparc/sparc.mdl"*)
260     fun emit_a false = ()     fun emit_a false = ()
261       | emit_a true = emit ",a"       | emit_a true = emit ",a"
262    
263  (*#line 471.7 "sparc/sparc.mdl"*)  (*#line 472.7 "sparc/sparc.mdl"*)
264     fun emit_cc false = ()     fun emit_cc false = ()
265       | emit_cc true = emit "cc"       | emit_cc true = emit "cc"
266     fun emitInstr' instr =     fun emitInstr' instr =
# Line 307  Line 307 
307             emit_int const22 )             emit_int const22 )
308         | I.SETHI{i, d} =>         | I.SETHI{i, d} =>
309           let           let
310  (*#line 655.18 "sparc/sparc.mdl"*)  (*#line 656.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 457  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 762.18 "sparc/sparc.mdl"*)  (*#line 763.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 465  Line 465 
465                     emit ", ";                     emit ", ";
466                     emit (C.showFP d))                     emit (C.showFP d))
467    
468  (*#line 767.18 "sparc/sparc.mdl"*)  (*#line 768.18 "sparc/sparc.mdl"*)
469               fun g (a, r, d) =               fun g (a, r, d) =
470                   let                   let
471  (*#line 768.22 "sparc/sparc.mdl"*)  (*#line 769.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 476  Line 476 
476                      f ("fmovs", r + 1, d + 1)                      f ("fmovs", r + 1, d + 1)
477                   end                   end
478    
479  (*#line 772.18 "sparc/sparc.mdl"*)  (*#line 773.18 "sparc/sparc.mdl"*)
480               fun h (a, r, d) =               fun h (a, r, d) =
481                   let                   let
482  (*#line 773.22 "sparc/sparc.mdl"*)  (*#line 774.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.839  
changed lines
  Added in v.840

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