diff options
| -rw-r--r-- | CHANGES | 2 | ||||
| -rw-r--r-- | appl/cmd/limbo/stubs.b | 2 | ||||
| -rw-r--r-- | dis/limbo.dis | bin | 343278 -> 343321 bytes | |||
| -rw-r--r-- | include/version.h | 2 | ||||
| -rw-r--r-- | limbo/stubs.c | 2 |
5 files changed, 7 insertions, 1 deletions
@@ -1,3 +1,5 @@ +20080529 + limbo/stubs.c: allow pick adt types 20080528 emu/port/win-x11a.c screen depth checks from drawterm via tim@nop.cx 20080524 diff --git a/appl/cmd/limbo/stubs.b b/appl/cmd/limbo/stubs.b index acb24b81..cafd6ff7 100644 --- a/appl/cmd/limbo/stubs.b +++ b/appl/cmd/limbo/stubs.b @@ -481,6 +481,8 @@ ctypeconv(t: ref Type): string Tfix or Tpoly => return ckindname[t.kind]; + Tadtpick => + return ctypeconv(t.decl.dot.ty); Tadt or Ttuple => if(t.decl.sym != anontupsym) diff --git a/dis/limbo.dis b/dis/limbo.dis Binary files differindex e455128c..8abc6333 100644 --- a/dis/limbo.dis +++ b/dis/limbo.dis diff --git a/include/version.h b/include/version.h index 8436b644..7d9fa0c9 100644 --- a/include/version.h +++ b/include/version.h @@ -1 +1 @@ -#define VERSION "Fourth Edition (20080528)" +#define VERSION "Fourth Edition (20080529)" diff --git a/limbo/stubs.c b/limbo/stubs.c index 3c174e4a..7d951c63 100644 --- a/limbo/stubs.c +++ b/limbo/stubs.c @@ -493,6 +493,8 @@ ctprint(char *buf, char *end, Type *t) case Tfix: case Tpoly: return seprint(buf, end, "%s", ckindname[t->kind]); + case Tadtpick: + return ctprint(buf, end, t->decl->dot->ty); case Tadt: case Ttuple: if(t->decl->sym != anontupsym) |