Unified · Split
| @@ -1,3 +1,5 @@ | ||
| 1 | +20080529 | |
| 2 | + limbo/stubs.c: allow pick adt types | |
| 1 | 3 | 20080528 |
| 2 | 4 | emu/port/win-x11a.c screen depth checks from drawterm via tim@nop.cx |
| 3 | 5 | 20080524 |
| @@ -481,6 +481,8 @@ ctypeconv(t: ref Type): string · 480 unmodified lines | ||
| 481 | 481 | Tfix or |
| 482 | 482 | Tpoly => |
| 483 | 483 | return ckindname[t.kind]; |
| 484 | + Tadtpick => | |
| 485 | + return ctypeconv(t.decl.dot.ty); | |
| 484 | 486 | Tadt or |
| 485 | 487 | Ttuple => |
| 486 | 488 | if(t.decl.sym != anontupsym) |
Binary file not shown.
| @@ -1 +1 @@ | ||
| 1 | −#define VERSION "Fourth Edition (20080528)" | |
| 1 | +#define VERSION "Fourth Edition (20080529)" | |
| @@ -493,6 +493,8 @@ ctprint(char *buf, char *end, Type *t) · 492 unmodified lines | ||
| 493 | 493 | case Tfix: |
| 494 | 494 | case Tpoly: |
| 495 | 495 | return seprint(buf, end, "%s", ckindname[t->kind]); |
| 496 | + case Tadtpick: | |
| 497 | + return ctprint(buf, end, t->decl->dot->ty); | |
| 496 | 498 | case Tadt: |
| 497 | 499 | case Ttuple: |
| 498 | 500 | if(t->decl->sym != anontupsym) |