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 /MLRISC/trunk/amd64/staged-allocation/test.sml
ViewVC logotype

Diff of /MLRISC/trunk/amd64/staged-allocation/test.sml

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

revision 3042, Wed May 28 23:40:21 2008 UTC revision 3043, Thu May 29 01:53:59 2008 UTC
# Line 570  Line 570 
570    
571      fun lit i = T.LI (T.I.fromInt (wordTy, i))      fun lit i = T.LI (T.I.fromInt (wordTy, i))
572    
573    (*
574     fun testVarargs _ = let     fun testVarargs _ = let
575             val lab = Label.global "varargs"             val lab = Label.global "varargs"
576             val tmp = C.newReg()             val tmp = C.newReg()
# Line 593  Line 594 
594             in             in
595                0                0
596             end             end
597    *)
598    end    end
599    
600    
# Line 605  Line 606 
606      (* maximum argument size in machine words *)      (* maximum argument size in machine words *)
607      val maxArgSz = 16      val maxArgSz = 16
608      val maxArgSzB = maxArgSz * wordSzB      val maxArgSzB = maxArgSz * wordSzB
609    (*
610  (* unit testing code *)  (* unit testing code *)
611  structure Test =  structure Test =
612    struct    struct
# Line 660  Line 661 
661                 ListPair.all test (List.map slotsOfCTy ts, anss) orelse raise Fail "failed test"                 ListPair.all test (List.map slotsOfCTy ts, anss) orelse raise Fail "failed test"
662              end              end
663    end    end
664    *)
665    
666    structure Test = struct end

Legend:
Removed from v.3042  
changed lines
  Added in v.3043

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