Changeset 12992

Timestamp:

Oct 10, 2009, 7:45:10 AM (15 years ago)

Author:

gz

Message:

Changes for images larger than 2GB (r12811)

File:

• branches/working-0711/ccl/lisp-kernel/image.c (modified) (3 diffs)

branches/working-0711/ccl/lisp-kernel/image.c

@@ -26 +26 @@
 #endif
 #include <stdio.h>
+#include <limits.h>
 
 
@@ -175 +176 @@
   off_t
     pos = seek_to_next_page(fd), advance;
-  int 
+  natural
     mem_size = sect->memory_size;
   void *addr;
@@ -379 +380 @@
 writebuf(int fd, char *bytes, natural n)
 {
-  natural remain = n;
-  int result;
+  natural remain = n, this_size;
+  signed_natural result;
 
   while (remain) {
-    result = write(fd, bytes, remain);
+    this_size = remain;
+    if (this_size > INT_MAX) {
+      this_size = INT_MAX;
+    }
+    result = write(fd, bytes, this_size);
     if (result < 0) {
       return errno;
     }
     bytes += result;
+
     remain -= result;
   }