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

src/vm/process.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/process.h"
 
 #include <errno.h>
 #include <stdlib.h>
 
 #include "src/shared/bytecodes.h"
@@ skipping 863 matching lines @@
       break;
     }
 
     case PortQueue::LARGE_INTEGER:
       result = process->NewInteger(queue->value());
       if (result == Failure::retry_after_gc()) return result;
       break;
 
     case PortQueue::FOREIGN:
     case PortQueue::FOREIGN_FINALIZED: {
-      Class* foreign_class = process->program()->foreign_class();
-      ASSERT(foreign_class->NumberOfInstanceFields() == 2);
-      Object* object = process->NewInstance(foreign_class);
+      Class* foreignmemory_class = process->program()->foreignmemory_class();

[kasperl, 2015/07/03 07:49:54]

foreign_memory_class

[ricow1, 2015/07/03 08:57:25]

Done.

+      ASSERT(foreignmemory_class->NumberOfInstanceFields() == 2);
+      Object* object = process->NewInstance(foreignmemory_class);
       if (object == Failure::retry_after_gc()) return object;
       Instance* foreign = Instance::cast(object);
       uword address = queue->address();
       // TODO(ager): Two allocations in a native doesn't work with
       // the retry after gc strategy. We should restructure.
       object = process->ToInteger(address);
       if (object == Failure::retry_after_gc()) return object;
       foreign->SetInstanceField(0, object);
       foreign->SetInstanceField(1, Smi::FromWord(queue->size()));
       if (kind == PortQueue::FOREIGN_FINALIZED) {
@@ skipping 29 matching lines @@
   while (queue != NULL) {
     Instance* channel = queue->port()->channel();
     if (channel != NULL) return channel;
     process->AdvanceCurrentMessage();
     queue = process->CurrentMessage();
   }
   return process->program()->null_object();
 }
 
 }  // namespace fletch