Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | In the blob test code, avoid crashing on low-memory systems by using Tcl_AttemptAlloc(). |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
1d267757a89d9267ee9c201373f801eb |
| User & Date: | mistachkin 2017-02-15 01:39:28 |
Context
|
2017-02-15
| ||
| 04:16 | Further reforms to Tcl_*Alloc() usage. check-in: ee1e6896 user: mistachkin tags: trunk | |
| 01:39 | In the blob test code, avoid crashing on low-memory systems by using Tcl_AttemptAlloc(). check-in: 1d267757 user: mistachkin tags: trunk | |
|
2017-02-14
| ||
| 21:47 | Clarification of the help text for the command-line shell. check-in: ca4f1e49 user: drh tags: trunk | |
Changes
Changes to src/test_blob.c.
235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 |
if( TCL_OK!=Tcl_GetIntFromObj(interp, objv[2], &iOffset)
|| TCL_OK!=Tcl_GetIntFromObj(interp, objv[3], &nByte)
){
return TCL_ERROR;
}
if( nByte>0 ){
zBuf = (unsigned char *)Tcl_Alloc(nByte);
}
rc = sqlite3_blob_read(pBlob, zBuf, nByte, iOffset);
if( rc==SQLITE_OK ){
Tcl_SetObjResult(interp, Tcl_NewByteArrayObj(zBuf, nByte));
}else{
Tcl_SetResult(interp, (char *)sqlite3ErrName(rc), TCL_VOLATILE);
}
|
| > > > > |
235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 |
if( TCL_OK!=Tcl_GetIntFromObj(interp, objv[2], &iOffset)
|| TCL_OK!=Tcl_GetIntFromObj(interp, objv[3], &nByte)
){
return TCL_ERROR;
}
if( nByte>0 ){
zBuf = (unsigned char *)Tcl_AttemptAlloc(nByte);
if( zBuf==0 ){
Tcl_AppendResult(interp, "out of memory", 0);
return TCL_ERROR;
}
}
rc = sqlite3_blob_read(pBlob, zBuf, nByte, iOffset);
if( rc==SQLITE_OK ){
Tcl_SetObjResult(interp, Tcl_NewByteArrayObj(zBuf, nByte));
}else{
Tcl_SetResult(interp, (char *)sqlite3ErrName(rc), TCL_VOLATILE);
}
|