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