root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

This commit was generated by cvs2svn to compensate for changes in r1578,

Browse Source 
which included commits to RCS files with non-trunk default branches.

git-svn-id: svn://10.65.10.50/trunk@1579 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1995-07-07 19:55:48 +00:00
parent 6147deb1d5
commit 39e9649462
1 changed files with 6 additions and 4 deletions

10
cb5/d4append.c

@ -10,7 +10,7 @@
#ifndef S4OFF_WRITE
int S4FUNCTION d4append( DATA4 *data )
{
int rc, save_error, i ;
int rc, save_error, i , ntag;
long new_id ;
#ifndef S4INDEX_OFF
TAG4 *tag_on ;
@ -94,7 +94,7 @@ int S4FUNCTION d4append( DATA4 *data )
}
#endif /* not S4SINGLE */
for( tag_on = 0 ;; )
for( tag_on = 0, ntag = 0;; ntag++)
{
tag_on = d4tag_next( data, tag_on ) ;
if ( !tag_on )
@ -115,12 +115,14 @@ int S4FUNCTION d4append( DATA4 *data )
}
e4set( data->code_base, save_error ) ;
data->rec_num = 0 ;
data->rec_num = 0;
#ifndef S4SINGLE
d4unlock_append( data ) ;
if ( !index_locked )
d4unlock_index( data ) ;
#endif
#endif
if (rc == e4unique)
data->rec_num = ntag; // 2nd hammer shot
return rc ;
}
}