Changeset 3249 for trunk/tools

Timestamp:

Mar 27, 2000, 2:52:13 PM (25 years ago)

Author:

bird

Message:

Hacking...

File:

• trunk/tools/dbginfo/kHll.cpp (modified) (2 diffs)

trunk/tools/dbginfo/kHll.cpp

@@ -1 @@
-/* $Id: kHll.cpp,v 1.7 2000-03-27 12:36:17 bird Exp $
+/* $Id: kHll.cpp,v 1.8 2000-03-27 12:52:13 bird Exp $
  *
  * kHll - Implementation of the class kHll.
@@ -655 +655 @@
     if (cch != sizeof(hllHdr))
         return -1;
+
+    /*
+     * Hacking:
+     * Writing an extra HLL header pointing to an non-existing directory
+     * staring at the last byte of this header.
+     */
+    if (fseek(phFile, lPosStart + cchWritten, SEEK_SET) != 0)
+        return -2;
+    hllHdr.offDirectory = cchWritten + sizeof(hllHdr) - 1;
+    cch = fwrite(&hllHdr, 1, sizeof(hllHdr), phFile);
+    if (cch != sizeof(hllHdr))
+        return -1;
+    cchWritten += cch;
 
     return cchWritten;