diff --git a/ld/ChangeLog b/ld/ChangeLog index e09a68e15d..a2de168287 100644 --- a/ld/ChangeLog +++ b/ld/ChangeLog @@ -1,3 +1,13 @@ +2003-03-13 Danny Smith + + * deffilep.y (def_import): Use default extension of "dll" + if no extension provided in parsed IMPORT definition. + + * deffilep.y (def_lex): Revert 2003-03-12 change. + (dot_name): New id type and rule. + (expline): Use instead of ID. + (opt_equal_name): Likewise. + 2003-03-12 Danny Smith * deffilep.y (def_lex): Accept '.' as valid non-lead char. diff --git a/ld/deffilep.y b/ld/deffilep.y index 08c5a9142e..529b826113 100644 --- a/ld/deffilep.y +++ b/ld/deffilep.y @@ -116,7 +116,7 @@ static const char *lex_parse_string_end = 0; %token NUMBER %type opt_base opt_ordinal %type attr attr_list opt_number exp_opt_list exp_opt -%type opt_name opt_equal_name +%type opt_name opt_equal_name dot_name %% @@ -151,7 +151,7 @@ expline: /* The opt_comma is necessary to support both the usual DEF file syntax as well as .drectve syntax which mandates ,. */ - ID opt_equal_name opt_ordinal opt_comma exp_opt_list + dot_name opt_equal_name opt_ordinal opt_comma exp_opt_list { def_exports ($1, $2, $3, $5); } ; exp_opt_list: @@ -231,7 +231,7 @@ opt_ordinal: ; opt_equal_name: - '=' ID { $$ = $2; } + '=' dot_name { $$ = $2; } | { $$ = 0; } ; @@ -239,6 +239,14 @@ opt_base: BASE '=' NUMBER { $$ = $3;} | { $$ = 0;} ; +dot_name: ID { $$ = $1; } + | dot_name '.' ID + { + char * name = xmalloc (strlen ($1) + 1 + strlen ($3) + 1); + sprintf (name, "%s.%s", $1, $3); + $$ = name; + } + ; %% @@ -799,13 +807,11 @@ def_import (internal_name, module, dllext, name, ordinal) int ordinal; { char *buf = 0; - - if (dllext != NULL) - { - buf = (char *) xmalloc (strlen (module) + strlen (dllext) + 2); - sprintf (buf, "%s.%s", module, dllext); - module = buf; - } + const char *ext = dllext ? dllext : "dll"; + + buf = (char *) xmalloc (strlen (module) + strlen (ext) + 2); + sprintf (buf, "%s.%s", module, ext); + module = buf; def_file_add_import (def, name, module, ordinal, internal_name); if (buf) @@ -1020,7 +1026,7 @@ def_lex () #endif } - while (c != EOF && (ISALNUM (c) || strchr ("$:-_?/@.", c))) + while (c != EOF && (ISALNUM (c) || strchr ("$:-_?/@", c))) { put_buf (c); c = def_getc ();