gnue geas/lib/classdefs/classdata.c gnue-config...

[Neil Tiffin]

CVSROOT:        /home/cvs
Module name:    gnue
Changes by:     Neil Tiffin <address@hidden>    01/06/22 14:39:02

Modified files:
        geas/lib/classdefs: classdata.c 
        gnue-config/base/person/classes: person.gcd 

Log message:
        Make error reporting more robust for detecting use of types when 
references wanted and correct errors in gcd.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/gnue/geas/lib/classdefs/classdata.c.diff?cvsroot=OldCVS&tr1=1.61&tr2=1.62&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/gnue/gnue-config/base/person/classes/person.gcd.diff?cvsroot=OldCVS&tr1=1.18&tr2=1.19&r1=text&r2=text

Patches:
Index: gnue/geas/lib/classdefs/classdata.c
diff -u gnue/geas/lib/classdefs/classdata.c:1.61 
gnue/geas/lib/classdefs/classdata.c:1.62
--- gnue/geas/lib/classdefs/classdata.c:1.61    Fri Jun  8 08:04:32 2001
+++ gnue/geas/lib/classdefs/classdata.c Fri Jun 22 14:39:01 2001
@@ -22,7 +22,7 @@
    along with this program; if not, write to the Free Software Foundation,
    Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  
 
-   $Id: classdata.c,v 1.61 2001/06/08 15:04:32 ntiffin Exp $
+   $Id: classdata.c,v 1.62 2001/06/22 21:39:01 ntiffin Exp $
    
 */
 
@@ -1826,8 +1826,10 @@
     }
   if (!type_class->istype)
     {
-      printf ("**** Error not a TYPE\n");
-      return;
+      printf ("**** Error trying to process the field %s that is not a 
TYPE.\n", f->base.name);
+      printf ("     In container: %s\n", ( ((odl_base *)f)->parent)->name );
+      printf ("     In filename: %s\n", ( (odl_container *)((odl_base 
*)f)->parent)->filename );
+     return;
     }
   /* it's a compound type - make new fields */
 #ifdef DEBUG
Index: gnue/gnue-config/base/person/classes/person.gcd
diff -u gnue/gnue-config/base/person/classes/person.gcd:1.18 
gnue/gnue-config/base/person/classes/person.gcd:1.19
--- gnue/gnue-config/base/person/classes/person.gcd:1.18        Tue Jun 19 
20:45:32 2001
+++ gnue/gnue-config/base/person/classes/person.gcd     Fri Jun 22 14:39:02 2001
@@ -22,7 +22,7 @@
 #
 # This file originally written by Neil Tiffin (address@hidden).
 #
-# $Revision: 1.18 $ $Date: 2001/06/20 03:45:32 $ $Author: ntiffin $
+# $Revision: 1.19 $ $Date: 2001/06/22 21:39:02 $ $Author: ntiffin $
 #
 
 include "../../../base/location/classes/address.gcd"
@@ -37,7 +37,7 @@
   # ----------------------------------------------
   class name_prefix
   {
-    language::language language;
+    language::language *language;
     
     char    prefix<25>;  # Mr. Ms Dr. etc.
                          # AR. ADir i.R.
@@ -50,7 +50,8 @@
   # ----------------------------------------------
   class name_suffix
   {
-    language::language language;
+    language::language *language;
+    
     char    suffix<8>;  # Jr. III Sr. etc.
   };