From eb32e8ff41195e6ccf7601856c73a91eae65911d Mon Sep 17 00:00:00 2001 From: angelo Date: Thu, 20 Jul 1995 09:11:28 +0000 Subject: [PATCH] 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 --- include/codeb.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/include/codeb.c b/include/codeb.c index 1564a1e95..fd388ec3c 100755 --- a/include/codeb.c +++ b/include/codeb.c @@ -751,7 +751,8 @@ 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); + rt = (int)i4create(dbdata[handle],NULL,tags); + if (rt == 0) rt = code_base.error_code; #ifndef FOXPRO progind_set_status((long)r->NKeys); #endif