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

src/vm/program.cc

Index: src/vm/program.cc
diff --git a/src/vm/program.cc b/src/vm/program.cc
index 78f9ad445ba350007e15e98144a8f37c847a53a2..253e0cba280b93284cadbc08a6683337eca193a4 100644
--- a/src/vm/program.cc
+++ b/src/vm/program.cc
@@ -1416,9 +1416,16 @@ void Program::Initialize() {
   }
 
   {
-    InstanceFormat format =
-        InstanceFormat::instance_format(2, InstanceFormat::FOREIGN_MARKER);
-    foreign_class_ = Class::cast(
+    InstanceFormat format = InstanceFormat::instance_format(
+        1, InstanceFormat::FOREIGN_FUNCTION_MARKER);
+    foreign_function_class_ = Class::cast(
+        heap()->CreateClass(format, meta_class_, null_object_));
+  }
+
+  {
+    InstanceFormat format = InstanceFormat::instance_format(
+        2, InstanceFormat::FOREIGN_MEMORY_MARKER);
+    foreign_memory_class_ = Class::cast(
         heap()->CreateClass(format, meta_class_, null_object_));
   }