debugg

packages/myddas/sqlite3/myddas_sqlite3.c

@@ -595,7 +595,7 @@ static Int c_sqlite3_row(USES_REGS1) {
         size_t bytes = sqlite3_column_bytes(res_set->stmt, i);
         void *pt;
         tf = Yap_AllocExternalDataInStack(EXTERNAL_BLOB, bytes, &pt);
-        memcpy(pt, sqlite3_column_blob(res_set->stmt, i), bytes);
+        memmove(pt, sqlite3_column_blob(res_set->stmt, i), bytes);
       } break;
       case SQLITE_NULL:
         null_atom[0] = MkIntegerTerm(null_id++);

packages/myddas/sqlite3/sqlitest.yap

@@ -71,7 +71,7 @@ go :-
 	go_cut1.
 
 go :-
-	X=1,
+%	X=1,
     artists(X,Y),
     writeln(X:Y).
 
@@ -82,7 +82,7 @@ go_cut0 :-
 
 
 go_cut1 :-
-	X=1,
+%	X=1,
     artists(X,Y),
     writeln(X:Y),
     !.
@@ -90,4 +90,4 @@ go_cut1 :-
 close :-
 	db_close.
 
-:- main.
+:- initialization(main).