Overview
| Comment: | Corrected floating point error value |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
56023a368d2e01a092b9e7c35639402a |
| User & Date: | rkeene on 2014-07-16 04:09:15 |
| Other Links: | manifest | tags |
Context
|
2014-07-16
| ||
| 04:13 | More work on wrapping Tcl for consumption by C check-in: a88c66196a user: rkeene tags: trunk | |
| 04:09 | Corrected floating point error value check-in: 56023a368d user: rkeene tags: trunk | |
| 04:05 | Updated to support a Tcl_Interp* argument in any position for "proc" check-in: af858c331d user: rkeene tags: trunk | |
Changes
Modified tcc4tcl.tcl from [675d06bcbb] to [49f61e4dc3].
| ︙ | ︙ | |||
184 185 186 187 188 189 190 |
int - long - Tcl_WideInt {
set return_failure "return(-1)"
}
ok {
set return_failure "return(TCL_ERROR)"
}
double - float {
| | | 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 {
|
| ︙ | ︙ |