34 lines
1.1 KiB
C#
34 lines
1.1 KiB
C#
|
///////////////////////////////////////////////////////////////////////////////
|
|||
|
|
//
|
|||
|
|
// Microsoft Research Singularity
|
|||
|
|
//
|
|||
|
|
// Copyright (c) Microsoft Corporation. All rights reserved.
|
|||
|
|
//
|
|||
|
|
///////////////////////////////////////////////////////////////////////////////
|
|||
|
|
|
|||
|
|
|
|||
|
|
namespace Microsoft.Singularity.Policy.Engine {
|
|||
|
|
// An Environment is a single Cell containing an environment. This replaces
|
|||
|
|
// the multiple cells used in the WAM in a more strongly typed way. The
|
|||
|
|
// Environment is followed on the stack by the permanent arguments.
|
|||
|
|
internal class Environment : Cell {
|
|||
|
|
internal readonly uint _n;
|
|||
|
|
internal readonly Address _ce;
|
|||
|
|
internal readonly Address _cp;
|
|||
|
|
internal Environment(uint n, Address ce, Address cp) {
|
|||
|
|
_n = n;
|
|||
|
|
_ce = ce;
|
|||
|
|
_cp = cp;
|
|||
|
|
}
|
|||
|
|
public override string ToString() {
|
|||
|
|
return "<ENVIRONMENT "
|
|||
|
|
+ _n.ToString()
|
|||
|
|
+ " "
|
|||
|
|
+ _ce.ToString()
|
|||
|
|
+ " "
|
|||
|
|
+ _cp.ToString()
|
|||
|
|
+ ">";
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|