diff options
author | Danny Smith <dannysmith@users.sourceforge.net> | 2003-03-13 09:39:09 +0000 |
---|---|---|
committer | Danny Smith <dannysmith@users.sourceforge.net> | 2003-03-13 09:39:09 +0000 |
commit | 053c44e1bfece752ad00adbab7a4ceb57726eb1c (patch) | |
tree | 767f5b05bdf62a9e229745ecc1c3547dc8036255 | |
parent | 93516ec3e0f11b752f2440d6c198ae8cb0b8b430 (diff) | |
download | binutils-gdb-053c44e1bfece752ad00adbab7a4ceb57726eb1c.tar.gz |
* 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.
-rw-r--r-- | ld/ChangeLog | 10 | ||||
-rw-r--r-- | ld/deffilep.y | 28 |
2 files changed, 27 insertions, 11 deletions
diff --git a/ld/ChangeLog b/ld/ChangeLog index e09a68e15df..a2de1682877 100644 --- a/ld/ChangeLog +++ b/ld/ChangeLog @@ -1,3 +1,13 @@ +2003-03-13 Danny Smith <dannysmith@users.sourceforge,net> + + * 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 <dannysmith@users.sourceforge.net> * deffilep.y (def_lex): Accept '.' as valid non-lead char. diff --git a/ld/deffilep.y b/ld/deffilep.y index 08c5a9142eb..529b8261130 100644 --- a/ld/deffilep.y +++ b/ld/deffilep.y @@ -116,7 +116,7 @@ static const char *lex_parse_string_end = 0; %token <number> NUMBER %type <number> opt_base opt_ordinal %type <number> attr attr_list opt_number exp_opt_list exp_opt -%type <id> opt_name opt_equal_name +%type <id> 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 <expsym>,<expoptlist>. */ - 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 (); |