Update to the newest upstream version.

[vlp.git] / int / process.c

diff --git a/int/process.c b/int/process.c
index 2ff8706eacbecd76817010a001d9e45754a5509e..310e73bbd947f11fcebe47a25a38bac899073324 100644 (file)
--- a/int/process.c
+++ b/int/process.c
@@ -498,6 +498,7 @@ void sendmsg1(msg)                  /* Send message via net */
 message *msg;
 {
  MESSAGE m;
+ int result=1;
 
     msg->control.sender.node = ournode;
     msg->control.sender.pix  = thispix;
@@ -521,8 +522,12 @@ message *msg;
      m.param.pword[2] = my_ctx.node;
      m.param.pword[3] = my_ctx.program_id;     
      memcpy(&m.int_msg,msg,sizeof(message));
-     send_to_net(&m);
-
+     result = send_to_net(&m);
+     if (result == 0) {
+        /* 2010 local allocation */
+        msg->control.receiver.node == ournode;
+        msginterrupt(msg);         /* call directly interrupt handler */
+     }
     }
 }