SCM Repository
Diff of /sml/trunk/src/compiler/FLINT/main/literals.sml
Parent Directory
| 
Revision Log
| 
Patch
| revision 476, Wed Nov 10 22:59:58 1999 UTC | revision 477, Wed Nov 10 23:04:21 1999 UTC | |
|---|---|---|
| # | Line 399 | Line 399 |
| 399 | val t = | val t = |
| 400 | case rk | case rk |
| 401 | of RK_FBLOCK => PTRt(FPT n) | of RK_FBLOCK => PTRt(FPT n) |
| 402 | | RK_VECTOR => BOGt | |
| 403 | | _ => PTRt(RPT n) | | _ => PTRt(RPT n) |
| 404 | in fn ce => SELECT(i, rval, v, t, ce) | in fn ce => SELECT(i, rval, v, t, ce) |
| 405 | end) | end) |
| # | Line 467 | Line 468 |
| 468 | end (* toplevel local *) | end (* toplevel local *) |
| 469 | end (* Literals *) | end (* Literals *) |
| 470 | ||
| 471 | (* | |
| 472 | * $Log$ | |
| 473 | *) | |
| 474 |
|
||||||||
| root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
| Powered by ViewVC 1.0.0 |
