@@ -51,72 +51,68 @@ type upcalls =
51
51
52
52
fn declare_upcalls ( _tn : type_names , tydesc_type : TypeRef ,
53
53
taskptr_type : TypeRef , llmod : ModuleRef ) -> @upcalls {
54
- fn decl ( llmod : ModuleRef , name : str , tys : [ TypeRef ] ,
55
- rv : TypeRef ) -> ValueRef {
56
- let arg_tys: [ TypeRef ] = ~ [ ] ;
57
- for t: TypeRef in tys { arg_tys += ~ [ t] ; }
54
+ fn decl ( llmod : ModuleRef , name : str , tys : [ TypeRef ] , rv : TypeRef ) ->
55
+ ValueRef {
56
+ let arg_tys: [ TypeRef ] = [ ] ;
57
+ for t: TypeRef in tys { arg_tys += [ t] ; }
58
58
let fn_ty = T_fn ( arg_tys, rv) ;
59
59
ret trans:: decl_cdecl_fn ( llmod, "upcall_" + name, fn_ty) ;
60
60
}
61
- fn decl_with_taskptr ( taskptr_type : TypeRef ,
62
- llmod : ModuleRef , name : str , tys : [ TypeRef ] ,
63
- rv : TypeRef ) -> ValueRef {
64
- ret decl ( llmod, name, ~[ taskptr_type] + tys, rv) ;
61
+ fn decl_with_taskptr ( taskptr_type : TypeRef , llmod : ModuleRef , name : str ,
62
+ tys : [ TypeRef ] , rv : TypeRef ) -> ValueRef {
63
+ ret decl ( llmod, name, [ taskptr_type] + tys, rv) ;
65
64
}
66
65
let dv = bind decl_with_taskptr ( taskptr_type, llmod, _, _, T_void ( ) ) ;
67
66
let d = bind decl_with_taskptr ( taskptr_type, llmod, _, _, _) ;
68
67
let dr = bind decl ( llmod, _, _, _) ;
69
68
70
- let empty_vec: [ TypeRef ] = ~ [ ] ;
71
- ret @{ grow_task : dv ( "grow_task" , ~ [ T_size_t ( ) ] ) ,
69
+ let empty_vec: [ TypeRef ] = [ ] ;
70
+ ret @{ grow_task : dv ( "grow_task" , [ T_size_t ( ) ] ) ,
72
71
_yield : dv ( "yield" , empty_vec) ,
73
- sleep : dv ( "sleep" , ~ [ T_size_t ( ) ] ) ,
74
- _fail : dv ( "fail" , ~ [ T_ptr ( T_i8 ( ) ) , T_ptr ( T_i8 ( ) ) , T_size_t ( ) ] ) ,
75
- kill : dv ( "kill" , ~ [ taskptr_type] ) ,
72
+ sleep : dv ( "sleep" , [ T_size_t ( ) ] ) ,
73
+ _fail : dv ( "fail" , [ T_ptr ( T_i8 ( ) ) , T_ptr ( T_i8 ( ) ) , T_size_t ( ) ] ) ,
74
+ kill : dv ( "kill" , [ taskptr_type] ) ,
76
75
exit : dv ( "exit" , empty_vec) ,
77
76
malloc :
78
- d ( "malloc" , ~ [ T_size_t ( ) , T_ptr ( tydesc_type) ] , T_ptr ( T_i8 ( ) ) ) ,
79
- free : dv ( "free" , ~ [ T_ptr ( T_i8 ( ) ) , T_int ( ) ] ) ,
77
+ d ( "malloc" , [ T_size_t ( ) , T_ptr ( tydesc_type) ] , T_ptr ( T_i8 ( ) ) ) ,
78
+ free : dv ( "free" , [ T_ptr ( T_i8 ( ) ) , T_int ( ) ] ) ,
80
79
shared_malloc :
81
- d ( "shared_malloc" , ~ [ T_size_t ( ) , T_ptr ( tydesc_type) ] ,
80
+ d ( "shared_malloc" , [ T_size_t ( ) , T_ptr ( tydesc_type) ] ,
82
81
T_ptr ( T_i8 ( ) ) ) ,
83
- shared_free : dv ( "shared_free" , ~ [ T_ptr ( T_i8 ( ) ) ] ) ,
84
- mark : d ( "mark" , ~ [ T_ptr ( T_i8 ( ) ) ] , T_int ( ) ) ,
85
- new_str : d ( "new_str" , ~ [ T_ptr ( T_i8 ( ) ) , T_size_t ( ) ] , T_ptr ( T_str ( ) ) ) ,
82
+ shared_free : dv ( "shared_free" , [ T_ptr ( T_i8 ( ) ) ] ) ,
83
+ mark : d ( "mark" , [ T_ptr ( T_i8 ( ) ) ] , T_int ( ) ) ,
84
+ new_str : d ( "new_str" , [ T_ptr ( T_i8 ( ) ) , T_size_t ( ) ] , T_ptr ( T_str ( ) ) ) ,
86
85
evec_append :
87
86
d ( "evec_append" ,
88
- ~ [ T_ptr ( tydesc_type) , T_ptr ( tydesc_type) ,
89
- T_ptr ( T_opaque_vec_ptr ( ) ) , T_opaque_vec_ptr ( ) , T_bool ( ) ] ,
87
+ [ T_ptr ( tydesc_type) , T_ptr ( tydesc_type) ,
88
+ T_ptr ( T_opaque_vec_ptr ( ) ) , T_opaque_vec_ptr ( ) , T_bool ( ) ] ,
90
89
T_void ( ) ) ,
91
90
get_type_desc :
92
91
d ( "get_type_desc" ,
93
- ~ [ T_ptr ( T_nil ( ) ) , T_size_t ( ) , T_size_t ( ) , T_size_t ( ) ,
94
- T_ptr ( T_ptr ( tydesc_type) ) ] , T_ptr ( tydesc_type) ) ,
92
+ [ T_ptr ( T_nil ( ) ) , T_size_t ( ) , T_size_t ( ) , T_size_t ( ) ,
93
+ T_ptr ( T_ptr ( tydesc_type) ) ] , T_ptr ( tydesc_type) ) ,
95
94
ivec_resize :
96
- d ( "ivec_resize" , ~ [ T_ptr ( T_opaque_ivec ( ) ) , T_int ( ) ] , T_void ( ) ) ,
95
+ d ( "ivec_resize" , [ T_ptr ( T_opaque_ivec ( ) ) , T_int ( ) ] , T_void ( ) ) ,
97
96
ivec_spill :
98
- d ( "ivec_spill" , ~ [ T_ptr ( T_opaque_ivec ( ) ) , T_int ( ) ] , T_void ( ) ) ,
97
+ d ( "ivec_spill" , [ T_ptr ( T_opaque_ivec ( ) ) , T_int ( ) ] , T_void ( ) ) ,
99
98
ivec_resize_shared :
100
- d ( "ivec_resize_shared" , ~ [ T_ptr ( T_opaque_ivec ( ) ) , T_int ( ) ] ,
99
+ d ( "ivec_resize_shared" , [ T_ptr ( T_opaque_ivec ( ) ) , T_int ( ) ] ,
101
100
T_void ( ) ) ,
102
101
ivec_spill_shared :
103
- d ( "ivec_spill_shared" , ~ [ T_ptr ( T_opaque_ivec ( ) ) , T_int ( ) ] ,
102
+ d ( "ivec_spill_shared" , [ T_ptr ( T_opaque_ivec ( ) ) , T_int ( ) ] ,
104
103
T_void ( ) ) ,
105
104
cmp_type :
106
- dr ( "cmp_type" , ~ [ T_ptr ( T_i1 ( ) ) , taskptr_type ,
107
- T_ptr ( tydesc_type ) , T_ptr ( T_ptr ( tydesc_type) ) ,
108
- T_ptr ( T_i8 ( ) ) , T_ptr ( T_i8 ( ) ) , T_i8 ( ) ] ,
109
- T_void ( ) ) ,
105
+ dr ( "cmp_type" ,
106
+ [ T_ptr ( T_i1 ( ) ) , taskptr_type , T_ptr ( tydesc_type) ,
107
+ T_ptr ( T_ptr ( tydesc_type ) ) , T_ptr ( T_i8 ( ) ) , T_ptr ( T_i8 ( ) ) ,
108
+ T_i8 ( ) ] , T_void ( ) ) ,
110
109
log_type :
111
- dr ( "log_type" , ~ [ taskptr_type , T_ptr ( tydesc_type ) ,
112
- T_ptr ( T_i8 ( ) ) , T_i32 ( ) ] ,
110
+ dr ( "log_type" ,
111
+ [ taskptr_type , T_ptr ( tydesc_type ) , T_ptr ( T_i8 ( ) ) , T_i32 ( ) ] ,
113
112
T_void ( ) ) ,
114
- dynastack_mark :
115
- d ( "dynastack_mark" , ~[ ] , T_ptr ( T_i8 ( ) ) ) ,
116
- dynastack_alloc :
117
- d ( "dynastack_alloc" , ~[ T_size_t ( ) ] , T_ptr ( T_i8 ( ) ) ) ,
118
- dynastack_free :
119
- d ( "dynastack_free" , ~[ T_ptr ( T_i8 ( ) ) ] , T_void ( ) ) } ;
113
+ dynastack_mark : d ( "dynastack_mark" , [ ] , T_ptr ( T_i8 ( ) ) ) ,
114
+ dynastack_alloc : d ( "dynastack_alloc" , [ T_size_t ( ) ] , T_ptr ( T_i8 ( ) ) ) ,
115
+ dynastack_free : d ( "dynastack_free" , [ T_ptr ( T_i8 ( ) ) ] , T_void ( ) ) } ;
120
116
}
121
117
//
122
118
// Local Variables:
0 commit comments