repos/rhope: nworker.rhope comparison

Started adding support for naked values in user defined objects

author	Mike Pavone <pavone@retrodev.com>
date	Fri, 09 Oct 2009 01:01:26 -0400
parents	640f541e9116
children	aabda74c7a88

comparison

equal deleted inserted replaced

-:3d92bc1352c2
+:789a146a48e1
 }
 Make Init[func,field:out]
 {
 	name <- [field]Index[0]
-	out <- [func]Set Field Null["obj", name]
+	variant <- [[field]Index[1]]Variant >>
+	If[[variant] = ["Boxed"]]
+	{
+		out <- [func]Set Field Null["obj", name]
+	}{
+		out <- func
+	}
 }
 Make Copy[func,field:out]
 {
 	name <- [field]Index[0]
-	got <- [func]Read Field["obj", name] {}
+	variant <- [[field]Index[1]]Variant >>
-	{
+	If[[variant] = ["Boxed"]]
-		stream <- [[got]Instruction Stream
+	{
-			]AddRef No Dest[~]
+		got <- [func]Read Field["obj", name] {}
-		out <- [got]Do If[~, stream]
+		{
+			stream <- [[got]Instruction Stream
+				]AddRef No Dest[~]
+			out <- [got]Do If[~, stream]
+		}
+	}{
+		out <- func
 	}
 }
 Make Cleanup[func,field:out]
 {
 	name <- [field]Index[0]
-	got <- [func]Read Field["obj", name] {}
+	variant <- [[field]Index[1]]Variant >>
-	{
+	If[[variant] = ["Boxed"]]
-		stream <- [[got]Instruction Stream
+	{
-			]Release[~]
+		got <- [func]Read Field["obj", name] {}
-		out <- [got]Do If[~, stream]
+		{
+			stream <- [[got]Instruction Stream
+				]Release[~]
+			out <- [got]Do If[~, stream]
+		}
+	}{
+		out <- func
 	}
 }
 Make Special@NBlueprint[bp,backend,func name,bp name,pop worker:out]
 {

Mercurial > repos > rhope