comparison src/database.c @ 177:6075d714658b r20-3b15

Import from CVS: tag r20-3b15
author cvs
date Mon, 13 Aug 2007 09:51:16 +0200
parents 8eaf7971accc
children 3d6bfa290dbd
comparison
equal deleted inserted replaced
176:6866abce6aaf 177:6075d714658b
650 (key, val, dbase, replace)) 650 (key, val, dbase, replace))
651 { 651 {
652 struct database_struct *db; 652 struct database_struct *db;
653 int status; 653 int status;
654 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4; 654 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
655 655
656 CHECK_DATABASE (dbase); 656 CHECK_DATABASE (dbase);
657 CHECK_STRING (key); 657 CHECK_STRING (key);
658 CHECK_STRING (val);
658 db = XDATABASE (dbase); 659 db = XDATABASE (dbase);
659 if (!DATABASE_LIVE_P (db)) 660 if (!DATABASE_LIVE_P (db))
660 signal_simple_error ("Attempting to access closed database", dbase); 661 signal_simple_error ("Attempting to access closed database", dbase);
661 662
662 GCPRO4 (key, val, dbase, replace); 663 GCPRO4 (key, val, dbase, replace);