WebSVN – SvarDOS – Diff – //svarlang.lib/trunk/svarlang.c

   if (buff16[0] & 0x8000) {
     unsigned short compressedsize = buff16[1] / 2;
     unsigned short i;
     char *dst = svarlang_mem;
     unsigned char rawwords = 0; /* number of uncompressible words */
+    unsigned short *mvcompptr;
+    /* start by loading the entire block at the end of the svarlang mem */
+    mvcompptr = (void *)(svarlang_mem + svarlang_memsz - buff16[1]);
+    if (FREAD(fd, mvcompptr, buff16[1]) != buff16[1]) {
+      exitcode = -5;
+      goto FCLOSE_AND_EXIT;
+    }
+    /* uncompress now */
     for (i = 0; i < compressedsize; i++) {
-      /* read a word token */
+      /* get next mvcomp token */
-      if (FREAD(fd, buff16, 2) != 2) {
-        exitcode = -5;
+      buff16[0] = mvcompptr[i];
-        goto FCLOSE_AND_EXIT;
-      }
       /* token format is LLLL OOOO OOOO OOOO, where:
        * OOOO OOOO OOOO is the back reference offset (number of bytes-1 to rewind)
        * LLLL is the number of bytes (-1) that have to be copied from the offset.
+       *
     goto FCLOSE_AND_EXIT;
+  }
   /* lang block not compressed - load as is */
   if (FREAD(fd, svarlang_mem, buff16[1]) != buff16[1]) {
-    exitcode = -6;
+    exitcode = -7;
+  }
   FCLOSE_AND_EXIT:
   FCLOSE(fd);

Subversion Repositories SvarDOS