From: Pierre Muller <muller@sourceware.org>
Date: Mon, 19 Jun 2000 10:14:22 +0000 (+0000)
Subject:     * defs.h: define language_pascal in language enumeration.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=750ba3824fea2961470efaf68b77255c2d0228a3;p=binutils-gdb.git

* defs.h: define language_pascal in language enumeration.
    * language.h: define _LANG_pascal macro.
    * language.c: add language_pascal support in all language dependant functions.
---

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 55a1a49f36d..f67c9ca32a1 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,10 @@
+2000-06-16  Pierre Muller  <muller@ics.u-strasbg.fr>
+
+	* defs.h: define language_pascal in language enumeration.
+	* language.h: define _LANG_pascal macro.
+	* language.c: add language_pascal support in all language dependant
+   functions.
+
 Sun Jun 18 01:01:09 2000  Andrew Cagney  <cagney@b1.cygnus.com>
 
 	* mips-tdep.c (mips_debug): New variable.
diff --git a/gdb/defs.h b/gdb/defs.h
index 093358ff859..f00f76ef20e 100644
--- a/gdb/defs.h
+++ b/gdb/defs.h
@@ -196,7 +196,8 @@ enum language
     language_fortran,		/* Fortran */
     language_m2,		/* Modula-2 */
     language_asm,		/* Assembly language */
-    language_scm		/* Scheme / Guile */
+    language_scm,    		/* Scheme / Guile */
+    language_pascal		/* Pascal */
   };
 
 enum precision_type
diff --git a/gdb/language.c b/gdb/language.c
index 60f43d3f3b4..fd81f6738c9 100644
--- a/gdb/language.c
+++ b/gdb/language.c
@@ -814,6 +814,7 @@ integral_type (type)
       return (TYPE_CODE (type) != TYPE_CODE_INT) &&
 	(TYPE_CODE (type) != TYPE_CODE_ENUM) ? 0 : 1;
     case language_m2:
+    case language_pascal:
       return TYPE_CODE (type) != TYPE_CODE_INT ? 0 : 1;
     case language_chill:
       error ("Missing Chill support in function integral_type.");	/*FIXME */
@@ -849,6 +850,7 @@ character_type (type)
     {
     case language_chill:
     case language_m2:
+    case language_pascal:
       return TYPE_CODE (type) != TYPE_CODE_CHAR ? 0 : 1;
 
     case language_c:
@@ -871,6 +873,7 @@ string_type (type)
     {
     case language_chill:
     case language_m2:
+    case language_pascal:
       return TYPE_CODE (type) != TYPE_CODE_STRING ? 0 : 1;
 
     case language_c:
@@ -935,6 +938,11 @@ structured_type (type)
       return (TYPE_CODE (type) == TYPE_CODE_STRUCT) ||
 	(TYPE_CODE (type) == TYPE_CODE_UNION) ||
 	(TYPE_CODE (type) == TYPE_CODE_ARRAY);
+   case language_pascal:
+      return (TYPE_CODE(type) == TYPE_CODE_STRUCT) ||
+	 (TYPE_CODE(type) == TYPE_CODE_UNION) ||
+	 (TYPE_CODE(type) == TYPE_CODE_SET) ||
+	    (TYPE_CODE(type) == TYPE_CODE_ARRAY);
     case language_m2:
       return (TYPE_CODE (type) == TYPE_CODE_STRUCT) ||
 	(TYPE_CODE (type) == TYPE_CODE_SET) ||
@@ -966,7 +974,11 @@ lang_bool_type ()
 	}
       return builtin_type_f_logical_s2;
     case language_cplus:
-      sym = lookup_symbol ("bool", NULL, VAR_NAMESPACE, NULL, NULL);
+    case language_pascal:
+      if (current_language->la_language==language_cplus)
+        {sym = lookup_symbol ("bool", NULL, VAR_NAMESPACE, NULL, NULL);}
+      else
+        {sym = lookup_symbol ("boolean", NULL, VAR_NAMESPACE, NULL, NULL);}
       if (sym)
 	{
 	  type = SYMBOL_TYPE (sym);
@@ -1160,6 +1172,21 @@ binop_type_check (arg1, arg2, op)
 	    }
 #endif
 
+#ifdef _LANG_pascal
+      case language_pascal:
+	 switch(op)
+	 {
+	 case BINOP_DIV:
+	    if (!float_type(t1) && !float_type(t2))
+	       type_op_error ("Arguments to %s must be floating point numbers.",op);
+	    break;
+	 case BINOP_INTDIV:
+	    if (!integral_type(t1) || !integral_type(t2))
+	       type_op_error ("Arguments to %s must be of integral type.",op);
+	    break;
+	 }
+#endif
+
 #ifdef _LANG_chill
 	case language_chill:
 	  error ("Missing Chill support in function binop_type_check.");	/*FIXME */
diff --git a/gdb/language.h b/gdb/language.h
index 185bc919ea0..8de751d3e0c 100644
--- a/gdb/language.h
+++ b/gdb/language.h
@@ -35,7 +35,8 @@ struct expression;
 #define	_LANG_c
 #define	_LANG_m2
 #define	_LANG_chill
-#define _LANG_fortran
+#define  _LANG_fortran
+#define  _LANG_pascal
 
 #define MAX_FORTRAN_DIMS  7	/* Maximum number of F77 array dims */