aboutsummaryrefslogtreecommitdiff
path: root/src/comp/middle/ty.rs
diff options
context:
space:
mode:
authorGraydon Hoare <[email protected]>2011-03-03 18:18:51 -0800
committerGraydon Hoare <[email protected]>2011-03-03 18:18:59 -0800
commit652cb484758a72811e16a574805ce60827daa153 (patch)
tree6dfe80b6c6f6c09131ccee0b424071bda4d5b183 /src/comp/middle/ty.rs
parentrustc: Make tag discriminants per-tag-ID, not per-tag-ID-and-subtypes (diff)
downloadrust-652cb484758a72811e16a574805ce60827daa153.tar.xz
rust-652cb484758a72811e16a574805ce60827daa153.zip
Assortment of additional work on vec-append. Not done yet.
Diffstat (limited to 'src/comp/middle/ty.rs')
-rw-r--r--src/comp/middle/ty.rs9
1 files changed, 9 insertions, 0 deletions
diff --git a/src/comp/middle/ty.rs b/src/comp/middle/ty.rs
index c85892f2..2fc3160c 100644
--- a/src/comp/middle/ty.rs
+++ b/src/comp/middle/ty.rs
@@ -417,6 +417,15 @@ fn type_is_sequence(@t ty) -> bool {
fail;
}
+fn sequence_element_type(@t ty) -> @t {
+ alt (ty.struct) {
+ case (ty_str) { ret plain_ty(ty_machine(common.ty_u8)); }
+ case (ty_vec(?e)) { ret e; }
+ }
+ fail;
+}
+
+
fn type_is_tup_like(@t ty) -> bool {
alt (ty.struct) {
case (ty_box(_)) { ret true; }