Permalink
Browse files

MISSION ACCOMPLISHED

  • Loading branch information...
1 parent c5fd4d7 commit ee5dcf1368710025b4e946d6743d7c6f07936ff7 @sorear committed Nov 14, 2012
Showing with 3 additions and 8 deletions.
  1. +1 −2 lib/CodeGen.cs
  2. +2 −6 lib/Kernel.cs
View
@@ -3652,14 +3652,13 @@ public class DowncallReceiver : CallReceiver {
return null;
}
public static object push_compartment(object[] args) {
- var nc = Compartment.Top = new Compartment() { link = Compartment.Top };
+ var nc = new Compartment();
Kernel.InitCompartment(nc);
return Handle.Wrap(nc);
}
public static object pop_compartment(object[] args) {
var c = (Compartment)Handle.Unbox(args[1]);
c.RunEnd();
- Compartment.Top = c.link;
return null;
}
public static object new_unit(object[] args) {
View
@@ -4509,8 +4509,6 @@ public struct StashCursor {
}
public class Compartment {
- internal Compartment link;
-
[CORESaved] public STable PairMO;
[CORESaved] public STable EnumMO;
[CORESaved] public STable EnumMapMO;
@@ -4654,8 +4652,6 @@ public class Compartment {
[TrueGlobal]
internal static HashSet<Compartment> pending = new HashSet<Compartment>();
- [TrueGlobal]
- public static Compartment Top = new Compartment();
internal bool end_run;
internal PhaserList check = new PhaserList(true);
@@ -6679,7 +6675,7 @@ class LastFrameNode {
}
public static void MainHandler(string uname, string[] args) {
- var c = Compartment.Top;
+ var c = new Compartment();
InitCompartment(c);
InitGlobal();
commandArgs = args;
@@ -6716,7 +6712,7 @@ class LastFrameNode {
public static void Main(string[] args) {
string cmd = args.Length > 0 ? args[0] : "-help";
- var comp = Compartment.Top;
+ var comp = new Compartment();
InitCompartment(comp);
InitGlobal();

0 comments on commit ee5dcf1

Please sign in to comment.