Re: [Swarm-Support] Followup: found work-aroundfor missing~/swarmarchiver.scm too

[Marcus G. Daniels]

Paul Johnson wrote:
> All I'm saying, which nobody seems to confirm, is that the Swarm 
> runtime used to stop when a message was sent to nil.  I mean, it used 
> to segfault and gdb would backtrace to expose the problem.  
(But not only moved -- disabled too.)

2003-02-26  Bill Northcott <address@hidden>

       * internal.m move nil_method to libobjc/nil_method.c

$ cvs diff -c -D2003-02-26 -D2003-02-27 internal.m
Index: internal.m
===================================================================
RCS file: /sources/swarm/swarm/src/defobj/internal.m,v
retrieving revision 1.70
retrieving revision 1.71
diff -c -r1.70 -r1.71
*** internal.m  14 Apr 2002 10:02:57 -0000      1.70
--- internal.m  26 Feb 2003 07:48:17 -0000      1.71
***************
*** 644,658 ****
   return baseType;
 }

! #if ((__GNUC__ == 2) && (__GNUC_MINOR__ >= 8)) || (__GNUC__ > 2)
 id
 nil_method (id receiver, SEL op, ...)
 {
   raiseEvent (InvalidArgument,  "The message `%s' was sent to nil.\n",
               sel_get_name (op));
   return nil;
! }
! #endif

 char *
 zstrdup (id aZone, const char *str)
--- 644,659 ----
   return baseType;
 }

! /* nil_method moved to libojc/nil_method.c */
! /* #if ((__GNUC__ == 2) && (__GNUC_MINOR__ >= 8)) || (__GNUC__ > 2)
 id
 nil_method (id receiver, SEL op, ...)
 {
   raiseEvent (InvalidArgument,  "The message `%s' was sent to nil.\n",
               sel_get_name (op));
   return nil;
! } */
! // #endif

 char *
 zstrdup (id aZone, const char *str)


$ cvs diff -c -D2003-02-26 -D2003-02-27 nil_method.c
Index: nil_method.c
===================================================================
RCS file: /sources/swarm/swarm/libobjc/nil_method.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -c -r1.1.1.1 -r1.2
*** nil_method.c        14 Mar 1999 19:19:18 -0000      1.1.1.1
--- nil_method.c        26 Feb 2003 07:48:39 -0000      1.2
***************
*** 29,40 ****

 #include "runtime.h"

 id
 nil_method(id receiver, SEL op, ...)
 {
   return receiver;
 }
!



--- 29,49 ----

 #include "runtime.h"

+ #if debug
+ id
+ nil_method (id receiver, SEL op, ...)
+ {
+   raiseEvent (InvalidArgument,  "The message `%s' was sent to nil.\n",
+               sel_get_name (op));
+   return nil;
+ }
+ #else
 id
 nil_method(id receiver, SEL op, ...)
 {
   return receiver;
 }
! #endif