* c-lang.c (_initialize_c_language): Name changed from
_initialize_c_exp. * m2-lang.c (_initialize_m2_language): Name changed from _initialize_m2_exp. * m2-lang.c (_initialize_m2_language): Change malloc to xmalloc since it is no longer inside m2-exp.y, where it was remapped by Makefile. **** start-sanitize-chill **** * ch-lang.c (_initialize_chill_language): Name changed from _initialize_chill_exp. **** end-sanitize-chill ****
This commit is contained in:
parent
22e3975901
commit
d62e7a20d8
4 changed files with 14 additions and 6 deletions
|
@ -1,5 +1,11 @@
|
|||
Tue Dec 8 13:30:58 1992 Fred Fish (fnf@cygnus.com)
|
||||
|
||||
* c-lang.c (_initialize_c_language): Name changed from
|
||||
_initialize_c_exp.
|
||||
* m2-lang.c (_initialize_m2_language): Name changed from
|
||||
_initialize_m2_exp.
|
||||
* m2-lang.c (_initialize_m2_language): Change malloc to xmalloc since
|
||||
it is no longer inside m2-exp.y, where it was remapped by Makefile.
|
||||
* c-exp.y, m2-exp.y: Migrate code that has nothing to do with
|
||||
expression parsing into c-lang.c and m2-lang.c respectively.
|
||||
* c-lang.c, m2-lang.c: New files, code migrated from c-exp.y and
|
||||
|
@ -19,6 +25,8 @@ Tue Dec 8 13:30:58 1992 Fred Fish (fnf@cygnus.com)
|
|||
parsing into ch-lang.c.
|
||||
* ch-lang.c: New file, code migrated from c-exp.y.
|
||||
* ch-lang.h: New file, internal interface between ch-* files.
|
||||
* ch-lang.c (_initialize_chill_language): Name changed from
|
||||
_initialize_chill_exp.
|
||||
**** end-sanitize-chill ****
|
||||
|
||||
Changes for Amiga Unix from rhealey@ub.d.umn.edu.
|
||||
|
|
|
@ -452,7 +452,7 @@ const struct language_defn cplus_language_defn = {
|
|||
};
|
||||
|
||||
void
|
||||
_initialize_c_exp ()
|
||||
_initialize_c_language ()
|
||||
{
|
||||
builtin_type_void =
|
||||
init_type (TYPE_CODE_VOID, 1,
|
||||
|
|
|
@ -279,7 +279,7 @@ const struct language_defn chill_language_defn = {
|
|||
/* Initialization for Chill */
|
||||
|
||||
void
|
||||
_initialize_chill_exp ()
|
||||
_initialize_chill_language ()
|
||||
{
|
||||
builtin_type_chill_bool =
|
||||
init_type (TYPE_CODE_BOOL, TARGET_CHAR_BIT / TARGET_CHAR_BIT,
|
||||
|
|
|
@ -418,7 +418,7 @@ const struct language_defn m2_language_defn = {
|
|||
/* Initialization for Modula-2 */
|
||||
|
||||
void
|
||||
_initialize_m2_exp ()
|
||||
_initialize_m2_language ()
|
||||
{
|
||||
/* Modula-2 "pervasive" types. NOTE: these can be redefined!!! */
|
||||
builtin_type_m2_int =
|
||||
|
@ -444,12 +444,12 @@ _initialize_m2_exp ()
|
|||
|
||||
TYPE_NFIELDS(builtin_type_m2_bool) = 2;
|
||||
TYPE_FIELDS(builtin_type_m2_bool) =
|
||||
(struct field *) malloc (sizeof (struct field) * 2);
|
||||
(struct field *) xmalloc (sizeof (struct field) * 2);
|
||||
TYPE_FIELD_BITPOS(builtin_type_m2_bool,0) = 0;
|
||||
TYPE_FIELD_NAME(builtin_type_m2_bool,0) = (char *)malloc(6);
|
||||
TYPE_FIELD_NAME(builtin_type_m2_bool,0) = (char *)xmalloc(6);
|
||||
strcpy(TYPE_FIELD_NAME(builtin_type_m2_bool,0),"FALSE");
|
||||
TYPE_FIELD_BITPOS(builtin_type_m2_bool,1) = 1;
|
||||
TYPE_FIELD_NAME(builtin_type_m2_bool,1) = (char *)malloc(5);
|
||||
TYPE_FIELD_NAME(builtin_type_m2_bool,1) = (char *)xmalloc(5);
|
||||
strcpy(TYPE_FIELD_NAME(builtin_type_m2_bool,1),"TRUE");
|
||||
|
||||
add_language (&m2_language_defn);
|
||||
|
|
Loading…
Reference in a new issue