Work in progres, please take a look and give early feedback if this is the way we want to structure…

src/vm/program.cc

 // Copyright (c) 2014, the Fletch project authors. Please see the AUTHORS file
 // for details. All rights reserved. Use of this source code is governed by a
 // BSD-style license that can be found in the LICENSE.md file.
 
 #include "src/vm/program.h"
 
 // TODO(ager): Implement a self-contained simple hash map.
 #include <stdlib.h>
 #include <string.h>
 
@@ skipping 1399 matching lines @@
 
   {
     InstanceFormat format =
         InstanceFormat::instance_format(1, InstanceFormat::PORT_MARKER);
     port_class_ = Class::cast(
         heap()->CreateClass(format, meta_class_, null_object_));
   }
 
   {
     InstanceFormat format =
-        InstanceFormat::instance_format(2, InstanceFormat::FOREIGN_MARKER);
-    foreign_class_ = Class::cast(
+        InstanceFormat::instance_format(1,
+                                        InstanceFormat::FOREIGNFUNCTION_MARKER);
+    foreignfunction_class_ = Class::cast(
         heap()->CreateClass(format, meta_class_, null_object_));
   }
 
+  {
+    InstanceFormat format =
+        InstanceFormat::instance_format(2,
+                                        InstanceFormat::FOREIGNMEMORY_MARKER);
+    foreignmemory_class_ = Class::cast(
+        heap()->CreateClass(format, meta_class_, null_object_));
+  }
+
   {
     InstanceFormat format = InstanceFormat::initializer_format();
     initializer_class_ = Class::cast(
         heap()->CreateClass(format, meta_class_, null_object_));
   }
 
   {
     InstanceFormat format = InstanceFormat::instance_format(1);
     constant_list_class_ = Class::cast(
         heap()->CreateClass(format, meta_class_, null_object_));
@@ skipping 157 matching lines @@
     if (entry->get(3) != NULL) continue;
     Object* target = entry->get(2);
     if (target == NULL) continue;
     Function* method = Function::cast(target);
     Object* intrinsic = reinterpret_cast<Object*>(method->ComputeIntrinsic());
     entry->set(3, intrinsic);
   }
 }
 
 }  // namespace fletch