mutated_ocaml / byterun / intern.c

Diff from to

byterun/intern.c

 /*                                                                     */
 /***********************************************************************/
 
-/* $Id: intern.c 12441 2012-05-08 13:48:33Z xleroy $ */
+/* $Id: intern.c 12910 2012-09-10 09:52:09Z doligez $ */
 
 /* Structured input, compact format */
 
           ReadItems(&Field(v, 2), size - 2);
           /* Request freshing OID */
           PushItem();
-          sp->op = OFreshOID;                                           
+          sp->op = OFreshOID;
           sp->dest = &Field(v, 1);
           sp->arg = 1;
           /* Finally read first two block elements: method table and old OID */
       case CODE_INFIXPOINTER:
         ofs = read32u();
         /* Read a value to *dest, then offset *dest by ofs */
-        PushItem();                                                     
+        PushItem();
         sp->dest = dest;
-        sp->op = OShift;                                                
+        sp->op = OShift;
         sp->arg = ofs;
         ReadItems(dest, 1);
         continue;  /* with next iteration of main loop, skipping *dest = v */
         caml_failwith("input_value: ill-formed message");
       }
     }
-  } 
+  }
   /* end of case OReadItems */
   *dest = v;
   break;
     Assert(intern_dest <= end_extra_block);
     if (intern_dest < end_extra_block){
       caml_make_free_blocks ((value *) intern_dest,
-                             end_extra_block - intern_dest, 0);
+                             end_extra_block - intern_dest, 0, Caml_white);
     }
     caml_allocated_words +=
       Wsize_bsize ((char *) intern_dest - intern_extra_block);
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.