Inserita una istruzione per raccogliere l'errore dopo la i4create().

git-svn-id: svn://10.65.10.50/trunk@1623 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1995-07-20 09:11:28 +00:00
parent 252c1f05f3
commit eb32e8ff41

View File

@ -752,6 +752,7 @@ int DB_packindex(short vis, const char * filename, RecDes *r, long *peod)
if (u4switch() & 1 || u4switch() & 4) /* FOXPRO and DBIV */
{
rt = (int)i4create(dbdata[handle],NULL,tags);
if (rt == 0) rt = code_base.error_code;
#ifndef FOXPRO
progind_set_status((long)r->NKeys);
#endif