BerkeleyDB

Check-in [1a0da765cd]
Login

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

Overview
Comment:Corrected flags for key DBT in secondary key callback
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk | v2.2.2
Files: files | file ages | folders
SHA1:1a0da765cd3a4a86c31d25526575c02d477fa951
User & Date: murphy 2013-06-07 01:46:35
Context
2013-06-07
01:47
Updated release information check-in: 58f4d93802 user: murphy tags: trunk
01:46
Corrected flags for key DBT in secondary key callback check-in: 1a0da765cd user: murphy tags: trunk, v2.2.2
01:39
Updated release information check-in: 3043953abd user: murphy tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to berkeley-db.scm.

735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
       ((foreign-lambda*
	 void (((nonnull-c-pointer "DBT") results)
	       (unsigned-long result_count))
	 "size_t results_size = result_count * sizeof(DBT);"
	 "if ((results->data = malloc(results_size))) {"
	 "  memset(results->data, 0, results_size);"
	 "  results->size = result_count;"
	 "  results->flags = DB_DBT_APPMALLOC;"
	 "}")
	results result-count)
       (do ((i 0 (fx+ i 1))) ((fx>= i result-count))
	 (let ((result-data (vector-ref result-data i)))
	   ((foreign-lambda*
	     void (((nonnull-c-pointer "DBT") results)
		   (unsigned-long i)







|







735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
       ((foreign-lambda*
	 void (((nonnull-c-pointer "DBT") results)
	       (unsigned-long result_count))
	 "size_t results_size = result_count * sizeof(DBT);"
	 "if ((results->data = malloc(results_size))) {"
	 "  memset(results->data, 0, results_size);"
	 "  results->size = result_count;"
	 "  results->flags = DB_DBT_APPMALLOC | DB_DBT_MULTIPLE;"
	 "}")
	results result-count)
       (do ((i 0 (fx+ i 1))) ((fx>= i result-count))
	 (let ((result-data (vector-ref result-data i)))
	   ((foreign-lambda*
	     void (((nonnull-c-pointer "DBT") results)
		   (unsigned-long i)