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 888, Thu Jul 19 20:24:21 2001 UTC revision 889, Thu Jul 19 20:35:20 2001 UTC
# Line 62  Line 62 
62         fun init size = (comment("Code Size = " ^ ms size); nl())         fun init size = (comment("Code Size = " ^ ms size); nl())
63         val emitCellInfo = AsmFormatUtil.reginfo         val emitCellInfo = AsmFormatUtil.reginfo
64                                  (emit,formatAnnotations)                                  (emit,formatAnnotations)
65         fun emitCell r = (emit(C.toString r); emitCellInfo r)         fun emitCell r = (emit(CellsBasis.toString r); emitCellInfo r)
66         fun emit_cellset(title,cellset) =         fun emit_cellset(title,cellset) =
67           (nl(); comment(title^C.CellSet.toString cellset))           (nl(); comment(title^C.CellSet.toString cellset))
68         val emit_cellset =         val emit_cellset =
# Line 316  Line 316 
316                emitCell d )                emitCell d )
317           end           end
318         | I.ARITH{a, r, i, d} =>         | I.ARITH{a, r, i, d} =>
319           (case (a, C.registerId r, C.registerId d) of           (case (a, CellsBasis.registerId r, CellsBasis.registerId d) of
320             (I.OR, 0, _) =>             (I.OR, 0, _) =>
321             ( emit "mov\t";             ( emit "mov\t";
322               emit_operand i;               emit_operand i;
# Line 469  Line 469 
469               fun g (a, r, d) =               fun g (a, r, d) =
470                   let                   let
471  (*#line 769.22 "sparc/sparc.mdl"*)  (*#line 769.22 "sparc/sparc.mdl"*)
472                       val r = C.registerNum r                       val r = CellsBasis.registerNum r
473                       and d = C.registerNum d                       and d = CellsBasis.registerNum d
474                   in f (a, r, d);                   in f (a, r, d);
475                      emit "\n\t";                      emit "\n\t";
476                      f ("fmovs", r + 1, d + 1)                      f ("fmovs", r + 1, d + 1)
# Line 480  Line 480 
480               fun h (a, r, d) =               fun h (a, r, d) =
481                   let                   let
482  (*#line 774.22 "sparc/sparc.mdl"*)  (*#line 774.22 "sparc/sparc.mdl"*)
483                       val r = C.registerNum r                       val r = CellsBasis.registerNum r
484                       and d = C.registerNum d                       and d = CellsBasis.registerNum d
485                   in f (a, r, d);                   in f (a, r, d);
486                      emit "\n\t";                      emit "\n\t";
487                      f ("fmovs", r + 1, d + 1);                      f ("fmovs", r + 1, d + 1);

Legend:
Removed from v.888  
changed lines
  Added in v.889

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