From: ken <ken@mihrtec.com>
Date: Wed, 8 Mar 2017 01:01:32 +0000 (-0800)
Subject: ston_ht32_fwrite
X-Git-Url: https://git.kengrimes.com/?p=henge%2Fapc.git;a=commitdiff_plain;h=43d6067b655dbb51a4db074cfae58618b4ebb493

ston_ht32_fwrite

implemented, bugs fixed
---

diff --git a/ston/ston_ht.h b/ston/ston_ht.h
index 5063431..4cddc78 100644
--- a/ston/ston_ht.h
+++ b/ston/ston_ht.h
@@ -195,8 +195,10 @@ size_t ston_ht32_fwrite
 { size_t bytes_written;
   long   fpos_start;
   if ((fpos_start = ftell(file)) == NULL
+      || fseek(file, fpos, SEEK_SET) == 0
       || (bytes_written = fwrite(file, 1, sizeof(ston_ht_h), file)) < sizeof(ston_ht_h)
-      || (bytes_written += fwrite(file, 1, ston_ht32_bytes(ht), file)) < (sizeof(ston_ht_h) + ston_ht32_bytes(ht)))
+      || (bytes_written += fwrite(file, 1, ston_ht32_bytes(ht), file)) < (sizeof(ston_ht_h) + ston_ht32_bytes(ht))
+      || fseek(file, fpos_start, SEEK_SET) == 0)
     return 0;
   return bytes_written;
 }