Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] View of /tests/trunk/bugs/outputs.post-110.63/bug1354.1.out
ViewVC logotype

View of /tests/trunk/bugs/outputs.post-110.63/bug1354.1.out

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2462 - (download) (annotate)
Sat Apr 28 21:14:48 2007 UTC (12 years, 5 months ago) by gkuan
File size: 1632 byte(s)
post-110.63 elab/flint revision regression tests and outputs
val it = () : unit
signature IR =
  sig
    datatype irexp = EXP of int
  end
signature TYPE =
  sig
    structure Ir :
      sig
        datatype irexp = EXP of int
      end
    datatype ty = TY of int * Ir.irexp
  end
signature UCONSTRAINT =
  sig
    structure Type :
      sig
        structure Ir : <sig>
        datatype ty = TY of int * Ir.irexp
      end
    structure Ir :
      sig
        datatype irexp = EXP of int
      end
    datatype uconstraint = OP of Type.ty * Ir.irexp
    sharing Type.Ir = Ir
  end
signature CONTEXT =
  sig
    structure UC :
      sig
        structure Type : <sig>
        structure Ir : <sig>
        datatype uconstraint = OP of Type.ty * Ir.irexp
        sharing Type.Ir = Ir
      end
    structure Type :
      sig
        structure Ir : <sig>
        datatype ty = TY of int * Ir.irexp
      end
    structure Ir :
      sig
        datatype irexp = EXP of int
      end
    datatype context = CONTEXT of (Type.ty * Ir.irexp * UC.uconstraint) list
  end
signature RESOLVE =
  sig
    structure Context :
      sig
        structure UC : <sig>
        structure Type : <sig>
        structure Ir : <sig>
        datatype context
          = CONTEXT of (Type.ty * Ir.irexp * UC.uconstraint) list
      end
    structure Type :
      sig
        structure Ir : <sig>
        datatype ty = TY of int * Ir.irexp
      end
    structure Ir :
      sig
        datatype irexp = EXP of int
      end
    structure UC :
      sig
        structure Type : <sig>
        structure Ir : <sig>
        datatype uconstraint = OP of Type.ty * Ir.irexp
        sharing Type.Ir = Ir
      end
  end


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