Mercurial > repos > rhope
diff nworker.rhope @ 34:df038cef648b
More work on supporting user defined types in the C backend
| author | Mike Pavone <pavone@retrodev.com> |
|---|---|
| date | Wed, 30 Sep 2009 01:25:03 -0400 |
| parents | 914ad38f9b59 |
| children | 495dddadd058 |
line wrap: on
line diff
--- a/nworker.rhope Mon Sep 28 22:08:40 2009 -0400 +++ b/nworker.rhope Wed Sep 30 01:25:03 2009 -0400 @@ -654,9 +654,9 @@ Test[:out] { - ref+ <- Worker Ref["+","cdecl",2,1] - ref* <- Worker Ref["*","cdecl",2,1] - ,a <- [NWorker["cdecl"] + ref+ <- Worker Ref["+","rhope",2,1] + ref* <- Worker Ref["*","rhope",2,1] + ,a <- [NWorker["rhope"] ]Add Input["a", 0] { ,b <- [~]Add Input["b", 1] { ,c <- [~]Add Input["c", 2] { @@ -716,15 +716,15 @@ Register Builtins@NProgram[prog:out] { - out <- [[[[[[[[[prog]Register Worker["+", "cdecl", 2, 1] - ]Register Worker["-", "cdecl", 2, 1] - ]Register Worker["*", "cdecl", 2, 1] - ]Register Worker["/", "cdecl", 2, 1] - ]Register Worker["Print", "cdecl", 1, 1] - ]Register Worker["Index", "cdecl", 2, 1] - ]Register Worker["If", "cdecl", 1, 2] - ]Register Worker["<", "cdecl", 2, 1] - ]Register Worker["<String@Whole Number", "cdecl", 1, 1] + out <- [[[[[[[[[prog]Register Worker["+", "rhope", 2, 1] + ]Register Worker["-", "rhope", 2, 1] + ]Register Worker["*", "rhope", 2, 1] + ]Register Worker["/", "rhope", 2, 1] + ]Register Worker["Print", "rhope", 1, 1] + ]Register Worker["Index", "rhope", 2, 1] + ]Register Worker["If", "rhope", 1, 2] + ]Register Worker["<", "rhope", 2, 1] + ]Register Worker[">", "rhope", 1, 1] } Find Worker@NProgram[prog, name:out,notfound]