Check-in [56023a368d]
Overview
Comment:Corrected floating point error value
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 56023a368d2e01a092b9e7c35639402a8fe9967f
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
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 {