Check-in [10a868e720]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:small change to make vectcl compile with gcc 4.1
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 10a868e7207b53594294333c4db052422e48b0b8
User & Date: chw 2016-12-17 20:11:54.893
Context
2016-12-17
21:10
use eventfd in sdltk if available check-in: 74da14b856 user: chw tags: trunk
20:11
small change to make vectcl compile with gcc 4.1 check-in: 10a868e720 user: chw tags: trunk
18:47
use eventfd in borg and ble commands check-in: 6c4bb775d0 user: chw tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to jni/VecTcl/generic/tcl_xerbla.c.
19
20
21
22
23
24
25
26
27
28
29
30
31
32
  info: Number of the invalid parameter.
*/

/* The Tcl_Interp in a thread-safe way in a call chain from all subroutines
 * and return codes are used. Thus we can really just report an error
 * as usual within Tcl */

int vectcl_xerbla(Tcl_Interp *interp, char *srname, integer *info)
{
        const char* format = "%s: parameter number %d is invalid";

        Tcl_SetObjResult(interp, Tcl_ObjPrintf(format, srname, (int)*info));
	return TCL_ERROR;
}







|






19
20
21
22
23
24
25
26
27
28
29
30
31
32
  info: Number of the invalid parameter.
*/

/* The Tcl_Interp in a thread-safe way in a call chain from all subroutines
 * and return codes are used. Thus we can really just report an error
 * as usual within Tcl */

MODULE_SCOPE int vectcl_xerbla(Tcl_Interp *interp, char *srname, integer *info)
{
        const char* format = "%s: parameter number %d is invalid";

        Tcl_SetObjResult(interp, Tcl_ObjPrintf(format, srname, (int)*info));
	return TCL_ERROR;
}