184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
|
int - long - Tcl_WideInt {
set return_failure "return(-1)"
}
ok {
set return_failure "return(TCL_ERROR)"
}
double - float {
set return_failure "return(NaN)"
}
default {
set return_failure "return(NULL)"
}
}
}
} else {
|
|
|
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
|
int - long - Tcl_WideInt {
set return_failure "return(-1)"
}
ok {
set return_failure "return(TCL_ERROR)"
}
double - float {
set return_failure "return(($rtype) ((($rtype) 1.0) / (($rtype) 0.0)))"
}
default {
set return_failure "return(NULL)"
}
}
}
} else {
|