* ldgram.y (statement_anywhere): Add assert rule.
authorNathan Sidwell <nathan@codesourcery.com>
Wed, 18 Feb 2004 16:37:21 +0000 (16:37 +0000)
committerNathan Sidwell <nathan@codesourcery.com>
Wed, 18 Feb 2004 16:37:21 +0000 (16:37 +0000)
* ldlang.c (exp_init_os): Add assert case.
* testsuite/ld-scripts/assert.{s,t,exp}: New.

ld/ChangeLog
ld/ldgram.y
ld/ldlang.c
ld/testsuite/ChangeLog
ld/testsuite/ld-scripts/assert.exp [new file with mode: 0644]
ld/testsuite/ld-scripts/assert.s [new file with mode: 0644]
ld/testsuite/ld-scripts/assert.t [new file with mode: 0644]

index 358b76717b0ba7292f0b2258c034606907557980..fc4b1be195c6adf9f163e26b7f113a0b762e6fa3 100644 (file)
@@ -1,3 +1,8 @@
+2004-02-18  Nathan Sidwell  <nathan@codesourcery.com>
+
+       * ldgram.y (statement_anywhere): Add assert rule.
+       * ldlang.c (exp_init_os): Add assert case.
+
 2004-02-14  Andrew Cagney  <cagney@redhat.com>
 
        * ldmain.c (remove_output): Call bfd_cache_close.
index 927114a8a1cc996010984ce21864d8dc93bfd34a..e885f7d55fb7df8a9cec9fea54d3683500491e66 100644 (file)
@@ -386,6 +386,9 @@ statement_anywhere:
                ENTRY '(' NAME ')'
                { lang_add_entry ($3, FALSE); }
        |       assignment end
+       |       ASSERT_K  {ldlex_expression ();} '(' exp ',' NAME ')'
+               { ldlex_popstate ();
+                 lang_add_assignment (exp_assert ($4, $6)); }
        ;
 
 /* The '*' and '?' cases are there because the lexer returns them as
index 108ad584320c5cd336678d25174d16c69de0921c..487ee02b067db8f4f8b7b4f6553a65fc53b49c11 100644 (file)
@@ -775,6 +775,10 @@ exp_init_os (etree_type *exp)
       exp_init_os (exp->trinary.rhs);
       break;
 
+    case etree_assert:
+      exp_init_os (exp->assert_s.child);
+      break;
+      
     case etree_unary:
       exp_init_os (exp->unary.child);
       break;
index 3b5993833d9688b6ff6a512bdba4d523cb32dfc7..282ee0c80654dca279069a3d78b547f7e9f1bf23 100644 (file)
@@ -1,3 +1,7 @@
+2004-02-18  Nathan Sidwell  <nathan@codesourcery.com>
+
+       * ld-scripts/assert.{s,t,exp}: New.
+
 2004-02-17  Richard Sandiford  <rsandifo@redhat.com>
 
        * ld-mips/elf/elf-rel-xgot-{n32,n64-linux}.d: Update after 2004-02-02
diff --git a/ld/testsuite/ld-scripts/assert.exp b/ld/testsuite/ld-scripts/assert.exp
new file mode 100644 (file)
index 0000000..5ba3a51
--- /dev/null
@@ -0,0 +1,31 @@
+# Test ASSERT in a linker script.
+# By Nathan Sidwell, CodeSourcery LLC
+#   Copyright 2004
+#   Free Software Foundation, Inc.
+#
+# This file is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+# 
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+
+set testname "ASSERT"
+
+if ![ld_assemble $as $srcdir/$subdir/assert.s tmpdir/assert.o] {
+    unresolved $testname
+    return
+}
+
+if ![ld_simple_link $ld tmpdir/assert "-T $srcdir/$subdir/assert.t tmpdir/assert.o"] {
+    fail $testname
+} else {
+    pass $testname
+}
diff --git a/ld/testsuite/ld-scripts/assert.s b/ld/testsuite/ld-scripts/assert.s
new file mode 100644 (file)
index 0000000..0517ffe
--- /dev/null
@@ -0,0 +1 @@
+#nothing here
diff --git a/ld/testsuite/ld-scripts/assert.t b/ld/testsuite/ld-scripts/assert.t
new file mode 100644 (file)
index 0000000..62aee34
--- /dev/null
@@ -0,0 +1,5 @@
+SECTIONS
+{
+  .empty : {}
+  ASSERT (!SIZEOF(.empty), "Empty is not empty")
+}