From 1dc65211433ada4ecf119be20319bcfc07141c5d Mon Sep 17 00:00:00 2001 From: elliot00 Date: Fri, 16 Sep 2005 22:46:52 +0000 Subject: [PATCH] *** empty log message *** --- .gitignore | 28 + AUTHORS | 3 + COPYING | 340 + ChangeLog | 38 + INSTALL | 236 + Makefile.am | 9 + Makefile.in | 618 + NEWS | 0 README | 31 + TODO | 5 + acinclude.m4 | 48 + aclocal.m4 | 7016 ++++++++++++ bootstrap | 9 + config.h.in | 150 + config/compile | 142 + config/config.guess | 1411 +++ config/config.sub | 1500 +++ config/depcomp | 529 + config/install-sh | 323 + config/ltmain.sh | 6500 +++++++++++ config/missing | 357 + config/ylwrap | 222 + configure | 23856 +++++++++++++++++++++++++++++++++++++++ configure.in | 107 + lxt/LXT_Explained.html | 790 ++ lxt/Makefile.am | 9 + lxt/Makefile.in | 459 + lxt/lxt.c | 758 ++ lxt/lxt.tab | 6 + lxt/lxt_write.c | 2057 ++++ lxt/lxt_write.h | 196 + lxt/test.v | 66 + replace/Makefile.am | 6 + replace/Makefile.in | 431 + replace/malloc.c | 13 + replace/readline.c | 39 + replace/vfscanf.c | 40 + src/Makefile.am | 44 + src/Makefile.in | 927 ++ src/acc_user.h | 661 ++ src/check.cc | 815 ++ src/check.h | 54 + src/copy.cc | 705 ++ src/copy.h | 30 + src/decl.cc | 403 + src/decl.h | 49 + src/defaultveriuser.cc | 60 + src/dumpvar.cc | 477 + src/dumpvar.h | 53 + src/eval.cc | 2337 ++++ src/eval.h | 79 + src/exec.cc | 1467 +++ src/exec.h | 45 + src/flags.cc | 118 + src/flags.h | 53 + src/gates.cc | 3150 ++++++ src/gates.h | 61 + src/glue.cc | 258 + src/glue.h | 171 + src/io.cc | 304 + src/io.h | 90 + src/lex.cc | 1371 +++ src/lex.h | 42 + src/macro.cc | 237 + src/macro.h | 45 + src/multdiv.cc | 481 + src/multdiv.h | 36 + src/nsched.cc | 321 + src/nsched.h | 56 + src/obstack.cc | 286 + src/obstack.h | 59 + src/parse.cc | 5509 +++++++++ src/parse.h | 284 + src/parse.yy | 2690 +++++ src/pass2.cc | 957 ++ src/pass2.h | 54 + src/pass3.cc | 2000 ++++ src/pass3.h | 85 + src/pli.cc | 7445 ++++++++++++ src/pli.h | 89 + src/plihacks.cc | 1781 +++ src/plihacks.h | 51 + src/print.cc | 1470 +++ src/print.h | 80 + src/runtime.h | 55 + src/schedule.cc | 1214 ++ src/schedule.h | 161 + src/scope.cc | 382 + src/scope.h | 52 + src/sdf.cc | 1114 ++ src/sdf.h | 205 + src/sdfclex.cc | 519 + src/sdfclex.h | 48 + src/sdfcpars.cc | 1737 +++ src/sdfcpars.h | 187 + src/sdfcpars.yy | 330 + src/sdflex.cc | 654 ++ src/sdflex.h | 58 + src/sdfparse.cc | 2641 +++++ src/sdfparse.h | 220 + src/sdfparse.yy | 935 ++ src/specify.cc | 1800 +++ src/specify.h | 88 + src/store.cc | 529 + src/store.h | 40 + src/strobe.cc | 312 + src/strobe.h | 77 + src/systask.cc | 2102 ++++ src/systask.h | 172 + src/timescal.cc | 364 + src/timescal.h | 38 + src/trace.cc | 473 + src/trace.h | 43 + src/tree.cc | 1152 ++ src/tree.def | 608 + src/tree.h | 1481 +++ src/udp.cc | 876 ++ src/udp.h | 58 + src/usertask.cc | 62 + src/usertask.h | 36 + src/v.gpe | 137 + src/v.h | 356 + src/verisys.cc | 578 + src/verisys.h | 54 + src/veriuser.c | 52 + src/veriuser.h | 467 + src/veriwell.cc | 970 ++ src/veriwell.h | 71 + src/vtypes.h | 197 + 129 files changed, 109893 insertions(+) create mode 100644 .gitignore create mode 100644 AUTHORS create mode 100644 COPYING create mode 100644 ChangeLog create mode 100644 INSTALL create mode 100644 Makefile.am create mode 100644 Makefile.in create mode 100644 NEWS create mode 100644 README create mode 100644 TODO create mode 100644 acinclude.m4 create mode 100644 aclocal.m4 create mode 100755 bootstrap create mode 100644 config.h.in create mode 100755 config/compile create mode 100755 config/config.guess create mode 100755 config/config.sub create mode 100755 config/depcomp create mode 100755 config/install-sh create mode 100755 config/ltmain.sh create mode 100755 config/missing create mode 100755 config/ylwrap create mode 100755 configure create mode 100644 configure.in create mode 100644 lxt/LXT_Explained.html create mode 100644 lxt/Makefile.am create mode 100644 lxt/Makefile.in create mode 100644 lxt/lxt.c create mode 100644 lxt/lxt.tab create mode 100644 lxt/lxt_write.c create mode 100644 lxt/lxt_write.h create mode 100644 lxt/test.v create mode 100644 replace/Makefile.am create mode 100644 replace/Makefile.in create mode 100644 replace/malloc.c create mode 100644 replace/readline.c create mode 100644 replace/vfscanf.c create mode 100644 src/Makefile.am create mode 100644 src/Makefile.in create mode 100644 src/acc_user.h create mode 100644 src/check.cc create mode 100644 src/check.h create mode 100644 src/copy.cc create mode 100644 src/copy.h create mode 100644 src/decl.cc create mode 100644 src/decl.h create mode 100644 src/defaultveriuser.cc create mode 100644 src/dumpvar.cc create mode 100644 src/dumpvar.h create mode 100644 src/eval.cc create mode 100644 src/eval.h create mode 100644 src/exec.cc create mode 100644 src/exec.h create mode 100644 src/flags.cc create mode 100644 src/flags.h create mode 100644 src/gates.cc create mode 100644 src/gates.h create mode 100644 src/glue.cc create mode 100644 src/glue.h create mode 100644 src/io.cc create mode 100644 src/io.h create mode 100644 src/lex.cc create mode 100644 src/lex.h create mode 100644 src/macro.cc create mode 100644 src/macro.h create mode 100644 src/multdiv.cc create mode 100644 src/multdiv.h create mode 100644 src/nsched.cc create mode 100644 src/nsched.h create mode 100644 src/obstack.cc create mode 100644 src/obstack.h create mode 100644 src/parse.cc create mode 100644 src/parse.h create mode 100644 src/parse.yy create mode 100644 src/pass2.cc create mode 100644 src/pass2.h create mode 100644 src/pass3.cc create mode 100644 src/pass3.h create mode 100644 src/pli.cc create mode 100644 src/pli.h create mode 100644 src/plihacks.cc create mode 100644 src/plihacks.h create mode 100644 src/print.cc create mode 100644 src/print.h create mode 100644 src/runtime.h create mode 100644 src/schedule.cc create mode 100644 src/schedule.h create mode 100644 src/scope.cc create mode 100644 src/scope.h create mode 100644 src/sdf.cc create mode 100644 src/sdf.h create mode 100644 src/sdfclex.cc create mode 100644 src/sdfclex.h create mode 100644 src/sdfcpars.cc create mode 100644 src/sdfcpars.h create mode 100644 src/sdfcpars.yy create mode 100644 src/sdflex.cc create mode 100644 src/sdflex.h create mode 100644 src/sdfparse.cc create mode 100644 src/sdfparse.h create mode 100644 src/sdfparse.yy create mode 100644 src/specify.cc create mode 100644 src/specify.h create mode 100644 src/store.cc create mode 100644 src/store.h create mode 100644 src/strobe.cc create mode 100644 src/strobe.h create mode 100644 src/systask.cc create mode 100644 src/systask.h create mode 100644 src/timescal.cc create mode 100644 src/timescal.h create mode 100644 src/trace.cc create mode 100644 src/trace.h create mode 100644 src/tree.cc create mode 100644 src/tree.def create mode 100644 src/tree.h create mode 100644 src/udp.cc create mode 100644 src/udp.h create mode 100644 src/usertask.cc create mode 100644 src/usertask.h create mode 100644 src/v.gpe create mode 100644 src/v.h create mode 100644 src/verisys.cc create mode 100644 src/verisys.h create mode 100644 src/veriuser.c create mode 100644 src/veriuser.h create mode 100644 src/veriwell.cc create mode 100644 src/veriwell.h create mode 100644 src/vtypes.h diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..da8168b --- /dev/null +++ b/.gitignore @@ -0,0 +1,28 @@ +# CVS default ignores begin +tags +TAGS +.make.state +.nse_depinfo +*~ +\#* +.#* +,* +_$* +*$ +*.old +*.bak +*.BAK +*.orig +*.rej +.del-* +*.a +*.olb +*.o +*.obj +*.so +*.exe +*.Z +*.elc +*.ln +core +# CVS default ignores end diff --git a/AUTHORS b/AUTHORS new file mode 100644 index 0000000..ece25cb --- /dev/null +++ b/AUTHORS @@ -0,0 +1,3 @@ +Elliot Mednick +Mark Hummel + diff --git a/COPYING b/COPYING new file mode 100644 index 0000000..d60c31a --- /dev/null +++ b/COPYING @@ -0,0 +1,340 @@ + GNU GENERAL PUBLIC LICENSE + Version 2, June 1991 + + Copyright (C) 1989, 1991 Free Software Foundation, Inc. + 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA + Everyone is permitted to copy and distribute verbatim copies + of this license document, but changing it is not allowed. + + Preamble + + The licenses for most software are designed to take away your +freedom to share and change it. By contrast, the GNU General Public +License is intended to guarantee your freedom to share and change free +software--to make sure the software is free for all its users. This +General Public License applies to most of the Free Software +Foundation's software and to any other program whose authors commit to +using it. (Some other Free Software Foundation software is covered by +the GNU Library General Public License instead.) You can apply it to +your programs, too. + + When we speak of free software, we are referring to freedom, not +price. Our General Public Licenses are designed to make sure that you +have the freedom to distribute copies of free software (and charge for +this service if you wish), that you receive source code or can get it +if you want it, that you can change the software or use pieces of it +in new free programs; and that you know you can do these things. + + To protect your rights, we need to make restrictions that forbid +anyone to deny you these rights or to ask you to surrender the rights. +These restrictions translate to certain responsibilities for you if you +distribute copies of the software, or if you modify it. + + For example, if you distribute copies of such a program, whether +gratis or for a fee, you must give the recipients all the rights that +you have. You must make sure that they, too, receive or can get the +source code. And you must show them these terms so they know their +rights. + + We protect your rights with two steps: (1) copyright the software, and +(2) offer you this license which gives you legal permission to copy, +distribute and/or modify the software. + + Also, for each author's protection and ours, we want to make certain +that everyone understands that there is no warranty for this free +software. If the software is modified by someone else and passed on, we +want its recipients to know that what they have is not the original, so +that any problems introduced by others will not reflect on the original +authors' reputations. + + Finally, any free program is threatened constantly by software +patents. We wish to avoid the danger that redistributors of a free +program will individually obtain patent licenses, in effect making the +program proprietary. To prevent this, we have made it clear that any +patent must be licensed for everyone's free use or not licensed at all. + + The precise terms and conditions for copying, distribution and +modification follow. + + GNU GENERAL PUBLIC LICENSE + TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION + + 0. This License applies to any program or other work which contains +a notice placed by the copyright holder saying it may be distributed +under the terms of this General Public License. The "Program", below, +refers to any such program or work, and a "work based on the Program" +means either the Program or any derivative work under copyright law: +that is to say, a work containing the Program or a portion of it, +either verbatim or with modifications and/or translated into another +language. (Hereinafter, translation is included without limitation in +the term "modification".) Each licensee is addressed as "you". + +Activities other than copying, distribution and modification are not +covered by this License; they are outside its scope. The act of +running the Program is not restricted, and the output from the Program +is covered only if its contents constitute a work based on the +Program (independent of having been made by running the Program). +Whether that is true depends on what the Program does. + + 1. You may copy and distribute verbatim copies of the Program's +source code as you receive it, in any medium, provided that you +conspicuously and appropriately publish on each copy an appropriate +copyright notice and disclaimer of warranty; keep intact all the +notices that refer to this License and to the absence of any warranty; +and give any other recipients of the Program a copy of this License +along with the Program. + +You may charge a fee for the physical act of transferring a copy, and +you may at your option offer warranty protection in exchange for a fee. + + 2. You may modify your copy or copies of the Program or any portion +of it, thus forming a work based on the Program, and copy and +distribute such modifications or work under the terms of Section 1 +above, provided that you also meet all of these conditions: + + a) You must cause the modified files to carry prominent notices + stating that you changed the files and the date of any change. + + b) You must cause any work that you distribute or publish, that in + whole or in part contains or is derived from the Program or any + part thereof, to be licensed as a whole at no charge to all third + parties under the terms of this License. + + c) If the modified program normally reads commands interactively + when run, you must cause it, when started running for such + interactive use in the most ordinary way, to print or display an + announcement including an appropriate copyright notice and a + notice that there is no warranty (or else, saying that you provide + a warranty) and that users may redistribute the program under + these conditions, and telling the user how to view a copy of this + License. (Exception: if the Program itself is interactive but + does not normally print such an announcement, your work based on + the Program is not required to print an announcement.) + +These requirements apply to the modified work as a whole. If +identifiable sections of that work are not derived from the Program, +and can be reasonably considered independent and separate works in +themselves, then this License, and its terms, do not apply to those +sections when you distribute them as separate works. But when you +distribute the same sections as part of a whole which is a work based +on the Program, the distribution of the whole must be on the terms of +this License, whose permissions for other licensees extend to the +entire whole, and thus to each and every part regardless of who wrote it. + +Thus, it is not the intent of this section to claim rights or contest +your rights to work written entirely by you; rather, the intent is to +exercise the right to control the distribution of derivative or +collective works based on the Program. + +In addition, mere aggregation of another work not based on the Program +with the Program (or with a work based on the Program) on a volume of +a storage or distribution medium does not bring the other work under +the scope of this License. + + 3. You may copy and distribute the Program (or a work based on it, +under Section 2) in object code or executable form under the terms of +Sections 1 and 2 above provided that you also do one of the following: + + a) Accompany it with the complete corresponding machine-readable + source code, which must be distributed under the terms of Sections + 1 and 2 above on a medium customarily used for software interchange; or, + + b) Accompany it with a written offer, valid for at least three + years, to give any third party, for a charge no more than your + cost of physically performing source distribution, a complete + machine-readable copy of the corresponding source code, to be + distributed under the terms of Sections 1 and 2 above on a medium + customarily used for software interchange; or, + + c) Accompany it with the information you received as to the offer + to distribute corresponding source code. (This alternative is + allowed only for noncommercial distribution and only if you + received the program in object code or executable form with such + an offer, in accord with Subsection b above.) + +The source code for a work means the preferred form of the work for +making modifications to it. For an executable work, complete source +code means all the source code for all modules it contains, plus any +associated interface definition files, plus the scripts used to +control compilation and installation of the executable. However, as a +special exception, the source code distributed need not include +anything that is normally distributed (in either source or binary +form) with the major components (compiler, kernel, and so on) of the +operating system on which the executable runs, unless that component +itself accompanies the executable. + +If distribution of executable or object code is made by offering +access to copy from a designated place, then offering equivalent +access to copy the source code from the same place counts as +distribution of the source code, even though third parties are not +compelled to copy the source along with the object code. + + 4. You may not copy, modify, sublicense, or distribute the Program +except as expressly provided under this License. Any attempt +otherwise to copy, modify, sublicense or distribute the Program is +void, and will automatically terminate your rights under this License. +However, parties who have received copies, or rights, from you under +this License will not have their licenses terminated so long as such +parties remain in full compliance. + + 5. You are not required to accept this License, since you have not +signed it. However, nothing else grants you permission to modify or +distribute the Program or its derivative works. These actions are +prohibited by law if you do not accept this License. Therefore, by +modifying or distributing the Program (or any work based on the +Program), you indicate your acceptance of this License to do so, and +all its terms and conditions for copying, distributing or modifying +the Program or works based on it. + + 6. Each time you redistribute the Program (or any work based on the +Program), the recipient automatically receives a license from the +original licensor to copy, distribute or modify the Program subject to +these terms and conditions. You may not impose any further +restrictions on the recipients' exercise of the rights granted herein. +You are not responsible for enforcing compliance by third parties to +this License. + + 7. If, as a consequence of a court judgment or allegation of patent +infringement or for any other reason (not limited to patent issues), +conditions are imposed on you (whether by court order, agreement or +otherwise) that contradict the conditions of this License, they do not +excuse you from the conditions of this License. If you cannot +distribute so as to satisfy simultaneously your obligations under this +License and any other pertinent obligations, then as a consequence you +may not distribute the Program at all. For example, if a patent +license would not permit royalty-free redistribution of the Program by +all those who receive copies directly or indirectly through you, then +the only way you could satisfy both it and this License would be to +refrain entirely from distribution of the Program. + +If any portion of this section is held invalid or unenforceable under +any particular circumstance, the balance of the section is intended to +apply and the section as a whole is intended to apply in other +circumstances. + +It is not the purpose of this section to induce you to infringe any +patents or other property right claims or to contest validity of any +such claims; this section has the sole purpose of protecting the +integrity of the free software distribution system, which is +implemented by public license practices. Many people have made +generous contributions to the wide range of software distributed +through that system in reliance on consistent application of that +system; it is up to the author/donor to decide if he or she is willing +to distribute software through any other system and a licensee cannot +impose that choice. + +This section is intended to make thoroughly clear what is believed to +be a consequence of the rest of this License. + + 8. If the distribution and/or use of the Program is restricted in +certain countries either by patents or by copyrighted interfaces, the +original copyright holder who places the Program under this License +may add an explicit geographical distribution limitation excluding +those countries, so that distribution is permitted only in or among +countries not thus excluded. In such case, this License incorporates +the limitation as if written in the body of this License. + + 9. The Free Software Foundation may publish revised and/or new versions +of the General Public License from time to time. Such new versions will +be similar in spirit to the present version, but may differ in detail to +address new problems or concerns. + +Each version is given a distinguishing version number. If the Program +specifies a version number of this License which applies to it and "any +later version", you have the option of following the terms and conditions +either of that version or of any later version published by the Free +Software Foundation. If the Program does not specify a version number of +this License, you may choose any version ever published by the Free Software +Foundation. + + 10. If you wish to incorporate parts of the Program into other free +programs whose distribution conditions are different, write to the author +to ask for permission. For software which is copyrighted by the Free +Software Foundation, write to the Free Software Foundation; we sometimes +make exceptions for this. Our decision will be guided by the two goals +of preserving the free status of all derivatives of our free software and +of promoting the sharing and reuse of software generally. + + NO WARRANTY + + 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY +FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN +OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES +PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED +OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF +MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS +TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE +PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, +REPAIR OR CORRECTION. + + 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING +WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR +REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, +INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING +OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED +TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY +YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER +PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE +POSSIBILITY OF SUCH DAMAGES. + + END OF TERMS AND CONDITIONS + + How to Apply These Terms to Your New Programs + + If you develop a new program, and you want it to be of the greatest +possible use to the public, the best way to achieve this is to make it +free software which everyone can redistribute and change under these terms. + + To do so, attach the following notices to the program. It is safest +to attach them to the start of each source file to most effectively +convey the exclusion of warranty; and each file should have at least +the "copyright" line and a pointer to where the full notice is found. + + + Copyright (C) + + This program 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 + + +Also add information on how to contact you by electronic and paper mail. + +If the program is interactive, make it output a short notice like this +when it starts in an interactive mode: + + Gnomovision version 69, Copyright (C) year name of author + Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. + This is free software, and you are welcome to redistribute it + under certain conditions; type `show c' for details. + +The hypothetical commands `show w' and `show c' should show the appropriate +parts of the General Public License. Of course, the commands you use may +be called something other than `show w' and `show c'; they could even be +mouse-clicks or menu items--whatever suits your program. + +You should also get your employer (if you work as a programmer) or your +school, if any, to sign a "copyright disclaimer" for the program, if +necessary. Here is a sample; alter the names: + + Yoyodyne, Inc., hereby disclaims all copyright interest in the program + `Gnomovision' (which makes passes at compilers) written by James Hacker. + + , 1 April 1989 + Ty Coon, President of Vice + +This General Public License does not permit incorporating your program into +proprietary programs. If your program is a subroutine library, you may +consider it more useful to permit linking proprietary applications with the +library. If this is what you want to do, use the GNU Library General +Public License instead of this License. diff --git a/ChangeLog b/ChangeLog new file mode 100644 index 0000000..bccd50b --- /dev/null +++ b/ChangeLog @@ -0,0 +1,38 @@ +2005-09-01 Mark Hummel + + * initial conversion to automake/autoconf. + +2005-09-07 Mark Hummel + + * beefed up configure scripts + * added lxt support + * added --enable-m32 configuration switch + * added --disable-lxt configuration switch + * fixed amd64 failures + +2005-09-08 Mark Hummel + + * --disable-lxt switch disables check for libz + * removed version.h file + * changed revision number to 2.8.0 + * added --bindir switch + * added --libdir switch + * added --cflags switch + * added --libs switch + * added --includedir switch + * added --help switch + * added --version switch + * using libtool to create static and dynamic libraries + +2005-09-11 Mark Hummel + + * using libtool to build both static and shared libraries + * added --ldflags switch + * fixed lexer bug with `xyz directives + +2005-09-15 Mark Hummel + + * removed shell_* memory management routines + * fixed segfaults when opening non-existant files + * allow $random arg to be hiearchical reference + * allow bit references to scalar variables diff --git a/INSTALL b/INSTALL new file mode 100644 index 0000000..56b077d --- /dev/null +++ b/INSTALL @@ -0,0 +1,236 @@ +Installation Instructions +************************* + +Copyright (C) 1994, 1995, 1996, 1999, 2000, 2001, 2002, 2004, 2005 Free +Software Foundation, Inc. + +This file is free documentation; the Free Software Foundation gives +unlimited permission to copy, distribute and modify it. + +Basic Installation +================== + +These are generic installation instructions. + + The `configure' shell script attempts to guess correct values for +various system-dependent variables used during compilation. It uses +those values to create a `Makefile' in each directory of the package. +It may also create one or more `.h' files containing system-dependent +definitions. Finally, it creates a shell script `config.status' that +you can run in the future to recreate the current configuration, and a +file `config.log' containing compiler output (useful mainly for +debugging `configure'). + + It can also use an optional file (typically called `config.cache' +and enabled with `--cache-file=config.cache' or simply `-C') that saves +the results of its tests to speed up reconfiguring. (Caching is +disabled by default to prevent problems with accidental use of stale +cache files.) + + If you need to do unusual things to compile the package, please try +to figure out how `configure' could check whether to do them, and mail +diffs or instructions to the address given in the `README' so they can +be considered for the next release. If you are using the cache, and at +some point `config.cache' contains results you don't want to keep, you +may remove or edit it. + + The file `configure.ac' (or `configure.in') is used to create +`configure' by a program called `autoconf'. You only need +`configure.ac' if you want to change it or regenerate `configure' using +a newer version of `autoconf'. + +The simplest way to compile this package is: + + 1. `cd' to the directory containing the package's source code and type + `./configure' to configure the package for your system. If you're + using `csh' on an old version of System V, you might need to type + `sh ./configure' instead to prevent `csh' from trying to execute + `configure' itself. + + Running `configure' takes awhile. While running, it prints some + messages telling which features it is checking for. + + 2. Type `make' to compile the package. + + 3. Optionally, type `make check' to run any self-tests that come with + the package. + + 4. Type `make install' to install the programs and any data files and + documentation. + + 5. You can remove the program binaries and object files from the + source code directory by typing `make clean'. To also remove the + files that `configure' created (so you can compile the package for + a different kind of computer), type `make distclean'. There is + also a `make maintainer-clean' target, but that is intended mainly + for the package's developers. If you use it, you may have to get + all sorts of other programs in order to regenerate files that came + with the distribution. + +Compilers and Options +===================== + +Some systems require unusual options for compilation or linking that the +`configure' script does not know about. Run `./configure --help' for +details on some of the pertinent environment variables. + + You can give `configure' initial values for configuration parameters +by setting variables in the command line or in the environment. Here +is an example: + + ./configure CC=c89 CFLAGS=-O2 LIBS=-lposix + + *Note Defining Variables::, for more details. + +Compiling For Multiple Architectures +==================================== + +You can compile the package for more than one kind of computer at the +same time, by placing the object files for each architecture in their +own directory. To do this, you must use a version of `make' that +supports the `VPATH' variable, such as GNU `make'. `cd' to the +directory where you want the object files and executables to go and run +the `configure' script. `configure' automatically checks for the +source code in the directory that `configure' is in and in `..'. + + If you have to use a `make' that does not support the `VPATH' +variable, you have to compile the package for one architecture at a +time in the source code directory. After you have installed the +package for one architecture, use `make distclean' before reconfiguring +for another architecture. + +Installation Names +================== + +By default, `make install' will install the package's files in +`/usr/local/bin', `/usr/local/man', etc. You can specify an +installation prefix other than `/usr/local' by giving `configure' the +option `--prefix=PREFIX'. + + You can specify separate installation prefixes for +architecture-specific files and architecture-independent files. If you +give `configure' the option `--exec-prefix=PREFIX', the package will +use PREFIX as the prefix for installing programs and libraries. +Documentation and other data files will still use the regular prefix. + + In addition, if you use an unusual directory layout you can give +options like `--bindir=DIR' to specify different values for particular +kinds of files. Run `configure --help' for a list of the directories +you can set and what kinds of files go in them. + + If the package supports it, you can cause programs to be installed +with an extra prefix or suffix on their names by giving `configure' the +option `--program-prefix=PREFIX' or `--program-suffix=SUFFIX'. + +Optional Features +================= + +Some packages pay attention to `--enable-FEATURE' options to +`configure', where FEATURE indicates an optional part of the package. +They may also pay attention to `--with-PACKAGE' options, where PACKAGE +is something like `gnu-as' or `x' (for the X Window System). The +`README' should mention any `--enable-' and `--with-' options that the +package recognizes. + + For packages that use the X Window System, `configure' can usually +find the X include and library files automatically, but if it doesn't, +you can use the `configure' options `--x-includes=DIR' and +`--x-libraries=DIR' to specify their locations. + +Specifying the System Type +========================== + +There may be some features `configure' cannot figure out automatically, +but needs to determine by the type of machine the package will run on. +Usually, assuming the package is built to be run on the _same_ +architectures, `configure' can figure that out, but if it prints a +message saying it cannot guess the machine type, give it the +`--build=TYPE' option. TYPE can either be a short name for the system +type, such as `sun4', or a canonical name which has the form: + + CPU-COMPANY-SYSTEM + +where SYSTEM can have one of these forms: + + OS KERNEL-OS + + See the file `config.sub' for the possible values of each field. If +`config.sub' isn't included in this package, then this package doesn't +need to know the machine type. + + If you are _building_ compiler tools for cross-compiling, you should +use the `--target=TYPE' option to select the type of system they will +produce code for. + + If you want to _use_ a cross compiler, that generates code for a +platform different from the build platform, you should specify the +"host" platform (i.e., that on which the generated programs will +eventually be run) with `--host=TYPE'. + +Sharing Defaults +================ + +If you want to set default values for `configure' scripts to share, you +can create a site shell script called `config.site' that gives default +values for variables like `CC', `cache_file', and `prefix'. +`configure' looks for `PREFIX/share/config.site' if it exists, then +`PREFIX/etc/config.site' if it exists. Or, you can set the +`CONFIG_SITE' environment variable to the location of the site script. +A warning: not all `configure' scripts look for a site script. + +Defining Variables +================== + +Variables not defined in a site shell script can be set in the +environment passed to `configure'. However, some packages may run +configure again during the build, and the customized values of these +variables may be lost. In order to avoid this problem, you should set +them in the `configure' command line, using `VAR=value'. For example: + + ./configure CC=/usr/local2/bin/gcc + +causes the specified `gcc' to be used as the C compiler (unless it is +overridden in the site shell script). Here is a another example: + + /bin/bash ./configure CONFIG_SHELL=/bin/bash + +Here the `CONFIG_SHELL=/bin/bash' operand causes subsequent +configuration-related scripts to be executed by `/bin/bash'. + +`configure' Invocation +====================== + +`configure' recognizes the following options to control how it operates. + +`--help' +`-h' + Print a summary of the options to `configure', and exit. + +`--version' +`-V' + Print the version of Autoconf used to generate the `configure' + script, and exit. + +`--cache-file=FILE' + Enable the cache: use and save the results of the tests in FILE, + traditionally `config.cache'. FILE defaults to `/dev/null' to + disable caching. + +`--config-cache' +`-C' + Alias for `--cache-file=config.cache'. + +`--quiet' +`--silent' +`-q' + Do not print messages saying which checks are being made. To + suppress all normal output, redirect it to `/dev/null' (any error + messages will still be shown). + +`--srcdir=DIR' + Look for the package's source code in directory DIR. Usually + `configure' can determine that directory automatically. + +`configure' also accepts some other, not widely useful, options. Run +`configure --help' for more details. + diff --git a/Makefile.am b/Makefile.am new file mode 100644 index 0000000..b7f2b32 --- /dev/null +++ b/Makefile.am @@ -0,0 +1,9 @@ +if USE_LXT + LXT=lxt +endif +SUBDIRS = replace $(LXT) src . + +EXTRA_DIST = bootstrap + +AM_CFLAGS = @PATHS@ + diff --git a/Makefile.in b/Makefile.in new file mode 100644 index 0000000..ce97771 --- /dev/null +++ b/Makefile.in @@ -0,0 +1,618 @@ +# Makefile.in generated by automake 1.9.5 from Makefile.am. +# @configure_input@ + +# Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, +# 2003, 2004, 2005 Free Software Foundation, Inc. +# This Makefile.in is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY, to the extent permitted by law; without +# even the implied warranty of MERCHANTABILITY or FITNESS FOR A +# PARTICULAR PURPOSE. + +@SET_MAKE@ +srcdir = @srcdir@ +top_srcdir = @top_srcdir@ +VPATH = @srcdir@ +pkgdatadir = $(datadir)/@PACKAGE@ +pkglibdir = $(libdir)/@PACKAGE@ +pkgincludedir = $(includedir)/@PACKAGE@ +top_builddir = . +am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd +INSTALL = @INSTALL@ +install_sh_DATA = $(install_sh) -c -m 644 +install_sh_PROGRAM = $(install_sh) -c +install_sh_SCRIPT = $(install_sh) -c +INSTALL_HEADER = $(INSTALL_DATA) +transform = $(program_transform_name) +NORMAL_INSTALL = : +PRE_INSTALL = : +POST_INSTALL = : +NORMAL_UNINSTALL = : +PRE_UNINSTALL = : +POST_UNINSTALL = : +build_triplet = @build@ +host_triplet = @host@ +DIST_COMMON = README $(am__configure_deps) $(srcdir)/Makefile.am \ + $(srcdir)/Makefile.in $(srcdir)/config.h.in \ + $(top_srcdir)/configure AUTHORS COPYING ChangeLog INSTALL NEWS \ + TODO config/compile config/config.guess config/config.sub \ + config/depcomp config/install-sh config/ltmain.sh \ + config/missing config/ylwrap +subdir = . +ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 +am__aclocal_m4_deps = $(top_srcdir)/acinclude.m4 \ + $(top_srcdir)/configure.in +am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ + $(ACLOCAL_M4) +am__CONFIG_DISTCLEAN_FILES = config.status config.cache config.log \ + configure.lineno configure.status.lineno +mkinstalldirs = $(install_sh) -d +CONFIG_HEADER = config.h +CONFIG_CLEAN_FILES = +SOURCES = +DIST_SOURCES = +RECURSIVE_TARGETS = all-recursive check-recursive dvi-recursive \ + html-recursive info-recursive install-data-recursive \ + install-exec-recursive install-info-recursive \ + install-recursive installcheck-recursive installdirs-recursive \ + pdf-recursive ps-recursive uninstall-info-recursive \ + uninstall-recursive +ETAGS = etags +CTAGS = ctags +DIST_SUBDIRS = replace lxt src . +DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) +distdir = $(PACKAGE)-$(VERSION) +top_distdir = $(distdir) +am__remove_distdir = \ + { test ! -d $(distdir) \ + || { find $(distdir) -type d ! -perm -200 -exec chmod u+w {} ';' \ + && rm -fr $(distdir); }; } +DIST_ARCHIVES = $(distdir).tar.gz +GZIP_ENV = --best +distuninstallcheck_listfiles = find . -type f -print +distcleancheck_listfiles = find . -type f -print +ACLOCAL = @ACLOCAL@ +AMDEP_FALSE = @AMDEP_FALSE@ +AMDEP_TRUE = @AMDEP_TRUE@ +AMTAR = @AMTAR@ +AR = @AR@ +AUTOCONF = @AUTOCONF@ +AUTOHEADER = @AUTOHEADER@ +AUTOMAKE = @AUTOMAKE@ +AWK = @AWK@ +CC = @CC@ +CCDEPMODE = @CCDEPMODE@ +CFLAGS = @CFLAGS@ +CPP = @CPP@ +CPPFLAGS = @CPPFLAGS@ +CXX = @CXX@ +CXXCPP = @CXXCPP@ +CXXDEPMODE = @CXXDEPMODE@ +CXXFLAGS = @CXXFLAGS@ +CYGPATH_W = @CYGPATH_W@ +DEFS = @DEFS@ +DEPDIR = @DEPDIR@ +ECHO = @ECHO@ +ECHO_C = @ECHO_C@ +ECHO_N = @ECHO_N@ +ECHO_T = @ECHO_T@ +EGREP = @EGREP@ +EXEEXT = @EXEEXT@ +F77 = @F77@ +FFLAGS = @FFLAGS@ +INSTALL_DATA = @INSTALL_DATA@ +INSTALL_PROGRAM = @INSTALL_PROGRAM@ +INSTALL_SCRIPT = @INSTALL_SCRIPT@ +INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ +LDFLAGS = @LDFLAGS@ +LIBOBJS = @LIBOBJS@ +LIBS = @LIBS@ +LIBTOOL = @LIBTOOL@ +LN_S = @LN_S@ +LTLIBOBJS = @LTLIBOBJS@ +MAKEINFO = @MAKEINFO@ +OBJEXT = @OBJEXT@ +PACKAGE = @PACKAGE@ +PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ +PACKAGE_NAME = @PACKAGE_NAME@ +PACKAGE_STRING = @PACKAGE_STRING@ +PACKAGE_TARNAME = @PACKAGE_TARNAME@ +PACKAGE_VERSION = @PACKAGE_VERSION@ +PATH_SEPARATOR = @PATH_SEPARATOR@ +RANLIB = @RANLIB@ +SET_MAKE = @SET_MAKE@ +SHELL = @SHELL@ +STRIP = @STRIP@ +USE_LXT_FALSE = @USE_LXT_FALSE@ +USE_LXT_TRUE = @USE_LXT_TRUE@ +VERSION = @VERSION@ +XGPERF = @XGPERF@ +YACC = @YACC@ +ac_ct_AR = @ac_ct_AR@ +ac_ct_CC = @ac_ct_CC@ +ac_ct_CXX = @ac_ct_CXX@ +ac_ct_F77 = @ac_ct_F77@ +ac_ct_RANLIB = @ac_ct_RANLIB@ +ac_ct_STRIP = @ac_ct_STRIP@ +am__fastdepCC_FALSE = @am__fastdepCC_FALSE@ +am__fastdepCC_TRUE = @am__fastdepCC_TRUE@ +am__fastdepCXX_FALSE = @am__fastdepCXX_FALSE@ +am__fastdepCXX_TRUE = @am__fastdepCXX_TRUE@ +am__include = @am__include@ +am__leading_dot = @am__leading_dot@ +am__quote = @am__quote@ +am__tar = @am__tar@ +am__untar = @am__untar@ +bindir = @bindir@ +build = @build@ +build_alias = @build_alias@ +build_cpu = @build_cpu@ +build_os = @build_os@ +build_vendor = @build_vendor@ +datadir = @datadir@ +exec_prefix = @exec_prefix@ +host = @host@ +host_alias = @host_alias@ +host_cpu = @host_cpu@ +host_os = @host_os@ +host_vendor = @host_vendor@ +includedir = @includedir@ +infodir = @infodir@ +install_sh = @install_sh@ +libdir = @libdir@ +libexecdir = @libexecdir@ +localstatedir = @localstatedir@ +mandir = @mandir@ +mkdir_p = @mkdir_p@ +oldincludedir = @oldincludedir@ +prefix = @prefix@ +program_transform_name = @program_transform_name@ +sbindir = @sbindir@ +sharedstatedir = @sharedstatedir@ +sysconfdir = @sysconfdir@ +target_alias = @target_alias@ +@USE_LXT_TRUE@LXT = lxt +SUBDIRS = replace $(LXT) src . +EXTRA_DIST = bootstrap +AM_CFLAGS = @PATHS@ +all: config.h + $(MAKE) $(AM_MAKEFLAGS) all-recursive + +.SUFFIXES: +am--refresh: + @: +$(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps) + @for dep in $?; do \ + case '$(am__configure_deps)' in \ + *$$dep*) \ + echo ' cd $(srcdir) && $(AUTOMAKE) --gnu '; \ + cd $(srcdir) && $(AUTOMAKE) --gnu \ + && exit 0; \ + exit 1;; \ + esac; \ + done; \ + echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu Makefile'; \ + cd $(top_srcdir) && \ + $(AUTOMAKE) --gnu Makefile +.PRECIOUS: Makefile +Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status + @case '$?' in \ + *config.status*) \ + echo ' $(SHELL) ./config.status'; \ + $(SHELL) ./config.status;; \ + *) \ + echo ' cd $(top_builddir) && $(SHELL) ./config.status $@ $(am__depfiles_maybe)'; \ + cd $(top_builddir) && $(SHELL) ./config.status $@ $(am__depfiles_maybe);; \ + esac; + +$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) + $(SHELL) ./config.status --recheck + +$(top_srcdir)/configure: $(am__configure_deps) + cd $(srcdir) && $(AUTOCONF) +$(ACLOCAL_M4): $(am__aclocal_m4_deps) + cd $(srcdir) && $(ACLOCAL) $(ACLOCAL_AMFLAGS) + +config.h: stamp-h1 + @if test ! -f $@; then \ + rm -f stamp-h1; \ + $(MAKE) stamp-h1; \ + else :; fi + +stamp-h1: $(srcdir)/config.h.in $(top_builddir)/config.status + @rm -f stamp-h1 + cd $(top_builddir) && $(SHELL) ./config.status config.h +$(srcdir)/config.h.in: $(am__configure_deps) + cd $(top_srcdir) && $(AUTOHEADER) + rm -f stamp-h1 + touch $@ + +distclean-hdr: + -rm -f config.h stamp-h1 + +mostlyclean-libtool: + -rm -f *.lo + +clean-libtool: + -rm -rf .libs _libs + +distclean-libtool: + -rm -f libtool +uninstall-info-am: + +# This directory's subdirectories are mostly independent; you can cd +# into them and run `make' without going through this Makefile. +# To change the values of `make' variables: instead of editing Makefiles, +# (1) if the variable is set in `config.status', edit `config.status' +# (which will cause the Makefiles to be regenerated when you run `make'); +# (2) otherwise, pass the desired values on the `make' command line. +$(RECURSIVE_TARGETS): + @failcom='exit 1'; \ + for f in x $$MAKEFLAGS; do \ + case $$f in \ + *=* | --[!k]*);; \ + *k*) failcom='fail=yes';; \ + esac; \ + done; \ + dot_seen=no; \ + target=`echo $@ | sed s/-recursive//`; \ + list='$(SUBDIRS)'; for subdir in $$list; do \ + echo "Making $$target in $$subdir"; \ + if test "$$subdir" = "."; then \ + dot_seen=yes; \ + local_target="$$target-am"; \ + else \ + local_target="$$target"; \ + fi; \ + (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ + || eval $$failcom; \ + done; \ + if test "$$dot_seen" = "no"; then \ + $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ + fi; test -z "$$fail" + +mostlyclean-recursive clean-recursive distclean-recursive \ +maintainer-clean-recursive: + @failcom='exit 1'; \ + for f in x $$MAKEFLAGS; do \ + case $$f in \ + *=* | --[!k]*);; \ + *k*) failcom='fail=yes';; \ + esac; \ + done; \ + dot_seen=no; \ + case "$@" in \ + distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ + *) list='$(SUBDIRS)' ;; \ + esac; \ + rev=''; for subdir in $$list; do \ + if test "$$subdir" = "."; then :; else \ + rev="$$subdir $$rev"; \ + fi; \ + done; \ + rev="$$rev ."; \ + target=`echo $@ | sed s/-recursive//`; \ + for subdir in $$rev; do \ + echo "Making $$target in $$subdir"; \ + if test "$$subdir" = "."; then \ + local_target="$$target-am"; \ + else \ + local_target="$$target"; \ + fi; \ + (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ + || eval $$failcom; \ + done && test -z "$$fail" +tags-recursive: + list='$(SUBDIRS)'; for subdir in $$list; do \ + test "$$subdir" = . || (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \ + done +ctags-recursive: + list='$(SUBDIRS)'; for subdir in $$list; do \ + test "$$subdir" = . || (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) ctags); \ + done + +ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) + list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ + unique=`for i in $$list; do \ + if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ + done | \ + $(AWK) ' { files[$$0] = 1; } \ + END { for (i in files) print i; }'`; \ + mkid -fID $$unique +tags: TAGS + +TAGS: tags-recursive $(HEADERS) $(SOURCES) config.h.in $(TAGS_DEPENDENCIES) \ + $(TAGS_FILES) $(LISP) + tags=; \ + here=`pwd`; \ + if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ + include_option=--etags-include; \ + empty_fix=.; \ + else \ + include_option=--include; \ + empty_fix=; \ + fi; \ + list='$(SUBDIRS)'; for subdir in $$list; do \ + if test "$$subdir" = .; then :; else \ + test ! -f $$subdir/TAGS || \ + tags="$$tags $$include_option=$$here/$$subdir/TAGS"; \ + fi; \ + done; \ + list='$(SOURCES) $(HEADERS) config.h.in $(LISP) $(TAGS_FILES)'; \ + unique=`for i in $$list; do \ + if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ + done | \ + $(AWK) ' { files[$$0] = 1; } \ + END { for (i in files) print i; }'`; \ + if test -z "$(ETAGS_ARGS)$$tags$$unique"; then :; else \ + test -n "$$unique" || unique=$$empty_fix; \ + $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ + $$tags $$unique; \ + fi +ctags: CTAGS +CTAGS: ctags-recursive $(HEADERS) $(SOURCES) config.h.in $(TAGS_DEPENDENCIES) \ + $(TAGS_FILES) $(LISP) + tags=; \ + here=`pwd`; \ + list='$(SOURCES) $(HEADERS) config.h.in $(LISP) $(TAGS_FILES)'; \ + unique=`for i in $$list; do \ + if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ + done | \ + $(AWK) ' { files[$$0] = 1; } \ + END { for (i in files) print i; }'`; \ + test -z "$(CTAGS_ARGS)$$tags$$unique" \ + || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ + $$tags $$unique + +GTAGS: + here=`$(am__cd) $(top_builddir) && pwd` \ + && cd $(top_srcdir) \ + && gtags -i $(GTAGS_ARGS) $$here + +distclean-tags: + -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags + +distdir: $(DISTFILES) + $(am__remove_distdir) + mkdir $(distdir) + $(mkdir_p) $(distdir)/config + @srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; \ + topsrcdirstrip=`echo "$(top_srcdir)" | sed 's|.|.|g'`; \ + list='$(DISTFILES)'; for file in $$list; do \ + case $$file in \ + $(srcdir)/*) file=`echo "$$file" | sed "s|^$$srcdirstrip/||"`;; \ + $(top_srcdir)/*) file=`echo "$$file" | sed "s|^$$topsrcdirstrip/|$(top_builddir)/|"`;; \ + esac; \ + if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ + dir=`echo "$$file" | sed -e 's,/[^/]*$$,,'`; \ + if test "$$dir" != "$$file" && test "$$dir" != "."; then \ + dir="/$$dir"; \ + $(mkdir_p) "$(distdir)$$dir"; \ + else \ + dir=''; \ + fi; \ + if test -d $$d/$$file; then \ + if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ + cp -pR $(srcdir)/$$file $(distdir)$$dir || exit 1; \ + fi; \ + cp -pR $$d/$$file $(distdir)$$dir || exit 1; \ + else \ + test -f $(distdir)/$$file \ + || cp -p $$d/$$file $(distdir)/$$file \ + || exit 1; \ + fi; \ + done + list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ + if test "$$subdir" = .; then :; else \ + test -d "$(distdir)/$$subdir" \ + || $(mkdir_p) "$(distdir)/$$subdir" \ + || exit 1; \ + distdir=`$(am__cd) $(distdir) && pwd`; \ + top_distdir=`$(am__cd) $(top_distdir) && pwd`; \ + (cd $$subdir && \ + $(MAKE) $(AM_MAKEFLAGS) \ + top_distdir="$$top_distdir" \ + distdir="$$distdir/$$subdir" \ + distdir) \ + || exit 1; \ + fi; \ + done + -find $(distdir) -type d ! -perm -777 -exec chmod a+rwx {} \; -o \ + ! -type d ! -perm -444 -links 1 -exec chmod a+r {} \; -o \ + ! -type d ! -perm -400 -exec chmod a+r {} \; -o \ + ! -type d ! -perm -444 -exec $(SHELL) $(install_sh) -c -m a+r {} {} \; \ + || chmod -R a+r $(distdir) +dist-gzip: distdir + tardir=$(distdir) && $(am__tar) | GZIP=$(GZIP_ENV) gzip -c >$(distdir).tar.gz + $(am__remove_distdir) + +dist-bzip2: distdir + tardir=$(distdir) && $(am__tar) | bzip2 -9 -c >$(distdir).tar.bz2 + $(am__remove_distdir) + +dist-tarZ: distdir + tardir=$(distdir) && $(am__tar) | compress -c >$(distdir).tar.Z + $(am__remove_distdir) + +dist-shar: distdir + shar $(distdir) | GZIP=$(GZIP_ENV) gzip -c >$(distdir).shar.gz + $(am__remove_distdir) + +dist-zip: distdir + -rm -f $(distdir).zip + zip -rq $(distdir).zip $(distdir) + $(am__remove_distdir) + +dist dist-all: distdir + tardir=$(distdir) && $(am__tar) | GZIP=$(GZIP_ENV) gzip -c >$(distdir).tar.gz + $(am__remove_distdir) + +# This target untars the dist file and tries a VPATH configuration. Then +# it guarantees that the distribution is self-contained by making another +# tarfile. +distcheck: dist + case '$(DIST_ARCHIVES)' in \ + *.tar.gz*) \ + GZIP=$(GZIP_ENV) gunzip -c $(distdir).tar.gz | $(am__untar) ;;\ + *.tar.bz2*) \ + bunzip2 -c $(distdir).tar.bz2 | $(am__untar) ;;\ + *.tar.Z*) \ + uncompress -c $(distdir).tar.Z | $(am__untar) ;;\ + *.shar.gz*) \ + GZIP=$(GZIP_ENV) gunzip -c $(distdir).shar.gz | unshar ;;\ + *.zip*) \ + unzip $(distdir).zip ;;\ + esac + chmod -R a-w $(distdir); chmod a+w $(distdir) + mkdir $(distdir)/_build + mkdir $(distdir)/_inst + chmod a-w $(distdir) + dc_install_base=`$(am__cd) $(distdir)/_inst && pwd | sed -e 's,^[^:\\/]:[\\/],/,'` \ + && dc_destdir="$${TMPDIR-/tmp}/am-dc-$$$$/" \ + && cd $(distdir)/_build \ + && ../configure --srcdir=.. --prefix="$$dc_install_base" \ + $(DISTCHECK_CONFIGURE_FLAGS) \ + && $(MAKE) $(AM_MAKEFLAGS) \ + && $(MAKE) $(AM_MAKEFLAGS) dvi \ + && $(MAKE) $(AM_MAKEFLAGS) check \ + && $(MAKE) $(AM_MAKEFLAGS) install \ + && $(MAKE) $(AM_MAKEFLAGS) installcheck \ + && $(MAKE) $(AM_MAKEFLAGS) uninstall \ + && $(MAKE) $(AM_MAKEFLAGS) distuninstallcheck_dir="$$dc_install_base" \ + distuninstallcheck \ + && chmod -R a-w "$$dc_install_base" \ + && ({ \ + (cd ../.. && umask 077 && mkdir "$$dc_destdir") \ + && $(MAKE) $(AM_MAKEFLAGS) DESTDIR="$$dc_destdir" install \ + && $(MAKE) $(AM_MAKEFLAGS) DESTDIR="$$dc_destdir" uninstall \ + && $(MAKE) $(AM_MAKEFLAGS) DESTDIR="$$dc_destdir" \ + distuninstallcheck_dir="$$dc_destdir" distuninstallcheck; \ + } || { rm -rf "$$dc_destdir"; exit 1; }) \ + && rm -rf "$$dc_destdir" \ + && $(MAKE) $(AM_MAKEFLAGS) dist \ + && rm -rf $(DIST_ARCHIVES) \ + && $(MAKE) $(AM_MAKEFLAGS) distcleancheck + $(am__remove_distdir) + @(echo "$(distdir) archives ready for distribution: "; \ + list='$(DIST_ARCHIVES)'; for i in $$list; do echo $$i; done) | \ + sed -e '1{h;s/./=/g;p;x;}' -e '$${p;x;}' +distuninstallcheck: + @cd $(distuninstallcheck_dir) \ + && test `$(distuninstallcheck_listfiles) | wc -l` -le 1 \ + || { echo "ERROR: files left after uninstall:" ; \ + if test -n "$(DESTDIR)"; then \ + echo " (check DESTDIR support)"; \ + fi ; \ + $(distuninstallcheck_listfiles) ; \ + exit 1; } >&2 +distcleancheck: distclean + @if test '$(srcdir)' = . ; then \ + echo "ERROR: distcleancheck can only run from a VPATH build" ; \ + exit 1 ; \ + fi + @test `$(distcleancheck_listfiles) | wc -l` -eq 0 \ + || { echo "ERROR: files left in build directory after distclean:" ; \ + $(distcleancheck_listfiles) ; \ + exit 1; } >&2 +check-am: all-am +check: check-recursive +all-am: Makefile config.h +installdirs: installdirs-recursive +installdirs-am: +install: install-recursive +install-exec: install-exec-recursive +install-data: install-data-recursive +uninstall: uninstall-recursive + +install-am: all-am + @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am + +installcheck: installcheck-recursive +install-strip: + $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ + install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ + `test -z '$(STRIP)' || \ + echo "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'"` install +mostlyclean-generic: + +clean-generic: + +distclean-generic: + -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) + +maintainer-clean-generic: + @echo "This command is intended for maintainers to use" + @echo "it deletes files that may require special tools to rebuild." +clean: clean-recursive + +clean-am: clean-generic clean-libtool mostlyclean-am + +distclean: distclean-recursive + -rm -f $(am__CONFIG_DISTCLEAN_FILES) + -rm -f Makefile +distclean-am: clean-am distclean-generic distclean-hdr \ + distclean-libtool distclean-tags + +dvi: dvi-recursive + +dvi-am: + +html: html-recursive + +info: info-recursive + +info-am: + +install-data-am: + +install-exec-am: + +install-info: install-info-recursive + +install-man: + +installcheck-am: + +maintainer-clean: maintainer-clean-recursive + -rm -f $(am__CONFIG_DISTCLEAN_FILES) + -rm -rf $(top_srcdir)/autom4te.cache + -rm -f Makefile +maintainer-clean-am: distclean-am maintainer-clean-generic + +mostlyclean: mostlyclean-recursive + +mostlyclean-am: mostlyclean-generic mostlyclean-libtool + +pdf: pdf-recursive + +pdf-am: + +ps: ps-recursive + +ps-am: + +uninstall-am: uninstall-info-am + +uninstall-info: uninstall-info-recursive + +.PHONY: $(RECURSIVE_TARGETS) CTAGS GTAGS all all-am am--refresh check \ + check-am clean clean-generic clean-libtool clean-recursive \ + ctags ctags-recursive dist dist-all dist-bzip2 dist-gzip \ + dist-shar dist-tarZ dist-zip distcheck distclean \ + distclean-generic distclean-hdr distclean-libtool \ + distclean-recursive distclean-tags distcleancheck distdir \ + distuninstallcheck dvi dvi-am html html-am info info-am \ + install install-am install-data install-data-am install-exec \ + install-exec-am install-info install-info-am install-man \ + install-strip installcheck installcheck-am installdirs \ + installdirs-am maintainer-clean maintainer-clean-generic \ + maintainer-clean-recursive mostlyclean mostlyclean-generic \ + mostlyclean-libtool mostlyclean-recursive pdf pdf-am ps ps-am \ + tags tags-recursive uninstall uninstall-am uninstall-info-am + +# Tell versions [3.59,3.63) of GNU make to not export all variables. +# Otherwise a system limit (for SysV at least) may be exceeded. +.NOEXPORT: diff --git a/NEWS b/NEWS new file mode 100644 index 0000000..e69de29 diff --git a/README b/README new file mode 100644 index 0000000..b0c9efd --- /dev/null +++ b/README @@ -0,0 +1,31 @@ +Veriwell +=================================== + +Veriwell is a verilog simulator. It is compliant to verilog 95, but +does not fully support it. The most notable missing feature is the +support for strengths. + +This package also integrates support for dumping lxt waveform files. +These files can be used with the gtkwaves waveform viewer. + +Quick Start +----------- +tar -zxvf veriwell.tar.gz +cd veriwell +./configure +make +make install + +AMD64 Support +------------- +For AMD64 targets the --enable-m32 switch may be used +when running configure to force a 32 bit version. Note +specifing this switch is equivilent to running +./configure CFLAGS=-m32 LDFLAGS=-m32. + +Lxt support for Gtkwaves (1.*) requires libz to +be installed. Lxt support may be disabled by using +the configuration switch --disable-lxt. + +Enjoy! + diff --git a/TODO b/TODO new file mode 100644 index 0000000..f36506f --- /dev/null +++ b/TODO @@ -0,0 +1,5 @@ +* create man pages +* add email addresses +* add lxt2 support +* add dynamic loading of pli code +* add documentation diff --git a/acinclude.m4 b/acinclude.m4 new file mode 100644 index 0000000..c66b846 --- /dev/null +++ b/acinclude.m4 @@ -0,0 +1,48 @@ +# +# readline lib detection +# +AC_DEFUN([VL_LIB_READLINE], [ + AC_CACHE_CHECK([for a readline compatible library], + vl_cv_lib_readline, [ + ORIG_LIBS="$LIBS" + for readline_lib in readline edit editline; do + for termcap_lib in "" termcap curses ncurses; do + if test -z "$termcap_lib"; then + TRY_LIB="-l$readline_lib" + else + TRY_LIB="-l$readline_lib -l$termcap_lib" + fi + LIBS="$ORIG_LIBS $TRY_LIB" + AC_TRY_LINK_FUNC(readline, vl_cv_lib_readline="$TRY_LIB") + if test -n "$vl_cv_lib_readline"; then + break + fi + done + if test -n "$vl_cv_lib_readline"; then + break + fi + done + if test -z "$vl_cv_lib_readline"; then + vl_cv_lib_readline="no" + LIBS="$ORIG_LIBS" + fi + ]) + + if test "$vl_cv_lib_readline" != "no"; then + AC_DEFINE(HAVE_LIBREADLINE, 1, + [Define if you have a readline compatible library]) + AC_CHECK_HEADERS(readline/readline.h) + AC_CHECK_HEADERS(readline.h) + AC_CACHE_CHECK([whether readline supports history], + vl_cv_lib_readline_history, [ + vl_cv_lib_readline_history="no" + AC_TRY_LINK_FUNC(add_history, vl_cv_lib_readline_history="yes") + ]) + if test "$vl_cv_lib_readline_history" = "yes"; then + AC_DEFINE(HAVE_READLINE_HISTORY, 1, + [Define if your readline library has \`add_history']) + AC_CHECK_HEADERS(history.h readline/history.h) + fi + fi +])dnl + diff --git a/aclocal.m4 b/aclocal.m4 new file mode 100644 index 0000000..07efcc6 --- /dev/null +++ b/aclocal.m4 @@ -0,0 +1,7016 @@ +# generated automatically by aclocal 1.9.5 -*- Autoconf -*- + +# Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, +# 2005 Free Software Foundation, Inc. +# This file is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY, to the extent permitted by law; without +# even the implied warranty of MERCHANTABILITY or FITNESS FOR A +# PARTICULAR PURPOSE. + +# libtool.m4 - Configure libtool for the host system. -*-Autoconf-*- + +# serial 47 AC_PROG_LIBTOOL + + +# AC_PROVIDE_IFELSE(MACRO-NAME, IF-PROVIDED, IF-NOT-PROVIDED) +# ----------------------------------------------------------- +# If this macro is not defined by Autoconf, define it here. +m4_ifdef([AC_PROVIDE_IFELSE], + [], + [m4_define([AC_PROVIDE_IFELSE], + [m4_ifdef([AC_PROVIDE_$1], + [$2], [$3])])]) + + +# AC_PROG_LIBTOOL +# --------------- +AC_DEFUN([AC_PROG_LIBTOOL], +[AC_REQUIRE([_AC_PROG_LIBTOOL])dnl +dnl If AC_PROG_CXX has already been expanded, run AC_LIBTOOL_CXX +dnl immediately, otherwise, hook it in at the end of AC_PROG_CXX. + AC_PROVIDE_IFELSE([AC_PROG_CXX], + [AC_LIBTOOL_CXX], + [define([AC_PROG_CXX], defn([AC_PROG_CXX])[AC_LIBTOOL_CXX + ])]) +dnl And a similar setup for Fortran 77 support + AC_PROVIDE_IFELSE([AC_PROG_F77], + [AC_LIBTOOL_F77], + [define([AC_PROG_F77], defn([AC_PROG_F77])[AC_LIBTOOL_F77 +])]) + +dnl Quote A][M_PROG_GCJ so that aclocal doesn't bring it in needlessly. +dnl If either AC_PROG_GCJ or A][M_PROG_GCJ have already been expanded, run +dnl AC_LIBTOOL_GCJ immediately, otherwise, hook it in at the end of both. + AC_PROVIDE_IFELSE([AC_PROG_GCJ], + [AC_LIBTOOL_GCJ], + [AC_PROVIDE_IFELSE([A][M_PROG_GCJ], + [AC_LIBTOOL_GCJ], + [AC_PROVIDE_IFELSE([LT_AC_PROG_GCJ], + [AC_LIBTOOL_GCJ], + [ifdef([AC_PROG_GCJ], + [define([AC_PROG_GCJ], defn([AC_PROG_GCJ])[AC_LIBTOOL_GCJ])]) + ifdef([A][M_PROG_GCJ], + [define([A][M_PROG_GCJ], defn([A][M_PROG_GCJ])[AC_LIBTOOL_GCJ])]) + ifdef([LT_AC_PROG_GCJ], + [define([LT_AC_PROG_GCJ], + defn([LT_AC_PROG_GCJ])[AC_LIBTOOL_GCJ])])])]) +])])# AC_PROG_LIBTOOL + + +# _AC_PROG_LIBTOOL +# ---------------- +AC_DEFUN([_AC_PROG_LIBTOOL], +[AC_REQUIRE([AC_LIBTOOL_SETUP])dnl +AC_BEFORE([$0],[AC_LIBTOOL_CXX])dnl +AC_BEFORE([$0],[AC_LIBTOOL_F77])dnl +AC_BEFORE([$0],[AC_LIBTOOL_GCJ])dnl + +# This can be used to rebuild libtool when needed +LIBTOOL_DEPS="$ac_aux_dir/ltmain.sh" + +# Always use our own libtool. +LIBTOOL='$(SHELL) $(top_builddir)/libtool' +AC_SUBST(LIBTOOL)dnl + +# Prevent multiple expansion +define([AC_PROG_LIBTOOL], []) +])# _AC_PROG_LIBTOOL + + +# AC_LIBTOOL_SETUP +# ---------------- +AC_DEFUN([AC_LIBTOOL_SETUP], +[AC_PREREQ(2.50)dnl +AC_REQUIRE([AC_ENABLE_SHARED])dnl +AC_REQUIRE([AC_ENABLE_STATIC])dnl +AC_REQUIRE([AC_ENABLE_FAST_INSTALL])dnl +AC_REQUIRE([AC_CANONICAL_HOST])dnl +AC_REQUIRE([AC_CANONICAL_BUILD])dnl +AC_REQUIRE([AC_PROG_CC])dnl +AC_REQUIRE([AC_PROG_LD])dnl +AC_REQUIRE([AC_PROG_LD_RELOAD_FLAG])dnl +AC_REQUIRE([AC_PROG_NM])dnl + +AC_REQUIRE([AC_PROG_LN_S])dnl +AC_REQUIRE([AC_DEPLIBS_CHECK_METHOD])dnl +# Autoconf 2.13's AC_OBJEXT and AC_EXEEXT macros only works for C compilers! +AC_REQUIRE([AC_OBJEXT])dnl +AC_REQUIRE([AC_EXEEXT])dnl +dnl + +AC_LIBTOOL_SYS_MAX_CMD_LEN +AC_LIBTOOL_SYS_GLOBAL_SYMBOL_PIPE +AC_LIBTOOL_OBJDIR + +AC_REQUIRE([_LT_AC_SYS_COMPILER])dnl +_LT_AC_PROG_ECHO_BACKSLASH + +case $host_os in +aix3*) + # AIX sometimes has problems with the GCC collect2 program. For some + # reason, if we set the COLLECT_NAMES environment variable, the problems + # vanish in a puff of smoke. + if test "X${COLLECT_NAMES+set}" != Xset; then + COLLECT_NAMES= + export COLLECT_NAMES + fi + ;; +esac + +# Sed substitution that helps us do robust quoting. It backslashifies +# metacharacters that are still active within double-quoted strings. +Xsed='sed -e 1s/^X//' +[sed_quote_subst='s/\([\\"\\`$\\\\]\)/\\\1/g'] + +# Same as above, but do not quote variable references. +[double_quote_subst='s/\([\\"\\`\\\\]\)/\\\1/g'] + +# Sed substitution to delay expansion of an escaped shell variable in a +# double_quote_subst'ed string. +delay_variable_subst='s/\\\\\\\\\\\$/\\\\\\$/g' + +# Sed substitution to avoid accidental globbing in evaled expressions +no_glob_subst='s/\*/\\\*/g' + +# Constants: +rm="rm -f" + +# Global variables: +default_ofile=libtool +can_build_shared=yes + +# All known linkers require a `.a' archive for static linking (except M$VC, +# which needs '.lib'). +libext=a +ltmain="$ac_aux_dir/ltmain.sh" +ofile="$default_ofile" +with_gnu_ld="$lt_cv_prog_gnu_ld" + +AC_CHECK_TOOL(AR, ar, false) +AC_CHECK_TOOL(RANLIB, ranlib, :) +AC_CHECK_TOOL(STRIP, strip, :) + +old_CC="$CC" +old_CFLAGS="$CFLAGS" + +# Set sane defaults for various variables +test -z "$AR" && AR=ar +test -z "$AR_FLAGS" && AR_FLAGS=cru +test -z "$AS" && AS=as +test -z "$CC" && CC=cc +test -z "$LTCC" && LTCC=$CC +test -z "$DLLTOOL" && DLLTOOL=dlltool +test -z "$LD" && LD=ld +test -z "$LN_S" && LN_S="ln -s" +test -z "$MAGIC_CMD" && MAGIC_CMD=file +test -z "$NM" && NM=nm +test -z "$SED" && SED=sed +test -z "$OBJDUMP" && OBJDUMP=objdump +test -z "$RANLIB" && RANLIB=: +test -z "$STRIP" && STRIP=: +test -z "$ac_objext" && ac_objext=o + +# Determine commands to create old-style static archives. +old_archive_cmds='$AR $AR_FLAGS $oldlib$oldobjs$old_deplibs' +old_postinstall_cmds='chmod 644 $oldlib' +old_postuninstall_cmds= + +if test -n "$RANLIB"; then + case $host_os in + openbsd*) + old_postinstall_cmds="\$RANLIB -t \$oldlib~$old_postinstall_cmds" + ;; + *) + old_postinstall_cmds="\$RANLIB \$oldlib~$old_postinstall_cmds" + ;; + esac + old_archive_cmds="$old_archive_cmds~\$RANLIB \$oldlib" +fi + +_LT_CC_BASENAME([$compiler]) + +# Only perform the check for file, if the check method requires it +case $deplibs_check_method in +file_magic*) + if test "$file_magic_cmd" = '$MAGIC_CMD'; then + AC_PATH_MAGIC + fi + ;; +esac + +AC_PROVIDE_IFELSE([AC_LIBTOOL_DLOPEN], enable_dlopen=yes, enable_dlopen=no) +AC_PROVIDE_IFELSE([AC_LIBTOOL_WIN32_DLL], +enable_win32_dll=yes, enable_win32_dll=no) + +AC_ARG_ENABLE([libtool-lock], + [AC_HELP_STRING([--disable-libtool-lock], + [avoid locking (might break parallel builds)])]) +test "x$enable_libtool_lock" != xno && enable_libtool_lock=yes + +AC_ARG_WITH([pic], + [AC_HELP_STRING([--with-pic], + [try to use only PIC/non-PIC objects @<:@default=use both@:>@])], + [pic_mode="$withval"], + [pic_mode=default]) +test -z "$pic_mode" && pic_mode=default + +# Use C for the default configuration in the libtool script +tagname= +AC_LIBTOOL_LANG_C_CONFIG +_LT_AC_TAGCONFIG +])# AC_LIBTOOL_SETUP + + +# _LT_AC_SYS_COMPILER +# ------------------- +AC_DEFUN([_LT_AC_SYS_COMPILER], +[AC_REQUIRE([AC_PROG_CC])dnl + +# If no C compiler was specified, use CC. +LTCC=${LTCC-"$CC"} + +# Allow CC to be a program name with arguments. +compiler=$CC +])# _LT_AC_SYS_COMPILER + + +# _LT_CC_BASENAME(CC) +# ------------------- +# Calculate cc_basename. Skip known compiler wrappers and cross-prefix. +AC_DEFUN([_LT_CC_BASENAME], +[for cc_temp in $1""; do + case $cc_temp in + compile | *[[\\/]]compile | ccache | *[[\\/]]ccache ) ;; + distcc | *[[\\/]]distcc | purify | *[[\\/]]purify ) ;; + \-*) ;; + *) break;; + esac +done +cc_basename=`$echo "X$cc_temp" | $Xsed -e 's%.*/%%' -e "s%^$host_alias-%%"` +]) + + +# _LT_COMPILER_BOILERPLATE +# ------------------------ +# Check for compiler boilerplate output or warnings with +# the simple compiler test code. +AC_DEFUN([_LT_COMPILER_BOILERPLATE], +[ac_outfile=conftest.$ac_objext +printf "$lt_simple_compile_test_code" >conftest.$ac_ext +eval "$ac_compile" 2>&1 >/dev/null | $SED '/^$/d' >conftest.err +_lt_compiler_boilerplate=`cat conftest.err` +$rm conftest* +])# _LT_COMPILER_BOILERPLATE + + +# _LT_LINKER_BOILERPLATE +# ---------------------- +# Check for linker boilerplate output or warnings with +# the simple link test code. +AC_DEFUN([_LT_LINKER_BOILERPLATE], +[ac_outfile=conftest.$ac_objext +printf "$lt_simple_link_test_code" >conftest.$ac_ext +eval "$ac_link" 2>&1 >/dev/null | $SED '/^$/d' >conftest.err +_lt_linker_boilerplate=`cat conftest.err` +$rm conftest* +])# _LT_LINKER_BOILERPLATE + + +# _LT_AC_SYS_LIBPATH_AIX +# ---------------------- +# Links a minimal program and checks the executable +# for the system default hardcoded library path. In most cases, +# this is /usr/lib:/lib, but when the MPI compilers are used +# the location of the communication and MPI libs are included too. +# If we don't find anything, use the default library path according +# to the aix ld manual. +AC_DEFUN([_LT_AC_SYS_LIBPATH_AIX], +[AC_LINK_IFELSE(AC_LANG_PROGRAM,[ +aix_libpath=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e '/Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/; p; } +}'` +# Check for a 64-bit object if we didn't find anything. +if test -z "$aix_libpath"; then aix_libpath=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e '/Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/; p; } +}'`; fi],[]) +if test -z "$aix_libpath"; then aix_libpath="/usr/lib:/lib"; fi +])# _LT_AC_SYS_LIBPATH_AIX + + +# _LT_AC_SHELL_INIT(ARG) +# ---------------------- +AC_DEFUN([_LT_AC_SHELL_INIT], +[ifdef([AC_DIVERSION_NOTICE], + [AC_DIVERT_PUSH(AC_DIVERSION_NOTICE)], + [AC_DIVERT_PUSH(NOTICE)]) +$1 +AC_DIVERT_POP +])# _LT_AC_SHELL_INIT + + +# _LT_AC_PROG_ECHO_BACKSLASH +# -------------------------- +# Add some code to the start of the generated configure script which +# will find an echo command which doesn't interpret backslashes. +AC_DEFUN([_LT_AC_PROG_ECHO_BACKSLASH], +[_LT_AC_SHELL_INIT([ +# Check that we are running under the correct shell. +SHELL=${CONFIG_SHELL-/bin/sh} + +case X$ECHO in +X*--fallback-echo) + # Remove one level of quotation (which was required for Make). + ECHO=`echo "$ECHO" | sed 's,\\\\\[$]\\[$]0,'[$]0','` + ;; +esac + +echo=${ECHO-echo} +if test "X[$]1" = X--no-reexec; then + # Discard the --no-reexec flag, and continue. + shift +elif test "X[$]1" = X--fallback-echo; then + # Avoid inline document here, it may be left over + : +elif test "X`($echo '\t') 2>/dev/null`" = 'X\t' ; then + # Yippee, $echo works! + : +else + # Restart under the correct shell. + exec $SHELL "[$]0" --no-reexec ${1+"[$]@"} +fi + +if test "X[$]1" = X--fallback-echo; then + # used as fallback echo + shift + cat </dev/null 2>&1 && unset CDPATH + +if test -z "$ECHO"; then +if test "X${echo_test_string+set}" != Xset; then +# find a string as large as possible, as long as the shell can cope with it + for cmd in 'sed 50q "[$]0"' 'sed 20q "[$]0"' 'sed 10q "[$]0"' 'sed 2q "[$]0"' 'echo test'; do + # expected sizes: less than 2Kb, 1Kb, 512 bytes, 16 bytes, ... + if (echo_test_string="`eval $cmd`") 2>/dev/null && + echo_test_string="`eval $cmd`" && + (test "X$echo_test_string" = "X$echo_test_string") 2>/dev/null + then + break + fi + done +fi + +if test "X`($echo '\t') 2>/dev/null`" = 'X\t' && + echo_testing_string=`($echo "$echo_test_string") 2>/dev/null` && + test "X$echo_testing_string" = "X$echo_test_string"; then + : +else + # The Solaris, AIX, and Digital Unix default echo programs unquote + # backslashes. This makes it impossible to quote backslashes using + # echo "$something" | sed 's/\\/\\\\/g' + # + # So, first we look for a working echo in the user's PATH. + + lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR + for dir in $PATH /usr/ucb; do + IFS="$lt_save_ifs" + if (test -f $dir/echo || test -f $dir/echo$ac_exeext) && + test "X`($dir/echo '\t') 2>/dev/null`" = 'X\t' && + echo_testing_string=`($dir/echo "$echo_test_string") 2>/dev/null` && + test "X$echo_testing_string" = "X$echo_test_string"; then + echo="$dir/echo" + break + fi + done + IFS="$lt_save_ifs" + + if test "X$echo" = Xecho; then + # We didn't find a better echo, so look for alternatives. + if test "X`(print -r '\t') 2>/dev/null`" = 'X\t' && + echo_testing_string=`(print -r "$echo_test_string") 2>/dev/null` && + test "X$echo_testing_string" = "X$echo_test_string"; then + # This shell has a builtin print -r that does the trick. + echo='print -r' + elif (test -f /bin/ksh || test -f /bin/ksh$ac_exeext) && + test "X$CONFIG_SHELL" != X/bin/ksh; then + # If we have ksh, try running configure again with it. + ORIGINAL_CONFIG_SHELL=${CONFIG_SHELL-/bin/sh} + export ORIGINAL_CONFIG_SHELL + CONFIG_SHELL=/bin/ksh + export CONFIG_SHELL + exec $CONFIG_SHELL "[$]0" --no-reexec ${1+"[$]@"} + else + # Try using printf. + echo='printf %s\n' + if test "X`($echo '\t') 2>/dev/null`" = 'X\t' && + echo_testing_string=`($echo "$echo_test_string") 2>/dev/null` && + test "X$echo_testing_string" = "X$echo_test_string"; then + # Cool, printf works + : + elif echo_testing_string=`($ORIGINAL_CONFIG_SHELL "[$]0" --fallback-echo '\t') 2>/dev/null` && + test "X$echo_testing_string" = 'X\t' && + echo_testing_string=`($ORIGINAL_CONFIG_SHELL "[$]0" --fallback-echo "$echo_test_string") 2>/dev/null` && + test "X$echo_testing_string" = "X$echo_test_string"; then + CONFIG_SHELL=$ORIGINAL_CONFIG_SHELL + export CONFIG_SHELL + SHELL="$CONFIG_SHELL" + export SHELL + echo="$CONFIG_SHELL [$]0 --fallback-echo" + elif echo_testing_string=`($CONFIG_SHELL "[$]0" --fallback-echo '\t') 2>/dev/null` && + test "X$echo_testing_string" = 'X\t' && + echo_testing_string=`($CONFIG_SHELL "[$]0" --fallback-echo "$echo_test_string") 2>/dev/null` && + test "X$echo_testing_string" = "X$echo_test_string"; then + echo="$CONFIG_SHELL [$]0 --fallback-echo" + else + # maybe with a smaller string... + prev=: + + for cmd in 'echo test' 'sed 2q "[$]0"' 'sed 10q "[$]0"' 'sed 20q "[$]0"' 'sed 50q "[$]0"'; do + if (test "X$echo_test_string" = "X`eval $cmd`") 2>/dev/null + then + break + fi + prev="$cmd" + done + + if test "$prev" != 'sed 50q "[$]0"'; then + echo_test_string=`eval $prev` + export echo_test_string + exec ${ORIGINAL_CONFIG_SHELL-${CONFIG_SHELL-/bin/sh}} "[$]0" ${1+"[$]@"} + else + # Oops. We lost completely, so just stick with echo. + echo=echo + fi + fi + fi + fi +fi +fi + +# Copy echo and quote the copy suitably for passing to libtool from +# the Makefile, instead of quoting the original, which is used later. +ECHO=$echo +if test "X$ECHO" = "X$CONFIG_SHELL [$]0 --fallback-echo"; then + ECHO="$CONFIG_SHELL \\\$\[$]0 --fallback-echo" +fi + +AC_SUBST(ECHO) +])])# _LT_AC_PROG_ECHO_BACKSLASH + + +# _LT_AC_LOCK +# ----------- +AC_DEFUN([_LT_AC_LOCK], +[AC_ARG_ENABLE([libtool-lock], + [AC_HELP_STRING([--disable-libtool-lock], + [avoid locking (might break parallel builds)])]) +test "x$enable_libtool_lock" != xno && enable_libtool_lock=yes + +# Some flags need to be propagated to the compiler or linker for good +# libtool support. +case $host in +ia64-*-hpux*) + # Find out which ABI we are using. + echo 'int i;' > conftest.$ac_ext + if AC_TRY_EVAL(ac_compile); then + case `/usr/bin/file conftest.$ac_objext` in + *ELF-32*) + HPUX_IA64_MODE="32" + ;; + *ELF-64*) + HPUX_IA64_MODE="64" + ;; + esac + fi + rm -rf conftest* + ;; +*-*-irix6*) + # Find out which ABI we are using. + echo '[#]line __oline__ "configure"' > conftest.$ac_ext + if AC_TRY_EVAL(ac_compile); then + if test "$lt_cv_prog_gnu_ld" = yes; then + case `/usr/bin/file conftest.$ac_objext` in + *32-bit*) + LD="${LD-ld} -melf32bsmip" + ;; + *N32*) + LD="${LD-ld} -melf32bmipn32" + ;; + *64-bit*) + LD="${LD-ld} -melf64bmip" + ;; + esac + else + case `/usr/bin/file conftest.$ac_objext` in + *32-bit*) + LD="${LD-ld} -32" + ;; + *N32*) + LD="${LD-ld} -n32" + ;; + *64-bit*) + LD="${LD-ld} -64" + ;; + esac + fi + fi + rm -rf conftest* + ;; + +x86_64-*linux*|ppc*-*linux*|powerpc*-*linux*|s390*-*linux*|sparc*-*linux*) + # Find out which ABI we are using. + echo 'int i;' > conftest.$ac_ext + if AC_TRY_EVAL(ac_compile); then + case "`/usr/bin/file conftest.o`" in + *32-bit*) + case $host in + x86_64-*linux*) + LD="${LD-ld} -m elf_i386" + ;; + ppc64-*linux*|powerpc64-*linux*) + LD="${LD-ld} -m elf32ppclinux" + ;; + s390x-*linux*) + LD="${LD-ld} -m elf_s390" + ;; + sparc64-*linux*) + LD="${LD-ld} -m elf32_sparc" + ;; + esac + ;; + *64-bit*) + case $host in + x86_64-*linux*) + LD="${LD-ld} -m elf_x86_64" + ;; + ppc*-*linux*|powerpc*-*linux*) + LD="${LD-ld} -m elf64ppc" + ;; + s390*-*linux*) + LD="${LD-ld} -m elf64_s390" + ;; + sparc*-*linux*) + LD="${LD-ld} -m elf64_sparc" + ;; + esac + ;; + esac + fi + rm -rf conftest* + ;; + +*-*-sco3.2v5*) + # On SCO OpenServer 5, we need -belf to get full-featured binaries. + SAVE_CFLAGS="$CFLAGS" + CFLAGS="$CFLAGS -belf" + AC_CACHE_CHECK([whether the C compiler needs -belf], lt_cv_cc_needs_belf, + [AC_LANG_PUSH(C) + AC_TRY_LINK([],[],[lt_cv_cc_needs_belf=yes],[lt_cv_cc_needs_belf=no]) + AC_LANG_POP]) + if test x"$lt_cv_cc_needs_belf" != x"yes"; then + # this is probably gcc 2.8.0, egcs 1.0 or newer; no need for -belf + CFLAGS="$SAVE_CFLAGS" + fi + ;; +AC_PROVIDE_IFELSE([AC_LIBTOOL_WIN32_DLL], +[*-*-cygwin* | *-*-mingw* | *-*-pw32*) + AC_CHECK_TOOL(DLLTOOL, dlltool, false) + AC_CHECK_TOOL(AS, as, false) + AC_CHECK_TOOL(OBJDUMP, objdump, false) + ;; + ]) +esac + +need_locks="$enable_libtool_lock" + +])# _LT_AC_LOCK + + +# AC_LIBTOOL_COMPILER_OPTION(MESSAGE, VARIABLE-NAME, FLAGS, +# [OUTPUT-FILE], [ACTION-SUCCESS], [ACTION-FAILURE]) +# ---------------------------------------------------------------- +# Check whether the given compiler option works +AC_DEFUN([AC_LIBTOOL_COMPILER_OPTION], +[AC_REQUIRE([LT_AC_PROG_SED]) +AC_CACHE_CHECK([$1], [$2], + [$2=no + ifelse([$4], , [ac_outfile=conftest.$ac_objext], [ac_outfile=$4]) + printf "$lt_simple_compile_test_code" > conftest.$ac_ext + lt_compiler_flag="$3" + # Insert the option either (1) after the last *FLAGS variable, or + # (2) before a word containing "conftest.", or (3) at the end. + # Note that $ac_compile itself does not contain backslashes and begins + # with a dollar sign (not a hyphen), so the echo should work correctly. + # The option is referenced via a variable to avoid confusing sed. + lt_compile=`echo "$ac_compile" | $SED \ + -e 's:.*FLAGS}? :&$lt_compiler_flag :; t' \ + -e 's: [[^ ]]*conftest\.: $lt_compiler_flag&:; t' \ + -e 's:$: $lt_compiler_flag:'` + (eval echo "\"\$as_me:__oline__: $lt_compile\"" >&AS_MESSAGE_LOG_FD) + (eval "$lt_compile" 2>conftest.err) + ac_status=$? + cat conftest.err >&AS_MESSAGE_LOG_FD + echo "$as_me:__oline__: \$? = $ac_status" >&AS_MESSAGE_LOG_FD + if (exit $ac_status) && test -s "$ac_outfile"; then + # The compiler can only warn and ignore the option if not recognized + # So say no if there are warnings other than the usual output. + $echo "X$_lt_compiler_boilerplate" | $Xsed >conftest.exp + $SED '/^$/d' conftest.err >conftest.er2 + if test ! -s conftest.err || diff conftest.exp conftest.er2 >/dev/null; then + $2=yes + fi + fi + $rm conftest* +]) + +if test x"[$]$2" = xyes; then + ifelse([$5], , :, [$5]) +else + ifelse([$6], , :, [$6]) +fi +])# AC_LIBTOOL_COMPILER_OPTION + + +# AC_LIBTOOL_LINKER_OPTION(MESSAGE, VARIABLE-NAME, FLAGS, +# [ACTION-SUCCESS], [ACTION-FAILURE]) +# ------------------------------------------------------------ +# Check whether the given compiler option works +AC_DEFUN([AC_LIBTOOL_LINKER_OPTION], +[AC_CACHE_CHECK([$1], [$2], + [$2=no + save_LDFLAGS="$LDFLAGS" + LDFLAGS="$LDFLAGS $3" + printf "$lt_simple_link_test_code" > conftest.$ac_ext + if (eval $ac_link 2>conftest.err) && test -s conftest$ac_exeext; then + # The compiler can only warn and ignore the option if not recognized + # So say no if there are warnings + if test -s conftest.err; then + # Append any errors to the config.log. + cat conftest.err 1>&AS_MESSAGE_LOG_FD + $echo "X$_lt_linker_boilerplate" | $Xsed > conftest.exp + $SED '/^$/d' conftest.err >conftest.er2 + if diff conftest.exp conftest.er2 >/dev/null; then + $2=yes + fi + else + $2=yes + fi + fi + $rm conftest* + LDFLAGS="$save_LDFLAGS" +]) + +if test x"[$]$2" = xyes; then + ifelse([$4], , :, [$4]) +else + ifelse([$5], , :, [$5]) +fi +])# AC_LIBTOOL_LINKER_OPTION + + +# AC_LIBTOOL_SYS_MAX_CMD_LEN +# -------------------------- +AC_DEFUN([AC_LIBTOOL_SYS_MAX_CMD_LEN], +[# find the maximum length of command line arguments +AC_MSG_CHECKING([the maximum length of command line arguments]) +AC_CACHE_VAL([lt_cv_sys_max_cmd_len], [dnl + i=0 + teststring="ABCD" + + case $build_os in + msdosdjgpp*) + # On DJGPP, this test can blow up pretty badly due to problems in libc + # (any single argument exceeding 2000 bytes causes a buffer overrun + # during glob expansion). Even if it were fixed, the result of this + # check would be larger than it should be. + lt_cv_sys_max_cmd_len=12288; # 12K is about right + ;; + + gnu*) + # Under GNU Hurd, this test is not required because there is + # no limit to the length of command line arguments. + # Libtool will interpret -1 as no limit whatsoever + lt_cv_sys_max_cmd_len=-1; + ;; + + cygwin* | mingw*) + # On Win9x/ME, this test blows up -- it succeeds, but takes + # about 5 minutes as the teststring grows exponentially. + # Worse, since 9x/ME are not pre-emptively multitasking, + # you end up with a "frozen" computer, even though with patience + # the test eventually succeeds (with a max line length of 256k). + # Instead, let's just punt: use the minimum linelength reported by + # all of the supported platforms: 8192 (on NT/2K/XP). + lt_cv_sys_max_cmd_len=8192; + ;; + + amigaos*) + # On AmigaOS with pdksh, this test takes hours, literally. + # So we just punt and use a minimum line length of 8192. + lt_cv_sys_max_cmd_len=8192; + ;; + + netbsd* | freebsd* | openbsd* | darwin* | dragonfly*) + # This has been around since 386BSD, at least. Likely further. + if test -x /sbin/sysctl; then + lt_cv_sys_max_cmd_len=`/sbin/sysctl -n kern.argmax` + elif test -x /usr/sbin/sysctl; then + lt_cv_sys_max_cmd_len=`/usr/sbin/sysctl -n kern.argmax` + else + lt_cv_sys_max_cmd_len=65536 # usable default for *BSD + fi + # And add a safety zone + lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 4` + lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \* 3` + ;; + osf*) + # Dr. Hans Ekkehard Plesser reports seeing a kernel panic running configure + # due to this test when exec_disable_arg_limit is 1 on Tru64. It is not + # nice to cause kernel panics so lets avoid the loop below. + # First set a reasonable default. + lt_cv_sys_max_cmd_len=16384 + # + if test -x /sbin/sysconfig; then + case `/sbin/sysconfig -q proc exec_disable_arg_limit` in + *1*) lt_cv_sys_max_cmd_len=-1 ;; + esac + fi + ;; + *) + # If test is not a shell built-in, we'll probably end up computing a + # maximum length that is only half of the actual maximum length, but + # we can't tell. + SHELL=${SHELL-${CONFIG_SHELL-/bin/sh}} + while (test "X"`$SHELL [$]0 --fallback-echo "X$teststring" 2>/dev/null` \ + = "XX$teststring") >/dev/null 2>&1 && + new_result=`expr "X$teststring" : ".*" 2>&1` && + lt_cv_sys_max_cmd_len=$new_result && + test $i != 17 # 1/2 MB should be enough + do + i=`expr $i + 1` + teststring=$teststring$teststring + done + teststring= + # Add a significant safety factor because C++ compilers can tack on massive + # amounts of additional arguments before passing them to the linker. + # It appears as though 1/2 is a usable value. + lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 2` + ;; + esac +]) +if test -n $lt_cv_sys_max_cmd_len ; then + AC_MSG_RESULT($lt_cv_sys_max_cmd_len) +else + AC_MSG_RESULT(none) +fi +])# AC_LIBTOOL_SYS_MAX_CMD_LEN + + +# _LT_AC_CHECK_DLFCN +# -------------------- +AC_DEFUN([_LT_AC_CHECK_DLFCN], +[AC_CHECK_HEADERS(dlfcn.h)dnl +])# _LT_AC_CHECK_DLFCN + + +# _LT_AC_TRY_DLOPEN_SELF (ACTION-IF-TRUE, ACTION-IF-TRUE-W-USCORE, +# ACTION-IF-FALSE, ACTION-IF-CROSS-COMPILING) +# ------------------------------------------------------------------ +AC_DEFUN([_LT_AC_TRY_DLOPEN_SELF], +[AC_REQUIRE([_LT_AC_CHECK_DLFCN])dnl +if test "$cross_compiling" = yes; then : + [$4] +else + lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2 + lt_status=$lt_dlunknown + cat > conftest.$ac_ext < +#endif + +#include + +#ifdef RTLD_GLOBAL +# define LT_DLGLOBAL RTLD_GLOBAL +#else +# ifdef DL_GLOBAL +# define LT_DLGLOBAL DL_GLOBAL +# else +# define LT_DLGLOBAL 0 +# endif +#endif + +/* We may have to define LT_DLLAZY_OR_NOW in the command line if we + find out it does not work in some platform. */ +#ifndef LT_DLLAZY_OR_NOW +# ifdef RTLD_LAZY +# define LT_DLLAZY_OR_NOW RTLD_LAZY +# else +# ifdef DL_LAZY +# define LT_DLLAZY_OR_NOW DL_LAZY +# else +# ifdef RTLD_NOW +# define LT_DLLAZY_OR_NOW RTLD_NOW +# else +# ifdef DL_NOW +# define LT_DLLAZY_OR_NOW DL_NOW +# else +# define LT_DLLAZY_OR_NOW 0 +# endif +# endif +# endif +# endif +#endif + +#ifdef __cplusplus +extern "C" void exit (int); +#endif + +void fnord() { int i=42;} +int main () +{ + void *self = dlopen (0, LT_DLGLOBAL|LT_DLLAZY_OR_NOW); + int status = $lt_dlunknown; + + if (self) + { + if (dlsym (self,"fnord")) status = $lt_dlno_uscore; + else if (dlsym( self,"_fnord")) status = $lt_dlneed_uscore; + /* dlclose (self); */ + } + + exit (status); +}] +EOF + if AC_TRY_EVAL(ac_link) && test -s conftest${ac_exeext} 2>/dev/null; then + (./conftest; exit; ) 2>/dev/null + lt_status=$? + case x$lt_status in + x$lt_dlno_uscore) $1 ;; + x$lt_dlneed_uscore) $2 ;; + x$lt_unknown|x*) $3 ;; + esac + else : + # compilation failed + $3 + fi +fi +rm -fr conftest* +])# _LT_AC_TRY_DLOPEN_SELF + + +# AC_LIBTOOL_DLOPEN_SELF +# ------------------- +AC_DEFUN([AC_LIBTOOL_DLOPEN_SELF], +[AC_REQUIRE([_LT_AC_CHECK_DLFCN])dnl +if test "x$enable_dlopen" != xyes; then + enable_dlopen=unknown + enable_dlopen_self=unknown + enable_dlopen_self_static=unknown +else + lt_cv_dlopen=no + lt_cv_dlopen_libs= + + case $host_os in + beos*) + lt_cv_dlopen="load_add_on" + lt_cv_dlopen_libs= + lt_cv_dlopen_self=yes + ;; + + mingw* | pw32*) + lt_cv_dlopen="LoadLibrary" + lt_cv_dlopen_libs= + ;; + + cygwin*) + lt_cv_dlopen="dlopen" + lt_cv_dlopen_libs= + ;; + + darwin*) + # if libdl is installed we need to link against it + AC_CHECK_LIB([dl], [dlopen], + [lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-ldl"],[ + lt_cv_dlopen="dyld" + lt_cv_dlopen_libs= + lt_cv_dlopen_self=yes + ]) + ;; + + *) + AC_CHECK_FUNC([shl_load], + [lt_cv_dlopen="shl_load"], + [AC_CHECK_LIB([dld], [shl_load], + [lt_cv_dlopen="shl_load" lt_cv_dlopen_libs="-dld"], + [AC_CHECK_FUNC([dlopen], + [lt_cv_dlopen="dlopen"], + [AC_CHECK_LIB([dl], [dlopen], + [lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-ldl"], + [AC_CHECK_LIB([svld], [dlopen], + [lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-lsvld"], + [AC_CHECK_LIB([dld], [dld_link], + [lt_cv_dlopen="dld_link" lt_cv_dlopen_libs="-dld"]) + ]) + ]) + ]) + ]) + ]) + ;; + esac + + if test "x$lt_cv_dlopen" != xno; then + enable_dlopen=yes + else + enable_dlopen=no + fi + + case $lt_cv_dlopen in + dlopen) + save_CPPFLAGS="$CPPFLAGS" + test "x$ac_cv_header_dlfcn_h" = xyes && CPPFLAGS="$CPPFLAGS -DHAVE_DLFCN_H" + + save_LDFLAGS="$LDFLAGS" + eval LDFLAGS=\"\$LDFLAGS $export_dynamic_flag_spec\" + + save_LIBS="$LIBS" + LIBS="$lt_cv_dlopen_libs $LIBS" + + AC_CACHE_CHECK([whether a program can dlopen itself], + lt_cv_dlopen_self, [dnl + _LT_AC_TRY_DLOPEN_SELF( + lt_cv_dlopen_self=yes, lt_cv_dlopen_self=yes, + lt_cv_dlopen_self=no, lt_cv_dlopen_self=cross) + ]) + + if test "x$lt_cv_dlopen_self" = xyes; then + LDFLAGS="$LDFLAGS $link_static_flag" + AC_CACHE_CHECK([whether a statically linked program can dlopen itself], + lt_cv_dlopen_self_static, [dnl + _LT_AC_TRY_DLOPEN_SELF( + lt_cv_dlopen_self_static=yes, lt_cv_dlopen_self_static=yes, + lt_cv_dlopen_self_static=no, lt_cv_dlopen_self_static=cross) + ]) + fi + + CPPFLAGS="$save_CPPFLAGS" + LDFLAGS="$save_LDFLAGS" + LIBS="$save_LIBS" + ;; + esac + + case $lt_cv_dlopen_self in + yes|no) enable_dlopen_self=$lt_cv_dlopen_self ;; + *) enable_dlopen_self=unknown ;; + esac + + case $lt_cv_dlopen_self_static in + yes|no) enable_dlopen_self_static=$lt_cv_dlopen_self_static ;; + *) enable_dlopen_self_static=unknown ;; + esac +fi +])# AC_LIBTOOL_DLOPEN_SELF + + +# AC_LIBTOOL_PROG_CC_C_O([TAGNAME]) +# --------------------------------- +# Check to see if options -c and -o are simultaneously supported by compiler +AC_DEFUN([AC_LIBTOOL_PROG_CC_C_O], +[AC_REQUIRE([_LT_AC_SYS_COMPILER])dnl +AC_CACHE_CHECK([if $compiler supports -c -o file.$ac_objext], + [_LT_AC_TAGVAR(lt_cv_prog_compiler_c_o, $1)], + [_LT_AC_TAGVAR(lt_cv_prog_compiler_c_o, $1)=no + $rm -r conftest 2>/dev/null + mkdir conftest + cd conftest + mkdir out + printf "$lt_simple_compile_test_code" > conftest.$ac_ext + + lt_compiler_flag="-o out/conftest2.$ac_objext" + # Insert the option either (1) after the last *FLAGS variable, or + # (2) before a word containing "conftest.", or (3) at the end. + # Note that $ac_compile itself does not contain backslashes and begins + # with a dollar sign (not a hyphen), so the echo should work correctly. + lt_compile=`echo "$ac_compile" | $SED \ + -e 's:.*FLAGS}? :&$lt_compiler_flag :; t' \ + -e 's: [[^ ]]*conftest\.: $lt_compiler_flag&:; t' \ + -e 's:$: $lt_compiler_flag:'` + (eval echo "\"\$as_me:__oline__: $lt_compile\"" >&AS_MESSAGE_LOG_FD) + (eval "$lt_compile" 2>out/conftest.err) + ac_status=$? + cat out/conftest.err >&AS_MESSAGE_LOG_FD + echo "$as_me:__oline__: \$? = $ac_status" >&AS_MESSAGE_LOG_FD + if (exit $ac_status) && test -s out/conftest2.$ac_objext + then + # The compiler can only warn and ignore the option if not recognized + # So say no if there are warnings + $echo "X$_lt_compiler_boilerplate" | $Xsed > out/conftest.exp + $SED '/^$/d' out/conftest.err >out/conftest.er2 + if test ! -s out/conftest.err || diff out/conftest.exp out/conftest.er2 >/dev/null; then + _LT_AC_TAGVAR(lt_cv_prog_compiler_c_o, $1)=yes + fi + fi + chmod u+w . + $rm conftest* + # SGI C++ compiler will create directory out/ii_files/ for + # template instantiation + test -d out/ii_files && $rm out/ii_files/* && rmdir out/ii_files + $rm out/* && rmdir out + cd .. + rmdir conftest + $rm conftest* +]) +])# AC_LIBTOOL_PROG_CC_C_O + + +# AC_LIBTOOL_SYS_HARD_LINK_LOCKS([TAGNAME]) +# ----------------------------------------- +# Check to see if we can do hard links to lock some files if needed +AC_DEFUN([AC_LIBTOOL_SYS_HARD_LINK_LOCKS], +[AC_REQUIRE([_LT_AC_LOCK])dnl + +hard_links="nottested" +if test "$_LT_AC_TAGVAR(lt_cv_prog_compiler_c_o, $1)" = no && test "$need_locks" != no; then + # do not overwrite the value of need_locks provided by the user + AC_MSG_CHECKING([if we can lock with hard links]) + hard_links=yes + $rm conftest* + ln conftest.a conftest.b 2>/dev/null && hard_links=no + touch conftest.a + ln conftest.a conftest.b 2>&5 || hard_links=no + ln conftest.a conftest.b 2>/dev/null && hard_links=no + AC_MSG_RESULT([$hard_links]) + if test "$hard_links" = no; then + AC_MSG_WARN([`$CC' does not support `-c -o', so `make -j' may be unsafe]) + need_locks=warn + fi +else + need_locks=no +fi +])# AC_LIBTOOL_SYS_HARD_LINK_LOCKS + + +# AC_LIBTOOL_OBJDIR +# ----------------- +AC_DEFUN([AC_LIBTOOL_OBJDIR], +[AC_CACHE_CHECK([for objdir], [lt_cv_objdir], +[rm -f .libs 2>/dev/null +mkdir .libs 2>/dev/null +if test -d .libs; then + lt_cv_objdir=.libs +else + # MS-DOS does not allow filenames that begin with a dot. + lt_cv_objdir=_libs +fi +rmdir .libs 2>/dev/null]) +objdir=$lt_cv_objdir +])# AC_LIBTOOL_OBJDIR + + +# AC_LIBTOOL_PROG_LD_HARDCODE_LIBPATH([TAGNAME]) +# ---------------------------------------------- +# Check hardcoding attributes. +AC_DEFUN([AC_LIBTOOL_PROG_LD_HARDCODE_LIBPATH], +[AC_MSG_CHECKING([how to hardcode library paths into programs]) +_LT_AC_TAGVAR(hardcode_action, $1)= +if test -n "$_LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)" || \ + test -n "$_LT_AC_TAGVAR(runpath_var, $1)" || \ + test "X$_LT_AC_TAGVAR(hardcode_automatic, $1)" = "Xyes" ; then + + # We can hardcode non-existant directories. + if test "$_LT_AC_TAGVAR(hardcode_direct, $1)" != no && + # If the only mechanism to avoid hardcoding is shlibpath_var, we + # have to relink, otherwise we might link with an installed library + # when we should be linking with a yet-to-be-installed one + ## test "$_LT_AC_TAGVAR(hardcode_shlibpath_var, $1)" != no && + test "$_LT_AC_TAGVAR(hardcode_minus_L, $1)" != no; then + # Linking always hardcodes the temporary library directory. + _LT_AC_TAGVAR(hardcode_action, $1)=relink + else + # We can link without hardcoding, and we can hardcode nonexisting dirs. + _LT_AC_TAGVAR(hardcode_action, $1)=immediate + fi +else + # We cannot hardcode anything, or else we can only hardcode existing + # directories. + _LT_AC_TAGVAR(hardcode_action, $1)=unsupported +fi +AC_MSG_RESULT([$_LT_AC_TAGVAR(hardcode_action, $1)]) + +if test "$_LT_AC_TAGVAR(hardcode_action, $1)" = relink; then + # Fast installation is not supported + enable_fast_install=no +elif test "$shlibpath_overrides_runpath" = yes || + test "$enable_shared" = no; then + # Fast installation is not necessary + enable_fast_install=needless +fi +])# AC_LIBTOOL_PROG_LD_HARDCODE_LIBPATH + + +# AC_LIBTOOL_SYS_LIB_STRIP +# ------------------------ +AC_DEFUN([AC_LIBTOOL_SYS_LIB_STRIP], +[striplib= +old_striplib= +AC_MSG_CHECKING([whether stripping libraries is possible]) +if test -n "$STRIP" && $STRIP -V 2>&1 | grep "GNU strip" >/dev/null; then + test -z "$old_striplib" && old_striplib="$STRIP --strip-debug" + test -z "$striplib" && striplib="$STRIP --strip-unneeded" + AC_MSG_RESULT([yes]) +else +# FIXME - insert some real tests, host_os isn't really good enough + case $host_os in + darwin*) + if test -n "$STRIP" ; then + striplib="$STRIP -x" + AC_MSG_RESULT([yes]) + else + AC_MSG_RESULT([no]) +fi + ;; + *) + AC_MSG_RESULT([no]) + ;; + esac +fi +])# AC_LIBTOOL_SYS_LIB_STRIP + + +# AC_LIBTOOL_SYS_DYNAMIC_LINKER +# ----------------------------- +# PORTME Fill in your ld.so characteristics +AC_DEFUN([AC_LIBTOOL_SYS_DYNAMIC_LINKER], +[AC_MSG_CHECKING([dynamic linker characteristics]) +library_names_spec= +libname_spec='lib$name' +soname_spec= +shrext_cmds=".so" +postinstall_cmds= +postuninstall_cmds= +finish_cmds= +finish_eval= +shlibpath_var= +shlibpath_overrides_runpath=unknown +version_type=none +dynamic_linker="$host_os ld.so" +sys_lib_dlsearch_path_spec="/lib /usr/lib" +if test "$GCC" = yes; then + sys_lib_search_path_spec=`$CC -print-search-dirs | grep "^libraries:" | $SED -e "s/^libraries://" -e "s,=/,/,g"` + if echo "$sys_lib_search_path_spec" | grep ';' >/dev/null ; then + # if the path contains ";" then we assume it to be the separator + # otherwise default to the standard path separator (i.e. ":") - it is + # assumed that no part of a normal pathname contains ";" but that should + # okay in the real world where ";" in dirpaths is itself problematic. + sys_lib_search_path_spec=`echo "$sys_lib_search_path_spec" | $SED -e 's/;/ /g'` + else + sys_lib_search_path_spec=`echo "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"` + fi +else + sys_lib_search_path_spec="/lib /usr/lib /usr/local/lib" +fi +need_lib_prefix=unknown +hardcode_into_libs=no + +# when you set need_version to no, make sure it does not cause -set_version +# flags to be left without arguments +need_version=unknown + +case $host_os in +aix3*) + version_type=linux + library_names_spec='${libname}${release}${shared_ext}$versuffix $libname.a' + shlibpath_var=LIBPATH + + # AIX 3 has no versioning support, so we append a major version to the name. + soname_spec='${libname}${release}${shared_ext}$major' + ;; + +aix4* | aix5*) + version_type=linux + need_lib_prefix=no + need_version=no + hardcode_into_libs=yes + if test "$host_cpu" = ia64; then + # AIX 5 supports IA64 + library_names_spec='${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext}$versuffix $libname${shared_ext}' + shlibpath_var=LD_LIBRARY_PATH + else + # With GCC up to 2.95.x, collect2 would create an import file + # for dependence libraries. The import file would start with + # the line `#! .'. This would cause the generated library to + # depend on `.', always an invalid library. This was fixed in + # development snapshots of GCC prior to 3.0. + case $host_os in + aix4 | aix4.[[01]] | aix4.[[01]].*) + if { echo '#if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 97)' + echo ' yes ' + echo '#endif'; } | ${CC} -E - | grep yes > /dev/null; then + : + else + can_build_shared=no + fi + ;; + esac + # AIX (on Power*) has no versioning support, so currently we can not hardcode correct + # soname into executable. Probably we can add versioning support to + # collect2, so additional links can be useful in future. + if test "$aix_use_runtimelinking" = yes; then + # If using run time linking (on AIX 4.2 or later) use lib.so + # instead of lib.a to let people know that these are not + # typical AIX shared libraries. + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + else + # We preserve .a as extension for shared libraries through AIX4.2 + # and later when we are not doing run time linking. + library_names_spec='${libname}${release}.a $libname.a' + soname_spec='${libname}${release}${shared_ext}$major' + fi + shlibpath_var=LIBPATH + fi + ;; + +amigaos*) + library_names_spec='$libname.ixlibrary $libname.a' + # Create ${libname}_ixlibrary.a entries in /sys/libs. + finish_eval='for lib in `ls $libdir/*.ixlibrary 2>/dev/null`; do libname=`$echo "X$lib" | $Xsed -e '\''s%^.*/\([[^/]]*\)\.ixlibrary$%\1%'\''`; test $rm /sys/libs/${libname}_ixlibrary.a; $show "cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a"; cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a || exit 1; done' + ;; + +beos*) + library_names_spec='${libname}${shared_ext}' + dynamic_linker="$host_os ld.so" + shlibpath_var=LIBRARY_PATH + ;; + +bsdi[[45]]*) + version_type=linux + need_version=no + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + finish_cmds='PATH="\$PATH:/sbin" ldconfig $libdir' + shlibpath_var=LD_LIBRARY_PATH + sys_lib_search_path_spec="/shlib /usr/lib /usr/X11/lib /usr/contrib/lib /lib /usr/local/lib" + sys_lib_dlsearch_path_spec="/shlib /usr/lib /usr/local/lib" + # the default ld.so.conf also contains /usr/contrib/lib and + # /usr/X11R6/lib (/usr/X11 is a link to /usr/X11R6), but let us allow + # libtool to hard-code these into programs + ;; + +cygwin* | mingw* | pw32*) + version_type=windows + shrext_cmds=".dll" + need_version=no + need_lib_prefix=no + + case $GCC,$host_os in + yes,cygwin* | yes,mingw* | yes,pw32*) + library_names_spec='$libname.dll.a' + # DLL is installed to $(libdir)/../bin by postinstall_cmds + postinstall_cmds='base_file=`basename \${file}`~ + dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\${base_file}'\''i;echo \$dlname'\''`~ + dldir=$destdir/`dirname \$dlpath`~ + test -d \$dldir || mkdir -p \$dldir~ + $install_prog $dir/$dlname \$dldir/$dlname' + postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~ + dlpath=$dir/\$dldll~ + $rm \$dlpath' + shlibpath_overrides_runpath=yes + + case $host_os in + cygwin*) + # Cygwin DLLs use 'cyg' prefix rather than 'lib' + soname_spec='`echo ${libname} | sed -e 's/^lib/cyg/'``echo ${release} | $SED -e 's/[[.]]/-/g'`${versuffix}${shared_ext}' + sys_lib_search_path_spec="/usr/lib /lib/w32api /lib /usr/local/lib" + ;; + mingw*) + # MinGW DLLs use traditional 'lib' prefix + soname_spec='${libname}`echo ${release} | $SED -e 's/[[.]]/-/g'`${versuffix}${shared_ext}' + sys_lib_search_path_spec=`$CC -print-search-dirs | grep "^libraries:" | $SED -e "s/^libraries://" -e "s,=/,/,g"` + if echo "$sys_lib_search_path_spec" | [grep ';[c-zC-Z]:/' >/dev/null]; then + # It is most probably a Windows format PATH printed by + # mingw gcc, but we are running on Cygwin. Gcc prints its search + # path with ; separators, and with drive letters. We can handle the + # drive letters (cygwin fileutils understands them), so leave them, + # especially as we might pass files found there to a mingw objdump, + # which wouldn't understand a cygwinified path. Ahh. + sys_lib_search_path_spec=`echo "$sys_lib_search_path_spec" | $SED -e 's/;/ /g'` + else + sys_lib_search_path_spec=`echo "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"` + fi + ;; + pw32*) + # pw32 DLLs use 'pw' prefix rather than 'lib' + library_names_spec='`echo ${libname} | sed -e 's/^lib/pw/'``echo ${release} | $SED -e 's/[[.]]/-/g'`${versuffix}${shared_ext}' + ;; + esac + ;; + + *) + library_names_spec='${libname}`echo ${release} | $SED -e 's/[[.]]/-/g'`${versuffix}${shared_ext} $libname.lib' + ;; + esac + dynamic_linker='Win32 ld.exe' + # FIXME: first we should search . and the directory the executable is in + shlibpath_var=PATH + ;; + +darwin* | rhapsody*) + dynamic_linker="$host_os dyld" + version_type=darwin + need_lib_prefix=no + need_version=no + library_names_spec='${libname}${release}${versuffix}$shared_ext ${libname}${release}${major}$shared_ext ${libname}$shared_ext' + soname_spec='${libname}${release}${major}$shared_ext' + shlibpath_overrides_runpath=yes + shlibpath_var=DYLD_LIBRARY_PATH + shrext_cmds='$(test .$module = .yes && echo .so || echo .dylib)' + # Apple's gcc prints 'gcc -print-search-dirs' doesn't operate the same. + if test "$GCC" = yes; then + sys_lib_search_path_spec=`$CC -print-search-dirs | tr "\n" "$PATH_SEPARATOR" | sed -e 's/libraries:/@libraries:/' | tr "@" "\n" | grep "^libraries:" | sed -e "s/^libraries://" -e "s,=/,/,g" -e "s,$PATH_SEPARATOR, ,g" -e "s,.*,& /lib /usr/lib /usr/local/lib,g"` + else + sys_lib_search_path_spec='/lib /usr/lib /usr/local/lib' + fi + sys_lib_dlsearch_path_spec='/usr/local/lib /lib /usr/lib' + ;; + +dgux*) + version_type=linux + need_lib_prefix=no + need_version=no + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname$shared_ext' + soname_spec='${libname}${release}${shared_ext}$major' + shlibpath_var=LD_LIBRARY_PATH + ;; + +freebsd1*) + dynamic_linker=no + ;; + +kfreebsd*-gnu) + version_type=linux + need_lib_prefix=no + need_version=no + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=no + hardcode_into_libs=yes + dynamic_linker='GNU ld.so' + ;; + +freebsd* | dragonfly*) + # DragonFly does not have aout. When/if they implement a new + # versioning mechanism, adjust this. + objformat=`test -x /usr/bin/objformat && /usr/bin/objformat || echo aout` + version_type=freebsd-$objformat + case $version_type in + freebsd-elf*) + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext} $libname${shared_ext}' + need_version=no + need_lib_prefix=no + ;; + freebsd-*) + library_names_spec='${libname}${release}${shared_ext}$versuffix $libname${shared_ext}$versuffix' + need_version=yes + ;; + esac + shlibpath_var=LD_LIBRARY_PATH + case $host_os in + freebsd2*) + shlibpath_overrides_runpath=yes + ;; + freebsd3.[[01]]* | freebsdelf3.[[01]]*) + shlibpath_overrides_runpath=yes + hardcode_into_libs=yes + ;; + *) # from 3.2 on + shlibpath_overrides_runpath=no + hardcode_into_libs=yes + ;; + esac + ;; + +gnu*) + version_type=linux + need_lib_prefix=no + need_version=no + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}${major} ${libname}${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + shlibpath_var=LD_LIBRARY_PATH + hardcode_into_libs=yes + ;; + +hpux9* | hpux10* | hpux11*) + # Give a soname corresponding to the major version so that dld.sl refuses to + # link against other versions. + version_type=sunos + need_lib_prefix=no + need_version=no + case "$host_cpu" in + ia64*) + shrext_cmds='.so' + hardcode_into_libs=yes + dynamic_linker="$host_os dld.so" + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=yes # Unless +noenvvar is specified. + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + if test "X$HPUX_IA64_MODE" = X32; then + sys_lib_search_path_spec="/usr/lib/hpux32 /usr/local/lib/hpux32 /usr/local/lib" + else + sys_lib_search_path_spec="/usr/lib/hpux64 /usr/local/lib/hpux64" + fi + sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec + ;; + hppa*64*) + shrext_cmds='.sl' + hardcode_into_libs=yes + dynamic_linker="$host_os dld.sl" + shlibpath_var=LD_LIBRARY_PATH # How should we handle SHLIB_PATH + shlibpath_overrides_runpath=yes # Unless +noenvvar is specified. + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + sys_lib_search_path_spec="/usr/lib/pa20_64 /usr/ccs/lib/pa20_64" + sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec + ;; + *) + shrext_cmds='.sl' + dynamic_linker="$host_os dld.sl" + shlibpath_var=SHLIB_PATH + shlibpath_overrides_runpath=no # +s is required to enable SHLIB_PATH + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + ;; + esac + # HP-UX runs *really* slowly unless shared libraries are mode 555. + postinstall_cmds='chmod 555 $lib' + ;; + +irix5* | irix6* | nonstopux*) + case $host_os in + nonstopux*) version_type=nonstopux ;; + *) + if test "$lt_cv_prog_gnu_ld" = yes; then + version_type=linux + else + version_type=irix + fi ;; + esac + need_lib_prefix=no + need_version=no + soname_spec='${libname}${release}${shared_ext}$major' + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext} $libname${shared_ext}' + case $host_os in + irix5* | nonstopux*) + libsuff= shlibsuff= + ;; + *) + case $LD in # libtool.m4 will add one of these switches to LD + *-32|*"-32 "|*-melf32bsmip|*"-melf32bsmip ") + libsuff= shlibsuff= libmagic=32-bit;; + *-n32|*"-n32 "|*-melf32bmipn32|*"-melf32bmipn32 ") + libsuff=32 shlibsuff=N32 libmagic=N32;; + *-64|*"-64 "|*-melf64bmip|*"-melf64bmip ") + libsuff=64 shlibsuff=64 libmagic=64-bit;; + *) libsuff= shlibsuff= libmagic=never-match;; + esac + ;; + esac + shlibpath_var=LD_LIBRARY${shlibsuff}_PATH + shlibpath_overrides_runpath=no + sys_lib_search_path_spec="/usr/lib${libsuff} /lib${libsuff} /usr/local/lib${libsuff}" + sys_lib_dlsearch_path_spec="/usr/lib${libsuff} /lib${libsuff}" + hardcode_into_libs=yes + ;; + +# No shared lib support for Linux oldld, aout, or coff. +linux*oldld* | linux*aout* | linux*coff*) + dynamic_linker=no + ;; + +# This must be Linux ELF. +linux*) + version_type=linux + need_lib_prefix=no + need_version=no + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=no + # This implies no fast_install, which is unacceptable. + # Some rework will be needed to allow for fast_install + # before this can be enabled. + hardcode_into_libs=yes + + # find out which ABI we are using + libsuff= + case "$host_cpu" in + x86_64*|s390x*|powerpc64*) + echo '[#]line __oline__ "configure"' > conftest.$ac_ext + if AC_TRY_EVAL(ac_compile); then + case `/usr/bin/file conftest.$ac_objext` in + *64-bit*) + libsuff=64 + sys_lib_search_path_spec="/lib${libsuff} /usr/lib${libsuff} /usr/local/lib${libsuff}" + ;; + esac + fi + rm -rf conftest* + ;; + esac + + # Append ld.so.conf contents to the search path + if test -f /etc/ld.so.conf; then + lt_ld_extra=`awk '/^include / { system(sprintf("cd /etc; cat %s", \[$]2)); skip = 1; } { if (!skip) print \[$]0; skip = 0; }' < /etc/ld.so.conf | $SED -e 's/#.*//;s/[:, ]/ /g;s/=[^=]*$//;s/=[^= ]* / /g;/^$/d' | tr '\n' ' '` + sys_lib_dlsearch_path_spec="/lib${libsuff} /usr/lib${libsuff} $lt_ld_extra" + fi + + # We used to test for /lib/ld.so.1 and disable shared libraries on + # powerpc, because MkLinux only supported shared libraries with the + # GNU dynamic linker. Since this was broken with cross compilers, + # most powerpc-linux boxes support dynamic linking these days and + # people can always --disable-shared, the test was removed, and we + # assume the GNU/Linux dynamic linker is in use. + dynamic_linker='GNU/Linux ld.so' + ;; + +knetbsd*-gnu) + version_type=linux + need_lib_prefix=no + need_version=no + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=no + hardcode_into_libs=yes + dynamic_linker='GNU ld.so' + ;; + +netbsd*) + version_type=sunos + need_lib_prefix=no + need_version=no + if echo __ELF__ | $CC -E - | grep __ELF__ >/dev/null; then + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' + finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir' + dynamic_linker='NetBSD (a.out) ld.so' + else + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + dynamic_linker='NetBSD ld.elf_so' + fi + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=yes + hardcode_into_libs=yes + ;; + +newsos6) + version_type=linux + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=yes + ;; + +nto-qnx*) + version_type=linux + need_lib_prefix=no + need_version=no + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=yes + ;; + +openbsd*) + version_type=sunos + need_lib_prefix=no + # Some older versions of OpenBSD (3.3 at least) *do* need versioned libs. + case $host_os in + openbsd3.3 | openbsd3.3.*) need_version=yes ;; + *) need_version=no ;; + esac + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' + finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir' + shlibpath_var=LD_LIBRARY_PATH + if test -z "`echo __ELF__ | $CC -E - | grep __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then + case $host_os in + openbsd2.[[89]] | openbsd2.[[89]].*) + shlibpath_overrides_runpath=no + ;; + *) + shlibpath_overrides_runpath=yes + ;; + esac + else + shlibpath_overrides_runpath=yes + fi + ;; + +os2*) + libname_spec='$name' + shrext_cmds=".dll" + need_lib_prefix=no + library_names_spec='$libname${shared_ext} $libname.a' + dynamic_linker='OS/2 ld.exe' + shlibpath_var=LIBPATH + ;; + +osf3* | osf4* | osf5*) + version_type=osf + need_lib_prefix=no + need_version=no + soname_spec='${libname}${release}${shared_ext}$major' + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + shlibpath_var=LD_LIBRARY_PATH + sys_lib_search_path_spec="/usr/shlib /usr/ccs/lib /usr/lib/cmplrs/cc /usr/lib /usr/local/lib /var/shlib" + sys_lib_dlsearch_path_spec="$sys_lib_search_path_spec" + ;; + +sco3.2v5*) + version_type=osf + soname_spec='${libname}${release}${shared_ext}$major' + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + shlibpath_var=LD_LIBRARY_PATH + ;; + +solaris*) + version_type=linux + need_lib_prefix=no + need_version=no + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=yes + hardcode_into_libs=yes + # ldd complains unless libraries are executable + postinstall_cmds='chmod +x $lib' + ;; + +sunos4*) + version_type=sunos + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' + finish_cmds='PATH="\$PATH:/usr/etc" ldconfig $libdir' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=yes + if test "$with_gnu_ld" = yes; then + need_lib_prefix=no + fi + need_version=yes + ;; + +sysv4 | sysv4.2uw2* | sysv4.3* | sysv5*) + version_type=linux + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + shlibpath_var=LD_LIBRARY_PATH + case $host_vendor in + sni) + shlibpath_overrides_runpath=no + need_lib_prefix=no + export_dynamic_flag_spec='${wl}-Blargedynsym' + runpath_var=LD_RUN_PATH + ;; + siemens) + need_lib_prefix=no + ;; + motorola) + need_lib_prefix=no + need_version=no + shlibpath_overrides_runpath=no + sys_lib_search_path_spec='/lib /usr/lib /usr/ccs/lib' + ;; + esac + ;; + +sysv4*MP*) + if test -d /usr/nec ;then + version_type=linux + library_names_spec='$libname${shared_ext}.$versuffix $libname${shared_ext}.$major $libname${shared_ext}' + soname_spec='$libname${shared_ext}.$major' + shlibpath_var=LD_LIBRARY_PATH + fi + ;; + +uts4*) + version_type=linux + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + shlibpath_var=LD_LIBRARY_PATH + ;; + +*) + dynamic_linker=no + ;; +esac +AC_MSG_RESULT([$dynamic_linker]) +test "$dynamic_linker" = no && can_build_shared=no +])# AC_LIBTOOL_SYS_DYNAMIC_LINKER + + +# _LT_AC_TAGCONFIG +# ---------------- +AC_DEFUN([_LT_AC_TAGCONFIG], +[AC_ARG_WITH([tags], + [AC_HELP_STRING([--with-tags@<:@=TAGS@:>@], + [include additional configurations @<:@automatic@:>@])], + [tagnames="$withval"]) + +if test -f "$ltmain" && test -n "$tagnames"; then + if test ! -f "${ofile}"; then + AC_MSG_WARN([output file `$ofile' does not exist]) + fi + + if test -z "$LTCC"; then + eval "`$SHELL ${ofile} --config | grep '^LTCC='`" + if test -z "$LTCC"; then + AC_MSG_WARN([output file `$ofile' does not look like a libtool script]) + else + AC_MSG_WARN([using `LTCC=$LTCC', extracted from `$ofile']) + fi + fi + + # Extract list of available tagged configurations in $ofile. + # Note that this assumes the entire list is on one line. + available_tags=`grep "^available_tags=" "${ofile}" | $SED -e 's/available_tags=\(.*$\)/\1/' -e 's/\"//g'` + + lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR," + for tagname in $tagnames; do + IFS="$lt_save_ifs" + # Check whether tagname contains only valid characters + case `$echo "X$tagname" | $Xsed -e 's:[[-_ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890,/]]::g'` in + "") ;; + *) AC_MSG_ERROR([invalid tag name: $tagname]) + ;; + esac + + if grep "^# ### BEGIN LIBTOOL TAG CONFIG: $tagname$" < "${ofile}" > /dev/null + then + AC_MSG_ERROR([tag name \"$tagname\" already exists]) + fi + + # Update the list of available tags. + if test -n "$tagname"; then + echo appending configuration tag \"$tagname\" to $ofile + + case $tagname in + CXX) + if test -n "$CXX" && ( test "X$CXX" != "Xno" && + ( (test "X$CXX" = "Xg++" && `g++ -v >/dev/null 2>&1` ) || + (test "X$CXX" != "Xg++"))) ; then + AC_LIBTOOL_LANG_CXX_CONFIG + else + tagname="" + fi + ;; + + F77) + if test -n "$F77" && test "X$F77" != "Xno"; then + AC_LIBTOOL_LANG_F77_CONFIG + else + tagname="" + fi + ;; + + GCJ) + if test -n "$GCJ" && test "X$GCJ" != "Xno"; then + AC_LIBTOOL_LANG_GCJ_CONFIG + else + tagname="" + fi + ;; + + RC) + AC_LIBTOOL_LANG_RC_CONFIG + ;; + + *) + AC_MSG_ERROR([Unsupported tag name: $tagname]) + ;; + esac + + # Append the new tag name to the list of available tags. + if test -n "$tagname" ; then + available_tags="$available_tags $tagname" + fi + fi + done + IFS="$lt_save_ifs" + + # Now substitute the updated list of available tags. + if eval "sed -e 's/^available_tags=.*\$/available_tags=\"$available_tags\"/' \"$ofile\" > \"${ofile}T\""; then + mv "${ofile}T" "$ofile" + chmod +x "$ofile" + else + rm -f "${ofile}T" + AC_MSG_ERROR([unable to update list of available tagged configurations.]) + fi +fi +])# _LT_AC_TAGCONFIG + + +# AC_LIBTOOL_DLOPEN +# ----------------- +# enable checks for dlopen support +AC_DEFUN([AC_LIBTOOL_DLOPEN], + [AC_BEFORE([$0],[AC_LIBTOOL_SETUP]) +])# AC_LIBTOOL_DLOPEN + + +# AC_LIBTOOL_WIN32_DLL +# -------------------- +# declare package support for building win32 dll's +AC_DEFUN([AC_LIBTOOL_WIN32_DLL], +[AC_BEFORE([$0], [AC_LIBTOOL_SETUP]) +])# AC_LIBTOOL_WIN32_DLL + + +# AC_ENABLE_SHARED([DEFAULT]) +# --------------------------- +# implement the --enable-shared flag +# DEFAULT is either `yes' or `no'. If omitted, it defaults to `yes'. +AC_DEFUN([AC_ENABLE_SHARED], +[define([AC_ENABLE_SHARED_DEFAULT], ifelse($1, no, no, yes))dnl +AC_ARG_ENABLE([shared], + [AC_HELP_STRING([--enable-shared@<:@=PKGS@:>@], + [build shared libraries @<:@default=]AC_ENABLE_SHARED_DEFAULT[@:>@])], + [p=${PACKAGE-default} + case $enableval in + yes) enable_shared=yes ;; + no) enable_shared=no ;; + *) + enable_shared=no + # Look at the argument we got. We use all the common list separators. + lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR," + for pkg in $enableval; do + IFS="$lt_save_ifs" + if test "X$pkg" = "X$p"; then + enable_shared=yes + fi + done + IFS="$lt_save_ifs" + ;; + esac], + [enable_shared=]AC_ENABLE_SHARED_DEFAULT) +])# AC_ENABLE_SHARED + + +# AC_DISABLE_SHARED +# ----------------- +#- set the default shared flag to --disable-shared +AC_DEFUN([AC_DISABLE_SHARED], +[AC_BEFORE([$0],[AC_LIBTOOL_SETUP])dnl +AC_ENABLE_SHARED(no) +])# AC_DISABLE_SHARED + + +# AC_ENABLE_STATIC([DEFAULT]) +# --------------------------- +# implement the --enable-static flag +# DEFAULT is either `yes' or `no'. If omitted, it defaults to `yes'. +AC_DEFUN([AC_ENABLE_STATIC], +[define([AC_ENABLE_STATIC_DEFAULT], ifelse($1, no, no, yes))dnl +AC_ARG_ENABLE([static], + [AC_HELP_STRING([--enable-static@<:@=PKGS@:>@], + [build static libraries @<:@default=]AC_ENABLE_STATIC_DEFAULT[@:>@])], + [p=${PACKAGE-default} + case $enableval in + yes) enable_static=yes ;; + no) enable_static=no ;; + *) + enable_static=no + # Look at the argument we got. We use all the common list separators. + lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR," + for pkg in $enableval; do + IFS="$lt_save_ifs" + if test "X$pkg" = "X$p"; then + enable_static=yes + fi + done + IFS="$lt_save_ifs" + ;; + esac], + [enable_static=]AC_ENABLE_STATIC_DEFAULT) +])# AC_ENABLE_STATIC + + +# AC_DISABLE_STATIC +# ----------------- +# set the default static flag to --disable-static +AC_DEFUN([AC_DISABLE_STATIC], +[AC_BEFORE([$0],[AC_LIBTOOL_SETUP])dnl +AC_ENABLE_STATIC(no) +])# AC_DISABLE_STATIC + + +# AC_ENABLE_FAST_INSTALL([DEFAULT]) +# --------------------------------- +# implement the --enable-fast-install flag +# DEFAULT is either `yes' or `no'. If omitted, it defaults to `yes'. +AC_DEFUN([AC_ENABLE_FAST_INSTALL], +[define([AC_ENABLE_FAST_INSTALL_DEFAULT], ifelse($1, no, no, yes))dnl +AC_ARG_ENABLE([fast-install], + [AC_HELP_STRING([--enable-fast-install@<:@=PKGS@:>@], + [optimize for fast installation @<:@default=]AC_ENABLE_FAST_INSTALL_DEFAULT[@:>@])], + [p=${PACKAGE-default} + case $enableval in + yes) enable_fast_install=yes ;; + no) enable_fast_install=no ;; + *) + enable_fast_install=no + # Look at the argument we got. We use all the common list separators. + lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR," + for pkg in $enableval; do + IFS="$lt_save_ifs" + if test "X$pkg" = "X$p"; then + enable_fast_install=yes + fi + done + IFS="$lt_save_ifs" + ;; + esac], + [enable_fast_install=]AC_ENABLE_FAST_INSTALL_DEFAULT) +])# AC_ENABLE_FAST_INSTALL + + +# AC_DISABLE_FAST_INSTALL +# ----------------------- +# set the default to --disable-fast-install +AC_DEFUN([AC_DISABLE_FAST_INSTALL], +[AC_BEFORE([$0],[AC_LIBTOOL_SETUP])dnl +AC_ENABLE_FAST_INSTALL(no) +])# AC_DISABLE_FAST_INSTALL + + +# AC_LIBTOOL_PICMODE([MODE]) +# -------------------------- +# implement the --with-pic flag +# MODE is either `yes' or `no'. If omitted, it defaults to `both'. +AC_DEFUN([AC_LIBTOOL_PICMODE], +[AC_BEFORE([$0],[AC_LIBTOOL_SETUP])dnl +pic_mode=ifelse($#,1,$1,default) +])# AC_LIBTOOL_PICMODE + + +# AC_PROG_EGREP +# ------------- +# This is predefined starting with Autoconf 2.54, so this conditional +# definition can be removed once we require Autoconf 2.54 or later. +m4_ifndef([AC_PROG_EGREP], [AC_DEFUN([AC_PROG_EGREP], +[AC_CACHE_CHECK([for egrep], [ac_cv_prog_egrep], + [if echo a | (grep -E '(a|b)') >/dev/null 2>&1 + then ac_cv_prog_egrep='grep -E' + else ac_cv_prog_egrep='egrep' + fi]) + EGREP=$ac_cv_prog_egrep + AC_SUBST([EGREP]) +])]) + + +# AC_PATH_TOOL_PREFIX +# ------------------- +# find a file program which can recognise shared library +AC_DEFUN([AC_PATH_TOOL_PREFIX], +[AC_REQUIRE([AC_PROG_EGREP])dnl +AC_MSG_CHECKING([for $1]) +AC_CACHE_VAL(lt_cv_path_MAGIC_CMD, +[case $MAGIC_CMD in +[[\\/*] | ?:[\\/]*]) + lt_cv_path_MAGIC_CMD="$MAGIC_CMD" # Let the user override the test with a path. + ;; +*) + lt_save_MAGIC_CMD="$MAGIC_CMD" + lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR +dnl $ac_dummy forces splitting on constant user-supplied paths. +dnl POSIX.2 word splitting is done only on the output of word expansions, +dnl not every word. This closes a longstanding sh security hole. + ac_dummy="ifelse([$2], , $PATH, [$2])" + for ac_dir in $ac_dummy; do + IFS="$lt_save_ifs" + test -z "$ac_dir" && ac_dir=. + if test -f $ac_dir/$1; then + lt_cv_path_MAGIC_CMD="$ac_dir/$1" + if test -n "$file_magic_test_file"; then + case $deplibs_check_method in + "file_magic "*) + file_magic_regex="`expr \"$deplibs_check_method\" : \"file_magic \(.*\)\"`" + MAGIC_CMD="$lt_cv_path_MAGIC_CMD" + if eval $file_magic_cmd \$file_magic_test_file 2> /dev/null | + $EGREP "$file_magic_regex" > /dev/null; then + : + else + cat <&2 + +*** Warning: the command libtool uses to detect shared libraries, +*** $file_magic_cmd, produces output that libtool cannot recognize. +*** The result is that libtool may fail to recognize shared libraries +*** as such. This will affect the creation of libtool libraries that +*** depend on shared libraries, but programs linked with such libtool +*** libraries will work regardless of this problem. Nevertheless, you +*** may want to report the problem to your system manager and/or to +*** bug-libtool@gnu.org + +EOF + fi ;; + esac + fi + break + fi + done + IFS="$lt_save_ifs" + MAGIC_CMD="$lt_save_MAGIC_CMD" + ;; +esac]) +MAGIC_CMD="$lt_cv_path_MAGIC_CMD" +if test -n "$MAGIC_CMD"; then + AC_MSG_RESULT($MAGIC_CMD) +else + AC_MSG_RESULT(no) +fi +])# AC_PATH_TOOL_PREFIX + + +# AC_PATH_MAGIC +# ------------- +# find a file program which can recognise a shared library +AC_DEFUN([AC_PATH_MAGIC], +[AC_PATH_TOOL_PREFIX(${ac_tool_prefix}file, /usr/bin$PATH_SEPARATOR$PATH) +if test -z "$lt_cv_path_MAGIC_CMD"; then + if test -n "$ac_tool_prefix"; then + AC_PATH_TOOL_PREFIX(file, /usr/bin$PATH_SEPARATOR$PATH) + else + MAGIC_CMD=: + fi +fi +])# AC_PATH_MAGIC + + +# AC_PROG_LD +# ---------- +# find the pathname to the GNU or non-GNU linker +AC_DEFUN([AC_PROG_LD], +[AC_ARG_WITH([gnu-ld], + [AC_HELP_STRING([--with-gnu-ld], + [assume the C compiler uses GNU ld @<:@default=no@:>@])], + [test "$withval" = no || with_gnu_ld=yes], + [with_gnu_ld=no]) +AC_REQUIRE([LT_AC_PROG_SED])dnl +AC_REQUIRE([AC_PROG_CC])dnl +AC_REQUIRE([AC_CANONICAL_HOST])dnl +AC_REQUIRE([AC_CANONICAL_BUILD])dnl +ac_prog=ld +if test "$GCC" = yes; then + # Check if gcc -print-prog-name=ld gives a path. + AC_MSG_CHECKING([for ld used by $CC]) + case $host in + *-*-mingw*) + # gcc leaves a trailing carriage return which upsets mingw + ac_prog=`($CC -print-prog-name=ld) 2>&5 | tr -d '\015'` ;; + *) + ac_prog=`($CC -print-prog-name=ld) 2>&5` ;; + esac + case $ac_prog in + # Accept absolute paths. + [[\\/]]* | ?:[[\\/]]*) + re_direlt='/[[^/]][[^/]]*/\.\./' + # Canonicalize the pathname of ld + ac_prog=`echo $ac_prog| $SED 's%\\\\%/%g'` + while echo $ac_prog | grep "$re_direlt" > /dev/null 2>&1; do + ac_prog=`echo $ac_prog| $SED "s%$re_direlt%/%"` + done + test -z "$LD" && LD="$ac_prog" + ;; + "") + # If it fails, then pretend we aren't using GCC. + ac_prog=ld + ;; + *) + # If it is relative, then search for the first ld in PATH. + with_gnu_ld=unknown + ;; + esac +elif test "$with_gnu_ld" = yes; then + AC_MSG_CHECKING([for GNU ld]) +else + AC_MSG_CHECKING([for non-GNU ld]) +fi +AC_CACHE_VAL(lt_cv_path_LD, +[if test -z "$LD"; then + lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR + for ac_dir in $PATH; do + IFS="$lt_save_ifs" + test -z "$ac_dir" && ac_dir=. + if test -f "$ac_dir/$ac_prog" || test -f "$ac_dir/$ac_prog$ac_exeext"; then + lt_cv_path_LD="$ac_dir/$ac_prog" + # Check to see if the program is GNU ld. I'd rather use --version, + # but apparently some GNU ld's only accept -v. + # Break only if it was the GNU/non-GNU ld that we prefer. + case `"$lt_cv_path_LD" -v 2>&1 &1 /dev/null; then + case $host_cpu in + i*86 ) + # Not sure whether the presence of OpenBSD here was a mistake. + # Let's accept both of them until this is cleared up. + lt_cv_deplibs_check_method='file_magic (FreeBSD|OpenBSD|DragonFly)/i[[3-9]]86 (compact )?demand paged shared library' + lt_cv_file_magic_cmd=/usr/bin/file + lt_cv_file_magic_test_file=`echo /usr/lib/libc.so.*` + ;; + esac + else + lt_cv_deplibs_check_method=pass_all + fi + ;; + +gnu*) + lt_cv_deplibs_check_method=pass_all + ;; + +hpux10.20* | hpux11*) + lt_cv_file_magic_cmd=/usr/bin/file + case "$host_cpu" in + ia64*) + lt_cv_deplibs_check_method='file_magic (s[[0-9]][[0-9]][[0-9]]|ELF-[[0-9]][[0-9]]) shared object file - IA64' + lt_cv_file_magic_test_file=/usr/lib/hpux32/libc.so + ;; + hppa*64*) + [lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|ELF-[0-9][0-9]) shared object file - PA-RISC [0-9].[0-9]'] + lt_cv_file_magic_test_file=/usr/lib/pa20_64/libc.sl + ;; + *) + lt_cv_deplibs_check_method='file_magic (s[[0-9]][[0-9]][[0-9]]|PA-RISC[[0-9]].[[0-9]]) shared library' + lt_cv_file_magic_test_file=/usr/lib/libc.sl + ;; + esac + ;; + +irix5* | irix6* | nonstopux*) + case $LD in + *-32|*"-32 ") libmagic=32-bit;; + *-n32|*"-n32 ") libmagic=N32;; + *-64|*"-64 ") libmagic=64-bit;; + *) libmagic=never-match;; + esac + lt_cv_deplibs_check_method=pass_all + ;; + +# This must be Linux ELF. +linux*) + lt_cv_deplibs_check_method=pass_all + ;; + +netbsd*) + if echo __ELF__ | $CC -E - | grep __ELF__ > /dev/null; then + lt_cv_deplibs_check_method='match_pattern /lib[[^/]]+(\.so\.[[0-9]]+\.[[0-9]]+|_pic\.a)$' + else + lt_cv_deplibs_check_method='match_pattern /lib[[^/]]+(\.so|_pic\.a)$' + fi + ;; + +newos6*) + lt_cv_deplibs_check_method='file_magic ELF [[0-9]][[0-9]]*-bit [[ML]]SB (executable|dynamic lib)' + lt_cv_file_magic_cmd=/usr/bin/file + lt_cv_file_magic_test_file=/usr/lib/libnls.so + ;; + +nto-qnx*) + lt_cv_deplibs_check_method=unknown + ;; + +openbsd*) + if test -z "`echo __ELF__ | $CC -E - | grep __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then + lt_cv_deplibs_check_method='match_pattern /lib[[^/]]+(\.so\.[[0-9]]+\.[[0-9]]+|\.so|_pic\.a)$' + else + lt_cv_deplibs_check_method='match_pattern /lib[[^/]]+(\.so\.[[0-9]]+\.[[0-9]]+|_pic\.a)$' + fi + ;; + +osf3* | osf4* | osf5*) + lt_cv_deplibs_check_method=pass_all + ;; + +sco3.2v5*) + lt_cv_deplibs_check_method=pass_all + ;; + +solaris*) + lt_cv_deplibs_check_method=pass_all + ;; + +sysv4 | sysv4.2uw2* | sysv4.3* | sysv5*) + case $host_vendor in + motorola) + lt_cv_deplibs_check_method='file_magic ELF [[0-9]][[0-9]]*-bit [[ML]]SB (shared object|dynamic lib) M[[0-9]][[0-9]]* Version [[0-9]]' + lt_cv_file_magic_test_file=`echo /usr/lib/libc.so*` + ;; + ncr) + lt_cv_deplibs_check_method=pass_all + ;; + sequent) + lt_cv_file_magic_cmd='/bin/file' + lt_cv_deplibs_check_method='file_magic ELF [[0-9]][[0-9]]*-bit [[LM]]SB (shared object|dynamic lib )' + ;; + sni) + lt_cv_file_magic_cmd='/bin/file' + lt_cv_deplibs_check_method="file_magic ELF [[0-9]][[0-9]]*-bit [[LM]]SB dynamic lib" + lt_cv_file_magic_test_file=/lib/libc.so + ;; + siemens) + lt_cv_deplibs_check_method=pass_all + ;; + esac + ;; + +sysv5OpenUNIX8* | sysv5UnixWare7* | sysv5uw[[78]]* | unixware7* | sysv4*uw2*) + lt_cv_deplibs_check_method=pass_all + ;; +esac +]) +file_magic_cmd=$lt_cv_file_magic_cmd +deplibs_check_method=$lt_cv_deplibs_check_method +test -z "$deplibs_check_method" && deplibs_check_method=unknown +])# AC_DEPLIBS_CHECK_METHOD + + +# AC_PROG_NM +# ---------- +# find the pathname to a BSD-compatible name lister +AC_DEFUN([AC_PROG_NM], +[AC_CACHE_CHECK([for BSD-compatible nm], lt_cv_path_NM, +[if test -n "$NM"; then + # Let the user override the test. + lt_cv_path_NM="$NM" +else + lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR + for ac_dir in $PATH /usr/ccs/bin /usr/ucb /bin; do + IFS="$lt_save_ifs" + test -z "$ac_dir" && ac_dir=. + tmp_nm="$ac_dir/${ac_tool_prefix}nm" + if test -f "$tmp_nm" || test -f "$tmp_nm$ac_exeext" ; then + # Check to see if the nm accepts a BSD-compat flag. + # Adding the `sed 1q' prevents false positives on HP-UX, which says: + # nm: unknown option "B" ignored + # Tru64's nm complains that /dev/null is an invalid object file + case `"$tmp_nm" -B /dev/null 2>&1 | sed '1q'` in + */dev/null* | *'Invalid file or object type'*) + lt_cv_path_NM="$tmp_nm -B" + break + ;; + *) + case `"$tmp_nm" -p /dev/null 2>&1 | sed '1q'` in + */dev/null*) + lt_cv_path_NM="$tmp_nm -p" + break + ;; + *) + lt_cv_path_NM=${lt_cv_path_NM="$tmp_nm"} # keep the first match, but + continue # so that we can try to find one that supports BSD flags + ;; + esac + esac + fi + done + IFS="$lt_save_ifs" + test -z "$lt_cv_path_NM" && lt_cv_path_NM=nm +fi]) +NM="$lt_cv_path_NM" +])# AC_PROG_NM + + +# AC_CHECK_LIBM +# ------------- +# check for math library +AC_DEFUN([AC_CHECK_LIBM], +[AC_REQUIRE([AC_CANONICAL_HOST])dnl +LIBM= +case $host in +*-*-beos* | *-*-cygwin* | *-*-pw32* | *-*-darwin*) + # These system don't have libm, or don't need it + ;; +*-ncr-sysv4.3*) + AC_CHECK_LIB(mw, _mwvalidcheckl, LIBM="-lmw") + AC_CHECK_LIB(m, cos, LIBM="$LIBM -lm") + ;; +*) + AC_CHECK_LIB(m, cos, LIBM="-lm") + ;; +esac +])# AC_CHECK_LIBM + + +# AC_LIBLTDL_CONVENIENCE([DIRECTORY]) +# ----------------------------------- +# sets LIBLTDL to the link flags for the libltdl convenience library and +# LTDLINCL to the include flags for the libltdl header and adds +# --enable-ltdl-convenience to the configure arguments. Note that LIBLTDL +# and LTDLINCL are not AC_SUBSTed, nor is AC_CONFIG_SUBDIRS called. If +# DIRECTORY is not provided, it is assumed to be `libltdl'. LIBLTDL will +# be prefixed with '${top_builddir}/' and LTDLINCL will be prefixed with +# '${top_srcdir}/' (note the single quotes!). If your package is not +# flat and you're not using automake, define top_builddir and +# top_srcdir appropriately in the Makefiles. +AC_DEFUN([AC_LIBLTDL_CONVENIENCE], +[AC_BEFORE([$0],[AC_LIBTOOL_SETUP])dnl + case $enable_ltdl_convenience in + no) AC_MSG_ERROR([this package needs a convenience libltdl]) ;; + "") enable_ltdl_convenience=yes + ac_configure_args="$ac_configure_args --enable-ltdl-convenience" ;; + esac + LIBLTDL='${top_builddir}/'ifelse($#,1,[$1],['libltdl'])/libltdlc.la + LTDLINCL='-I${top_srcdir}/'ifelse($#,1,[$1],['libltdl']) + # For backwards non-gettext consistent compatibility... + INCLTDL="$LTDLINCL" +])# AC_LIBLTDL_CONVENIENCE + + +# AC_LIBLTDL_INSTALLABLE([DIRECTORY]) +# ----------------------------------- +# sets LIBLTDL to the link flags for the libltdl installable library and +# LTDLINCL to the include flags for the libltdl header and adds +# --enable-ltdl-install to the configure arguments. Note that LIBLTDL +# and LTDLINCL are not AC_SUBSTed, nor is AC_CONFIG_SUBDIRS called. If +# DIRECTORY is not provided and an installed libltdl is not found, it is +# assumed to be `libltdl'. LIBLTDL will be prefixed with '${top_builddir}/' +# and LTDLINCL will be prefixed with '${top_srcdir}/' (note the single +# quotes!). If your package is not flat and you're not using automake, +# define top_builddir and top_srcdir appropriately in the Makefiles. +# In the future, this macro may have to be called after AC_PROG_LIBTOOL. +AC_DEFUN([AC_LIBLTDL_INSTALLABLE], +[AC_BEFORE([$0],[AC_LIBTOOL_SETUP])dnl + AC_CHECK_LIB(ltdl, lt_dlinit, + [test x"$enable_ltdl_install" != xyes && enable_ltdl_install=no], + [if test x"$enable_ltdl_install" = xno; then + AC_MSG_WARN([libltdl not installed, but installation disabled]) + else + enable_ltdl_install=yes + fi + ]) + if test x"$enable_ltdl_install" = x"yes"; then + ac_configure_args="$ac_configure_args --enable-ltdl-install" + LIBLTDL='${top_builddir}/'ifelse($#,1,[$1],['libltdl'])/libltdl.la + LTDLINCL='-I${top_srcdir}/'ifelse($#,1,[$1],['libltdl']) + else + ac_configure_args="$ac_configure_args --enable-ltdl-install=no" + LIBLTDL="-lltdl" + LTDLINCL= + fi + # For backwards non-gettext consistent compatibility... + INCLTDL="$LTDLINCL" +])# AC_LIBLTDL_INSTALLABLE + + +# AC_LIBTOOL_CXX +# -------------- +# enable support for C++ libraries +AC_DEFUN([AC_LIBTOOL_CXX], +[AC_REQUIRE([_LT_AC_LANG_CXX]) +])# AC_LIBTOOL_CXX + + +# _LT_AC_LANG_CXX +# --------------- +AC_DEFUN([_LT_AC_LANG_CXX], +[AC_REQUIRE([AC_PROG_CXX]) +AC_REQUIRE([_LT_AC_PROG_CXXCPP]) +_LT_AC_SHELL_INIT([tagnames=${tagnames+${tagnames},}CXX]) +])# _LT_AC_LANG_CXX + +# _LT_AC_PROG_CXXCPP +# --------------- +AC_DEFUN([_LT_AC_PROG_CXXCPP], +[ +AC_REQUIRE([AC_PROG_CXX]) +if test -n "$CXX" && ( test "X$CXX" != "Xno" && + ( (test "X$CXX" = "Xg++" && `g++ -v >/dev/null 2>&1` ) || + (test "X$CXX" != "Xg++"))) ; then + AC_PROG_CXXCPP +fi +])# _LT_AC_PROG_CXXCPP + +# AC_LIBTOOL_F77 +# -------------- +# enable support for Fortran 77 libraries +AC_DEFUN([AC_LIBTOOL_F77], +[AC_REQUIRE([_LT_AC_LANG_F77]) +])# AC_LIBTOOL_F77 + + +# _LT_AC_LANG_F77 +# --------------- +AC_DEFUN([_LT_AC_LANG_F77], +[AC_REQUIRE([AC_PROG_F77]) +_LT_AC_SHELL_INIT([tagnames=${tagnames+${tagnames},}F77]) +])# _LT_AC_LANG_F77 + + +# AC_LIBTOOL_GCJ +# -------------- +# enable support for GCJ libraries +AC_DEFUN([AC_LIBTOOL_GCJ], +[AC_REQUIRE([_LT_AC_LANG_GCJ]) +])# AC_LIBTOOL_GCJ + + +# _LT_AC_LANG_GCJ +# --------------- +AC_DEFUN([_LT_AC_LANG_GCJ], +[AC_PROVIDE_IFELSE([AC_PROG_GCJ],[], + [AC_PROVIDE_IFELSE([A][M_PROG_GCJ],[], + [AC_PROVIDE_IFELSE([LT_AC_PROG_GCJ],[], + [ifdef([AC_PROG_GCJ],[AC_REQUIRE([AC_PROG_GCJ])], + [ifdef([A][M_PROG_GCJ],[AC_REQUIRE([A][M_PROG_GCJ])], + [AC_REQUIRE([A][C_PROG_GCJ_OR_A][M_PROG_GCJ])])])])])]) +_LT_AC_SHELL_INIT([tagnames=${tagnames+${tagnames},}GCJ]) +])# _LT_AC_LANG_GCJ + + +# AC_LIBTOOL_RC +# -------------- +# enable support for Windows resource files +AC_DEFUN([AC_LIBTOOL_RC], +[AC_REQUIRE([LT_AC_PROG_RC]) +_LT_AC_SHELL_INIT([tagnames=${tagnames+${tagnames},}RC]) +])# AC_LIBTOOL_RC + + +# AC_LIBTOOL_LANG_C_CONFIG +# ------------------------ +# Ensure that the configuration vars for the C compiler are +# suitably defined. Those variables are subsequently used by +# AC_LIBTOOL_CONFIG to write the compiler configuration to `libtool'. +AC_DEFUN([AC_LIBTOOL_LANG_C_CONFIG], [_LT_AC_LANG_C_CONFIG]) +AC_DEFUN([_LT_AC_LANG_C_CONFIG], +[lt_save_CC="$CC" +AC_LANG_PUSH(C) + +# Source file extension for C test sources. +ac_ext=c + +# Object file extension for compiled C test sources. +objext=o +_LT_AC_TAGVAR(objext, $1)=$objext + +# Code to be used in simple compile tests +lt_simple_compile_test_code="int some_variable = 0;\n" + +# Code to be used in simple link tests +lt_simple_link_test_code='int main(){return(0);}\n' + +_LT_AC_SYS_COMPILER + +# save warnings/boilerplate of simple test code +_LT_COMPILER_BOILERPLATE +_LT_LINKER_BOILERPLATE + +# +# Check for any special shared library compilation flags. +# +_LT_AC_TAGVAR(lt_prog_cc_shlib, $1)= +if test "$GCC" = no; then + case $host_os in + sco3.2v5*) + _LT_AC_TAGVAR(lt_prog_cc_shlib, $1)='-belf' + ;; + esac +fi +if test -n "$_LT_AC_TAGVAR(lt_prog_cc_shlib, $1)"; then + AC_MSG_WARN([`$CC' requires `$_LT_AC_TAGVAR(lt_prog_cc_shlib, $1)' to build shared libraries]) + if echo "$old_CC $old_CFLAGS " | grep "[[ ]]$_LT_AC_TAGVAR(lt_prog_cc_shlib, $1)[[ ]]" >/dev/null; then : + else + AC_MSG_WARN([add `$_LT_AC_TAGVAR(lt_prog_cc_shlib, $1)' to the CC or CFLAGS env variable and reconfigure]) + _LT_AC_TAGVAR(lt_cv_prog_cc_can_build_shared, $1)=no + fi +fi + + +# +# Check to make sure the static flag actually works. +# +AC_LIBTOOL_LINKER_OPTION([if $compiler static flag $_LT_AC_TAGVAR(lt_prog_compiler_static, $1) works], + _LT_AC_TAGVAR(lt_prog_compiler_static_works, $1), + $_LT_AC_TAGVAR(lt_prog_compiler_static, $1), + [], + [_LT_AC_TAGVAR(lt_prog_compiler_static, $1)=]) + + +AC_LIBTOOL_PROG_COMPILER_NO_RTTI($1) +AC_LIBTOOL_PROG_COMPILER_PIC($1) +AC_LIBTOOL_PROG_CC_C_O($1) +AC_LIBTOOL_SYS_HARD_LINK_LOCKS($1) +AC_LIBTOOL_PROG_LD_SHLIBS($1) +AC_LIBTOOL_SYS_DYNAMIC_LINKER($1) +AC_LIBTOOL_PROG_LD_HARDCODE_LIBPATH($1) +AC_LIBTOOL_SYS_LIB_STRIP +AC_LIBTOOL_DLOPEN_SELF($1) + +# Report which librarie types wil actually be built +AC_MSG_CHECKING([if libtool supports shared libraries]) +AC_MSG_RESULT([$can_build_shared]) + +AC_MSG_CHECKING([whether to build shared libraries]) +test "$can_build_shared" = "no" && enable_shared=no + +# On AIX, shared libraries and static libraries use the same namespace, and +# are all built from PIC. +case "$host_os" in +aix3*) + test "$enable_shared" = yes && enable_static=no + if test -n "$RANLIB"; then + archive_cmds="$archive_cmds~\$RANLIB \$lib" + postinstall_cmds='$RANLIB $lib' + fi + ;; + +aix4* | aix5*) + if test "$host_cpu" != ia64 && test "$aix_use_runtimelinking" = no ; then + test "$enable_shared" = yes && enable_static=no + fi + ;; +esac +AC_MSG_RESULT([$enable_shared]) + +AC_MSG_CHECKING([whether to build static libraries]) +# Make sure either enable_shared or enable_static is yes. +test "$enable_shared" = yes || enable_static=yes +AC_MSG_RESULT([$enable_static]) + +AC_LIBTOOL_CONFIG($1) + +AC_LANG_POP +CC="$lt_save_CC" +])# AC_LIBTOOL_LANG_C_CONFIG + + +# AC_LIBTOOL_LANG_CXX_CONFIG +# -------------------------- +# Ensure that the configuration vars for the C compiler are +# suitably defined. Those variables are subsequently used by +# AC_LIBTOOL_CONFIG to write the compiler configuration to `libtool'. +AC_DEFUN([AC_LIBTOOL_LANG_CXX_CONFIG], [_LT_AC_LANG_CXX_CONFIG(CXX)]) +AC_DEFUN([_LT_AC_LANG_CXX_CONFIG], +[AC_LANG_PUSH(C++) +AC_REQUIRE([AC_PROG_CXX]) +AC_REQUIRE([_LT_AC_PROG_CXXCPP]) + +_LT_AC_TAGVAR(archive_cmds_need_lc, $1)=no +_LT_AC_TAGVAR(allow_undefined_flag, $1)= +_LT_AC_TAGVAR(always_export_symbols, $1)=no +_LT_AC_TAGVAR(archive_expsym_cmds, $1)= +_LT_AC_TAGVAR(export_dynamic_flag_spec, $1)= +_LT_AC_TAGVAR(hardcode_direct, $1)=no +_LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)= +_LT_AC_TAGVAR(hardcode_libdir_flag_spec_ld, $1)= +_LT_AC_TAGVAR(hardcode_libdir_separator, $1)= +_LT_AC_TAGVAR(hardcode_minus_L, $1)=no +_LT_AC_TAGVAR(hardcode_automatic, $1)=no +_LT_AC_TAGVAR(module_cmds, $1)= +_LT_AC_TAGVAR(module_expsym_cmds, $1)= +_LT_AC_TAGVAR(link_all_deplibs, $1)=unknown +_LT_AC_TAGVAR(old_archive_cmds, $1)=$old_archive_cmds +_LT_AC_TAGVAR(no_undefined_flag, $1)= +_LT_AC_TAGVAR(whole_archive_flag_spec, $1)= +_LT_AC_TAGVAR(enable_shared_with_static_runtimes, $1)=no + +# Dependencies to place before and after the object being linked: +_LT_AC_TAGVAR(predep_objects, $1)= +_LT_AC_TAGVAR(postdep_objects, $1)= +_LT_AC_TAGVAR(predeps, $1)= +_LT_AC_TAGVAR(postdeps, $1)= +_LT_AC_TAGVAR(compiler_lib_search_path, $1)= + +# Source file extension for C++ test sources. +ac_ext=cc + +# Object file extension for compiled C++ test sources. +objext=o +_LT_AC_TAGVAR(objext, $1)=$objext + +# Code to be used in simple compile tests +lt_simple_compile_test_code="int some_variable = 0;\n" + +# Code to be used in simple link tests +lt_simple_link_test_code='int main(int, char *[]) { return(0); }\n' + +# ltmain only uses $CC for tagged configurations so make sure $CC is set. +_LT_AC_SYS_COMPILER + +# save warnings/boilerplate of simple test code +_LT_COMPILER_BOILERPLATE +_LT_LINKER_BOILERPLATE + +# Allow CC to be a program name with arguments. +lt_save_CC=$CC +lt_save_LD=$LD +lt_save_GCC=$GCC +GCC=$GXX +lt_save_with_gnu_ld=$with_gnu_ld +lt_save_path_LD=$lt_cv_path_LD +if test -n "${lt_cv_prog_gnu_ldcxx+set}"; then + lt_cv_prog_gnu_ld=$lt_cv_prog_gnu_ldcxx +else + unset lt_cv_prog_gnu_ld +fi +if test -n "${lt_cv_path_LDCXX+set}"; then + lt_cv_path_LD=$lt_cv_path_LDCXX +else + unset lt_cv_path_LD +fi +test -z "${LDCXX+set}" || LD=$LDCXX +CC=${CXX-"c++"} +compiler=$CC +_LT_AC_TAGVAR(compiler, $1)=$CC +_LT_CC_BASENAME([$compiler]) + +# We don't want -fno-exception wen compiling C++ code, so set the +# no_builtin_flag separately +if test "$GXX" = yes; then + _LT_AC_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)=' -fno-builtin' +else + _LT_AC_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)= +fi + +if test "$GXX" = yes; then + # Set up default GNU C++ configuration + + AC_PROG_LD + + # Check if GNU C++ uses GNU ld as the underlying linker, since the + # archiving commands below assume that GNU ld is being used. + if test "$with_gnu_ld" = yes; then + _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib' + _LT_AC_TAGVAR(archive_expsym_cmds, $1)='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' + + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}--rpath ${wl}$libdir' + _LT_AC_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-dynamic' + + # If archive_cmds runs LD, not CC, wlarc should be empty + # XXX I think wlarc can be eliminated in ltcf-cxx, but I need to + # investigate it a little bit more. (MM) + wlarc='${wl}' + + # ancient GNU ld didn't support --whole-archive et. al. + if eval "`$CC -print-prog-name=ld` --help 2>&1" | \ + grep 'no-whole-archive' > /dev/null; then + _LT_AC_TAGVAR(whole_archive_flag_spec, $1)="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive' + else + _LT_AC_TAGVAR(whole_archive_flag_spec, $1)= + fi + else + with_gnu_ld=no + wlarc= + + # A generic and very simple default shared library creation + # command for GNU C++ for the case where it uses the native + # linker, instead of GNU ld. If possible, this setting should + # overridden to take advantage of the native linker features on + # the platform it is being used on. + _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $lib' + fi + + # Commands to make compiler produce verbose output that lists + # what "hidden" libraries, object files and flags are used when + # linking a shared library. + output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | grep "\-L"' + +else + GXX=no + with_gnu_ld=no + wlarc= +fi + +# PORTME: fill in a description of your system's C++ link characteristics +AC_MSG_CHECKING([whether the $compiler linker ($LD) supports shared libraries]) +_LT_AC_TAGVAR(ld_shlibs, $1)=yes +case $host_os in + aix3*) + # FIXME: insert proper C++ library support + _LT_AC_TAGVAR(ld_shlibs, $1)=no + ;; + aix4* | aix5*) + if test "$host_cpu" = ia64; then + # On IA64, the linker does run time linking by default, so we don't + # have to do anything special. + aix_use_runtimelinking=no + exp_sym_flag='-Bexport' + no_entry_flag="" + else + aix_use_runtimelinking=no + + # Test if we are trying to use run time linking or normal + # AIX style linking. If -brtl is somewhere in LDFLAGS, we + # need to do runtime linking. + case $host_os in aix4.[[23]]|aix4.[[23]].*|aix5*) + for ld_flag in $LDFLAGS; do + case $ld_flag in + *-brtl*) + aix_use_runtimelinking=yes + break + ;; + esac + done + esac + + exp_sym_flag='-bexport' + no_entry_flag='-bnoentry' + fi + + # When large executables or shared objects are built, AIX ld can + # have problems creating the table of contents. If linking a library + # or program results in "error TOC overflow" add -mminimal-toc to + # CXXFLAGS/CFLAGS for g++/gcc. In the cases where that is not + # enough to fix the problem, add -Wl,-bbigtoc to LDFLAGS. + + _LT_AC_TAGVAR(archive_cmds, $1)='' + _LT_AC_TAGVAR(hardcode_direct, $1)=yes + _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=':' + _LT_AC_TAGVAR(link_all_deplibs, $1)=yes + + if test "$GXX" = yes; then + case $host_os in aix4.[[012]]|aix4.[[012]].*) + # We only want to do this on AIX 4.2 and lower, the check + # below for broken collect2 doesn't work under 4.3+ + collect2name=`${CC} -print-prog-name=collect2` + if test -f "$collect2name" && \ + strings "$collect2name" | grep resolve_lib_name >/dev/null + then + # We have reworked collect2 + _LT_AC_TAGVAR(hardcode_direct, $1)=yes + else + # We have old collect2 + _LT_AC_TAGVAR(hardcode_direct, $1)=unsupported + # It fails to find uninstalled libraries when the uninstalled + # path is not listed in the libpath. Setting hardcode_minus_L + # to unsupported forces relinking + _LT_AC_TAGVAR(hardcode_minus_L, $1)=yes + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' + _LT_AC_TAGVAR(hardcode_libdir_separator, $1)= + fi + esac + shared_flag='-shared' + if test "$aix_use_runtimelinking" = yes; then + shared_flag="$shared_flag "'${wl}-G' + fi + else + # not using gcc + if test "$host_cpu" = ia64; then + # VisualAge C++, Version 5.5 for AIX 5L for IA-64, Beta 3 Release + # chokes on -Wl,-G. The following line is correct: + shared_flag='-G' + else + if test "$aix_use_runtimelinking" = yes; then + shared_flag='${wl}-G' + else + shared_flag='${wl}-bM:SRE' + fi + fi + fi + + # It seems that -bexpall does not export symbols beginning with + # underscore (_), so it is better to generate a list of symbols to export. + _LT_AC_TAGVAR(always_export_symbols, $1)=yes + if test "$aix_use_runtimelinking" = yes; then + # Warning - without using the other runtime loading flags (-brtl), + # -berok will link without error, but may produce a broken library. + _LT_AC_TAGVAR(allow_undefined_flag, $1)='-berok' + # Determine the default libpath from the value encoded in an empty executable. + _LT_AC_SYS_LIBPATH_AIX + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-blibpath:$libdir:'"$aix_libpath" + + _LT_AC_TAGVAR(archive_expsym_cmds, $1)="\$CC"' -o $output_objdir/$soname $libobjs $deplibs $compiler_flags `if test "x${allow_undefined_flag}" != "x"; then echo "${wl}${allow_undefined_flag}"; else :; fi` '"\${wl}$no_entry_flag \${wl}$exp_sym_flag:\$export_symbols $shared_flag" + else + if test "$host_cpu" = ia64; then + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-R $libdir:/usr/lib:/lib' + _LT_AC_TAGVAR(allow_undefined_flag, $1)="-z nodefs" + _LT_AC_TAGVAR(archive_expsym_cmds, $1)="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs $compiler_flags ${wl}${allow_undefined_flag} '"\${wl}$no_entry_flag \${wl}$exp_sym_flag:\$export_symbols" + else + # Determine the default libpath from the value encoded in an empty executable. + _LT_AC_SYS_LIBPATH_AIX + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-blibpath:$libdir:'"$aix_libpath" + # Warning - without using the other run time loading flags, + # -berok will link without error, but may produce a broken library. + _LT_AC_TAGVAR(no_undefined_flag, $1)=' ${wl}-bernotok' + _LT_AC_TAGVAR(allow_undefined_flag, $1)=' ${wl}-berok' + # -bexpall does not export symbols beginning with underscore (_) + _LT_AC_TAGVAR(always_export_symbols, $1)=yes + # Exported symbols can be pulled into shared objects from archives + _LT_AC_TAGVAR(whole_archive_flag_spec, $1)=' ' + _LT_AC_TAGVAR(archive_cmds_need_lc, $1)=yes + # This is similar to how AIX traditionally builds it's shared libraries. + _LT_AC_TAGVAR(archive_expsym_cmds, $1)="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs $compiler_flags ${wl}-bE:$export_symbols ${wl}-bnoentry${allow_undefined_flag}~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$soname' + fi + fi + ;; + chorus*) + case $cc_basename in + *) + # FIXME: insert proper C++ library support + _LT_AC_TAGVAR(ld_shlibs, $1)=no + ;; + esac + ;; + + + cygwin* | mingw* | pw32*) + # _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1) is actually meaningless, + # as there is no search path for DLLs. + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' + _LT_AC_TAGVAR(allow_undefined_flag, $1)=unsupported + _LT_AC_TAGVAR(always_export_symbols, $1)=no + _LT_AC_TAGVAR(enable_shared_with_static_runtimes, $1)=yes + + if $LD --help 2>&1 | grep 'auto-import' > /dev/null; then + _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $output_objdir/$soname ${wl}--image-base=0x10000000 ${wl}--out-implib,$lib' + # If the export-symbols file already is a .def file (1st line + # is EXPORTS), use it as is; otherwise, prepend... + _LT_AC_TAGVAR(archive_expsym_cmds, $1)='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then + cp $export_symbols $output_objdir/$soname.def; + else + echo EXPORTS > $output_objdir/$soname.def; + cat $export_symbols >> $output_objdir/$soname.def; + fi~ + $CC -shared -nostdlib $output_objdir/$soname.def $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $output_objdir/$soname ${wl}--image-base=0x10000000 ${wl}--out-implib,$lib' + else + _LT_AC_TAGVAR(ld_shlibs, $1)=no + fi + ;; + darwin* | rhapsody*) + case "$host_os" in + rhapsody* | darwin1.[[012]]) + _LT_AC_TAGVAR(allow_undefined_flag, $1)='${wl}-undefined ${wl}suppress' + ;; + *) # Darwin 1.3 on + if test -z ${MACOSX_DEPLOYMENT_TARGET} ; then + _LT_AC_TAGVAR(allow_undefined_flag, $1)='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' + else + case ${MACOSX_DEPLOYMENT_TARGET} in + 10.[[012]]) + _LT_AC_TAGVAR(allow_undefined_flag, $1)='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' + ;; + 10.*) + _LT_AC_TAGVAR(allow_undefined_flag, $1)='${wl}-undefined ${wl}dynamic_lookup' + ;; + esac + fi + ;; + esac + _LT_AC_TAGVAR(archive_cmds_need_lc, $1)=no + _LT_AC_TAGVAR(hardcode_direct, $1)=no + _LT_AC_TAGVAR(hardcode_automatic, $1)=yes + _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=unsupported + _LT_AC_TAGVAR(whole_archive_flag_spec, $1)='' + _LT_AC_TAGVAR(link_all_deplibs, $1)=yes + + if test "$GXX" = yes ; then + lt_int_apple_cc_single_mod=no + output_verbose_link_cmd='echo' + if $CC -dumpspecs 2>&1 | $EGREP 'single_module' >/dev/null ; then + lt_int_apple_cc_single_mod=yes + fi + if test "X$lt_int_apple_cc_single_mod" = Xyes ; then + _LT_AC_TAGVAR(archive_cmds, $1)='$CC -dynamiclib -single_module $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags -install_name $rpath/$soname $verstring' + else + _LT_AC_TAGVAR(archive_cmds, $1)='$CC -r -keep_private_externs -nostdlib -o ${lib}-master.o $libobjs~$CC -dynamiclib $allow_undefined_flag -o $lib ${lib}-master.o $deplibs $compiler_flags -install_name $rpath/$soname $verstring' + fi + _LT_AC_TAGVAR(module_cmds, $1)='$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags' + # Don't fix this by using the ld -exported_symbols_list flag, it doesn't exist in older darwin ld's + if test "X$lt_int_apple_cc_single_mod" = Xyes ; then + _LT_AC_TAGVAR(archive_expsym_cmds, $1)='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC -dynamiclib -single_module $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags -install_name $rpath/$soname $verstring~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' + else + _LT_AC_TAGVAR(archive_expsym_cmds, $1)='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC -r -keep_private_externs -nostdlib -o ${lib}-master.o $libobjs~$CC -dynamiclib $allow_undefined_flag -o $lib ${lib}-master.o $deplibs $compiler_flags -install_name $rpath/$soname $verstring~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' + fi + _LT_AC_TAGVAR(module_expsym_cmds, $1)='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' + else + case $cc_basename in + xlc*) + output_verbose_link_cmd='echo' + _LT_AC_TAGVAR(archive_cmds, $1)='$CC -qmkshrobj ${wl}-single_module $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-install_name ${wl}`echo $rpath/$soname` $verstring' + _LT_AC_TAGVAR(module_cmds, $1)='$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags' + # Don't fix this by using the ld -exported_symbols_list flag, it doesn't exist in older darwin ld's + _LT_AC_TAGVAR(archive_expsym_cmds, $1)='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC -qmkshrobj ${wl}-single_module $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-install_name ${wl}$rpath/$soname $verstring~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' + _LT_AC_TAGVAR(module_expsym_cmds, $1)='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' + ;; + *) + _LT_AC_TAGVAR(ld_shlibs, $1)=no + ;; + esac + fi + ;; + + dgux*) + case $cc_basename in + ec++*) + # FIXME: insert proper C++ library support + _LT_AC_TAGVAR(ld_shlibs, $1)=no + ;; + ghcx*) + # Green Hills C++ Compiler + # FIXME: insert proper C++ library support + _LT_AC_TAGVAR(ld_shlibs, $1)=no + ;; + *) + # FIXME: insert proper C++ library support + _LT_AC_TAGVAR(ld_shlibs, $1)=no + ;; + esac + ;; + freebsd[[12]]*) + # C++ shared libraries reported to be fairly broken before switch to ELF + _LT_AC_TAGVAR(ld_shlibs, $1)=no + ;; + freebsd-elf*) + _LT_AC_TAGVAR(archive_cmds_need_lc, $1)=no + ;; + freebsd* | kfreebsd*-gnu | dragonfly*) + # FreeBSD 3 and later use GNU C++ and GNU ld with standard ELF + # conventions + _LT_AC_TAGVAR(ld_shlibs, $1)=yes + ;; + gnu*) + ;; + hpux9*) + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}+b ${wl}$libdir' + _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=: + _LT_AC_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E' + _LT_AC_TAGVAR(hardcode_direct, $1)=yes + _LT_AC_TAGVAR(hardcode_minus_L, $1)=yes # Not in the search PATH, + # but as the default + # location of the library. + + case $cc_basename in + CC*) + # FIXME: insert proper C++ library support + _LT_AC_TAGVAR(ld_shlibs, $1)=no + ;; + aCC*) + _LT_AC_TAGVAR(archive_cmds, $1)='$rm $output_objdir/$soname~$CC -b ${wl}+b ${wl}$install_libdir -o $output_objdir/$soname $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib' + # Commands to make compiler produce verbose output that lists + # what "hidden" libraries, object files and flags are used when + # linking a shared library. + # + # There doesn't appear to be a way to prevent this compiler from + # explicitly linking system object files so we need to strip them + # from the output so that they don't get included in the library + # dependencies. + output_verbose_link_cmd='templist=`($CC -b $CFLAGS -v conftest.$objext 2>&1) | grep "[[-]]L"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; echo $list' + ;; + *) + if test "$GXX" = yes; then + _LT_AC_TAGVAR(archive_cmds, $1)='$rm $output_objdir/$soname~$CC -shared -nostdlib -fPIC ${wl}+b ${wl}$install_libdir -o $output_objdir/$soname $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib' + else + # FIXME: insert proper C++ library support + _LT_AC_TAGVAR(ld_shlibs, $1)=no + fi + ;; + esac + ;; + hpux10*|hpux11*) + if test $with_gnu_ld = no; then + case "$host_cpu" in + hppa*64*) + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}+b ${wl}$libdir' + _LT_AC_TAGVAR(hardcode_libdir_flag_spec_ld, $1)='+b $libdir' + _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=: + ;; + ia64*) + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' + ;; + *) + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}+b ${wl}$libdir' + _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=: + _LT_AC_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E' + ;; + esac + fi + case "$host_cpu" in + hppa*64*) + _LT_AC_TAGVAR(hardcode_direct, $1)=no + _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no + ;; + ia64*) + _LT_AC_TAGVAR(hardcode_direct, $1)=no + _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no + _LT_AC_TAGVAR(hardcode_minus_L, $1)=yes # Not in the search PATH, + # but as the default + # location of the library. + ;; + *) + _LT_AC_TAGVAR(hardcode_direct, $1)=yes + _LT_AC_TAGVAR(hardcode_minus_L, $1)=yes # Not in the search PATH, + # but as the default + # location of the library. + ;; + esac + + case $cc_basename in + CC*) + # FIXME: insert proper C++ library support + _LT_AC_TAGVAR(ld_shlibs, $1)=no + ;; + aCC*) + case "$host_cpu" in + hppa*64*|ia64*) + _LT_AC_TAGVAR(archive_cmds, $1)='$LD -b +h $soname -o $lib $linker_flags $libobjs $deplibs' + ;; + *) + _LT_AC_TAGVAR(archive_cmds, $1)='$CC -b ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' + ;; + esac + # Commands to make compiler produce verbose output that lists + # what "hidden" libraries, object files and flags are used when + # linking a shared library. + # + # There doesn't appear to be a way to prevent this compiler from + # explicitly linking system object files so we need to strip them + # from the output so that they don't get included in the library + # dependencies. + output_verbose_link_cmd='templist=`($CC -b $CFLAGS -v conftest.$objext 2>&1) | grep "\-L"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; echo $list' + ;; + *) + if test "$GXX" = yes; then + if test $with_gnu_ld = no; then + case "$host_cpu" in + ia64*|hppa*64*) + _LT_AC_TAGVAR(archive_cmds, $1)='$LD -b +h $soname -o $lib $linker_flags $libobjs $deplibs' + ;; + *) + _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib -fPIC ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' + ;; + esac + fi + else + # FIXME: insert proper C++ library support + _LT_AC_TAGVAR(ld_shlibs, $1)=no + fi + ;; + esac + ;; + irix5* | irix6*) + case $cc_basename in + CC*) + # SGI C++ + _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared -all -multigot $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib' + + # Archives containing C++ object files must be created using + # "CC -ar", where "CC" is the IRIX C++ compiler. This is + # necessary to make sure instantiated templates are included + # in the archive. + _LT_AC_TAGVAR(old_archive_cmds, $1)='$CC -ar -WR,-u -o $oldlib $oldobjs' + ;; + *) + if test "$GXX" = yes; then + if test "$with_gnu_ld" = no; then + _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' + else + _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` -o $lib' + fi + fi + _LT_AC_TAGVAR(link_all_deplibs, $1)=yes + ;; + esac + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' + _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=: + ;; + linux*) + case $cc_basename in + KCC*) + # Kuck and Associates, Inc. (KAI) C++ Compiler + + # KCC will only create a shared library if the output file + # ends with ".so" (or ".sl" for HP-UX), so rename the library + # to its proper name (with version) after linking. + _LT_AC_TAGVAR(archive_cmds, $1)='tempext=`echo $shared_ext | $SED -e '\''s/\([[^()0-9A-Za-z{}]]\)/\\\\\1/g'\''`; templib=`echo $lib | $SED -e "s/\${tempext}\..*/.so/"`; $CC $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags --soname $soname -o \$templib; mv \$templib $lib' + _LT_AC_TAGVAR(archive_expsym_cmds, $1)='tempext=`echo $shared_ext | $SED -e '\''s/\([[^()0-9A-Za-z{}]]\)/\\\\\1/g'\''`; templib=`echo $lib | $SED -e "s/\${tempext}\..*/.so/"`; $CC $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags --soname $soname -o \$templib ${wl}-retain-symbols-file,$export_symbols; mv \$templib $lib' + # Commands to make compiler produce verbose output that lists + # what "hidden" libraries, object files and flags are used when + # linking a shared library. + # + # There doesn't appear to be a way to prevent this compiler from + # explicitly linking system object files so we need to strip them + # from the output so that they don't get included in the library + # dependencies. + output_verbose_link_cmd='templist=`$CC $CFLAGS -v conftest.$objext -o libconftest$shared_ext 2>&1 | grep "ld"`; rm -f libconftest$shared_ext; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; echo $list' + + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}--rpath,$libdir' + _LT_AC_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-dynamic' + + # Archives containing C++ object files must be created using + # "CC -Bstatic", where "CC" is the KAI C++ compiler. + _LT_AC_TAGVAR(old_archive_cmds, $1)='$CC -Bstatic -o $oldlib $oldobjs' + ;; + icpc*) + # Intel C++ + with_gnu_ld=yes + # version 8.0 and above of icpc choke on multiply defined symbols + # if we add $predep_objects and $postdep_objects, however 7.1 and + # earlier do not add the objects themselves. + case `$CC -V 2>&1` in + *"Version 7."*) + _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib' + _LT_AC_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' + ;; + *) # Version 8.0 or newer + tmp_idyn= + case $host_cpu in + ia64*) tmp_idyn=' -i_dynamic';; + esac + _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared'"$tmp_idyn"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' + _LT_AC_TAGVAR(archive_expsym_cmds, $1)='$CC -shared'"$tmp_idyn"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' + ;; + esac + _LT_AC_TAGVAR(archive_cmds_need_lc, $1)=no + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir' + _LT_AC_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-dynamic' + _LT_AC_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive$convenience ${wl}--no-whole-archive' + ;; + pgCC*) + # Portland Group C++ compiler + _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname -o $lib' + _LT_AC_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname ${wl}-retain-symbols-file ${wl}$export_symbols -o $lib' + + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}--rpath ${wl}$libdir' + _LT_AC_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-dynamic' + _LT_AC_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive,`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; $echo \"$new_convenience\"` ${wl}--no-whole-archive' + ;; + cxx*) + # Compaq C++ + _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib' + _LT_AC_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib ${wl}-retain-symbols-file $wl$export_symbols' + + runpath_var=LD_RUN_PATH + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-rpath $libdir' + _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=: + + # Commands to make compiler produce verbose output that lists + # what "hidden" libraries, object files and flags are used when + # linking a shared library. + # + # There doesn't appear to be a way to prevent this compiler from + # explicitly linking system object files so we need to strip them + # from the output so that they don't get included in the library + # dependencies. + output_verbose_link_cmd='templist=`$CC -shared $CFLAGS -v conftest.$objext 2>&1 | grep "ld"`; templist=`echo $templist | $SED "s/\(^.*ld.*\)\( .*ld .*$\)/\1/"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; echo $list' + ;; + esac + ;; + lynxos*) + # FIXME: insert proper C++ library support + _LT_AC_TAGVAR(ld_shlibs, $1)=no + ;; + m88k*) + # FIXME: insert proper C++ library support + _LT_AC_TAGVAR(ld_shlibs, $1)=no + ;; + mvs*) + case $cc_basename in + cxx*) + # FIXME: insert proper C++ library support + _LT_AC_TAGVAR(ld_shlibs, $1)=no + ;; + *) + # FIXME: insert proper C++ library support + _LT_AC_TAGVAR(ld_shlibs, $1)=no + ;; + esac + ;; + netbsd*) + if echo __ELF__ | $CC -E - | grep __ELF__ >/dev/null; then + _LT_AC_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $predep_objects $libobjs $deplibs $postdep_objects $linker_flags' + wlarc= + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' + _LT_AC_TAGVAR(hardcode_direct, $1)=yes + _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no + fi + # Workaround some broken pre-1.5 toolchains + output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | grep conftest.$objext | $SED -e "s:-lgcc -lc -lgcc::"' + ;; + openbsd2*) + # C++ shared libraries are fairly broken + _LT_AC_TAGVAR(ld_shlibs, $1)=no + ;; + openbsd*) + _LT_AC_TAGVAR(hardcode_direct, $1)=yes + _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no + _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $lib' + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir' + if test -z "`echo __ELF__ | $CC -E - | grep __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then + _LT_AC_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-retain-symbols-file,$export_symbols -o $lib' + _LT_AC_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E' + _LT_AC_TAGVAR(whole_archive_flag_spec, $1)="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive' + fi + output_verbose_link_cmd='echo' + ;; + osf3*) + case $cc_basename in + KCC*) + # Kuck and Associates, Inc. (KAI) C++ Compiler + + # KCC will only create a shared library if the output file + # ends with ".so" (or ".sl" for HP-UX), so rename the library + # to its proper name (with version) after linking. + _LT_AC_TAGVAR(archive_cmds, $1)='tempext=`echo $shared_ext | $SED -e '\''s/\([[^()0-9A-Za-z{}]]\)/\\\\\1/g'\''`; templib=`echo $lib | $SED -e "s/\${tempext}\..*/.so/"`; $CC $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags --soname $soname -o \$templib; mv \$templib $lib' + + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir' + _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=: + + # Archives containing C++ object files must be created using + # "CC -Bstatic", where "CC" is the KAI C++ compiler. + _LT_AC_TAGVAR(old_archive_cmds, $1)='$CC -Bstatic -o $oldlib $oldobjs' + + ;; + RCC*) + # Rational C++ 2.4.1 + # FIXME: insert proper C++ library support + _LT_AC_TAGVAR(ld_shlibs, $1)=no + ;; + cxx*) + _LT_AC_TAGVAR(allow_undefined_flag, $1)=' ${wl}-expect_unresolved ${wl}\*' + _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $soname `test -n "$verstring" && echo ${wl}-set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib' + + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' + _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=: + + # Commands to make compiler produce verbose output that lists + # what "hidden" libraries, object files and flags are used when + # linking a shared library. + # + # There doesn't appear to be a way to prevent this compiler from + # explicitly linking system object files so we need to strip them + # from the output so that they don't get included in the library + # dependencies. + output_verbose_link_cmd='templist=`$CC -shared $CFLAGS -v conftest.$objext 2>&1 | grep "ld" | grep -v "ld:"`; templist=`echo $templist | $SED "s/\(^.*ld.*\)\( .*ld.*$\)/\1/"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; echo $list' + ;; + *) + if test "$GXX" = yes && test "$with_gnu_ld" = no; then + _LT_AC_TAGVAR(allow_undefined_flag, $1)=' ${wl}-expect_unresolved ${wl}\*' + _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib ${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' + + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' + _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=: + + # Commands to make compiler produce verbose output that lists + # what "hidden" libraries, object files and flags are used when + # linking a shared library. + output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | grep "\-L"' + + else + # FIXME: insert proper C++ library support + _LT_AC_TAGVAR(ld_shlibs, $1)=no + fi + ;; + esac + ;; + osf4* | osf5*) + case $cc_basename in + KCC*) + # Kuck and Associates, Inc. (KAI) C++ Compiler + + # KCC will only create a shared library if the output file + # ends with ".so" (or ".sl" for HP-UX), so rename the library + # to its proper name (with version) after linking. + _LT_AC_TAGVAR(archive_cmds, $1)='tempext=`echo $shared_ext | $SED -e '\''s/\([[^()0-9A-Za-z{}]]\)/\\\\\1/g'\''`; templib=`echo $lib | $SED -e "s/\${tempext}\..*/.so/"`; $CC $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags --soname $soname -o \$templib; mv \$templib $lib' + + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir' + _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=: + + # Archives containing C++ object files must be created using + # the KAI C++ compiler. + _LT_AC_TAGVAR(old_archive_cmds, $1)='$CC -o $oldlib $oldobjs' + ;; + RCC*) + # Rational C++ 2.4.1 + # FIXME: insert proper C++ library support + _LT_AC_TAGVAR(ld_shlibs, $1)=no + ;; + cxx*) + _LT_AC_TAGVAR(allow_undefined_flag, $1)=' -expect_unresolved \*' + _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -msym -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib' + _LT_AC_TAGVAR(archive_expsym_cmds, $1)='for i in `cat $export_symbols`; do printf "%s %s\\n" -exported_symbol "\$i" >> $lib.exp; done~ + echo "-hidden">> $lib.exp~ + $CC -shared$allow_undefined_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -msym -soname $soname -Wl,-input -Wl,$lib.exp `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib~ + $rm $lib.exp' + + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-rpath $libdir' + _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=: + + # Commands to make compiler produce verbose output that lists + # what "hidden" libraries, object files and flags are used when + # linking a shared library. + # + # There doesn't appear to be a way to prevent this compiler from + # explicitly linking system object files so we need to strip them + # from the output so that they don't get included in the library + # dependencies. + output_verbose_link_cmd='templist=`$CC -shared $CFLAGS -v conftest.$objext 2>&1 | grep "ld" | grep -v "ld:"`; templist=`echo $templist | $SED "s/\(^.*ld.*\)\( .*ld.*$\)/\1/"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; echo $list' + ;; + *) + if test "$GXX" = yes && test "$with_gnu_ld" = no; then + _LT_AC_TAGVAR(allow_undefined_flag, $1)=' ${wl}-expect_unresolved ${wl}\*' + _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib ${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-msym ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' + + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' + _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=: + + # Commands to make compiler produce verbose output that lists + # what "hidden" libraries, object files and flags are used when + # linking a shared library. + output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | grep "\-L"' + + else + # FIXME: insert proper C++ library support + _LT_AC_TAGVAR(ld_shlibs, $1)=no + fi + ;; + esac + ;; + psos*) + # FIXME: insert proper C++ library support + _LT_AC_TAGVAR(ld_shlibs, $1)=no + ;; + sco*) + _LT_AC_TAGVAR(archive_cmds_need_lc, $1)=no + case $cc_basename in + CC*) + # FIXME: insert proper C++ library support + _LT_AC_TAGVAR(ld_shlibs, $1)=no + ;; + *) + # FIXME: insert proper C++ library support + _LT_AC_TAGVAR(ld_shlibs, $1)=no + ;; + esac + ;; + sunos4*) + case $cc_basename in + CC*) + # Sun C++ 4.x + # FIXME: insert proper C++ library support + _LT_AC_TAGVAR(ld_shlibs, $1)=no + ;; + lcc*) + # Lucid + # FIXME: insert proper C++ library support + _LT_AC_TAGVAR(ld_shlibs, $1)=no + ;; + *) + # FIXME: insert proper C++ library support + _LT_AC_TAGVAR(ld_shlibs, $1)=no + ;; + esac + ;; + solaris*) + case $cc_basename in + CC*) + # Sun C++ 4.2, 5.x and Centerline C++ + _LT_AC_TAGVAR(no_undefined_flag, $1)=' -zdefs' + _LT_AC_TAGVAR(archive_cmds, $1)='$CC -G${allow_undefined_flag} -nolib -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' + _LT_AC_TAGVAR(archive_expsym_cmds, $1)='$echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~$echo "local: *; };" >> $lib.exp~ + $CC -G${allow_undefined_flag} -nolib ${wl}-M ${wl}$lib.exp -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~$rm $lib.exp' + + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' + _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no + case $host_os in + solaris2.[[0-5]] | solaris2.[[0-5]].*) ;; + *) + # The C++ compiler is used as linker so we must use $wl + # flag to pass the commands to the underlying system + # linker. We must also pass each convience library through + # to the system linker between allextract/defaultextract. + # The C++ compiler will combine linker options so we + # cannot just pass the convience library names through + # without $wl. + # Supported since Solaris 2.6 (maybe 2.5.1?) + _LT_AC_TAGVAR(whole_archive_flag_spec, $1)='${wl}-z ${wl}allextract`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; $echo \"$new_convenience\"` ${wl}-z ${wl}defaultextract' + ;; + esac + _LT_AC_TAGVAR(link_all_deplibs, $1)=yes + + # Commands to make compiler produce verbose output that lists + # what "hidden" libraries, object files and flags are used when + # linking a shared library. + # + # There doesn't appear to be a way to prevent this compiler from + # explicitly linking system object files so we need to strip them + # from the output so that they don't get included in the library + # dependencies. + output_verbose_link_cmd='templist=`$CC -G $CFLAGS -v conftest.$objext 2>&1 | grep "\-[[LR]]"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; echo $list' + + # Archives containing C++ object files must be created using + # "CC -xar", where "CC" is the Sun C++ compiler. This is + # necessary to make sure instantiated templates are included + # in the archive. + _LT_AC_TAGVAR(old_archive_cmds, $1)='$CC -xar -o $oldlib $oldobjs' + ;; + gcx*) + # Green Hills C++ Compiler + _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-h $wl$soname -o $lib' + + # The C++ compiler must be used to create the archive. + _LT_AC_TAGVAR(old_archive_cmds, $1)='$CC $LDFLAGS -archive -o $oldlib $oldobjs' + ;; + *) + # GNU C++ compiler with Solaris linker + if test "$GXX" = yes && test "$with_gnu_ld" = no; then + _LT_AC_TAGVAR(no_undefined_flag, $1)=' ${wl}-z ${wl}defs' + if $CC --version | grep -v '^2\.7' > /dev/null; then + _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $LDFLAGS $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-h $wl$soname -o $lib' + _LT_AC_TAGVAR(archive_expsym_cmds, $1)='$echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~$echo "local: *; };" >> $lib.exp~ + $CC -shared -nostdlib ${wl}-M $wl$lib.exp -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~$rm $lib.exp' + + # Commands to make compiler produce verbose output that lists + # what "hidden" libraries, object files and flags are used when + # linking a shared library. + output_verbose_link_cmd="$CC -shared $CFLAGS -v conftest.$objext 2>&1 | grep \"\-L\"" + else + # g++ 2.7 appears to require `-G' NOT `-shared' on this + # platform. + _LT_AC_TAGVAR(archive_cmds, $1)='$CC -G -nostdlib $LDFLAGS $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-h $wl$soname -o $lib' + _LT_AC_TAGVAR(archive_expsym_cmds, $1)='$echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~$echo "local: *; };" >> $lib.exp~ + $CC -G -nostdlib ${wl}-M $wl$lib.exp -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~$rm $lib.exp' + + # Commands to make compiler produce verbose output that lists + # what "hidden" libraries, object files and flags are used when + # linking a shared library. + output_verbose_link_cmd="$CC -G $CFLAGS -v conftest.$objext 2>&1 | grep \"\-L\"" + fi + + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-R $wl$libdir' + fi + ;; + esac + ;; + sysv5OpenUNIX8* | sysv5UnixWare7* | sysv5uw[[78]]* | unixware7*) + _LT_AC_TAGVAR(archive_cmds_need_lc, $1)=no + ;; + tandem*) + case $cc_basename in + NCC*) + # NonStop-UX NCC 3.20 + # FIXME: insert proper C++ library support + _LT_AC_TAGVAR(ld_shlibs, $1)=no + ;; + *) + # FIXME: insert proper C++ library support + _LT_AC_TAGVAR(ld_shlibs, $1)=no + ;; + esac + ;; + vxworks*) + # FIXME: insert proper C++ library support + _LT_AC_TAGVAR(ld_shlibs, $1)=no + ;; + *) + # FIXME: insert proper C++ library support + _LT_AC_TAGVAR(ld_shlibs, $1)=no + ;; +esac +AC_MSG_RESULT([$_LT_AC_TAGVAR(ld_shlibs, $1)]) +test "$_LT_AC_TAGVAR(ld_shlibs, $1)" = no && can_build_shared=no + +_LT_AC_TAGVAR(GCC, $1)="$GXX" +_LT_AC_TAGVAR(LD, $1)="$LD" + +AC_LIBTOOL_POSTDEP_PREDEP($1) +AC_LIBTOOL_PROG_COMPILER_PIC($1) +AC_LIBTOOL_PROG_CC_C_O($1) +AC_LIBTOOL_SYS_HARD_LINK_LOCKS($1) +AC_LIBTOOL_PROG_LD_SHLIBS($1) +AC_LIBTOOL_SYS_DYNAMIC_LINKER($1) +AC_LIBTOOL_PROG_LD_HARDCODE_LIBPATH($1) +AC_LIBTOOL_SYS_LIB_STRIP +AC_LIBTOOL_DLOPEN_SELF($1) + +AC_LIBTOOL_CONFIG($1) + +AC_LANG_POP +CC=$lt_save_CC +LDCXX=$LD +LD=$lt_save_LD +GCC=$lt_save_GCC +with_gnu_ldcxx=$with_gnu_ld +with_gnu_ld=$lt_save_with_gnu_ld +lt_cv_path_LDCXX=$lt_cv_path_LD +lt_cv_path_LD=$lt_save_path_LD +lt_cv_prog_gnu_ldcxx=$lt_cv_prog_gnu_ld +lt_cv_prog_gnu_ld=$lt_save_with_gnu_ld +])# AC_LIBTOOL_LANG_CXX_CONFIG + +# AC_LIBTOOL_POSTDEP_PREDEP([TAGNAME]) +# ------------------------ +# Figure out "hidden" library dependencies from verbose +# compiler output when linking a shared library. +# Parse the compiler output and extract the necessary +# objects, libraries and library flags. +AC_DEFUN([AC_LIBTOOL_POSTDEP_PREDEP],[ +dnl we can't use the lt_simple_compile_test_code here, +dnl because it contains code intended for an executable, +dnl not a library. It's possible we should let each +dnl tag define a new lt_????_link_test_code variable, +dnl but it's only used here... +ifelse([$1],[],[cat > conftest.$ac_ext < conftest.$ac_ext < conftest.$ac_ext < conftest.$ac_ext <> "$cfgfile" +ifelse([$1], [], +[#! $SHELL + +# `$echo "$cfgfile" | sed 's%^.*/%%'` - Provide generalized library-building support services. +# Generated automatically by $PROGRAM (GNU $PACKAGE $VERSION$TIMESTAMP) +# NOTE: Changes made to this file will be lost: look at ltmain.sh. +# +# Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001 +# Free Software Foundation, Inc. +# +# This file is part of GNU Libtool: +# Originally by Gordon Matzigkeit , 1996 +# +# This program 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. +# +# As a special exception to the GNU General Public License, if you +# distribute this file as part of a program that contains a +# configuration script generated by Autoconf, you may include it under +# the same distribution terms that you use for the rest of that program. + +# A sed program that does not truncate output. +SED=$lt_SED + +# Sed that helps us avoid accidentally triggering echo(1) options like -n. +Xsed="$SED -e 1s/^X//" + +# The HP-UX ksh and POSIX shell print the target directory to stdout +# if CDPATH is set. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + +# The names of the tagged configurations supported by this script. +available_tags= + +# ### BEGIN LIBTOOL CONFIG], +[# ### BEGIN LIBTOOL TAG CONFIG: $tagname]) + +# Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: + +# Shell to use when invoking shell scripts. +SHELL=$lt_SHELL + +# Whether or not to build shared libraries. +build_libtool_libs=$enable_shared + +# Whether or not to build static libraries. +build_old_libs=$enable_static + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$_LT_AC_TAGVAR(archive_cmds_need_lc, $1) + +# Whether or not to disallow shared libs when runtime libs are static +allow_libtool_libs_with_static_runtimes=$_LT_AC_TAGVAR(enable_shared_with_static_runtimes, $1) + +# Whether or not to optimize for fast installation. +fast_install=$enable_fast_install + +# The host system. +host_alias=$host_alias +host=$host +host_os=$host_os + +# The build system. +build_alias=$build_alias +build=$build +build_os=$build_os + +# An echo program that does not interpret backslashes. +echo=$lt_echo + +# The archiver. +AR=$lt_AR +AR_FLAGS=$lt_AR_FLAGS + +# A C compiler. +LTCC=$lt_LTCC + +# A language-specific compiler. +CC=$lt_[]_LT_AC_TAGVAR(compiler, $1) + +# Is the compiler the GNU C compiler? +with_gcc=$_LT_AC_TAGVAR(GCC, $1) + +# An ERE matcher. +EGREP=$lt_EGREP + +# The linker used to build libraries. +LD=$lt_[]_LT_AC_TAGVAR(LD, $1) + +# Whether we need hard or soft links. +LN_S=$lt_LN_S + +# A BSD-compatible nm program. +NM=$lt_NM + +# A symbol stripping program +STRIP=$lt_STRIP + +# Used to examine libraries when file_magic_cmd begins "file" +MAGIC_CMD=$MAGIC_CMD + +# Used on cygwin: DLL creation program. +DLLTOOL="$DLLTOOL" + +# Used on cygwin: object dumper. +OBJDUMP="$OBJDUMP" + +# Used on cygwin: assembler. +AS="$AS" + +# The name of the directory that contains temporary libtool files. +objdir=$objdir + +# How to create reloadable object files. +reload_flag=$lt_reload_flag +reload_cmds=$lt_reload_cmds + +# How to pass a linker flag through the compiler. +wl=$lt_[]_LT_AC_TAGVAR(lt_prog_compiler_wl, $1) + +# Object file suffix (normally "o"). +objext="$ac_objext" + +# Old archive suffix (normally "a"). +libext="$libext" + +# Shared library suffix (normally ".so"). +shrext_cmds='$shrext_cmds' + +# Executable file suffix (normally ""). +exeext="$exeext" + +# Additional compiler flags for building library objects. +pic_flag=$lt_[]_LT_AC_TAGVAR(lt_prog_compiler_pic, $1) +pic_mode=$pic_mode + +# What is the maximum length of a command? +max_cmd_len=$lt_cv_sys_max_cmd_len + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_[]_LT_AC_TAGVAR(lt_cv_prog_compiler_c_o, $1) + +# Must we lock files when doing compilation? +need_locks=$lt_need_locks + +# Do we need the lib prefix for modules? +need_lib_prefix=$need_lib_prefix + +# Do we need a version for libraries? +need_version=$need_version + +# Whether dlopen is supported. +dlopen_support=$enable_dlopen + +# Whether dlopen of programs is supported. +dlopen_self=$enable_dlopen_self + +# Whether dlopen of statically linked programs is supported. +dlopen_self_static=$enable_dlopen_self_static + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_[]_LT_AC_TAGVAR(lt_prog_compiler_static, $1) + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_[]_LT_AC_TAGVAR(lt_prog_compiler_no_builtin_flag, $1) + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_[]_LT_AC_TAGVAR(export_dynamic_flag_spec, $1) + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_[]_LT_AC_TAGVAR(whole_archive_flag_spec, $1) + +# Compiler flag to generate thread-safe objects. +thread_safe_flag_spec=$lt_[]_LT_AC_TAGVAR(thread_safe_flag_spec, $1) + +# Library versioning type. +version_type=$version_type + +# Format of library name prefix. +libname_spec=$lt_libname_spec + +# List of archive names. First name is the real one, the rest are links. +# The last name is the one that the linker finds with -lNAME. +library_names_spec=$lt_library_names_spec + +# The coded name of the library, if different from the real name. +soname_spec=$lt_soname_spec + +# Commands used to build and install an old-style archive. +RANLIB=$lt_RANLIB +old_archive_cmds=$lt_[]_LT_AC_TAGVAR(old_archive_cmds, $1) +old_postinstall_cmds=$lt_old_postinstall_cmds +old_postuninstall_cmds=$lt_old_postuninstall_cmds + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_[]_LT_AC_TAGVAR(old_archive_from_new_cmds, $1) + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_[]_LT_AC_TAGVAR(old_archive_from_expsyms_cmds, $1) + +# Commands used to build and install a shared archive. +archive_cmds=$lt_[]_LT_AC_TAGVAR(archive_cmds, $1) +archive_expsym_cmds=$lt_[]_LT_AC_TAGVAR(archive_expsym_cmds, $1) +postinstall_cmds=$lt_postinstall_cmds +postuninstall_cmds=$lt_postuninstall_cmds + +# Commands used to build a loadable module (assumed same as above if empty) +module_cmds=$lt_[]_LT_AC_TAGVAR(module_cmds, $1) +module_expsym_cmds=$lt_[]_LT_AC_TAGVAR(module_expsym_cmds, $1) + +# Commands to strip libraries. +old_striplib=$lt_old_striplib +striplib=$lt_striplib + +# Dependencies to place before the objects being linked to create a +# shared library. +predep_objects=$lt_[]_LT_AC_TAGVAR(predep_objects, $1) + +# Dependencies to place after the objects being linked to create a +# shared library. +postdep_objects=$lt_[]_LT_AC_TAGVAR(postdep_objects, $1) + +# Dependencies to place before the objects being linked to create a +# shared library. +predeps=$lt_[]_LT_AC_TAGVAR(predeps, $1) + +# Dependencies to place after the objects being linked to create a +# shared library. +postdeps=$lt_[]_LT_AC_TAGVAR(postdeps, $1) + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_[]_LT_AC_TAGVAR(compiler_lib_search_path, $1) + +# Method to check whether dependent libraries are shared objects. +deplibs_check_method=$lt_deplibs_check_method + +# Command to use when deplibs_check_method == file_magic. +file_magic_cmd=$lt_file_magic_cmd + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_[]_LT_AC_TAGVAR(allow_undefined_flag, $1) + +# Flag that forces no undefined symbols. +no_undefined_flag=$lt_[]_LT_AC_TAGVAR(no_undefined_flag, $1) + +# Commands used to finish a libtool library installation in a directory. +finish_cmds=$lt_finish_cmds + +# Same as above, but a single script fragment to be evaled but not shown. +finish_eval=$lt_finish_eval + +# Take the output of nm and produce a listing of raw symbols and C names. +global_symbol_pipe=$lt_lt_cv_sys_global_symbol_pipe + +# Transform the output of nm in a proper C declaration +global_symbol_to_cdecl=$lt_lt_cv_sys_global_symbol_to_cdecl + +# Transform the output of nm in a C name address pair +global_symbol_to_c_name_address=$lt_lt_cv_sys_global_symbol_to_c_name_address + +# This is the shared library runtime path variable. +runpath_var=$runpath_var + +# This is the shared library path variable. +shlibpath_var=$shlibpath_var + +# Is shlibpath searched before the hard-coded library search path? +shlibpath_overrides_runpath=$shlibpath_overrides_runpath + +# How to hardcode a shared library path into an executable. +hardcode_action=$_LT_AC_TAGVAR(hardcode_action, $1) + +# Whether we should hardcode library paths into libraries. +hardcode_into_libs=$hardcode_into_libs + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist. +hardcode_libdir_flag_spec=$lt_[]_LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1) + +# If ld is used when linking, flag to hardcode \$libdir into +# a binary during linking. This must work even if \$libdir does +# not exist. +hardcode_libdir_flag_spec_ld=$lt_[]_LT_AC_TAGVAR(hardcode_libdir_flag_spec_ld, $1) + +# Whether we need a single -rpath flag with a separated argument. +hardcode_libdir_separator=$lt_[]_LT_AC_TAGVAR(hardcode_libdir_separator, $1) + +# Set to yes if using DIR/libNAME${shared_ext} during linking hardcodes DIR into the +# resulting binary. +hardcode_direct=$_LT_AC_TAGVAR(hardcode_direct, $1) + +# Set to yes if using the -LDIR flag during linking hardcodes DIR into the +# resulting binary. +hardcode_minus_L=$_LT_AC_TAGVAR(hardcode_minus_L, $1) + +# Set to yes if using SHLIBPATH_VAR=DIR during linking hardcodes DIR into +# the resulting binary. +hardcode_shlibpath_var=$_LT_AC_TAGVAR(hardcode_shlibpath_var, $1) + +# Set to yes if building a shared library automatically hardcodes DIR into the library +# and all subsequent libraries and executables linked against it. +hardcode_automatic=$_LT_AC_TAGVAR(hardcode_automatic, $1) + +# Variables whose values should be saved in libtool wrapper scripts and +# restored at relink time. +variables_saved_for_relink="$variables_saved_for_relink" + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$_LT_AC_TAGVAR(link_all_deplibs, $1) + +# Compile-time system search path for libraries +sys_lib_search_path_spec=$lt_sys_lib_search_path_spec + +# Run-time system search path for libraries +sys_lib_dlsearch_path_spec=$lt_sys_lib_dlsearch_path_spec + +# Fix the shell variable \$srcfile for the compiler. +fix_srcfile_path="$_LT_AC_TAGVAR(fix_srcfile_path, $1)" + +# Set to yes if exported symbols are required. +always_export_symbols=$_LT_AC_TAGVAR(always_export_symbols, $1) + +# The commands to list exported symbols. +export_symbols_cmds=$lt_[]_LT_AC_TAGVAR(export_symbols_cmds, $1) + +# The commands to extract the exported symbol list from a shared archive. +extract_expsyms_cmds=$lt_extract_expsyms_cmds + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_[]_LT_AC_TAGVAR(exclude_expsyms, $1) + +# Symbols that must always be exported. +include_expsyms=$lt_[]_LT_AC_TAGVAR(include_expsyms, $1) + +ifelse([$1],[], +[# ### END LIBTOOL CONFIG], +[# ### END LIBTOOL TAG CONFIG: $tagname]) + +__EOF__ + +ifelse([$1],[], [ + case $host_os in + aix3*) + cat <<\EOF >> "$cfgfile" + +# AIX sometimes has problems with the GCC collect2 program. For some +# reason, if we set the COLLECT_NAMES environment variable, the problems +# vanish in a puff of smoke. +if test "X${COLLECT_NAMES+set}" != Xset; then + COLLECT_NAMES= + export COLLECT_NAMES +fi +EOF + ;; + esac + + # We use sed instead of cat because bash on DJGPP gets confused if + # if finds mixed CR/LF and LF-only lines. Since sed operates in + # text mode, it properly converts lines to CR/LF. This bash problem + # is reportedly fixed, but why not run on old versions too? + sed '$q' "$ltmain" >> "$cfgfile" || (rm -f "$cfgfile"; exit 1) + + mv -f "$cfgfile" "$ofile" || \ + (rm -f "$ofile" && cp "$cfgfile" "$ofile" && rm -f "$cfgfile") + chmod +x "$ofile" +]) +else + # If there is no Makefile yet, we rely on a make rule to execute + # `config.status --recheck' to rerun these tests and create the + # libtool script then. + ltmain_in=`echo $ltmain | sed -e 's/\.sh$/.in/'` + if test -f "$ltmain_in"; then + test -f Makefile && make "$ltmain" + fi +fi +])# AC_LIBTOOL_CONFIG + + +# AC_LIBTOOL_PROG_COMPILER_NO_RTTI([TAGNAME]) +# ------------------------------------------- +AC_DEFUN([AC_LIBTOOL_PROG_COMPILER_NO_RTTI], +[AC_REQUIRE([_LT_AC_SYS_COMPILER])dnl + +_LT_AC_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)= + +if test "$GCC" = yes; then + _LT_AC_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)=' -fno-builtin' + + AC_LIBTOOL_COMPILER_OPTION([if $compiler supports -fno-rtti -fno-exceptions], + lt_cv_prog_compiler_rtti_exceptions, + [-fno-rtti -fno-exceptions], [], + [_LT_AC_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)="$_LT_AC_TAGVAR(lt_prog_compiler_no_builtin_flag, $1) -fno-rtti -fno-exceptions"]) +fi +])# AC_LIBTOOL_PROG_COMPILER_NO_RTTI + + +# AC_LIBTOOL_SYS_GLOBAL_SYMBOL_PIPE +# --------------------------------- +AC_DEFUN([AC_LIBTOOL_SYS_GLOBAL_SYMBOL_PIPE], +[AC_REQUIRE([AC_CANONICAL_HOST]) +AC_REQUIRE([AC_PROG_NM]) +AC_REQUIRE([AC_OBJEXT]) +# Check for command to grab the raw symbol name followed by C symbol from nm. +AC_MSG_CHECKING([command to parse $NM output from $compiler object]) +AC_CACHE_VAL([lt_cv_sys_global_symbol_pipe], +[ +# These are sane defaults that work on at least a few old systems. +# [They come from Ultrix. What could be older than Ultrix?!! ;)] + +# Character class describing NM global symbol codes. +symcode='[[BCDEGRST]]' + +# Regexp to match symbols that can be accessed directly from C. +sympat='\([[_A-Za-z]][[_A-Za-z0-9]]*\)' + +# Transform an extracted symbol line into a proper C declaration +lt_cv_sys_global_symbol_to_cdecl="sed -n -e 's/^. .* \(.*\)$/extern int \1;/p'" + +# Transform an extracted symbol line into symbol name and symbol address +lt_cv_sys_global_symbol_to_c_name_address="sed -n -e 's/^: \([[^ ]]*\) $/ {\\\"\1\\\", (lt_ptr) 0},/p' -e 's/^$symcode \([[^ ]]*\) \([[^ ]]*\)$/ {\"\2\", (lt_ptr) \&\2},/p'" + +# Define system-specific variables. +case $host_os in +aix*) + symcode='[[BCDT]]' + ;; +cygwin* | mingw* | pw32*) + symcode='[[ABCDGISTW]]' + ;; +hpux*) # Its linker distinguishes data from code symbols + if test "$host_cpu" = ia64; then + symcode='[[ABCDEGRST]]' + fi + lt_cv_sys_global_symbol_to_cdecl="sed -n -e 's/^T .* \(.*\)$/extern int \1();/p' -e 's/^$symcode* .* \(.*\)$/extern char \1;/p'" + lt_cv_sys_global_symbol_to_c_name_address="sed -n -e 's/^: \([[^ ]]*\) $/ {\\\"\1\\\", (lt_ptr) 0},/p' -e 's/^$symcode* \([[^ ]]*\) \([[^ ]]*\)$/ {\"\2\", (lt_ptr) \&\2},/p'" + ;; +linux*) + if test "$host_cpu" = ia64; then + symcode='[[ABCDGIRSTW]]' + lt_cv_sys_global_symbol_to_cdecl="sed -n -e 's/^T .* \(.*\)$/extern int \1();/p' -e 's/^$symcode* .* \(.*\)$/extern char \1;/p'" + lt_cv_sys_global_symbol_to_c_name_address="sed -n -e 's/^: \([[^ ]]*\) $/ {\\\"\1\\\", (lt_ptr) 0},/p' -e 's/^$symcode* \([[^ ]]*\) \([[^ ]]*\)$/ {\"\2\", (lt_ptr) \&\2},/p'" + fi + ;; +irix* | nonstopux*) + symcode='[[BCDEGRST]]' + ;; +osf*) + symcode='[[BCDEGQRST]]' + ;; +solaris* | sysv5*) + symcode='[[BDRT]]' + ;; +sysv4) + symcode='[[DFNSTU]]' + ;; +esac + +# Handle CRLF in mingw tool chain +opt_cr= +case $build_os in +mingw*) + opt_cr=`echo 'x\{0,1\}' | tr x '\015'` # option cr in regexp + ;; +esac + +# If we're using GNU nm, then use its standard symbol codes. +case `$NM -V 2>&1` in +*GNU* | *'with BFD'*) + symcode='[[ABCDGIRSTW]]' ;; +esac + +# Try without a prefix undercore, then with it. +for ac_symprfx in "" "_"; do + + # Transform symcode, sympat, and symprfx into a raw symbol and a C symbol. + symxfrm="\\1 $ac_symprfx\\2 \\2" + + # Write the raw and C identifiers. + lt_cv_sys_global_symbol_pipe="sed -n -e 's/^.*[[ ]]\($symcode$symcode*\)[[ ]][[ ]]*$ac_symprfx$sympat$opt_cr$/$symxfrm/p'" + + # Check to see that the pipe works correctly. + pipe_works=no + + rm -f conftest* + cat > conftest.$ac_ext < $nlist) && test -s "$nlist"; then + # Try sorting and uniquifying the output. + if sort "$nlist" | uniq > "$nlist"T; then + mv -f "$nlist"T "$nlist" + else + rm -f "$nlist"T + fi + + # Make sure that we snagged all the symbols we need. + if grep ' nm_test_var$' "$nlist" >/dev/null; then + if grep ' nm_test_func$' "$nlist" >/dev/null; then + cat < conftest.$ac_ext +#ifdef __cplusplus +extern "C" { +#endif + +EOF + # Now generate the symbol file. + eval "$lt_cv_sys_global_symbol_to_cdecl"' < "$nlist" | grep -v main >> conftest.$ac_ext' + + cat <> conftest.$ac_ext +#if defined (__STDC__) && __STDC__ +# define lt_ptr_t void * +#else +# define lt_ptr_t char * +# define const +#endif + +/* The mapping between symbol names and symbols. */ +const struct { + const char *name; + lt_ptr_t address; +} +lt_preloaded_symbols[[]] = +{ +EOF + $SED "s/^$symcode$symcode* \(.*\) \(.*\)$/ {\"\2\", (lt_ptr_t) \&\2},/" < "$nlist" | grep -v main >> conftest.$ac_ext + cat <<\EOF >> conftest.$ac_ext + {0, (lt_ptr_t) 0} +}; + +#ifdef __cplusplus +} +#endif +EOF + # Now try linking the two files. + mv conftest.$ac_objext conftstm.$ac_objext + lt_save_LIBS="$LIBS" + lt_save_CFLAGS="$CFLAGS" + LIBS="conftstm.$ac_objext" + CFLAGS="$CFLAGS$_LT_AC_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)" + if AC_TRY_EVAL(ac_link) && test -s conftest${ac_exeext}; then + pipe_works=yes + fi + LIBS="$lt_save_LIBS" + CFLAGS="$lt_save_CFLAGS" + else + echo "cannot find nm_test_func in $nlist" >&AS_MESSAGE_LOG_FD + fi + else + echo "cannot find nm_test_var in $nlist" >&AS_MESSAGE_LOG_FD + fi + else + echo "cannot run $lt_cv_sys_global_symbol_pipe" >&AS_MESSAGE_LOG_FD + fi + else + echo "$progname: failed program was:" >&AS_MESSAGE_LOG_FD + cat conftest.$ac_ext >&5 + fi + rm -f conftest* conftst* + + # Do not use the global_symbol_pipe unless it works. + if test "$pipe_works" = yes; then + break + else + lt_cv_sys_global_symbol_pipe= + fi +done +]) +if test -z "$lt_cv_sys_global_symbol_pipe"; then + lt_cv_sys_global_symbol_to_cdecl= +fi +if test -z "$lt_cv_sys_global_symbol_pipe$lt_cv_sys_global_symbol_to_cdecl"; then + AC_MSG_RESULT(failed) +else + AC_MSG_RESULT(ok) +fi +]) # AC_LIBTOOL_SYS_GLOBAL_SYMBOL_PIPE + + +# AC_LIBTOOL_PROG_COMPILER_PIC([TAGNAME]) +# --------------------------------------- +AC_DEFUN([AC_LIBTOOL_PROG_COMPILER_PIC], +[_LT_AC_TAGVAR(lt_prog_compiler_wl, $1)= +_LT_AC_TAGVAR(lt_prog_compiler_pic, $1)= +_LT_AC_TAGVAR(lt_prog_compiler_static, $1)= + +AC_MSG_CHECKING([for $compiler option to produce PIC]) + ifelse([$1],[CXX],[ + # C++ specific cases for pic, static, wl, etc. + if test "$GXX" = yes; then + _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' + _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-static' + + case $host_os in + aix*) + # All AIX code is PIC. + if test "$host_cpu" = ia64; then + # AIX 5 now supports IA64 processor + _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' + fi + ;; + amigaos*) + # FIXME: we need at least 68020 code to build shared libraries, but + # adding the `-m68020' flag to GCC prevents building anything better, + # like `-m68040'. + _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-m68020 -resident32 -malways-restore-a4' + ;; + beos* | cygwin* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*) + # PIC is the default for these OSes. + ;; + mingw* | os2* | pw32*) + # This hack is so that the source file can tell whether it is being + # built for inclusion in a dll (and should export symbols for example). + _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-DDLL_EXPORT' + ;; + darwin* | rhapsody*) + # PIC is the default on this platform + # Common symbols not allowed in MH_DYLIB files + _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-fno-common' + ;; + *djgpp*) + # DJGPP does not support shared libraries at all + _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)= + ;; + sysv4*MP*) + if test -d /usr/nec; then + _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)=-Kconform_pic + fi + ;; + hpux*) + # PIC is the default for IA64 HP-UX and 64-bit HP-UX, but + # not for PA HP-UX. + case "$host_cpu" in + hppa*64*|ia64*) + ;; + *) + _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' + ;; + esac + ;; + *) + _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' + ;; + esac + else + case $host_os in + aix4* | aix5*) + # All AIX code is PIC. + if test "$host_cpu" = ia64; then + # AIX 5 now supports IA64 processor + _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' + else + _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-bnso -bI:/lib/syscalls.exp' + fi + ;; + chorus*) + case $cc_basename in + cxch68*) + # Green Hills C++ Compiler + # _LT_AC_TAGVAR(lt_prog_compiler_static, $1)="--no_auto_instantiation -u __main -u __premain -u _abort -r $COOL_DIR/lib/libOrb.a $MVME_DIR/lib/CC/libC.a $MVME_DIR/lib/classix/libcx.s.a" + ;; + esac + ;; + darwin*) + # PIC is the default on this platform + # Common symbols not allowed in MH_DYLIB files + case $cc_basename in + xlc*) + _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-qnocommon' + _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' + ;; + esac + ;; + dgux*) + case $cc_basename in + ec++*) + _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' + ;; + ghcx*) + # Green Hills C++ Compiler + _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-pic' + ;; + *) + ;; + esac + ;; + freebsd* | kfreebsd*-gnu | dragonfly*) + # FreeBSD uses GNU C++ + ;; + hpux9* | hpux10* | hpux11*) + case $cc_basename in + CC*) + _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' + _LT_AC_TAGVAR(lt_prog_compiler_static, $1)="${ac_cv_prog_cc_wl}-a ${ac_cv_prog_cc_wl}archive" + if test "$host_cpu" != ia64; then + _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='+Z' + fi + ;; + aCC*) + _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' + _LT_AC_TAGVAR(lt_prog_compiler_static, $1)="${ac_cv_prog_cc_wl}-a ${ac_cv_prog_cc_wl}archive" + case "$host_cpu" in + hppa*64*|ia64*) + # +Z the default + ;; + *) + _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='+Z' + ;; + esac + ;; + *) + ;; + esac + ;; + irix5* | irix6* | nonstopux*) + case $cc_basename in + CC*) + _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' + _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' + # CC pic flag -KPIC is the default. + ;; + *) + ;; + esac + ;; + linux*) + case $cc_basename in + KCC*) + # KAI C++ Compiler + _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='--backend -Wl,' + _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' + ;; + icpc* | ecpc*) + # Intel C++ + _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' + _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' + _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-static' + ;; + pgCC*) + # Portland Group C++ compiler. + _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' + _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-fpic' + _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-static' + ;; + cxx*) + # Compaq C++ + # Make sure the PIC flag is empty. It appears that all Alpha + # Linux and Compaq Tru64 Unix objects are PIC. + _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)= + _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' + ;; + *) + ;; + esac + ;; + lynxos*) + ;; + m88k*) + ;; + mvs*) + case $cc_basename in + cxx*) + _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-W c,exportall' + ;; + *) + ;; + esac + ;; + netbsd*) + ;; + osf3* | osf4* | osf5*) + case $cc_basename in + KCC*) + _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='--backend -Wl,' + ;; + RCC*) + # Rational C++ 2.4.1 + _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-pic' + ;; + cxx*) + # Digital/Compaq C++ + _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' + # Make sure the PIC flag is empty. It appears that all Alpha + # Linux and Compaq Tru64 Unix objects are PIC. + _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)= + _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' + ;; + *) + ;; + esac + ;; + psos*) + ;; + sco*) + case $cc_basename in + CC*) + _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' + ;; + *) + ;; + esac + ;; + solaris*) + case $cc_basename in + CC*) + # Sun C++ 4.2, 5.x and Centerline C++ + _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' + _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' + _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Qoption ld ' + ;; + gcx*) + # Green Hills C++ Compiler + _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-PIC' + ;; + *) + ;; + esac + ;; + sunos4*) + case $cc_basename in + CC*) + # Sun C++ 4.x + _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-pic' + _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' + ;; + lcc*) + # Lucid + _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-pic' + ;; + *) + ;; + esac + ;; + tandem*) + case $cc_basename in + NCC*) + # NonStop-UX NCC 3.20 + _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' + ;; + *) + ;; + esac + ;; + unixware*) + ;; + vxworks*) + ;; + *) + _LT_AC_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no + ;; + esac + fi +], +[ + if test "$GCC" = yes; then + _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' + _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-static' + + case $host_os in + aix*) + # All AIX code is PIC. + if test "$host_cpu" = ia64; then + # AIX 5 now supports IA64 processor + _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' + fi + ;; + + amigaos*) + # FIXME: we need at least 68020 code to build shared libraries, but + # adding the `-m68020' flag to GCC prevents building anything better, + # like `-m68040'. + _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-m68020 -resident32 -malways-restore-a4' + ;; + + beos* | cygwin* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*) + # PIC is the default for these OSes. + ;; + + mingw* | pw32* | os2*) + # This hack is so that the source file can tell whether it is being + # built for inclusion in a dll (and should export symbols for example). + _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-DDLL_EXPORT' + ;; + + darwin* | rhapsody*) + # PIC is the default on this platform + # Common symbols not allowed in MH_DYLIB files + _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-fno-common' + ;; + + msdosdjgpp*) + # Just because we use GCC doesn't mean we suddenly get shared libraries + # on systems that don't support them. + _LT_AC_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no + enable_shared=no + ;; + + sysv4*MP*) + if test -d /usr/nec; then + _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)=-Kconform_pic + fi + ;; + + hpux*) + # PIC is the default for IA64 HP-UX and 64-bit HP-UX, but + # not for PA HP-UX. + case "$host_cpu" in + hppa*64*|ia64*) + # +Z the default + ;; + *) + _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' + ;; + esac + ;; + + *) + _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' + ;; + esac + else + # PORTME Check for flag to pass linker flags through the system compiler. + case $host_os in + aix*) + _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' + if test "$host_cpu" = ia64; then + # AIX 5 now supports IA64 processor + _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' + else + _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-bnso -bI:/lib/syscalls.exp' + fi + ;; + darwin*) + # PIC is the default on this platform + # Common symbols not allowed in MH_DYLIB files + case $cc_basename in + xlc*) + _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-qnocommon' + _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' + ;; + esac + ;; + + mingw* | pw32* | os2*) + # This hack is so that the source file can tell whether it is being + # built for inclusion in a dll (and should export symbols for example). + _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-DDLL_EXPORT' + ;; + + hpux9* | hpux10* | hpux11*) + _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' + # PIC is the default for IA64 HP-UX and 64-bit HP-UX, but + # not for PA HP-UX. + case "$host_cpu" in + hppa*64*|ia64*) + # +Z the default + ;; + *) + _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='+Z' + ;; + esac + # Is there a better lt_prog_compiler_static that works with the bundled CC? + _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='${wl}-a ${wl}archive' + ;; + + irix5* | irix6* | nonstopux*) + _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' + # PIC (with -KPIC) is the default. + _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' + ;; + + newsos6) + _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' + _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' + ;; + + linux*) + case $cc_basename in + icc* | ecc*) + _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' + _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' + _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-static' + ;; + pgcc* | pgf77* | pgf90*) + # Portland Group compilers (*not* the Pentium gcc compiler, + # which looks to be a dead project) + _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' + _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-fpic' + _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-static' + ;; + ccc*) + _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' + # All Alpha code is PIC. + _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' + ;; + esac + ;; + + osf3* | osf4* | osf5*) + _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' + # All OSF/1 code is PIC. + _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' + ;; + + sco3.2v5*) + _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-Kpic' + _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-dn' + ;; + + solaris*) + _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' + _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' + case $cc_basename in + f77* | f90* | f95*) + _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Qoption ld ';; + *) + _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,';; + esac + ;; + + sunos4*) + _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Qoption ld ' + _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-PIC' + _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' + ;; + + sysv4 | sysv4.2uw2* | sysv4.3* | sysv5*) + _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' + _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' + _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' + ;; + + sysv4*MP*) + if test -d /usr/nec ;then + _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-Kconform_pic' + _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' + fi + ;; + + unicos*) + _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' + _LT_AC_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no + ;; + + uts4*) + _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-pic' + _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' + ;; + + *) + _LT_AC_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no + ;; + esac + fi +]) +AC_MSG_RESULT([$_LT_AC_TAGVAR(lt_prog_compiler_pic, $1)]) + +# +# Check to make sure the PIC flag actually works. +# +if test -n "$_LT_AC_TAGVAR(lt_prog_compiler_pic, $1)"; then + AC_LIBTOOL_COMPILER_OPTION([if $compiler PIC flag $_LT_AC_TAGVAR(lt_prog_compiler_pic, $1) works], + _LT_AC_TAGVAR(lt_prog_compiler_pic_works, $1), + [$_LT_AC_TAGVAR(lt_prog_compiler_pic, $1)ifelse([$1],[],[ -DPIC],[ifelse([$1],[CXX],[ -DPIC],[])])], [], + [case $_LT_AC_TAGVAR(lt_prog_compiler_pic, $1) in + "" | " "*) ;; + *) _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)=" $_LT_AC_TAGVAR(lt_prog_compiler_pic, $1)" ;; + esac], + [_LT_AC_TAGVAR(lt_prog_compiler_pic, $1)= + _LT_AC_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no]) +fi +case "$host_os" in + # For platforms which do not support PIC, -DPIC is meaningless: + *djgpp*) + _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)= + ;; + *) + _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)="$_LT_AC_TAGVAR(lt_prog_compiler_pic, $1)ifelse([$1],[],[ -DPIC],[ifelse([$1],[CXX],[ -DPIC],[])])" + ;; +esac +]) + + +# AC_LIBTOOL_PROG_LD_SHLIBS([TAGNAME]) +# ------------------------------------ +# See if the linker supports building shared libraries. +AC_DEFUN([AC_LIBTOOL_PROG_LD_SHLIBS], +[AC_MSG_CHECKING([whether the $compiler linker ($LD) supports shared libraries]) +ifelse([$1],[CXX],[ + _LT_AC_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' + case $host_os in + aix4* | aix5*) + # If we're using GNU nm, then we don't want the "-C" option. + # -C means demangle to AIX nm, but means don't demangle with GNU nm + if $NM -V 2>&1 | grep 'GNU' > /dev/null; then + _LT_AC_TAGVAR(export_symbols_cmds, $1)='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\[$]2 == "T") || (\[$]2 == "D") || (\[$]2 == "B")) && ([substr](\[$]3,1,1) != ".")) { print \[$]3 } }'\'' | sort -u > $export_symbols' + else + _LT_AC_TAGVAR(export_symbols_cmds, $1)='$NM -BCpg $libobjs $convenience | awk '\''{ if (((\[$]2 == "T") || (\[$]2 == "D") || (\[$]2 == "B")) && ([substr](\[$]3,1,1) != ".")) { print \[$]3 } }'\'' | sort -u > $export_symbols' + fi + ;; + pw32*) + _LT_AC_TAGVAR(export_symbols_cmds, $1)="$ltdll_cmds" + ;; + cygwin* | mingw*) + _LT_AC_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[[BCDGRS]] /s/.* \([[^ ]]*\)/\1 DATA/;/^.* __nm__/s/^.* __nm__\([[^ ]]*\) [[^ ]]*/\1 DATA/;/^I /d;/^[[AITW]] /s/.* //'\'' | sort | uniq > $export_symbols' + ;; + *) + _LT_AC_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' + ;; + esac +],[ + runpath_var= + _LT_AC_TAGVAR(allow_undefined_flag, $1)= + _LT_AC_TAGVAR(enable_shared_with_static_runtimes, $1)=no + _LT_AC_TAGVAR(archive_cmds, $1)= + _LT_AC_TAGVAR(archive_expsym_cmds, $1)= + _LT_AC_TAGVAR(old_archive_From_new_cmds, $1)= + _LT_AC_TAGVAR(old_archive_from_expsyms_cmds, $1)= + _LT_AC_TAGVAR(export_dynamic_flag_spec, $1)= + _LT_AC_TAGVAR(whole_archive_flag_spec, $1)= + _LT_AC_TAGVAR(thread_safe_flag_spec, $1)= + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)= + _LT_AC_TAGVAR(hardcode_libdir_flag_spec_ld, $1)= + _LT_AC_TAGVAR(hardcode_libdir_separator, $1)= + _LT_AC_TAGVAR(hardcode_direct, $1)=no + _LT_AC_TAGVAR(hardcode_minus_L, $1)=no + _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=unsupported + _LT_AC_TAGVAR(link_all_deplibs, $1)=unknown + _LT_AC_TAGVAR(hardcode_automatic, $1)=no + _LT_AC_TAGVAR(module_cmds, $1)= + _LT_AC_TAGVAR(module_expsym_cmds, $1)= + _LT_AC_TAGVAR(always_export_symbols, $1)=no + _LT_AC_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' + # include_expsyms should be a list of space-separated symbols to be *always* + # included in the symbol list + _LT_AC_TAGVAR(include_expsyms, $1)= + # exclude_expsyms can be an extended regexp of symbols to exclude + # it will be wrapped by ` (' and `)$', so one must not match beginning or + # end of line. Example: `a|bc|.*d.*' will exclude the symbols `a' and `bc', + # as well as any symbol that contains `d'. + _LT_AC_TAGVAR(exclude_expsyms, $1)="_GLOBAL_OFFSET_TABLE_" + # Although _GLOBAL_OFFSET_TABLE_ is a valid symbol C name, most a.out + # platforms (ab)use it in PIC code, but their linkers get confused if + # the symbol is explicitly referenced. Since portable code cannot + # rely on this symbol name, it's probably fine to never include it in + # preloaded symbol tables. + extract_expsyms_cmds= + # Just being paranoid about ensuring that cc_basename is set. + _LT_CC_BASENAME([$compiler]) + case $host_os in + cygwin* | mingw* | pw32*) + # FIXME: the MSVC++ port hasn't been tested in a loooong time + # When not using gcc, we currently assume that we are using + # Microsoft Visual C++. + if test "$GCC" != yes; then + with_gnu_ld=no + fi + ;; + openbsd*) + with_gnu_ld=no + ;; + esac + + _LT_AC_TAGVAR(ld_shlibs, $1)=yes + if test "$with_gnu_ld" = yes; then + # If archive_cmds runs LD, not CC, wlarc should be empty + wlarc='${wl}' + + # Set some defaults for GNU ld with shared library support. These + # are reset later if shared libraries are not supported. Putting them + # here allows them to be overridden if necessary. + runpath_var=LD_RUN_PATH + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}--rpath ${wl}$libdir' + _LT_AC_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-dynamic' + # ancient GNU ld didn't support --whole-archive et. al. + if $LD --help 2>&1 | grep 'no-whole-archive' > /dev/null; then + _LT_AC_TAGVAR(whole_archive_flag_spec, $1)="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive' + else + _LT_AC_TAGVAR(whole_archive_flag_spec, $1)= + fi + supports_anon_versioning=no + case `$LD -v 2>/dev/null` in + *\ [[01]].* | *\ 2.[[0-9]].* | *\ 2.10.*) ;; # catch versions < 2.11 + *\ 2.11.93.0.2\ *) supports_anon_versioning=yes ;; # RH7.3 ... + *\ 2.11.92.0.12\ *) supports_anon_versioning=yes ;; # Mandrake 8.2 ... + *\ 2.11.*) ;; # other 2.11 versions + *) supports_anon_versioning=yes ;; + esac + + # See if GNU ld supports shared libraries. + case $host_os in + aix3* | aix4* | aix5*) + # On AIX/PPC, the GNU linker is very broken + if test "$host_cpu" != ia64; then + _LT_AC_TAGVAR(ld_shlibs, $1)=no + cat <&2 + +*** Warning: the GNU linker, at least up to release 2.9.1, is reported +*** to be unable to reliably create shared libraries on AIX. +*** Therefore, libtool is disabling shared libraries support. If you +*** really care for shared libraries, you may want to modify your PATH +*** so that a non-GNU linker is found, and then restart. + +EOF + fi + ;; + + amigaos*) + _LT_AC_TAGVAR(archive_cmds, $1)='$rm $output_objdir/a2ixlibrary.data~$echo "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$echo "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$echo "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$echo "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)' + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' + _LT_AC_TAGVAR(hardcode_minus_L, $1)=yes + + # Samuel A. Falvo II reports + # that the semantics of dynamic libraries on AmigaOS, at least up + # to version 4, is to share data among multiple programs linked + # with the same dynamic library. Since this doesn't match the + # behavior of shared libraries on other platforms, we can't use + # them. + _LT_AC_TAGVAR(ld_shlibs, $1)=no + ;; + + beos*) + if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then + _LT_AC_TAGVAR(allow_undefined_flag, $1)=unsupported + # Joseph Beckenbach says some releases of gcc + # support --undefined. This deserves some investigation. FIXME + _LT_AC_TAGVAR(archive_cmds, $1)='$CC -nostart $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' + else + _LT_AC_TAGVAR(ld_shlibs, $1)=no + fi + ;; + + cygwin* | mingw* | pw32*) + # _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1) is actually meaningless, + # as there is no search path for DLLs. + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' + _LT_AC_TAGVAR(allow_undefined_flag, $1)=unsupported + _LT_AC_TAGVAR(always_export_symbols, $1)=no + _LT_AC_TAGVAR(enable_shared_with_static_runtimes, $1)=yes + _LT_AC_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[[BCDGRS]] /s/.* \([[^ ]]*\)/\1 DATA/'\'' | $SED -e '\''/^[[AITW]] /s/.* //'\'' | sort | uniq > $export_symbols' + + if $LD --help 2>&1 | grep 'auto-import' > /dev/null; then + _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags -o $output_objdir/$soname ${wl}--image-base=0x10000000 ${wl}--out-implib,$lib' + # If the export-symbols file already is a .def file (1st line + # is EXPORTS), use it as is; otherwise, prepend... + _LT_AC_TAGVAR(archive_expsym_cmds, $1)='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then + cp $export_symbols $output_objdir/$soname.def; + else + echo EXPORTS > $output_objdir/$soname.def; + cat $export_symbols >> $output_objdir/$soname.def; + fi~ + $CC -shared $output_objdir/$soname.def $libobjs $deplibs $compiler_flags -o $output_objdir/$soname ${wl}--image-base=0x10000000 ${wl}--out-implib,$lib' + else + _LT_AC_TAGVAR(ld_shlibs, $1)=no + fi + ;; + + linux*) + if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then + tmp_addflag= + case $cc_basename,$host_cpu in + pgcc*) # Portland Group C compiler + _LT_AC_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive,`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; $echo \"$new_convenience\"` ${wl}--no-whole-archive' + tmp_addflag=' $pic_flag' + ;; + pgf77* | pgf90* ) # Portland Group f77 and f90 compilers + _LT_AC_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive,`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; $echo \"$new_convenience\"` ${wl}--no-whole-archive' + tmp_addflag=' $pic_flag -Mnomain' ;; + ecc*,ia64* | icc*,ia64*) # Intel C compiler on ia64 + tmp_addflag=' -i_dynamic' ;; + efc*,ia64* | ifort*,ia64*) # Intel Fortran compiler on ia64 + tmp_addflag=' -i_dynamic -nofor_main' ;; + ifc* | ifort*) # Intel Fortran compiler + tmp_addflag=' -nofor_main' ;; + esac + _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared'"$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' + + if test $supports_anon_versioning = yes; then + _LT_AC_TAGVAR(archive_expsym_cmds, $1)='$echo "{ global:" > $output_objdir/$libname.ver~ + cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ + $echo "local: *; };" >> $output_objdir/$libname.ver~ + $CC -shared'"$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-version-script ${wl}$output_objdir/$libname.ver -o $lib' + fi + else + _LT_AC_TAGVAR(ld_shlibs, $1)=no + fi + ;; + + netbsd*) + if echo __ELF__ | $CC -E - | grep __ELF__ >/dev/null; then + _LT_AC_TAGVAR(archive_cmds, $1)='$LD -Bshareable $libobjs $deplibs $linker_flags -o $lib' + wlarc= + else + _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' + _LT_AC_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' + fi + ;; + + solaris* | sysv5*) + if $LD -v 2>&1 | grep 'BFD 2\.8' > /dev/null; then + _LT_AC_TAGVAR(ld_shlibs, $1)=no + cat <&2 + +*** Warning: The releases 2.8.* of the GNU linker cannot reliably +*** create shared libraries on Solaris systems. Therefore, libtool +*** is disabling shared libraries support. We urge you to upgrade GNU +*** binutils to release 2.9.1 or newer. Another option is to modify +*** your PATH or compiler configuration so that the native linker is +*** used, and then restart. + +EOF + elif $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then + _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' + _LT_AC_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' + else + _LT_AC_TAGVAR(ld_shlibs, $1)=no + fi + ;; + + sunos4*) + _LT_AC_TAGVAR(archive_cmds, $1)='$LD -assert pure-text -Bshareable -o $lib $libobjs $deplibs $linker_flags' + wlarc= + _LT_AC_TAGVAR(hardcode_direct, $1)=yes + _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no + ;; + + *) + if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then + _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' + _LT_AC_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' + else + _LT_AC_TAGVAR(ld_shlibs, $1)=no + fi + ;; + esac + + if test "$_LT_AC_TAGVAR(ld_shlibs, $1)" = no; then + runpath_var= + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)= + _LT_AC_TAGVAR(export_dynamic_flag_spec, $1)= + _LT_AC_TAGVAR(whole_archive_flag_spec, $1)= + fi + else + # PORTME fill in a description of your system's linker (not GNU ld) + case $host_os in + aix3*) + _LT_AC_TAGVAR(allow_undefined_flag, $1)=unsupported + _LT_AC_TAGVAR(always_export_symbols, $1)=yes + _LT_AC_TAGVAR(archive_expsym_cmds, $1)='$LD -o $output_objdir/$soname $libobjs $deplibs $linker_flags -bE:$export_symbols -T512 -H512 -bM:SRE~$AR $AR_FLAGS $lib $output_objdir/$soname' + # Note: this linker hardcodes the directories in LIBPATH if there + # are no directories specified by -L. + _LT_AC_TAGVAR(hardcode_minus_L, $1)=yes + if test "$GCC" = yes && test -z "$link_static_flag"; then + # Neither direct hardcoding nor static linking is supported with a + # broken collect2. + _LT_AC_TAGVAR(hardcode_direct, $1)=unsupported + fi + ;; + + aix4* | aix5*) + if test "$host_cpu" = ia64; then + # On IA64, the linker does run time linking by default, so we don't + # have to do anything special. + aix_use_runtimelinking=no + exp_sym_flag='-Bexport' + no_entry_flag="" + else + # If we're using GNU nm, then we don't want the "-C" option. + # -C means demangle to AIX nm, but means don't demangle with GNU nm + if $NM -V 2>&1 | grep 'GNU' > /dev/null; then + _LT_AC_TAGVAR(export_symbols_cmds, $1)='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\[$]2 == "T") || (\[$]2 == "D") || (\[$]2 == "B")) && ([substr](\[$]3,1,1) != ".")) { print \[$]3 } }'\'' | sort -u > $export_symbols' + else + _LT_AC_TAGVAR(export_symbols_cmds, $1)='$NM -BCpg $libobjs $convenience | awk '\''{ if (((\[$]2 == "T") || (\[$]2 == "D") || (\[$]2 == "B")) && ([substr](\[$]3,1,1) != ".")) { print \[$]3 } }'\'' | sort -u > $export_symbols' + fi + aix_use_runtimelinking=no + + # Test if we are trying to use run time linking or normal + # AIX style linking. If -brtl is somewhere in LDFLAGS, we + # need to do runtime linking. + case $host_os in aix4.[[23]]|aix4.[[23]].*|aix5*) + for ld_flag in $LDFLAGS; do + if (test $ld_flag = "-brtl" || test $ld_flag = "-Wl,-brtl"); then + aix_use_runtimelinking=yes + break + fi + done + esac + + exp_sym_flag='-bexport' + no_entry_flag='-bnoentry' + fi + + # When large executables or shared objects are built, AIX ld can + # have problems creating the table of contents. If linking a library + # or program results in "error TOC overflow" add -mminimal-toc to + # CXXFLAGS/CFLAGS for g++/gcc. In the cases where that is not + # enough to fix the problem, add -Wl,-bbigtoc to LDFLAGS. + + _LT_AC_TAGVAR(archive_cmds, $1)='' + _LT_AC_TAGVAR(hardcode_direct, $1)=yes + _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=':' + _LT_AC_TAGVAR(link_all_deplibs, $1)=yes + + if test "$GCC" = yes; then + case $host_os in aix4.[[012]]|aix4.[[012]].*) + # We only want to do this on AIX 4.2 and lower, the check + # below for broken collect2 doesn't work under 4.3+ + collect2name=`${CC} -print-prog-name=collect2` + if test -f "$collect2name" && \ + strings "$collect2name" | grep resolve_lib_name >/dev/null + then + # We have reworked collect2 + _LT_AC_TAGVAR(hardcode_direct, $1)=yes + else + # We have old collect2 + _LT_AC_TAGVAR(hardcode_direct, $1)=unsupported + # It fails to find uninstalled libraries when the uninstalled + # path is not listed in the libpath. Setting hardcode_minus_L + # to unsupported forces relinking + _LT_AC_TAGVAR(hardcode_minus_L, $1)=yes + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' + _LT_AC_TAGVAR(hardcode_libdir_separator, $1)= + fi + esac + shared_flag='-shared' + if test "$aix_use_runtimelinking" = yes; then + shared_flag="$shared_flag "'${wl}-G' + fi + else + # not using gcc + if test "$host_cpu" = ia64; then + # VisualAge C++, Version 5.5 for AIX 5L for IA-64, Beta 3 Release + # chokes on -Wl,-G. The following line is correct: + shared_flag='-G' + else + if test "$aix_use_runtimelinking" = yes; then + shared_flag='${wl}-G' + else + shared_flag='${wl}-bM:SRE' + fi + fi + fi + + # It seems that -bexpall does not export symbols beginning with + # underscore (_), so it is better to generate a list of symbols to export. + _LT_AC_TAGVAR(always_export_symbols, $1)=yes + if test "$aix_use_runtimelinking" = yes; then + # Warning - without using the other runtime loading flags (-brtl), + # -berok will link without error, but may produce a broken library. + _LT_AC_TAGVAR(allow_undefined_flag, $1)='-berok' + # Determine the default libpath from the value encoded in an empty executable. + _LT_AC_SYS_LIBPATH_AIX + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-blibpath:$libdir:'"$aix_libpath" + _LT_AC_TAGVAR(archive_expsym_cmds, $1)="\$CC"' -o $output_objdir/$soname $libobjs $deplibs $compiler_flags `if test "x${allow_undefined_flag}" != "x"; then echo "${wl}${allow_undefined_flag}"; else :; fi` '"\${wl}$no_entry_flag \${wl}$exp_sym_flag:\$export_symbols $shared_flag" + else + if test "$host_cpu" = ia64; then + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-R $libdir:/usr/lib:/lib' + _LT_AC_TAGVAR(allow_undefined_flag, $1)="-z nodefs" + _LT_AC_TAGVAR(archive_expsym_cmds, $1)="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs $compiler_flags ${wl}${allow_undefined_flag} '"\${wl}$no_entry_flag \${wl}$exp_sym_flag:\$export_symbols" + else + # Determine the default libpath from the value encoded in an empty executable. + _LT_AC_SYS_LIBPATH_AIX + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-blibpath:$libdir:'"$aix_libpath" + # Warning - without using the other run time loading flags, + # -berok will link without error, but may produce a broken library. + _LT_AC_TAGVAR(no_undefined_flag, $1)=' ${wl}-bernotok' + _LT_AC_TAGVAR(allow_undefined_flag, $1)=' ${wl}-berok' + # -bexpall does not export symbols beginning with underscore (_) + _LT_AC_TAGVAR(always_export_symbols, $1)=yes + # Exported symbols can be pulled into shared objects from archives + _LT_AC_TAGVAR(whole_archive_flag_spec, $1)=' ' + _LT_AC_TAGVAR(archive_cmds_need_lc, $1)=yes + # This is similar to how AIX traditionally builds it's shared libraries. + _LT_AC_TAGVAR(archive_expsym_cmds, $1)="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs $compiler_flags ${wl}-bE:$export_symbols ${wl}-bnoentry${allow_undefined_flag}~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$soname' + fi + fi + ;; + + amigaos*) + _LT_AC_TAGVAR(archive_cmds, $1)='$rm $output_objdir/a2ixlibrary.data~$echo "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$echo "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$echo "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$echo "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)' + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' + _LT_AC_TAGVAR(hardcode_minus_L, $1)=yes + # see comment about different semantics on the GNU ld section + _LT_AC_TAGVAR(ld_shlibs, $1)=no + ;; + + bsdi[[45]]*) + _LT_AC_TAGVAR(export_dynamic_flag_spec, $1)=-rdynamic + ;; + + cygwin* | mingw* | pw32*) + # When not using gcc, we currently assume that we are using + # Microsoft Visual C++. + # hardcode_libdir_flag_spec is actually meaningless, as there is + # no search path for DLLs. + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)=' ' + _LT_AC_TAGVAR(allow_undefined_flag, $1)=unsupported + # Tell ltmain to make .lib files, not .a files. + libext=lib + # Tell ltmain to make .dll files, not .so files. + shrext_cmds=".dll" + # FIXME: Setting linknames here is a bad hack. + _LT_AC_TAGVAR(archive_cmds, $1)='$CC -o $lib $libobjs $compiler_flags `echo "$deplibs" | $SED -e '\''s/ -lc$//'\''` -link -dll~linknames=' + # The linker will automatically build a .lib file if we build a DLL. + _LT_AC_TAGVAR(old_archive_From_new_cmds, $1)='true' + # FIXME: Should let the user specify the lib program. + _LT_AC_TAGVAR(old_archive_cmds, $1)='lib /OUT:$oldlib$oldobjs$old_deplibs' + _LT_AC_TAGVAR(fix_srcfile_path, $1)='`cygpath -w "$srcfile"`' + _LT_AC_TAGVAR(enable_shared_with_static_runtimes, $1)=yes + ;; + + darwin* | rhapsody*) + case "$host_os" in + rhapsody* | darwin1.[[012]]) + _LT_AC_TAGVAR(allow_undefined_flag, $1)='${wl}-undefined ${wl}suppress' + ;; + *) # Darwin 1.3 on + if test -z ${MACOSX_DEPLOYMENT_TARGET} ; then + _LT_AC_TAGVAR(allow_undefined_flag, $1)='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' + else + case ${MACOSX_DEPLOYMENT_TARGET} in + 10.[[012]]) + _LT_AC_TAGVAR(allow_undefined_flag, $1)='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' + ;; + 10.*) + _LT_AC_TAGVAR(allow_undefined_flag, $1)='${wl}-undefined ${wl}dynamic_lookup' + ;; + esac + fi + ;; + esac + _LT_AC_TAGVAR(archive_cmds_need_lc, $1)=no + _LT_AC_TAGVAR(hardcode_direct, $1)=no + _LT_AC_TAGVAR(hardcode_automatic, $1)=yes + _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=unsupported + _LT_AC_TAGVAR(whole_archive_flag_spec, $1)='' + _LT_AC_TAGVAR(link_all_deplibs, $1)=yes + if test "$GCC" = yes ; then + output_verbose_link_cmd='echo' + _LT_AC_TAGVAR(archive_cmds, $1)='$CC -dynamiclib $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags -install_name $rpath/$soname $verstring' + _LT_AC_TAGVAR(module_cmds, $1)='$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags' + # Don't fix this by using the ld -exported_symbols_list flag, it doesn't exist in older darwin ld's + _LT_AC_TAGVAR(archive_expsym_cmds, $1)='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC -dynamiclib $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags -install_name $rpath/$soname $verstring~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' + _LT_AC_TAGVAR(module_expsym_cmds, $1)='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' + else + case $cc_basename in + xlc*) + output_verbose_link_cmd='echo' + _LT_AC_TAGVAR(archive_cmds, $1)='$CC -qmkshrobj $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-install_name ${wl}`echo $rpath/$soname` $verstring' + _LT_AC_TAGVAR(module_cmds, $1)='$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags' + # Don't fix this by using the ld -exported_symbols_list flag, it doesn't exist in older darwin ld's + _LT_AC_TAGVAR(archive_expsym_cmds, $1)='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC -qmkshrobj $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-install_name ${wl}$rpath/$soname $verstring~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' + _LT_AC_TAGVAR(module_expsym_cmds, $1)='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' + ;; + *) + _LT_AC_TAGVAR(ld_shlibs, $1)=no + ;; + esac + fi + ;; + + dgux*) + _LT_AC_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' + _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no + ;; + + freebsd1*) + _LT_AC_TAGVAR(ld_shlibs, $1)=no + ;; + + # FreeBSD 2.2.[012] allows us to include c++rt0.o to get C++ constructor + # support. Future versions do this automatically, but an explicit c++rt0.o + # does not break anything, and helps significantly (at the cost of a little + # extra space). + freebsd2.2*) + _LT_AC_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags /usr/lib/c++rt0.o' + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' + _LT_AC_TAGVAR(hardcode_direct, $1)=yes + _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no + ;; + + # Unfortunately, older versions of FreeBSD 2 do not have this feature. + freebsd2*) + _LT_AC_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' + _LT_AC_TAGVAR(hardcode_direct, $1)=yes + _LT_AC_TAGVAR(hardcode_minus_L, $1)=yes + _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no + ;; + + # FreeBSD 3 and greater uses gcc -shared to do shared libraries. + freebsd* | kfreebsd*-gnu | dragonfly*) + _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared -o $lib $libobjs $deplibs $compiler_flags' + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' + _LT_AC_TAGVAR(hardcode_direct, $1)=yes + _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no + ;; + + hpux9*) + if test "$GCC" = yes; then + _LT_AC_TAGVAR(archive_cmds, $1)='$rm $output_objdir/$soname~$CC -shared -fPIC ${wl}+b ${wl}$install_libdir -o $output_objdir/$soname $libobjs $deplibs $compiler_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib' + else + _LT_AC_TAGVAR(archive_cmds, $1)='$rm $output_objdir/$soname~$LD -b +b $install_libdir -o $output_objdir/$soname $libobjs $deplibs $linker_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib' + fi + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}+b ${wl}$libdir' + _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=: + _LT_AC_TAGVAR(hardcode_direct, $1)=yes + + # hardcode_minus_L: Not really in the search PATH, + # but as the default location of the library. + _LT_AC_TAGVAR(hardcode_minus_L, $1)=yes + _LT_AC_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E' + ;; + + hpux10* | hpux11*) + if test "$GCC" = yes -a "$with_gnu_ld" = no; then + case "$host_cpu" in + hppa*64*|ia64*) + _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared ${wl}+h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' + ;; + *) + _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared -fPIC ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags' + ;; + esac + else + case "$host_cpu" in + hppa*64*|ia64*) + _LT_AC_TAGVAR(archive_cmds, $1)='$LD -b +h $soname -o $lib $libobjs $deplibs $linker_flags' + ;; + *) + _LT_AC_TAGVAR(archive_cmds, $1)='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags' + ;; + esac + fi + if test "$with_gnu_ld" = no; then + case "$host_cpu" in + hppa*64*) + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}+b ${wl}$libdir' + _LT_AC_TAGVAR(hardcode_libdir_flag_spec_ld, $1)='+b $libdir' + _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=: + _LT_AC_TAGVAR(hardcode_direct, $1)=no + _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no + ;; + ia64*) + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' + _LT_AC_TAGVAR(hardcode_direct, $1)=no + _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no + + # hardcode_minus_L: Not really in the search PATH, + # but as the default location of the library. + _LT_AC_TAGVAR(hardcode_minus_L, $1)=yes + ;; + *) + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}+b ${wl}$libdir' + _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=: + _LT_AC_TAGVAR(hardcode_direct, $1)=yes + _LT_AC_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E' + + # hardcode_minus_L: Not really in the search PATH, + # but as the default location of the library. + _LT_AC_TAGVAR(hardcode_minus_L, $1)=yes + ;; + esac + fi + ;; + + irix5* | irix6* | nonstopux*) + if test "$GCC" = yes; then + _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' + else + _LT_AC_TAGVAR(archive_cmds, $1)='$LD -shared $libobjs $deplibs $linker_flags -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib' + _LT_AC_TAGVAR(hardcode_libdir_flag_spec_ld, $1)='-rpath $libdir' + fi + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' + _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=: + _LT_AC_TAGVAR(link_all_deplibs, $1)=yes + ;; + + netbsd*) + if echo __ELF__ | $CC -E - | grep __ELF__ >/dev/null; then + _LT_AC_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' # a.out + else + _LT_AC_TAGVAR(archive_cmds, $1)='$LD -shared -o $lib $libobjs $deplibs $linker_flags' # ELF + fi + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' + _LT_AC_TAGVAR(hardcode_direct, $1)=yes + _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no + ;; + + newsos6) + _LT_AC_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' + _LT_AC_TAGVAR(hardcode_direct, $1)=yes + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' + _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=: + _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no + ;; + + openbsd*) + _LT_AC_TAGVAR(hardcode_direct, $1)=yes + _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no + if test -z "`echo __ELF__ | $CC -E - | grep __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then + _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' + _LT_AC_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-retain-symbols-file,$export_symbols' + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir' + _LT_AC_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E' + else + case $host_os in + openbsd[[01]].* | openbsd2.[[0-7]] | openbsd2.[[0-7]].*) + _LT_AC_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' + ;; + *) + _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir' + ;; + esac + fi + ;; + + os2*) + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' + _LT_AC_TAGVAR(hardcode_minus_L, $1)=yes + _LT_AC_TAGVAR(allow_undefined_flag, $1)=unsupported + _LT_AC_TAGVAR(archive_cmds, $1)='$echo "LIBRARY $libname INITINSTANCE" > $output_objdir/$libname.def~$echo "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~$echo DATA >> $output_objdir/$libname.def~$echo " SINGLE NONSHARED" >> $output_objdir/$libname.def~$echo EXPORTS >> $output_objdir/$libname.def~emxexp $libobjs >> $output_objdir/$libname.def~$CC -Zdll -Zcrtdll -o $lib $libobjs $deplibs $compiler_flags $output_objdir/$libname.def' + _LT_AC_TAGVAR(old_archive_From_new_cmds, $1)='emximp -o $output_objdir/$libname.a $output_objdir/$libname.def' + ;; + + osf3*) + if test "$GCC" = yes; then + _LT_AC_TAGVAR(allow_undefined_flag, $1)=' ${wl}-expect_unresolved ${wl}\*' + _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' + else + _LT_AC_TAGVAR(allow_undefined_flag, $1)=' -expect_unresolved \*' + _LT_AC_TAGVAR(archive_cmds, $1)='$LD -shared${allow_undefined_flag} $libobjs $deplibs $linker_flags -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib' + fi + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' + _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=: + ;; + + osf4* | osf5*) # as osf3* with the addition of -msym flag + if test "$GCC" = yes; then + _LT_AC_TAGVAR(allow_undefined_flag, $1)=' ${wl}-expect_unresolved ${wl}\*' + _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags ${wl}-msym ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' + else + _LT_AC_TAGVAR(allow_undefined_flag, $1)=' -expect_unresolved \*' + _LT_AC_TAGVAR(archive_cmds, $1)='$LD -shared${allow_undefined_flag} $libobjs $deplibs $linker_flags -msym -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib' + _LT_AC_TAGVAR(archive_expsym_cmds, $1)='for i in `cat $export_symbols`; do printf "%s %s\\n" -exported_symbol "\$i" >> $lib.exp; done; echo "-hidden">> $lib.exp~ + $LD -shared${allow_undefined_flag} -input $lib.exp $linker_flags $libobjs $deplibs -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib~$rm $lib.exp' + + # Both c and cxx compiler support -rpath directly + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-rpath $libdir' + fi + _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=: + ;; + + sco3.2v5*) + _LT_AC_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' + _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no + _LT_AC_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-Bexport' + runpath_var=LD_RUN_PATH + hardcode_runpath_var=yes + ;; + + solaris*) + _LT_AC_TAGVAR(no_undefined_flag, $1)=' -z text' + if test "$GCC" = yes; then + wlarc='${wl}' + _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' + _LT_AC_TAGVAR(archive_expsym_cmds, $1)='$echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~$echo "local: *; };" >> $lib.exp~ + $CC -shared ${wl}-M ${wl}$lib.exp ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags~$rm $lib.exp' + else + wlarc='' + _LT_AC_TAGVAR(archive_cmds, $1)='$LD -G${allow_undefined_flag} -h $soname -o $lib $libobjs $deplibs $linker_flags' + _LT_AC_TAGVAR(archive_expsym_cmds, $1)='$echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~$echo "local: *; };" >> $lib.exp~ + $LD -G${allow_undefined_flag} -M $lib.exp -h $soname -o $lib $libobjs $deplibs $linker_flags~$rm $lib.exp' + fi + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' + _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no + case $host_os in + solaris2.[[0-5]] | solaris2.[[0-5]].*) ;; + *) + # The compiler driver will combine linker options so we + # cannot just pass the convience library names through + # without $wl, iff we do not link with $LD. + # Luckily, gcc supports the same syntax we need for Sun Studio. + # Supported since Solaris 2.6 (maybe 2.5.1?) + case $wlarc in + '') + _LT_AC_TAGVAR(whole_archive_flag_spec, $1)='-z allextract$convenience -z defaultextract' ;; + *) + _LT_AC_TAGVAR(whole_archive_flag_spec, $1)='${wl}-z ${wl}allextract`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; $echo \"$new_convenience\"` ${wl}-z ${wl}defaultextract' ;; + esac ;; + esac + _LT_AC_TAGVAR(link_all_deplibs, $1)=yes + ;; + + sunos4*) + if test "x$host_vendor" = xsequent; then + # Use $CC to link under sequent, because it throws in some extra .o + # files that make .init and .fini sections work. + _LT_AC_TAGVAR(archive_cmds, $1)='$CC -G ${wl}-h $soname -o $lib $libobjs $deplibs $compiler_flags' + else + _LT_AC_TAGVAR(archive_cmds, $1)='$LD -assert pure-text -Bstatic -o $lib $libobjs $deplibs $linker_flags' + fi + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' + _LT_AC_TAGVAR(hardcode_direct, $1)=yes + _LT_AC_TAGVAR(hardcode_minus_L, $1)=yes + _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no + ;; + + sysv4) + case $host_vendor in + sni) + _LT_AC_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' + _LT_AC_TAGVAR(hardcode_direct, $1)=yes # is this really true??? + ;; + siemens) + ## LD is ld it makes a PLAMLIB + ## CC just makes a GrossModule. + _LT_AC_TAGVAR(archive_cmds, $1)='$LD -G -o $lib $libobjs $deplibs $linker_flags' + _LT_AC_TAGVAR(reload_cmds, $1)='$CC -r -o $output$reload_objs' + _LT_AC_TAGVAR(hardcode_direct, $1)=no + ;; + motorola) + _LT_AC_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' + _LT_AC_TAGVAR(hardcode_direct, $1)=no #Motorola manual says yes, but my tests say they lie + ;; + esac + runpath_var='LD_RUN_PATH' + _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no + ;; + + sysv4.3*) + _LT_AC_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' + _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no + _LT_AC_TAGVAR(export_dynamic_flag_spec, $1)='-Bexport' + ;; + + sysv4*MP*) + if test -d /usr/nec; then + _LT_AC_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' + _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no + runpath_var=LD_RUN_PATH + hardcode_runpath_var=yes + _LT_AC_TAGVAR(ld_shlibs, $1)=yes + fi + ;; + + sysv4.2uw2*) + _LT_AC_TAGVAR(archive_cmds, $1)='$LD -G -o $lib $libobjs $deplibs $linker_flags' + _LT_AC_TAGVAR(hardcode_direct, $1)=yes + _LT_AC_TAGVAR(hardcode_minus_L, $1)=no + _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no + hardcode_runpath_var=yes + runpath_var=LD_RUN_PATH + ;; + + sysv5OpenUNIX8* | sysv5UnixWare7* | sysv5uw[[78]]* | unixware7*) + _LT_AC_TAGVAR(no_undefined_flag, $1)='${wl}-z ${wl}text' + if test "$GCC" = yes; then + _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' + else + _LT_AC_TAGVAR(archive_cmds, $1)='$CC -G ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' + fi + runpath_var='LD_RUN_PATH' + _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no + ;; + + sysv5*) + _LT_AC_TAGVAR(no_undefined_flag, $1)=' -z text' + # $CC -shared without GNU ld will not create a library from C++ + # object files and a static libstdc++, better avoid it by now + _LT_AC_TAGVAR(archive_cmds, $1)='$LD -G${allow_undefined_flag} -h $soname -o $lib $libobjs $deplibs $linker_flags' + _LT_AC_TAGVAR(archive_expsym_cmds, $1)='$echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~$echo "local: *; };" >> $lib.exp~ + $LD -G${allow_undefined_flag} -M $lib.exp -h $soname -o $lib $libobjs $deplibs $linker_flags~$rm $lib.exp' + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)= + _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no + runpath_var='LD_RUN_PATH' + ;; + + uts4*) + _LT_AC_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' + _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' + _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no + ;; + + *) + _LT_AC_TAGVAR(ld_shlibs, $1)=no + ;; + esac + fi +]) +AC_MSG_RESULT([$_LT_AC_TAGVAR(ld_shlibs, $1)]) +test "$_LT_AC_TAGVAR(ld_shlibs, $1)" = no && can_build_shared=no + +variables_saved_for_relink="PATH $shlibpath_var $runpath_var" +if test "$GCC" = yes; then + variables_saved_for_relink="$variables_saved_for_relink GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH" +fi + +# +# Do we need to explicitly link libc? +# +case "x$_LT_AC_TAGVAR(archive_cmds_need_lc, $1)" in +x|xyes) + # Assume -lc should be added + _LT_AC_TAGVAR(archive_cmds_need_lc, $1)=yes + + if test "$enable_shared" = yes && test "$GCC" = yes; then + case $_LT_AC_TAGVAR(archive_cmds, $1) in + *'~'*) + # FIXME: we may have to deal with multi-command sequences. + ;; + '$CC '*) + # Test whether the compiler implicitly links with -lc since on some + # systems, -lgcc has to come before -lc. If gcc already passes -lc + # to ld, don't add -lc before -lgcc. + AC_MSG_CHECKING([whether -lc should be explicitly linked in]) + $rm conftest* + printf "$lt_simple_compile_test_code" > conftest.$ac_ext + + if AC_TRY_EVAL(ac_compile) 2>conftest.err; then + soname=conftest + lib=conftest + libobjs=conftest.$ac_objext + deplibs= + wl=$_LT_AC_TAGVAR(lt_prog_compiler_wl, $1) + compiler_flags=-v + linker_flags=-v + verstring= + output_objdir=. + libname=conftest + lt_save_allow_undefined_flag=$_LT_AC_TAGVAR(allow_undefined_flag, $1) + _LT_AC_TAGVAR(allow_undefined_flag, $1)= + if AC_TRY_EVAL(_LT_AC_TAGVAR(archive_cmds, $1) 2\>\&1 \| grep \" -lc \" \>/dev/null 2\>\&1) + then + _LT_AC_TAGVAR(archive_cmds_need_lc, $1)=no + else + _LT_AC_TAGVAR(archive_cmds_need_lc, $1)=yes + fi + _LT_AC_TAGVAR(allow_undefined_flag, $1)=$lt_save_allow_undefined_flag + else + cat conftest.err 1>&5 + fi + $rm conftest* + AC_MSG_RESULT([$_LT_AC_TAGVAR(archive_cmds_need_lc, $1)]) + ;; + esac + fi + ;; +esac +])# AC_LIBTOOL_PROG_LD_SHLIBS + + +# _LT_AC_FILE_LTDLL_C +# ------------------- +# Be careful that the start marker always follows a newline. +AC_DEFUN([_LT_AC_FILE_LTDLL_C], [ +# /* ltdll.c starts here */ +# #define WIN32_LEAN_AND_MEAN +# #include +# #undef WIN32_LEAN_AND_MEAN +# #include +# +# #ifndef __CYGWIN__ +# # ifdef __CYGWIN32__ +# # define __CYGWIN__ __CYGWIN32__ +# # endif +# #endif +# +# #ifdef __cplusplus +# extern "C" { +# #endif +# BOOL APIENTRY DllMain (HINSTANCE hInst, DWORD reason, LPVOID reserved); +# #ifdef __cplusplus +# } +# #endif +# +# #ifdef __CYGWIN__ +# #include +# DECLARE_CYGWIN_DLL( DllMain ); +# #endif +# HINSTANCE __hDllInstance_base; +# +# BOOL APIENTRY +# DllMain (HINSTANCE hInst, DWORD reason, LPVOID reserved) +# { +# __hDllInstance_base = hInst; +# return TRUE; +# } +# /* ltdll.c ends here */ +])# _LT_AC_FILE_LTDLL_C + + +# _LT_AC_TAGVAR(VARNAME, [TAGNAME]) +# --------------------------------- +AC_DEFUN([_LT_AC_TAGVAR], [ifelse([$2], [], [$1], [$1_$2])]) + + +# old names +AC_DEFUN([AM_PROG_LIBTOOL], [AC_PROG_LIBTOOL]) +AC_DEFUN([AM_ENABLE_SHARED], [AC_ENABLE_SHARED($@)]) +AC_DEFUN([AM_ENABLE_STATIC], [AC_ENABLE_STATIC($@)]) +AC_DEFUN([AM_DISABLE_SHARED], [AC_DISABLE_SHARED($@)]) +AC_DEFUN([AM_DISABLE_STATIC], [AC_DISABLE_STATIC($@)]) +AC_DEFUN([AM_PROG_LD], [AC_PROG_LD]) +AC_DEFUN([AM_PROG_NM], [AC_PROG_NM]) + +# This is just to silence aclocal about the macro not being used +ifelse([AC_DISABLE_FAST_INSTALL]) + +AC_DEFUN([LT_AC_PROG_GCJ], +[AC_CHECK_TOOL(GCJ, gcj, no) + test "x${GCJFLAGS+set}" = xset || GCJFLAGS="-g -O2" + AC_SUBST(GCJFLAGS) +]) + +AC_DEFUN([LT_AC_PROG_RC], +[AC_CHECK_TOOL(RC, windres, no) +]) + +# NOTE: This macro has been submitted for inclusion into # +# GNU Autoconf as AC_PROG_SED. When it is available in # +# a released version of Autoconf we should remove this # +# macro and use it instead. # +# LT_AC_PROG_SED +# -------------- +# Check for a fully-functional sed program, that truncates +# as few characters as possible. Prefer GNU sed if found. +AC_DEFUN([LT_AC_PROG_SED], +[AC_MSG_CHECKING([for a sed that does not truncate output]) +AC_CACHE_VAL(lt_cv_path_SED, +[# Loop through the user's path and test for sed and gsed. +# Then use that list of sed's as ones to test for truncation. +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for lt_ac_prog in sed gsed; do + for ac_exec_ext in '' $ac_executable_extensions; do + if $as_executable_p "$as_dir/$lt_ac_prog$ac_exec_ext"; then + lt_ac_sed_list="$lt_ac_sed_list $as_dir/$lt_ac_prog$ac_exec_ext" + fi + done + done +done +lt_ac_max=0 +lt_ac_count=0 +# Add /usr/xpg4/bin/sed as it is typically found on Solaris +# along with /bin/sed that truncates output. +for lt_ac_sed in $lt_ac_sed_list /usr/xpg4/bin/sed; do + test ! -f $lt_ac_sed && continue + cat /dev/null > conftest.in + lt_ac_count=0 + echo $ECHO_N "0123456789$ECHO_C" >conftest.in + # Check for GNU sed and select it if it is found. + if "$lt_ac_sed" --version 2>&1 < /dev/null | grep 'GNU' > /dev/null; then + lt_cv_path_SED=$lt_ac_sed + break + fi + while true; do + cat conftest.in conftest.in >conftest.tmp + mv conftest.tmp conftest.in + cp conftest.in conftest.nl + echo >>conftest.nl + $lt_ac_sed -e 's/a$//' < conftest.nl >conftest.out || break + cmp -s conftest.out conftest.nl || break + # 10000 chars as input seems more than enough + test $lt_ac_count -gt 10 && break + lt_ac_count=`expr $lt_ac_count + 1` + if test $lt_ac_count -gt $lt_ac_max; then + lt_ac_max=$lt_ac_count + lt_cv_path_SED=$lt_ac_sed + fi + done +done +]) +SED=$lt_cv_path_SED +AC_MSG_RESULT([$SED]) +]) + +# Copyright (C) 2002, 2003, 2005 Free Software Foundation, Inc. +# +# This file is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# AM_AUTOMAKE_VERSION(VERSION) +# ---------------------------- +# Automake X.Y traces this macro to ensure aclocal.m4 has been +# generated from the m4 files accompanying Automake X.Y. +AC_DEFUN([AM_AUTOMAKE_VERSION], [am__api_version="1.9"]) + +# AM_SET_CURRENT_AUTOMAKE_VERSION +# ------------------------------- +# Call AM_AUTOMAKE_VERSION so it can be traced. +# This function is AC_REQUIREd by AC_INIT_AUTOMAKE. +AC_DEFUN([AM_SET_CURRENT_AUTOMAKE_VERSION], + [AM_AUTOMAKE_VERSION([1.9.5])]) + +# AM_AUX_DIR_EXPAND -*- Autoconf -*- + +# Copyright (C) 2001, 2003, 2005 Free Software Foundation, Inc. +# +# This file is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# For projects using AC_CONFIG_AUX_DIR([foo]), Autoconf sets +# $ac_aux_dir to `$srcdir/foo'. In other projects, it is set to +# `$srcdir', `$srcdir/..', or `$srcdir/../..'. +# +# Of course, Automake must honor this variable whenever it calls a +# tool from the auxiliary directory. The problem is that $srcdir (and +# therefore $ac_aux_dir as well) can be either absolute or relative, +# depending on how configure is run. This is pretty annoying, since +# it makes $ac_aux_dir quite unusable in subdirectories: in the top +# source directory, any form will work fine, but in subdirectories a +# relative path needs to be adjusted first. +# +# $ac_aux_dir/missing +# fails when called from a subdirectory if $ac_aux_dir is relative +# $top_srcdir/$ac_aux_dir/missing +# fails if $ac_aux_dir is absolute, +# fails when called from a subdirectory in a VPATH build with +# a relative $ac_aux_dir +# +# The reason of the latter failure is that $top_srcdir and $ac_aux_dir +# are both prefixed by $srcdir. In an in-source build this is usually +# harmless because $srcdir is `.', but things will broke when you +# start a VPATH build or use an absolute $srcdir. +# +# So we could use something similar to $top_srcdir/$ac_aux_dir/missing, +# iff we strip the leading $srcdir from $ac_aux_dir. That would be: +# am_aux_dir='\$(top_srcdir)/'`expr "$ac_aux_dir" : "$srcdir//*\(.*\)"` +# and then we would define $MISSING as +# MISSING="\${SHELL} $am_aux_dir/missing" +# This will work as long as MISSING is not called from configure, because +# unfortunately $(top_srcdir) has no meaning in configure. +# However there are other variables, like CC, which are often used in +# configure, and could therefore not use this "fixed" $ac_aux_dir. +# +# Another solution, used here, is to always expand $ac_aux_dir to an +# absolute PATH. The drawback is that using absolute paths prevent a +# configured tree to be moved without reconfiguration. + +AC_DEFUN([AM_AUX_DIR_EXPAND], +[dnl Rely on autoconf to set up CDPATH properly. +AC_PREREQ([2.50])dnl +# expand $ac_aux_dir to an absolute path +am_aux_dir=`cd $ac_aux_dir && pwd` +]) + +# AM_CONDITIONAL -*- Autoconf -*- + +# Copyright (C) 1997, 2000, 2001, 2003, 2004, 2005 +# Free Software Foundation, Inc. +# +# This file is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# serial 7 + +# AM_CONDITIONAL(NAME, SHELL-CONDITION) +# ------------------------------------- +# Define a conditional. +AC_DEFUN([AM_CONDITIONAL], +[AC_PREREQ(2.52)dnl + ifelse([$1], [TRUE], [AC_FATAL([$0: invalid condition: $1])], + [$1], [FALSE], [AC_FATAL([$0: invalid condition: $1])])dnl +AC_SUBST([$1_TRUE]) +AC_SUBST([$1_FALSE]) +if $2; then + $1_TRUE= + $1_FALSE='#' +else + $1_TRUE='#' + $1_FALSE= +fi +AC_CONFIG_COMMANDS_PRE( +[if test -z "${$1_TRUE}" && test -z "${$1_FALSE}"; then + AC_MSG_ERROR([[conditional "$1" was never defined. +Usually this means the macro was only invoked conditionally.]]) +fi])]) + + +# Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005 +# Free Software Foundation, Inc. +# +# This file is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# serial 8 + +# There are a few dirty hacks below to avoid letting `AC_PROG_CC' be +# written in clear, in which case automake, when reading aclocal.m4, +# will think it sees a *use*, and therefore will trigger all it's +# C support machinery. Also note that it means that autoscan, seeing +# CC etc. in the Makefile, will ask for an AC_PROG_CC use... + + +# _AM_DEPENDENCIES(NAME) +# ---------------------- +# See how the compiler implements dependency checking. +# NAME is "CC", "CXX", "GCJ", or "OBJC". +# We try a few techniques and use that to set a single cache variable. +# +# We don't AC_REQUIRE the corresponding AC_PROG_CC since the latter was +# modified to invoke _AM_DEPENDENCIES(CC); we would have a circular +# dependency, and given that the user is not expected to run this macro, +# just rely on AC_PROG_CC. +AC_DEFUN([_AM_DEPENDENCIES], +[AC_REQUIRE([AM_SET_DEPDIR])dnl +AC_REQUIRE([AM_OUTPUT_DEPENDENCY_COMMANDS])dnl +AC_REQUIRE([AM_MAKE_INCLUDE])dnl +AC_REQUIRE([AM_DEP_TRACK])dnl + +ifelse([$1], CC, [depcc="$CC" am_compiler_list=], + [$1], CXX, [depcc="$CXX" am_compiler_list=], + [$1], OBJC, [depcc="$OBJC" am_compiler_list='gcc3 gcc'], + [$1], GCJ, [depcc="$GCJ" am_compiler_list='gcc3 gcc'], + [depcc="$$1" am_compiler_list=]) + +AC_CACHE_CHECK([dependency style of $depcc], + [am_cv_$1_dependencies_compiler_type], +[if test -z "$AMDEP_TRUE" && test -f "$am_depcomp"; then + # We make a subdir and do the tests there. Otherwise we can end up + # making bogus files that we don't know about and never remove. For + # instance it was reported that on HP-UX the gcc test will end up + # making a dummy file named `D' -- because `-MD' means `put the output + # in D'. + mkdir conftest.dir + # Copy depcomp to subdir because otherwise we won't find it if we're + # using a relative directory. + cp "$am_depcomp" conftest.dir + cd conftest.dir + # We will build objects and dependencies in a subdirectory because + # it helps to detect inapplicable dependency modes. For instance + # both Tru64's cc and ICC support -MD to output dependencies as a + # side effect of compilation, but ICC will put the dependencies in + # the current directory while Tru64 will put them in the object + # directory. + mkdir sub + + am_cv_$1_dependencies_compiler_type=none + if test "$am_compiler_list" = ""; then + am_compiler_list=`sed -n ['s/^#*\([a-zA-Z0-9]*\))$/\1/p'] < ./depcomp` + fi + for depmode in $am_compiler_list; do + # Setup a source with many dependencies, because some compilers + # like to wrap large dependency lists on column 80 (with \), and + # we should not choose a depcomp mode which is confused by this. + # + # We need to recreate these files for each test, as the compiler may + # overwrite some of them when testing with obscure command lines. + # This happens at least with the AIX C compiler. + : > sub/conftest.c + for i in 1 2 3 4 5 6; do + echo '#include "conftst'$i'.h"' >> sub/conftest.c + # Using `: > sub/conftst$i.h' creates only sub/conftst1.h with + # Solaris 8's {/usr,}/bin/sh. + touch sub/conftst$i.h + done + echo "${am__include} ${am__quote}sub/conftest.Po${am__quote}" > confmf + + case $depmode in + nosideeffect) + # after this tag, mechanisms are not by side-effect, so they'll + # only be used when explicitly requested + if test "x$enable_dependency_tracking" = xyes; then + continue + else + break + fi + ;; + none) break ;; + esac + # We check with `-c' and `-o' for the sake of the "dashmstdout" + # mode. It turns out that the SunPro C++ compiler does not properly + # handle `-M -o', and we need to detect this. + if depmode=$depmode \ + source=sub/conftest.c object=sub/conftest.${OBJEXT-o} \ + depfile=sub/conftest.Po tmpdepfile=sub/conftest.TPo \ + $SHELL ./depcomp $depcc -c -o sub/conftest.${OBJEXT-o} sub/conftest.c \ + >/dev/null 2>conftest.err && + grep sub/conftst6.h sub/conftest.Po > /dev/null 2>&1 && + grep sub/conftest.${OBJEXT-o} sub/conftest.Po > /dev/null 2>&1 && + ${MAKE-make} -s -f confmf > /dev/null 2>&1; then + # icc doesn't choke on unknown options, it will just issue warnings + # or remarks (even with -Werror). So we grep stderr for any message + # that says an option was ignored or not supported. + # When given -MP, icc 7.0 and 7.1 complain thusly: + # icc: Command line warning: ignoring option '-M'; no argument required + # The diagnosis changed in icc 8.0: + # icc: Command line remark: option '-MP' not supported + if (grep 'ignoring option' conftest.err || + grep 'not supported' conftest.err) >/dev/null 2>&1; then :; else + am_cv_$1_dependencies_compiler_type=$depmode + break + fi + fi + done + + cd .. + rm -rf conftest.dir +else + am_cv_$1_dependencies_compiler_type=none +fi +]) +AC_SUBST([$1DEPMODE], [depmode=$am_cv_$1_dependencies_compiler_type]) +AM_CONDITIONAL([am__fastdep$1], [ + test "x$enable_dependency_tracking" != xno \ + && test "$am_cv_$1_dependencies_compiler_type" = gcc3]) +]) + + +# AM_SET_DEPDIR +# ------------- +# Choose a directory name for dependency files. +# This macro is AC_REQUIREd in _AM_DEPENDENCIES +AC_DEFUN([AM_SET_DEPDIR], +[AC_REQUIRE([AM_SET_LEADING_DOT])dnl +AC_SUBST([DEPDIR], ["${am__leading_dot}deps"])dnl +]) + + +# AM_DEP_TRACK +# ------------ +AC_DEFUN([AM_DEP_TRACK], +[AC_ARG_ENABLE(dependency-tracking, +[ --disable-dependency-tracking speeds up one-time build + --enable-dependency-tracking do not reject slow dependency extractors]) +if test "x$enable_dependency_tracking" != xno; then + am_depcomp="$ac_aux_dir/depcomp" + AMDEPBACKSLASH='\' +fi +AM_CONDITIONAL([AMDEP], [test "x$enable_dependency_tracking" != xno]) +AC_SUBST([AMDEPBACKSLASH]) +]) + +# Generate code to set up dependency tracking. -*- Autoconf -*- + +# Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005 +# Free Software Foundation, Inc. +# +# This file is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +#serial 3 + +# _AM_OUTPUT_DEPENDENCY_COMMANDS +# ------------------------------ +AC_DEFUN([_AM_OUTPUT_DEPENDENCY_COMMANDS], +[for mf in $CONFIG_FILES; do + # Strip MF so we end up with the name of the file. + mf=`echo "$mf" | sed -e 's/:.*$//'` + # Check whether this is an Automake generated Makefile or not. + # We used to match only the files named `Makefile.in', but + # some people rename them; so instead we look at the file content. + # Grep'ing the first line is not enough: some people post-process + # each Makefile.in and add a new line on top of each file to say so. + # So let's grep whole file. + if grep '^#.*generated by automake' $mf > /dev/null 2>&1; then + dirpart=`AS_DIRNAME("$mf")` + else + continue + fi + # Extract the definition of DEPDIR, am__include, and am__quote + # from the Makefile without running `make'. + DEPDIR=`sed -n 's/^DEPDIR = //p' < "$mf"` + test -z "$DEPDIR" && continue + am__include=`sed -n 's/^am__include = //p' < "$mf"` + test -z "am__include" && continue + am__quote=`sed -n 's/^am__quote = //p' < "$mf"` + # When using ansi2knr, U may be empty or an underscore; expand it + U=`sed -n 's/^U = //p' < "$mf"` + # Find all dependency output files, they are included files with + # $(DEPDIR) in their names. We invoke sed twice because it is the + # simplest approach to changing $(DEPDIR) to its actual value in the + # expansion. + for file in `sed -n " + s/^$am__include $am__quote\(.*(DEPDIR).*\)$am__quote"'$/\1/p' <"$mf" | \ + sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g' -e 's/\$U/'"$U"'/g'`; do + # Make sure the directory exists. + test -f "$dirpart/$file" && continue + fdir=`AS_DIRNAME(["$file"])` + AS_MKDIR_P([$dirpart/$fdir]) + # echo "creating $dirpart/$file" + echo '# dummy' > "$dirpart/$file" + done +done +])# _AM_OUTPUT_DEPENDENCY_COMMANDS + + +# AM_OUTPUT_DEPENDENCY_COMMANDS +# ----------------------------- +# This macro should only be invoked once -- use via AC_REQUIRE. +# +# This code is only required when automatic dependency tracking +# is enabled. FIXME. This creates each `.P' file that we will +# need in order to bootstrap the dependency handling code. +AC_DEFUN([AM_OUTPUT_DEPENDENCY_COMMANDS], +[AC_CONFIG_COMMANDS([depfiles], + [test x"$AMDEP_TRUE" != x"" || _AM_OUTPUT_DEPENDENCY_COMMANDS], + [AMDEP_TRUE="$AMDEP_TRUE" ac_aux_dir="$ac_aux_dir"]) +]) + +# Do all the work for Automake. -*- Autoconf -*- + +# Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 +# Free Software Foundation, Inc. +# +# This file is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# serial 12 + +# This macro actually does too much. Some checks are only needed if +# your package does certain things. But this isn't really a big deal. + +# AM_INIT_AUTOMAKE(PACKAGE, VERSION, [NO-DEFINE]) +# AM_INIT_AUTOMAKE([OPTIONS]) +# ----------------------------------------------- +# The call with PACKAGE and VERSION arguments is the old style +# call (pre autoconf-2.50), which is being phased out. PACKAGE +# and VERSION should now be passed to AC_INIT and removed from +# the call to AM_INIT_AUTOMAKE. +# We support both call styles for the transition. After +# the next Automake release, Autoconf can make the AC_INIT +# arguments mandatory, and then we can depend on a new Autoconf +# release and drop the old call support. +AC_DEFUN([AM_INIT_AUTOMAKE], +[AC_PREREQ([2.58])dnl +dnl Autoconf wants to disallow AM_ names. We explicitly allow +dnl the ones we care about. +m4_pattern_allow([^AM_[A-Z]+FLAGS$])dnl +AC_REQUIRE([AM_SET_CURRENT_AUTOMAKE_VERSION])dnl +AC_REQUIRE([AC_PROG_INSTALL])dnl +# test to see if srcdir already configured +if test "`cd $srcdir && pwd`" != "`pwd`" && + test -f $srcdir/config.status; then + AC_MSG_ERROR([source directory already configured; run "make distclean" there first]) +fi + +# test whether we have cygpath +if test -z "$CYGPATH_W"; then + if (cygpath --version) >/dev/null 2>/dev/null; then + CYGPATH_W='cygpath -w' + else + CYGPATH_W=echo + fi +fi +AC_SUBST([CYGPATH_W]) + +# Define the identity of the package. +dnl Distinguish between old-style and new-style calls. +m4_ifval([$2], +[m4_ifval([$3], [_AM_SET_OPTION([no-define])])dnl + AC_SUBST([PACKAGE], [$1])dnl + AC_SUBST([VERSION], [$2])], +[_AM_SET_OPTIONS([$1])dnl + AC_SUBST([PACKAGE], ['AC_PACKAGE_TARNAME'])dnl + AC_SUBST([VERSION], ['AC_PACKAGE_VERSION'])])dnl + +_AM_IF_OPTION([no-define],, +[AC_DEFINE_UNQUOTED(PACKAGE, "$PACKAGE", [Name of package]) + AC_DEFINE_UNQUOTED(VERSION, "$VERSION", [Version number of package])])dnl + +# Some tools Automake needs. +AC_REQUIRE([AM_SANITY_CHECK])dnl +AC_REQUIRE([AC_ARG_PROGRAM])dnl +AM_MISSING_PROG(ACLOCAL, aclocal-${am__api_version}) +AM_MISSING_PROG(AUTOCONF, autoconf) +AM_MISSING_PROG(AUTOMAKE, automake-${am__api_version}) +AM_MISSING_PROG(AUTOHEADER, autoheader) +AM_MISSING_PROG(MAKEINFO, makeinfo) +AM_PROG_INSTALL_SH +AM_PROG_INSTALL_STRIP +AC_REQUIRE([AM_PROG_MKDIR_P])dnl +# We need awk for the "check" target. The system "awk" is bad on +# some platforms. +AC_REQUIRE([AC_PROG_AWK])dnl +AC_REQUIRE([AC_PROG_MAKE_SET])dnl +AC_REQUIRE([AM_SET_LEADING_DOT])dnl +_AM_IF_OPTION([tar-ustar], [_AM_PROG_TAR([ustar])], + [_AM_IF_OPTION([tar-pax], [_AM_PROG_TAR([pax])], + [_AM_PROG_TAR([v7])])]) +_AM_IF_OPTION([no-dependencies],, +[AC_PROVIDE_IFELSE([AC_PROG_CC], + [_AM_DEPENDENCIES(CC)], + [define([AC_PROG_CC], + defn([AC_PROG_CC])[_AM_DEPENDENCIES(CC)])])dnl +AC_PROVIDE_IFELSE([AC_PROG_CXX], + [_AM_DEPENDENCIES(CXX)], + [define([AC_PROG_CXX], + defn([AC_PROG_CXX])[_AM_DEPENDENCIES(CXX)])])dnl +]) +]) + + +# When config.status generates a header, we must update the stamp-h file. +# This file resides in the same directory as the config header +# that is generated. The stamp files are numbered to have different names. + +# Autoconf calls _AC_AM_CONFIG_HEADER_HOOK (when defined) in the +# loop where config.status creates the headers, so we can generate +# our stamp files there. +AC_DEFUN([_AC_AM_CONFIG_HEADER_HOOK], +[# Compute $1's index in $config_headers. +_am_stamp_count=1 +for _am_header in $config_headers :; do + case $_am_header in + $1 | $1:* ) + break ;; + * ) + _am_stamp_count=`expr $_am_stamp_count + 1` ;; + esac +done +echo "timestamp for $1" >`AS_DIRNAME([$1])`/stamp-h[]$_am_stamp_count]) + +# Copyright (C) 2001, 2003, 2005 Free Software Foundation, Inc. +# +# This file is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# AM_PROG_INSTALL_SH +# ------------------ +# Define $install_sh. +AC_DEFUN([AM_PROG_INSTALL_SH], +[AC_REQUIRE([AM_AUX_DIR_EXPAND])dnl +install_sh=${install_sh-"$am_aux_dir/install-sh"} +AC_SUBST(install_sh)]) + +# Copyright (C) 2003, 2005 Free Software Foundation, Inc. +# +# This file is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# serial 2 + +# Check whether the underlying file-system supports filenames +# with a leading dot. For instance MS-DOS doesn't. +AC_DEFUN([AM_SET_LEADING_DOT], +[rm -rf .tst 2>/dev/null +mkdir .tst 2>/dev/null +if test -d .tst; then + am__leading_dot=. +else + am__leading_dot=_ +fi +rmdir .tst 2>/dev/null +AC_SUBST([am__leading_dot])]) + +# Check to see how 'make' treats includes. -*- Autoconf -*- + +# Copyright (C) 2001, 2002, 2003, 2005 Free Software Foundation, Inc. +# +# This file is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# serial 3 + +# AM_MAKE_INCLUDE() +# ----------------- +# Check to see how make treats includes. +AC_DEFUN([AM_MAKE_INCLUDE], +[am_make=${MAKE-make} +cat > confinc << 'END' +am__doit: + @echo done +.PHONY: am__doit +END +# If we don't find an include directive, just comment out the code. +AC_MSG_CHECKING([for style of include used by $am_make]) +am__include="#" +am__quote= +_am_result=none +# First try GNU make style include. +echo "include confinc" > confmf +# We grep out `Entering directory' and `Leaving directory' +# messages which can occur if `w' ends up in MAKEFLAGS. +# In particular we don't look at `^make:' because GNU make might +# be invoked under some other name (usually "gmake"), in which +# case it prints its new name instead of `make'. +if test "`$am_make -s -f confmf 2> /dev/null | grep -v 'ing directory'`" = "done"; then + am__include=include + am__quote= + _am_result=GNU +fi +# Now try BSD make style include. +if test "$am__include" = "#"; then + echo '.include "confinc"' > confmf + if test "`$am_make -s -f confmf 2> /dev/null`" = "done"; then + am__include=.include + am__quote="\"" + _am_result=BSD + fi +fi +AC_SUBST([am__include]) +AC_SUBST([am__quote]) +AC_MSG_RESULT([$_am_result]) +rm -f confinc confmf +]) + +# Fake the existence of programs that GNU maintainers use. -*- Autoconf -*- + +# Copyright (C) 1997, 1999, 2000, 2001, 2003, 2005 +# Free Software Foundation, Inc. +# +# This file is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# serial 4 + +# AM_MISSING_PROG(NAME, PROGRAM) +# ------------------------------ +AC_DEFUN([AM_MISSING_PROG], +[AC_REQUIRE([AM_MISSING_HAS_RUN]) +$1=${$1-"${am_missing_run}$2"} +AC_SUBST($1)]) + + +# AM_MISSING_HAS_RUN +# ------------------ +# Define MISSING if not defined so far and test if it supports --run. +# If it does, set am_missing_run to use it, otherwise, to nothing. +AC_DEFUN([AM_MISSING_HAS_RUN], +[AC_REQUIRE([AM_AUX_DIR_EXPAND])dnl +test x"${MISSING+set}" = xset || MISSING="\${SHELL} $am_aux_dir/missing" +# Use eval to expand $SHELL +if eval "$MISSING --run true"; then + am_missing_run="$MISSING --run " +else + am_missing_run= + AC_MSG_WARN([`missing' script is too old or missing]) +fi +]) + +# Copyright (C) 2003, 2004, 2005 Free Software Foundation, Inc. +# +# This file is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# AM_PROG_MKDIR_P +# --------------- +# Check whether `mkdir -p' is supported, fallback to mkinstalldirs otherwise. +# +# Automake 1.8 used `mkdir -m 0755 -p --' to ensure that directories +# created by `make install' are always world readable, even if the +# installer happens to have an overly restrictive umask (e.g. 077). +# This was a mistake. There are at least two reasons why we must not +# use `-m 0755': +# - it causes special bits like SGID to be ignored, +# - it may be too restrictive (some setups expect 775 directories). +# +# Do not use -m 0755 and let people choose whatever they expect by +# setting umask. +# +# We cannot accept any implementation of `mkdir' that recognizes `-p'. +# Some implementations (such as Solaris 8's) are not thread-safe: if a +# parallel make tries to run `mkdir -p a/b' and `mkdir -p a/c' +# concurrently, both version can detect that a/ is missing, but only +# one can create it and the other will error out. Consequently we +# restrict ourselves to GNU make (using the --version option ensures +# this.) +AC_DEFUN([AM_PROG_MKDIR_P], +[if mkdir -p --version . >/dev/null 2>&1 && test ! -d ./--version; then + # We used to keeping the `.' as first argument, in order to + # allow $(mkdir_p) to be used without argument. As in + # $(mkdir_p) $(somedir) + # where $(somedir) is conditionally defined. However this is wrong + # for two reasons: + # 1. if the package is installed by a user who cannot write `.' + # make install will fail, + # 2. the above comment should most certainly read + # $(mkdir_p) $(DESTDIR)$(somedir) + # so it does not work when $(somedir) is undefined and + # $(DESTDIR) is not. + # To support the latter case, we have to write + # test -z "$(somedir)" || $(mkdir_p) $(DESTDIR)$(somedir), + # so the `.' trick is pointless. + mkdir_p='mkdir -p --' +else + # On NextStep and OpenStep, the `mkdir' command does not + # recognize any option. It will interpret all options as + # directories to create, and then abort because `.' already + # exists. + for d in ./-p ./--version; + do + test -d $d && rmdir $d + done + # $(mkinstalldirs) is defined by Automake if mkinstalldirs exists. + if test -f "$ac_aux_dir/mkinstalldirs"; then + mkdir_p='$(mkinstalldirs)' + else + mkdir_p='$(install_sh) -d' + fi +fi +AC_SUBST([mkdir_p])]) + +# Helper functions for option handling. -*- Autoconf -*- + +# Copyright (C) 2001, 2002, 2003, 2005 Free Software Foundation, Inc. +# +# This file is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# serial 3 + +# _AM_MANGLE_OPTION(NAME) +# ----------------------- +AC_DEFUN([_AM_MANGLE_OPTION], +[[_AM_OPTION_]m4_bpatsubst($1, [[^a-zA-Z0-9_]], [_])]) + +# _AM_SET_OPTION(NAME) +# ------------------------------ +# Set option NAME. Presently that only means defining a flag for this option. +AC_DEFUN([_AM_SET_OPTION], +[m4_define(_AM_MANGLE_OPTION([$1]), 1)]) + +# _AM_SET_OPTIONS(OPTIONS) +# ---------------------------------- +# OPTIONS is a space-separated list of Automake options. +AC_DEFUN([_AM_SET_OPTIONS], +[AC_FOREACH([_AM_Option], [$1], [_AM_SET_OPTION(_AM_Option)])]) + +# _AM_IF_OPTION(OPTION, IF-SET, [IF-NOT-SET]) +# ------------------------------------------- +# Execute IF-SET if OPTION is set, IF-NOT-SET otherwise. +AC_DEFUN([_AM_IF_OPTION], +[m4_ifset(_AM_MANGLE_OPTION([$1]), [$2], [$3])]) + +# Check to make sure that the build environment is sane. -*- Autoconf -*- + +# Copyright (C) 1996, 1997, 2000, 2001, 2003, 2005 +# Free Software Foundation, Inc. +# +# This file is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# serial 4 + +# AM_SANITY_CHECK +# --------------- +AC_DEFUN([AM_SANITY_CHECK], +[AC_MSG_CHECKING([whether build environment is sane]) +# Just in case +sleep 1 +echo timestamp > conftest.file +# Do `set' in a subshell so we don't clobber the current shell's +# arguments. Must try -L first in case configure is actually a +# symlink; some systems play weird games with the mod time of symlinks +# (eg FreeBSD returns the mod time of the symlink's containing +# directory). +if ( + set X `ls -Lt $srcdir/configure conftest.file 2> /dev/null` + if test "$[*]" = "X"; then + # -L didn't work. + set X `ls -t $srcdir/configure conftest.file` + fi + rm -f conftest.file + if test "$[*]" != "X $srcdir/configure conftest.file" \ + && test "$[*]" != "X conftest.file $srcdir/configure"; then + + # If neither matched, then we have a broken ls. This can happen + # if, for instance, CONFIG_SHELL is bash and it inherits a + # broken ls alias from the environment. This has actually + # happened. Such a system could not be considered "sane". + AC_MSG_ERROR([ls -t appears to fail. Make sure there is not a broken +alias in your environment]) + fi + + test "$[2]" = conftest.file + ) +then + # Ok. + : +else + AC_MSG_ERROR([newly created file is older than distributed files! +Check your system clock]) +fi +AC_MSG_RESULT(yes)]) + +# Copyright (C) 2001, 2003, 2005 Free Software Foundation, Inc. +# +# This file is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# AM_PROG_INSTALL_STRIP +# --------------------- +# One issue with vendor `install' (even GNU) is that you can't +# specify the program used to strip binaries. This is especially +# annoying in cross-compiling environments, where the build's strip +# is unlikely to handle the host's binaries. +# Fortunately install-sh will honor a STRIPPROG variable, so we +# always use install-sh in `make install-strip', and initialize +# STRIPPROG with the value of the STRIP variable (set by the user). +AC_DEFUN([AM_PROG_INSTALL_STRIP], +[AC_REQUIRE([AM_PROG_INSTALL_SH])dnl +# Installed binaries are usually stripped using `strip' when the user +# run `make install-strip'. However `strip' might not be the right +# tool to use in cross-compilation environments, therefore Automake +# will honor the `STRIP' environment variable to overrule this program. +dnl Don't test for $cross_compiling = yes, because it might be `maybe'. +if test "$cross_compiling" != no; then + AC_CHECK_TOOL([STRIP], [strip], :) +fi +INSTALL_STRIP_PROGRAM="\${SHELL} \$(install_sh) -c -s" +AC_SUBST([INSTALL_STRIP_PROGRAM])]) + +# Check how to create a tarball. -*- Autoconf -*- + +# Copyright (C) 2004, 2005 Free Software Foundation, Inc. +# +# This file is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# serial 2 + +# _AM_PROG_TAR(FORMAT) +# -------------------- +# Check how to create a tarball in format FORMAT. +# FORMAT should be one of `v7', `ustar', or `pax'. +# +# Substitute a variable $(am__tar) that is a command +# writing to stdout a FORMAT-tarball containing the directory +# $tardir. +# tardir=directory && $(am__tar) > result.tar +# +# Substitute a variable $(am__untar) that extract such +# a tarball read from stdin. +# $(am__untar) < result.tar +AC_DEFUN([_AM_PROG_TAR], +[# Always define AMTAR for backward compatibility. +AM_MISSING_PROG([AMTAR], [tar]) +m4_if([$1], [v7], + [am__tar='${AMTAR} chof - "$$tardir"'; am__untar='${AMTAR} xf -'], + [m4_case([$1], [ustar],, [pax],, + [m4_fatal([Unknown tar format])]) +AC_MSG_CHECKING([how to create a $1 tar archive]) +# Loop over all known methods to create a tar archive until one works. +_am_tools='gnutar m4_if([$1], [ustar], [plaintar]) pax cpio none' +_am_tools=${am_cv_prog_tar_$1-$_am_tools} +# Do not fold the above two line into one, because Tru64 sh and +# Solaris sh will not grok spaces in the rhs of `-'. +for _am_tool in $_am_tools +do + case $_am_tool in + gnutar) + for _am_tar in tar gnutar gtar; + do + AM_RUN_LOG([$_am_tar --version]) && break + done + am__tar="$_am_tar --format=m4_if([$1], [pax], [posix], [$1]) -chf - "'"$$tardir"' + am__tar_="$_am_tar --format=m4_if([$1], [pax], [posix], [$1]) -chf - "'"$tardir"' + am__untar="$_am_tar -xf -" + ;; + plaintar) + # Must skip GNU tar: if it does not support --format= it doesn't create + # ustar tarball either. + (tar --version) >/dev/null 2>&1 && continue + am__tar='tar chf - "$$tardir"' + am__tar_='tar chf - "$tardir"' + am__untar='tar xf -' + ;; + pax) + am__tar='pax -L -x $1 -w "$$tardir"' + am__tar_='pax -L -x $1 -w "$tardir"' + am__untar='pax -r' + ;; + cpio) + am__tar='find "$$tardir" -print | cpio -o -H $1 -L' + am__tar_='find "$tardir" -print | cpio -o -H $1 -L' + am__untar='cpio -i -H $1 -d' + ;; + none) + am__tar=false + am__tar_=false + am__untar=false + ;; + esac + + # If the value was cached, stop now. We just wanted to have am__tar + # and am__untar set. + test -n "${am_cv_prog_tar_$1}" && break + + # tar/untar a dummy directory, and stop if the command works + rm -rf conftest.dir + mkdir conftest.dir + echo GrepMe > conftest.dir/file + AM_RUN_LOG([tardir=conftest.dir && eval $am__tar_ >conftest.tar]) + rm -rf conftest.dir + if test -s conftest.tar; then + AM_RUN_LOG([$am__untar /dev/null 2>&1 && break + fi +done +rm -rf conftest.dir + +AC_CACHE_VAL([am_cv_prog_tar_$1], [am_cv_prog_tar_$1=$_am_tool]) +AC_MSG_RESULT([$am_cv_prog_tar_$1])]) +AC_SUBST([am__tar]) +AC_SUBST([am__untar]) +]) # _AM_PROG_TAR + +m4_include([acinclude.m4]) diff --git a/bootstrap b/bootstrap new file mode 100755 index 0000000..f65c67b --- /dev/null +++ b/bootstrap @@ -0,0 +1,9 @@ +#!/bin/sh + +set -x +aclocal +autoheader +automake --add-missing --copy +autoconf +set +x + diff --git a/config.h.in b/config.h.in new file mode 100644 index 0000000..c57401e --- /dev/null +++ b/config.h.in @@ -0,0 +1,150 @@ +/* config.h.in. Generated from configure.in by autoheader. */ + +/* Define to 1 if you have the header file. */ +#undef HAVE_DLFCN_H + +/* Define to 1 if you don't have `vprintf' but do have `_doprnt.' */ +#undef HAVE_DOPRNT + +/* Define to 1 if you have the header file. */ +#undef HAVE_HISTORY_H + +/* Define to 1 if you have the header file. */ +#undef HAVE_INTTYPES_H + +/* Define if you have a readline compatible library */ +#undef HAVE_LIBREADLINE + +/* Define to 1 if you have the `z' library (-lz). */ +#undef HAVE_LIBZ + +/* Define to 1 if you have the header file. */ +#undef HAVE_LIMITS_H + +/* Set to one if lxt library should be used */ +#undef HAVE_LXT + +/* Define to 1 if your system has a GNU libc compatible `malloc' function, and + to 0 otherwise. */ +#undef HAVE_MALLOC + +/* Define to 1 if you have the `memmove' function. */ +#undef HAVE_MEMMOVE + +/* Define to 1 if you have the header file. */ +#undef HAVE_MEMORY_H + +/* Define to 1 if you have the `memset' function. */ +#undef HAVE_MEMSET + +/* Define to 1 if you have the `pow' function. */ +#undef HAVE_POW + +/* Define to 1 if you have the header file. */ +#undef HAVE_READLINE_H + +/* Define if your readline library has \`add_history' */ +#undef HAVE_READLINE_HISTORY + +/* Define to 1 if you have the header file. */ +#undef HAVE_READLINE_HISTORY_H + +/* Define to 1 if you have the header file. */ +#undef HAVE_READLINE_READLINE_H + +/* Define to 1 if you have the header file. */ +#undef HAVE_STDARG_H + +/* Define to 1 if stdbool.h conforms to C99. */ +#undef HAVE_STDBOOL_H + +/* Define to 1 if you have the header file. */ +#undef HAVE_STDDEF_H + +/* Define to 1 if you have the header file. */ +#undef HAVE_STDINT_H + +/* Define to 1 if you have the header file. */ +#undef HAVE_STDLIB_H + +/* Define to 1 if you have the `strchr' function. */ +#undef HAVE_STRCHR + +/* Define to 1 if you have the `strdup' function. */ +#undef HAVE_STRDUP + +/* Define to 1 if you have the header file. */ +#undef HAVE_STRINGS_H + +/* Define to 1 if you have the header file. */ +#undef HAVE_STRING_H + +/* Define to 1 if you have the `strrchr' function. */ +#undef HAVE_STRRCHR + +/* Define to 1 if you have the header file. */ +#undef HAVE_SYS_STAT_H + +/* Define to 1 if you have the header file. */ +#undef HAVE_SYS_TYPES_H + +/* Define to 1 if you have the header file. */ +#undef HAVE_UNISTD_H + +/* Define to 1 if you have the `vfscanf' function. */ +#undef HAVE_VFSCANF + +/* Define to 1 if you have the `vprintf' function. */ +#undef HAVE_VPRINTF + +/* Define to 1 if the system has the type `_Bool'. */ +#undef HAVE__BOOL + +/* Name of package */ +#undef PACKAGE + +/* Define to the address where bug reports for this package should be sent. */ +#undef PACKAGE_BUGREPORT + +/* Define to the full name of this package. */ +#undef PACKAGE_NAME + +/* Define to the full name and version of this package. */ +#undef PACKAGE_STRING + +/* Define to the one symbol short name of this package. */ +#undef PACKAGE_TARNAME + +/* Define to the version of this package. */ +#undef PACKAGE_VERSION + +/* Define as the return type of signal handlers (`int' or `void'). */ +#undef RETSIGTYPE + +/* Define to 1 if you have the ANSI C header files. */ +#undef STDC_HEADERS + +/* Define to 1 if you can safely include both and . */ +#undef TIME_WITH_SYS_TIME + +/* Version number of package */ +#undef VERSION + +/* Define to 1 if your processor stores words with the most significant byte + first (like Motorola and SPARC, unlike Intel and VAX). */ +#undef WORDS_BIGENDIAN + +/* Define to empty if `const' does not conform to ANSI C. */ +#undef const + +/* Define to `__inline__' or `__inline' if that's what the C compiler + calls it, or to nothing if 'inline' is not supported under any name. */ +#ifndef __cplusplus +#undef inline +#endif + +/* Define to rpl_malloc if the replacement function should be used. */ +#undef malloc + +/* Define to `unsigned' if does not define. */ +#undef size_t diff --git a/config/compile b/config/compile new file mode 100755 index 0000000..ad57e2f --- /dev/null +++ b/config/compile @@ -0,0 +1,142 @@ +#! /bin/sh +# Wrapper for compilers which do not understand `-c -o'. + +scriptversion=2005-02-03.08 + +# Copyright (C) 1999, 2000, 2003, 2004, 2005 Free Software Foundation, Inc. +# Written by Tom Tromey . +# +# This program 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, 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. + +# As a special exception to the GNU General Public License, if you +# distribute this file as part of a program that contains a +# configuration script generated by Autoconf, you may include it under +# the same distribution terms that you use for the rest of that program. + +# This file is maintained in Automake, please report +# bugs to or send patches to +# . + +case $1 in + '') + echo "$0: No command. Try \`$0 --help' for more information." 1>&2 + exit 1; + ;; + -h | --h*) + cat <<\EOF +Usage: compile [--help] [--version] PROGRAM [ARGS] + +Wrapper for compilers which do not understand `-c -o'. +Remove `-o dest.o' from ARGS, run PROGRAM with the remaining +arguments, and rename the output as expected. + +If you are trying to build a whole package this is not the +right script to run: please start by reading the file `INSTALL'. + +Report bugs to . +EOF + exit $? + ;; + -v | --v*) + echo "compile $scriptversion" + exit $? + ;; +esac + +ofile= +cfile= +eat= + +for arg +do + if test -n "$eat"; then + eat= + else + case $1 in + -o) + # configure might choose to run compile as `compile cc -o foo foo.c'. + # So we strip `-o arg' only if arg is an object. + eat=1 + case $2 in + *.o | *.obj) + ofile=$2 + ;; + *) + set x "$@" -o "$2" + shift + ;; + esac + ;; + *.c) + cfile=$1 + set x "$@" "$1" + shift + ;; + *) + set x "$@" "$1" + shift + ;; + esac + fi + shift +done + +if test -z "$ofile" || test -z "$cfile"; then + # If no `-o' option was seen then we might have been invoked from a + # pattern rule where we don't need one. That is ok -- this is a + # normal compilation that the losing compiler can handle. If no + # `.c' file was seen then we are probably linking. That is also + # ok. + exec "$@" +fi + +# Name of file we expect compiler to create. +cofile=`echo "$cfile" | sed -e 's|^.*/||' -e 's/\.c$/.o/'` + +# Create the lock directory. +# Note: use `[/.-]' here to ensure that we don't use the same name +# that we are using for the .o file. Also, base the name on the expected +# object file name, since that is what matters with a parallel build. +lockdir=`echo "$cofile" | sed -e 's|[/.-]|_|g'`.d +while true; do + if mkdir "$lockdir" >/dev/null 2>&1; then + break + fi + sleep 1 +done +# FIXME: race condition here if user kills between mkdir and trap. +trap "rmdir '$lockdir'; exit 1" 1 2 15 + +# Run the compile. +"$@" +ret=$? + +if test -f "$cofile"; then + mv "$cofile" "$ofile" +elif test -f "${cofile}bj"; then + mv "${cofile}bj" "$ofile" +fi + +rmdir "$lockdir" +exit $ret + +# Local Variables: +# mode: shell-script +# sh-indentation: 2 +# eval: (add-hook 'write-file-hooks 'time-stamp) +# time-stamp-start: "scriptversion=" +# time-stamp-format: "%:y-%02m-%02d.%02H" +# time-stamp-end: "$" +# End: diff --git a/config/config.guess b/config/config.guess new file mode 100755 index 0000000..2fc3acc --- /dev/null +++ b/config/config.guess @@ -0,0 +1,1411 @@ +#! /bin/sh +# Attempt to guess a canonical system name. +# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, +# 2000, 2001, 2002, 2003 Free Software Foundation, Inc. + +timestamp='2003-06-17' + +# 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. +# +# As a special exception to the GNU General Public License, if you +# distribute this file as part of a program that contains a +# configuration script generated by Autoconf, you may include it under +# the same distribution terms that you use for the rest of that program. + +# Originally written by Per Bothner . +# Please send patches to . Submit a context +# diff and a properly formatted ChangeLog entry. +# +# This script attempts to guess a canonical system name similar to +# config.sub. If it succeeds, it prints the system name on stdout, and +# exits with 0. Otherwise, it exits with 1. +# +# The plan is that this can be called by configure scripts if you +# don't specify an explicit build system type. + +me=`echo "$0" | sed -e 's,.*/,,'` + +usage="\ +Usage: $0 [OPTION] + +Output the configuration name of the system \`$me' is run on. + +Operation modes: + -h, --help print this help, then exit + -t, --time-stamp print date of last modification, then exit + -v, --version print version number, then exit + +Report bugs and patches to ." + +version="\ +GNU config.guess ($timestamp) + +Originally written by Per Bothner. +Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001 +Free Software Foundation, Inc. + +This is free software; see the source for copying conditions. There is NO +warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE." + +help=" +Try \`$me --help' for more information." + +# Parse command line +while test $# -gt 0 ; do + case $1 in + --time-stamp | --time* | -t ) + echo "$timestamp" ; exit 0 ;; + --version | -v ) + echo "$version" ; exit 0 ;; + --help | --h* | -h ) + echo "$usage"; exit 0 ;; + -- ) # Stop option processing + shift; break ;; + - ) # Use stdin as input. + break ;; + -* ) + echo "$me: invalid option $1$help" >&2 + exit 1 ;; + * ) + break ;; + esac +done + +if test $# != 0; then + echo "$me: too many arguments$help" >&2 + exit 1 +fi + +trap 'exit 1' 1 2 15 + +# CC_FOR_BUILD -- compiler used by this script. Note that the use of a +# compiler to aid in system detection is discouraged as it requires +# temporary files to be created and, as you can see below, it is a +# headache to deal with in a portable fashion. + +# Historically, `CC_FOR_BUILD' used to be named `HOST_CC'. We still +# use `HOST_CC' if defined, but it is deprecated. + +# Portable tmp directory creation inspired by the Autoconf team. + +set_cc_for_build=' +trap "exitcode=\$?; (rm -f \$tmpfiles 2>/dev/null; rmdir \$tmp 2>/dev/null) && exit \$exitcode" 0 ; +trap "rm -f \$tmpfiles 2>/dev/null; rmdir \$tmp 2>/dev/null; exit 1" 1 2 13 15 ; +: ${TMPDIR=/tmp} ; + { tmp=`(umask 077 && mktemp -d -q "$TMPDIR/cgXXXXXX") 2>/dev/null` && test -n "$tmp" && test -d "$tmp" ; } || + { test -n "$RANDOM" && tmp=$TMPDIR/cg$$-$RANDOM && (umask 077 && mkdir $tmp) ; } || + { tmp=$TMPDIR/cg-$$ && (umask 077 && mkdir $tmp) && echo "Warning: creating insecure temp directory" >&2 ; } || + { echo "$me: cannot create a temporary directory in $TMPDIR" >&2 ; exit 1 ; } ; +dummy=$tmp/dummy ; +tmpfiles="$dummy.c $dummy.o $dummy.rel $dummy" ; +case $CC_FOR_BUILD,$HOST_CC,$CC in + ,,) echo "int x;" > $dummy.c ; + for c in cc gcc c89 c99 ; do + if ($c -c -o $dummy.o $dummy.c) >/dev/null 2>&1 ; then + CC_FOR_BUILD="$c"; break ; + fi ; + done ; + if test x"$CC_FOR_BUILD" = x ; then + CC_FOR_BUILD=no_compiler_found ; + fi + ;; + ,,*) CC_FOR_BUILD=$CC ;; + ,*,*) CC_FOR_BUILD=$HOST_CC ;; +esac ;' + +# This is needed to find uname on a Pyramid OSx when run in the BSD universe. +# (ghazi@noc.rutgers.edu 1994-08-24) +if (test -f /.attbin/uname) >/dev/null 2>&1 ; then + PATH=$PATH:/.attbin ; export PATH +fi + +UNAME_MACHINE=`(uname -m) 2>/dev/null` || UNAME_MACHINE=unknown +UNAME_RELEASE=`(uname -r) 2>/dev/null` || UNAME_RELEASE=unknown +UNAME_SYSTEM=`(uname -s) 2>/dev/null` || UNAME_SYSTEM=unknown +UNAME_VERSION=`(uname -v) 2>/dev/null` || UNAME_VERSION=unknown + +## for Red Hat Linux +if test -f /etc/redhat-release ; then + VENDOR=redhat ; +else + VENDOR= ; +fi + +# Note: order is significant - the case branches are not exclusive. + +case "${UNAME_MACHINE}:${UNAME_SYSTEM}:${UNAME_RELEASE}:${UNAME_VERSION}" in + *:NetBSD:*:*) + # NetBSD (nbsd) targets should (where applicable) match one or + # more of the tupples: *-*-netbsdelf*, *-*-netbsdaout*, + # *-*-netbsdecoff* and *-*-netbsd*. For targets that recently + # switched to ELF, *-*-netbsd* would select the old + # object file format. This provides both forward + # compatibility and a consistent mechanism for selecting the + # object file format. + # + # Note: NetBSD doesn't particularly care about the vendor + # portion of the name. We always set it to "unknown". + sysctl="sysctl -n hw.machine_arch" + UNAME_MACHINE_ARCH=`(/sbin/$sysctl 2>/dev/null || \ + /usr/sbin/$sysctl 2>/dev/null || echo unknown)` + case "${UNAME_MACHINE_ARCH}" in + armeb) machine=armeb-unknown ;; + arm*) machine=arm-unknown ;; + sh3el) machine=shl-unknown ;; + sh3eb) machine=sh-unknown ;; + *) machine=${UNAME_MACHINE_ARCH}-unknown ;; + esac + # The Operating System including object format, if it has switched + # to ELF recently, or will in the future. + case "${UNAME_MACHINE_ARCH}" in + arm*|i386|m68k|ns32k|sh3*|sparc|vax) + eval $set_cc_for_build + if echo __ELF__ | $CC_FOR_BUILD -E - 2>/dev/null \ + | grep __ELF__ >/dev/null + then + # Once all utilities can be ECOFF (netbsdecoff) or a.out (netbsdaout). + # Return netbsd for either. FIX? + os=netbsd + else + os=netbsdelf + fi + ;; + *) + os=netbsd + ;; + esac + # The OS release + # Debian GNU/NetBSD machines have a different userland, and + # thus, need a distinct triplet. However, they do not need + # kernel version information, so it can be replaced with a + # suitable tag, in the style of linux-gnu. + case "${UNAME_VERSION}" in + Debian*) + release='-gnu' + ;; + *) + release=`echo ${UNAME_RELEASE}|sed -e 's/[-_].*/\./'` + ;; + esac + # Since CPU_TYPE-MANUFACTURER-KERNEL-OPERATING_SYSTEM: + # contains redundant information, the shorter form: + # CPU_TYPE-MANUFACTURER-OPERATING_SYSTEM is used. + echo "${machine}-${os}${release}" + exit 0 ;; + amiga:OpenBSD:*:*) + echo m68k-unknown-openbsd${UNAME_RELEASE} + exit 0 ;; + arc:OpenBSD:*:*) + echo mipsel-unknown-openbsd${UNAME_RELEASE} + exit 0 ;; + hp300:OpenBSD:*:*) + echo m68k-unknown-openbsd${UNAME_RELEASE} + exit 0 ;; + mac68k:OpenBSD:*:*) + echo m68k-unknown-openbsd${UNAME_RELEASE} + exit 0 ;; + macppc:OpenBSD:*:*) + echo powerpc-unknown-openbsd${UNAME_RELEASE} + exit 0 ;; + mvme68k:OpenBSD:*:*) + echo m68k-unknown-openbsd${UNAME_RELEASE} + exit 0 ;; + mvme88k:OpenBSD:*:*) + echo m88k-unknown-openbsd${UNAME_RELEASE} + exit 0 ;; + mvmeppc:OpenBSD:*:*) + echo powerpc-unknown-openbsd${UNAME_RELEASE} + exit 0 ;; + pmax:OpenBSD:*:*) + echo mipsel-unknown-openbsd${UNAME_RELEASE} + exit 0 ;; + sgi:OpenBSD:*:*) + echo mipseb-unknown-openbsd${UNAME_RELEASE} + exit 0 ;; + sun3:OpenBSD:*:*) + echo m68k-unknown-openbsd${UNAME_RELEASE} + exit 0 ;; + wgrisc:OpenBSD:*:*) + echo mipsel-unknown-openbsd${UNAME_RELEASE} + exit 0 ;; + *:OpenBSD:*:*) + echo ${UNAME_MACHINE}-unknown-openbsd${UNAME_RELEASE} + exit 0 ;; + alpha:OSF1:*:*) + if test $UNAME_RELEASE = "V4.0"; then + UNAME_RELEASE=`/usr/sbin/sizer -v | awk '{print $3}'` + fi + # According to Compaq, /usr/sbin/psrinfo has been available on + # OSF/1 and Tru64 systems produced since 1995. I hope that + # covers most systems running today. This code pipes the CPU + # types through head -n 1, so we only detect the type of CPU 0. + ALPHA_CPU_TYPE=`/usr/sbin/psrinfo -v | sed -n -e 's/^ The alpha \(.*\) processor.*$/\1/p' | head -n 1` + case "$ALPHA_CPU_TYPE" in + "EV4 (21064)") + UNAME_MACHINE="alpha" ;; + "EV4.5 (21064)") + UNAME_MACHINE="alpha" ;; + "LCA4 (21066/21068)") + UNAME_MACHINE="alpha" ;; + "EV5 (21164)") + UNAME_MACHINE="alphaev5" ;; + "EV5.6 (21164A)") + UNAME_MACHINE="alphaev56" ;; + "EV5.6 (21164PC)") + UNAME_MACHINE="alphapca56" ;; + "EV5.7 (21164PC)") + UNAME_MACHINE="alphapca57" ;; + "EV6 (21264)") + UNAME_MACHINE="alphaev6" ;; + "EV6.7 (21264A)") + UNAME_MACHINE="alphaev67" ;; + "EV6.8CB (21264C)") + UNAME_MACHINE="alphaev68" ;; + "EV6.8AL (21264B)") + UNAME_MACHINE="alphaev68" ;; + "EV6.8CX (21264D)") + UNAME_MACHINE="alphaev68" ;; + "EV6.9A (21264/EV69A)") + UNAME_MACHINE="alphaev69" ;; + "EV7 (21364)") + UNAME_MACHINE="alphaev7" ;; + "EV7.9 (21364A)") + UNAME_MACHINE="alphaev79" ;; + esac + # A Vn.n version is a released version. + # A Tn.n version is a released field test version. + # A Xn.n version is an unreleased experimental baselevel. + # 1.2 uses "1.2" for uname -r. + echo ${UNAME_MACHINE}-dec-osf`echo ${UNAME_RELEASE} | sed -e 's/^[VTX]//' | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz'` + exit 0 ;; + Alpha*:OpenVMS:*:*) + echo alpha-hp-vms + exit 0 ;; + Alpha\ *:Windows_NT*:*) + # How do we know it's Interix rather than the generic POSIX subsystem? + # Should we change UNAME_MACHINE based on the output of uname instead + # of the specific Alpha model? + echo alpha-pc-interix + exit 0 ;; + 21064:Windows_NT:50:3) + echo alpha-dec-winnt3.5 + exit 0 ;; + Amiga*:UNIX_System_V:4.0:*) + echo m68k-unknown-sysv4 + exit 0;; + *:[Aa]miga[Oo][Ss]:*:*) + echo ${UNAME_MACHINE}-unknown-amigaos + exit 0 ;; + *:[Mm]orph[Oo][Ss]:*:*) + echo ${UNAME_MACHINE}-unknown-morphos + exit 0 ;; + *:OS/390:*:*) + echo i370-ibm-openedition + exit 0 ;; + arm:RISC*:1.[012]*:*|arm:riscix:1.[012]*:*) + echo arm-acorn-riscix${UNAME_RELEASE} + exit 0;; + SR2?01:HI-UX/MPP:*:* | SR8000:HI-UX/MPP:*:*) + echo hppa1.1-hitachi-hiuxmpp + exit 0;; + Pyramid*:OSx*:*:* | MIS*:OSx*:*:* | MIS*:SMP_DC-OSx*:*:*) + # akee@wpdis03.wpafb.af.mil (Earle F. Ake) contributed MIS and NILE. + if test "`(/bin/universe) 2>/dev/null`" = att ; then + echo pyramid-pyramid-sysv3 + else + echo pyramid-pyramid-bsd + fi + exit 0 ;; + NILE*:*:*:dcosx) + echo pyramid-pyramid-svr4 + exit 0 ;; + DRS?6000:unix:4.0:6*) + echo sparc-icl-nx6 + exit 0 ;; + DRS?6000:UNIX_SV:4.2*:7*) + case `/usr/bin/uname -p` in + sparc) echo sparc-icl-nx7 && exit 0 ;; + esac ;; + sun4H:SunOS:5.*:*) + echo sparc-hal-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` + exit 0 ;; + sun4*:SunOS:5.*:* | tadpole*:SunOS:5.*:*) + echo sparc-sun-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` + exit 0 ;; + i86pc:SunOS:5.*:*) + echo i386-pc-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` + exit 0 ;; + sun4*:SunOS:6*:*) + # According to config.sub, this is the proper way to canonicalize + # SunOS6. Hard to guess exactly what SunOS6 will be like, but + # it's likely to be more like Solaris than SunOS4. + echo sparc-sun-solaris3`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` + exit 0 ;; + sun4*:SunOS:*:*) + case "`/usr/bin/arch -k`" in + Series*|S4*) + UNAME_RELEASE=`uname -v` + ;; + esac + # Japanese Language versions have a version number like `4.1.3-JL'. + echo sparc-sun-sunos`echo ${UNAME_RELEASE}|sed -e 's/-/_/'` + exit 0 ;; + sun3*:SunOS:*:*) + echo m68k-sun-sunos${UNAME_RELEASE} + exit 0 ;; + sun*:*:4.2BSD:*) + UNAME_RELEASE=`(sed 1q /etc/motd | awk '{print substr($5,1,3)}') 2>/dev/null` + test "x${UNAME_RELEASE}" = "x" && UNAME_RELEASE=3 + case "`/bin/arch`" in + sun3) + echo m68k-sun-sunos${UNAME_RELEASE} + ;; + sun4) + echo sparc-sun-sunos${UNAME_RELEASE} + ;; + esac + exit 0 ;; + aushp:SunOS:*:*) + echo sparc-auspex-sunos${UNAME_RELEASE} + exit 0 ;; + # The situation for MiNT is a little confusing. The machine name + # can be virtually everything (everything which is not + # "atarist" or "atariste" at least should have a processor + # > m68000). The system name ranges from "MiNT" over "FreeMiNT" + # to the lowercase version "mint" (or "freemint"). Finally + # the system name "TOS" denotes a system which is actually not + # MiNT. But MiNT is downward compatible to TOS, so this should + # be no problem. + atarist[e]:*MiNT:*:* | atarist[e]:*mint:*:* | atarist[e]:*TOS:*:*) + echo m68k-atari-mint${UNAME_RELEASE} + exit 0 ;; + atari*:*MiNT:*:* | atari*:*mint:*:* | atarist[e]:*TOS:*:*) + echo m68k-atari-mint${UNAME_RELEASE} + exit 0 ;; + *falcon*:*MiNT:*:* | *falcon*:*mint:*:* | *falcon*:*TOS:*:*) + echo m68k-atari-mint${UNAME_RELEASE} + exit 0 ;; + milan*:*MiNT:*:* | milan*:*mint:*:* | *milan*:*TOS:*:*) + echo m68k-milan-mint${UNAME_RELEASE} + exit 0 ;; + hades*:*MiNT:*:* | hades*:*mint:*:* | *hades*:*TOS:*:*) + echo m68k-hades-mint${UNAME_RELEASE} + exit 0 ;; + *:*MiNT:*:* | *:*mint:*:* | *:*TOS:*:*) + echo m68k-unknown-mint${UNAME_RELEASE} + exit 0 ;; + powerpc:machten:*:*) + echo powerpc-apple-machten${UNAME_RELEASE} + exit 0 ;; + RISC*:Mach:*:*) + echo mips-dec-mach_bsd4.3 + exit 0 ;; + RISC*:ULTRIX:*:*) + echo mips-dec-ultrix${UNAME_RELEASE} + exit 0 ;; + VAX*:ULTRIX*:*:*) + echo vax-dec-ultrix${UNAME_RELEASE} + exit 0 ;; + 2020:CLIX:*:* | 2430:CLIX:*:*) + echo clipper-intergraph-clix${UNAME_RELEASE} + exit 0 ;; + mips:*:*:UMIPS | mips:*:*:RISCos) + eval $set_cc_for_build + sed 's/^ //' << EOF >$dummy.c +#ifdef __cplusplus +#include /* for printf() prototype */ + int main (int argc, char *argv[]) { +#else + int main (argc, argv) int argc; char *argv[]; { +#endif + #if defined (host_mips) && defined (MIPSEB) + #if defined (SYSTYPE_SYSV) + printf ("mips-mips-riscos%ssysv\n", argv[1]); exit (0); + #endif + #if defined (SYSTYPE_SVR4) + printf ("mips-mips-riscos%ssvr4\n", argv[1]); exit (0); + #endif + #if defined (SYSTYPE_BSD43) || defined(SYSTYPE_BSD) + printf ("mips-mips-riscos%sbsd\n", argv[1]); exit (0); + #endif + #endif + exit (-1); + } +EOF + $CC_FOR_BUILD -o $dummy $dummy.c \ + && $dummy `echo "${UNAME_RELEASE}" | sed -n 's/\([0-9]*\).*/\1/p'` \ + && exit 0 + echo mips-mips-riscos${UNAME_RELEASE} + exit 0 ;; + Motorola:PowerMAX_OS:*:*) + echo powerpc-motorola-powermax + exit 0 ;; + Motorola:*:4.3:PL8-*) + echo powerpc-harris-powermax + exit 0 ;; + Night_Hawk:*:*:PowerMAX_OS | Synergy:PowerMAX_OS:*:*) + echo powerpc-harris-powermax + exit 0 ;; + Night_Hawk:Power_UNIX:*:*) + echo powerpc-harris-powerunix + exit 0 ;; + m88k:CX/UX:7*:*) + echo m88k-harris-cxux7 + exit 0 ;; + m88k:*:4*:R4*) + echo m88k-motorola-sysv4 + exit 0 ;; + m88k:*:3*:R3*) + echo m88k-motorola-sysv3 + exit 0 ;; + AViiON:dgux:*:*) + # DG/UX returns AViiON for all architectures + UNAME_PROCESSOR=`/usr/bin/uname -p` + if [ $UNAME_PROCESSOR = mc88100 ] || [ $UNAME_PROCESSOR = mc88110 ] + then + if [ ${TARGET_BINARY_INTERFACE}x = m88kdguxelfx ] || \ + [ ${TARGET_BINARY_INTERFACE}x = x ] + then + echo m88k-dg-dgux${UNAME_RELEASE} + else + echo m88k-dg-dguxbcs${UNAME_RELEASE} + fi + else + echo i586-dg-dgux${UNAME_RELEASE} + fi + exit 0 ;; + M88*:DolphinOS:*:*) # DolphinOS (SVR3) + echo m88k-dolphin-sysv3 + exit 0 ;; + M88*:*:R3*:*) + # Delta 88k system running SVR3 + echo m88k-motorola-sysv3 + exit 0 ;; + XD88*:*:*:*) # Tektronix XD88 system running UTekV (SVR3) + echo m88k-tektronix-sysv3 + exit 0 ;; + Tek43[0-9][0-9]:UTek:*:*) # Tektronix 4300 system running UTek (BSD) + echo m68k-tektronix-bsd + exit 0 ;; + *:IRIX*:*:*) + echo mips-sgi-irix`echo ${UNAME_RELEASE}|sed -e 's/-/_/g'` + exit 0 ;; + ????????:AIX?:[12].1:2) # AIX 2.2.1 or AIX 2.1.1 is RT/PC AIX. + echo romp-ibm-aix # uname -m gives an 8 hex-code CPU id + exit 0 ;; # Note that: echo "'`uname -s`'" gives 'AIX ' + i*86:AIX:*:*) + echo i386-ibm-aix + exit 0 ;; + ia64:AIX:*:*) + if [ -x /usr/bin/oslevel ] ; then + IBM_REV=`/usr/bin/oslevel` + else + IBM_REV=${UNAME_VERSION}.${UNAME_RELEASE} + fi + echo ${UNAME_MACHINE}-ibm-aix${IBM_REV} + exit 0 ;; + *:AIX:2:3) + if grep bos325 /usr/include/stdio.h >/dev/null 2>&1; then + eval $set_cc_for_build + sed 's/^ //' << EOF >$dummy.c + #include + + main() + { + if (!__power_pc()) + exit(1); + puts("powerpc-ibm-aix3.2.5"); + exit(0); + } +EOF + $CC_FOR_BUILD -o $dummy $dummy.c && $dummy && exit 0 + echo rs6000-ibm-aix3.2.5 + elif grep bos324 /usr/include/stdio.h >/dev/null 2>&1; then + echo rs6000-ibm-aix3.2.4 + else + echo rs6000-ibm-aix3.2 + fi + exit 0 ;; + *:AIX:*:[45]) + IBM_CPU_ID=`/usr/sbin/lsdev -C -c processor -S available | sed 1q | awk '{ print $1 }'` + if /usr/sbin/lsattr -El ${IBM_CPU_ID} | grep ' POWER' >/dev/null 2>&1; then + IBM_ARCH=rs6000 + else + IBM_ARCH=powerpc + fi + if [ -x /usr/bin/oslevel ] ; then + IBM_REV=`/usr/bin/oslevel` + else + IBM_REV=${UNAME_VERSION}.${UNAME_RELEASE} + fi + echo ${IBM_ARCH}-ibm-aix${IBM_REV} + exit 0 ;; + *:AIX:*:*) + echo rs6000-ibm-aix + exit 0 ;; + ibmrt:4.4BSD:*|romp-ibm:BSD:*) + echo romp-ibm-bsd4.4 + exit 0 ;; + ibmrt:*BSD:*|romp-ibm:BSD:*) # covers RT/PC BSD and + echo romp-ibm-bsd${UNAME_RELEASE} # 4.3 with uname added to + exit 0 ;; # report: romp-ibm BSD 4.3 + *:BOSX:*:*) + echo rs6000-bull-bosx + exit 0 ;; + DPX/2?00:B.O.S.:*:*) + echo m68k-bull-sysv3 + exit 0 ;; + 9000/[34]??:4.3bsd:1.*:*) + echo m68k-hp-bsd + exit 0 ;; + hp300:4.4BSD:*:* | 9000/[34]??:4.3bsd:2.*:*) + echo m68k-hp-bsd4.4 + exit 0 ;; + 9000/[34678]??:HP-UX:*:*) + HPUX_REV=`echo ${UNAME_RELEASE}|sed -e 's/[^.]*.[0B]*//'` + case "${UNAME_MACHINE}" in + 9000/31? ) HP_ARCH=m68000 ;; + 9000/[34]?? ) HP_ARCH=m68k ;; + 9000/[678][0-9][0-9]) + if [ -x /usr/bin/getconf ]; then + sc_cpu_version=`/usr/bin/getconf SC_CPU_VERSION 2>/dev/null` + sc_kernel_bits=`/usr/bin/getconf SC_KERNEL_BITS 2>/dev/null` + case "${sc_cpu_version}" in + 523) HP_ARCH="hppa1.0" ;; # CPU_PA_RISC1_0 + 528) HP_ARCH="hppa1.1" ;; # CPU_PA_RISC1_1 + 532) # CPU_PA_RISC2_0 + case "${sc_kernel_bits}" in + 32) HP_ARCH="hppa2.0n" ;; + 64) HP_ARCH="hppa2.0w" ;; + '') HP_ARCH="hppa2.0" ;; # HP-UX 10.20 + esac ;; + esac + fi + if [ "${HP_ARCH}" = "" ]; then + eval $set_cc_for_build + sed 's/^ //' << EOF >$dummy.c + + #define _HPUX_SOURCE + #include + #include + + int main () + { + #if defined(_SC_KERNEL_BITS) + long bits = sysconf(_SC_KERNEL_BITS); + #endif + long cpu = sysconf (_SC_CPU_VERSION); + + switch (cpu) + { + case CPU_PA_RISC1_0: puts ("hppa1.0"); break; + case CPU_PA_RISC1_1: puts ("hppa1.1"); break; + case CPU_PA_RISC2_0: + #if defined(_SC_KERNEL_BITS) + switch (bits) + { + case 64: puts ("hppa2.0w"); break; + case 32: puts ("hppa2.0n"); break; + default: puts ("hppa2.0"); break; + } break; + #else /* !defined(_SC_KERNEL_BITS) */ + puts ("hppa2.0"); break; + #endif + default: puts ("hppa1.0"); break; + } + exit (0); + } +EOF + (CCOPTS= $CC_FOR_BUILD -o $dummy $dummy.c 2>/dev/null) && HP_ARCH=`$dummy` + test -z "$HP_ARCH" && HP_ARCH=hppa + fi ;; + esac + if [ ${HP_ARCH} = "hppa2.0w" ] + then + # avoid double evaluation of $set_cc_for_build + test -n "$CC_FOR_BUILD" || eval $set_cc_for_build + if echo __LP64__ | (CCOPTS= $CC_FOR_BUILD -E -) | grep __LP64__ >/dev/null + then + HP_ARCH="hppa2.0w" + else + HP_ARCH="hppa64" + fi + fi + echo ${HP_ARCH}-hp-hpux${HPUX_REV} + exit 0 ;; + ia64:HP-UX:*:*) + HPUX_REV=`echo ${UNAME_RELEASE}|sed -e 's/[^.]*.[0B]*//'` + echo ia64-hp-hpux${HPUX_REV} + exit 0 ;; + 3050*:HI-UX:*:*) + eval $set_cc_for_build + sed 's/^ //' << EOF >$dummy.c + #include + int + main () + { + long cpu = sysconf (_SC_CPU_VERSION); + /* The order matters, because CPU_IS_HP_MC68K erroneously returns + true for CPU_PA_RISC1_0. CPU_IS_PA_RISC returns correct + results, however. */ + if (CPU_IS_PA_RISC (cpu)) + { + switch (cpu) + { + case CPU_PA_RISC1_0: puts ("hppa1.0-hitachi-hiuxwe2"); break; + case CPU_PA_RISC1_1: puts ("hppa1.1-hitachi-hiuxwe2"); break; + case CPU_PA_RISC2_0: puts ("hppa2.0-hitachi-hiuxwe2"); break; + default: puts ("hppa-hitachi-hiuxwe2"); break; + } + } + else if (CPU_IS_HP_MC68K (cpu)) + puts ("m68k-hitachi-hiuxwe2"); + else puts ("unknown-hitachi-hiuxwe2"); + exit (0); + } +EOF + $CC_FOR_BUILD -o $dummy $dummy.c && $dummy && exit 0 + echo unknown-hitachi-hiuxwe2 + exit 0 ;; + 9000/7??:4.3bsd:*:* | 9000/8?[79]:4.3bsd:*:* ) + echo hppa1.1-hp-bsd + exit 0 ;; + 9000/8??:4.3bsd:*:*) + echo hppa1.0-hp-bsd + exit 0 ;; + *9??*:MPE/iX:*:* | *3000*:MPE/iX:*:*) + echo hppa1.0-hp-mpeix + exit 0 ;; + hp7??:OSF1:*:* | hp8?[79]:OSF1:*:* ) + echo hppa1.1-hp-osf + exit 0 ;; + hp8??:OSF1:*:*) + echo hppa1.0-hp-osf + exit 0 ;; + i*86:OSF1:*:*) + if [ -x /usr/sbin/sysversion ] ; then + echo ${UNAME_MACHINE}-unknown-osf1mk + else + echo ${UNAME_MACHINE}-unknown-osf1 + fi + exit 0 ;; + parisc*:Lites*:*:*) + echo hppa1.1-hp-lites + exit 0 ;; + C1*:ConvexOS:*:* | convex:ConvexOS:C1*:*) + echo c1-convex-bsd + exit 0 ;; + C2*:ConvexOS:*:* | convex:ConvexOS:C2*:*) + if getsysinfo -f scalar_acc + then echo c32-convex-bsd + else echo c2-convex-bsd + fi + exit 0 ;; + C34*:ConvexOS:*:* | convex:ConvexOS:C34*:*) + echo c34-convex-bsd + exit 0 ;; + C38*:ConvexOS:*:* | convex:ConvexOS:C38*:*) + echo c38-convex-bsd + exit 0 ;; + C4*:ConvexOS:*:* | convex:ConvexOS:C4*:*) + echo c4-convex-bsd + exit 0 ;; + CRAY*Y-MP:*:*:*) + echo ymp-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' + exit 0 ;; + CRAY*[A-Z]90:*:*:*) + echo ${UNAME_MACHINE}-cray-unicos${UNAME_RELEASE} \ + | sed -e 's/CRAY.*\([A-Z]90\)/\1/' \ + -e y/ABCDEFGHIJKLMNOPQRSTUVWXYZ/abcdefghijklmnopqrstuvwxyz/ \ + -e 's/\.[^.]*$/.X/' + exit 0 ;; + CRAY*TS:*:*:*) + echo t90-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' + exit 0 ;; + CRAY*T3E:*:*:*) + echo alphaev5-cray-unicosmk${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' + exit 0 ;; + CRAY*SV1:*:*:*) + echo sv1-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' + exit 0 ;; + *:UNICOS/mp:*:*) + echo nv1-cray-unicosmp${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' + exit 0 ;; + F30[01]:UNIX_System_V:*:* | F700:UNIX_System_V:*:*) + FUJITSU_PROC=`uname -m | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz'` + FUJITSU_SYS=`uname -p | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz' | sed -e 's/\///'` + FUJITSU_REL=`echo ${UNAME_RELEASE} | sed -e 's/ /_/'` + echo "${FUJITSU_PROC}-fujitsu-${FUJITSU_SYS}${FUJITSU_REL}" + exit 0 ;; + i*86:BSD/386:*:* | i*86:BSD/OS:*:* | *:Ascend\ Embedded/OS:*:*) + echo ${UNAME_MACHINE}-pc-bsdi${UNAME_RELEASE} + exit 0 ;; + sparc*:BSD/OS:*:*) + echo sparc-unknown-bsdi${UNAME_RELEASE} + exit 0 ;; + *:BSD/OS:*:*) + echo ${UNAME_MACHINE}-unknown-bsdi${UNAME_RELEASE} + exit 0 ;; + *:FreeBSD:*:*|*:GNU/FreeBSD:*:*) + # Determine whether the default compiler uses glibc. + eval $set_cc_for_build + sed 's/^ //' << EOF >$dummy.c + #include + #if __GLIBC__ >= 2 + LIBC=gnu + #else + LIBC= + #endif +EOF + eval `$CC_FOR_BUILD -E $dummy.c 2>/dev/null | grep ^LIBC=` + echo ${UNAME_MACHINE}-unknown-freebsd`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'`${LIBC:+-$LIBC} + exit 0 ;; + i*:CYGWIN*:*) + echo ${UNAME_MACHINE}-pc-cygwin + exit 0 ;; + i*:MINGW*:*) + echo ${UNAME_MACHINE}-pc-mingw32 + exit 0 ;; + i*:PW*:*) + echo ${UNAME_MACHINE}-pc-pw32 + exit 0 ;; + x86:Interix*:[34]*) + echo i586-pc-interix${UNAME_RELEASE}|sed -e 's/\..*//' + exit 0 ;; + [345]86:Windows_95:* | [345]86:Windows_98:* | [345]86:Windows_NT:*) + echo i${UNAME_MACHINE}-pc-mks + exit 0 ;; + i*:Windows_NT*:* | Pentium*:Windows_NT*:*) + # How do we know it's Interix rather than the generic POSIX subsystem? + # It also conflicts with pre-2.0 versions of AT&T UWIN. Should we + # UNAME_MACHINE based on the output of uname instead of i386? + echo i586-pc-interix + exit 0 ;; + i*:UWIN*:*) + echo ${UNAME_MACHINE}-pc-uwin + exit 0 ;; + p*:CYGWIN*:*) + echo powerpcle-unknown-cygwin + exit 0 ;; + prep*:SunOS:5.*:*) + echo powerpcle-unknown-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` + exit 0 ;; + *:GNU:*:*) + echo `echo ${UNAME_MACHINE}|sed -e 's,[-/].*$,,'`-unknown-gnu`echo ${UNAME_RELEASE}|sed -e 's,/.*$,,'` + exit 0 ;; + i*86:Minix:*:*) + echo ${UNAME_MACHINE}-pc-minix + exit 0 ;; + arm*:Linux:*:*) + echo ${UNAME_MACHINE}-unknown-linux-gnu + exit 0 ;; + cris:Linux:*:*) + echo cris-axis-linux-gnu + exit 0 ;; + ia64:Linux:*:*) + echo ${UNAME_MACHINE}-${VENDOR:-unknown}-linux-gnu + exit 0 ;; + m68*:Linux:*:*) + echo ${UNAME_MACHINE}-unknown-linux-gnu + exit 0 ;; + mips:Linux:*:*) + eval $set_cc_for_build + sed 's/^ //' << EOF >$dummy.c + #undef CPU + #undef mips + #undef mipsel + #if defined(__MIPSEL__) || defined(__MIPSEL) || defined(_MIPSEL) || defined(MIPSEL) + CPU=mipsel + #else + #if defined(__MIPSEB__) || defined(__MIPSEB) || defined(_MIPSEB) || defined(MIPSEB) + CPU=mips + #else + CPU= + #endif + #endif +EOF + eval `$CC_FOR_BUILD -E $dummy.c 2>/dev/null | grep ^CPU=` + test x"${CPU}" != x && echo "${CPU}-unknown-linux-gnu" && exit 0 + ;; + mips64:Linux:*:*) + eval $set_cc_for_build + sed 's/^ //' << EOF >$dummy.c + #undef CPU + #undef mips64 + #undef mips64el + #if defined(__MIPSEL__) || defined(__MIPSEL) || defined(_MIPSEL) || defined(MIPSEL) + CPU=mips64el + #else + #if defined(__MIPSEB__) || defined(__MIPSEB) || defined(_MIPSEB) || defined(MIPSEB) + CPU=mips64 + #else + CPU= + #endif + #endif +EOF + eval `$CC_FOR_BUILD -E $dummy.c 2>/dev/null | grep ^CPU=` + test x"${CPU}" != x && echo "${CPU}-unknown-linux-gnu" && exit 0 + ;; + ppc:Linux:*:*) + echo powerpc-${VENDOR:-unknown}-linux-gnu + exit 0 ;; + ppc64:Linux:*:*) + echo powerpc64-${VENDOR:-unknown}-linux-gnu + exit 0 ;; + alpha:Linux:*:*) + case `sed -n '/^cpu model/s/^.*: \(.*\)/\1/p' < /proc/cpuinfo` in + EV5) UNAME_MACHINE=alphaev5 ;; + EV56) UNAME_MACHINE=alphaev56 ;; + PCA56) UNAME_MACHINE=alphapca56 ;; + PCA57) UNAME_MACHINE=alphapca56 ;; + EV6) UNAME_MACHINE=alphaev6 ;; + EV67) UNAME_MACHINE=alphaev67 ;; + EV68*) UNAME_MACHINE=alphaev68 ;; + esac + objdump --private-headers /bin/sh | grep ld.so.1 >/dev/null + if test "$?" = 0 ; then LIBC="libc1" ; else LIBC="" ; fi + echo ${UNAME_MACHINE}-unknown-linux-gnu${LIBC} + exit 0 ;; + parisc:Linux:*:* | hppa:Linux:*:*) + # Look for CPU level + case `grep '^cpu[^a-z]*:' /proc/cpuinfo 2>/dev/null | cut -d' ' -f2` in + PA7*) echo hppa1.1-unknown-linux-gnu ;; + PA8*) echo hppa2.0-unknown-linux-gnu ;; + *) echo hppa-unknown-linux-gnu ;; + esac + exit 0 ;; + parisc64:Linux:*:* | hppa64:Linux:*:*) + echo hppa64-unknown-linux-gnu + exit 0 ;; + s390:Linux:*:* | s390x:Linux:*:*) + echo ${UNAME_MACHINE}-${VENDOR:-ibm}-linux-gnu + exit 0 ;; + sh64*:Linux:*:*) + echo ${UNAME_MACHINE}-unknown-linux-gnu + exit 0 ;; + sh*:Linux:*:*) + echo ${UNAME_MACHINE}-unknown-linux-gnu + exit 0 ;; + sparc:Linux:*:* | sparc64:Linux:*:*) + echo ${UNAME_MACHINE}-unknown-linux-gnu + exit 0 ;; + x86_64:Linux:*:*) + echo x86_64-${VENDOR:-unknown}-linux-gnu + exit 0 ;; + i*86:Linux:*:*) + # The BFD linker knows what the default object file format is, so + # first see if it will tell us. cd to the root directory to prevent + # problems with other programs or directories called `ld' in the path. + # Set LC_ALL=C to ensure ld outputs messages in English. + ld_supported_targets=`cd /; LC_ALL=C ld --help 2>&1 \ + | sed -ne '/supported targets:/!d + s/[ ][ ]*/ /g + s/.*supported targets: *// + s/ .*// + p'` + case "$ld_supported_targets" in + elf32-i386) + TENTATIVE="${UNAME_MACHINE}-pc-linux-gnu" + ;; + a.out-i386-linux) + echo "${UNAME_MACHINE}-pc-linux-gnuaout" + exit 0 ;; + coff-i386) + echo "${UNAME_MACHINE}-pc-linux-gnucoff" + exit 0 ;; + "") + # Either a pre-BFD a.out linker (linux-gnuoldld) or + # one that does not give us useful --help. + echo "${UNAME_MACHINE}-pc-linux-gnuoldld" + exit 0 ;; + esac + # Determine whether the default compiler is a.out or elf + eval $set_cc_for_build + sed 's/^ //' << EOF >$dummy.c + #include + #ifdef __ELF__ + # ifdef __GLIBC__ + # if __GLIBC__ >= 2 + LIBC=gnu + # else + LIBC=gnulibc1 + # endif + # else + LIBC=gnulibc1 + # endif + #else + #ifdef __INTEL_COMPILER + LIBC=gnu + #else + LIBC=gnuaout + #endif + #endif +EOF + eval `$CC_FOR_BUILD -E $dummy.c 2>/dev/null | grep ^LIBC=` + test x"${LIBC}" != x && echo "${UNAME_MACHINE}-${VENDOR:-pc}-linux-${LIBC}" && exit 0 + test x"${TENTATIVE}" != x && echo "${TENTATIVE}" && exit 0 + ;; + i*86:DYNIX/ptx:4*:*) + # ptx 4.0 does uname -s correctly, with DYNIX/ptx in there. + # earlier versions are messed up and put the nodename in both + # sysname and nodename. + echo i386-sequent-sysv4 + exit 0 ;; + i*86:UNIX_SV:4.2MP:2.*) + # Unixware is an offshoot of SVR4, but it has its own version + # number series starting with 2... + # I am not positive that other SVR4 systems won't match this, + # I just have to hope. -- rms. + # Use sysv4.2uw... so that sysv4* matches it. + echo ${UNAME_MACHINE}-pc-sysv4.2uw${UNAME_VERSION} + exit 0 ;; + i*86:OS/2:*:*) + # If we were able to find `uname', then EMX Unix compatibility + # is probably installed. + echo ${UNAME_MACHINE}-pc-os2-emx + exit 0 ;; + i*86:XTS-300:*:STOP) + echo ${UNAME_MACHINE}-unknown-stop + exit 0 ;; + i*86:atheos:*:*) + echo ${UNAME_MACHINE}-unknown-atheos + exit 0 ;; + i*86:LynxOS:2.*:* | i*86:LynxOS:3.[01]*:* | i*86:LynxOS:4.0*:*) + echo i386-unknown-lynxos${UNAME_RELEASE} + exit 0 ;; + i*86:*DOS:*:*) + echo ${UNAME_MACHINE}-pc-msdosdjgpp + exit 0 ;; + i*86:*:4.*:* | i*86:SYSTEM_V:4.*:*) + UNAME_REL=`echo ${UNAME_RELEASE} | sed 's/\/MP$//'` + if grep Novell /usr/include/link.h >/dev/null 2>/dev/null; then + echo ${UNAME_MACHINE}-univel-sysv${UNAME_REL} + else + echo ${UNAME_MACHINE}-pc-sysv${UNAME_REL} + fi + exit 0 ;; + i*86:*:5:[78]*) + case `/bin/uname -X | grep "^Machine"` in + *486*) UNAME_MACHINE=i486 ;; + *Pentium) UNAME_MACHINE=i586 ;; + *Pent*|*Celeron) UNAME_MACHINE=i686 ;; + esac + echo ${UNAME_MACHINE}-unknown-sysv${UNAME_RELEASE}${UNAME_SYSTEM}${UNAME_VERSION} + exit 0 ;; + i*86:*:3.2:*) + if test -f /usr/options/cb.name; then + UNAME_REL=`sed -n 's/.*Version //p' /dev/null >/dev/null ; then + UNAME_REL=`(/bin/uname -X|grep Release|sed -e 's/.*= //')` + (/bin/uname -X|grep i80486 >/dev/null) && UNAME_MACHINE=i486 + (/bin/uname -X|grep '^Machine.*Pentium' >/dev/null) \ + && UNAME_MACHINE=i586 + (/bin/uname -X|grep '^Machine.*Pent *II' >/dev/null) \ + && UNAME_MACHINE=i686 + (/bin/uname -X|grep '^Machine.*Pentium Pro' >/dev/null) \ + && UNAME_MACHINE=i686 + echo ${UNAME_MACHINE}-pc-sco$UNAME_REL + else + echo ${UNAME_MACHINE}-pc-sysv32 + fi + exit 0 ;; + pc:*:*:*) + # Left here for compatibility: + # uname -m prints for DJGPP always 'pc', but it prints nothing about + # the processor, so we play safe by assuming i386. + echo i386-pc-msdosdjgpp + exit 0 ;; + Intel:Mach:3*:*) + echo i386-pc-mach3 + exit 0 ;; + paragon:*:*:*) + echo i860-intel-osf1 + exit 0 ;; + i860:*:4.*:*) # i860-SVR4 + if grep Stardent /usr/include/sys/uadmin.h >/dev/null 2>&1 ; then + echo i860-stardent-sysv${UNAME_RELEASE} # Stardent Vistra i860-SVR4 + else # Add other i860-SVR4 vendors below as they are discovered. + echo i860-unknown-sysv${UNAME_RELEASE} # Unknown i860-SVR4 + fi + exit 0 ;; + mini*:CTIX:SYS*5:*) + # "miniframe" + echo m68010-convergent-sysv + exit 0 ;; + mc68k:UNIX:SYSTEM5:3.51m) + echo m68k-convergent-sysv + exit 0 ;; + M680?0:D-NIX:5.3:*) + echo m68k-diab-dnix + exit 0 ;; + M68*:*:R3V[567]*:*) + test -r /sysV68 && echo 'm68k-motorola-sysv' && exit 0 ;; + 3[34]??:*:4.0:3.0 | 3[34]??A:*:4.0:3.0 | 3[34]??,*:*:4.0:3.0 | 3[34]??/*:*:4.0:3.0 | 4400:*:4.0:3.0 | 4850:*:4.0:3.0 | SKA40:*:4.0:3.0 | SDS2:*:4.0:3.0 | SHG2:*:4.0:3.0) + OS_REL='' + test -r /etc/.relid \ + && OS_REL=.`sed -n 's/[^ ]* [^ ]* \([0-9][0-9]\).*/\1/p' < /etc/.relid` + /bin/uname -p 2>/dev/null | grep 86 >/dev/null \ + && echo i486-ncr-sysv4.3${OS_REL} && exit 0 + /bin/uname -p 2>/dev/null | /bin/grep entium >/dev/null \ + && echo i586-ncr-sysv4.3${OS_REL} && exit 0 ;; + 3[34]??:*:4.0:* | 3[34]??,*:*:4.0:*) + /bin/uname -p 2>/dev/null | grep 86 >/dev/null \ + && echo i486-ncr-sysv4 && exit 0 ;; + m68*:LynxOS:2.*:* | m68*:LynxOS:3.0*:*) + echo m68k-unknown-lynxos${UNAME_RELEASE} + exit 0 ;; + mc68030:UNIX_System_V:4.*:*) + echo m68k-atari-sysv4 + exit 0 ;; + TSUNAMI:LynxOS:2.*:*) + echo sparc-unknown-lynxos${UNAME_RELEASE} + exit 0 ;; + rs6000:LynxOS:2.*:*) + echo rs6000-unknown-lynxos${UNAME_RELEASE} + exit 0 ;; + PowerPC:LynxOS:2.*:* | PowerPC:LynxOS:3.[01]*:* | PowerPC:LynxOS:4.0*:*) + echo powerpc-unknown-lynxos${UNAME_RELEASE} + exit 0 ;; + SM[BE]S:UNIX_SV:*:*) + echo mips-dde-sysv${UNAME_RELEASE} + exit 0 ;; + RM*:ReliantUNIX-*:*:*) + echo mips-sni-sysv4 + exit 0 ;; + RM*:SINIX-*:*:*) + echo mips-sni-sysv4 + exit 0 ;; + *:SINIX-*:*:*) + if uname -p 2>/dev/null >/dev/null ; then + UNAME_MACHINE=`(uname -p) 2>/dev/null` + echo ${UNAME_MACHINE}-sni-sysv4 + else + echo ns32k-sni-sysv + fi + exit 0 ;; + PENTIUM:*:4.0*:*) # Unisys `ClearPath HMP IX 4000' SVR4/MP effort + # says + echo i586-unisys-sysv4 + exit 0 ;; + *:UNIX_System_V:4*:FTX*) + # From Gerald Hewes . + # How about differentiating between stratus architectures? -djm + echo hppa1.1-stratus-sysv4 + exit 0 ;; + *:*:*:FTX*) + # From seanf@swdc.stratus.com. + echo i860-stratus-sysv4 + exit 0 ;; + *:VOS:*:*) + # From Paul.Green@stratus.com. + echo hppa1.1-stratus-vos + exit 0 ;; + mc68*:A/UX:*:*) + echo m68k-apple-aux${UNAME_RELEASE} + exit 0 ;; + news*:NEWS-OS:6*:*) + echo mips-sony-newsos6 + exit 0 ;; + R[34]000:*System_V*:*:* | R4000:UNIX_SYSV:*:* | R*000:UNIX_SV:*:*) + if [ -d /usr/nec ]; then + echo mips-nec-sysv${UNAME_RELEASE} + else + echo mips-unknown-sysv${UNAME_RELEASE} + fi + exit 0 ;; + BeBox:BeOS:*:*) # BeOS running on hardware made by Be, PPC only. + echo powerpc-be-beos + exit 0 ;; + BeMac:BeOS:*:*) # BeOS running on Mac or Mac clone, PPC only. + echo powerpc-apple-beos + exit 0 ;; + BePC:BeOS:*:*) # BeOS running on Intel PC compatible. + echo i586-pc-beos + exit 0 ;; + SX-4:SUPER-UX:*:*) + echo sx4-nec-superux${UNAME_RELEASE} + exit 0 ;; + SX-5:SUPER-UX:*:*) + echo sx5-nec-superux${UNAME_RELEASE} + exit 0 ;; + SX-6:SUPER-UX:*:*) + echo sx6-nec-superux${UNAME_RELEASE} + exit 0 ;; + Power*:Rhapsody:*:*) + echo powerpc-apple-rhapsody${UNAME_RELEASE} + exit 0 ;; + *:Rhapsody:*:*) + echo ${UNAME_MACHINE}-apple-rhapsody${UNAME_RELEASE} + exit 0 ;; + *:Darwin:*:*) + case `uname -p` in + *86) UNAME_PROCESSOR=i686 ;; + powerpc) UNAME_PROCESSOR=powerpc ;; + esac + echo ${UNAME_PROCESSOR}-apple-darwin${UNAME_RELEASE} + exit 0 ;; + *:procnto*:*:* | *:QNX:[0123456789]*:*) + UNAME_PROCESSOR=`uname -p` + if test "$UNAME_PROCESSOR" = "x86"; then + UNAME_PROCESSOR=i386 + UNAME_MACHINE=pc + fi + echo ${UNAME_PROCESSOR}-${UNAME_MACHINE}-nto-qnx${UNAME_RELEASE} + exit 0 ;; + *:QNX:*:4*) + echo i386-pc-qnx + exit 0 ;; + NSR-[DGKLNPTVW]:NONSTOP_KERNEL:*:*) + echo nsr-tandem-nsk${UNAME_RELEASE} + exit 0 ;; + *:NonStop-UX:*:*) + echo mips-compaq-nonstopux + exit 0 ;; + BS2000:POSIX*:*:*) + echo bs2000-siemens-sysv + exit 0 ;; + DS/*:UNIX_System_V:*:*) + echo ${UNAME_MACHINE}-${UNAME_SYSTEM}-${UNAME_RELEASE} + exit 0 ;; + *:Plan9:*:*) + # "uname -m" is not consistent, so use $cputype instead. 386 + # is converted to i386 for consistency with other x86 + # operating systems. + if test "$cputype" = "386"; then + UNAME_MACHINE=i386 + else + UNAME_MACHINE="$cputype" + fi + echo ${UNAME_MACHINE}-unknown-plan9 + exit 0 ;; + *:TOPS-10:*:*) + echo pdp10-unknown-tops10 + exit 0 ;; + *:TENEX:*:*) + echo pdp10-unknown-tenex + exit 0 ;; + KS10:TOPS-20:*:* | KL10:TOPS-20:*:* | TYPE4:TOPS-20:*:*) + echo pdp10-dec-tops20 + exit 0 ;; + XKL-1:TOPS-20:*:* | TYPE5:TOPS-20:*:*) + echo pdp10-xkl-tops20 + exit 0 ;; + *:TOPS-20:*:*) + echo pdp10-unknown-tops20 + exit 0 ;; + *:ITS:*:*) + echo pdp10-unknown-its + exit 0 ;; + SEI:*:*:SEIUX) + echo mips-sei-seiux${UNAME_RELEASE} + exit 0 ;; +esac + +#echo '(No uname command or uname output not recognized.)' 1>&2 +#echo "${UNAME_MACHINE}:${UNAME_SYSTEM}:${UNAME_RELEASE}:${UNAME_VERSION}" 1>&2 + +eval $set_cc_for_build +cat >$dummy.c < +# include +#endif +main () +{ +#if defined (sony) +#if defined (MIPSEB) + /* BFD wants "bsd" instead of "newsos". Perhaps BFD should be changed, + I don't know.... */ + printf ("mips-sony-bsd\n"); exit (0); +#else +#include + printf ("m68k-sony-newsos%s\n", +#ifdef NEWSOS4 + "4" +#else + "" +#endif + ); exit (0); +#endif +#endif + +#if defined (__arm) && defined (__acorn) && defined (__unix) + printf ("arm-acorn-riscix"); exit (0); +#endif + +#if defined (hp300) && !defined (hpux) + printf ("m68k-hp-bsd\n"); exit (0); +#endif + +#if defined (NeXT) +#if !defined (__ARCHITECTURE__) +#define __ARCHITECTURE__ "m68k" +#endif + int version; + version=`(hostinfo | sed -n 's/.*NeXT Mach \([0-9]*\).*/\1/p') 2>/dev/null`; + if (version < 4) + printf ("%s-next-nextstep%d\n", __ARCHITECTURE__, version); + else + printf ("%s-next-openstep%d\n", __ARCHITECTURE__, version); + exit (0); +#endif + +#if defined (MULTIMAX) || defined (n16) +#if defined (UMAXV) + printf ("ns32k-encore-sysv\n"); exit (0); +#else +#if defined (CMU) + printf ("ns32k-encore-mach\n"); exit (0); +#else + printf ("ns32k-encore-bsd\n"); exit (0); +#endif +#endif +#endif + +#if defined (__386BSD__) + printf ("i386-pc-bsd\n"); exit (0); +#endif + +#if defined (sequent) +#if defined (i386) + printf ("i386-sequent-dynix\n"); exit (0); +#endif +#if defined (ns32000) + printf ("ns32k-sequent-dynix\n"); exit (0); +#endif +#endif + +#if defined (_SEQUENT_) + struct utsname un; + + uname(&un); + + if (strncmp(un.version, "V2", 2) == 0) { + printf ("i386-sequent-ptx2\n"); exit (0); + } + if (strncmp(un.version, "V1", 2) == 0) { /* XXX is V1 correct? */ + printf ("i386-sequent-ptx1\n"); exit (0); + } + printf ("i386-sequent-ptx\n"); exit (0); + +#endif + +#if defined (vax) +# if !defined (ultrix) +# include +# if defined (BSD) +# if BSD == 43 + printf ("vax-dec-bsd4.3\n"); exit (0); +# else +# if BSD == 199006 + printf ("vax-dec-bsd4.3reno\n"); exit (0); +# else + printf ("vax-dec-bsd\n"); exit (0); +# endif +# endif +# else + printf ("vax-dec-bsd\n"); exit (0); +# endif +# else + printf ("vax-dec-ultrix\n"); exit (0); +# endif +#endif + +#if defined (alliant) && defined (i860) + printf ("i860-alliant-bsd\n"); exit (0); +#endif + + exit (1); +} +EOF + +$CC_FOR_BUILD -o $dummy $dummy.c 2>/dev/null && $dummy && exit 0 + +# Apollos put the system type in the environment. + +test -d /usr/apollo && { echo ${ISP}-apollo-${SYSTYPE}; exit 0; } + +# Convex versions that predate uname can use getsysinfo(1) + +if [ -x /usr/convex/getsysinfo ] +then + case `getsysinfo -f cpu_type` in + c1*) + echo c1-convex-bsd + exit 0 ;; + c2*) + if getsysinfo -f scalar_acc + then echo c32-convex-bsd + else echo c2-convex-bsd + fi + exit 0 ;; + c34*) + echo c34-convex-bsd + exit 0 ;; + c38*) + echo c38-convex-bsd + exit 0 ;; + c4*) + echo c4-convex-bsd + exit 0 ;; + esac +fi + +cat >&2 < in order to provide the needed +information to handle your system. + +config.guess timestamp = $timestamp + +uname -m = `(uname -m) 2>/dev/null || echo unknown` +uname -r = `(uname -r) 2>/dev/null || echo unknown` +uname -s = `(uname -s) 2>/dev/null || echo unknown` +uname -v = `(uname -v) 2>/dev/null || echo unknown` + +/usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null` +/bin/uname -X = `(/bin/uname -X) 2>/dev/null` + +hostinfo = `(hostinfo) 2>/dev/null` +/bin/universe = `(/bin/universe) 2>/dev/null` +/usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null` +/bin/arch = `(/bin/arch) 2>/dev/null` +/usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null` +/usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null` + +UNAME_MACHINE = ${UNAME_MACHINE} +UNAME_RELEASE = ${UNAME_RELEASE} +UNAME_SYSTEM = ${UNAME_SYSTEM} +UNAME_VERSION = ${UNAME_VERSION} +EOF + +exit 1 + +# Local variables: +# eval: (add-hook 'write-file-hooks 'time-stamp) +# time-stamp-start: "timestamp='" +# time-stamp-format: "%:y-%02m-%02d" +# time-stamp-end: "'" +# End: diff --git a/config/config.sub b/config/config.sub new file mode 100755 index 0000000..6b2ff9f --- /dev/null +++ b/config/config.sub @@ -0,0 +1,1500 @@ +#! /bin/sh +# Configuration validation subroutine script. +# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, +# 2000, 2001, 2002, 2003 Free Software Foundation, Inc. + +timestamp='2003-06-18' + +# This file is (in principle) common to ALL GNU software. +# The presence of a machine in this file suggests that SOME GNU software +# can handle that machine. It does not imply ALL GNU software can. +# +# 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. + +# As a special exception to the GNU General Public License, if you +# distribute this file as part of a program that contains a +# configuration script generated by Autoconf, you may include it under +# the same distribution terms that you use for the rest of that program. + +# Please send patches to . Submit a context +# diff and a properly formatted ChangeLog entry. +# +# Configuration subroutine to validate and canonicalize a configuration type. +# Supply the specified configuration type as an argument. +# If it is invalid, we print an error message on stderr and exit with code 1. +# Otherwise, we print the canonical config type on stdout and succeed. + +# This file is supposed to be the same for all GNU packages +# and recognize all the CPU types, system types and aliases +# that are meaningful with *any* GNU software. +# Each package is responsible for reporting which valid configurations +# it does not support. The user should be able to distinguish +# a failure to support a valid configuration from a meaningless +# configuration. + +# The goal of this file is to map all the various variations of a given +# machine specification into a single specification in the form: +# CPU_TYPE-MANUFACTURER-OPERATING_SYSTEM +# or in some cases, the newer four-part form: +# CPU_TYPE-MANUFACTURER-KERNEL-OPERATING_SYSTEM +# It is wrong to echo any other type of specification. + +me=`echo "$0" | sed -e 's,.*/,,'` + +usage="\ +Usage: $0 [OPTION] CPU-MFR-OPSYS + $0 [OPTION] ALIAS + +Canonicalize a configuration name. + +Operation modes: + -h, --help print this help, then exit + -t, --time-stamp print date of last modification, then exit + -v, --version print version number, then exit + +Report bugs and patches to ." + +version="\ +GNU config.sub ($timestamp) + +Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001 +Free Software Foundation, Inc. + +This is free software; see the source for copying conditions. There is NO +warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE." + +help=" +Try \`$me --help' for more information." + +# Parse command line +while test $# -gt 0 ; do + case $1 in + --time-stamp | --time* | -t ) + echo "$timestamp" ; exit 0 ;; + --version | -v ) + echo "$version" ; exit 0 ;; + --help | --h* | -h ) + echo "$usage"; exit 0 ;; + -- ) # Stop option processing + shift; break ;; + - ) # Use stdin as input. + break ;; + -* ) + echo "$me: invalid option $1$help" + exit 1 ;; + + *local*) + # First pass through any local machine types. + echo $1 + exit 0;; + + * ) + break ;; + esac +done + +case $# in + 0) echo "$me: missing argument$help" >&2 + exit 1;; + 1) ;; + *) echo "$me: too many arguments$help" >&2 + exit 1;; +esac + +# Separate what the user gave into CPU-COMPANY and OS or KERNEL-OS (if any). +# Here we must recognize all the valid KERNEL-OS combinations. +maybe_os=`echo $1 | sed 's/^\(.*\)-\([^-]*-[^-]*\)$/\2/'` +case $maybe_os in + nto-qnx* | linux-gnu* | freebsd*-gnu* | netbsd*-gnu* | storm-chaos* | os2-emx* | rtmk-nova*) + os=-$maybe_os + basic_machine=`echo $1 | sed 's/^\(.*\)-\([^-]*-[^-]*\)$/\1/'` + ;; + *) + basic_machine=`echo $1 | sed 's/-[^-]*$//'` + if [ $basic_machine != $1 ] + then os=`echo $1 | sed 's/.*-/-/'` + else os=; fi + ;; +esac + +### Let's recognize common machines as not being operating systems so +### that things like config.sub decstation-3100 work. We also +### recognize some manufacturers as not being operating systems, so we +### can provide default operating systems below. +case $os in + -sun*os*) + # Prevent following clause from handling this invalid input. + ;; + -dec* | -mips* | -sequent* | -encore* | -pc532* | -sgi* | -sony* | \ + -att* | -7300* | -3300* | -delta* | -motorola* | -sun[234]* | \ + -unicom* | -ibm* | -next | -hp | -isi* | -apollo | -altos* | \ + -convergent* | -ncr* | -news | -32* | -3600* | -3100* | -hitachi* |\ + -c[123]* | -convex* | -sun | -crds | -omron* | -dg | -ultra | -tti* | \ + -harris | -dolphin | -highlevel | -gould | -cbm | -ns | -masscomp | \ + -apple | -axis) + os= + basic_machine=$1 + ;; + -sim | -cisco | -oki | -wec | -winbond) + os= + basic_machine=$1 + ;; + -scout) + ;; + -wrs) + os=-vxworks + basic_machine=$1 + ;; + -chorusos*) + os=-chorusos + basic_machine=$1 + ;; + -chorusrdb) + os=-chorusrdb + basic_machine=$1 + ;; + -hiux*) + os=-hiuxwe2 + ;; + -sco5) + os=-sco3.2v5 + basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` + ;; + -sco4) + os=-sco3.2v4 + basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` + ;; + -sco3.2.[4-9]*) + os=`echo $os | sed -e 's/sco3.2./sco3.2v/'` + basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` + ;; + -sco3.2v[4-9]*) + # Don't forget version if it is 3.2v4 or newer. + basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` + ;; + -sco*) + os=-sco3.2v2 + basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` + ;; + -udk*) + basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` + ;; + -isc) + os=-isc2.2 + basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` + ;; + -clix*) + basic_machine=clipper-intergraph + ;; + -isc*) + basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` + ;; + -lynx*) + os=-lynxos + ;; + -ptx*) + basic_machine=`echo $1 | sed -e 's/86-.*/86-sequent/'` + ;; + -windowsnt*) + os=`echo $os | sed -e 's/windowsnt/winnt/'` + ;; + -psos*) + os=-psos + ;; + -mint | -mint[0-9]*) + basic_machine=m68k-atari + os=-mint + ;; +esac + +# Decode aliases for certain CPU-COMPANY combinations. +case $basic_machine in + # Recognize the basic CPU types without company name. + # Some are omitted here because they have special meanings below. + 1750a | 580 \ + | a29k \ + | alpha | alphaev[4-8] | alphaev56 | alphaev6[78] | alphapca5[67] \ + | alpha64 | alpha64ev[4-8] | alpha64ev56 | alpha64ev6[78] | alpha64pca5[67] \ + | arc | arm | arm[bl]e | arme[lb] | armv[2345] | armv[345][lb] | avr \ + | c4x | clipper \ + | d10v | d30v | dlx | dsp16xx \ + | fr30 | frv \ + | h8300 | h8500 | hppa | hppa1.[01] | hppa2.0 | hppa2.0[nw] | hppa64 \ + | i370 | i860 | i960 | ia64 \ + | ip2k \ + | m32r | m68000 | m68k | m88k | mcore \ + | mips | mipsbe | mipseb | mipsel | mipsle \ + | mips16 \ + | mips64 | mips64el \ + | mips64vr | mips64vrel \ + | mips64orion | mips64orionel \ + | mips64vr4100 | mips64vr4100el \ + | mips64vr4300 | mips64vr4300el \ + | mips64vr5000 | mips64vr5000el \ + | mipsisa32 | mipsisa32el \ + | mipsisa32r2 | mipsisa32r2el \ + | mipsisa64 | mipsisa64el \ + | mipsisa64sb1 | mipsisa64sb1el \ + | mipsisa64sr71k | mipsisa64sr71kel \ + | mipstx39 | mipstx39el \ + | mn10200 | mn10300 \ + | msp430 \ + | ns16k | ns32k \ + | openrisc | or32 \ + | pdp10 | pdp11 | pj | pjl \ + | powerpc | powerpc64 | powerpc64le | powerpcle | ppcbe \ + | pyramid \ + | s390 | s390x \ + | sh | sh[1234] | sh[23]e | sh[34]eb | shbe | shle | sh[1234]le | sh3ele \ + | sh64 | sh64le \ + | sparc | sparc64 | sparc86x | sparclet | sparclite | sparcv8 | sparcv9 | sparcv9b \ + | strongarm \ + | tahoe | thumb | tic4x | tic80 | tron \ + | v850 | v850e \ + | we32k \ + | x86 | xscale | xstormy16 | xtensa \ + | z8k) + basic_machine=$basic_machine-unknown + ;; + m6811 | m68hc11 | m6812 | m68hc12) + # Motorola 68HC11/12. + basic_machine=$basic_machine-unknown + os=-none + ;; + m88110 | m680[12346]0 | m683?2 | m68360 | m5200 | v70 | w65 | z8k) + ;; + + # We use `pc' rather than `unknown' + # because (1) that's what they normally are, and + # (2) the word "unknown" tends to confuse beginning users. + i*86 | x86_64) + basic_machine=$basic_machine-pc + ;; + # Object if more than one company name word. + *-*-*) + echo Invalid configuration \`$1\': machine \`$basic_machine\' not recognized 1>&2 + exit 1 + ;; + # Recognize the basic CPU types with company name. + 580-* \ + | a29k-* \ + | alpha-* | alphaev[4-8]-* | alphaev56-* | alphaev6[78]-* \ + | alpha64-* | alpha64ev[4-8]-* | alpha64ev56-* | alpha64ev6[78]-* \ + | alphapca5[67]-* | alpha64pca5[67]-* | arc-* \ + | arm-* | armbe-* | armle-* | armeb-* | armv*-* \ + | avr-* \ + | bs2000-* \ + | c[123]* | c30-* | [cjt]90-* | c4x-* | c54x-* | c55x-* | c6x-* \ + | clipper-* | cydra-* \ + | d10v-* | d30v-* | dlx-* \ + | elxsi-* \ + | f30[01]-* | f700-* | fr30-* | frv-* | fx80-* \ + | h8300-* | h8500-* \ + | hppa-* | hppa1.[01]-* | hppa2.0-* | hppa2.0[nw]-* | hppa64-* \ + | i*86-* | i860-* | i960-* | ia64-* \ + | ip2k-* \ + | m32r-* \ + | m68000-* | m680[012346]0-* | m68360-* | m683?2-* | m68k-* \ + | m88110-* | m88k-* | mcore-* \ + | mips-* | mipsbe-* | mipseb-* | mipsel-* | mipsle-* \ + | mips16-* \ + | mips64-* | mips64el-* \ + | mips64vr-* | mips64vrel-* \ + | mips64orion-* | mips64orionel-* \ + | mips64vr4100-* | mips64vr4100el-* \ + | mips64vr4300-* | mips64vr4300el-* \ + | mips64vr5000-* | mips64vr5000el-* \ + | mipsisa32-* | mipsisa32el-* \ + | mipsisa32r2-* | mipsisa32r2el-* \ + | mipsisa64-* | mipsisa64el-* \ + | mipsisa64sb1-* | mipsisa64sb1el-* \ + | mipsisa64sr71k-* | mipsisa64sr71kel-* \ + | mipstx39-* | mipstx39el-* \ + | msp430-* \ + | none-* | np1-* | nv1-* | ns16k-* | ns32k-* \ + | orion-* \ + | pdp10-* | pdp11-* | pj-* | pjl-* | pn-* | power-* \ + | powerpc-* | powerpc64-* | powerpc64le-* | powerpcle-* | ppcbe-* \ + | pyramid-* \ + | romp-* | rs6000-* \ + | s390-* | s390x-* \ + | sh-* | sh[1234]-* | sh[23]e-* | sh[34]eb-* | shbe-* \ + | shle-* | sh[1234]le-* | sh3ele-* | sh64-* | sh64le-* \ + | sparc-* | sparc64-* | sparc86x-* | sparclet-* | sparclite-* \ + | sparcv8-* | sparcv9-* | sparcv9b-* | strongarm-* | sv1-* | sx?-* \ + | tahoe-* | thumb-* \ + | tic30-* | tic4x-* | tic54x-* | tic55x-* | tic6x-* | tic80-* \ + | tron-* \ + | v850-* | v850e-* | vax-* \ + | we32k-* \ + | x86-* | x86_64-* | xps100-* | xscale-* | xstormy16-* \ + | xtensa-* \ + | ymp-* \ + | z8k-*) + ;; + # Recognize the various machine names and aliases which stand + # for a CPU type and a company and sometimes even an OS. + 386bsd) + basic_machine=i386-unknown + os=-bsd + ;; + 3b1 | 7300 | 7300-att | att-7300 | pc7300 | safari | unixpc) + basic_machine=m68000-att + ;; + 3b*) + basic_machine=we32k-att + ;; + a29khif) + basic_machine=a29k-amd + os=-udi + ;; + adobe68k) + basic_machine=m68010-adobe + os=-scout + ;; + alliant | fx80) + basic_machine=fx80-alliant + ;; + altos | altos3068) + basic_machine=m68k-altos + ;; + am29k) + basic_machine=a29k-none + os=-bsd + ;; + amd64) + basic_machine=x86_64-pc + ;; + amdahl) + basic_machine=580-amdahl + os=-sysv + ;; + amiga | amiga-*) + basic_machine=m68k-unknown + ;; + amigaos | amigados) + basic_machine=m68k-unknown + os=-amigaos + ;; + amigaunix | amix) + basic_machine=m68k-unknown + os=-sysv4 + ;; + apollo68) + basic_machine=m68k-apollo + os=-sysv + ;; + apollo68bsd) + basic_machine=m68k-apollo + os=-bsd + ;; + aux) + basic_machine=m68k-apple + os=-aux + ;; + balance) + basic_machine=ns32k-sequent + os=-dynix + ;; + c90) + basic_machine=c90-cray + os=-unicos + ;; + convex-c1) + basic_machine=c1-convex + os=-bsd + ;; + convex-c2) + basic_machine=c2-convex + os=-bsd + ;; + convex-c32) + basic_machine=c32-convex + os=-bsd + ;; + convex-c34) + basic_machine=c34-convex + os=-bsd + ;; + convex-c38) + basic_machine=c38-convex + os=-bsd + ;; + cray | j90) + basic_machine=j90-cray + os=-unicos + ;; + crds | unos) + basic_machine=m68k-crds + ;; + cris | cris-* | etrax*) + basic_machine=cris-axis + ;; + da30 | da30-*) + basic_machine=m68k-da30 + ;; + decstation | decstation-3100 | pmax | pmax-* | pmin | dec3100 | decstatn) + basic_machine=mips-dec + ;; + decsystem10* | dec10*) + basic_machine=pdp10-dec + os=-tops10 + ;; + decsystem20* | dec20*) + basic_machine=pdp10-dec + os=-tops20 + ;; + delta | 3300 | motorola-3300 | motorola-delta \ + | 3300-motorola | delta-motorola) + basic_machine=m68k-motorola + ;; + delta88) + basic_machine=m88k-motorola + os=-sysv3 + ;; + dpx20 | dpx20-*) + basic_machine=rs6000-bull + os=-bosx + ;; + dpx2* | dpx2*-bull) + basic_machine=m68k-bull + os=-sysv3 + ;; + ebmon29k) + basic_machine=a29k-amd + os=-ebmon + ;; + elxsi) + basic_machine=elxsi-elxsi + os=-bsd + ;; + encore | umax | mmax) + basic_machine=ns32k-encore + ;; + es1800 | OSE68k | ose68k | ose | OSE) + basic_machine=m68k-ericsson + os=-ose + ;; + fx2800) + basic_machine=i860-alliant + ;; + genix) + basic_machine=ns32k-ns + ;; + gmicro) + basic_machine=tron-gmicro + os=-sysv + ;; + go32) + basic_machine=i386-pc + os=-go32 + ;; + h3050r* | hiux*) + basic_machine=hppa1.1-hitachi + os=-hiuxwe2 + ;; + h8300hms) + basic_machine=h8300-hitachi + os=-hms + ;; + h8300xray) + basic_machine=h8300-hitachi + os=-xray + ;; + h8500hms) + basic_machine=h8500-hitachi + os=-hms + ;; + harris) + basic_machine=m88k-harris + os=-sysv3 + ;; + hp300-*) + basic_machine=m68k-hp + ;; + hp300bsd) + basic_machine=m68k-hp + os=-bsd + ;; + hp300hpux) + basic_machine=m68k-hp + os=-hpux + ;; + hp3k9[0-9][0-9] | hp9[0-9][0-9]) + basic_machine=hppa1.0-hp + ;; + hp9k2[0-9][0-9] | hp9k31[0-9]) + basic_machine=m68000-hp + ;; + hp9k3[2-9][0-9]) + basic_machine=m68k-hp + ;; + hp9k6[0-9][0-9] | hp6[0-9][0-9]) + basic_machine=hppa1.0-hp + ;; + hp9k7[0-79][0-9] | hp7[0-79][0-9]) + basic_machine=hppa1.1-hp + ;; + hp9k78[0-9] | hp78[0-9]) + # FIXME: really hppa2.0-hp + basic_machine=hppa1.1-hp + ;; + hp9k8[67]1 | hp8[67]1 | hp9k80[24] | hp80[24] | hp9k8[78]9 | hp8[78]9 | hp9k893 | hp893) + # FIXME: really hppa2.0-hp + basic_machine=hppa1.1-hp + ;; + hp9k8[0-9][13679] | hp8[0-9][13679]) + basic_machine=hppa1.1-hp + ;; + hp9k8[0-9][0-9] | hp8[0-9][0-9]) + basic_machine=hppa1.0-hp + ;; + hppa-next) + os=-nextstep3 + ;; + hppaosf) + basic_machine=hppa1.1-hp + os=-osf + ;; + hppro) + basic_machine=hppa1.1-hp + os=-proelf + ;; + i370-ibm* | ibm*) + basic_machine=i370-ibm + ;; +# I'm not sure what "Sysv32" means. Should this be sysv3.2? + i*86v32) + basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'` + os=-sysv32 + ;; + i*86v4*) + basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'` + os=-sysv4 + ;; + i*86v) + basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'` + os=-sysv + ;; + i*86sol2) + basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'` + os=-solaris2 + ;; + i386mach) + basic_machine=i386-mach + os=-mach + ;; + i386-vsta | vsta) + basic_machine=i386-unknown + os=-vsta + ;; + iris | iris4d) + basic_machine=mips-sgi + case $os in + -irix*) + ;; + *) + os=-irix4 + ;; + esac + ;; + isi68 | isi) + basic_machine=m68k-isi + os=-sysv + ;; + m88k-omron*) + basic_machine=m88k-omron + ;; + magnum | m3230) + basic_machine=mips-mips + os=-sysv + ;; + merlin) + basic_machine=ns32k-utek + os=-sysv + ;; + mingw32) + basic_machine=i386-pc + os=-mingw32 + ;; + miniframe) + basic_machine=m68000-convergent + ;; + *mint | -mint[0-9]* | *MiNT | *MiNT[0-9]*) + basic_machine=m68k-atari + os=-mint + ;; + mips3*-*) + basic_machine=`echo $basic_machine | sed -e 's/mips3/mips64/'` + ;; + mips3*) + basic_machine=`echo $basic_machine | sed -e 's/mips3/mips64/'`-unknown + ;; + mmix*) + basic_machine=mmix-knuth + os=-mmixware + ;; + monitor) + basic_machine=m68k-rom68k + os=-coff + ;; + morphos) + basic_machine=powerpc-unknown + os=-morphos + ;; + msdos) + basic_machine=i386-pc + os=-msdos + ;; + mvs) + basic_machine=i370-ibm + os=-mvs + ;; + ncr3000) + basic_machine=i486-ncr + os=-sysv4 + ;; + netbsd386) + basic_machine=i386-unknown + os=-netbsd + ;; + netwinder) + basic_machine=armv4l-rebel + os=-linux + ;; + news | news700 | news800 | news900) + basic_machine=m68k-sony + os=-newsos + ;; + news1000) + basic_machine=m68030-sony + os=-newsos + ;; + news-3600 | risc-news) + basic_machine=mips-sony + os=-newsos + ;; + necv70) + basic_machine=v70-nec + os=-sysv + ;; + next | m*-next ) + basic_machine=m68k-next + case $os in + -nextstep* ) + ;; + -ns2*) + os=-nextstep2 + ;; + *) + os=-nextstep3 + ;; + esac + ;; + nh3000) + basic_machine=m68k-harris + os=-cxux + ;; + nh[45]000) + basic_machine=m88k-harris + os=-cxux + ;; + nindy960) + basic_machine=i960-intel + os=-nindy + ;; + mon960) + basic_machine=i960-intel + os=-mon960 + ;; + nonstopux) + basic_machine=mips-compaq + os=-nonstopux + ;; + np1) + basic_machine=np1-gould + ;; + nv1) + basic_machine=nv1-cray + os=-unicosmp + ;; + nsr-tandem) + basic_machine=nsr-tandem + ;; + op50n-* | op60c-*) + basic_machine=hppa1.1-oki + os=-proelf + ;; + or32 | or32-*) + basic_machine=or32-unknown + os=-coff + ;; + OSE68000 | ose68000) + basic_machine=m68000-ericsson + os=-ose + ;; + os68k) + basic_machine=m68k-none + os=-os68k + ;; + pa-hitachi) + basic_machine=hppa1.1-hitachi + os=-hiuxwe2 + ;; + paragon) + basic_machine=i860-intel + os=-osf + ;; + pbd) + basic_machine=sparc-tti + ;; + pbb) + basic_machine=m68k-tti + ;; + pc532 | pc532-*) + basic_machine=ns32k-pc532 + ;; + pentium | p5 | k5 | k6 | nexgen | viac3) + basic_machine=i586-pc + ;; + pentiumpro | p6 | 6x86 | athlon | athlon_*) + basic_machine=i686-pc + ;; + pentiumii | pentium2 | pentiumiii | pentium3) + basic_machine=i686-pc + ;; + pentium4) + basic_machine=i786-pc + ;; + pentium-* | p5-* | k5-* | k6-* | nexgen-* | viac3-*) + basic_machine=i586-`echo $basic_machine | sed 's/^[^-]*-//'` + ;; + pentiumpro-* | p6-* | 6x86-* | athlon-*) + basic_machine=i686-`echo $basic_machine | sed 's/^[^-]*-//'` + ;; + pentiumii-* | pentium2-* | pentiumiii-* | pentium3-*) + basic_machine=i686-`echo $basic_machine | sed 's/^[^-]*-//'` + ;; + pentium4-*) + basic_machine=i786-`echo $basic_machine | sed 's/^[^-]*-//'` + ;; + pn) + basic_machine=pn-gould + ;; + power) basic_machine=power-ibm + ;; + ppc) basic_machine=powerpc-unknown + ;; + ppc-*) basic_machine=powerpc-`echo $basic_machine | sed 's/^[^-]*-//'` + ;; + ppcle | powerpclittle | ppc-le | powerpc-little) + basic_machine=powerpcle-unknown + ;; + ppcle-* | powerpclittle-*) + basic_machine=powerpcle-`echo $basic_machine | sed 's/^[^-]*-//'` + ;; + ppc64) basic_machine=powerpc64-unknown + ;; + ppc64-*) basic_machine=powerpc64-`echo $basic_machine | sed 's/^[^-]*-//'` + ;; + ppc64le | powerpc64little | ppc64-le | powerpc64-little) + basic_machine=powerpc64le-unknown + ;; + ppc64le-* | powerpc64little-*) + basic_machine=powerpc64le-`echo $basic_machine | sed 's/^[^-]*-//'` + ;; + ps2) + basic_machine=i386-ibm + ;; + pw32) + basic_machine=i586-unknown + os=-pw32 + ;; + rom68k) + basic_machine=m68k-rom68k + os=-coff + ;; + rm[46]00) + basic_machine=mips-siemens + ;; + rtpc | rtpc-*) + basic_machine=romp-ibm + ;; + sa29200) + basic_machine=a29k-amd + os=-udi + ;; + sb1) + basic_machine=mipsisa64sb1-unknown + ;; + sb1el) + basic_machine=mipsisa64sb1el-unknown + ;; + sei) + basic_machine=mips-sei + os=-seiux + ;; + sequent) + basic_machine=i386-sequent + ;; + sh) + basic_machine=sh-hitachi + os=-hms + ;; + sh64) + basic_machine=sh64-unknown + ;; + sparclite-wrs | simso-wrs) + basic_machine=sparclite-wrs + os=-vxworks + ;; + sps7) + basic_machine=m68k-bull + os=-sysv2 + ;; + spur) + basic_machine=spur-unknown + ;; + st2000) + basic_machine=m68k-tandem + ;; + stratus) + basic_machine=i860-stratus + os=-sysv4 + ;; + sun2) + basic_machine=m68000-sun + ;; + sun2os3) + basic_machine=m68000-sun + os=-sunos3 + ;; + sun2os4) + basic_machine=m68000-sun + os=-sunos4 + ;; + sun3os3) + basic_machine=m68k-sun + os=-sunos3 + ;; + sun3os4) + basic_machine=m68k-sun + os=-sunos4 + ;; + sun4os3) + basic_machine=sparc-sun + os=-sunos3 + ;; + sun4os4) + basic_machine=sparc-sun + os=-sunos4 + ;; + sun4sol2) + basic_machine=sparc-sun + os=-solaris2 + ;; + sun3 | sun3-*) + basic_machine=m68k-sun + ;; + sun4) + basic_machine=sparc-sun + ;; + sun386 | sun386i | roadrunner) + basic_machine=i386-sun + ;; + sv1) + basic_machine=sv1-cray + os=-unicos + ;; + symmetry) + basic_machine=i386-sequent + os=-dynix + ;; + t3e) + basic_machine=alphaev5-cray + os=-unicos + ;; + t90) + basic_machine=t90-cray + os=-unicos + ;; + tic54x | c54x*) + basic_machine=tic54x-unknown + os=-coff + ;; + tic55x | c55x*) + basic_machine=tic55x-unknown + os=-coff + ;; + tic6x | c6x*) + basic_machine=tic6x-unknown + os=-coff + ;; + tx39) + basic_machine=mipstx39-unknown + ;; + tx39el) + basic_machine=mipstx39el-unknown + ;; + toad1) + basic_machine=pdp10-xkl + os=-tops20 + ;; + tower | tower-32) + basic_machine=m68k-ncr + ;; + udi29k) + basic_machine=a29k-amd + os=-udi + ;; + ultra3) + basic_machine=a29k-nyu + os=-sym1 + ;; + v810 | necv810) + basic_machine=v810-nec + os=-none + ;; + vaxv) + basic_machine=vax-dec + os=-sysv + ;; + vms) + basic_machine=vax-dec + os=-vms + ;; + vpp*|vx|vx-*) + basic_machine=f301-fujitsu + ;; + vxworks960) + basic_machine=i960-wrs + os=-vxworks + ;; + vxworks68) + basic_machine=m68k-wrs + os=-vxworks + ;; + vxworks29k) + basic_machine=a29k-wrs + os=-vxworks + ;; + w65*) + basic_machine=w65-wdc + os=-none + ;; + w89k-*) + basic_machine=hppa1.1-winbond + os=-proelf + ;; + xps | xps100) + basic_machine=xps100-honeywell + ;; + ymp) + basic_machine=ymp-cray + os=-unicos + ;; + z8k-*-coff) + basic_machine=z8k-unknown + os=-sim + ;; + none) + basic_machine=none-none + os=-none + ;; + +# Here we handle the default manufacturer of certain CPU types. It is in +# some cases the only manufacturer, in others, it is the most popular. + w89k) + basic_machine=hppa1.1-winbond + ;; + op50n) + basic_machine=hppa1.1-oki + ;; + op60c) + basic_machine=hppa1.1-oki + ;; + romp) + basic_machine=romp-ibm + ;; + rs6000) + basic_machine=rs6000-ibm + ;; + vax) + basic_machine=vax-dec + ;; + pdp10) + # there are many clones, so DEC is not a safe bet + basic_machine=pdp10-unknown + ;; + pdp11) + basic_machine=pdp11-dec + ;; + we32k) + basic_machine=we32k-att + ;; + sh3 | sh4 | sh[34]eb | sh[1234]le | sh[23]ele) + basic_machine=sh-unknown + ;; + sh64) + basic_machine=sh64-unknown + ;; + sparc | sparcv8 | sparcv9 | sparcv9b) + basic_machine=sparc-sun + ;; + cydra) + basic_machine=cydra-cydrome + ;; + orion) + basic_machine=orion-highlevel + ;; + orion105) + basic_machine=clipper-highlevel + ;; + mac | mpw | mac-mpw) + basic_machine=m68k-apple + ;; + pmac | pmac-mpw) + basic_machine=powerpc-apple + ;; + *-unknown) + # Make sure to match an already-canonicalized machine name. + ;; + *) + echo Invalid configuration \`$1\': machine \`$basic_machine\' not recognized 1>&2 + exit 1 + ;; +esac + +# Here we canonicalize certain aliases for manufacturers. +case $basic_machine in + *-digital*) + basic_machine=`echo $basic_machine | sed 's/digital.*/dec/'` + ;; + *-commodore*) + basic_machine=`echo $basic_machine | sed 's/commodore.*/cbm/'` + ;; + *) + ;; +esac + +# Decode manufacturer-specific aliases for certain operating systems. + +if [ x"$os" != x"" ] +then +case $os in + # First match some system type aliases + # that might get confused with valid system types. + # -solaris* is a basic system type, with this one exception. + -solaris1 | -solaris1.*) + os=`echo $os | sed -e 's|solaris1|sunos4|'` + ;; + -solaris) + os=-solaris2 + ;; + -svr4*) + os=-sysv4 + ;; + -unixware*) + os=-sysv4.2uw + ;; + -gnu/linux*) + os=`echo $os | sed -e 's|gnu/linux|linux-gnu|'` + ;; + # First accept the basic system types. + # The portable systems comes first. + # Each alternative MUST END IN A *, to match a version number. + # -sysv* is not here because it comes later, after sysvr4. + -gnu* | -bsd* | -mach* | -minix* | -genix* | -ultrix* | -irix* \ + | -*vms* | -sco* | -esix* | -isc* | -aix* | -sunos | -sunos[34]*\ + | -hpux* | -unos* | -osf* | -luna* | -dgux* | -solaris* | -sym* \ + | -amigaos* | -amigados* | -msdos* | -newsos* | -unicos* | -aof* \ + | -aos* \ + | -nindy* | -vxsim* | -vxworks* | -ebmon* | -hms* | -mvs* \ + | -clix* | -riscos* | -uniplus* | -iris* | -rtu* | -xenix* \ + | -hiux* | -386bsd* | -netbsd* | -openbsd* | -freebsd* | -riscix* \ + | -lynxos* | -bosx* | -nextstep* | -cxux* | -aout* | -elf* | -oabi* \ + | -ptx* | -coff* | -ecoff* | -winnt* | -domain* | -vsta* \ + | -udi* | -eabi* | -lites* | -ieee* | -go32* | -aux* \ + | -chorusos* | -chorusrdb* \ + | -cygwin* | -pe* | -psos* | -moss* | -proelf* | -rtems* \ + | -mingw32* | -linux-gnu* | -uxpv* | -beos* | -mpeix* | -udk* \ + | -interix* | -uwin* | -mks* | -rhapsody* | -darwin* | -opened* \ + | -openstep* | -oskit* | -conix* | -pw32* | -nonstopux* \ + | -storm-chaos* | -tops10* | -tenex* | -tops20* | -its* \ + | -os2* | -vos* | -palmos* | -uclinux* | -nucleus* \ + | -morphos* | -superux* | -rtmk* | -rtmk-nova* | -windiss* \ + | -powermax* | -dnix* | -nx6 | -nx7 | -sei*) + # Remember, each alternative MUST END IN *, to match a version number. + ;; + -qnx*) + case $basic_machine in + x86-* | i*86-*) + ;; + *) + os=-nto$os + ;; + esac + ;; + -nto-qnx*) + ;; + -nto*) + os=`echo $os | sed -e 's|nto|nto-qnx|'` + ;; + -sim | -es1800* | -hms* | -xray | -os68k* | -none* | -v88r* \ + | -windows* | -osx | -abug | -netware* | -os9* | -beos* \ + | -macos* | -mpw* | -magic* | -mmixware* | -mon960* | -lnews*) + ;; + -mac*) + os=`echo $os | sed -e 's|mac|macos|'` + ;; + -linux*) + os=`echo $os | sed -e 's|linux|linux-gnu|'` + ;; + -sunos5*) + os=`echo $os | sed -e 's|sunos5|solaris2|'` + ;; + -sunos6*) + os=`echo $os | sed -e 's|sunos6|solaris3|'` + ;; + -opened*) + os=-openedition + ;; + -wince*) + os=-wince + ;; + -osfrose*) + os=-osfrose + ;; + -osf*) + os=-osf + ;; + -utek*) + os=-bsd + ;; + -dynix*) + os=-bsd + ;; + -acis*) + os=-aos + ;; + -atheos*) + os=-atheos + ;; + -386bsd) + os=-bsd + ;; + -ctix* | -uts*) + os=-sysv + ;; + -nova*) + os=-rtmk-nova + ;; + -ns2 ) + os=-nextstep2 + ;; + -nsk*) + os=-nsk + ;; + # Preserve the version number of sinix5. + -sinix5.*) + os=`echo $os | sed -e 's|sinix|sysv|'` + ;; + -sinix*) + os=-sysv4 + ;; + -triton*) + os=-sysv3 + ;; + -oss*) + os=-sysv3 + ;; + -svr4) + os=-sysv4 + ;; + -svr3) + os=-sysv3 + ;; + -sysvr4) + os=-sysv4 + ;; + # This must come after -sysvr4. + -sysv*) + ;; + -ose*) + os=-ose + ;; + -es1800*) + os=-ose + ;; + -xenix) + os=-xenix + ;; + -*mint | -mint[0-9]* | -*MiNT | -MiNT[0-9]*) + os=-mint + ;; + -aros*) + os=-aros + ;; + -kaos*) + os=-kaos + ;; + -none) + ;; + *) + # Get rid of the `-' at the beginning of $os. + os=`echo $os | sed 's/[^-]*-//'` + echo Invalid configuration \`$1\': system \`$os\' not recognized 1>&2 + exit 1 + ;; +esac +else + +# Here we handle the default operating systems that come with various machines. +# The value should be what the vendor currently ships out the door with their +# machine or put another way, the most popular os provided with the machine. + +# Note that if you're going to try to match "-MANUFACTURER" here (say, +# "-sun"), then you have to tell the case statement up towards the top +# that MANUFACTURER isn't an operating system. Otherwise, code above +# will signal an error saying that MANUFACTURER isn't an operating +# system, and we'll never get to this point. + +case $basic_machine in + *-acorn) + os=-riscix1.2 + ;; + arm*-rebel) + os=-linux + ;; + arm*-semi) + os=-aout + ;; + c4x-* | tic4x-*) + os=-coff + ;; + # This must come before the *-dec entry. + pdp10-*) + os=-tops20 + ;; + pdp11-*) + os=-none + ;; + *-dec | vax-*) + os=-ultrix4.2 + ;; + m68*-apollo) + os=-domain + ;; + i386-sun) + os=-sunos4.0.2 + ;; + m68000-sun) + os=-sunos3 + # This also exists in the configure program, but was not the + # default. + # os=-sunos4 + ;; + m68*-cisco) + os=-aout + ;; + mips*-cisco) + os=-elf + ;; + mips*-*) + os=-elf + ;; + or32-*) + os=-coff + ;; + *-tti) # must be before sparc entry or we get the wrong os. + os=-sysv3 + ;; + sparc-* | *-sun) + os=-sunos4.1.1 + ;; + *-be) + os=-beos + ;; + *-ibm) + os=-aix + ;; + *-wec) + os=-proelf + ;; + *-winbond) + os=-proelf + ;; + *-oki) + os=-proelf + ;; + *-hp) + os=-hpux + ;; + *-hitachi) + os=-hiux + ;; + i860-* | *-att | *-ncr | *-altos | *-motorola | *-convergent) + os=-sysv + ;; + *-cbm) + os=-amigaos + ;; + *-dg) + os=-dgux + ;; + *-dolphin) + os=-sysv3 + ;; + m68k-ccur) + os=-rtu + ;; + m88k-omron*) + os=-luna + ;; + *-next ) + os=-nextstep + ;; + *-sequent) + os=-ptx + ;; + *-crds) + os=-unos + ;; + *-ns) + os=-genix + ;; + i370-*) + os=-mvs + ;; + *-next) + os=-nextstep3 + ;; + *-gould) + os=-sysv + ;; + *-highlevel) + os=-bsd + ;; + *-encore) + os=-bsd + ;; + *-sgi) + os=-irix + ;; + *-siemens) + os=-sysv4 + ;; + *-masscomp) + os=-rtu + ;; + f30[01]-fujitsu | f700-fujitsu) + os=-uxpv + ;; + *-rom68k) + os=-coff + ;; + *-*bug) + os=-coff + ;; + *-apple) + os=-macos + ;; + *-atari*) + os=-mint + ;; + *) + os=-none + ;; +esac +fi + +# Here we handle the case where we know the os, and the CPU type, but not the +# manufacturer. We pick the logical manufacturer. +vendor=unknown +case $basic_machine in + *-unknown) + case $os in + -riscix*) + vendor=acorn + ;; + -sunos*) + vendor=sun + ;; + -aix*) + vendor=ibm + ;; + -beos*) + vendor=be + ;; + -hpux*) + vendor=hp + ;; + -mpeix*) + vendor=hp + ;; + -hiux*) + vendor=hitachi + ;; + -unos*) + vendor=crds + ;; + -dgux*) + vendor=dg + ;; + -luna*) + vendor=omron + ;; + -genix*) + vendor=ns + ;; + -mvs* | -opened*) + vendor=ibm + ;; + -ptx*) + vendor=sequent + ;; + -vxsim* | -vxworks* | -windiss*) + vendor=wrs + ;; + -aux*) + vendor=apple + ;; + -hms*) + vendor=hitachi + ;; + -mpw* | -macos*) + vendor=apple + ;; + -*mint | -mint[0-9]* | -*MiNT | -MiNT[0-9]*) + vendor=atari + ;; + -vos*) + vendor=stratus + ;; + esac + basic_machine=`echo $basic_machine | sed "s/unknown/$vendor/"` + ;; +esac + +echo $basic_machine$os +exit 0 + +# Local variables: +# eval: (add-hook 'write-file-hooks 'time-stamp) +# time-stamp-start: "timestamp='" +# time-stamp-format: "%:y-%02m-%02d" +# time-stamp-end: "'" +# End: diff --git a/config/depcomp b/config/depcomp new file mode 100755 index 0000000..ffcd540 --- /dev/null +++ b/config/depcomp @@ -0,0 +1,529 @@ +#! /bin/sh +# depcomp - compile a program generating dependencies as side-effects + +scriptversion=2005-02-09.22 + +# Copyright (C) 1999, 2000, 2003, 2004, 2005 Free Software Foundation, Inc. + +# This program 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, 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. + +# As a special exception to the GNU General Public License, if you +# distribute this file as part of a program that contains a +# configuration script generated by Autoconf, you may include it under +# the same distribution terms that you use for the rest of that program. + +# Originally written by Alexandre Oliva . + +case $1 in + '') + echo "$0: No command. Try \`$0 --help' for more information." 1>&2 + exit 1; + ;; + -h | --h*) + cat <<\EOF +Usage: depcomp [--help] [--version] PROGRAM [ARGS] + +Run PROGRAMS ARGS to compile a file, generating dependencies +as side-effects. + +Environment variables: + depmode Dependency tracking mode. + source Source file read by `PROGRAMS ARGS'. + object Object file output by `PROGRAMS ARGS'. + DEPDIR directory where to store dependencies. + depfile Dependency file to output. + tmpdepfile Temporary file to use when outputing dependencies. + libtool Whether libtool is used (yes/no). + +Report bugs to . +EOF + exit $? + ;; + -v | --v*) + echo "depcomp $scriptversion" + exit $? + ;; +esac + +if test -z "$depmode" || test -z "$source" || test -z "$object"; then + echo "depcomp: Variables source, object and depmode must be set" 1>&2 + exit 1 +fi + +# Dependencies for sub/bar.o or sub/bar.obj go into sub/.deps/bar.Po. +depfile=${depfile-`echo "$object" | + sed 's|[^\\/]*$|'${DEPDIR-.deps}'/&|;s|\.\([^.]*\)$|.P\1|;s|Pobj$|Po|'`} +tmpdepfile=${tmpdepfile-`echo "$depfile" | sed 's/\.\([^.]*\)$/.T\1/'`} + +rm -f "$tmpdepfile" + +# Some modes work just like other modes, but use different flags. We +# parameterize here, but still list the modes in the big case below, +# to make depend.m4 easier to write. Note that we *cannot* use a case +# here, because this file can only contain one case statement. +if test "$depmode" = hp; then + # HP compiler uses -M and no extra arg. + gccflag=-M + depmode=gcc +fi + +if test "$depmode" = dashXmstdout; then + # This is just like dashmstdout with a different argument. + dashmflag=-xM + depmode=dashmstdout +fi + +case "$depmode" in +gcc3) +## gcc 3 implements dependency tracking that does exactly what +## we want. Yay! Note: for some reason libtool 1.4 doesn't like +## it if -MD -MP comes after the -MF stuff. Hmm. + "$@" -MT "$object" -MD -MP -MF "$tmpdepfile" + stat=$? + if test $stat -eq 0; then : + else + rm -f "$tmpdepfile" + exit $stat + fi + mv "$tmpdepfile" "$depfile" + ;; + +gcc) +## There are various ways to get dependency output from gcc. Here's +## why we pick this rather obscure method: +## - Don't want to use -MD because we'd like the dependencies to end +## up in a subdir. Having to rename by hand is ugly. +## (We might end up doing this anyway to support other compilers.) +## - The DEPENDENCIES_OUTPUT environment variable makes gcc act like +## -MM, not -M (despite what the docs say). +## - Using -M directly means running the compiler twice (even worse +## than renaming). + if test -z "$gccflag"; then + gccflag=-MD, + fi + "$@" -Wp,"$gccflag$tmpdepfile" + stat=$? + if test $stat -eq 0; then : + else + rm -f "$tmpdepfile" + exit $stat + fi + rm -f "$depfile" + echo "$object : \\" > "$depfile" + alpha=ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz +## The second -e expression handles DOS-style file names with drive letters. + sed -e 's/^[^:]*: / /' \ + -e 's/^['$alpha']:\/[^:]*: / /' < "$tmpdepfile" >> "$depfile" +## This next piece of magic avoids the `deleted header file' problem. +## The problem is that when a header file which appears in a .P file +## is deleted, the dependency causes make to die (because there is +## typically no way to rebuild the header). We avoid this by adding +## dummy dependencies for each header file. Too bad gcc doesn't do +## this for us directly. + tr ' ' ' +' < "$tmpdepfile" | +## Some versions of gcc put a space before the `:'. On the theory +## that the space means something, we add a space to the output as +## well. +## Some versions of the HPUX 10.20 sed can't process this invocation +## correctly. Breaking it into two sed invocations is a workaround. + sed -e 's/^\\$//' -e '/^$/d' -e '/:$/d' | sed -e 's/$/ :/' >> "$depfile" + rm -f "$tmpdepfile" + ;; + +hp) + # This case exists only to let depend.m4 do its work. It works by + # looking at the text of this script. This case will never be run, + # since it is checked for above. + exit 1 + ;; + +sgi) + if test "$libtool" = yes; then + "$@" "-Wp,-MDupdate,$tmpdepfile" + else + "$@" -MDupdate "$tmpdepfile" + fi + stat=$? + if test $stat -eq 0; then : + else + rm -f "$tmpdepfile" + exit $stat + fi + rm -f "$depfile" + + if test -f "$tmpdepfile"; then # yes, the sourcefile depend on other files + echo "$object : \\" > "$depfile" + + # Clip off the initial element (the dependent). Don't try to be + # clever and replace this with sed code, as IRIX sed won't handle + # lines with more than a fixed number of characters (4096 in + # IRIX 6.2 sed, 8192 in IRIX 6.5). We also remove comment lines; + # the IRIX cc adds comments like `#:fec' to the end of the + # dependency line. + tr ' ' ' +' < "$tmpdepfile" \ + | sed -e 's/^.*\.o://' -e 's/#.*$//' -e '/^$/ d' | \ + tr ' +' ' ' >> $depfile + echo >> $depfile + + # The second pass generates a dummy entry for each header file. + tr ' ' ' +' < "$tmpdepfile" \ + | sed -e 's/^.*\.o://' -e 's/#.*$//' -e '/^$/ d' -e 's/$/:/' \ + >> $depfile + else + # The sourcefile does not contain any dependencies, so just + # store a dummy comment line, to avoid errors with the Makefile + # "include basename.Plo" scheme. + echo "#dummy" > "$depfile" + fi + rm -f "$tmpdepfile" + ;; + +aix) + # The C for AIX Compiler uses -M and outputs the dependencies + # in a .u file. In older versions, this file always lives in the + # current directory. Also, the AIX compiler puts `$object:' at the + # start of each line; $object doesn't have directory information. + # Version 6 uses the directory in both cases. + stripped=`echo "$object" | sed 's/\(.*\)\..*$/\1/'` + tmpdepfile="$stripped.u" + if test "$libtool" = yes; then + "$@" -Wc,-M + else + "$@" -M + fi + stat=$? + + if test -f "$tmpdepfile"; then : + else + stripped=`echo "$stripped" | sed 's,^.*/,,'` + tmpdepfile="$stripped.u" + fi + + if test $stat -eq 0; then : + else + rm -f "$tmpdepfile" + exit $stat + fi + + if test -f "$tmpdepfile"; then + outname="$stripped.o" + # Each line is of the form `foo.o: dependent.h'. + # Do two passes, one to just change these to + # `$object: dependent.h' and one to simply `dependent.h:'. + sed -e "s,^$outname:,$object :," < "$tmpdepfile" > "$depfile" + sed -e "s,^$outname: \(.*\)$,\1:," < "$tmpdepfile" >> "$depfile" + else + # The sourcefile does not contain any dependencies, so just + # store a dummy comment line, to avoid errors with the Makefile + # "include basename.Plo" scheme. + echo "#dummy" > "$depfile" + fi + rm -f "$tmpdepfile" + ;; + +icc) + # Intel's C compiler understands `-MD -MF file'. However on + # icc -MD -MF foo.d -c -o sub/foo.o sub/foo.c + # ICC 7.0 will fill foo.d with something like + # foo.o: sub/foo.c + # foo.o: sub/foo.h + # which is wrong. We want: + # sub/foo.o: sub/foo.c + # sub/foo.o: sub/foo.h + # sub/foo.c: + # sub/foo.h: + # ICC 7.1 will output + # foo.o: sub/foo.c sub/foo.h + # and will wrap long lines using \ : + # foo.o: sub/foo.c ... \ + # sub/foo.h ... \ + # ... + + "$@" -MD -MF "$tmpdepfile" + stat=$? + if test $stat -eq 0; then : + else + rm -f "$tmpdepfile" + exit $stat + fi + rm -f "$depfile" + # Each line is of the form `foo.o: dependent.h', + # or `foo.o: dep1.h dep2.h \', or ` dep3.h dep4.h \'. + # Do two passes, one to just change these to + # `$object: dependent.h' and one to simply `dependent.h:'. + sed "s,^[^:]*:,$object :," < "$tmpdepfile" > "$depfile" + # Some versions of the HPUX 10.20 sed can't process this invocation + # correctly. Breaking it into two sed invocations is a workaround. + sed 's,^[^:]*: \(.*\)$,\1,;s/^\\$//;/^$/d;/:$/d' < "$tmpdepfile" | + sed -e 's/$/ :/' >> "$depfile" + rm -f "$tmpdepfile" + ;; + +tru64) + # The Tru64 compiler uses -MD to generate dependencies as a side + # effect. `cc -MD -o foo.o ...' puts the dependencies into `foo.o.d'. + # At least on Alpha/Redhat 6.1, Compaq CCC V6.2-504 seems to put + # dependencies in `foo.d' instead, so we check for that too. + # Subdirectories are respected. + dir=`echo "$object" | sed -e 's|/[^/]*$|/|'` + test "x$dir" = "x$object" && dir= + base=`echo "$object" | sed -e 's|^.*/||' -e 's/\.o$//' -e 's/\.lo$//'` + + if test "$libtool" = yes; then + # With Tru64 cc, shared objects can also be used to make a + # static library. This mecanism is used in libtool 1.4 series to + # handle both shared and static libraries in a single compilation. + # With libtool 1.4, dependencies were output in $dir.libs/$base.lo.d. + # + # With libtool 1.5 this exception was removed, and libtool now + # generates 2 separate objects for the 2 libraries. These two + # compilations output dependencies in in $dir.libs/$base.o.d and + # in $dir$base.o.d. We have to check for both files, because + # one of the two compilations can be disabled. We should prefer + # $dir$base.o.d over $dir.libs/$base.o.d because the latter is + # automatically cleaned when .libs/ is deleted, while ignoring + # the former would cause a distcleancheck panic. + tmpdepfile1=$dir.libs/$base.lo.d # libtool 1.4 + tmpdepfile2=$dir$base.o.d # libtool 1.5 + tmpdepfile3=$dir.libs/$base.o.d # libtool 1.5 + tmpdepfile4=$dir.libs/$base.d # Compaq CCC V6.2-504 + "$@" -Wc,-MD + else + tmpdepfile1=$dir$base.o.d + tmpdepfile2=$dir$base.d + tmpdepfile3=$dir$base.d + tmpdepfile4=$dir$base.d + "$@" -MD + fi + + stat=$? + if test $stat -eq 0; then : + else + rm -f "$tmpdepfile1" "$tmpdepfile2" "$tmpdepfile3" "$tmpdepfile4" + exit $stat + fi + + for tmpdepfile in "$tmpdepfile1" "$tmpdepfile2" "$tmpdepfile3" "$tmpdepfile4" + do + test -f "$tmpdepfile" && break + done + if test -f "$tmpdepfile"; then + sed -e "s,^.*\.[a-z]*:,$object:," < "$tmpdepfile" > "$depfile" + # That's a tab and a space in the []. + sed -e 's,^.*\.[a-z]*:[ ]*,,' -e 's,$,:,' < "$tmpdepfile" >> "$depfile" + else + echo "#dummy" > "$depfile" + fi + rm -f "$tmpdepfile" + ;; + +#nosideeffect) + # This comment above is used by automake to tell side-effect + # dependency tracking mechanisms from slower ones. + +dashmstdout) + # Important note: in order to support this mode, a compiler *must* + # always write the preprocessed file to stdout, regardless of -o. + "$@" || exit $? + + # Remove the call to Libtool. + if test "$libtool" = yes; then + while test $1 != '--mode=compile'; do + shift + done + shift + fi + + # Remove `-o $object'. + IFS=" " + for arg + do + case $arg in + -o) + shift + ;; + $object) + shift + ;; + *) + set fnord "$@" "$arg" + shift # fnord + shift # $arg + ;; + esac + done + + test -z "$dashmflag" && dashmflag=-M + # Require at least two characters before searching for `:' + # in the target name. This is to cope with DOS-style filenames: + # a dependency such as `c:/foo/bar' could be seen as target `c' otherwise. + "$@" $dashmflag | + sed 's:^[ ]*[^: ][^:][^:]*\:[ ]*:'"$object"'\: :' > "$tmpdepfile" + rm -f "$depfile" + cat < "$tmpdepfile" > "$depfile" + tr ' ' ' +' < "$tmpdepfile" | \ +## Some versions of the HPUX 10.20 sed can't process this invocation +## correctly. Breaking it into two sed invocations is a workaround. + sed -e 's/^\\$//' -e '/^$/d' -e '/:$/d' | sed -e 's/$/ :/' >> "$depfile" + rm -f "$tmpdepfile" + ;; + +dashXmstdout) + # This case only exists to satisfy depend.m4. It is never actually + # run, as this mode is specially recognized in the preamble. + exit 1 + ;; + +makedepend) + "$@" || exit $? + # Remove any Libtool call + if test "$libtool" = yes; then + while test $1 != '--mode=compile'; do + shift + done + shift + fi + # X makedepend + shift + cleared=no + for arg in "$@"; do + case $cleared in + no) + set ""; shift + cleared=yes ;; + esac + case "$arg" in + -D*|-I*) + set fnord "$@" "$arg"; shift ;; + # Strip any option that makedepend may not understand. Remove + # the object too, otherwise makedepend will parse it as a source file. + -*|$object) + ;; + *) + set fnord "$@" "$arg"; shift ;; + esac + done + obj_suffix="`echo $object | sed 's/^.*\././'`" + touch "$tmpdepfile" + ${MAKEDEPEND-makedepend} -o"$obj_suffix" -f"$tmpdepfile" "$@" + rm -f "$depfile" + cat < "$tmpdepfile" > "$depfile" + sed '1,2d' "$tmpdepfile" | tr ' ' ' +' | \ +## Some versions of the HPUX 10.20 sed can't process this invocation +## correctly. Breaking it into two sed invocations is a workaround. + sed -e 's/^\\$//' -e '/^$/d' -e '/:$/d' | sed -e 's/$/ :/' >> "$depfile" + rm -f "$tmpdepfile" "$tmpdepfile".bak + ;; + +cpp) + # Important note: in order to support this mode, a compiler *must* + # always write the preprocessed file to stdout. + "$@" || exit $? + + # Remove the call to Libtool. + if test "$libtool" = yes; then + while test $1 != '--mode=compile'; do + shift + done + shift + fi + + # Remove `-o $object'. + IFS=" " + for arg + do + case $arg in + -o) + shift + ;; + $object) + shift + ;; + *) + set fnord "$@" "$arg" + shift # fnord + shift # $arg + ;; + esac + done + + "$@" -E | + sed -n '/^# [0-9][0-9]* "\([^"]*\)".*/ s:: \1 \\:p' | + sed '$ s: \\$::' > "$tmpdepfile" + rm -f "$depfile" + echo "$object : \\" > "$depfile" + cat < "$tmpdepfile" >> "$depfile" + sed < "$tmpdepfile" '/^$/d;s/^ //;s/ \\$//;s/$/ :/' >> "$depfile" + rm -f "$tmpdepfile" + ;; + +msvisualcpp) + # Important note: in order to support this mode, a compiler *must* + # always write the preprocessed file to stdout, regardless of -o, + # because we must use -o when running libtool. + "$@" || exit $? + IFS=" " + for arg + do + case "$arg" in + "-Gm"|"/Gm"|"-Gi"|"/Gi"|"-ZI"|"/ZI") + set fnord "$@" + shift + shift + ;; + *) + set fnord "$@" "$arg" + shift + shift + ;; + esac + done + "$@" -E | + sed -n '/^#line [0-9][0-9]* "\([^"]*\)"/ s::echo "`cygpath -u \\"\1\\"`":p' | sort | uniq > "$tmpdepfile" + rm -f "$depfile" + echo "$object : \\" > "$depfile" + . "$tmpdepfile" | sed 's% %\\ %g' | sed -n '/^\(.*\)$/ s:: \1 \\:p' >> "$depfile" + echo " " >> "$depfile" + . "$tmpdepfile" | sed 's% %\\ %g' | sed -n '/^\(.*\)$/ s::\1\::p' >> "$depfile" + rm -f "$tmpdepfile" + ;; + +none) + exec "$@" + ;; + +*) + echo "Unknown depmode $depmode" 1>&2 + exit 1 + ;; +esac + +exit 0 + +# Local Variables: +# mode: shell-script +# sh-indentation: 2 +# eval: (add-hook 'write-file-hooks 'time-stamp) +# time-stamp-start: "scriptversion=" +# time-stamp-format: "%:y-%02m-%02d.%02H" +# time-stamp-end: "$" +# End: diff --git a/config/install-sh b/config/install-sh new file mode 100755 index 0000000..1a83534 --- /dev/null +++ b/config/install-sh @@ -0,0 +1,323 @@ +#!/bin/sh +# install - install a program, script, or datafile + +scriptversion=2005-02-02.21 + +# This originates from X11R5 (mit/util/scripts/install.sh), which was +# later released in X11R6 (xc/config/util/install.sh) with the +# following copyright and license. +# +# Copyright (C) 1994 X Consortium +# +# Permission is hereby granted, free of charge, to any person obtaining a copy +# of this software and associated documentation files (the "Software"), to +# deal in the Software without restriction, including without limitation the +# rights to use, copy, modify, merge, publish, distribute, sublicense, and/or +# sell copies of the Software, and to permit persons to whom the Software is +# furnished to do so, subject to the following conditions: +# +# The above copyright notice and this permission notice shall be included in +# all copies or substantial portions of the Software. +# +# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +# X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN +# AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNEC- +# TION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. +# +# Except as contained in this notice, the name of the X Consortium shall not +# be used in advertising or otherwise to promote the sale, use or other deal- +# ings in this Software without prior written authorization from the X Consor- +# tium. +# +# +# FSF changes to this file are in the public domain. +# +# Calling this script install-sh is preferred over install.sh, to prevent +# `make' implicit rules from creating a file called install from it +# when there is no Makefile. +# +# This script is compatible with the BSD install script, but was written +# from scratch. It can only install one file at a time, a restriction +# shared with many OS's install programs. + +# set DOITPROG to echo to test this script + +# Don't use :- since 4.3BSD and earlier shells don't like it. +doit="${DOITPROG-}" + +# put in absolute paths if you don't have them in your path; or use env. vars. + +mvprog="${MVPROG-mv}" +cpprog="${CPPROG-cp}" +chmodprog="${CHMODPROG-chmod}" +chownprog="${CHOWNPROG-chown}" +chgrpprog="${CHGRPPROG-chgrp}" +stripprog="${STRIPPROG-strip}" +rmprog="${RMPROG-rm}" +mkdirprog="${MKDIRPROG-mkdir}" + +chmodcmd="$chmodprog 0755" +chowncmd= +chgrpcmd= +stripcmd= +rmcmd="$rmprog -f" +mvcmd="$mvprog" +src= +dst= +dir_arg= +dstarg= +no_target_directory= + +usage="Usage: $0 [OPTION]... [-T] SRCFILE DSTFILE + or: $0 [OPTION]... SRCFILES... DIRECTORY + or: $0 [OPTION]... -t DIRECTORY SRCFILES... + or: $0 [OPTION]... -d DIRECTORIES... + +In the 1st form, copy SRCFILE to DSTFILE. +In the 2nd and 3rd, copy all SRCFILES to DIRECTORY. +In the 4th, create DIRECTORIES. + +Options: +-c (ignored) +-d create directories instead of installing files. +-g GROUP $chgrpprog installed files to GROUP. +-m MODE $chmodprog installed files to MODE. +-o USER $chownprog installed files to USER. +-s $stripprog installed files. +-t DIRECTORY install into DIRECTORY. +-T report an error if DSTFILE is a directory. +--help display this help and exit. +--version display version info and exit. + +Environment variables override the default commands: + CHGRPPROG CHMODPROG CHOWNPROG CPPROG MKDIRPROG MVPROG RMPROG STRIPPROG +" + +while test -n "$1"; do + case $1 in + -c) shift + continue;; + + -d) dir_arg=true + shift + continue;; + + -g) chgrpcmd="$chgrpprog $2" + shift + shift + continue;; + + --help) echo "$usage"; exit $?;; + + -m) chmodcmd="$chmodprog $2" + shift + shift + continue;; + + -o) chowncmd="$chownprog $2" + shift + shift + continue;; + + -s) stripcmd=$stripprog + shift + continue;; + + -t) dstarg=$2 + shift + shift + continue;; + + -T) no_target_directory=true + shift + continue;; + + --version) echo "$0 $scriptversion"; exit $?;; + + *) # When -d is used, all remaining arguments are directories to create. + # When -t is used, the destination is already specified. + test -n "$dir_arg$dstarg" && break + # Otherwise, the last argument is the destination. Remove it from $@. + for arg + do + if test -n "$dstarg"; then + # $@ is not empty: it contains at least $arg. + set fnord "$@" "$dstarg" + shift # fnord + fi + shift # arg + dstarg=$arg + done + break;; + esac +done + +if test -z "$1"; then + if test -z "$dir_arg"; then + echo "$0: no input file specified." >&2 + exit 1 + fi + # It's OK to call `install-sh -d' without argument. + # This can happen when creating conditional directories. + exit 0 +fi + +for src +do + # Protect names starting with `-'. + case $src in + -*) src=./$src ;; + esac + + if test -n "$dir_arg"; then + dst=$src + src= + + if test -d "$dst"; then + mkdircmd=: + chmodcmd= + else + mkdircmd=$mkdirprog + fi + else + # Waiting for this to be detected by the "$cpprog $src $dsttmp" command + # might cause directories to be created, which would be especially bad + # if $src (and thus $dsttmp) contains '*'. + if test ! -f "$src" && test ! -d "$src"; then + echo "$0: $src does not exist." >&2 + exit 1 + fi + + if test -z "$dstarg"; then + echo "$0: no destination specified." >&2 + exit 1 + fi + + dst=$dstarg + # Protect names starting with `-'. + case $dst in + -*) dst=./$dst ;; + esac + + # If destination is a directory, append the input filename; won't work + # if double slashes aren't ignored. + if test -d "$dst"; then + if test -n "$no_target_directory"; then + echo "$0: $dstarg: Is a directory" >&2 + exit 1 + fi + dst=$dst/`basename "$src"` + fi + fi + + # This sed command emulates the dirname command. + dstdir=`echo "$dst" | sed -e 's,/*$,,;s,[^/]*$,,;s,/*$,,;s,^$,.,'` + + # Make sure that the destination directory exists. + + # Skip lots of stat calls in the usual case. + if test ! -d "$dstdir"; then + defaultIFS=' + ' + IFS="${IFS-$defaultIFS}" + + oIFS=$IFS + # Some sh's can't handle IFS=/ for some reason. + IFS='%' + set x `echo "$dstdir" | sed -e 's@/@%@g' -e 's@^%@/@'` + shift + IFS=$oIFS + + pathcomp= + + while test $# -ne 0 ; do + pathcomp=$pathcomp$1 + shift + if test ! -d "$pathcomp"; then + $mkdirprog "$pathcomp" + # mkdir can fail with a `File exist' error in case several + # install-sh are creating the directory concurrently. This + # is OK. + test -d "$pathcomp" || exit + fi + pathcomp=$pathcomp/ + done + fi + + if test -n "$dir_arg"; then + $doit $mkdircmd "$dst" \ + && { test -z "$chowncmd" || $doit $chowncmd "$dst"; } \ + && { test -z "$chgrpcmd" || $doit $chgrpcmd "$dst"; } \ + && { test -z "$stripcmd" || $doit $stripcmd "$dst"; } \ + && { test -z "$chmodcmd" || $doit $chmodcmd "$dst"; } + + else + dstfile=`basename "$dst"` + + # Make a couple of temp file names in the proper directory. + dsttmp=$dstdir/_inst.$$_ + rmtmp=$dstdir/_rm.$$_ + + # Trap to clean up those temp files at exit. + trap 'ret=$?; rm -f "$dsttmp" "$rmtmp" && exit $ret' 0 + trap '(exit $?); exit' 1 2 13 15 + + # Copy the file name to the temp name. + $doit $cpprog "$src" "$dsttmp" && + + # and set any options; do chmod last to preserve setuid bits. + # + # If any of these fail, we abort the whole thing. If we want to + # ignore errors from any of these, just make sure not to ignore + # errors from the above "$doit $cpprog $src $dsttmp" command. + # + { test -z "$chowncmd" || $doit $chowncmd "$dsttmp"; } \ + && { test -z "$chgrpcmd" || $doit $chgrpcmd "$dsttmp"; } \ + && { test -z "$stripcmd" || $doit $stripcmd "$dsttmp"; } \ + && { test -z "$chmodcmd" || $doit $chmodcmd "$dsttmp"; } && + + # Now rename the file to the real destination. + { $doit $mvcmd -f "$dsttmp" "$dstdir/$dstfile" 2>/dev/null \ + || { + # The rename failed, perhaps because mv can't rename something else + # to itself, or perhaps because mv is so ancient that it does not + # support -f. + + # Now remove or move aside any old file at destination location. + # We try this two ways since rm can't unlink itself on some + # systems and the destination file might be busy for other + # reasons. In this case, the final cleanup might fail but the new + # file should still install successfully. + { + if test -f "$dstdir/$dstfile"; then + $doit $rmcmd -f "$dstdir/$dstfile" 2>/dev/null \ + || $doit $mvcmd -f "$dstdir/$dstfile" "$rmtmp" 2>/dev/null \ + || { + echo "$0: cannot unlink or rename $dstdir/$dstfile" >&2 + (exit 1); exit 1 + } + else + : + fi + } && + + # Now rename the file to the real destination. + $doit $mvcmd "$dsttmp" "$dstdir/$dstfile" + } + } + fi || { (exit 1); exit 1; } +done + +# The final little trick to "correctly" pass the exit status to the exit trap. +{ + (exit 0); exit 0 +} + +# Local variables: +# eval: (add-hook 'write-file-hooks 'time-stamp) +# time-stamp-start: "scriptversion=" +# time-stamp-format: "%:y-%02m-%02d.%02H" +# time-stamp-end: "$" +# End: diff --git a/config/ltmain.sh b/config/ltmain.sh new file mode 100755 index 0000000..bc48901 --- /dev/null +++ b/config/ltmain.sh @@ -0,0 +1,6500 @@ +# ltmain.sh - Provide generalized library-building support services. +# NOTE: Changing this file will not affect anything until you rerun configure. +# +# Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2003, 2004, 2005 +# Free Software Foundation, Inc. +# Originally by Gordon Matzigkeit , 1996 +# +# This program 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. +# +# As a special exception to the GNU General Public License, if you +# distribute this file as part of a program that contains a +# configuration script generated by Autoconf, you may include it under +# the same distribution terms that you use for the rest of that program. + +basename="s,^.*/,,g" + +# Work around backward compatibility issue on IRIX 6.5. On IRIX 6.4+, sh +# is ksh but when the shell is invoked as "sh" and the current value of +# the _XPG environment variable is not equal to 1 (one), the special +# positional parameter $0, within a function call, is the name of the +# function. +progpath="$0" + +# The name of this program: +progname=`echo "$progpath" | $SED $basename` +modename="$progname" + +# Global variables: +EXIT_SUCCESS=0 +EXIT_FAILURE=1 + +PROGRAM=ltmain.sh +PACKAGE=libtool +VERSION=1.5.18 +TIMESTAMP=" (1.1220.2.246 2005/05/16 10:00:18)" + +# See if we are running on zsh, and set the options which allow our +# commands through without removal of \ escapes. +if test -n "${ZSH_VERSION+set}" ; then + setopt NO_GLOB_SUBST +fi + +# Check that we have a working $echo. +if test "X$1" = X--no-reexec; then + # Discard the --no-reexec flag, and continue. + shift +elif test "X$1" = X--fallback-echo; then + # Avoid inline document here, it may be left over + : +elif test "X`($echo '\t') 2>/dev/null`" = 'X\t'; then + # Yippee, $echo works! + : +else + # Restart under the correct shell, and then maybe $echo will work. + exec $SHELL "$progpath" --no-reexec ${1+"$@"} +fi + +if test "X$1" = X--fallback-echo; then + # used as fallback echo + shift + cat <&2 + $echo "Fatal configuration error. See the $PACKAGE docs for more information." 1>&2 + exit $EXIT_FAILURE +fi + +# Global variables. +mode=$default_mode +nonopt= +prev= +prevopt= +run= +show="$echo" +show_help= +execute_dlfiles= +lo2o="s/\\.lo\$/.${objext}/" +o2lo="s/\\.${objext}\$/.lo/" +quote_scanset='[[~#^*{};<>?'"'"' ]' + +##################################### +# Shell function definitions: +# This seems to be the best place for them + +# func_win32_libid arg +# return the library type of file 'arg' +# +# Need a lot of goo to handle *both* DLLs and import libs +# Has to be a shell function in order to 'eat' the argument +# that is supplied when $file_magic_command is called. +func_win32_libid () +{ + win32_libid_type="unknown" + win32_fileres=`file -L $1 2>/dev/null` + case $win32_fileres in + *ar\ archive\ import\ library*) # definitely import + win32_libid_type="x86 archive import" + ;; + *ar\ archive*) # could be an import, or static + if eval $OBJDUMP -f $1 | $SED -e '10q' 2>/dev/null | \ + $EGREP -e 'file format pe-i386(.*architecture: i386)?' >/dev/null ; then + win32_nmres=`eval $NM -f posix -A $1 | \ + sed -n -e '1,100{/ I /{x;/import/!{s/^/import/;h;p;};x;};}'` + if test "X$win32_nmres" = "Ximport" ; then + win32_libid_type="x86 archive import" + else + win32_libid_type="x86 archive static" + fi + fi + ;; + *DLL*) + win32_libid_type="x86 DLL" + ;; + *executable*) # but shell scripts are "executable" too... + case $win32_fileres in + *MS\ Windows\ PE\ Intel*) + win32_libid_type="x86 DLL" + ;; + esac + ;; + esac + $echo $win32_libid_type +} + + +# func_infer_tag arg +# Infer tagged configuration to use if any are available and +# if one wasn't chosen via the "--tag" command line option. +# Only attempt this if the compiler in the base compile +# command doesn't match the default compiler. +# arg is usually of the form 'gcc ...' +func_infer_tag () +{ + if test -n "$available_tags" && test -z "$tagname"; then + CC_quoted= + for arg in $CC; do + case $arg in + *$quote_scanset* | *]* | *\|* | *\&* | *\(* | *\)* | "") + arg="\"$arg\"" + ;; + esac + CC_quoted="$CC_quoted $arg" + done + case $@ in + # Blanks in the command may have been stripped by the calling shell, + # but not from the CC environment variable when configure was run. + " $CC "* | "$CC "* | " `$echo $CC` "* | "`$echo $CC` "* | " $CC_quoted"* | "$CC_quoted "* | " `$echo $CC_quoted` "* | "`$echo $CC_quoted` "*) ;; + # Blanks at the start of $base_compile will cause this to fail + # if we don't check for them as well. + *) + for z in $available_tags; do + if grep "^# ### BEGIN LIBTOOL TAG CONFIG: $z$" < "$progpath" > /dev/null; then + # Evaluate the configuration. + eval "`${SED} -n -e '/^# ### BEGIN LIBTOOL TAG CONFIG: '$z'$/,/^# ### END LIBTOOL TAG CONFIG: '$z'$/p' < $progpath`" + CC_quoted= + for arg in $CC; do + # Double-quote args containing other shell metacharacters. + case $arg in + *$quote_scanset* | *]* | *\|* | *\&* | *\(* | *\)* | "") + arg="\"$arg\"" + ;; + esac + CC_quoted="$CC_quoted $arg" + done + case "$@ " in + " $CC "* | "$CC "* | " `$echo $CC` "* | "`$echo $CC` "* | " $CC_quoted"* | "$CC_quoted "* | " `$echo $CC_quoted` "* | "`$echo $CC_quoted` "*) + # The compiler in the base compile command matches + # the one in the tagged configuration. + # Assume this is the tagged configuration we want. + tagname=$z + break + ;; + esac + fi + done + # If $tagname still isn't set, then no tagged configuration + # was found and let the user know that the "--tag" command + # line option must be used. + if test -z "$tagname"; then + $echo "$modename: unable to infer tagged configuration" + $echo "$modename: specify a tag with \`--tag'" 1>&2 + exit $EXIT_FAILURE +# else +# $echo "$modename: using $tagname tagged configuration" + fi + ;; + esac + fi +} + + +# func_extract_an_archive dir oldlib +func_extract_an_archive () +{ + f_ex_an_ar_dir="$1"; shift + f_ex_an_ar_oldlib="$1" + + $show "(cd $f_ex_an_ar_dir && $AR x $f_ex_an_ar_oldlib)" + $run eval "(cd \$f_ex_an_ar_dir && $AR x \$f_ex_an_ar_oldlib)" || exit $? + if ($AR t "$f_ex_an_ar_oldlib" | sort | sort -uc >/dev/null 2>&1); then + : + else + $echo "$modename: ERROR: object name conflicts: $f_ex_an_ar_dir/$f_ex_an_ar_oldlib" 1>&2 + exit $EXIT_FAILURE + fi +} + +# func_extract_archives gentop oldlib ... +func_extract_archives () +{ + my_gentop="$1"; shift + my_oldlibs=${1+"$@"} + my_oldobjs="" + my_xlib="" + my_xabs="" + my_xdir="" + my_status="" + + $show "${rm}r $my_gentop" + $run ${rm}r "$my_gentop" + $show "$mkdir $my_gentop" + $run $mkdir "$my_gentop" + my_status=$? + if test "$my_status" -ne 0 && test ! -d "$my_gentop"; then + exit $my_status + fi + + for my_xlib in $my_oldlibs; do + # Extract the objects. + case $my_xlib in + [\\/]* | [A-Za-z]:[\\/]*) my_xabs="$my_xlib" ;; + *) my_xabs=`pwd`"/$my_xlib" ;; + esac + my_xlib=`$echo "X$my_xlib" | $Xsed -e 's%^.*/%%'` + my_xdir="$my_gentop/$my_xlib" + + $show "${rm}r $my_xdir" + $run ${rm}r "$my_xdir" + $show "$mkdir $my_xdir" + $run $mkdir "$my_xdir" + status=$? + if test "$status" -ne 0 && test ! -d "$my_xdir"; then + exit $status + fi + case $host in + *-darwin*) + $show "Extracting $my_xabs" + # Do not bother doing anything if just a dry run + if test -z "$run"; then + darwin_orig_dir=`pwd` + cd $my_xdir || exit $? + darwin_archive=$my_xabs + darwin_curdir=`pwd` + darwin_base_archive=`$echo "X$darwin_archive" | $Xsed -e 's%^.*/%%'` + darwin_arches=`lipo -info "$darwin_archive" 2>/dev/null | $EGREP Architectures 2>/dev/null` + if test -n "$darwin_arches"; then + darwin_arches=`echo "$darwin_arches" | $SED -e 's/.*are://'` + darwin_arch= + $show "$darwin_base_archive has multiple architectures $darwin_arches" + for darwin_arch in $darwin_arches ; do + mkdir -p "unfat-$$/${darwin_base_archive}-${darwin_arch}" + lipo -thin $darwin_arch -output "unfat-$$/${darwin_base_archive}-${darwin_arch}/${darwin_base_archive}" "${darwin_archive}" + cd "unfat-$$/${darwin_base_archive}-${darwin_arch}" + func_extract_an_archive "`pwd`" "${darwin_base_archive}" + cd "$darwin_curdir" + $rm "unfat-$$/${darwin_base_archive}-${darwin_arch}/${darwin_base_archive}" + done # $darwin_arches + ## Okay now we have a bunch of thin objects, gotta fatten them up :) + darwin_filelist=`find unfat-$$ -type f -name \*.o -print -o -name \*.lo -print| xargs basename | sort -u | $NL2SP` + darwin_file= + darwin_files= + for darwin_file in $darwin_filelist; do + darwin_files=`find unfat-$$ -name $darwin_file -print | $NL2SP` + lipo -create -output "$darwin_file" $darwin_files + done # $darwin_filelist + ${rm}r unfat-$$ + cd "$darwin_orig_dir" + else + cd "$darwin_orig_dir" + func_extract_an_archive "$my_xdir" "$my_xabs" + fi # $darwin_arches + fi # $run + ;; + *) + func_extract_an_archive "$my_xdir" "$my_xabs" + ;; + esac + my_oldobjs="$my_oldobjs "`find $my_xdir -name \*.$objext -print -o -name \*.lo -print | $NL2SP` + done + func_extract_archives_result="$my_oldobjs" +} +# End of Shell function definitions +##################################### + +# Darwin sucks +eval std_shrext=\"$shrext_cmds\" + +# Parse our command line options once, thoroughly. +while test "$#" -gt 0 +do + arg="$1" + shift + + case $arg in + -*=*) optarg=`$echo "X$arg" | $Xsed -e 's/[-_a-zA-Z0-9]*=//'` ;; + *) optarg= ;; + esac + + # If the previous option needs an argument, assign it. + if test -n "$prev"; then + case $prev in + execute_dlfiles) + execute_dlfiles="$execute_dlfiles $arg" + ;; + tag) + tagname="$arg" + preserve_args="${preserve_args}=$arg" + + # Check whether tagname contains only valid characters + case $tagname in + *[!-_A-Za-z0-9,/]*) + $echo "$progname: invalid tag name: $tagname" 1>&2 + exit $EXIT_FAILURE + ;; + esac + + case $tagname in + CC) + # Don't test for the "default" C tag, as we know, it's there, but + # not specially marked. + ;; + *) + if grep "^# ### BEGIN LIBTOOL TAG CONFIG: $tagname$" < "$progpath" > /dev/null; then + taglist="$taglist $tagname" + # Evaluate the configuration. + eval "`${SED} -n -e '/^# ### BEGIN LIBTOOL TAG CONFIG: '$tagname'$/,/^# ### END LIBTOOL TAG CONFIG: '$tagname'$/p' < $progpath`" + else + $echo "$progname: ignoring unknown tag $tagname" 1>&2 + fi + ;; + esac + ;; + *) + eval "$prev=\$arg" + ;; + esac + + prev= + prevopt= + continue + fi + + # Have we seen a non-optional argument yet? + case $arg in + --help) + show_help=yes + ;; + + --version) + $echo "$PROGRAM (GNU $PACKAGE) $VERSION$TIMESTAMP" + $echo + $echo "Copyright (C) 2005 Free Software Foundation, Inc." + $echo "This is free software; see the source for copying conditions. There is NO" + $echo "warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE." + exit $? + ;; + + --config) + ${SED} -e '1,/^# ### BEGIN LIBTOOL CONFIG/d' -e '/^# ### END LIBTOOL CONFIG/,$d' $progpath + # Now print the configurations for the tags. + for tagname in $taglist; do + ${SED} -n -e "/^# ### BEGIN LIBTOOL TAG CONFIG: $tagname$/,/^# ### END LIBTOOL TAG CONFIG: $tagname$/p" < "$progpath" + done + exit $? + ;; + + --debug) + $echo "$progname: enabling shell trace mode" + set -x + preserve_args="$preserve_args $arg" + ;; + + --dry-run | -n) + run=: + ;; + + --features) + $echo "host: $host" + if test "$build_libtool_libs" = yes; then + $echo "enable shared libraries" + else + $echo "disable shared libraries" + fi + if test "$build_old_libs" = yes; then + $echo "enable static libraries" + else + $echo "disable static libraries" + fi + exit $? + ;; + + --finish) mode="finish" ;; + + --mode) prevopt="--mode" prev=mode ;; + --mode=*) mode="$optarg" ;; + + --preserve-dup-deps) duplicate_deps="yes" ;; + + --quiet | --silent) + show=: + preserve_args="$preserve_args $arg" + ;; + + --tag) prevopt="--tag" prev=tag ;; + --tag=*) + set tag "$optarg" ${1+"$@"} + shift + prev=tag + preserve_args="$preserve_args --tag" + ;; + + -dlopen) + prevopt="-dlopen" + prev=execute_dlfiles + ;; + + -*) + $echo "$modename: unrecognized option \`$arg'" 1>&2 + $echo "$help" 1>&2 + exit $EXIT_FAILURE + ;; + + *) + nonopt="$arg" + break + ;; + esac +done + +if test -n "$prevopt"; then + $echo "$modename: option \`$prevopt' requires an argument" 1>&2 + $echo "$help" 1>&2 + exit $EXIT_FAILURE +fi + +# If this variable is set in any of the actions, the command in it +# will be execed at the end. This prevents here-documents from being +# left over by shells. +exec_cmd= + +if test -z "$show_help"; then + + # Infer the operation mode. + if test -z "$mode"; then + $echo "*** Warning: inferring the mode of operation is deprecated." 1>&2 + $echo "*** Future versions of Libtool will require --mode=MODE be specified." 1>&2 + case $nonopt in + *cc | cc* | *++ | gcc* | *-gcc* | g++* | xlc*) + mode=link + for arg + do + case $arg in + -c) + mode=compile + break + ;; + esac + done + ;; + *db | *dbx | *strace | *truss) + mode=execute + ;; + *install*|cp|mv) + mode=install + ;; + *rm) + mode=uninstall + ;; + *) + # If we have no mode, but dlfiles were specified, then do execute mode. + test -n "$execute_dlfiles" && mode=execute + + # Just use the default operation mode. + if test -z "$mode"; then + if test -n "$nonopt"; then + $echo "$modename: warning: cannot infer operation mode from \`$nonopt'" 1>&2 + else + $echo "$modename: warning: cannot infer operation mode without MODE-ARGS" 1>&2 + fi + fi + ;; + esac + fi + + # Only execute mode is allowed to have -dlopen flags. + if test -n "$execute_dlfiles" && test "$mode" != execute; then + $echo "$modename: unrecognized option \`-dlopen'" 1>&2 + $echo "$help" 1>&2 + exit $EXIT_FAILURE + fi + + # Change the help message to a mode-specific one. + generic_help="$help" + help="Try \`$modename --help --mode=$mode' for more information." + + # These modes are in order of execution frequency so that they run quickly. + case $mode in + # libtool compile mode + compile) + modename="$modename: compile" + # Get the compilation command and the source file. + base_compile= + srcfile="$nonopt" # always keep a non-empty value in "srcfile" + suppress_opt=yes + suppress_output= + arg_mode=normal + libobj= + later= + + for arg + do + case "$arg_mode" in + arg ) + # do not "continue". Instead, add this to base_compile + lastarg="$arg" + arg_mode=normal + ;; + + target ) + libobj="$arg" + arg_mode=normal + continue + ;; + + normal ) + # Accept any command-line options. + case $arg in + -o) + if test -n "$libobj" ; then + $echo "$modename: you cannot specify \`-o' more than once" 1>&2 + exit $EXIT_FAILURE + fi + arg_mode=target + continue + ;; + + -static | -prefer-pic | -prefer-non-pic) + later="$later $arg" + continue + ;; + + -no-suppress) + suppress_opt=no + continue + ;; + + -Xcompiler) + arg_mode=arg # the next one goes into the "base_compile" arg list + continue # The current "srcfile" will either be retained or + ;; # replaced later. I would guess that would be a bug. + + -Wc,*) + args=`$echo "X$arg" | $Xsed -e "s/^-Wc,//"` + lastarg= + save_ifs="$IFS"; IFS=',' + for arg in $args; do + IFS="$save_ifs" + + # Double-quote args containing other shell metacharacters. + # Many Bourne shells cannot handle close brackets correctly + # in scan sets, so we specify it separately. + case $arg in + *$quote_scanset* | *]* | *\|* | *\&* | *\(* | *\)* | "") + arg="\"$arg\"" + ;; + esac + lastarg="$lastarg $arg" + done + IFS="$save_ifs" + lastarg=`$echo "X$lastarg" | $Xsed -e "s/^ //"` + + # Add the arguments to base_compile. + base_compile="$base_compile $lastarg" + continue + ;; + + * ) + # Accept the current argument as the source file. + # The previous "srcfile" becomes the current argument. + # + lastarg="$srcfile" + srcfile="$arg" + ;; + esac # case $arg + ;; + esac # case $arg_mode + + # Aesthetically quote the previous argument. + lastarg=`$echo "X$lastarg" | $Xsed -e "$sed_quote_subst"` + + case $lastarg in + # Double-quote args containing other shell metacharacters. + # Many Bourne shells cannot handle close brackets correctly + # in scan sets, and some SunOS ksh mistreat backslash-escaping + # in scan sets (worked around with variable expansion), + # and furthermore cannot handle '|' '&' '(' ')' in scan sets + # at all, so we specify them separately. + *$quote_scanset* | *]* | *\|* | *\&* | *\(* | *\)* | "") + lastarg="\"$lastarg\"" + ;; + esac + + base_compile="$base_compile $lastarg" + done # for arg + + case $arg_mode in + arg) + $echo "$modename: you must specify an argument for -Xcompile" + exit $EXIT_FAILURE + ;; + target) + $echo "$modename: you must specify a target with \`-o'" 1>&2 + exit $EXIT_FAILURE + ;; + *) + # Get the name of the library object. + [ -z "$libobj" ] && libobj=`$echo "X$srcfile" | $Xsed -e 's%^.*/%%'` + ;; + esac + + # Recognize several different file suffixes. + # If the user specifies -o file.o, it is replaced with file.lo + xform='[cCFSifmso]' + case $libobj in + *.ada) xform=ada ;; + *.adb) xform=adb ;; + *.ads) xform=ads ;; + *.asm) xform=asm ;; + *.c++) xform=c++ ;; + *.cc) xform=cc ;; + *.ii) xform=ii ;; + *.class) xform=class ;; + *.cpp) xform=cpp ;; + *.cxx) xform=cxx ;; + *.f90) xform=f90 ;; + *.for) xform=for ;; + *.java) xform=java ;; + esac + + libobj=`$echo "X$libobj" | $Xsed -e "s/\.$xform$/.lo/"` + + case $libobj in + *.lo) obj=`$echo "X$libobj" | $Xsed -e "$lo2o"` ;; + *) + $echo "$modename: cannot determine name of library object from \`$libobj'" 1>&2 + exit $EXIT_FAILURE + ;; + esac + + func_infer_tag $base_compile + + for arg in $later; do + case $arg in + -static) + build_old_libs=yes + continue + ;; + + -prefer-pic) + pic_mode=yes + continue + ;; + + -prefer-non-pic) + pic_mode=no + continue + ;; + esac + done + + qlibobj=`$echo "X$libobj" | $Xsed -e "$sed_quote_subst"` + case $qlibobj in + *$quote_scanset* | *]* | *\|* | *\&* | *\(* | *\)* | "") + qlibobj="\"$qlibobj\"" ;; + esac + if test "X$libobj" != "X$qlibobj"; then + $echo "$modename: libobj name \`$libobj' may not contain shell special characters." + exit $EXIT_FAILURE + fi + objname=`$echo "X$obj" | $Xsed -e 's%^.*/%%'` + xdir=`$echo "X$obj" | $Xsed -e 's%/[^/]*$%%'` + if test "X$xdir" = "X$obj"; then + xdir= + else + xdir=$xdir/ + fi + lobj=${xdir}$objdir/$objname + + if test -z "$base_compile"; then + $echo "$modename: you must specify a compilation command" 1>&2 + $echo "$help" 1>&2 + exit $EXIT_FAILURE + fi + + # Delete any leftover library objects. + if test "$build_old_libs" = yes; then + removelist="$obj $lobj $libobj ${libobj}T" + else + removelist="$lobj $libobj ${libobj}T" + fi + + $run $rm $removelist + trap "$run $rm $removelist; exit $EXIT_FAILURE" 1 2 15 + + # On Cygwin there's no "real" PIC flag so we must build both object types + case $host_os in + cygwin* | mingw* | pw32* | os2*) + pic_mode=default + ;; + esac + if test "$pic_mode" = no && test "$deplibs_check_method" != pass_all; then + # non-PIC code in shared libraries is not supported + pic_mode=default + fi + + # Calculate the filename of the output object if compiler does + # not support -o with -c + if test "$compiler_c_o" = no; then + output_obj=`$echo "X$srcfile" | $Xsed -e 's%^.*/%%' -e 's%\.[^.]*$%%'`.${objext} + lockfile="$output_obj.lock" + removelist="$removelist $output_obj $lockfile" + trap "$run $rm $removelist; exit $EXIT_FAILURE" 1 2 15 + else + output_obj= + need_locks=no + lockfile= + fi + + # Lock this critical section if it is needed + # We use this script file to make the link, it avoids creating a new file + if test "$need_locks" = yes; then + until $run ln "$progpath" "$lockfile" 2>/dev/null; do + $show "Waiting for $lockfile to be removed" + sleep 2 + done + elif test "$need_locks" = warn; then + if test -f "$lockfile"; then + $echo "\ +*** ERROR, $lockfile exists and contains: +`cat $lockfile 2>/dev/null` + +This indicates that another process is trying to use the same +temporary object file, and libtool could not work around it because +your compiler does not support \`-c' and \`-o' together. If you +repeat this compilation, it may succeed, by chance, but you had better +avoid parallel builds (make -j) in this platform, or get a better +compiler." + + $run $rm $removelist + exit $EXIT_FAILURE + fi + $echo "$srcfile" > "$lockfile" + fi + + if test -n "$fix_srcfile_path"; then + eval srcfile=\"$fix_srcfile_path\" + fi + qsrcfile=`$echo "X$srcfile" | $Xsed -e "$sed_quote_subst"` + case $qsrcfile in + *$quote_scanset* | *]* | *\|* | *\&* | *\(* | *\)* | "") + qsrcfile="\"$qsrcfile\"" ;; + esac + + $run $rm "$libobj" "${libobj}T" + + # Create a libtool object file (analogous to a ".la" file), + # but don't create it if we're doing a dry run. + test -z "$run" && cat > ${libobj}T </dev/null`" != "X$srcfile"; then + $echo "\ +*** ERROR, $lockfile contains: +`cat $lockfile 2>/dev/null` + +but it should contain: +$srcfile + +This indicates that another process is trying to use the same +temporary object file, and libtool could not work around it because +your compiler does not support \`-c' and \`-o' together. If you +repeat this compilation, it may succeed, by chance, but you had better +avoid parallel builds (make -j) in this platform, or get a better +compiler." + + $run $rm $removelist + exit $EXIT_FAILURE + fi + + # Just move the object if needed, then go on to compile the next one + if test -n "$output_obj" && test "X$output_obj" != "X$lobj"; then + $show "$mv $output_obj $lobj" + if $run $mv $output_obj $lobj; then : + else + error=$? + $run $rm $removelist + exit $error + fi + fi + + # Append the name of the PIC object to the libtool object file. + test -z "$run" && cat >> ${libobj}T <> ${libobj}T </dev/null`" != "X$srcfile"; then + $echo "\ +*** ERROR, $lockfile contains: +`cat $lockfile 2>/dev/null` + +but it should contain: +$srcfile + +This indicates that another process is trying to use the same +temporary object file, and libtool could not work around it because +your compiler does not support \`-c' and \`-o' together. If you +repeat this compilation, it may succeed, by chance, but you had better +avoid parallel builds (make -j) in this platform, or get a better +compiler." + + $run $rm $removelist + exit $EXIT_FAILURE + fi + + # Just move the object if needed + if test -n "$output_obj" && test "X$output_obj" != "X$obj"; then + $show "$mv $output_obj $obj" + if $run $mv $output_obj $obj; then : + else + error=$? + $run $rm $removelist + exit $error + fi + fi + + # Append the name of the non-PIC object the libtool object file. + # Only append if the libtool object file exists. + test -z "$run" && cat >> ${libobj}T <> ${libobj}T <&2 + fi + if test -n "$link_static_flag"; then + dlopen_self=$dlopen_self_static + fi + else + if test -z "$pic_flag" && test -n "$link_static_flag"; then + dlopen_self=$dlopen_self_static + fi + fi + build_libtool_libs=no + build_old_libs=yes + prefer_static_libs=yes + break + ;; + esac + done + + # See if our shared archives depend on static archives. + test -n "$old_archive_from_new_cmds" && build_old_libs=yes + + # Go through the arguments, transforming them on the way. + while test "$#" -gt 0; do + arg="$1" + shift + case $arg in + *$quote_scanset* | *]* | *\|* | *\&* | *\(* | *\)* | "") + qarg=\"`$echo "X$arg" | $Xsed -e "$sed_quote_subst"`\" ### testsuite: skip nested quoting test + ;; + *) qarg=$arg ;; + esac + libtool_args="$libtool_args $qarg" + + # If the previous option needs an argument, assign it. + if test -n "$prev"; then + case $prev in + output) + compile_command="$compile_command @OUTPUT@" + finalize_command="$finalize_command @OUTPUT@" + ;; + esac + + case $prev in + dlfiles|dlprefiles) + if test "$preload" = no; then + # Add the symbol object into the linking commands. + compile_command="$compile_command @SYMFILE@" + finalize_command="$finalize_command @SYMFILE@" + preload=yes + fi + case $arg in + *.la | *.lo) ;; # We handle these cases below. + force) + if test "$dlself" = no; then + dlself=needless + export_dynamic=yes + fi + prev= + continue + ;; + self) + if test "$prev" = dlprefiles; then + dlself=yes + elif test "$prev" = dlfiles && test "$dlopen_self" != yes; then + dlself=yes + else + dlself=needless + export_dynamic=yes + fi + prev= + continue + ;; + *) + if test "$prev" = dlfiles; then + dlfiles="$dlfiles $arg" + else + dlprefiles="$dlprefiles $arg" + fi + prev= + continue + ;; + esac + ;; + expsyms) + export_symbols="$arg" + if test ! -f "$arg"; then + $echo "$modename: symbol file \`$arg' does not exist" + exit $EXIT_FAILURE + fi + prev= + continue + ;; + expsyms_regex) + export_symbols_regex="$arg" + prev= + continue + ;; + inst_prefix) + inst_prefix_dir="$arg" + prev= + continue + ;; + precious_regex) + precious_files_regex="$arg" + prev= + continue + ;; + release) + release="-$arg" + prev= + continue + ;; + objectlist) + if test -f "$arg"; then + save_arg=$arg + moreargs= + for fil in `cat $save_arg` + do +# moreargs="$moreargs $fil" + arg=$fil + # A libtool-controlled object. + + # Check to see that this really is a libtool object. + if (${SED} -e '2q' $arg | grep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then + pic_object= + non_pic_object= + + # Read the .lo file + # If there is no directory component, then add one. + case $arg in + */* | *\\*) . $arg ;; + *) . ./$arg ;; + esac + + if test -z "$pic_object" || \ + test -z "$non_pic_object" || + test "$pic_object" = none && \ + test "$non_pic_object" = none; then + $echo "$modename: cannot find name of object for \`$arg'" 1>&2 + exit $EXIT_FAILURE + fi + + # Extract subdirectory from the argument. + xdir=`$echo "X$arg" | $Xsed -e 's%/[^/]*$%%'` + if test "X$xdir" = "X$arg"; then + xdir= + else + xdir="$xdir/" + fi + + if test "$pic_object" != none; then + # Prepend the subdirectory the object is found in. + pic_object="$xdir$pic_object" + + if test "$prev" = dlfiles; then + if test "$build_libtool_libs" = yes && test "$dlopen_support" = yes; then + dlfiles="$dlfiles $pic_object" + prev= + continue + else + # If libtool objects are unsupported, then we need to preload. + prev=dlprefiles + fi + fi + + # CHECK ME: I think I busted this. -Ossama + if test "$prev" = dlprefiles; then + # Preload the old-style object. + dlprefiles="$dlprefiles $pic_object" + prev= + fi + + # A PIC object. + libobjs="$libobjs $pic_object" + arg="$pic_object" + fi + + # Non-PIC object. + if test "$non_pic_object" != none; then + # Prepend the subdirectory the object is found in. + non_pic_object="$xdir$non_pic_object" + + # A standard non-PIC object + non_pic_objects="$non_pic_objects $non_pic_object" + if test -z "$pic_object" || test "$pic_object" = none ; then + arg="$non_pic_object" + fi + fi + else + # Only an error if not doing a dry-run. + if test -z "$run"; then + $echo "$modename: \`$arg' is not a valid libtool object" 1>&2 + exit $EXIT_FAILURE + else + # Dry-run case. + + # Extract subdirectory from the argument. + xdir=`$echo "X$arg" | $Xsed -e 's%/[^/]*$%%'` + if test "X$xdir" = "X$arg"; then + xdir= + else + xdir="$xdir/" + fi + + pic_object=`$echo "X${xdir}${objdir}/${arg}" | $Xsed -e "$lo2o"` + non_pic_object=`$echo "X${xdir}${arg}" | $Xsed -e "$lo2o"` + libobjs="$libobjs $pic_object" + non_pic_objects="$non_pic_objects $non_pic_object" + fi + fi + done + else + $echo "$modename: link input file \`$save_arg' does not exist" + exit $EXIT_FAILURE + fi + arg=$save_arg + prev= + continue + ;; + rpath | xrpath) + # We need an absolute path. + case $arg in + [\\/]* | [A-Za-z]:[\\/]*) ;; + *) + $echo "$modename: only absolute run-paths are allowed" 1>&2 + exit $EXIT_FAILURE + ;; + esac + if test "$prev" = rpath; then + case "$rpath " in + *" $arg "*) ;; + *) rpath="$rpath $arg" ;; + esac + else + case "$xrpath " in + *" $arg "*) ;; + *) xrpath="$xrpath $arg" ;; + esac + fi + prev= + continue + ;; + xcompiler) + compiler_flags="$compiler_flags $qarg" + prev= + compile_command="$compile_command $qarg" + finalize_command="$finalize_command $qarg" + continue + ;; + xlinker) + linker_flags="$linker_flags $qarg" + compiler_flags="$compiler_flags $wl$qarg" + prev= + compile_command="$compile_command $wl$qarg" + finalize_command="$finalize_command $wl$qarg" + continue + ;; + xcclinker) + linker_flags="$linker_flags $qarg" + compiler_flags="$compiler_flags $qarg" + prev= + compile_command="$compile_command $qarg" + finalize_command="$finalize_command $qarg" + continue + ;; + shrext) + shrext_cmds="$arg" + prev= + continue + ;; + darwin_framework) + compiler_flags="$compiler_flags $arg" + compile_command="$compile_command $arg" + finalize_command="$finalize_command $arg" + prev= + continue + ;; + *) + eval "$prev=\"\$arg\"" + prev= + continue + ;; + esac + fi # test -n "$prev" + + prevarg="$arg" + + case $arg in + -all-static) + if test -n "$link_static_flag"; then + compile_command="$compile_command $link_static_flag" + finalize_command="$finalize_command $link_static_flag" + fi + continue + ;; + + -allow-undefined) + # FIXME: remove this flag sometime in the future. + $echo "$modename: \`-allow-undefined' is deprecated because it is the default" 1>&2 + continue + ;; + + -avoid-version) + avoid_version=yes + continue + ;; + + -dlopen) + prev=dlfiles + continue + ;; + + -dlpreopen) + prev=dlprefiles + continue + ;; + + -export-dynamic) + export_dynamic=yes + continue + ;; + + -export-symbols | -export-symbols-regex) + if test -n "$export_symbols" || test -n "$export_symbols_regex"; then + $echo "$modename: more than one -exported-symbols argument is not allowed" + exit $EXIT_FAILURE + fi + if test "X$arg" = "X-export-symbols"; then + prev=expsyms + else + prev=expsyms_regex + fi + continue + ;; + + -framework) + prev=darwin_framework + compiler_flags="$compiler_flags $arg" + compile_command="$compile_command $arg" + finalize_command="$finalize_command $arg" + continue + ;; + + -inst-prefix-dir) + prev=inst_prefix + continue + ;; + + # The native IRIX linker understands -LANG:*, -LIST:* and -LNO:* + # so, if we see these flags be careful not to treat them like -L + -L[A-Z][A-Z]*:*) + case $with_gcc/$host in + no/*-*-irix* | /*-*-irix*) + compile_command="$compile_command $arg" + finalize_command="$finalize_command $arg" + ;; + esac + continue + ;; + + -L*) + dir=`$echo "X$arg" | $Xsed -e 's/^-L//'` + # We need an absolute path. + case $dir in + [\\/]* | [A-Za-z]:[\\/]*) ;; + *) + absdir=`cd "$dir" && pwd` + if test -z "$absdir"; then + $echo "$modename: cannot determine absolute directory name of \`$dir'" 1>&2 + exit $EXIT_FAILURE + fi + dir="$absdir" + ;; + esac + case "$deplibs " in + *" -L$dir "*) ;; + *) + deplibs="$deplibs -L$dir" + lib_search_path="$lib_search_path $dir" + ;; + esac + case $host in + *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2*) + case :$dllsearchpath: in + *":$dir:"*) ;; + *) dllsearchpath="$dllsearchpath:$dir";; + esac + ;; + esac + continue + ;; + + -l*) + if test "X$arg" = "X-lc" || test "X$arg" = "X-lm"; then + case $host in + *-*-cygwin* | *-*-pw32* | *-*-beos*) + # These systems don't actually have a C or math library (as such) + continue + ;; + *-*-mingw* | *-*-os2*) + # These systems don't actually have a C library (as such) + test "X$arg" = "X-lc" && continue + ;; + *-*-openbsd* | *-*-freebsd* | *-*-dragonfly*) + # Do not include libc due to us having libc/libc_r. + test "X$arg" = "X-lc" && continue + ;; + *-*-rhapsody* | *-*-darwin1.[012]) + # Rhapsody C and math libraries are in the System framework + deplibs="$deplibs -framework System" + continue + esac + elif test "X$arg" = "X-lc_r"; then + case $host in + *-*-openbsd* | *-*-freebsd* | *-*-dragonfly*) + # Do not include libc_r directly, use -pthread flag. + continue + ;; + esac + fi + deplibs="$deplibs $arg" + continue + ;; + + # Tru64 UNIX uses -model [arg] to determine the layout of C++ + # classes, name mangling, and exception handling. + -model) + compile_command="$compile_command $arg" + compiler_flags="$compiler_flags $arg" + finalize_command="$finalize_command $arg" + prev=xcompiler + continue + ;; + + -mt|-mthreads|-kthread|-Kthread|-pthread|-pthreads|--thread-safe) + compiler_flags="$compiler_flags $arg" + compile_command="$compile_command $arg" + finalize_command="$finalize_command $arg" + continue + ;; + + -module) + module=yes + continue + ;; + + # -64, -mips[0-9] enable 64-bit mode on the SGI compiler + # -r[0-9][0-9]* specifies the processor on the SGI compiler + # -xarch=*, -xtarget=* enable 64-bit mode on the Sun compiler + # +DA*, +DD* enable 64-bit mode on the HP compiler + # -q* pass through compiler args for the IBM compiler + # -m* pass through architecture-specific compiler args for GCC + -64|-mips[0-9]|-r[0-9][0-9]*|-xarch=*|-xtarget=*|+DA*|+DD*|-q*|-m*) + + # Unknown arguments in both finalize_command and compile_command need + # to be aesthetically quoted because they are evaled later. + arg=`$echo "X$arg" | $Xsed -e "$sed_quote_subst"` + case $arg in + *$quote_scanset* | *]* | *\|* | *\&* | *\(* | *\)* | "") + arg="\"$arg\"" + ;; + esac + compile_command="$compile_command $arg" + finalize_command="$finalize_command $arg" + if test "$with_gcc" = "yes" ; then + compiler_flags="$compiler_flags $arg" + fi + continue + ;; + + -shrext) + prev=shrext + continue + ;; + + -no-fast-install) + fast_install=no + continue + ;; + + -no-install) + case $host in + *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2*) + # The PATH hackery in wrapper scripts is required on Windows + # in order for the loader to find any dlls it needs. + $echo "$modename: warning: \`-no-install' is ignored for $host" 1>&2 + $echo "$modename: warning: assuming \`-no-fast-install' instead" 1>&2 + fast_install=no + ;; + *) no_install=yes ;; + esac + continue + ;; + + -no-undefined) + allow_undefined=no + continue + ;; + + -objectlist) + prev=objectlist + continue + ;; + + -o) prev=output ;; + + -precious-files-regex) + prev=precious_regex + continue + ;; + + -release) + prev=release + continue + ;; + + -rpath) + prev=rpath + continue + ;; + + -R) + prev=xrpath + continue + ;; + + -R*) + dir=`$echo "X$arg" | $Xsed -e 's/^-R//'` + # We need an absolute path. + case $dir in + [\\/]* | [A-Za-z]:[\\/]*) ;; + *) + $echo "$modename: only absolute run-paths are allowed" 1>&2 + exit $EXIT_FAILURE + ;; + esac + case "$xrpath " in + *" $dir "*) ;; + *) xrpath="$xrpath $dir" ;; + esac + continue + ;; + + -static) + # The effects of -static are defined in a previous loop. + # We used to do the same as -all-static on platforms that + # didn't have a PIC flag, but the assumption that the effects + # would be equivalent was wrong. It would break on at least + # Digital Unix and AIX. + continue + ;; + + -thread-safe) + thread_safe=yes + continue + ;; + + -version-info) + prev=vinfo + continue + ;; + -version-number) + prev=vinfo + vinfo_number=yes + continue + ;; + + -Wc,*) + args=`$echo "X$arg" | $Xsed -e "$sed_quote_subst" -e 's/^-Wc,//'` + arg= + save_ifs="$IFS"; IFS=',' + for flag in $args; do + IFS="$save_ifs" + case $flag in + *$quote_scanset* | *]* | *\|* | *\&* | *\(* | *\)* | "") + flag="\"$flag\"" + ;; + esac + arg="$arg $wl$flag" + compiler_flags="$compiler_flags $flag" + done + IFS="$save_ifs" + arg=`$echo "X$arg" | $Xsed -e "s/^ //"` + ;; + + -Wl,*) + args=`$echo "X$arg" | $Xsed -e "$sed_quote_subst" -e 's/^-Wl,//'` + arg= + save_ifs="$IFS"; IFS=',' + for flag in $args; do + IFS="$save_ifs" + case $flag in + *$quote_scanset* | *]* | *\|* | *\&* | *\(* | *\)* | "") + flag="\"$flag\"" + ;; + esac + arg="$arg $wl$flag" + compiler_flags="$compiler_flags $wl$flag" + linker_flags="$linker_flags $flag" + done + IFS="$save_ifs" + arg=`$echo "X$arg" | $Xsed -e "s/^ //"` + ;; + + -Xcompiler) + prev=xcompiler + continue + ;; + + -Xlinker) + prev=xlinker + continue + ;; + + -XCClinker) + prev=xcclinker + continue + ;; + + # Some other compiler flag. + -* | +*) + # Unknown arguments in both finalize_command and compile_command need + # to be aesthetically quoted because they are evaled later. + arg=`$echo "X$arg" | $Xsed -e "$sed_quote_subst"` + case $arg in + *$quote_scanset* | *]* | *\|* | *\&* | *\(* | *\)* | "") + arg="\"$arg\"" + ;; + esac + ;; + + *.$objext) + # A standard object. + objs="$objs $arg" + ;; + + *.lo) + # A libtool-controlled object. + + # Check to see that this really is a libtool object. + if (${SED} -e '2q' $arg | grep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then + pic_object= + non_pic_object= + + # Read the .lo file + # If there is no directory component, then add one. + case $arg in + */* | *\\*) . $arg ;; + *) . ./$arg ;; + esac + + if test -z "$pic_object" || \ + test -z "$non_pic_object" || + test "$pic_object" = none && \ + test "$non_pic_object" = none; then + $echo "$modename: cannot find name of object for \`$arg'" 1>&2 + exit $EXIT_FAILURE + fi + + # Extract subdirectory from the argument. + xdir=`$echo "X$arg" | $Xsed -e 's%/[^/]*$%%'` + if test "X$xdir" = "X$arg"; then + xdir= + else + xdir="$xdir/" + fi + + if test "$pic_object" != none; then + # Prepend the subdirectory the object is found in. + pic_object="$xdir$pic_object" + + if test "$prev" = dlfiles; then + if test "$build_libtool_libs" = yes && test "$dlopen_support" = yes; then + dlfiles="$dlfiles $pic_object" + prev= + continue + else + # If libtool objects are unsupported, then we need to preload. + prev=dlprefiles + fi + fi + + # CHECK ME: I think I busted this. -Ossama + if test "$prev" = dlprefiles; then + # Preload the old-style object. + dlprefiles="$dlprefiles $pic_object" + prev= + fi + + # A PIC object. + libobjs="$libobjs $pic_object" + arg="$pic_object" + fi + + # Non-PIC object. + if test "$non_pic_object" != none; then + # Prepend the subdirectory the object is found in. + non_pic_object="$xdir$non_pic_object" + + # A standard non-PIC object + non_pic_objects="$non_pic_objects $non_pic_object" + if test -z "$pic_object" || test "$pic_object" = none ; then + arg="$non_pic_object" + fi + fi + else + # Only an error if not doing a dry-run. + if test -z "$run"; then + $echo "$modename: \`$arg' is not a valid libtool object" 1>&2 + exit $EXIT_FAILURE + else + # Dry-run case. + + # Extract subdirectory from the argument. + xdir=`$echo "X$arg" | $Xsed -e 's%/[^/]*$%%'` + if test "X$xdir" = "X$arg"; then + xdir= + else + xdir="$xdir/" + fi + + pic_object=`$echo "X${xdir}${objdir}/${arg}" | $Xsed -e "$lo2o"` + non_pic_object=`$echo "X${xdir}${arg}" | $Xsed -e "$lo2o"` + libobjs="$libobjs $pic_object" + non_pic_objects="$non_pic_objects $non_pic_object" + fi + fi + ;; + + *.$libext) + # An archive. + deplibs="$deplibs $arg" + old_deplibs="$old_deplibs $arg" + continue + ;; + + *.la) + # A libtool-controlled library. + + if test "$prev" = dlfiles; then + # This library was specified with -dlopen. + dlfiles="$dlfiles $arg" + prev= + elif test "$prev" = dlprefiles; then + # The library was specified with -dlpreopen. + dlprefiles="$dlprefiles $arg" + prev= + else + deplibs="$deplibs $arg" + fi + continue + ;; + + # Some other compiler argument. + *) + # Unknown arguments in both finalize_command and compile_command need + # to be aesthetically quoted because they are evaled later. + arg=`$echo "X$arg" | $Xsed -e "$sed_quote_subst"` + case $arg in + *$quote_scanset* | *]* | *\|* | *\&* | *\(* | *\)* | "") + arg="\"$arg\"" + ;; + esac + ;; + esac # arg + + # Now actually substitute the argument into the commands. + if test -n "$arg"; then + compile_command="$compile_command $arg" + finalize_command="$finalize_command $arg" + fi + done # argument parsing loop + + if test -n "$prev"; then + $echo "$modename: the \`$prevarg' option requires an argument" 1>&2 + $echo "$help" 1>&2 + exit $EXIT_FAILURE + fi + + if test "$export_dynamic" = yes && test -n "$export_dynamic_flag_spec"; then + eval arg=\"$export_dynamic_flag_spec\" + compile_command="$compile_command $arg" + finalize_command="$finalize_command $arg" + fi + + oldlibs= + # calculate the name of the file, without its directory + outputname=`$echo "X$output" | $Xsed -e 's%^.*/%%'` + libobjs_save="$libobjs" + + if test -n "$shlibpath_var"; then + # get the directories listed in $shlibpath_var + eval shlib_search_path=\`\$echo \"X\${$shlibpath_var}\" \| \$Xsed -e \'s/:/ /g\'\` + else + shlib_search_path= + fi + eval sys_lib_search_path=\"$sys_lib_search_path_spec\" + eval sys_lib_dlsearch_path=\"$sys_lib_dlsearch_path_spec\" + + output_objdir=`$echo "X$output" | $Xsed -e 's%/[^/]*$%%'` + if test "X$output_objdir" = "X$output"; then + output_objdir="$objdir" + else + output_objdir="$output_objdir/$objdir" + fi + # Create the object directory. + if test ! -d "$output_objdir"; then + $show "$mkdir $output_objdir" + $run $mkdir $output_objdir + status=$? + if test "$status" -ne 0 && test ! -d "$output_objdir"; then + exit $status + fi + fi + + # Determine the type of output + case $output in + "") + $echo "$modename: you must specify an output file" 1>&2 + $echo "$help" 1>&2 + exit $EXIT_FAILURE + ;; + *.$libext) linkmode=oldlib ;; + *.lo | *.$objext) linkmode=obj ;; + *.la) linkmode=lib ;; + *) linkmode=prog ;; # Anything else should be a program. + esac + + case $host in + *cygwin* | *mingw* | *pw32*) + # don't eliminate duplications in $postdeps and $predeps + duplicate_compiler_generated_deps=yes + ;; + *) + duplicate_compiler_generated_deps=$duplicate_deps + ;; + esac + specialdeplibs= + + libs= + # Find all interdependent deplibs by searching for libraries + # that are linked more than once (e.g. -la -lb -la) + for deplib in $deplibs; do + if test "X$duplicate_deps" = "Xyes" ; then + case "$libs " in + *" $deplib "*) specialdeplibs="$specialdeplibs $deplib" ;; + esac + fi + libs="$libs $deplib" + done + + if test "$linkmode" = lib; then + libs="$predeps $libs $compiler_lib_search_path $postdeps" + + # Compute libraries that are listed more than once in $predeps + # $postdeps and mark them as special (i.e., whose duplicates are + # not to be eliminated). + pre_post_deps= + if test "X$duplicate_compiler_generated_deps" = "Xyes" ; then + for pre_post_dep in $predeps $postdeps; do + case "$pre_post_deps " in + *" $pre_post_dep "*) specialdeplibs="$specialdeplibs $pre_post_deps" ;; + esac + pre_post_deps="$pre_post_deps $pre_post_dep" + done + fi + pre_post_deps= + fi + + deplibs= + newdependency_libs= + newlib_search_path= + need_relink=no # whether we're linking any uninstalled libtool libraries + notinst_deplibs= # not-installed libtool libraries + notinst_path= # paths that contain not-installed libtool libraries + case $linkmode in + lib) + passes="conv link" + for file in $dlfiles $dlprefiles; do + case $file in + *.la) ;; + *) + $echo "$modename: libraries can \`-dlopen' only libtool libraries: $file" 1>&2 + exit $EXIT_FAILURE + ;; + esac + done + ;; + prog) + compile_deplibs= + finalize_deplibs= + alldeplibs=no + newdlfiles= + newdlprefiles= + passes="conv scan dlopen dlpreopen link" + ;; + *) passes="conv" + ;; + esac + for pass in $passes; do + if test "$linkmode,$pass" = "lib,link" || + test "$linkmode,$pass" = "prog,scan"; then + libs="$deplibs" + deplibs= + fi + if test "$linkmode" = prog; then + case $pass in + dlopen) libs="$dlfiles" ;; + dlpreopen) libs="$dlprefiles" ;; + link) libs="$deplibs %DEPLIBS% $dependency_libs" ;; + esac + fi + if test "$pass" = dlopen; then + # Collect dlpreopened libraries + save_deplibs="$deplibs" + deplibs= + fi + for deplib in $libs; do + lib= + found=no + case $deplib in + -mt|-mthreads|-kthread|-Kthread|-pthread|-pthreads|--thread-safe) + if test "$linkmode,$pass" = "prog,link"; then + compile_deplibs="$deplib $compile_deplibs" + finalize_deplibs="$deplib $finalize_deplibs" + else + compiler_flags="$compiler_flags $deplib" + fi + continue + ;; + -l*) + if test "$linkmode" != lib && test "$linkmode" != prog; then + $echo "$modename: warning: \`-l' is ignored for archives/objects" 1>&2 + continue + fi + name=`$echo "X$deplib" | $Xsed -e 's/^-l//'` + for searchdir in $newlib_search_path $lib_search_path $sys_lib_search_path $shlib_search_path; do + for search_ext in .la $std_shrext .so .a; do + # Search the libtool library + lib="$searchdir/lib${name}${search_ext}" + if test -f "$lib"; then + if test "$search_ext" = ".la"; then + found=yes + else + found=no + fi + break 2 + fi + done + done + if test "$found" != yes; then + # deplib doesn't seem to be a libtool library + if test "$linkmode,$pass" = "prog,link"; then + compile_deplibs="$deplib $compile_deplibs" + finalize_deplibs="$deplib $finalize_deplibs" + else + deplibs="$deplib $deplibs" + test "$linkmode" = lib && newdependency_libs="$deplib $newdependency_libs" + fi + continue + else # deplib is a libtool library + # If $allow_libtool_libs_with_static_runtimes && $deplib is a stdlib, + # We need to do some special things here, and not later. + if test "X$allow_libtool_libs_with_static_runtimes" = "Xyes" ; then + case " $predeps $postdeps " in + *" $deplib "*) + if (${SED} -e '2q' $lib | + grep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then + library_names= + old_library= + case $lib in + */* | *\\*) . $lib ;; + *) . ./$lib ;; + esac + for l in $old_library $library_names; do + ll="$l" + done + if test "X$ll" = "X$old_library" ; then # only static version available + found=no + ladir=`$echo "X$lib" | $Xsed -e 's%/[^/]*$%%'` + test "X$ladir" = "X$lib" && ladir="." + lib=$ladir/$old_library + if test "$linkmode,$pass" = "prog,link"; then + compile_deplibs="$deplib $compile_deplibs" + finalize_deplibs="$deplib $finalize_deplibs" + else + deplibs="$deplib $deplibs" + test "$linkmode" = lib && newdependency_libs="$deplib $newdependency_libs" + fi + continue + fi + fi + ;; + *) ;; + esac + fi + fi + ;; # -l + -L*) + case $linkmode in + lib) + deplibs="$deplib $deplibs" + test "$pass" = conv && continue + newdependency_libs="$deplib $newdependency_libs" + newlib_search_path="$newlib_search_path "`$echo "X$deplib" | $Xsed -e 's/^-L//'` + ;; + prog) + if test "$pass" = conv; then + deplibs="$deplib $deplibs" + continue + fi + if test "$pass" = scan; then + deplibs="$deplib $deplibs" + else + compile_deplibs="$deplib $compile_deplibs" + finalize_deplibs="$deplib $finalize_deplibs" + fi + newlib_search_path="$newlib_search_path "`$echo "X$deplib" | $Xsed -e 's/^-L//'` + ;; + *) + $echo "$modename: warning: \`-L' is ignored for archives/objects" 1>&2 + ;; + esac # linkmode + continue + ;; # -L + -R*) + if test "$pass" = link; then + dir=`$echo "X$deplib" | $Xsed -e 's/^-R//'` + # Make sure the xrpath contains only unique directories. + case "$xrpath " in + *" $dir "*) ;; + *) xrpath="$xrpath $dir" ;; + esac + fi + deplibs="$deplib $deplibs" + continue + ;; + *.la) lib="$deplib" ;; + *.$libext) + if test "$pass" = conv; then + deplibs="$deplib $deplibs" + continue + fi + case $linkmode in + lib) + valid_a_lib=no + case $deplibs_check_method in + match_pattern*) + set dummy $deplibs_check_method + match_pattern_regex=`expr "$deplibs_check_method" : "$2 \(.*\)"` + if eval $echo \"$deplib\" 2>/dev/null \ + | $SED 10q \ + | $EGREP "$match_pattern_regex" > /dev/null; then + valid_a_lib=yes + fi + ;; + pass_all) + valid_a_lib=yes + ;; + esac + if test "$valid_a_lib" != yes; then + $echo + $echo "*** Warning: Trying to link with static lib archive $deplib." + $echo "*** I have the capability to make that library automatically link in when" + $echo "*** you link to this library. But I can only do this if you have a" + $echo "*** shared version of the library, which you do not appear to have" + $echo "*** because the file extensions .$libext of this argument makes me believe" + $echo "*** that it is just a static archive that I should not used here." + else + $echo + $echo "*** Warning: Linking the shared library $output against the" + $echo "*** static library $deplib is not portable!" + deplibs="$deplib $deplibs" + fi + continue + ;; + prog) + if test "$pass" != link; then + deplibs="$deplib $deplibs" + else + compile_deplibs="$deplib $compile_deplibs" + finalize_deplibs="$deplib $finalize_deplibs" + fi + continue + ;; + esac # linkmode + ;; # *.$libext + *.lo | *.$objext) + if test "$pass" = conv; then + deplibs="$deplib $deplibs" + elif test "$linkmode" = prog; then + if test "$pass" = dlpreopen || test "$dlopen_support" != yes || test "$build_libtool_libs" = no; then + # If there is no dlopen support or we're linking statically, + # we need to preload. + newdlprefiles="$newdlprefiles $deplib" + compile_deplibs="$deplib $compile_deplibs" + finalize_deplibs="$deplib $finalize_deplibs" + else + newdlfiles="$newdlfiles $deplib" + fi + fi + continue + ;; + %DEPLIBS%) + alldeplibs=yes + continue + ;; + esac # case $deplib + if test "$found" = yes || test -f "$lib"; then : + else + $echo "$modename: cannot find the library \`$lib'" 1>&2 + exit $EXIT_FAILURE + fi + + # Check to see that this really is a libtool archive. + if (${SED} -e '2q' $lib | grep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then : + else + $echo "$modename: \`$lib' is not a valid libtool archive" 1>&2 + exit $EXIT_FAILURE + fi + + ladir=`$echo "X$lib" | $Xsed -e 's%/[^/]*$%%'` + test "X$ladir" = "X$lib" && ladir="." + + dlname= + dlopen= + dlpreopen= + libdir= + library_names= + old_library= + # If the library was installed with an old release of libtool, + # it will not redefine variables installed, or shouldnotlink + installed=yes + shouldnotlink=no + avoidtemprpath= + + + # Read the .la file + case $lib in + */* | *\\*) . $lib ;; + *) . ./$lib ;; + esac + + if test "$linkmode,$pass" = "lib,link" || + test "$linkmode,$pass" = "prog,scan" || + { test "$linkmode" != prog && test "$linkmode" != lib; }; then + test -n "$dlopen" && dlfiles="$dlfiles $dlopen" + test -n "$dlpreopen" && dlprefiles="$dlprefiles $dlpreopen" + fi + + if test "$pass" = conv; then + # Only check for convenience libraries + deplibs="$lib $deplibs" + if test -z "$libdir"; then + if test -z "$old_library"; then + $echo "$modename: cannot find name of link library for \`$lib'" 1>&2 + exit $EXIT_FAILURE + fi + # It is a libtool convenience library, so add in its objects. + convenience="$convenience $ladir/$objdir/$old_library" + old_convenience="$old_convenience $ladir/$objdir/$old_library" + tmp_libs= + for deplib in $dependency_libs; do + deplibs="$deplib $deplibs" + if test "X$duplicate_deps" = "Xyes" ; then + case "$tmp_libs " in + *" $deplib "*) specialdeplibs="$specialdeplibs $deplib" ;; + esac + fi + tmp_libs="$tmp_libs $deplib" + done + elif test "$linkmode" != prog && test "$linkmode" != lib; then + $echo "$modename: \`$lib' is not a convenience library" 1>&2 + exit $EXIT_FAILURE + fi + continue + fi # $pass = conv + + + # Get the name of the library we link against. + linklib= + for l in $old_library $library_names; do + linklib="$l" + done + if test -z "$linklib"; then + $echo "$modename: cannot find name of link library for \`$lib'" 1>&2 + exit $EXIT_FAILURE + fi + + # This library was specified with -dlopen. + if test "$pass" = dlopen; then + if test -z "$libdir"; then + $echo "$modename: cannot -dlopen a convenience library: \`$lib'" 1>&2 + exit $EXIT_FAILURE + fi + if test -z "$dlname" || + test "$dlopen_support" != yes || + test "$build_libtool_libs" = no; then + # If there is no dlname, no dlopen support or we're linking + # statically, we need to preload. We also need to preload any + # dependent libraries so libltdl's deplib preloader doesn't + # bomb out in the load deplibs phase. + dlprefiles="$dlprefiles $lib $dependency_libs" + else + newdlfiles="$newdlfiles $lib" + fi + continue + fi # $pass = dlopen + + # We need an absolute path. + case $ladir in + [\\/]* | [A-Za-z]:[\\/]*) abs_ladir="$ladir" ;; + *) + abs_ladir=`cd "$ladir" && pwd` + if test -z "$abs_ladir"; then + $echo "$modename: warning: cannot determine absolute directory name of \`$ladir'" 1>&2 + $echo "$modename: passing it literally to the linker, although it might fail" 1>&2 + abs_ladir="$ladir" + fi + ;; + esac + laname=`$echo "X$lib" | $Xsed -e 's%^.*/%%'` + + # Find the relevant object directory and library name. + if test "X$installed" = Xyes; then + if test ! -f "$libdir/$linklib" && test -f "$abs_ladir/$linklib"; then + $echo "$modename: warning: library \`$lib' was moved." 1>&2 + dir="$ladir" + absdir="$abs_ladir" + libdir="$abs_ladir" + else + dir="$libdir" + absdir="$libdir" + fi + test "X$hardcode_automatic" = Xyes && avoidtemprpath=yes + else + if test ! -f "$ladir/$objdir/$linklib" && test -f "$abs_ladir/$linklib"; then + dir="$ladir" + absdir="$abs_ladir" + # Remove this search path later + notinst_path="$notinst_path $abs_ladir" + else + dir="$ladir/$objdir" + absdir="$abs_ladir/$objdir" + # Remove this search path later + notinst_path="$notinst_path $abs_ladir" + fi + fi # $installed = yes + name=`$echo "X$laname" | $Xsed -e 's/\.la$//' -e 's/^lib//'` + + # This library was specified with -dlpreopen. + if test "$pass" = dlpreopen; then + if test -z "$libdir"; then + $echo "$modename: cannot -dlpreopen a convenience library: \`$lib'" 1>&2 + exit $EXIT_FAILURE + fi + # Prefer using a static library (so that no silly _DYNAMIC symbols + # are required to link). + if test -n "$old_library"; then + newdlprefiles="$newdlprefiles $dir/$old_library" + # Otherwise, use the dlname, so that lt_dlopen finds it. + elif test -n "$dlname"; then + newdlprefiles="$newdlprefiles $dir/$dlname" + else + newdlprefiles="$newdlprefiles $dir/$linklib" + fi + fi # $pass = dlpreopen + + if test -z "$libdir"; then + # Link the convenience library + if test "$linkmode" = lib; then + deplibs="$dir/$old_library $deplibs" + elif test "$linkmode,$pass" = "prog,link"; then + compile_deplibs="$dir/$old_library $compile_deplibs" + finalize_deplibs="$dir/$old_library $finalize_deplibs" + else + deplibs="$lib $deplibs" # used for prog,scan pass + fi + continue + fi + + + if test "$linkmode" = prog && test "$pass" != link; then + newlib_search_path="$newlib_search_path $ladir" + deplibs="$lib $deplibs" + + linkalldeplibs=no + if test "$link_all_deplibs" != no || test -z "$library_names" || + test "$build_libtool_libs" = no; then + linkalldeplibs=yes + fi + + tmp_libs= + for deplib in $dependency_libs; do + case $deplib in + -L*) newlib_search_path="$newlib_search_path "`$echo "X$deplib" | $Xsed -e 's/^-L//'`;; ### testsuite: skip nested quoting test + esac + # Need to link against all dependency_libs? + if test "$linkalldeplibs" = yes; then + deplibs="$deplib $deplibs" + else + # Need to hardcode shared library paths + # or/and link against static libraries + newdependency_libs="$deplib $newdependency_libs" + fi + if test "X$duplicate_deps" = "Xyes" ; then + case "$tmp_libs " in + *" $deplib "*) specialdeplibs="$specialdeplibs $deplib" ;; + esac + fi + tmp_libs="$tmp_libs $deplib" + done # for deplib + continue + fi # $linkmode = prog... + + if test "$linkmode,$pass" = "prog,link"; then + if test -n "$library_names" && + { test "$prefer_static_libs" = no || test -z "$old_library"; }; then + # We need to hardcode the library path + if test -n "$shlibpath_var" && test -z "$avoidtemprpath" ; then + # Make sure the rpath contains only unique directories. + case "$temp_rpath " in + *" $dir "*) ;; + *" $absdir "*) ;; + *) temp_rpath="$temp_rpath $dir" ;; + esac + fi + + # Hardcode the library path. + # Skip directories that are in the system default run-time + # search path. + case " $sys_lib_dlsearch_path " in + *" $absdir "*) ;; + *) + case "$compile_rpath " in + *" $absdir "*) ;; + *) compile_rpath="$compile_rpath $absdir" + esac + ;; + esac + case " $sys_lib_dlsearch_path " in + *" $libdir "*) ;; + *) + case "$finalize_rpath " in + *" $libdir "*) ;; + *) finalize_rpath="$finalize_rpath $libdir" + esac + ;; + esac + fi # $linkmode,$pass = prog,link... + + if test "$alldeplibs" = yes && + { test "$deplibs_check_method" = pass_all || + { test "$build_libtool_libs" = yes && + test -n "$library_names"; }; }; then + # We only need to search for static libraries + continue + fi + fi + + link_static=no # Whether the deplib will be linked statically + if test -n "$library_names" && + { test "$prefer_static_libs" = no || test -z "$old_library"; }; then + if test "$installed" = no; then + notinst_deplibs="$notinst_deplibs $lib" + need_relink=yes + fi + # This is a shared library + + # Warn about portability, can't link against -module's on + # some systems (darwin) + if test "$shouldnotlink" = yes && test "$pass" = link ; then + $echo + if test "$linkmode" = prog; then + $echo "*** Warning: Linking the executable $output against the loadable module" + else + $echo "*** Warning: Linking the shared library $output against the loadable module" + fi + $echo "*** $linklib is not portable!" + fi + if test "$linkmode" = lib && + test "$hardcode_into_libs" = yes; then + # Hardcode the library path. + # Skip directories that are in the system default run-time + # search path. + case " $sys_lib_dlsearch_path " in + *" $absdir "*) ;; + *) + case "$compile_rpath " in + *" $absdir "*) ;; + *) compile_rpath="$compile_rpath $absdir" + esac + ;; + esac + case " $sys_lib_dlsearch_path " in + *" $libdir "*) ;; + *) + case "$finalize_rpath " in + *" $libdir "*) ;; + *) finalize_rpath="$finalize_rpath $libdir" + esac + ;; + esac + fi + + if test -n "$old_archive_from_expsyms_cmds"; then + # figure out the soname + set dummy $library_names + realname="$2" + shift; shift + libname=`eval \\$echo \"$libname_spec\"` + # use dlname if we got it. it's perfectly good, no? + if test -n "$dlname"; then + soname="$dlname" + elif test -n "$soname_spec"; then + # bleh windows + case $host in + *cygwin* | mingw*) + major=`expr $current - $age` + versuffix="-$major" + ;; + esac + eval soname=\"$soname_spec\" + else + soname="$realname" + fi + + # Make a new name for the extract_expsyms_cmds to use + soroot="$soname" + soname=`$echo $soroot | ${SED} -e 's/^.*\///'` + newlib="libimp-`$echo $soname | ${SED} 's/^lib//;s/\.dll$//'`.a" + + # If the library has no export list, then create one now + if test -f "$output_objdir/$soname-def"; then : + else + $show "extracting exported symbol list from \`$soname'" + save_ifs="$IFS"; IFS='~' + cmds=$extract_expsyms_cmds + for cmd in $cmds; do + IFS="$save_ifs" + eval cmd=\"$cmd\" + $show "$cmd" + $run eval "$cmd" || exit $? + done + IFS="$save_ifs" + fi + + # Create $newlib + if test -f "$output_objdir/$newlib"; then :; else + $show "generating import library for \`$soname'" + save_ifs="$IFS"; IFS='~' + cmds=$old_archive_from_expsyms_cmds + for cmd in $cmds; do + IFS="$save_ifs" + eval cmd=\"$cmd\" + $show "$cmd" + $run eval "$cmd" || exit $? + done + IFS="$save_ifs" + fi + # make sure the library variables are pointing to the new library + dir=$output_objdir + linklib=$newlib + fi # test -n "$old_archive_from_expsyms_cmds" + + if test "$linkmode" = prog || test "$mode" != relink; then + add_shlibpath= + add_dir= + add= + lib_linked=yes + case $hardcode_action in + immediate | unsupported) + if test "$hardcode_direct" = no; then + add="$dir/$linklib" + case $host in + *-*-sco3.2v5* ) add_dir="-L$dir" ;; + *-*-darwin* ) + # if the lib is a module then we can not link against + # it, someone is ignoring the new warnings I added + if /usr/bin/file -L $add 2> /dev/null | $EGREP "bundle" >/dev/null ; then + $echo "** Warning, lib $linklib is a module, not a shared library" + if test -z "$old_library" ; then + $echo + $echo "** And there doesn't seem to be a static archive available" + $echo "** The link will probably fail, sorry" + else + add="$dir/$old_library" + fi + fi + esac + elif test "$hardcode_minus_L" = no; then + case $host in + *-*-sunos*) add_shlibpath="$dir" ;; + esac + add_dir="-L$dir" + add="-l$name" + elif test "$hardcode_shlibpath_var" = no; then + add_shlibpath="$dir" + add="-l$name" + else + lib_linked=no + fi + ;; + relink) + if test "$hardcode_direct" = yes; then + add="$dir/$linklib" + elif test "$hardcode_minus_L" = yes; then + add_dir="-L$dir" + # Try looking first in the location we're being installed to. + if test -n "$inst_prefix_dir"; then + case "$libdir" in + [\\/]*) + add_dir="$add_dir -L$inst_prefix_dir$libdir" + ;; + esac + fi + add="-l$name" + elif test "$hardcode_shlibpath_var" = yes; then + add_shlibpath="$dir" + add="-l$name" + else + lib_linked=no + fi + ;; + *) lib_linked=no ;; + esac + + if test "$lib_linked" != yes; then + $echo "$modename: configuration error: unsupported hardcode properties" + exit $EXIT_FAILURE + fi + + if test -n "$add_shlibpath"; then + case :$compile_shlibpath: in + *":$add_shlibpath:"*) ;; + *) compile_shlibpath="$compile_shlibpath$add_shlibpath:" ;; + esac + fi + if test "$linkmode" = prog; then + test -n "$add_dir" && compile_deplibs="$add_dir $compile_deplibs" + test -n "$add" && compile_deplibs="$add $compile_deplibs" + else + test -n "$add_dir" && deplibs="$add_dir $deplibs" + test -n "$add" && deplibs="$add $deplibs" + if test "$hardcode_direct" != yes && \ + test "$hardcode_minus_L" != yes && \ + test "$hardcode_shlibpath_var" = yes; then + case :$finalize_shlibpath: in + *":$libdir:"*) ;; + *) finalize_shlibpath="$finalize_shlibpath$libdir:" ;; + esac + fi + fi + fi + + if test "$linkmode" = prog || test "$mode" = relink; then + add_shlibpath= + add_dir= + add= + # Finalize command for both is simple: just hardcode it. + if test "$hardcode_direct" = yes; then + add="$libdir/$linklib" + elif test "$hardcode_minus_L" = yes; then + add_dir="-L$libdir" + add="-l$name" + elif test "$hardcode_shlibpath_var" = yes; then + case :$finalize_shlibpath: in + *":$libdir:"*) ;; + *) finalize_shlibpath="$finalize_shlibpath$libdir:" ;; + esac + add="-l$name" + elif test "$hardcode_automatic" = yes; then + if test -n "$inst_prefix_dir" && + test -f "$inst_prefix_dir$libdir/$linklib" ; then + add="$inst_prefix_dir$libdir/$linklib" + else + add="$libdir/$linklib" + fi + else + # We cannot seem to hardcode it, guess we'll fake it. + add_dir="-L$libdir" + # Try looking first in the location we're being installed to. + if test -n "$inst_prefix_dir"; then + case "$libdir" in + [\\/]*) + add_dir="$add_dir -L$inst_prefix_dir$libdir" + ;; + esac + fi + add="-l$name" + fi + + if test "$linkmode" = prog; then + test -n "$add_dir" && finalize_deplibs="$add_dir $finalize_deplibs" + test -n "$add" && finalize_deplibs="$add $finalize_deplibs" + else + test -n "$add_dir" && deplibs="$add_dir $deplibs" + test -n "$add" && deplibs="$add $deplibs" + fi + fi + elif test "$linkmode" = prog; then + # Here we assume that one of hardcode_direct or hardcode_minus_L + # is not unsupported. This is valid on all known static and + # shared platforms. + if test "$hardcode_direct" != unsupported; then + test -n "$old_library" && linklib="$old_library" + compile_deplibs="$dir/$linklib $compile_deplibs" + finalize_deplibs="$dir/$linklib $finalize_deplibs" + else + compile_deplibs="-l$name -L$dir $compile_deplibs" + finalize_deplibs="-l$name -L$dir $finalize_deplibs" + fi + elif test "$build_libtool_libs" = yes; then + # Not a shared library + if test "$deplibs_check_method" != pass_all; then + # We're trying link a shared library against a static one + # but the system doesn't support it. + + # Just print a warning and add the library to dependency_libs so + # that the program can be linked against the static library. + $echo + $echo "*** Warning: This system can not link to static lib archive $lib." + $echo "*** I have the capability to make that library automatically link in when" + $echo "*** you link to this library. But I can only do this if you have a" + $echo "*** shared version of the library, which you do not appear to have." + if test "$module" = yes; then + $echo "*** But as you try to build a module library, libtool will still create " + $echo "*** a static module, that should work as long as the dlopening application" + $echo "*** is linked with the -dlopen flag to resolve symbols at runtime." + if test -z "$global_symbol_pipe"; then + $echo + $echo "*** However, this would only work if libtool was able to extract symbol" + $echo "*** lists from a program, using \`nm' or equivalent, but libtool could" + $echo "*** not find such a program. So, this module is probably useless." + $echo "*** \`nm' from GNU binutils and a full rebuild may help." + fi + if test "$build_old_libs" = no; then + build_libtool_libs=module + build_old_libs=yes + else + build_libtool_libs=no + fi + fi + else + convenience="$convenience $dir/$old_library" + old_convenience="$old_convenience $dir/$old_library" + deplibs="$dir/$old_library $deplibs" + link_static=yes + fi + fi # link shared/static library? + + if test "$linkmode" = lib; then + if test -n "$dependency_libs" && + { test "$hardcode_into_libs" != yes || + test "$build_old_libs" = yes || + test "$link_static" = yes; }; then + # Extract -R from dependency_libs + temp_deplibs= + for libdir in $dependency_libs; do + case $libdir in + -R*) temp_xrpath=`$echo "X$libdir" | $Xsed -e 's/^-R//'` + case " $xrpath " in + *" $temp_xrpath "*) ;; + *) xrpath="$xrpath $temp_xrpath";; + esac;; + *) temp_deplibs="$temp_deplibs $libdir";; + esac + done + dependency_libs="$temp_deplibs" + fi + + newlib_search_path="$newlib_search_path $absdir" + # Link against this library + test "$link_static" = no && newdependency_libs="$abs_ladir/$laname $newdependency_libs" + # ... and its dependency_libs + tmp_libs= + for deplib in $dependency_libs; do + newdependency_libs="$deplib $newdependency_libs" + if test "X$duplicate_deps" = "Xyes" ; then + case "$tmp_libs " in + *" $deplib "*) specialdeplibs="$specialdeplibs $deplib" ;; + esac + fi + tmp_libs="$tmp_libs $deplib" + done + + if test "$link_all_deplibs" != no; then + # Add the search paths of all dependency libraries + for deplib in $dependency_libs; do + case $deplib in + -L*) path="$deplib" ;; + *.la) + dir=`$echo "X$deplib" | $Xsed -e 's%/[^/]*$%%'` + test "X$dir" = "X$deplib" && dir="." + # We need an absolute path. + case $dir in + [\\/]* | [A-Za-z]:[\\/]*) absdir="$dir" ;; + *) + absdir=`cd "$dir" && pwd` + if test -z "$absdir"; then + $echo "$modename: warning: cannot determine absolute directory name of \`$dir'" 1>&2 + absdir="$dir" + fi + ;; + esac + if grep "^installed=no" $deplib > /dev/null; then + path="$absdir/$objdir" + else + eval libdir=`${SED} -n -e 's/^libdir=\(.*\)$/\1/p' $deplib` + if test -z "$libdir"; then + $echo "$modename: \`$deplib' is not a valid libtool archive" 1>&2 + exit $EXIT_FAILURE + fi + if test "$absdir" != "$libdir"; then + $echo "$modename: warning: \`$deplib' seems to be moved" 1>&2 + fi + path="$absdir" + fi + depdepl= + case $host in + *-*-darwin*) + # we do not want to link against static libs, + # but need to link against shared + eval deplibrary_names=`${SED} -n -e 's/^library_names=\(.*\)$/\1/p' $deplib` + if test -n "$deplibrary_names" ; then + for tmp in $deplibrary_names ; do + depdepl=$tmp + done + if test -f "$path/$depdepl" ; then + depdepl="$path/$depdepl" + fi + # do not add paths which are already there + case " $newlib_search_path " in + *" $path "*) ;; + *) newlib_search_path="$newlib_search_path $path";; + esac + fi + path="" + ;; + *) + path="-L$path" + ;; + esac + ;; + -l*) + case $host in + *-*-darwin*) + # Again, we only want to link against shared libraries + eval tmp_libs=`$echo "X$deplib" | $Xsed -e "s,^\-l,,"` + for tmp in $newlib_search_path ; do + if test -f "$tmp/lib$tmp_libs.dylib" ; then + eval depdepl="$tmp/lib$tmp_libs.dylib" + break + fi + done + path="" + ;; + *) continue ;; + esac + ;; + *) continue ;; + esac + case " $deplibs " in + *" $path "*) ;; + *) deplibs="$path $deplibs" ;; + esac + case " $deplibs " in + *" $depdepl "*) ;; + *) deplibs="$depdepl $deplibs" ;; + esac + done + fi # link_all_deplibs != no + fi # linkmode = lib + done # for deplib in $libs + dependency_libs="$newdependency_libs" + if test "$pass" = dlpreopen; then + # Link the dlpreopened libraries before other libraries + for deplib in $save_deplibs; do + deplibs="$deplib $deplibs" + done + fi + if test "$pass" != dlopen; then + if test "$pass" != conv; then + # Make sure lib_search_path contains only unique directories. + lib_search_path= + for dir in $newlib_search_path; do + case "$lib_search_path " in + *" $dir "*) ;; + *) lib_search_path="$lib_search_path $dir" ;; + esac + done + newlib_search_path= + fi + + if test "$linkmode,$pass" != "prog,link"; then + vars="deplibs" + else + vars="compile_deplibs finalize_deplibs" + fi + for var in $vars dependency_libs; do + # Add libraries to $var in reverse order + eval tmp_libs=\"\$$var\" + new_libs= + for deplib in $tmp_libs; do + # FIXME: Pedantically, this is the right thing to do, so + # that some nasty dependency loop isn't accidentally + # broken: + #new_libs="$deplib $new_libs" + # Pragmatically, this seems to cause very few problems in + # practice: + case $deplib in + -L*) new_libs="$deplib $new_libs" ;; + -R*) ;; + *) + # And here is the reason: when a library appears more + # than once as an explicit dependence of a library, or + # is implicitly linked in more than once by the + # compiler, it is considered special, and multiple + # occurrences thereof are not removed. Compare this + # with having the same library being listed as a + # dependency of multiple other libraries: in this case, + # we know (pedantically, we assume) the library does not + # need to be listed more than once, so we keep only the + # last copy. This is not always right, but it is rare + # enough that we require users that really mean to play + # such unportable linking tricks to link the library + # using -Wl,-lname, so that libtool does not consider it + # for duplicate removal. + case " $specialdeplibs " in + *" $deplib "*) new_libs="$deplib $new_libs" ;; + *) + case " $new_libs " in + *" $deplib "*) ;; + *) new_libs="$deplib $new_libs" ;; + esac + ;; + esac + ;; + esac + done + tmp_libs= + for deplib in $new_libs; do + case $deplib in + -L*) + case " $tmp_libs " in + *" $deplib "*) ;; + *) tmp_libs="$tmp_libs $deplib" ;; + esac + ;; + *) tmp_libs="$tmp_libs $deplib" ;; + esac + done + eval $var=\"$tmp_libs\" + done # for var + fi + # Last step: remove runtime libs from dependency_libs + # (they stay in deplibs) + tmp_libs= + for i in $dependency_libs ; do + case " $predeps $postdeps $compiler_lib_search_path " in + *" $i "*) + i="" + ;; + esac + if test -n "$i" ; then + tmp_libs="$tmp_libs $i" + fi + done + dependency_libs=$tmp_libs + done # for pass + if test "$linkmode" = prog; then + dlfiles="$newdlfiles" + dlprefiles="$newdlprefiles" + fi + + case $linkmode in + oldlib) + if test -n "$deplibs"; then + $echo "$modename: warning: \`-l' and \`-L' are ignored for archives" 1>&2 + fi + + if test -n "$dlfiles$dlprefiles" || test "$dlself" != no; then + $echo "$modename: warning: \`-dlopen' is ignored for archives" 1>&2 + fi + + if test -n "$rpath"; then + $echo "$modename: warning: \`-rpath' is ignored for archives" 1>&2 + fi + + if test -n "$xrpath"; then + $echo "$modename: warning: \`-R' is ignored for archives" 1>&2 + fi + + if test -n "$vinfo"; then + $echo "$modename: warning: \`-version-info/-version-number' is ignored for archives" 1>&2 + fi + + if test -n "$release"; then + $echo "$modename: warning: \`-release' is ignored for archives" 1>&2 + fi + + if test -n "$export_symbols" || test -n "$export_symbols_regex"; then + $echo "$modename: warning: \`-export-symbols' is ignored for archives" 1>&2 + fi + + # Now set the variables for building old libraries. + build_libtool_libs=no + oldlibs="$output" + objs="$objs$old_deplibs" + ;; + + lib) + # Make sure we only generate libraries of the form `libNAME.la'. + case $outputname in + lib*) + name=`$echo "X$outputname" | $Xsed -e 's/\.la$//' -e 's/^lib//'` + eval shared_ext=\"$shrext_cmds\" + eval libname=\"$libname_spec\" + ;; + *) + if test "$module" = no; then + $echo "$modename: libtool library \`$output' must begin with \`lib'" 1>&2 + $echo "$help" 1>&2 + exit $EXIT_FAILURE + fi + if test "$need_lib_prefix" != no; then + # Add the "lib" prefix for modules if required + name=`$echo "X$outputname" | $Xsed -e 's/\.la$//'` + eval shared_ext=\"$shrext_cmds\" + eval libname=\"$libname_spec\" + else + libname=`$echo "X$outputname" | $Xsed -e 's/\.la$//'` + fi + ;; + esac + + if test -n "$objs"; then + if test "$deplibs_check_method" != pass_all; then + $echo "$modename: cannot build libtool library \`$output' from non-libtool objects on this host:$objs" 2>&1 + exit $EXIT_FAILURE + else + $echo + $echo "*** Warning: Linking the shared library $output against the non-libtool" + $echo "*** objects $objs is not portable!" + libobjs="$libobjs $objs" + fi + fi + + if test "$dlself" != no; then + $echo "$modename: warning: \`-dlopen self' is ignored for libtool libraries" 1>&2 + fi + + set dummy $rpath + if test "$#" -gt 2; then + $echo "$modename: warning: ignoring multiple \`-rpath's for a libtool library" 1>&2 + fi + install_libdir="$2" + + oldlibs= + if test -z "$rpath"; then + if test "$build_libtool_libs" = yes; then + # Building a libtool convenience library. + # Some compilers have problems with a `.al' extension so + # convenience libraries should have the same extension an + # archive normally would. + oldlibs="$output_objdir/$libname.$libext $oldlibs" + build_libtool_libs=convenience + build_old_libs=yes + fi + + if test -n "$vinfo"; then + $echo "$modename: warning: \`-version-info/-version-number' is ignored for convenience libraries" 1>&2 + fi + + if test -n "$release"; then + $echo "$modename: warning: \`-release' is ignored for convenience libraries" 1>&2 + fi + else + + # Parse the version information argument. + save_ifs="$IFS"; IFS=':' + set dummy $vinfo 0 0 0 + IFS="$save_ifs" + + if test -n "$8"; then + $echo "$modename: too many parameters to \`-version-info'" 1>&2 + $echo "$help" 1>&2 + exit $EXIT_FAILURE + fi + + # convert absolute version numbers to libtool ages + # this retains compatibility with .la files and attempts + # to make the code below a bit more comprehensible + + case $vinfo_number in + yes) + number_major="$2" + number_minor="$3" + number_revision="$4" + # + # There are really only two kinds -- those that + # use the current revision as the major version + # and those that subtract age and use age as + # a minor version. But, then there is irix + # which has an extra 1 added just for fun + # + case $version_type in + darwin|linux|osf|windows) + current=`expr $number_major + $number_minor` + age="$number_minor" + revision="$number_revision" + ;; + freebsd-aout|freebsd-elf|sunos) + current="$number_major" + revision="$number_minor" + age="0" + ;; + irix|nonstopux) + current=`expr $number_major + $number_minor - 1` + age="$number_minor" + revision="$number_minor" + ;; + esac + ;; + no) + current="$2" + revision="$3" + age="$4" + ;; + esac + + # Check that each of the things are valid numbers. + case $current in + 0|[1-9]|[1-9][0-9]|[1-9][0-9][0-9]|[1-9][0-9][0-9][0-9]|[1-9][0-9][0-9][0-9][0-9]) ;; + *) + $echo "$modename: CURRENT \`$current' must be a nonnegative integer" 1>&2 + $echo "$modename: \`$vinfo' is not valid version information" 1>&2 + exit $EXIT_FAILURE + ;; + esac + + case $revision in + 0|[1-9]|[1-9][0-9]|[1-9][0-9][0-9]|[1-9][0-9][0-9][0-9]|[1-9][0-9][0-9][0-9][0-9]) ;; + *) + $echo "$modename: REVISION \`$revision' must be a nonnegative integer" 1>&2 + $echo "$modename: \`$vinfo' is not valid version information" 1>&2 + exit $EXIT_FAILURE + ;; + esac + + case $age in + 0|[1-9]|[1-9][0-9]|[1-9][0-9][0-9]|[1-9][0-9][0-9][0-9]|[1-9][0-9][0-9][0-9][0-9]) ;; + *) + $echo "$modename: AGE \`$age' must be a nonnegative integer" 1>&2 + $echo "$modename: \`$vinfo' is not valid version information" 1>&2 + exit $EXIT_FAILURE + ;; + esac + + if test "$age" -gt "$current"; then + $echo "$modename: AGE \`$age' is greater than the current interface number \`$current'" 1>&2 + $echo "$modename: \`$vinfo' is not valid version information" 1>&2 + exit $EXIT_FAILURE + fi + + # Calculate the version variables. + major= + versuffix= + verstring= + case $version_type in + none) ;; + + darwin) + # Like Linux, but with the current version available in + # verstring for coding it into the library header + major=.`expr $current - $age` + versuffix="$major.$age.$revision" + # Darwin ld doesn't like 0 for these options... + minor_current=`expr $current + 1` + verstring="${wl}-compatibility_version ${wl}$minor_current ${wl}-current_version ${wl}$minor_current.$revision" + ;; + + freebsd-aout) + major=".$current" + versuffix=".$current.$revision"; + ;; + + freebsd-elf) + major=".$current" + versuffix=".$current"; + ;; + + irix | nonstopux) + major=`expr $current - $age + 1` + + case $version_type in + nonstopux) verstring_prefix=nonstopux ;; + *) verstring_prefix=sgi ;; + esac + verstring="$verstring_prefix$major.$revision" + + # Add in all the interfaces that we are compatible with. + loop=$revision + while test "$loop" -ne 0; do + iface=`expr $revision - $loop` + loop=`expr $loop - 1` + verstring="$verstring_prefix$major.$iface:$verstring" + done + + # Before this point, $major must not contain `.'. + major=.$major + versuffix="$major.$revision" + ;; + + linux) + major=.`expr $current - $age` + versuffix="$major.$age.$revision" + ;; + + osf) + major=.`expr $current - $age` + versuffix=".$current.$age.$revision" + verstring="$current.$age.$revision" + + # Add in all the interfaces that we are compatible with. + loop=$age + while test "$loop" -ne 0; do + iface=`expr $current - $loop` + loop=`expr $loop - 1` + verstring="$verstring:${iface}.0" + done + + # Make executables depend on our current version. + verstring="$verstring:${current}.0" + ;; + + sunos) + major=".$current" + versuffix=".$current.$revision" + ;; + + windows) + # Use '-' rather than '.', since we only want one + # extension on DOS 8.3 filesystems. + major=`expr $current - $age` + versuffix="-$major" + ;; + + *) + $echo "$modename: unknown library version type \`$version_type'" 1>&2 + $echo "Fatal configuration error. See the $PACKAGE docs for more information." 1>&2 + exit $EXIT_FAILURE + ;; + esac + + # Clear the version info if we defaulted, and they specified a release. + if test -z "$vinfo" && test -n "$release"; then + major= + case $version_type in + darwin) + # we can't check for "0.0" in archive_cmds due to quoting + # problems, so we reset it completely + verstring= + ;; + *) + verstring="0.0" + ;; + esac + if test "$need_version" = no; then + versuffix= + else + versuffix=".0.0" + fi + fi + + # Remove version info from name if versioning should be avoided + if test "$avoid_version" = yes && test "$need_version" = no; then + major= + versuffix= + verstring="" + fi + + # Check to see if the archive will have undefined symbols. + if test "$allow_undefined" = yes; then + if test "$allow_undefined_flag" = unsupported; then + $echo "$modename: warning: undefined symbols not allowed in $host shared libraries" 1>&2 + build_libtool_libs=no + build_old_libs=yes + fi + else + # Don't allow undefined symbols. + allow_undefined_flag="$no_undefined_flag" + fi + fi + + if test "$mode" != relink; then + # Remove our outputs, but don't remove object files since they + # may have been created when compiling PIC objects. + removelist= + tempremovelist=`$echo "$output_objdir/*"` + for p in $tempremovelist; do + case $p in + *.$objext) + ;; + $output_objdir/$outputname | $output_objdir/$libname.* | $output_objdir/${libname}${release}.*) + if test "X$precious_files_regex" != "X"; then + if echo $p | $EGREP -e "$precious_files_regex" >/dev/null 2>&1 + then + continue + fi + fi + removelist="$removelist $p" + ;; + *) ;; + esac + done + if test -n "$removelist"; then + $show "${rm}r $removelist" + $run ${rm}r $removelist + fi + fi + + # Now set the variables for building old libraries. + if test "$build_old_libs" = yes && test "$build_libtool_libs" != convenience ; then + oldlibs="$oldlibs $output_objdir/$libname.$libext" + + # Transform .lo files to .o files. + oldobjs="$objs "`$echo "X$libobjs" | $SP2NL | $Xsed -e '/\.'${libext}'$/d' -e "$lo2o" | $NL2SP` + fi + + # Eliminate all temporary directories. + for path in $notinst_path; do + lib_search_path=`$echo "$lib_search_path " | ${SED} -e 's% $path % %g'` + deplibs=`$echo "$deplibs " | ${SED} -e 's% -L$path % %g'` + dependency_libs=`$echo "$dependency_libs " | ${SED} -e 's% -L$path % %g'` + done + + if test -n "$xrpath"; then + # If the user specified any rpath flags, then add them. + temp_xrpath= + for libdir in $xrpath; do + temp_xrpath="$temp_xrpath -R$libdir" + case "$finalize_rpath " in + *" $libdir "*) ;; + *) finalize_rpath="$finalize_rpath $libdir" ;; + esac + done + if test "$hardcode_into_libs" != yes || test "$build_old_libs" = yes; then + dependency_libs="$temp_xrpath $dependency_libs" + fi + fi + + # Make sure dlfiles contains only unique files that won't be dlpreopened + old_dlfiles="$dlfiles" + dlfiles= + for lib in $old_dlfiles; do + case " $dlprefiles $dlfiles " in + *" $lib "*) ;; + *) dlfiles="$dlfiles $lib" ;; + esac + done + + # Make sure dlprefiles contains only unique files + old_dlprefiles="$dlprefiles" + dlprefiles= + for lib in $old_dlprefiles; do + case "$dlprefiles " in + *" $lib "*) ;; + *) dlprefiles="$dlprefiles $lib" ;; + esac + done + + if test "$build_libtool_libs" = yes; then + if test -n "$rpath"; then + case $host in + *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-*-beos*) + # these systems don't actually have a c library (as such)! + ;; + *-*-rhapsody* | *-*-darwin1.[012]) + # Rhapsody C library is in the System framework + deplibs="$deplibs -framework System" + ;; + *-*-netbsd*) + # Don't link with libc until the a.out ld.so is fixed. + ;; + *-*-openbsd* | *-*-freebsd* | *-*-dragonfly*) + # Do not include libc due to us having libc/libc_r. + test "X$arg" = "X-lc" && continue + ;; + *) + # Add libc to deplibs on all other systems if necessary. + if test "$build_libtool_need_lc" = "yes"; then + deplibs="$deplibs -lc" + fi + ;; + esac + fi + + # Transform deplibs into only deplibs that can be linked in shared. + name_save=$name + libname_save=$libname + release_save=$release + versuffix_save=$versuffix + major_save=$major + # I'm not sure if I'm treating the release correctly. I think + # release should show up in the -l (ie -lgmp5) so we don't want to + # add it in twice. Is that correct? + release="" + versuffix="" + major="" + newdeplibs= + droppeddeps=no + case $deplibs_check_method in + pass_all) + # Don't check for shared/static. Everything works. + # This might be a little naive. We might want to check + # whether the library exists or not. But this is on + # osf3 & osf4 and I'm not really sure... Just + # implementing what was already the behavior. + newdeplibs=$deplibs + ;; + test_compile) + # This code stresses the "libraries are programs" paradigm to its + # limits. Maybe even breaks it. We compile a program, linking it + # against the deplibs as a proxy for the library. Then we can check + # whether they linked in statically or dynamically with ldd. + $rm conftest.c + cat > conftest.c </dev/null` + for potent_lib in $potential_libs; do + # Follow soft links. + if ls -lLd "$potent_lib" 2>/dev/null \ + | grep " -> " >/dev/null; then + continue + fi + # The statement above tries to avoid entering an + # endless loop below, in case of cyclic links. + # We might still enter an endless loop, since a link + # loop can be closed while we follow links, + # but so what? + potlib="$potent_lib" + while test -h "$potlib" 2>/dev/null; do + potliblink=`ls -ld $potlib | ${SED} 's/.* -> //'` + case $potliblink in + [\\/]* | [A-Za-z]:[\\/]*) potlib="$potliblink";; + *) potlib=`$echo "X$potlib" | $Xsed -e 's,[^/]*$,,'`"$potliblink";; + esac + done + if eval $file_magic_cmd \"\$potlib\" 2>/dev/null \ + | ${SED} 10q \ + | $EGREP "$file_magic_regex" > /dev/null; then + newdeplibs="$newdeplibs $a_deplib" + a_deplib="" + break 2 + fi + done + done + fi + if test -n "$a_deplib" ; then + droppeddeps=yes + $echo + $echo "*** Warning: linker path does not have real file for library $a_deplib." + $echo "*** I have the capability to make that library automatically link in when" + $echo "*** you link to this library. But I can only do this if you have a" + $echo "*** shared version of the library, which you do not appear to have" + $echo "*** because I did check the linker path looking for a file starting" + if test -z "$potlib" ; then + $echo "*** with $libname but no candidates were found. (...for file magic test)" + else + $echo "*** with $libname and none of the candidates passed a file format test" + $echo "*** using a file magic. Last file checked: $potlib" + fi + fi + else + # Add a -L argument. + newdeplibs="$newdeplibs $a_deplib" + fi + done # Gone through all deplibs. + ;; + match_pattern*) + set dummy $deplibs_check_method + match_pattern_regex=`expr "$deplibs_check_method" : "$2 \(.*\)"` + for a_deplib in $deplibs; do + name="`expr $a_deplib : '-l\(.*\)'`" + # If $name is empty we are operating on a -L argument. + if test -n "$name" && test "$name" != "0"; then + if test "X$allow_libtool_libs_with_static_runtimes" = "Xyes" ; then + case " $predeps $postdeps " in + *" $a_deplib "*) + newdeplibs="$newdeplibs $a_deplib" + a_deplib="" + ;; + esac + fi + if test -n "$a_deplib" ; then + libname=`eval \\$echo \"$libname_spec\"` + for i in $lib_search_path $sys_lib_search_path $shlib_search_path; do + potential_libs=`ls $i/$libname[.-]* 2>/dev/null` + for potent_lib in $potential_libs; do + potlib="$potent_lib" # see symlink-check above in file_magic test + if eval $echo \"$potent_lib\" 2>/dev/null \ + | ${SED} 10q \ + | $EGREP "$match_pattern_regex" > /dev/null; then + newdeplibs="$newdeplibs $a_deplib" + a_deplib="" + break 2 + fi + done + done + fi + if test -n "$a_deplib" ; then + droppeddeps=yes + $echo + $echo "*** Warning: linker path does not have real file for library $a_deplib." + $echo "*** I have the capability to make that library automatically link in when" + $echo "*** you link to this library. But I can only do this if you have a" + $echo "*** shared version of the library, which you do not appear to have" + $echo "*** because I did check the linker path looking for a file starting" + if test -z "$potlib" ; then + $echo "*** with $libname but no candidates were found. (...for regex pattern test)" + else + $echo "*** with $libname and none of the candidates passed a file format test" + $echo "*** using a regex pattern. Last file checked: $potlib" + fi + fi + else + # Add a -L argument. + newdeplibs="$newdeplibs $a_deplib" + fi + done # Gone through all deplibs. + ;; + none | unknown | *) + newdeplibs="" + tmp_deplibs=`$echo "X $deplibs" | $Xsed -e 's/ -lc$//' \ + -e 's/ -[LR][^ ]*//g'` + if test "X$allow_libtool_libs_with_static_runtimes" = "Xyes" ; then + for i in $predeps $postdeps ; do + # can't use Xsed below, because $i might contain '/' + tmp_deplibs=`$echo "X $tmp_deplibs" | ${SED} -e "1s,^X,," -e "s,$i,,"` + done + fi + if $echo "X $tmp_deplibs" | $Xsed -e 's/[ ]//g' \ + | grep . >/dev/null; then + $echo + if test "X$deplibs_check_method" = "Xnone"; then + $echo "*** Warning: inter-library dependencies are not supported in this platform." + else + $echo "*** Warning: inter-library dependencies are not known to be supported." + fi + $echo "*** All declared inter-library dependencies are being dropped." + droppeddeps=yes + fi + ;; + esac + versuffix=$versuffix_save + major=$major_save + release=$release_save + libname=$libname_save + name=$name_save + + case $host in + *-*-rhapsody* | *-*-darwin1.[012]) + # On Rhapsody replace the C library is the System framework + newdeplibs=`$echo "X $newdeplibs" | $Xsed -e 's/ -lc / -framework System /'` + ;; + esac + + if test "$droppeddeps" = yes; then + if test "$module" = yes; then + $echo + $echo "*** Warning: libtool could not satisfy all declared inter-library" + $echo "*** dependencies of module $libname. Therefore, libtool will create" + $echo "*** a static module, that should work as long as the dlopening" + $echo "*** application is linked with the -dlopen flag." + if test -z "$global_symbol_pipe"; then + $echo + $echo "*** However, this would only work if libtool was able to extract symbol" + $echo "*** lists from a program, using \`nm' or equivalent, but libtool could" + $echo "*** not find such a program. So, this module is probably useless." + $echo "*** \`nm' from GNU binutils and a full rebuild may help." + fi + if test "$build_old_libs" = no; then + oldlibs="$output_objdir/$libname.$libext" + build_libtool_libs=module + build_old_libs=yes + else + build_libtool_libs=no + fi + else + $echo "*** The inter-library dependencies that have been dropped here will be" + $echo "*** automatically added whenever a program is linked with this library" + $echo "*** or is declared to -dlopen it." + + if test "$allow_undefined" = no; then + $echo + $echo "*** Since this library must not contain undefined symbols," + $echo "*** because either the platform does not support them or" + $echo "*** it was explicitly requested with -no-undefined," + $echo "*** libtool will only create a static version of it." + if test "$build_old_libs" = no; then + oldlibs="$output_objdir/$libname.$libext" + build_libtool_libs=module + build_old_libs=yes + else + build_libtool_libs=no + fi + fi + fi + fi + # Done checking deplibs! + deplibs=$newdeplibs + fi + + # All the library-specific variables (install_libdir is set above). + library_names= + old_library= + dlname= + + # Test again, we may have decided not to build it any more + if test "$build_libtool_libs" = yes; then + if test "$hardcode_into_libs" = yes; then + # Hardcode the library paths + hardcode_libdirs= + dep_rpath= + rpath="$finalize_rpath" + test "$mode" != relink && rpath="$compile_rpath$rpath" + for libdir in $rpath; do + if test -n "$hardcode_libdir_flag_spec"; then + if test -n "$hardcode_libdir_separator"; then + if test -z "$hardcode_libdirs"; then + hardcode_libdirs="$libdir" + else + # Just accumulate the unique libdirs. + case $hardcode_libdir_separator$hardcode_libdirs$hardcode_libdir_separator in + *"$hardcode_libdir_separator$libdir$hardcode_libdir_separator"*) + ;; + *) + hardcode_libdirs="$hardcode_libdirs$hardcode_libdir_separator$libdir" + ;; + esac + fi + else + eval flag=\"$hardcode_libdir_flag_spec\" + dep_rpath="$dep_rpath $flag" + fi + elif test -n "$runpath_var"; then + case "$perm_rpath " in + *" $libdir "*) ;; + *) perm_rpath="$perm_rpath $libdir" ;; + esac + fi + done + # Substitute the hardcoded libdirs into the rpath. + if test -n "$hardcode_libdir_separator" && + test -n "$hardcode_libdirs"; then + libdir="$hardcode_libdirs" + if test -n "$hardcode_libdir_flag_spec_ld"; then + eval dep_rpath=\"$hardcode_libdir_flag_spec_ld\" + else + eval dep_rpath=\"$hardcode_libdir_flag_spec\" + fi + fi + if test -n "$runpath_var" && test -n "$perm_rpath"; then + # We should set the runpath_var. + rpath= + for dir in $perm_rpath; do + rpath="$rpath$dir:" + done + eval "$runpath_var='$rpath\$$runpath_var'; export $runpath_var" + fi + test -n "$dep_rpath" && deplibs="$dep_rpath $deplibs" + fi + + shlibpath="$finalize_shlibpath" + test "$mode" != relink && shlibpath="$compile_shlibpath$shlibpath" + if test -n "$shlibpath"; then + eval "$shlibpath_var='$shlibpath\$$shlibpath_var'; export $shlibpath_var" + fi + + # Get the real and link names of the library. + eval shared_ext=\"$shrext_cmds\" + eval library_names=\"$library_names_spec\" + set dummy $library_names + realname="$2" + shift; shift + + if test -n "$soname_spec"; then + eval soname=\"$soname_spec\" + else + soname="$realname" + fi + if test -z "$dlname"; then + dlname=$soname + fi + + lib="$output_objdir/$realname" + for link + do + linknames="$linknames $link" + done + + # Use standard objects if they are pic + test -z "$pic_flag" && libobjs=`$echo "X$libobjs" | $SP2NL | $Xsed -e "$lo2o" | $NL2SP` + + # Prepare the list of exported symbols + if test -z "$export_symbols"; then + if test "$always_export_symbols" = yes || test -n "$export_symbols_regex"; then + $show "generating symbol list for \`$libname.la'" + export_symbols="$output_objdir/$libname.exp" + $run $rm $export_symbols + cmds=$export_symbols_cmds + save_ifs="$IFS"; IFS='~' + for cmd in $cmds; do + IFS="$save_ifs" + eval cmd=\"$cmd\" + if len=`expr "X$cmd" : ".*"` && + test "$len" -le "$max_cmd_len" || test "$max_cmd_len" -le -1; then + $show "$cmd" + $run eval "$cmd" || exit $? + skipped_export=false + else + # The command line is too long to execute in one step. + $show "using reloadable object file for export list..." + skipped_export=: + fi + done + IFS="$save_ifs" + if test -n "$export_symbols_regex"; then + $show "$EGREP -e \"$export_symbols_regex\" \"$export_symbols\" > \"${export_symbols}T\"" + $run eval '$EGREP -e "$export_symbols_regex" "$export_symbols" > "${export_symbols}T"' + $show "$mv \"${export_symbols}T\" \"$export_symbols\"" + $run eval '$mv "${export_symbols}T" "$export_symbols"' + fi + fi + fi + + if test -n "$export_symbols" && test -n "$include_expsyms"; then + $run eval '$echo "X$include_expsyms" | $SP2NL >> "$export_symbols"' + fi + + tmp_deplibs= + for test_deplib in $deplibs; do + case " $convenience " in + *" $test_deplib "*) ;; + *) + tmp_deplibs="$tmp_deplibs $test_deplib" + ;; + esac + done + deplibs="$tmp_deplibs" + + if test -n "$convenience"; then + if test -n "$whole_archive_flag_spec"; then + save_libobjs=$libobjs + eval libobjs=\"\$libobjs $whole_archive_flag_spec\" + else + gentop="$output_objdir/${outputname}x" + generated="$generated $gentop" + + func_extract_archives $gentop $convenience + libobjs="$libobjs $func_extract_archives_result" + fi + fi + + if test "$thread_safe" = yes && test -n "$thread_safe_flag_spec"; then + eval flag=\"$thread_safe_flag_spec\" + linker_flags="$linker_flags $flag" + fi + + # Make a backup of the uninstalled library when relinking + if test "$mode" = relink; then + $run eval '(cd $output_objdir && $rm ${realname}U && $mv $realname ${realname}U)' || exit $? + fi + + # Do each of the archive commands. + if test "$module" = yes && test -n "$module_cmds" ; then + if test -n "$export_symbols" && test -n "$module_expsym_cmds"; then + eval test_cmds=\"$module_expsym_cmds\" + cmds=$module_expsym_cmds + else + eval test_cmds=\"$module_cmds\" + cmds=$module_cmds + fi + else + if test -n "$export_symbols" && test -n "$archive_expsym_cmds"; then + eval test_cmds=\"$archive_expsym_cmds\" + cmds=$archive_expsym_cmds + else + eval test_cmds=\"$archive_cmds\" + cmds=$archive_cmds + fi + fi + + if test "X$skipped_export" != "X:" && len=`expr "X$test_cmds" : ".*"` && + test "$len" -le "$max_cmd_len" || test "$max_cmd_len" -le -1; then + : + else + # The command line is too long to link in one step, link piecewise. + $echo "creating reloadable object files..." + + # Save the value of $output and $libobjs because we want to + # use them later. If we have whole_archive_flag_spec, we + # want to use save_libobjs as it was before + # whole_archive_flag_spec was expanded, because we can't + # assume the linker understands whole_archive_flag_spec. + # This may have to be revisited, in case too many + # convenience libraries get linked in and end up exceeding + # the spec. + if test -z "$convenience" || test -z "$whole_archive_flag_spec"; then + save_libobjs=$libobjs + fi + save_output=$output + output_la=`$echo "X$output" | $Xsed -e "$basename"` + + # Clear the reloadable object creation command queue and + # initialize k to one. + test_cmds= + concat_cmds= + objlist= + delfiles= + last_robj= + k=1 + output=$output_objdir/$output_la-${k}.$objext + # Loop over the list of objects to be linked. + for obj in $save_libobjs + do + eval test_cmds=\"$reload_cmds $objlist $last_robj\" + if test "X$objlist" = X || + { len=`expr "X$test_cmds" : ".*"` && + test "$len" -le "$max_cmd_len"; }; then + objlist="$objlist $obj" + else + # The command $test_cmds is almost too long, add a + # command to the queue. + if test "$k" -eq 1 ; then + # The first file doesn't have a previous command to add. + eval concat_cmds=\"$reload_cmds $objlist $last_robj\" + else + # All subsequent reloadable object files will link in + # the last one created. + eval concat_cmds=\"\$concat_cmds~$reload_cmds $objlist $last_robj\" + fi + last_robj=$output_objdir/$output_la-${k}.$objext + k=`expr $k + 1` + output=$output_objdir/$output_la-${k}.$objext + objlist=$obj + len=1 + fi + done + # Handle the remaining objects by creating one last + # reloadable object file. All subsequent reloadable object + # files will link in the last one created. + test -z "$concat_cmds" || concat_cmds=$concat_cmds~ + eval concat_cmds=\"\${concat_cmds}$reload_cmds $objlist $last_robj\" + + if ${skipped_export-false}; then + $show "generating symbol list for \`$libname.la'" + export_symbols="$output_objdir/$libname.exp" + $run $rm $export_symbols + libobjs=$output + # Append the command to create the export file. + eval concat_cmds=\"\$concat_cmds~$export_symbols_cmds\" + fi + + # Set up a command to remove the reloadable object files + # after they are used. + i=0 + while test "$i" -lt "$k" + do + i=`expr $i + 1` + delfiles="$delfiles $output_objdir/$output_la-${i}.$objext" + done + + $echo "creating a temporary reloadable object file: $output" + + # Loop through the commands generated above and execute them. + save_ifs="$IFS"; IFS='~' + for cmd in $concat_cmds; do + IFS="$save_ifs" + $show "$cmd" + $run eval "$cmd" || exit $? + done + IFS="$save_ifs" + + libobjs=$output + # Restore the value of output. + output=$save_output + + if test -n "$convenience" && test -n "$whole_archive_flag_spec"; then + eval libobjs=\"\$libobjs $whole_archive_flag_spec\" + fi + # Expand the library linking commands again to reset the + # value of $libobjs for piecewise linking. + + # Do each of the archive commands. + if test "$module" = yes && test -n "$module_cmds" ; then + if test -n "$export_symbols" && test -n "$module_expsym_cmds"; then + cmds=$module_expsym_cmds + else + cmds=$module_cmds + fi + else + if test -n "$export_symbols" && test -n "$archive_expsym_cmds"; then + cmds=$archive_expsym_cmds + else + cmds=$archive_cmds + fi + fi + + # Append the command to remove the reloadable object files + # to the just-reset $cmds. + eval cmds=\"\$cmds~\$rm $delfiles\" + fi + save_ifs="$IFS"; IFS='~' + for cmd in $cmds; do + IFS="$save_ifs" + eval cmd=\"$cmd\" + $show "$cmd" + $run eval "$cmd" || exit $? + done + IFS="$save_ifs" + + # Restore the uninstalled library and exit + if test "$mode" = relink; then + $run eval '(cd $output_objdir && $rm ${realname}T && $mv $realname ${realname}T && $mv "$realname"U $realname)' || exit $? + exit $EXIT_SUCCESS + fi + + # Create links to the real library. + for linkname in $linknames; do + if test "$realname" != "$linkname"; then + $show "(cd $output_objdir && $rm $linkname && $LN_S $realname $linkname)" + $run eval '(cd $output_objdir && $rm $linkname && $LN_S $realname $linkname)' || exit $? + fi + done + + # If -module or -export-dynamic was specified, set the dlname. + if test "$module" = yes || test "$export_dynamic" = yes; then + # On all known operating systems, these are identical. + dlname="$soname" + fi + fi + ;; + + obj) + if test -n "$deplibs"; then + $echo "$modename: warning: \`-l' and \`-L' are ignored for objects" 1>&2 + fi + + if test -n "$dlfiles$dlprefiles" || test "$dlself" != no; then + $echo "$modename: warning: \`-dlopen' is ignored for objects" 1>&2 + fi + + if test -n "$rpath"; then + $echo "$modename: warning: \`-rpath' is ignored for objects" 1>&2 + fi + + if test -n "$xrpath"; then + $echo "$modename: warning: \`-R' is ignored for objects" 1>&2 + fi + + if test -n "$vinfo"; then + $echo "$modename: warning: \`-version-info' is ignored for objects" 1>&2 + fi + + if test -n "$release"; then + $echo "$modename: warning: \`-release' is ignored for objects" 1>&2 + fi + + case $output in + *.lo) + if test -n "$objs$old_deplibs"; then + $echo "$modename: cannot build library object \`$output' from non-libtool objects" 1>&2 + exit $EXIT_FAILURE + fi + libobj="$output" + obj=`$echo "X$output" | $Xsed -e "$lo2o"` + ;; + *) + libobj= + obj="$output" + ;; + esac + + # Delete the old objects. + $run $rm $obj $libobj + + # Objects from convenience libraries. This assumes + # single-version convenience libraries. Whenever we create + # different ones for PIC/non-PIC, this we'll have to duplicate + # the extraction. + reload_conv_objs= + gentop= + # reload_cmds runs $LD directly, so let us get rid of + # -Wl from whole_archive_flag_spec + wl= + + if test -n "$convenience"; then + if test -n "$whole_archive_flag_spec"; then + eval reload_conv_objs=\"\$reload_objs $whole_archive_flag_spec\" + else + gentop="$output_objdir/${obj}x" + generated="$generated $gentop" + + func_extract_archives $gentop $convenience + reload_conv_objs="$reload_objs $func_extract_archives_result" + fi + fi + + # Create the old-style object. + reload_objs="$objs$old_deplibs "`$echo "X$libobjs" | $SP2NL | $Xsed -e '/\.'${libext}$'/d' -e '/\.lib$/d' -e "$lo2o" | $NL2SP`" $reload_conv_objs" ### testsuite: skip nested quoting test + + output="$obj" + cmds=$reload_cmds + save_ifs="$IFS"; IFS='~' + for cmd in $cmds; do + IFS="$save_ifs" + eval cmd=\"$cmd\" + $show "$cmd" + $run eval "$cmd" || exit $? + done + IFS="$save_ifs" + + # Exit if we aren't doing a library object file. + if test -z "$libobj"; then + if test -n "$gentop"; then + $show "${rm}r $gentop" + $run ${rm}r $gentop + fi + + exit $EXIT_SUCCESS + fi + + if test "$build_libtool_libs" != yes; then + if test -n "$gentop"; then + $show "${rm}r $gentop" + $run ${rm}r $gentop + fi + + # Create an invalid libtool object if no PIC, so that we don't + # accidentally link it into a program. + # $show "echo timestamp > $libobj" + # $run eval "echo timestamp > $libobj" || exit $? + exit $EXIT_SUCCESS + fi + + if test -n "$pic_flag" || test "$pic_mode" != default; then + # Only do commands if we really have different PIC objects. + reload_objs="$libobjs $reload_conv_objs" + output="$libobj" + cmds=$reload_cmds + save_ifs="$IFS"; IFS='~' + for cmd in $cmds; do + IFS="$save_ifs" + eval cmd=\"$cmd\" + $show "$cmd" + $run eval "$cmd" || exit $? + done + IFS="$save_ifs" + fi + + if test -n "$gentop"; then + $show "${rm}r $gentop" + $run ${rm}r $gentop + fi + + exit $EXIT_SUCCESS + ;; + + prog) + case $host in + *cygwin*) output=`$echo $output | ${SED} -e 's,.exe$,,;s,$,.exe,'` ;; + esac + if test -n "$vinfo"; then + $echo "$modename: warning: \`-version-info' is ignored for programs" 1>&2 + fi + + if test -n "$release"; then + $echo "$modename: warning: \`-release' is ignored for programs" 1>&2 + fi + + if test "$preload" = yes; then + if test "$dlopen_support" = unknown && test "$dlopen_self" = unknown && + test "$dlopen_self_static" = unknown; then + $echo "$modename: warning: \`AC_LIBTOOL_DLOPEN' not used. Assuming no dlopen support." + fi + fi + + case $host in + *-*-rhapsody* | *-*-darwin1.[012]) + # On Rhapsody replace the C library is the System framework + compile_deplibs=`$echo "X $compile_deplibs" | $Xsed -e 's/ -lc / -framework System /'` + finalize_deplibs=`$echo "X $finalize_deplibs" | $Xsed -e 's/ -lc / -framework System /'` + ;; + esac + + case $host in + *darwin*) + # Don't allow lazy linking, it breaks C++ global constructors + if test "$tagname" = CXX ; then + compile_command="$compile_command ${wl}-bind_at_load" + finalize_command="$finalize_command ${wl}-bind_at_load" + fi + ;; + esac + + compile_command="$compile_command $compile_deplibs" + finalize_command="$finalize_command $finalize_deplibs" + + if test -n "$rpath$xrpath"; then + # If the user specified any rpath flags, then add them. + for libdir in $rpath $xrpath; do + # This is the magic to use -rpath. + case "$finalize_rpath " in + *" $libdir "*) ;; + *) finalize_rpath="$finalize_rpath $libdir" ;; + esac + done + fi + + # Now hardcode the library paths + rpath= + hardcode_libdirs= + for libdir in $compile_rpath $finalize_rpath; do + if test -n "$hardcode_libdir_flag_spec"; then + if test -n "$hardcode_libdir_separator"; then + if test -z "$hardcode_libdirs"; then + hardcode_libdirs="$libdir" + else + # Just accumulate the unique libdirs. + case $hardcode_libdir_separator$hardcode_libdirs$hardcode_libdir_separator in + *"$hardcode_libdir_separator$libdir$hardcode_libdir_separator"*) + ;; + *) + hardcode_libdirs="$hardcode_libdirs$hardcode_libdir_separator$libdir" + ;; + esac + fi + else + eval flag=\"$hardcode_libdir_flag_spec\" + rpath="$rpath $flag" + fi + elif test -n "$runpath_var"; then + case "$perm_rpath " in + *" $libdir "*) ;; + *) perm_rpath="$perm_rpath $libdir" ;; + esac + fi + case $host in + *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2*) + case :$dllsearchpath: in + *":$libdir:"*) ;; + *) dllsearchpath="$dllsearchpath:$libdir";; + esac + ;; + esac + done + # Substitute the hardcoded libdirs into the rpath. + if test -n "$hardcode_libdir_separator" && + test -n "$hardcode_libdirs"; then + libdir="$hardcode_libdirs" + eval rpath=\" $hardcode_libdir_flag_spec\" + fi + compile_rpath="$rpath" + + rpath= + hardcode_libdirs= + for libdir in $finalize_rpath; do + if test -n "$hardcode_libdir_flag_spec"; then + if test -n "$hardcode_libdir_separator"; then + if test -z "$hardcode_libdirs"; then + hardcode_libdirs="$libdir" + else + # Just accumulate the unique libdirs. + case $hardcode_libdir_separator$hardcode_libdirs$hardcode_libdir_separator in + *"$hardcode_libdir_separator$libdir$hardcode_libdir_separator"*) + ;; + *) + hardcode_libdirs="$hardcode_libdirs$hardcode_libdir_separator$libdir" + ;; + esac + fi + else + eval flag=\"$hardcode_libdir_flag_spec\" + rpath="$rpath $flag" + fi + elif test -n "$runpath_var"; then + case "$finalize_perm_rpath " in + *" $libdir "*) ;; + *) finalize_perm_rpath="$finalize_perm_rpath $libdir" ;; + esac + fi + done + # Substitute the hardcoded libdirs into the rpath. + if test -n "$hardcode_libdir_separator" && + test -n "$hardcode_libdirs"; then + libdir="$hardcode_libdirs" + eval rpath=\" $hardcode_libdir_flag_spec\" + fi + finalize_rpath="$rpath" + + if test -n "$libobjs" && test "$build_old_libs" = yes; then + # Transform all the library objects into standard objects. + compile_command=`$echo "X$compile_command" | $SP2NL | $Xsed -e "$lo2o" | $NL2SP` + finalize_command=`$echo "X$finalize_command" | $SP2NL | $Xsed -e "$lo2o" | $NL2SP` + fi + + dlsyms= + if test -n "$dlfiles$dlprefiles" || test "$dlself" != no; then + if test -n "$NM" && test -n "$global_symbol_pipe"; then + dlsyms="${outputname}S.c" + else + $echo "$modename: not configured to extract global symbols from dlpreopened files" 1>&2 + fi + fi + + if test -n "$dlsyms"; then + case $dlsyms in + "") ;; + *.c) + # Discover the nlist of each of the dlfiles. + nlist="$output_objdir/${outputname}.nm" + + $show "$rm $nlist ${nlist}S ${nlist}T" + $run $rm "$nlist" "${nlist}S" "${nlist}T" + + # Parse the name list into a source file. + $show "creating $output_objdir/$dlsyms" + + test -z "$run" && $echo > "$output_objdir/$dlsyms" "\ +/* $dlsyms - symbol resolution table for \`$outputname' dlsym emulation. */ +/* Generated by $PROGRAM - GNU $PACKAGE $VERSION$TIMESTAMP */ + +#ifdef __cplusplus +extern \"C\" { +#endif + +/* Prevent the only kind of declaration conflicts we can make. */ +#define lt_preloaded_symbols some_other_symbol + +/* External symbol declarations for the compiler. */\ +" + + if test "$dlself" = yes; then + $show "generating symbol list for \`$output'" + + test -z "$run" && $echo ': @PROGRAM@ ' > "$nlist" + + # Add our own program objects to the symbol list. + progfiles=`$echo "X$objs$old_deplibs" | $SP2NL | $Xsed -e "$lo2o" | $NL2SP` + for arg in $progfiles; do + $show "extracting global C symbols from \`$arg'" + $run eval "$NM $arg | $global_symbol_pipe >> '$nlist'" + done + + if test -n "$exclude_expsyms"; then + $run eval '$EGREP -v " ($exclude_expsyms)$" "$nlist" > "$nlist"T' + $run eval '$mv "$nlist"T "$nlist"' + fi + + if test -n "$export_symbols_regex"; then + $run eval '$EGREP -e "$export_symbols_regex" "$nlist" > "$nlist"T' + $run eval '$mv "$nlist"T "$nlist"' + fi + + # Prepare the list of exported symbols + if test -z "$export_symbols"; then + export_symbols="$output_objdir/$outputname.exp" + $run $rm $export_symbols + $run eval "${SED} -n -e '/^: @PROGRAM@$/d' -e 's/^.* \(.*\)$/\1/p' "'< "$nlist" > "$export_symbols"' + else + $run eval "${SED} -e 's/\([ ][.*^$]\)/\\\1/g' -e 's/^/ /' -e 's/$/$/'"' < "$export_symbols" > "$output_objdir/$outputname.exp"' + $run eval 'grep -f "$output_objdir/$outputname.exp" < "$nlist" > "$nlist"T' + $run eval 'mv "$nlist"T "$nlist"' + fi + fi + + for arg in $dlprefiles; do + $show "extracting global C symbols from \`$arg'" + name=`$echo "$arg" | ${SED} -e 's%^.*/%%'` + $run eval '$echo ": $name " >> "$nlist"' + $run eval "$NM $arg | $global_symbol_pipe >> '$nlist'" + done + + if test -z "$run"; then + # Make sure we have at least an empty file. + test -f "$nlist" || : > "$nlist" + + if test -n "$exclude_expsyms"; then + $EGREP -v " ($exclude_expsyms)$" "$nlist" > "$nlist"T + $mv "$nlist"T "$nlist" + fi + + # Try sorting and uniquifying the output. + if grep -v "^: " < "$nlist" | + if sort -k 3 /dev/null 2>&1; then + sort -k 3 + else + sort +2 + fi | + uniq > "$nlist"S; then + : + else + grep -v "^: " < "$nlist" > "$nlist"S + fi + + if test -f "$nlist"S; then + eval "$global_symbol_to_cdecl"' < "$nlist"S >> "$output_objdir/$dlsyms"' + else + $echo '/* NONE */' >> "$output_objdir/$dlsyms" + fi + + $echo >> "$output_objdir/$dlsyms" "\ + +#undef lt_preloaded_symbols + +#if defined (__STDC__) && __STDC__ +# define lt_ptr void * +#else +# define lt_ptr char * +# define const +#endif + +/* The mapping between symbol names and symbols. */ +" + + case $host in + *cygwin* | *mingw* ) + $echo >> "$output_objdir/$dlsyms" "\ +/* DATA imports from DLLs on WIN32 can't be const, because + runtime relocations are performed -- see ld's documentation + on pseudo-relocs */ +struct { +" + ;; + * ) + $echo >> "$output_objdir/$dlsyms" "\ +const struct { +" + ;; + esac + + + $echo >> "$output_objdir/$dlsyms" "\ + const char *name; + lt_ptr address; +} +lt_preloaded_symbols[] = +{\ +" + + eval "$global_symbol_to_c_name_address" < "$nlist" >> "$output_objdir/$dlsyms" + + $echo >> "$output_objdir/$dlsyms" "\ + {0, (lt_ptr) 0} +}; + +/* This works around a problem in FreeBSD linker */ +#ifdef FREEBSD_WORKAROUND +static const void *lt_preloaded_setup() { + return lt_preloaded_symbols; +} +#endif + +#ifdef __cplusplus +} +#endif\ +" + fi + + pic_flag_for_symtable= + case $host in + # compiling the symbol table file with pic_flag works around + # a FreeBSD bug that causes programs to crash when -lm is + # linked before any other PIC object. But we must not use + # pic_flag when linking with -static. The problem exists in + # FreeBSD 2.2.6 and is fixed in FreeBSD 3.1. + *-*-freebsd2*|*-*-freebsd3.0*|*-*-freebsdelf3.0*) + case "$compile_command " in + *" -static "*) ;; + *) pic_flag_for_symtable=" $pic_flag -DFREEBSD_WORKAROUND";; + esac;; + *-*-hpux*) + case "$compile_command " in + *" -static "*) ;; + *) pic_flag_for_symtable=" $pic_flag";; + esac + esac + + # Now compile the dynamic symbol file. + $show "(cd $output_objdir && $LTCC -c$no_builtin_flag$pic_flag_for_symtable \"$dlsyms\")" + $run eval '(cd $output_objdir && $LTCC -c$no_builtin_flag$pic_flag_for_symtable "$dlsyms")' || exit $? + + # Clean up the generated files. + $show "$rm $output_objdir/$dlsyms $nlist ${nlist}S ${nlist}T" + $run $rm "$output_objdir/$dlsyms" "$nlist" "${nlist}S" "${nlist}T" + + # Transform the symbol file into the correct name. + compile_command=`$echo "X$compile_command" | $Xsed -e "s%@SYMFILE@%$output_objdir/${outputname}S.${objext}%"` + finalize_command=`$echo "X$finalize_command" | $Xsed -e "s%@SYMFILE@%$output_objdir/${outputname}S.${objext}%"` + ;; + *) + $echo "$modename: unknown suffix for \`$dlsyms'" 1>&2 + exit $EXIT_FAILURE + ;; + esac + else + # We keep going just in case the user didn't refer to + # lt_preloaded_symbols. The linker will fail if global_symbol_pipe + # really was required. + + # Nullify the symbol file. + compile_command=`$echo "X$compile_command" | $Xsed -e "s% @SYMFILE@%%"` + finalize_command=`$echo "X$finalize_command" | $Xsed -e "s% @SYMFILE@%%"` + fi + + if test "$need_relink" = no || test "$build_libtool_libs" != yes; then + # Replace the output file specification. + compile_command=`$echo "X$compile_command" | $Xsed -e 's%@OUTPUT@%'"$output"'%g'` + link_command="$compile_command$compile_rpath" + + # We have no uninstalled library dependencies, so finalize right now. + $show "$link_command" + $run eval "$link_command" + status=$? + + # Delete the generated files. + if test -n "$dlsyms"; then + $show "$rm $output_objdir/${outputname}S.${objext}" + $run $rm "$output_objdir/${outputname}S.${objext}" + fi + + exit $status + fi + + if test -n "$shlibpath_var"; then + # We should set the shlibpath_var + rpath= + for dir in $temp_rpath; do + case $dir in + [\\/]* | [A-Za-z]:[\\/]*) + # Absolute path. + rpath="$rpath$dir:" + ;; + *) + # Relative path: add a thisdir entry. + rpath="$rpath\$thisdir/$dir:" + ;; + esac + done + temp_rpath="$rpath" + fi + + if test -n "$compile_shlibpath$finalize_shlibpath"; then + compile_command="$shlibpath_var=\"$compile_shlibpath$finalize_shlibpath\$$shlibpath_var\" $compile_command" + fi + if test -n "$finalize_shlibpath"; then + finalize_command="$shlibpath_var=\"$finalize_shlibpath\$$shlibpath_var\" $finalize_command" + fi + + compile_var= + finalize_var= + if test -n "$runpath_var"; then + if test -n "$perm_rpath"; then + # We should set the runpath_var. + rpath= + for dir in $perm_rpath; do + rpath="$rpath$dir:" + done + compile_var="$runpath_var=\"$rpath\$$runpath_var\" " + fi + if test -n "$finalize_perm_rpath"; then + # We should set the runpath_var. + rpath= + for dir in $finalize_perm_rpath; do + rpath="$rpath$dir:" + done + finalize_var="$runpath_var=\"$rpath\$$runpath_var\" " + fi + fi + + if test "$no_install" = yes; then + # We don't need to create a wrapper script. + link_command="$compile_var$compile_command$compile_rpath" + # Replace the output file specification. + link_command=`$echo "X$link_command" | $Xsed -e 's%@OUTPUT@%'"$output"'%g'` + # Delete the old output file. + $run $rm $output + # Link the executable and exit + $show "$link_command" + $run eval "$link_command" || exit $? + exit $EXIT_SUCCESS + fi + + if test "$hardcode_action" = relink; then + # Fast installation is not supported + link_command="$compile_var$compile_command$compile_rpath" + relink_command="$finalize_var$finalize_command$finalize_rpath" + + $echo "$modename: warning: this platform does not like uninstalled shared libraries" 1>&2 + $echo "$modename: \`$output' will be relinked during installation" 1>&2 + else + if test "$fast_install" != no; then + link_command="$finalize_var$compile_command$finalize_rpath" + if test "$fast_install" = yes; then + relink_command=`$echo "X$compile_var$compile_command$compile_rpath" | $Xsed -e 's%@OUTPUT@%\$progdir/\$file%g'` + else + # fast_install is set to needless + relink_command= + fi + else + link_command="$compile_var$compile_command$compile_rpath" + relink_command="$finalize_var$finalize_command$finalize_rpath" + fi + fi + + # Replace the output file specification. + link_command=`$echo "X$link_command" | $Xsed -e 's%@OUTPUT@%'"$output_objdir/$outputname"'%g'` + + # Delete the old output files. + $run $rm $output $output_objdir/$outputname $output_objdir/lt-$outputname + + $show "$link_command" + $run eval "$link_command" || exit $? + + # Now create the wrapper script. + $show "creating $output" + + # Quote the relink command for shipping. + if test -n "$relink_command"; then + # Preserve any variables that may affect compiler behavior + for var in $variables_saved_for_relink; do + if eval test -z \"\${$var+set}\"; then + relink_command="{ test -z \"\${$var+set}\" || unset $var || { $var=; export $var; }; }; $relink_command" + elif eval var_value=\$$var; test -z "$var_value"; then + relink_command="$var=; export $var; $relink_command" + else + var_value=`$echo "X$var_value" | $Xsed -e "$sed_quote_subst"` + relink_command="$var=\"$var_value\"; export $var; $relink_command" + fi + done + relink_command="(cd `pwd`; $relink_command)" + relink_command=`$echo "X$relink_command" | $Xsed -e "$sed_quote_subst"` + fi + + # Quote $echo for shipping. + if test "X$echo" = "X$SHELL $progpath --fallback-echo"; then + case $progpath in + [\\/]* | [A-Za-z]:[\\/]*) qecho="$SHELL $progpath --fallback-echo";; + *) qecho="$SHELL `pwd`/$progpath --fallback-echo";; + esac + qecho=`$echo "X$qecho" | $Xsed -e "$sed_quote_subst"` + else + qecho=`$echo "X$echo" | $Xsed -e "$sed_quote_subst"` + fi + + # Only actually do things if our run command is non-null. + if test -z "$run"; then + # win32 will think the script is a binary if it has + # a .exe suffix, so we strip it off here. + case $output in + *.exe) output=`$echo $output|${SED} 's,.exe$,,'` ;; + esac + # test for cygwin because mv fails w/o .exe extensions + case $host in + *cygwin*) + exeext=.exe + outputname=`$echo $outputname|${SED} 's,.exe$,,'` ;; + *) exeext= ;; + esac + case $host in + *cygwin* | *mingw* ) + cwrappersource=`$echo ${objdir}/lt-${outputname}.c` + cwrapper=`$echo ${output}.exe` + $rm $cwrappersource $cwrapper + trap "$rm $cwrappersource $cwrapper; exit $EXIT_FAILURE" 1 2 15 + + cat > $cwrappersource <> $cwrappersource<<"EOF" +#include +#include +#include +#include +#include +#include + +#if defined(PATH_MAX) +# define LT_PATHMAX PATH_MAX +#elif defined(MAXPATHLEN) +# define LT_PATHMAX MAXPATHLEN +#else +# define LT_PATHMAX 1024 +#endif + +#ifndef DIR_SEPARATOR +#define DIR_SEPARATOR '/' +#endif + +#if defined (_WIN32) || defined (__MSDOS__) || defined (__DJGPP__) || \ + defined (__OS2__) +#define HAVE_DOS_BASED_FILE_SYSTEM +#ifndef DIR_SEPARATOR_2 +#define DIR_SEPARATOR_2 '\\' +#endif +#endif + +#ifndef DIR_SEPARATOR_2 +# define IS_DIR_SEPARATOR(ch) ((ch) == DIR_SEPARATOR) +#else /* DIR_SEPARATOR_2 */ +# define IS_DIR_SEPARATOR(ch) \ + (((ch) == DIR_SEPARATOR) || ((ch) == DIR_SEPARATOR_2)) +#endif /* DIR_SEPARATOR_2 */ + +#define XMALLOC(type, num) ((type *) xmalloc ((num) * sizeof(type))) +#define XFREE(stale) do { \ + if (stale) { free ((void *) stale); stale = 0; } \ +} while (0) + +const char *program_name = NULL; + +void * xmalloc (size_t num); +char * xstrdup (const char *string); +char * basename (const char *name); +char * fnqualify(const char *path); +char * strendzap(char *str, const char *pat); +void lt_fatal (const char *message, ...); + +int +main (int argc, char *argv[]) +{ + char **newargz; + int i; + + program_name = (char *) xstrdup ((char *) basename (argv[0])); + newargz = XMALLOC(char *, argc+2); +EOF + + cat >> $cwrappersource <> $cwrappersource <<"EOF" + newargz[1] = fnqualify(argv[0]); + /* we know the script has the same name, without the .exe */ + /* so make sure newargz[1] doesn't end in .exe */ + strendzap(newargz[1],".exe"); + for (i = 1; i < argc; i++) + newargz[i+1] = xstrdup(argv[i]); + newargz[argc+1] = NULL; +EOF + + cat >> $cwrappersource <> $cwrappersource <<"EOF" +} + +void * +xmalloc (size_t num) +{ + void * p = (void *) malloc (num); + if (!p) + lt_fatal ("Memory exhausted"); + + return p; +} + +char * +xstrdup (const char *string) +{ + return string ? strcpy ((char *) xmalloc (strlen (string) + 1), string) : NULL +; +} + +char * +basename (const char *name) +{ + const char *base; + +#if defined (HAVE_DOS_BASED_FILE_SYSTEM) + /* Skip over the disk name in MSDOS pathnames. */ + if (isalpha (name[0]) && name[1] == ':') + name += 2; +#endif + + for (base = name; *name; name++) + if (IS_DIR_SEPARATOR (*name)) + base = name + 1; + return (char *) base; +} + +char * +fnqualify(const char *path) +{ + size_t size; + char *p; + char tmp[LT_PATHMAX + 1]; + + assert(path != NULL); + + /* Is it qualified already? */ +#if defined (HAVE_DOS_BASED_FILE_SYSTEM) + if (isalpha (path[0]) && path[1] == ':') + return xstrdup (path); +#endif + if (IS_DIR_SEPARATOR (path[0])) + return xstrdup (path); + + /* prepend the current directory */ + /* doesn't handle '~' */ + if (getcwd (tmp, LT_PATHMAX) == NULL) + lt_fatal ("getcwd failed"); + size = strlen(tmp) + 1 + strlen(path) + 1; /* +2 for '/' and '\0' */ + p = XMALLOC(char, size); + sprintf(p, "%s%c%s", tmp, DIR_SEPARATOR, path); + return p; +} + +char * +strendzap(char *str, const char *pat) +{ + size_t len, patlen; + + assert(str != NULL); + assert(pat != NULL); + + len = strlen(str); + patlen = strlen(pat); + + if (patlen <= len) + { + str += len - patlen; + if (strcmp(str, pat) == 0) + *str = '\0'; + } + return str; +} + +static void +lt_error_core (int exit_status, const char * mode, + const char * message, va_list ap) +{ + fprintf (stderr, "%s: %s: ", program_name, mode); + vfprintf (stderr, message, ap); + fprintf (stderr, ".\n"); + + if (exit_status >= 0) + exit (exit_status); +} + +void +lt_fatal (const char *message, ...) +{ + va_list ap; + va_start (ap, message); + lt_error_core (EXIT_FAILURE, "FATAL", message, ap); + va_end (ap); +} +EOF + # we should really use a build-platform specific compiler + # here, but OTOH, the wrappers (shell script and this C one) + # are only useful if you want to execute the "real" binary. + # Since the "real" binary is built for $host, then this + # wrapper might as well be built for $host, too. + $run $LTCC -s -o $cwrapper $cwrappersource + ;; + esac + $rm $output + trap "$rm $output; exit $EXIT_FAILURE" 1 2 15 + + $echo > $output "\ +#! $SHELL + +# $output - temporary wrapper script for $objdir/$outputname +# Generated by $PROGRAM - GNU $PACKAGE $VERSION$TIMESTAMP +# +# The $output program cannot be directly executed until all the libtool +# libraries that it depends on are installed. +# +# This wrapper script should never be moved out of the build directory. +# If it is, it will not operate correctly. + +# Sed substitution that helps us do robust quoting. It backslashifies +# metacharacters that are still active within double-quoted strings. +Xsed='${SED} -e 1s/^X//' +sed_quote_subst='$sed_quote_subst' + +# The HP-UX ksh and POSIX shell print the target directory to stdout +# if CDPATH is set. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + +relink_command=\"$relink_command\" + +# This environment variable determines our operation mode. +if test \"\$libtool_install_magic\" = \"$magic\"; then + # install mode needs the following variable: + notinst_deplibs='$notinst_deplibs' +else + # When we are sourced in execute mode, \$file and \$echo are already set. + if test \"\$libtool_execute_magic\" != \"$magic\"; then + echo=\"$qecho\" + file=\"\$0\" + # Make sure echo works. + if test \"X\$1\" = X--no-reexec; then + # Discard the --no-reexec flag, and continue. + shift + elif test \"X\`(\$echo '\t') 2>/dev/null\`\" = 'X\t'; then + # Yippee, \$echo works! + : + else + # Restart under the correct shell, and then maybe \$echo will work. + exec $SHELL \"\$0\" --no-reexec \${1+\"\$@\"} + fi + fi\ +" + $echo >> $output "\ + + # Find the directory that this script lives in. + thisdir=\`\$echo \"X\$file\" | \$Xsed -e 's%/[^/]*$%%'\` + test \"x\$thisdir\" = \"x\$file\" && thisdir=. + + # Follow symbolic links until we get to the real thisdir. + file=\`ls -ld \"\$file\" | ${SED} -n 's/.*-> //p'\` + while test -n \"\$file\"; do + destdir=\`\$echo \"X\$file\" | \$Xsed -e 's%/[^/]*\$%%'\` + + # If there was a directory component, then change thisdir. + if test \"x\$destdir\" != \"x\$file\"; then + case \"\$destdir\" in + [\\\\/]* | [A-Za-z]:[\\\\/]*) thisdir=\"\$destdir\" ;; + *) thisdir=\"\$thisdir/\$destdir\" ;; + esac + fi + + file=\`\$echo \"X\$file\" | \$Xsed -e 's%^.*/%%'\` + file=\`ls -ld \"\$thisdir/\$file\" | ${SED} -n 's/.*-> //p'\` + done + + # Try to get the absolute directory name. + absdir=\`cd \"\$thisdir\" && pwd\` + test -n \"\$absdir\" && thisdir=\"\$absdir\" +" + + if test "$fast_install" = yes; then + $echo >> $output "\ + program=lt-'$outputname'$exeext + progdir=\"\$thisdir/$objdir\" + + if test ! -f \"\$progdir/\$program\" || \\ + { file=\`ls -1dt \"\$progdir/\$program\" \"\$progdir/../\$program\" 2>/dev/null | ${SED} 1q\`; \\ + test \"X\$file\" != \"X\$progdir/\$program\"; }; then + + file=\"\$\$-\$program\" + + if test ! -d \"\$progdir\"; then + $mkdir \"\$progdir\" + else + $rm \"\$progdir/\$file\" + fi" + + $echo >> $output "\ + + # relink executable if necessary + if test -n \"\$relink_command\"; then + if relink_command_output=\`eval \$relink_command 2>&1\`; then : + else + $echo \"\$relink_command_output\" >&2 + $rm \"\$progdir/\$file\" + exit $EXIT_FAILURE + fi + fi + + $mv \"\$progdir/\$file\" \"\$progdir/\$program\" 2>/dev/null || + { $rm \"\$progdir/\$program\"; + $mv \"\$progdir/\$file\" \"\$progdir/\$program\"; } + $rm \"\$progdir/\$file\" + fi" + else + $echo >> $output "\ + program='$outputname' + progdir=\"\$thisdir/$objdir\" +" + fi + + $echo >> $output "\ + + if test -f \"\$progdir/\$program\"; then" + + # Export our shlibpath_var if we have one. + if test "$shlibpath_overrides_runpath" = yes && test -n "$shlibpath_var" && test -n "$temp_rpath"; then + $echo >> $output "\ + # Add our own library path to $shlibpath_var + $shlibpath_var=\"$temp_rpath\$$shlibpath_var\" + + # Some systems cannot cope with colon-terminated $shlibpath_var + # The second colon is a workaround for a bug in BeOS R4 sed + $shlibpath_var=\`\$echo \"X\$$shlibpath_var\" | \$Xsed -e 's/::*\$//'\` + + export $shlibpath_var +" + fi + + # fixup the dll searchpath if we need to. + if test -n "$dllsearchpath"; then + $echo >> $output "\ + # Add the dll search path components to the executable PATH + PATH=$dllsearchpath:\$PATH +" + fi + + $echo >> $output "\ + if test \"\$libtool_execute_magic\" != \"$magic\"; then + # Run the actual program with our arguments. +" + case $host in + # Backslashes separate directories on plain windows + *-*-mingw | *-*-os2*) + $echo >> $output "\ + exec \$progdir\\\\\$program \${1+\"\$@\"} +" + ;; + + *) + $echo >> $output "\ + exec \$progdir/\$program \${1+\"\$@\"} +" + ;; + esac + $echo >> $output "\ + \$echo \"\$0: cannot exec \$program \${1+\"\$@\"}\" + exit $EXIT_FAILURE + fi + else + # The program doesn't exist. + \$echo \"\$0: error: \$progdir/\$program does not exist\" 1>&2 + \$echo \"This script is just a wrapper for \$program.\" 1>&2 + $echo \"See the $PACKAGE documentation for more information.\" 1>&2 + exit $EXIT_FAILURE + fi +fi\ +" + chmod +x $output + fi + exit $EXIT_SUCCESS + ;; + esac + + # See if we need to build an old-fashioned archive. + for oldlib in $oldlibs; do + + if test "$build_libtool_libs" = convenience; then + oldobjs="$libobjs_save" + addlibs="$convenience" + build_libtool_libs=no + else + if test "$build_libtool_libs" = module; then + oldobjs="$libobjs_save" + build_libtool_libs=no + else + oldobjs="$old_deplibs $non_pic_objects" + fi + addlibs="$old_convenience" + fi + + if test -n "$addlibs"; then + gentop="$output_objdir/${outputname}x" + generated="$generated $gentop" + + func_extract_archives $gentop $addlibs + oldobjs="$oldobjs $func_extract_archives_result" + fi + + # Do each command in the archive commands. + if test -n "$old_archive_from_new_cmds" && test "$build_libtool_libs" = yes; then + cmds=$old_archive_from_new_cmds + else + # POSIX demands no paths to be encoded in archives. We have + # to avoid creating archives with duplicate basenames if we + # might have to extract them afterwards, e.g., when creating a + # static archive out of a convenience library, or when linking + # the entirety of a libtool archive into another (currently + # not supported by libtool). + if (for obj in $oldobjs + do + $echo "X$obj" | $Xsed -e 's%^.*/%%' + done | sort | sort -uc >/dev/null 2>&1); then + : + else + $echo "copying selected object files to avoid basename conflicts..." + + if test -z "$gentop"; then + gentop="$output_objdir/${outputname}x" + generated="$generated $gentop" + + $show "${rm}r $gentop" + $run ${rm}r "$gentop" + $show "$mkdir $gentop" + $run $mkdir "$gentop" + status=$? + if test "$status" -ne 0 && test ! -d "$gentop"; then + exit $status + fi + fi + + save_oldobjs=$oldobjs + oldobjs= + counter=1 + for obj in $save_oldobjs + do + objbase=`$echo "X$obj" | $Xsed -e 's%^.*/%%'` + case " $oldobjs " in + " ") oldobjs=$obj ;; + *[\ /]"$objbase "*) + while :; do + # Make sure we don't pick an alternate name that also + # overlaps. + newobj=lt$counter-$objbase + counter=`expr $counter + 1` + case " $oldobjs " in + *[\ /]"$newobj "*) ;; + *) if test ! -f "$gentop/$newobj"; then break; fi ;; + esac + done + $show "ln $obj $gentop/$newobj || cp $obj $gentop/$newobj" + $run ln "$obj" "$gentop/$newobj" || + $run cp "$obj" "$gentop/$newobj" + oldobjs="$oldobjs $gentop/$newobj" + ;; + *) oldobjs="$oldobjs $obj" ;; + esac + done + fi + + eval cmds=\"$old_archive_cmds\" + + if len=`expr "X$cmds" : ".*"` && + test "$len" -le "$max_cmd_len" || test "$max_cmd_len" -le -1; then + cmds=$old_archive_cmds + else + # the command line is too long to link in one step, link in parts + $echo "using piecewise archive linking..." + save_RANLIB=$RANLIB + RANLIB=: + objlist= + concat_cmds= + save_oldobjs=$oldobjs + + # Is there a better way of finding the last object in the list? + for obj in $save_oldobjs + do + last_oldobj=$obj + done + for obj in $save_oldobjs + do + oldobjs="$objlist $obj" + objlist="$objlist $obj" + eval test_cmds=\"$old_archive_cmds\" + if len=`expr "X$test_cmds" : ".*"` && + test "$len" -le "$max_cmd_len"; then + : + else + # the above command should be used before it gets too long + oldobjs=$objlist + if test "$obj" = "$last_oldobj" ; then + RANLIB=$save_RANLIB + fi + test -z "$concat_cmds" || concat_cmds=$concat_cmds~ + eval concat_cmds=\"\${concat_cmds}$old_archive_cmds\" + objlist= + fi + done + RANLIB=$save_RANLIB + oldobjs=$objlist + if test "X$oldobjs" = "X" ; then + eval cmds=\"\$concat_cmds\" + else + eval cmds=\"\$concat_cmds~\$old_archive_cmds\" + fi + fi + fi + save_ifs="$IFS"; IFS='~' + for cmd in $cmds; do + eval cmd=\"$cmd\" + IFS="$save_ifs" + $show "$cmd" + $run eval "$cmd" || exit $? + done + IFS="$save_ifs" + done + + if test -n "$generated"; then + $show "${rm}r$generated" + $run ${rm}r$generated + fi + + # Now create the libtool archive. + case $output in + *.la) + old_library= + test "$build_old_libs" = yes && old_library="$libname.$libext" + $show "creating $output" + + # Preserve any variables that may affect compiler behavior + for var in $variables_saved_for_relink; do + if eval test -z \"\${$var+set}\"; then + relink_command="{ test -z \"\${$var+set}\" || unset $var || { $var=; export $var; }; }; $relink_command" + elif eval var_value=\$$var; test -z "$var_value"; then + relink_command="$var=; export $var; $relink_command" + else + var_value=`$echo "X$var_value" | $Xsed -e "$sed_quote_subst"` + relink_command="$var=\"$var_value\"; export $var; $relink_command" + fi + done + # Quote the link command for shipping. + relink_command="(cd `pwd`; $SHELL $progpath $preserve_args --mode=relink $libtool_args @inst_prefix_dir@)" + relink_command=`$echo "X$relink_command" | $Xsed -e "$sed_quote_subst"` + if test "$hardcode_automatic" = yes ; then + relink_command= + fi + + + # Only create the output if not a dry run. + if test -z "$run"; then + for installed in no yes; do + if test "$installed" = yes; then + if test -z "$install_libdir"; then + break + fi + output="$output_objdir/$outputname"i + # Replace all uninstalled libtool libraries with the installed ones + newdependency_libs= + for deplib in $dependency_libs; do + case $deplib in + *.la) + name=`$echo "X$deplib" | $Xsed -e 's%^.*/%%'` + eval libdir=`${SED} -n -e 's/^libdir=\(.*\)$/\1/p' $deplib` + if test -z "$libdir"; then + $echo "$modename: \`$deplib' is not a valid libtool archive" 1>&2 + exit $EXIT_FAILURE + fi + newdependency_libs="$newdependency_libs $libdir/$name" + ;; + *) newdependency_libs="$newdependency_libs $deplib" ;; + esac + done + dependency_libs="$newdependency_libs" + newdlfiles= + for lib in $dlfiles; do + name=`$echo "X$lib" | $Xsed -e 's%^.*/%%'` + eval libdir=`${SED} -n -e 's/^libdir=\(.*\)$/\1/p' $lib` + if test -z "$libdir"; then + $echo "$modename: \`$lib' is not a valid libtool archive" 1>&2 + exit $EXIT_FAILURE + fi + newdlfiles="$newdlfiles $libdir/$name" + done + dlfiles="$newdlfiles" + newdlprefiles= + for lib in $dlprefiles; do + name=`$echo "X$lib" | $Xsed -e 's%^.*/%%'` + eval libdir=`${SED} -n -e 's/^libdir=\(.*\)$/\1/p' $lib` + if test -z "$libdir"; then + $echo "$modename: \`$lib' is not a valid libtool archive" 1>&2 + exit $EXIT_FAILURE + fi + newdlprefiles="$newdlprefiles $libdir/$name" + done + dlprefiles="$newdlprefiles" + else + newdlfiles= + for lib in $dlfiles; do + case $lib in + [\\/]* | [A-Za-z]:[\\/]*) abs="$lib" ;; + *) abs=`pwd`"/$lib" ;; + esac + newdlfiles="$newdlfiles $abs" + done + dlfiles="$newdlfiles" + newdlprefiles= + for lib in $dlprefiles; do + case $lib in + [\\/]* | [A-Za-z]:[\\/]*) abs="$lib" ;; + *) abs=`pwd`"/$lib" ;; + esac + newdlprefiles="$newdlprefiles $abs" + done + dlprefiles="$newdlprefiles" + fi + $rm $output + # place dlname in correct position for cygwin + tdlname=$dlname + case $host,$output,$installed,$module,$dlname in + *cygwin*,*lai,yes,no,*.dll | *mingw*,*lai,yes,no,*.dll) tdlname=../bin/$dlname ;; + esac + $echo > $output "\ +# $outputname - a libtool library file +# Generated by $PROGRAM - GNU $PACKAGE $VERSION$TIMESTAMP +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# The name that we can dlopen(3). +dlname='$tdlname' + +# Names of this library. +library_names='$library_names' + +# The name of the static archive. +old_library='$old_library' + +# Libraries that this one depends upon. +dependency_libs='$dependency_libs' + +# Version information for $libname. +current=$current +age=$age +revision=$revision + +# Is this an already installed library? +installed=$installed + +# Should we warn about portability when linking against -modules? +shouldnotlink=$module + +# Files to dlopen/dlpreopen +dlopen='$dlfiles' +dlpreopen='$dlprefiles' + +# Directory that this library needs to be installed in: +libdir='$install_libdir'" + if test "$installed" = no && test "$need_relink" = yes; then + $echo >> $output "\ +relink_command=\"$relink_command\"" + fi + done + fi + + # Do a symbolic link so that the libtool archive can be found in + # LD_LIBRARY_PATH before the program is installed. + $show "(cd $output_objdir && $rm $outputname && $LN_S ../$outputname $outputname)" + $run eval '(cd $output_objdir && $rm $outputname && $LN_S ../$outputname $outputname)' || exit $? + ;; + esac + exit $EXIT_SUCCESS + ;; + + # libtool install mode + install) + modename="$modename: install" + + # There may be an optional sh(1) argument at the beginning of + # install_prog (especially on Windows NT). + if test "$nonopt" = "$SHELL" || test "$nonopt" = /bin/sh || + # Allow the use of GNU shtool's install command. + $echo "X$nonopt" | $Xsed | grep shtool > /dev/null; then + # Aesthetically quote it. + arg=`$echo "X$nonopt" | $Xsed -e "$sed_quote_subst"` + case $arg in + *$quote_scanset* | *]* | *\|* | *\&* | *\(* | *\)* | "") + arg="\"$arg\"" + ;; + esac + install_prog="$arg " + arg="$1" + shift + else + install_prog= + arg="$nonopt" + fi + + # The real first argument should be the name of the installation program. + # Aesthetically quote it. + arg=`$echo "X$arg" | $Xsed -e "$sed_quote_subst"` + case $arg in + *$quote_scanset* | *]* | *\|* | *\&* | *\(* | *\)* | "") + arg="\"$arg\"" + ;; + esac + install_prog="$install_prog$arg" + + # We need to accept at least all the BSD install flags. + dest= + files= + opts= + prev= + install_type= + isdir=no + stripme= + for arg + do + if test -n "$dest"; then + files="$files $dest" + dest="$arg" + continue + fi + + case $arg in + -d) isdir=yes ;; + -f) prev="-f" ;; + -g) prev="-g" ;; + -m) prev="-m" ;; + -o) prev="-o" ;; + -s) + stripme=" -s" + continue + ;; + -*) ;; + + *) + # If the previous option needed an argument, then skip it. + if test -n "$prev"; then + prev= + else + dest="$arg" + continue + fi + ;; + esac + + # Aesthetically quote the argument. + arg=`$echo "X$arg" | $Xsed -e "$sed_quote_subst"` + case $arg in + *$quote_scanset* | *]* | *\|* | *\&* | *\(* | *\)* | "") + arg="\"$arg\"" + ;; + esac + install_prog="$install_prog $arg" + done + + if test -z "$install_prog"; then + $echo "$modename: you must specify an install program" 1>&2 + $echo "$help" 1>&2 + exit $EXIT_FAILURE + fi + + if test -n "$prev"; then + $echo "$modename: the \`$prev' option requires an argument" 1>&2 + $echo "$help" 1>&2 + exit $EXIT_FAILURE + fi + + if test -z "$files"; then + if test -z "$dest"; then + $echo "$modename: no file or destination specified" 1>&2 + else + $echo "$modename: you must specify a destination" 1>&2 + fi + $echo "$help" 1>&2 + exit $EXIT_FAILURE + fi + + # Strip any trailing slash from the destination. + dest=`$echo "X$dest" | $Xsed -e 's%/$%%'` + + # Check to see that the destination is a directory. + test -d "$dest" && isdir=yes + if test "$isdir" = yes; then + destdir="$dest" + destname= + else + destdir=`$echo "X$dest" | $Xsed -e 's%/[^/]*$%%'` + test "X$destdir" = "X$dest" && destdir=. + destname=`$echo "X$dest" | $Xsed -e 's%^.*/%%'` + + # Not a directory, so check to see that there is only one file specified. + set dummy $files + if test "$#" -gt 2; then + $echo "$modename: \`$dest' is not a directory" 1>&2 + $echo "$help" 1>&2 + exit $EXIT_FAILURE + fi + fi + case $destdir in + [\\/]* | [A-Za-z]:[\\/]*) ;; + *) + for file in $files; do + case $file in + *.lo) ;; + *) + $echo "$modename: \`$destdir' must be an absolute directory name" 1>&2 + $echo "$help" 1>&2 + exit $EXIT_FAILURE + ;; + esac + done + ;; + esac + + # This variable tells wrapper scripts just to set variables rather + # than running their programs. + libtool_install_magic="$magic" + + staticlibs= + future_libdirs= + current_libdirs= + for file in $files; do + + # Do each installation. + case $file in + *.$libext) + # Do the static libraries later. + staticlibs="$staticlibs $file" + ;; + + *.la) + # Check to see that this really is a libtool archive. + if (${SED} -e '2q' $file | grep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then : + else + $echo "$modename: \`$file' is not a valid libtool archive" 1>&2 + $echo "$help" 1>&2 + exit $EXIT_FAILURE + fi + + library_names= + old_library= + relink_command= + # If there is no directory component, then add one. + case $file in + */* | *\\*) . $file ;; + *) . ./$file ;; + esac + + # Add the libdir to current_libdirs if it is the destination. + if test "X$destdir" = "X$libdir"; then + case "$current_libdirs " in + *" $libdir "*) ;; + *) current_libdirs="$current_libdirs $libdir" ;; + esac + else + # Note the libdir as a future libdir. + case "$future_libdirs " in + *" $libdir "*) ;; + *) future_libdirs="$future_libdirs $libdir" ;; + esac + fi + + dir=`$echo "X$file" | $Xsed -e 's%/[^/]*$%%'`/ + test "X$dir" = "X$file/" && dir= + dir="$dir$objdir" + + if test -n "$relink_command"; then + # Determine the prefix the user has applied to our future dir. + inst_prefix_dir=`$echo "$destdir" | $SED "s%$libdir\$%%"` + + # Don't allow the user to place us outside of our expected + # location b/c this prevents finding dependent libraries that + # are installed to the same prefix. + # At present, this check doesn't affect windows .dll's that + # are installed into $libdir/../bin (currently, that works fine) + # but it's something to keep an eye on. + if test "$inst_prefix_dir" = "$destdir"; then + $echo "$modename: error: cannot install \`$file' to a directory not ending in $libdir" 1>&2 + exit $EXIT_FAILURE + fi + + if test -n "$inst_prefix_dir"; then + # Stick the inst_prefix_dir data into the link command. + relink_command=`$echo "$relink_command" | $SED "s%@inst_prefix_dir@%-inst-prefix-dir $inst_prefix_dir%"` + else + relink_command=`$echo "$relink_command" | $SED "s%@inst_prefix_dir@%%"` + fi + + $echo "$modename: warning: relinking \`$file'" 1>&2 + $show "$relink_command" + if $run eval "$relink_command"; then : + else + $echo "$modename: error: relink \`$file' with the above command before installing it" 1>&2 + exit $EXIT_FAILURE + fi + fi + + # See the names of the shared library. + set dummy $library_names + if test -n "$2"; then + realname="$2" + shift + shift + + srcname="$realname" + test -n "$relink_command" && srcname="$realname"T + + # Install the shared library and build the symlinks. + $show "$install_prog $dir/$srcname $destdir/$realname" + $run eval "$install_prog $dir/$srcname $destdir/$realname" || exit $? + if test -n "$stripme" && test -n "$striplib"; then + $show "$striplib $destdir/$realname" + $run eval "$striplib $destdir/$realname" || exit $? + fi + + if test "$#" -gt 0; then + # Delete the old symlinks, and create new ones. + for linkname + do + if test "$linkname" != "$realname"; then + $show "(cd $destdir && $rm $linkname && $LN_S $realname $linkname)" + $run eval "(cd $destdir && $rm $linkname && $LN_S $realname $linkname)" + fi + done + fi + + # Do each command in the postinstall commands. + lib="$destdir/$realname" + cmds=$postinstall_cmds + save_ifs="$IFS"; IFS='~' + for cmd in $cmds; do + IFS="$save_ifs" + eval cmd=\"$cmd\" + $show "$cmd" + $run eval "$cmd" || exit $? + done + IFS="$save_ifs" + fi + + # Install the pseudo-library for information purposes. + name=`$echo "X$file" | $Xsed -e 's%^.*/%%'` + instname="$dir/$name"i + $show "$install_prog $instname $destdir/$name" + $run eval "$install_prog $instname $destdir/$name" || exit $? + + # Maybe install the static library, too. + test -n "$old_library" && staticlibs="$staticlibs $dir/$old_library" + ;; + + *.lo) + # Install (i.e. copy) a libtool object. + + # Figure out destination file name, if it wasn't already specified. + if test -n "$destname"; then + destfile="$destdir/$destname" + else + destfile=`$echo "X$file" | $Xsed -e 's%^.*/%%'` + destfile="$destdir/$destfile" + fi + + # Deduce the name of the destination old-style object file. + case $destfile in + *.lo) + staticdest=`$echo "X$destfile" | $Xsed -e "$lo2o"` + ;; + *.$objext) + staticdest="$destfile" + destfile= + ;; + *) + $echo "$modename: cannot copy a libtool object to \`$destfile'" 1>&2 + $echo "$help" 1>&2 + exit $EXIT_FAILURE + ;; + esac + + # Install the libtool object if requested. + if test -n "$destfile"; then + $show "$install_prog $file $destfile" + $run eval "$install_prog $file $destfile" || exit $? + fi + + # Install the old object if enabled. + if test "$build_old_libs" = yes; then + # Deduce the name of the old-style object file. + staticobj=`$echo "X$file" | $Xsed -e "$lo2o"` + + $show "$install_prog $staticobj $staticdest" + $run eval "$install_prog \$staticobj \$staticdest" || exit $? + fi + exit $EXIT_SUCCESS + ;; + + *) + # Figure out destination file name, if it wasn't already specified. + if test -n "$destname"; then + destfile="$destdir/$destname" + else + destfile=`$echo "X$file" | $Xsed -e 's%^.*/%%'` + destfile="$destdir/$destfile" + fi + + # If the file is missing, and there is a .exe on the end, strip it + # because it is most likely a libtool script we actually want to + # install + stripped_ext="" + case $file in + *.exe) + if test ! -f "$file"; then + file=`$echo $file|${SED} 's,.exe$,,'` + stripped_ext=".exe" + fi + ;; + esac + + # Do a test to see if this is really a libtool program. + case $host in + *cygwin*|*mingw*) + wrapper=`$echo $file | ${SED} -e 's,.exe$,,'` + ;; + *) + wrapper=$file + ;; + esac + if (${SED} -e '4q' $wrapper | grep "^# Generated by .*$PACKAGE")>/dev/null 2>&1; then + notinst_deplibs= + relink_command= + + # To insure that "foo" is sourced, and not "foo.exe", + # finese the cygwin/MSYS system by explicitly sourcing "foo." + # which disallows the automatic-append-.exe behavior. + case $build in + *cygwin* | *mingw*) wrapperdot=${wrapper}. ;; + *) wrapperdot=${wrapper} ;; + esac + # If there is no directory component, then add one. + case $file in + */* | *\\*) . ${wrapperdot} ;; + *) . ./${wrapperdot} ;; + esac + + # Check the variables that should have been set. + if test -z "$notinst_deplibs"; then + $echo "$modename: invalid libtool wrapper script \`$wrapper'" 1>&2 + exit $EXIT_FAILURE + fi + + finalize=yes + for lib in $notinst_deplibs; do + # Check to see that each library is installed. + libdir= + if test -f "$lib"; then + # If there is no directory component, then add one. + case $lib in + */* | *\\*) . $lib ;; + *) . ./$lib ;; + esac + fi + libfile="$libdir/"`$echo "X$lib" | $Xsed -e 's%^.*/%%g'` ### testsuite: skip nested quoting test + if test -n "$libdir" && test ! -f "$libfile"; then + $echo "$modename: warning: \`$lib' has not been installed in \`$libdir'" 1>&2 + finalize=no + fi + done + + relink_command= + # To insure that "foo" is sourced, and not "foo.exe", + # finese the cygwin/MSYS system by explicitly sourcing "foo." + # which disallows the automatic-append-.exe behavior. + case $build in + *cygwin* | *mingw*) wrapperdot=${wrapper}. ;; + *) wrapperdot=${wrapper} ;; + esac + # If there is no directory component, then add one. + case $file in + */* | *\\*) . ${wrapperdot} ;; + *) . ./${wrapperdot} ;; + esac + + outputname= + if test "$fast_install" = no && test -n "$relink_command"; then + if test "$finalize" = yes && test -z "$run"; then + tmpdir="/tmp" + test -n "$TMPDIR" && tmpdir="$TMPDIR" + tmpdir="$tmpdir/libtool-$$" + save_umask=`umask` + umask 0077 + if $mkdir "$tmpdir"; then + umask $save_umask + else + umask $save_umask + $echo "$modename: error: cannot create temporary directory \`$tmpdir'" 1>&2 + continue + fi + file=`$echo "X$file$stripped_ext" | $Xsed -e 's%^.*/%%'` + outputname="$tmpdir/$file" + # Replace the output file specification. + relink_command=`$echo "X$relink_command" | $Xsed -e 's%@OUTPUT@%'"$outputname"'%g'` + + $show "$relink_command" + if $run eval "$relink_command"; then : + else + $echo "$modename: error: relink \`$file' with the above command before installing it" 1>&2 + ${rm}r "$tmpdir" + continue + fi + file="$outputname" + else + $echo "$modename: warning: cannot relink \`$file'" 1>&2 + fi + else + # Install the binary that we compiled earlier. + file=`$echo "X$file$stripped_ext" | $Xsed -e "s%\([^/]*\)$%$objdir/\1%"` + fi + fi + + # remove .exe since cygwin /usr/bin/install will append another + # one anyways + case $install_prog,$host in + */usr/bin/install*,*cygwin*) + case $file:$destfile in + *.exe:*.exe) + # this is ok + ;; + *.exe:*) + destfile=$destfile.exe + ;; + *:*.exe) + destfile=`$echo $destfile | ${SED} -e 's,.exe$,,'` + ;; + esac + ;; + esac + $show "$install_prog$stripme $file $destfile" + $run eval "$install_prog\$stripme \$file \$destfile" || exit $? + test -n "$outputname" && ${rm}r "$tmpdir" + ;; + esac + done + + for file in $staticlibs; do + name=`$echo "X$file" | $Xsed -e 's%^.*/%%'` + + # Set up the ranlib parameters. + oldlib="$destdir/$name" + + $show "$install_prog $file $oldlib" + $run eval "$install_prog \$file \$oldlib" || exit $? + + if test -n "$stripme" && test -n "$old_striplib"; then + $show "$old_striplib $oldlib" + $run eval "$old_striplib $oldlib" || exit $? + fi + + # Do each command in the postinstall commands. + cmds=$old_postinstall_cmds + save_ifs="$IFS"; IFS='~' + for cmd in $cmds; do + IFS="$save_ifs" + eval cmd=\"$cmd\" + $show "$cmd" + $run eval "$cmd" || exit $? + done + IFS="$save_ifs" + done + + if test -n "$future_libdirs"; then + $echo "$modename: warning: remember to run \`$progname --finish$future_libdirs'" 1>&2 + fi + + if test -n "$current_libdirs"; then + # Maybe just do a dry run. + test -n "$run" && current_libdirs=" -n$current_libdirs" + exec_cmd='$SHELL $progpath $preserve_args --finish$current_libdirs' + else + exit $EXIT_SUCCESS + fi + ;; + + # libtool finish mode + finish) + modename="$modename: finish" + libdirs="$nonopt" + admincmds= + + if test -n "$finish_cmds$finish_eval" && test -n "$libdirs"; then + for dir + do + libdirs="$libdirs $dir" + done + + for libdir in $libdirs; do + if test -n "$finish_cmds"; then + # Do each command in the finish commands. + cmds=$finish_cmds + save_ifs="$IFS"; IFS='~' + for cmd in $cmds; do + IFS="$save_ifs" + eval cmd=\"$cmd\" + $show "$cmd" + $run eval "$cmd" || admincmds="$admincmds + $cmd" + done + IFS="$save_ifs" + fi + if test -n "$finish_eval"; then + # Do the single finish_eval. + eval cmds=\"$finish_eval\" + $run eval "$cmds" || admincmds="$admincmds + $cmds" + fi + done + fi + + # Exit here if they wanted silent mode. + test "$show" = : && exit $EXIT_SUCCESS + + $echo "----------------------------------------------------------------------" + $echo "Libraries have been installed in:" + for libdir in $libdirs; do + $echo " $libdir" + done + $echo + $echo "If you ever happen to want to link against installed libraries" + $echo "in a given directory, LIBDIR, you must either use libtool, and" + $echo "specify the full pathname of the library, or use the \`-LLIBDIR'" + $echo "flag during linking and do at least one of the following:" + if test -n "$shlibpath_var"; then + $echo " - add LIBDIR to the \`$shlibpath_var' environment variable" + $echo " during execution" + fi + if test -n "$runpath_var"; then + $echo " - add LIBDIR to the \`$runpath_var' environment variable" + $echo " during linking" + fi + if test -n "$hardcode_libdir_flag_spec"; then + libdir=LIBDIR + eval flag=\"$hardcode_libdir_flag_spec\" + + $echo " - use the \`$flag' linker flag" + fi + if test -n "$admincmds"; then + $echo " - have your system administrator run these commands:$admincmds" + fi + if test -f /etc/ld.so.conf; then + $echo " - have your system administrator add LIBDIR to \`/etc/ld.so.conf'" + fi + $echo + $echo "See any operating system documentation about shared libraries for" + $echo "more information, such as the ld(1) and ld.so(8) manual pages." + $echo "----------------------------------------------------------------------" + exit $EXIT_SUCCESS + ;; + + # libtool execute mode + execute) + modename="$modename: execute" + + # The first argument is the command name. + cmd="$nonopt" + if test -z "$cmd"; then + $echo "$modename: you must specify a COMMAND" 1>&2 + $echo "$help" + exit $EXIT_FAILURE + fi + + # Handle -dlopen flags immediately. + for file in $execute_dlfiles; do + if test ! -f "$file"; then + $echo "$modename: \`$file' is not a file" 1>&2 + $echo "$help" 1>&2 + exit $EXIT_FAILURE + fi + + dir= + case $file in + *.la) + # Check to see that this really is a libtool archive. + if (${SED} -e '2q' $file | grep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then : + else + $echo "$modename: \`$lib' is not a valid libtool archive" 1>&2 + $echo "$help" 1>&2 + exit $EXIT_FAILURE + fi + + # Read the libtool library. + dlname= + library_names= + + # If there is no directory component, then add one. + case $file in + */* | *\\*) . $file ;; + *) . ./$file ;; + esac + + # Skip this library if it cannot be dlopened. + if test -z "$dlname"; then + # Warn if it was a shared library. + test -n "$library_names" && $echo "$modename: warning: \`$file' was not linked with \`-export-dynamic'" + continue + fi + + dir=`$echo "X$file" | $Xsed -e 's%/[^/]*$%%'` + test "X$dir" = "X$file" && dir=. + + if test -f "$dir/$objdir/$dlname"; then + dir="$dir/$objdir" + else + $echo "$modename: cannot find \`$dlname' in \`$dir' or \`$dir/$objdir'" 1>&2 + exit $EXIT_FAILURE + fi + ;; + + *.lo) + # Just add the directory containing the .lo file. + dir=`$echo "X$file" | $Xsed -e 's%/[^/]*$%%'` + test "X$dir" = "X$file" && dir=. + ;; + + *) + $echo "$modename: warning \`-dlopen' is ignored for non-libtool libraries and objects" 1>&2 + continue + ;; + esac + + # Get the absolute pathname. + absdir=`cd "$dir" && pwd` + test -n "$absdir" && dir="$absdir" + + # Now add the directory to shlibpath_var. + if eval "test -z \"\$$shlibpath_var\""; then + eval "$shlibpath_var=\"\$dir\"" + else + eval "$shlibpath_var=\"\$dir:\$$shlibpath_var\"" + fi + done + + # This variable tells wrapper scripts just to set shlibpath_var + # rather than running their programs. + libtool_execute_magic="$magic" + + # Check if any of the arguments is a wrapper script. + args= + for file + do + case $file in + -*) ;; + *) + # Do a test to see if this is really a libtool program. + if (${SED} -e '4q' $file | grep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then + # If there is no directory component, then add one. + case $file in + */* | *\\*) . $file ;; + *) . ./$file ;; + esac + + # Transform arg to wrapped name. + file="$progdir/$program" + fi + ;; + esac + # Quote arguments (to preserve shell metacharacters). + file=`$echo "X$file" | $Xsed -e "$sed_quote_subst"` + args="$args \"$file\"" + done + + if test -z "$run"; then + if test -n "$shlibpath_var"; then + # Export the shlibpath_var. + eval "export $shlibpath_var" + fi + + # Restore saved environment variables + if test "${save_LC_ALL+set}" = set; then + LC_ALL="$save_LC_ALL"; export LC_ALL + fi + if test "${save_LANG+set}" = set; then + LANG="$save_LANG"; export LANG + fi + + # Now prepare to actually exec the command. + exec_cmd="\$cmd$args" + else + # Display what would be done. + if test -n "$shlibpath_var"; then + eval "\$echo \"\$shlibpath_var=\$$shlibpath_var\"" + $echo "export $shlibpath_var" + fi + $echo "$cmd$args" + exit $EXIT_SUCCESS + fi + ;; + + # libtool clean and uninstall mode + clean | uninstall) + modename="$modename: $mode" + rm="$nonopt" + files= + rmforce= + exit_status=0 + + # This variable tells wrapper scripts just to set variables rather + # than running their programs. + libtool_install_magic="$magic" + + for arg + do + case $arg in + -f) rm="$rm $arg"; rmforce=yes ;; + -*) rm="$rm $arg" ;; + *) files="$files $arg" ;; + esac + done + + if test -z "$rm"; then + $echo "$modename: you must specify an RM program" 1>&2 + $echo "$help" 1>&2 + exit $EXIT_FAILURE + fi + + rmdirs= + + origobjdir="$objdir" + for file in $files; do + dir=`$echo "X$file" | $Xsed -e 's%/[^/]*$%%'` + if test "X$dir" = "X$file"; then + dir=. + objdir="$origobjdir" + else + objdir="$dir/$origobjdir" + fi + name=`$echo "X$file" | $Xsed -e 's%^.*/%%'` + test "$mode" = uninstall && objdir="$dir" + + # Remember objdir for removal later, being careful to avoid duplicates + if test "$mode" = clean; then + case " $rmdirs " in + *" $objdir "*) ;; + *) rmdirs="$rmdirs $objdir" ;; + esac + fi + + # Don't error if the file doesn't exist and rm -f was used. + if (test -L "$file") >/dev/null 2>&1 \ + || (test -h "$file") >/dev/null 2>&1 \ + || test -f "$file"; then + : + elif test -d "$file"; then + exit_status=1 + continue + elif test "$rmforce" = yes; then + continue + fi + + rmfiles="$file" + + case $name in + *.la) + # Possibly a libtool archive, so verify it. + if (${SED} -e '2q' $file | grep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then + . $dir/$name + + # Delete the libtool libraries and symlinks. + for n in $library_names; do + rmfiles="$rmfiles $objdir/$n" + done + test -n "$old_library" && rmfiles="$rmfiles $objdir/$old_library" + test "$mode" = clean && rmfiles="$rmfiles $objdir/$name $objdir/${name}i" + + if test "$mode" = uninstall; then + if test -n "$library_names"; then + # Do each command in the postuninstall commands. + cmds=$postuninstall_cmds + save_ifs="$IFS"; IFS='~' + for cmd in $cmds; do + IFS="$save_ifs" + eval cmd=\"$cmd\" + $show "$cmd" + $run eval "$cmd" + if test "$?" -ne 0 && test "$rmforce" != yes; then + exit_status=1 + fi + done + IFS="$save_ifs" + fi + + if test -n "$old_library"; then + # Do each command in the old_postuninstall commands. + cmds=$old_postuninstall_cmds + save_ifs="$IFS"; IFS='~' + for cmd in $cmds; do + IFS="$save_ifs" + eval cmd=\"$cmd\" + $show "$cmd" + $run eval "$cmd" + if test "$?" -ne 0 && test "$rmforce" != yes; then + exit_status=1 + fi + done + IFS="$save_ifs" + fi + # FIXME: should reinstall the best remaining shared library. + fi + fi + ;; + + *.lo) + # Possibly a libtool object, so verify it. + if (${SED} -e '2q' $file | grep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then + + # Read the .lo file + . $dir/$name + + # Add PIC object to the list of files to remove. + if test -n "$pic_object" \ + && test "$pic_object" != none; then + rmfiles="$rmfiles $dir/$pic_object" + fi + + # Add non-PIC object to the list of files to remove. + if test -n "$non_pic_object" \ + && test "$non_pic_object" != none; then + rmfiles="$rmfiles $dir/$non_pic_object" + fi + fi + ;; + + *) + if test "$mode" = clean ; then + noexename=$name + case $file in + *.exe) + file=`$echo $file|${SED} 's,.exe$,,'` + noexename=`$echo $name|${SED} 's,.exe$,,'` + # $file with .exe has already been added to rmfiles, + # add $file without .exe + rmfiles="$rmfiles $file" + ;; + esac + # Do a test to see if this is a libtool program. + if (${SED} -e '4q' $file | grep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then + relink_command= + . $dir/$noexename + + # note $name still contains .exe if it was in $file originally + # as does the version of $file that was added into $rmfiles + rmfiles="$rmfiles $objdir/$name $objdir/${name}S.${objext}" + if test "$fast_install" = yes && test -n "$relink_command"; then + rmfiles="$rmfiles $objdir/lt-$name" + fi + if test "X$noexename" != "X$name" ; then + rmfiles="$rmfiles $objdir/lt-${noexename}.c" + fi + fi + fi + ;; + esac + $show "$rm $rmfiles" + $run $rm $rmfiles || exit_status=1 + done + objdir="$origobjdir" + + # Try to remove the ${objdir}s in the directories where we deleted files + for dir in $rmdirs; do + if test -d "$dir"; then + $show "rmdir $dir" + $run rmdir $dir >/dev/null 2>&1 + fi + done + + exit $exit_status + ;; + + "") + $echo "$modename: you must specify a MODE" 1>&2 + $echo "$generic_help" 1>&2 + exit $EXIT_FAILURE + ;; + esac + + if test -z "$exec_cmd"; then + $echo "$modename: invalid operation mode \`$mode'" 1>&2 + $echo "$generic_help" 1>&2 + exit $EXIT_FAILURE + fi +fi # test -z "$show_help" + +if test -n "$exec_cmd"; then + eval exec $exec_cmd + exit $EXIT_FAILURE +fi + +# We need to display help for each of the modes. +case $mode in +"") $echo \ +"Usage: $modename [OPTION]... [MODE-ARG]... + +Provide generalized library-building support services. + + --config show all configuration variables + --debug enable verbose shell tracing +-n, --dry-run display commands without modifying any files + --features display basic configuration information and exit + --finish same as \`--mode=finish' + --help display this help message and exit + --mode=MODE use operation mode MODE [default=inferred from MODE-ARGS] + --quiet same as \`--silent' + --silent don't print informational messages + --tag=TAG use configuration variables from tag TAG + --version print version information + +MODE must be one of the following: + + clean remove files from the build directory + compile compile a source file into a libtool object + execute automatically set library path, then run a program + finish complete the installation of libtool libraries + install install libraries or executables + link create a library or an executable + uninstall remove libraries from an installed directory + +MODE-ARGS vary depending on the MODE. Try \`$modename --help --mode=MODE' for +a more detailed description of MODE. + +Report bugs to ." + exit $EXIT_SUCCESS + ;; + +clean) + $echo \ +"Usage: $modename [OPTION]... --mode=clean RM [RM-OPTION]... FILE... + +Remove files from the build directory. + +RM is the name of the program to use to delete files associated with each FILE +(typically \`/bin/rm'). RM-OPTIONS are options (such as \`-f') to be passed +to RM. + +If FILE is a libtool library, object or program, all the files associated +with it are deleted. Otherwise, only FILE itself is deleted using RM." + ;; + +compile) + $echo \ +"Usage: $modename [OPTION]... --mode=compile COMPILE-COMMAND... SOURCEFILE + +Compile a source file into a libtool library object. + +This mode accepts the following additional options: + + -o OUTPUT-FILE set the output file name to OUTPUT-FILE + -prefer-pic try to building PIC objects only + -prefer-non-pic try to building non-PIC objects only + -static always build a \`.o' file suitable for static linking + +COMPILE-COMMAND is a command to be used in creating a \`standard' object file +from the given SOURCEFILE. + +The output file name is determined by removing the directory component from +SOURCEFILE, then substituting the C source code suffix \`.c' with the +library object suffix, \`.lo'." + ;; + +execute) + $echo \ +"Usage: $modename [OPTION]... --mode=execute COMMAND [ARGS]... + +Automatically set library path, then run a program. + +This mode accepts the following additional options: + + -dlopen FILE add the directory containing FILE to the library path + +This mode sets the library path environment variable according to \`-dlopen' +flags. + +If any of the ARGS are libtool executable wrappers, then they are translated +into their corresponding uninstalled binary, and any of their required library +directories are added to the library path. + +Then, COMMAND is executed, with ARGS as arguments." + ;; + +finish) + $echo \ +"Usage: $modename [OPTION]... --mode=finish [LIBDIR]... + +Complete the installation of libtool libraries. + +Each LIBDIR is a directory that contains libtool libraries. + +The commands that this mode executes may require superuser privileges. Use +the \`--dry-run' option if you just want to see what would be executed." + ;; + +install) + $echo \ +"Usage: $modename [OPTION]... --mode=install INSTALL-COMMAND... + +Install executables or libraries. + +INSTALL-COMMAND is the installation command. The first component should be +either the \`install' or \`cp' program. + +The rest of the components are interpreted as arguments to that command (only +BSD-compatible install options are recognized)." + ;; + +link) + $echo \ +"Usage: $modename [OPTION]... --mode=link LINK-COMMAND... + +Link object files or libraries together to form another library, or to +create an executable program. + +LINK-COMMAND is a command using the C compiler that you would use to create +a program from several object files. + +The following components of LINK-COMMAND are treated specially: + + -all-static do not do any dynamic linking at all + -avoid-version do not add a version suffix if possible + -dlopen FILE \`-dlpreopen' FILE if it cannot be dlopened at runtime + -dlpreopen FILE link in FILE and add its symbols to lt_preloaded_symbols + -export-dynamic allow symbols from OUTPUT-FILE to be resolved with dlsym(3) + -export-symbols SYMFILE + try to export only the symbols listed in SYMFILE + -export-symbols-regex REGEX + try to export only the symbols matching REGEX + -LLIBDIR search LIBDIR for required installed libraries + -lNAME OUTPUT-FILE requires the installed library libNAME + -module build a library that can dlopened + -no-fast-install disable the fast-install mode + -no-install link a not-installable executable + -no-undefined declare that a library does not refer to external symbols + -o OUTPUT-FILE create OUTPUT-FILE from the specified objects + -objectlist FILE Use a list of object files found in FILE to specify objects + -precious-files-regex REGEX + don't remove output files matching REGEX + -release RELEASE specify package release information + -rpath LIBDIR the created library will eventually be installed in LIBDIR + -R[ ]LIBDIR add LIBDIR to the runtime path of programs and libraries + -static do not do any dynamic linking of libtool libraries + -version-info CURRENT[:REVISION[:AGE]] + specify library version info [each variable defaults to 0] + +All other options (arguments beginning with \`-') are ignored. + +Every other argument is treated as a filename. Files ending in \`.la' are +treated as uninstalled libtool libraries, other files are standard or library +object files. + +If the OUTPUT-FILE ends in \`.la', then a libtool library is created, +only library objects (\`.lo' files) may be specified, and \`-rpath' is +required, except when creating a convenience library. + +If OUTPUT-FILE ends in \`.a' or \`.lib', then a standard library is created +using \`ar' and \`ranlib', or on Windows using \`lib'. + +If OUTPUT-FILE ends in \`.lo' or \`.${objext}', then a reloadable object file +is created, otherwise an executable program is created." + ;; + +uninstall) + $echo \ +"Usage: $modename [OPTION]... --mode=uninstall RM [RM-OPTION]... FILE... + +Remove libraries from an installation directory. + +RM is the name of the program to use to delete files associated with each FILE +(typically \`/bin/rm'). RM-OPTIONS are options (such as \`-f') to be passed +to RM. + +If FILE is a libtool library, all the files associated with it are deleted. +Otherwise, only FILE itself is deleted using RM." + ;; + +*) + $echo "$modename: invalid operation mode \`$mode'" 1>&2 + $echo "$help" 1>&2 + exit $EXIT_FAILURE + ;; +esac + +$echo +$echo "Try \`$modename --help' for more information about other modes." + +exit $? + +# The TAGs below are defined such that we never get into a situation +# in which we disable both kinds of libraries. Given conflicting +# choices, we go for a static library, that is the most portable, +# since we can't tell whether shared libraries were disabled because +# the user asked for that or because the platform doesn't support +# them. This is particularly important on AIX, because we don't +# support having both static and shared libraries enabled at the same +# time on that platform, so we default to a shared-only configuration. +# If a disable-shared tag is given, we'll fallback to a static-only +# configuration. But we'll never go from static-only to shared-only. + +# ### BEGIN LIBTOOL TAG CONFIG: disable-shared +build_libtool_libs=no +build_old_libs=yes +# ### END LIBTOOL TAG CONFIG: disable-shared + +# ### BEGIN LIBTOOL TAG CONFIG: disable-static +build_old_libs=`case $build_libtool_libs in yes) $echo no;; *) $echo yes;; esac` +# ### END LIBTOOL TAG CONFIG: disable-static + +# Local Variables: +# mode:shell-script +# sh-indentation:2 +# End: diff --git a/config/missing b/config/missing new file mode 100755 index 0000000..09edd88 --- /dev/null +++ b/config/missing @@ -0,0 +1,357 @@ +#! /bin/sh +# Common stub for a few missing GNU programs while installing. + +scriptversion=2005-02-08.22 + +# Copyright (C) 1996, 1997, 1999, 2000, 2002, 2003, 2004, 2005 +# Free Software Foundation, Inc. +# Originally by Fran,cois Pinard , 1996. + +# This program 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, 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. + +# As a special exception to the GNU General Public License, if you +# distribute this file as part of a program that contains a +# configuration script generated by Autoconf, you may include it under +# the same distribution terms that you use for the rest of that program. + +if test $# -eq 0; then + echo 1>&2 "Try \`$0 --help' for more information" + exit 1 +fi + +run=: + +# In the cases where this matters, `missing' is being run in the +# srcdir already. +if test -f configure.ac; then + configure_ac=configure.ac +else + configure_ac=configure.in +fi + +msg="missing on your system" + +case "$1" in +--run) + # Try to run requested program, and just exit if it succeeds. + run= + shift + "$@" && exit 0 + # Exit code 63 means version mismatch. This often happens + # when the user try to use an ancient version of a tool on + # a file that requires a minimum version. In this case we + # we should proceed has if the program had been absent, or + # if --run hadn't been passed. + if test $? = 63; then + run=: + msg="probably too old" + fi + ;; + + -h|--h|--he|--hel|--help) + echo "\ +$0 [OPTION]... PROGRAM [ARGUMENT]... + +Handle \`PROGRAM [ARGUMENT]...' for when PROGRAM is missing, or return an +error status if there is no known handling for PROGRAM. + +Options: + -h, --help display this help and exit + -v, --version output version information and exit + --run try to run the given command, and emulate it if it fails + +Supported PROGRAM values: + aclocal touch file \`aclocal.m4' + autoconf touch file \`configure' + autoheader touch file \`config.h.in' + automake touch all \`Makefile.in' files + bison create \`y.tab.[ch]', if possible, from existing .[ch] + flex create \`lex.yy.c', if possible, from existing .c + help2man touch the output file + lex create \`lex.yy.c', if possible, from existing .c + makeinfo touch the output file + tar try tar, gnutar, gtar, then tar without non-portable flags + yacc create \`y.tab.[ch]', if possible, from existing .[ch] + +Send bug reports to ." + exit $? + ;; + + -v|--v|--ve|--ver|--vers|--versi|--versio|--version) + echo "missing $scriptversion (GNU Automake)" + exit $? + ;; + + -*) + echo 1>&2 "$0: Unknown \`$1' option" + echo 1>&2 "Try \`$0 --help' for more information" + exit 1 + ;; + +esac + +# Now exit if we have it, but it failed. Also exit now if we +# don't have it and --version was passed (most likely to detect +# the program). +case "$1" in + lex|yacc) + # Not GNU programs, they don't have --version. + ;; + + tar) + if test -n "$run"; then + echo 1>&2 "ERROR: \`tar' requires --run" + exit 1 + elif test "x$2" = "x--version" || test "x$2" = "x--help"; then + exit 1 + fi + ;; + + *) + if test -z "$run" && ($1 --version) > /dev/null 2>&1; then + # We have it, but it failed. + exit 1 + elif test "x$2" = "x--version" || test "x$2" = "x--help"; then + # Could not run --version or --help. This is probably someone + # running `$TOOL --version' or `$TOOL --help' to check whether + # $TOOL exists and not knowing $TOOL uses missing. + exit 1 + fi + ;; +esac + +# If it does not exist, or fails to run (possibly an outdated version), +# try to emulate it. +case "$1" in + aclocal*) + echo 1>&2 "\ +WARNING: \`$1' is $msg. You should only need it if + you modified \`acinclude.m4' or \`${configure_ac}'. You might want + to install the \`Automake' and \`Perl' packages. Grab them from + any GNU archive site." + touch aclocal.m4 + ;; + + autoconf) + echo 1>&2 "\ +WARNING: \`$1' is $msg. You should only need it if + you modified \`${configure_ac}'. You might want to install the + \`Autoconf' and \`GNU m4' packages. Grab them from any GNU + archive site." + touch configure + ;; + + autoheader) + echo 1>&2 "\ +WARNING: \`$1' is $msg. You should only need it if + you modified \`acconfig.h' or \`${configure_ac}'. You might want + to install the \`Autoconf' and \`GNU m4' packages. Grab them + from any GNU archive site." + files=`sed -n 's/^[ ]*A[CM]_CONFIG_HEADER(\([^)]*\)).*/\1/p' ${configure_ac}` + test -z "$files" && files="config.h" + touch_files= + for f in $files; do + case "$f" in + *:*) touch_files="$touch_files "`echo "$f" | + sed -e 's/^[^:]*://' -e 's/:.*//'`;; + *) touch_files="$touch_files $f.in";; + esac + done + touch $touch_files + ;; + + automake*) + echo 1>&2 "\ +WARNING: \`$1' is $msg. You should only need it if + you modified \`Makefile.am', \`acinclude.m4' or \`${configure_ac}'. + You might want to install the \`Automake' and \`Perl' packages. + Grab them from any GNU archive site." + find . -type f -name Makefile.am -print | + sed 's/\.am$/.in/' | + while read f; do touch "$f"; done + ;; + + autom4te) + echo 1>&2 "\ +WARNING: \`$1' is needed, but is $msg. + You might have modified some files without having the + proper tools for further handling them. + You can get \`$1' as part of \`Autoconf' from any GNU + archive site." + + file=`echo "$*" | sed -n 's/.*--output[ =]*\([^ ]*\).*/\1/p'` + test -z "$file" && file=`echo "$*" | sed -n 's/.*-o[ ]*\([^ ]*\).*/\1/p'` + if test -f "$file"; then + touch $file + else + test -z "$file" || exec >$file + echo "#! /bin/sh" + echo "# Created by GNU Automake missing as a replacement of" + echo "# $ $@" + echo "exit 0" + chmod +x $file + exit 1 + fi + ;; + + bison|yacc) + echo 1>&2 "\ +WARNING: \`$1' $msg. You should only need it if + you modified a \`.y' file. You may need the \`Bison' package + in order for those modifications to take effect. You can get + \`Bison' from any GNU archive site." + rm -f y.tab.c y.tab.h + if [ $# -ne 1 ]; then + eval LASTARG="\${$#}" + case "$LASTARG" in + *.y) + SRCFILE=`echo "$LASTARG" | sed 's/y$/c/'` + if [ -f "$SRCFILE" ]; then + cp "$SRCFILE" y.tab.c + fi + SRCFILE=`echo "$LASTARG" | sed 's/y$/h/'` + if [ -f "$SRCFILE" ]; then + cp "$SRCFILE" y.tab.h + fi + ;; + esac + fi + if [ ! -f y.tab.h ]; then + echo >y.tab.h + fi + if [ ! -f y.tab.c ]; then + echo 'main() { return 0; }' >y.tab.c + fi + ;; + + lex|flex) + echo 1>&2 "\ +WARNING: \`$1' is $msg. You should only need it if + you modified a \`.l' file. You may need the \`Flex' package + in order for those modifications to take effect. You can get + \`Flex' from any GNU archive site." + rm -f lex.yy.c + if [ $# -ne 1 ]; then + eval LASTARG="\${$#}" + case "$LASTARG" in + *.l) + SRCFILE=`echo "$LASTARG" | sed 's/l$/c/'` + if [ -f "$SRCFILE" ]; then + cp "$SRCFILE" lex.yy.c + fi + ;; + esac + fi + if [ ! -f lex.yy.c ]; then + echo 'main() { return 0; }' >lex.yy.c + fi + ;; + + help2man) + echo 1>&2 "\ +WARNING: \`$1' is $msg. You should only need it if + you modified a dependency of a manual page. You may need the + \`Help2man' package in order for those modifications to take + effect. You can get \`Help2man' from any GNU archive site." + + file=`echo "$*" | sed -n 's/.*-o \([^ ]*\).*/\1/p'` + if test -z "$file"; then + file=`echo "$*" | sed -n 's/.*--output=\([^ ]*\).*/\1/p'` + fi + if [ -f "$file" ]; then + touch $file + else + test -z "$file" || exec >$file + echo ".ab help2man is required to generate this page" + exit 1 + fi + ;; + + makeinfo) + echo 1>&2 "\ +WARNING: \`$1' is $msg. You should only need it if + you modified a \`.texi' or \`.texinfo' file, or any other file + indirectly affecting the aspect of the manual. The spurious + call might also be the consequence of using a buggy \`make' (AIX, + DU, IRIX). You might want to install the \`Texinfo' package or + the \`GNU make' package. Grab either from any GNU archive site." + # The file to touch is that specified with -o ... + file=`echo "$*" | sed -n 's/.*-o \([^ ]*\).*/\1/p'` + if test -z "$file"; then + # ... or it is the one specified with @setfilename ... + infile=`echo "$*" | sed 's/.* \([^ ]*\) *$/\1/'` + file=`sed -n '/^@setfilename/ { s/.* \([^ ]*\) *$/\1/; p; q; }' $infile` + # ... or it is derived from the source name (dir/f.texi becomes f.info) + test -z "$file" && file=`echo "$infile" | sed 's,.*/,,;s,.[^.]*$,,'`.info + fi + touch $file + ;; + + tar) + shift + + # We have already tried tar in the generic part. + # Look for gnutar/gtar before invocation to avoid ugly error + # messages. + if (gnutar --version > /dev/null 2>&1); then + gnutar "$@" && exit 0 + fi + if (gtar --version > /dev/null 2>&1); then + gtar "$@" && exit 0 + fi + firstarg="$1" + if shift; then + case "$firstarg" in + *o*) + firstarg=`echo "$firstarg" | sed s/o//` + tar "$firstarg" "$@" && exit 0 + ;; + esac + case "$firstarg" in + *h*) + firstarg=`echo "$firstarg" | sed s/h//` + tar "$firstarg" "$@" && exit 0 + ;; + esac + fi + + echo 1>&2 "\ +WARNING: I can't seem to be able to run \`tar' with the given arguments. + You may want to install GNU tar or Free paxutils, or check the + command line arguments." + exit 1 + ;; + + *) + echo 1>&2 "\ +WARNING: \`$1' is needed, and is $msg. + You might have modified some files without having the + proper tools for further handling them. Check the \`README' file, + it often tells you about the needed prerequisites for installing + this package. You may also peek at any GNU archive site, in case + some other package would contain this missing \`$1' program." + exit 1 + ;; +esac + +exit 0 + +# Local variables: +# eval: (add-hook 'write-file-hooks 'time-stamp) +# time-stamp-start: "scriptversion=" +# time-stamp-format: "%:y-%02m-%02d.%02H" +# time-stamp-end: "$" +# End: diff --git a/config/ylwrap b/config/ylwrap new file mode 100755 index 0000000..10e4368 --- /dev/null +++ b/config/ylwrap @@ -0,0 +1,222 @@ +#! /bin/sh +# ylwrap - wrapper for lex/yacc invocations. + +scriptversion=2005-02-02.22 + +# Copyright (C) 1996, 1997, 1998, 1999, 2001, 2002, 2003, 2004, 2005 +# Free Software Foundation, Inc. +# +# Written by Tom Tromey . +# +# This program 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, 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. + +# As a special exception to the GNU General Public License, if you +# distribute this file as part of a program that contains a +# configuration script generated by Autoconf, you may include it under +# the same distribution terms that you use for the rest of that program. + +# This file is maintained in Automake, please report +# bugs to or send patches to +# . + +case "$1" in + '') + echo "$0: No files given. Try \`$0 --help' for more information." 1>&2 + exit 1 + ;; + --basedir) + basedir=$2 + shift 2 + ;; + -h|--h*) + cat <<\EOF +Usage: ylwrap [--help|--version] INPUT [OUTPUT DESIRED]... -- PROGRAM [ARGS]... + +Wrapper for lex/yacc invocations, renaming files as desired. + + INPUT is the input file + OUTPUT is one file PROG generates + DESIRED is the file we actually want instead of OUTPUT + PROGRAM is program to run + ARGS are passed to PROG + +Any number of OUTPUT,DESIRED pairs may be used. + +Report bugs to . +EOF + exit $? + ;; + -v|--v*) + echo "ylwrap $scriptversion" + exit $? + ;; +esac + + +# The input. +input="$1" +shift +case "$input" in + [\\/]* | ?:[\\/]*) + # Absolute path; do nothing. + ;; + *) + # Relative path. Make it absolute. + input="`pwd`/$input" + ;; +esac + +pairlist= +while test "$#" -ne 0; do + if test "$1" = "--"; then + shift + break + fi + pairlist="$pairlist $1" + shift +done + +# The program to run. +prog="$1" +shift +# Make any relative path in $prog absolute. +case "$prog" in + [\\/]* | ?:[\\/]*) ;; + *[\\/]*) prog="`pwd`/$prog" ;; +esac + +# FIXME: add hostname here for parallel makes that run commands on +# other machines. But that might take us over the 14-char limit. +dirname=ylwrap$$ +trap "cd `pwd`; rm -rf $dirname > /dev/null 2>&1" 1 2 3 15 +mkdir $dirname || exit 1 + +cd $dirname + +case $# in + 0) $prog "$input" ;; + *) $prog "$@" "$input" ;; +esac +ret=$? + +if test $ret -eq 0; then + set X $pairlist + shift + first=yes + # Since DOS filename conventions don't allow two dots, + # the DOS version of Bison writes out y_tab.c instead of y.tab.c + # and y_tab.h instead of y.tab.h. Test to see if this is the case. + y_tab_nodot="no" + if test -f y_tab.c || test -f y_tab.h; then + y_tab_nodot="yes" + fi + + # The directory holding the input. + input_dir=`echo "$input" | sed -e 's,\([\\/]\)[^\\/]*$,\1,'` + # Quote $INPUT_DIR so we can use it in a regexp. + # FIXME: really we should care about more than `.' and `\'. + input_rx=`echo "$input_dir" | sed 's,\\\\,\\\\\\\\,g;s,\\.,\\\\.,g'` + + while test "$#" -ne 0; do + from="$1" + # Handle y_tab.c and y_tab.h output by DOS + if test $y_tab_nodot = "yes"; then + if test $from = "y.tab.c"; then + from="y_tab.c" + else + if test $from = "y.tab.h"; then + from="y_tab.h" + fi + fi + fi + if test -f "$from"; then + # If $2 is an absolute path name, then just use that, + # otherwise prepend `../'. + case "$2" in + [\\/]* | ?:[\\/]*) target="$2";; + *) target="../$2";; + esac + + # We do not want to overwrite a header file if it hasn't + # changed. This avoid useless recompilations. However the + # parser itself (the first file) should always be updated, + # because it is the destination of the .y.c rule in the + # Makefile. Divert the output of all other files to a temporary + # file so we can compare them to existing versions. + if test $first = no; then + realtarget="$target" + target="tmp-`echo $target | sed s/.*[\\/]//g`" + fi + # Edit out `#line' or `#' directives. + # + # We don't want the resulting debug information to point at + # an absolute srcdir; it is better for it to just mention the + # .y file with no path. + # + # We want to use the real output file name, not yy.lex.c for + # instance. + # + # We want the include guards to be adjusted too. + FROM=`echo "$from" | sed \ + -e 'y/abcdefghijklmnopqrstuvwxyz/ABCDEFGHIJKLMNOPQRSTUVWXYZ/'\ + -e 's/[^ABCDEFGHIJKLMNOPQRSTUVWXYZ]/_/g'` + TARGET=`echo "$2" | sed \ + -e 'y/abcdefghijklmnopqrstuvwxyz/ABCDEFGHIJKLMNOPQRSTUVWXYZ/'\ + -e 's/[^ABCDEFGHIJKLMNOPQRSTUVWXYZ]/_/g'` + + sed -e "/^#/!b" -e "s,$input_rx,," -e "s,$from,$2," \ + -e "s,$FROM,$TARGET," "$from" >"$target" || ret=$? + + # Check whether header files must be updated. + if test $first = no; then + if test -f "$realtarget" && cmp -s "$realtarget" "$target"; then + echo "$2" is unchanged + rm -f "$target" + else + echo updating "$2" + mv -f "$target" "$realtarget" + fi + fi + else + # A missing file is only an error for the first file. This + # is a blatant hack to let us support using "yacc -d". If -d + # is not specified, we don't want an error when the header + # file is "missing". + if test $first = yes; then + ret=1 + fi + fi + shift + shift + first=no + done +else + ret=$? +fi + +# Remove the directory. +cd .. +rm -rf $dirname + +exit $ret + +# Local Variables: +# mode: shell-script +# sh-indentation: 2 +# eval: (add-hook 'write-file-hooks 'time-stamp) +# time-stamp-start: "scriptversion=" +# time-stamp-format: "%:y-%02m-%02d.%02H" +# time-stamp-end: "$" +# End: diff --git a/configure b/configure new file mode 100755 index 0000000..01a3a68 --- /dev/null +++ b/configure @@ -0,0 +1,23856 @@ +#! /bin/sh +# Guess values for system-dependent variables and create Makefiles. +# Generated by GNU Autoconf 2.59 for veriwell 2.8.2. +# +# Copyright (C) 2003 Free Software Foundation, Inc. +# This configure script is free software; the Free Software Foundation +# gives unlimited permission to copy, distribute and modify it. +## --------------------- ## +## M4sh Initialization. ## +## --------------------- ## + +# Be Bourne compatible +if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then + emulate sh + NULLCMD=: + # Zsh 3.x and 4.x performs word splitting on ${1+"$@"}, which + # is contrary to our usage. Disable this feature. + alias -g '${1+"$@"}'='"$@"' +elif test -n "${BASH_VERSION+set}" && (set -o posix) >/dev/null 2>&1; then + set -o posix +fi +DUALCASE=1; export DUALCASE # for MKS sh + +# Support unset when possible. +if ( (MAIL=60; unset MAIL) || exit) >/dev/null 2>&1; then + as_unset=unset +else + as_unset=false +fi + + +# Work around bugs in pre-3.0 UWIN ksh. +$as_unset ENV MAIL MAILPATH +PS1='$ ' +PS2='> ' +PS4='+ ' + +# NLS nuisances. +for as_var in \ + LANG LANGUAGE LC_ADDRESS LC_ALL LC_COLLATE LC_CTYPE LC_IDENTIFICATION \ + LC_MEASUREMENT LC_MESSAGES LC_MONETARY LC_NAME LC_NUMERIC LC_PAPER \ + LC_TELEPHONE LC_TIME +do + if (set +x; test -z "`(eval $as_var=C; export $as_var) 2>&1`"); then + eval $as_var=C; export $as_var + else + $as_unset $as_var + fi +done + +# Required to use basename. +if expr a : '\(a\)' >/dev/null 2>&1; then + as_expr=expr +else + as_expr=false +fi + +if (basename /) >/dev/null 2>&1 && test "X`basename / 2>&1`" = "X/"; then + as_basename=basename +else + as_basename=false +fi + + +# Name of the executable. +as_me=`$as_basename "$0" || +$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ + X"$0" : 'X\(//\)$' \| \ + X"$0" : 'X\(/\)$' \| \ + . : '\(.\)' 2>/dev/null || +echo X/"$0" | + sed '/^.*\/\([^/][^/]*\)\/*$/{ s//\1/; q; } + /^X\/\(\/\/\)$/{ s//\1/; q; } + /^X\/\(\/\).*/{ s//\1/; q; } + s/.*/./; q'` + + +# PATH needs CR, and LINENO needs CR and PATH. +# Avoid depending upon Character Ranges. +as_cr_letters='abcdefghijklmnopqrstuvwxyz' +as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' +as_cr_Letters=$as_cr_letters$as_cr_LETTERS +as_cr_digits='0123456789' +as_cr_alnum=$as_cr_Letters$as_cr_digits + +# The user is always right. +if test "${PATH_SEPARATOR+set}" != set; then + echo "#! /bin/sh" >conf$$.sh + echo "exit 0" >>conf$$.sh + chmod +x conf$$.sh + if (PATH="/nonexistent;."; conf$$.sh) >/dev/null 2>&1; then + PATH_SEPARATOR=';' + else + PATH_SEPARATOR=: + fi + rm -f conf$$.sh +fi + + + as_lineno_1=$LINENO + as_lineno_2=$LINENO + as_lineno_3=`(expr $as_lineno_1 + 1) 2>/dev/null` + test "x$as_lineno_1" != "x$as_lineno_2" && + test "x$as_lineno_3" = "x$as_lineno_2" || { + # Find who we are. Look in the path if we contain no path at all + # relative or not. + case $0 in + *[\\/]* ) as_myself=$0 ;; + *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break +done + + ;; + esac + # We did not find ourselves, most probably we were run as `sh COMMAND' + # in which case we are not to be found in the path. + if test "x$as_myself" = x; then + as_myself=$0 + fi + if test ! -f "$as_myself"; then + { echo "$as_me: error: cannot find myself; rerun with an absolute path" >&2 + { (exit 1); exit 1; }; } + fi + case $CONFIG_SHELL in + '') + as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for as_base in sh bash ksh sh5; do + case $as_dir in + /*) + if ("$as_dir/$as_base" -c ' + as_lineno_1=$LINENO + as_lineno_2=$LINENO + as_lineno_3=`(expr $as_lineno_1 + 1) 2>/dev/null` + test "x$as_lineno_1" != "x$as_lineno_2" && + test "x$as_lineno_3" = "x$as_lineno_2" ') 2>/dev/null; then + $as_unset BASH_ENV || test "${BASH_ENV+set}" != set || { BASH_ENV=; export BASH_ENV; } + $as_unset ENV || test "${ENV+set}" != set || { ENV=; export ENV; } + CONFIG_SHELL=$as_dir/$as_base + export CONFIG_SHELL + exec "$CONFIG_SHELL" "$0" ${1+"$@"} + fi;; + esac + done +done +;; + esac + + # Create $as_me.lineno as a copy of $as_myself, but with $LINENO + # uniformly replaced by the line number. The first 'sed' inserts a + # line-number line before each line; the second 'sed' does the real + # work. The second script uses 'N' to pair each line-number line + # with the numbered line, and appends trailing '-' during + # substitution so that $LINENO is not a special case at line end. + # (Raja R Harinath suggested sed '=', and Paul Eggert wrote the + # second 'sed' script. Blame Lee E. McMahon for sed's syntax. :-) + sed '=' <$as_myself | + sed ' + N + s,$,-, + : loop + s,^\(['$as_cr_digits']*\)\(.*\)[$]LINENO\([^'$as_cr_alnum'_]\),\1\2\1\3, + t loop + s,-$,, + s,^['$as_cr_digits']*\n,, + ' >$as_me.lineno && + chmod +x $as_me.lineno || + { echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2 + { (exit 1); exit 1; }; } + + # Don't try to exec as it changes $[0], causing all sort of problems + # (the dirname of $[0] is not the place where we might find the + # original and so on. Autoconf is especially sensible to this). + . ./$as_me.lineno + # Exit status is that of the last command. + exit +} + + +case `echo "testing\c"; echo 1,2,3`,`echo -n testing; echo 1,2,3` in + *c*,-n*) ECHO_N= ECHO_C=' +' ECHO_T=' ' ;; + *c*,* ) ECHO_N=-n ECHO_C= ECHO_T= ;; + *) ECHO_N= ECHO_C='\c' ECHO_T= ;; +esac + +if expr a : '\(a\)' >/dev/null 2>&1; then + as_expr=expr +else + as_expr=false +fi + +rm -f conf$$ conf$$.exe conf$$.file +echo >conf$$.file +if ln -s conf$$.file conf$$ 2>/dev/null; then + # We could just check for DJGPP; but this test a) works b) is more generic + # and c) will remain valid once DJGPP supports symlinks (DJGPP 2.04). + if test -f conf$$.exe; then + # Don't use ln at all; we don't have any links + as_ln_s='cp -p' + else + as_ln_s='ln -s' + fi +elif ln conf$$.file conf$$ 2>/dev/null; then + as_ln_s=ln +else + as_ln_s='cp -p' +fi +rm -f conf$$ conf$$.exe conf$$.file + +if mkdir -p . 2>/dev/null; then + as_mkdir_p=: +else + test -d ./-p && rmdir ./-p + as_mkdir_p=false +fi + +as_executable_p="test -f" + +# Sed expression to map a string onto a valid CPP name. +as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" + +# Sed expression to map a string onto a valid variable name. +as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" + + +# IFS +# We need space, tab and new line, in precisely that order. +as_nl=' +' +IFS=" $as_nl" + +# CDPATH. +$as_unset CDPATH + + + +# Check that we are running under the correct shell. +SHELL=${CONFIG_SHELL-/bin/sh} + +case X$ECHO in +X*--fallback-echo) + # Remove one level of quotation (which was required for Make). + ECHO=`echo "$ECHO" | sed 's,\\\\\$\\$0,'$0','` + ;; +esac + +echo=${ECHO-echo} +if test "X$1" = X--no-reexec; then + # Discard the --no-reexec flag, and continue. + shift +elif test "X$1" = X--fallback-echo; then + # Avoid inline document here, it may be left over + : +elif test "X`($echo '\t') 2>/dev/null`" = 'X\t' ; then + # Yippee, $echo works! + : +else + # Restart under the correct shell. + exec $SHELL "$0" --no-reexec ${1+"$@"} +fi + +if test "X$1" = X--fallback-echo; then + # used as fallback echo + shift + cat </dev/null 2>&1 && unset CDPATH + +if test -z "$ECHO"; then +if test "X${echo_test_string+set}" != Xset; then +# find a string as large as possible, as long as the shell can cope with it + for cmd in 'sed 50q "$0"' 'sed 20q "$0"' 'sed 10q "$0"' 'sed 2q "$0"' 'echo test'; do + # expected sizes: less than 2Kb, 1Kb, 512 bytes, 16 bytes, ... + if (echo_test_string="`eval $cmd`") 2>/dev/null && + echo_test_string="`eval $cmd`" && + (test "X$echo_test_string" = "X$echo_test_string") 2>/dev/null + then + break + fi + done +fi + +if test "X`($echo '\t') 2>/dev/null`" = 'X\t' && + echo_testing_string=`($echo "$echo_test_string") 2>/dev/null` && + test "X$echo_testing_string" = "X$echo_test_string"; then + : +else + # The Solaris, AIX, and Digital Unix default echo programs unquote + # backslashes. This makes it impossible to quote backslashes using + # echo "$something" | sed 's/\\/\\\\/g' + # + # So, first we look for a working echo in the user's PATH. + + lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR + for dir in $PATH /usr/ucb; do + IFS="$lt_save_ifs" + if (test -f $dir/echo || test -f $dir/echo$ac_exeext) && + test "X`($dir/echo '\t') 2>/dev/null`" = 'X\t' && + echo_testing_string=`($dir/echo "$echo_test_string") 2>/dev/null` && + test "X$echo_testing_string" = "X$echo_test_string"; then + echo="$dir/echo" + break + fi + done + IFS="$lt_save_ifs" + + if test "X$echo" = Xecho; then + # We didn't find a better echo, so look for alternatives. + if test "X`(print -r '\t') 2>/dev/null`" = 'X\t' && + echo_testing_string=`(print -r "$echo_test_string") 2>/dev/null` && + test "X$echo_testing_string" = "X$echo_test_string"; then + # This shell has a builtin print -r that does the trick. + echo='print -r' + elif (test -f /bin/ksh || test -f /bin/ksh$ac_exeext) && + test "X$CONFIG_SHELL" != X/bin/ksh; then + # If we have ksh, try running configure again with it. + ORIGINAL_CONFIG_SHELL=${CONFIG_SHELL-/bin/sh} + export ORIGINAL_CONFIG_SHELL + CONFIG_SHELL=/bin/ksh + export CONFIG_SHELL + exec $CONFIG_SHELL "$0" --no-reexec ${1+"$@"} + else + # Try using printf. + echo='printf %s\n' + if test "X`($echo '\t') 2>/dev/null`" = 'X\t' && + echo_testing_string=`($echo "$echo_test_string") 2>/dev/null` && + test "X$echo_testing_string" = "X$echo_test_string"; then + # Cool, printf works + : + elif echo_testing_string=`($ORIGINAL_CONFIG_SHELL "$0" --fallback-echo '\t') 2>/dev/null` && + test "X$echo_testing_string" = 'X\t' && + echo_testing_string=`($ORIGINAL_CONFIG_SHELL "$0" --fallback-echo "$echo_test_string") 2>/dev/null` && + test "X$echo_testing_string" = "X$echo_test_string"; then + CONFIG_SHELL=$ORIGINAL_CONFIG_SHELL + export CONFIG_SHELL + SHELL="$CONFIG_SHELL" + export SHELL + echo="$CONFIG_SHELL $0 --fallback-echo" + elif echo_testing_string=`($CONFIG_SHELL "$0" --fallback-echo '\t') 2>/dev/null` && + test "X$echo_testing_string" = 'X\t' && + echo_testing_string=`($CONFIG_SHELL "$0" --fallback-echo "$echo_test_string") 2>/dev/null` && + test "X$echo_testing_string" = "X$echo_test_string"; then + echo="$CONFIG_SHELL $0 --fallback-echo" + else + # maybe with a smaller string... + prev=: + + for cmd in 'echo test' 'sed 2q "$0"' 'sed 10q "$0"' 'sed 20q "$0"' 'sed 50q "$0"'; do + if (test "X$echo_test_string" = "X`eval $cmd`") 2>/dev/null + then + break + fi + prev="$cmd" + done + + if test "$prev" != 'sed 50q "$0"'; then + echo_test_string=`eval $prev` + export echo_test_string + exec ${ORIGINAL_CONFIG_SHELL-${CONFIG_SHELL-/bin/sh}} "$0" ${1+"$@"} + else + # Oops. We lost completely, so just stick with echo. + echo=echo + fi + fi + fi + fi +fi +fi + +# Copy echo and quote the copy suitably for passing to libtool from +# the Makefile, instead of quoting the original, which is used later. +ECHO=$echo +if test "X$ECHO" = "X$CONFIG_SHELL $0 --fallback-echo"; then + ECHO="$CONFIG_SHELL \\\$\$0 --fallback-echo" +fi + + + + +tagnames=${tagnames+${tagnames},}CXX + +tagnames=${tagnames+${tagnames},}F77 + +# Name of the host. +# hostname on some systems (SVR3.2, Linux) returns a bogus exit status, +# so uname gets run too. +ac_hostname=`(hostname || uname -n) 2>/dev/null | sed 1q` + +exec 6>&1 + +# +# Initializations. +# +ac_default_prefix=/usr/local +ac_config_libobj_dir=. +cross_compiling=no +subdirs= +MFLAGS= +MAKEFLAGS= +SHELL=${CONFIG_SHELL-/bin/sh} + +# Maximum number of lines to put in a shell here document. +# This variable seems obsolete. It should probably be removed, and +# only ac_max_sed_lines should be used. +: ${ac_max_here_lines=38} + +# Identity of this package. +PACKAGE_NAME='veriwell' +PACKAGE_TARNAME='veriwell' +PACKAGE_VERSION='2.8.2' +PACKAGE_STRING='veriwell 2.8.2' +PACKAGE_BUGREPORT='' + +# Factoring default headers for most tests. +ac_includes_default="\ +#include +#if HAVE_SYS_TYPES_H +# include +#endif +#if HAVE_SYS_STAT_H +# include +#endif +#if STDC_HEADERS +# include +# include +#else +# if HAVE_STDLIB_H +# include +# endif +#endif +#if HAVE_STRING_H +# if !STDC_HEADERS && HAVE_MEMORY_H +# include +# endif +# include +#endif +#if HAVE_STRINGS_H +# include +#endif +#if HAVE_INTTYPES_H +# include +#else +# if HAVE_STDINT_H +# include +# endif +#endif +#if HAVE_UNISTD_H +# include +#endif" + +ac_subst_vars='SHELL PATH_SEPARATOR PACKAGE_NAME PACKAGE_TARNAME PACKAGE_VERSION PACKAGE_STRING PACKAGE_BUGREPORT exec_prefix prefix program_transform_name bindir sbindir libexecdir datadir sysconfdir sharedstatedir localstatedir libdir includedir oldincludedir infodir mandir build_alias host_alias target_alias DEFS ECHO_C ECHO_N ECHO_T LIBS INSTALL_PROGRAM INSTALL_SCRIPT INSTALL_DATA CYGPATH_W PACKAGE VERSION ACLOCAL AUTOCONF AUTOMAKE AUTOHEADER MAKEINFO install_sh STRIP ac_ct_STRIP INSTALL_STRIP_PROGRAM mkdir_p AWK SET_MAKE am__leading_dot AMTAR am__tar am__untar CXX CXXFLAGS LDFLAGS CPPFLAGS ac_ct_CXX EXEEXT OBJEXT DEPDIR am__include am__quote AMDEP_TRUE AMDEP_FALSE AMDEPBACKSLASH CXXDEPMODE am__fastdepCXX_TRUE am__fastdepCXX_FALSE CC CFLAGS ac_ct_CC CCDEPMODE am__fastdepCC_TRUE am__fastdepCC_FALSE RANLIB ac_ct_RANLIB build build_cpu build_vendor build_os host host_cpu host_vendor host_os EGREP LN_S ECHO AR ac_ct_AR CPP CXXCPP F77 FFLAGS ac_ct_F77 LIBTOOL XGPERF YACC LIBOBJS USE_LXT_TRUE USE_LXT_FALSE LTLIBOBJS' +ac_subst_files='' + +# Initialize some variables set by options. +ac_init_help= +ac_init_version=false +# The variables have the same names as the options, with +# dashes changed to underlines. +cache_file=/dev/null +exec_prefix=NONE +no_create= +no_recursion= +prefix=NONE +program_prefix=NONE +program_suffix=NONE +program_transform_name=s,x,x, +silent= +site= +srcdir= +verbose= +x_includes=NONE +x_libraries=NONE + +# Installation directory options. +# These are left unexpanded so users can "make install exec_prefix=/foo" +# and all the variables that are supposed to be based on exec_prefix +# by default will actually change. +# Use braces instead of parens because sh, perl, etc. also accept them. +bindir='${exec_prefix}/bin' +sbindir='${exec_prefix}/sbin' +libexecdir='${exec_prefix}/libexec' +datadir='${prefix}/share' +sysconfdir='${prefix}/etc' +sharedstatedir='${prefix}/com' +localstatedir='${prefix}/var' +libdir='${exec_prefix}/lib' +includedir='${prefix}/include' +oldincludedir='/usr/include' +infodir='${prefix}/info' +mandir='${prefix}/man' + +ac_prev= +for ac_option +do + # If the previous option needs an argument, assign it. + if test -n "$ac_prev"; then + eval "$ac_prev=\$ac_option" + ac_prev= + continue + fi + + ac_optarg=`expr "x$ac_option" : 'x[^=]*=\(.*\)'` + + # Accept the important Cygnus configure options, so we can diagnose typos. + + case $ac_option in + + -bindir | --bindir | --bindi | --bind | --bin | --bi) + ac_prev=bindir ;; + -bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*) + bindir=$ac_optarg ;; + + -build | --build | --buil | --bui | --bu) + ac_prev=build_alias ;; + -build=* | --build=* | --buil=* | --bui=* | --bu=*) + build_alias=$ac_optarg ;; + + -cache-file | --cache-file | --cache-fil | --cache-fi \ + | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c) + ac_prev=cache_file ;; + -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \ + | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*) + cache_file=$ac_optarg ;; + + --config-cache | -C) + cache_file=config.cache ;; + + -datadir | --datadir | --datadi | --datad | --data | --dat | --da) + ac_prev=datadir ;; + -datadir=* | --datadir=* | --datadi=* | --datad=* | --data=* | --dat=* \ + | --da=*) + datadir=$ac_optarg ;; + + -disable-* | --disable-*) + ac_feature=`expr "x$ac_option" : 'x-*disable-\(.*\)'` + # Reject names that are not valid shell variable names. + expr "x$ac_feature" : ".*[^-_$as_cr_alnum]" >/dev/null && + { echo "$as_me: error: invalid feature name: $ac_feature" >&2 + { (exit 1); exit 1; }; } + ac_feature=`echo $ac_feature | sed 's/-/_/g'` + eval "enable_$ac_feature=no" ;; + + -enable-* | --enable-*) + ac_feature=`expr "x$ac_option" : 'x-*enable-\([^=]*\)'` + # Reject names that are not valid shell variable names. + expr "x$ac_feature" : ".*[^-_$as_cr_alnum]" >/dev/null && + { echo "$as_me: error: invalid feature name: $ac_feature" >&2 + { (exit 1); exit 1; }; } + ac_feature=`echo $ac_feature | sed 's/-/_/g'` + case $ac_option in + *=*) ac_optarg=`echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"`;; + *) ac_optarg=yes ;; + esac + eval "enable_$ac_feature='$ac_optarg'" ;; + + -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \ + | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \ + | --exec | --exe | --ex) + ac_prev=exec_prefix ;; + -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \ + | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \ + | --exec=* | --exe=* | --ex=*) + exec_prefix=$ac_optarg ;; + + -gas | --gas | --ga | --g) + # Obsolete; use --with-gas. + with_gas=yes ;; + + -help | --help | --hel | --he | -h) + ac_init_help=long ;; + -help=r* | --help=r* | --hel=r* | --he=r* | -hr*) + ac_init_help=recursive ;; + -help=s* | --help=s* | --hel=s* | --he=s* | -hs*) + ac_init_help=short ;; + + -host | --host | --hos | --ho) + ac_prev=host_alias ;; + -host=* | --host=* | --hos=* | --ho=*) + host_alias=$ac_optarg ;; + + -includedir | --includedir | --includedi | --included | --include \ + | --includ | --inclu | --incl | --inc) + ac_prev=includedir ;; + -includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \ + | --includ=* | --inclu=* | --incl=* | --inc=*) + includedir=$ac_optarg ;; + + -infodir | --infodir | --infodi | --infod | --info | --inf) + ac_prev=infodir ;; + -infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*) + infodir=$ac_optarg ;; + + -libdir | --libdir | --libdi | --libd) + ac_prev=libdir ;; + -libdir=* | --libdir=* | --libdi=* | --libd=*) + libdir=$ac_optarg ;; + + -libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \ + | --libexe | --libex | --libe) + ac_prev=libexecdir ;; + -libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \ + | --libexe=* | --libex=* | --libe=*) + libexecdir=$ac_optarg ;; + + -localstatedir | --localstatedir | --localstatedi | --localstated \ + | --localstate | --localstat | --localsta | --localst \ + | --locals | --local | --loca | --loc | --lo) + ac_prev=localstatedir ;; + -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \ + | --localstate=* | --localstat=* | --localsta=* | --localst=* \ + | --locals=* | --local=* | --loca=* | --loc=* | --lo=*) + localstatedir=$ac_optarg ;; + + -mandir | --mandir | --mandi | --mand | --man | --ma | --m) + ac_prev=mandir ;; + -mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*) + mandir=$ac_optarg ;; + + -nfp | --nfp | --nf) + # Obsolete; use --without-fp. + with_fp=no ;; + + -no-create | --no-create | --no-creat | --no-crea | --no-cre \ + | --no-cr | --no-c | -n) + no_create=yes ;; + + -no-recursion | --no-recursion | --no-recursio | --no-recursi \ + | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) + no_recursion=yes ;; + + -oldincludedir | --oldincludedir | --oldincludedi | --oldincluded \ + | --oldinclude | --oldinclud | --oldinclu | --oldincl | --oldinc \ + | --oldin | --oldi | --old | --ol | --o) + ac_prev=oldincludedir ;; + -oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \ + | --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \ + | --oldin=* | --oldi=* | --old=* | --ol=* | --o=*) + oldincludedir=$ac_optarg ;; + + -prefix | --prefix | --prefi | --pref | --pre | --pr | --p) + ac_prev=prefix ;; + -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*) + prefix=$ac_optarg ;; + + -program-prefix | --program-prefix | --program-prefi | --program-pref \ + | --program-pre | --program-pr | --program-p) + ac_prev=program_prefix ;; + -program-prefix=* | --program-prefix=* | --program-prefi=* \ + | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*) + program_prefix=$ac_optarg ;; + + -program-suffix | --program-suffix | --program-suffi | --program-suff \ + | --program-suf | --program-su | --program-s) + ac_prev=program_suffix ;; + -program-suffix=* | --program-suffix=* | --program-suffi=* \ + | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*) + program_suffix=$ac_optarg ;; + + -program-transform-name | --program-transform-name \ + | --program-transform-nam | --program-transform-na \ + | --program-transform-n | --program-transform- \ + | --program-transform | --program-transfor \ + | --program-transfo | --program-transf \ + | --program-trans | --program-tran \ + | --progr-tra | --program-tr | --program-t) + ac_prev=program_transform_name ;; + -program-transform-name=* | --program-transform-name=* \ + | --program-transform-nam=* | --program-transform-na=* \ + | --program-transform-n=* | --program-transform-=* \ + | --program-transform=* | --program-transfor=* \ + | --program-transfo=* | --program-transf=* \ + | --program-trans=* | --program-tran=* \ + | --progr-tra=* | --program-tr=* | --program-t=*) + program_transform_name=$ac_optarg ;; + + -q | -quiet | --quiet | --quie | --qui | --qu | --q \ + | -silent | --silent | --silen | --sile | --sil) + silent=yes ;; + + -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb) + ac_prev=sbindir ;; + -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \ + | --sbi=* | --sb=*) + sbindir=$ac_optarg ;; + + -sharedstatedir | --sharedstatedir | --sharedstatedi \ + | --sharedstated | --sharedstate | --sharedstat | --sharedsta \ + | --sharedst | --shareds | --shared | --share | --shar \ + | --sha | --sh) + ac_prev=sharedstatedir ;; + -sharedstatedir=* | --sharedstatedir=* | --sharedstatedi=* \ + | --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \ + | --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \ + | --sha=* | --sh=*) + sharedstatedir=$ac_optarg ;; + + -site | --site | --sit) + ac_prev=site ;; + -site=* | --site=* | --sit=*) + site=$ac_optarg ;; + + -srcdir | --srcdir | --srcdi | --srcd | --src | --sr) + ac_prev=srcdir ;; + -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*) + srcdir=$ac_optarg ;; + + -sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \ + | --syscon | --sysco | --sysc | --sys | --sy) + ac_prev=sysconfdir ;; + -sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \ + | --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*) + sysconfdir=$ac_optarg ;; + + -target | --target | --targe | --targ | --tar | --ta | --t) + ac_prev=target_alias ;; + -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*) + target_alias=$ac_optarg ;; + + -v | -verbose | --verbose | --verbos | --verbo | --verb) + verbose=yes ;; + + -version | --version | --versio | --versi | --vers | -V) + ac_init_version=: ;; + + -with-* | --with-*) + ac_package=`expr "x$ac_option" : 'x-*with-\([^=]*\)'` + # Reject names that are not valid shell variable names. + expr "x$ac_package" : ".*[^-_$as_cr_alnum]" >/dev/null && + { echo "$as_me: error: invalid package name: $ac_package" >&2 + { (exit 1); exit 1; }; } + ac_package=`echo $ac_package| sed 's/-/_/g'` + case $ac_option in + *=*) ac_optarg=`echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"`;; + *) ac_optarg=yes ;; + esac + eval "with_$ac_package='$ac_optarg'" ;; + + -without-* | --without-*) + ac_package=`expr "x$ac_option" : 'x-*without-\(.*\)'` + # Reject names that are not valid shell variable names. + expr "x$ac_package" : ".*[^-_$as_cr_alnum]" >/dev/null && + { echo "$as_me: error: invalid package name: $ac_package" >&2 + { (exit 1); exit 1; }; } + ac_package=`echo $ac_package | sed 's/-/_/g'` + eval "with_$ac_package=no" ;; + + --x) + # Obsolete; use --with-x. + with_x=yes ;; + + -x-includes | --x-includes | --x-include | --x-includ | --x-inclu \ + | --x-incl | --x-inc | --x-in | --x-i) + ac_prev=x_includes ;; + -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \ + | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*) + x_includes=$ac_optarg ;; + + -x-libraries | --x-libraries | --x-librarie | --x-librari \ + | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l) + ac_prev=x_libraries ;; + -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \ + | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*) + x_libraries=$ac_optarg ;; + + -*) { echo "$as_me: error: unrecognized option: $ac_option +Try \`$0 --help' for more information." >&2 + { (exit 1); exit 1; }; } + ;; + + *=*) + ac_envvar=`expr "x$ac_option" : 'x\([^=]*\)='` + # Reject names that are not valid shell variable names. + expr "x$ac_envvar" : ".*[^_$as_cr_alnum]" >/dev/null && + { echo "$as_me: error: invalid variable name: $ac_envvar" >&2 + { (exit 1); exit 1; }; } + ac_optarg=`echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` + eval "$ac_envvar='$ac_optarg'" + export $ac_envvar ;; + + *) + # FIXME: should be removed in autoconf 3.0. + echo "$as_me: WARNING: you should use --build, --host, --target" >&2 + expr "x$ac_option" : ".*[^-._$as_cr_alnum]" >/dev/null && + echo "$as_me: WARNING: invalid host type: $ac_option" >&2 + : ${build_alias=$ac_option} ${host_alias=$ac_option} ${target_alias=$ac_option} + ;; + + esac +done + +if test -n "$ac_prev"; then + ac_option=--`echo $ac_prev | sed 's/_/-/g'` + { echo "$as_me: error: missing argument to $ac_option" >&2 + { (exit 1); exit 1; }; } +fi + +# Be sure to have absolute paths. +for ac_var in exec_prefix prefix +do + eval ac_val=$`echo $ac_var` + case $ac_val in + [\\/$]* | ?:[\\/]* | NONE | '' ) ;; + *) { echo "$as_me: error: expected an absolute directory name for --$ac_var: $ac_val" >&2 + { (exit 1); exit 1; }; };; + esac +done + +# Be sure to have absolute paths. +for ac_var in bindir sbindir libexecdir datadir sysconfdir sharedstatedir \ + localstatedir libdir includedir oldincludedir infodir mandir +do + eval ac_val=$`echo $ac_var` + case $ac_val in + [\\/$]* | ?:[\\/]* ) ;; + *) { echo "$as_me: error: expected an absolute directory name for --$ac_var: $ac_val" >&2 + { (exit 1); exit 1; }; };; + esac +done + +# There might be people who depend on the old broken behavior: `$host' +# used to hold the argument of --host etc. +# FIXME: To remove some day. +build=$build_alias +host=$host_alias +target=$target_alias + +# FIXME: To remove some day. +if test "x$host_alias" != x; then + if test "x$build_alias" = x; then + cross_compiling=maybe + echo "$as_me: WARNING: If you wanted to set the --build type, don't use --host. + If a cross compiler is detected then cross compile mode will be used." >&2 + elif test "x$build_alias" != "x$host_alias"; then + cross_compiling=yes + fi +fi + +ac_tool_prefix= +test -n "$host_alias" && ac_tool_prefix=$host_alias- + +test "$silent" = yes && exec 6>/dev/null + + +# Find the source files, if location was not specified. +if test -z "$srcdir"; then + ac_srcdir_defaulted=yes + # Try the directory containing this script, then its parent. + ac_confdir=`(dirname "$0") 2>/dev/null || +$as_expr X"$0" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$0" : 'X\(//\)[^/]' \| \ + X"$0" : 'X\(//\)$' \| \ + X"$0" : 'X\(/\)' \| \ + . : '\(.\)' 2>/dev/null || +echo X"$0" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/; q; } + /^X\(\/\/\)[^/].*/{ s//\1/; q; } + /^X\(\/\/\)$/{ s//\1/; q; } + /^X\(\/\).*/{ s//\1/; q; } + s/.*/./; q'` + srcdir=$ac_confdir + if test ! -r $srcdir/$ac_unique_file; then + srcdir=.. + fi +else + ac_srcdir_defaulted=no +fi +if test ! -r $srcdir/$ac_unique_file; then + if test "$ac_srcdir_defaulted" = yes; then + { echo "$as_me: error: cannot find sources ($ac_unique_file) in $ac_confdir or .." >&2 + { (exit 1); exit 1; }; } + else + { echo "$as_me: error: cannot find sources ($ac_unique_file) in $srcdir" >&2 + { (exit 1); exit 1; }; } + fi +fi +(cd $srcdir && test -r ./$ac_unique_file) 2>/dev/null || + { echo "$as_me: error: sources are in $srcdir, but \`cd $srcdir' does not work" >&2 + { (exit 1); exit 1; }; } +srcdir=`echo "$srcdir" | sed 's%\([^\\/]\)[\\/]*$%\1%'` +ac_env_build_alias_set=${build_alias+set} +ac_env_build_alias_value=$build_alias +ac_cv_env_build_alias_set=${build_alias+set} +ac_cv_env_build_alias_value=$build_alias +ac_env_host_alias_set=${host_alias+set} +ac_env_host_alias_value=$host_alias +ac_cv_env_host_alias_set=${host_alias+set} +ac_cv_env_host_alias_value=$host_alias +ac_env_target_alias_set=${target_alias+set} +ac_env_target_alias_value=$target_alias +ac_cv_env_target_alias_set=${target_alias+set} +ac_cv_env_target_alias_value=$target_alias +ac_env_CXX_set=${CXX+set} +ac_env_CXX_value=$CXX +ac_cv_env_CXX_set=${CXX+set} +ac_cv_env_CXX_value=$CXX +ac_env_CXXFLAGS_set=${CXXFLAGS+set} +ac_env_CXXFLAGS_value=$CXXFLAGS +ac_cv_env_CXXFLAGS_set=${CXXFLAGS+set} +ac_cv_env_CXXFLAGS_value=$CXXFLAGS +ac_env_LDFLAGS_set=${LDFLAGS+set} +ac_env_LDFLAGS_value=$LDFLAGS +ac_cv_env_LDFLAGS_set=${LDFLAGS+set} +ac_cv_env_LDFLAGS_value=$LDFLAGS +ac_env_CPPFLAGS_set=${CPPFLAGS+set} +ac_env_CPPFLAGS_value=$CPPFLAGS +ac_cv_env_CPPFLAGS_set=${CPPFLAGS+set} +ac_cv_env_CPPFLAGS_value=$CPPFLAGS +ac_env_CC_set=${CC+set} +ac_env_CC_value=$CC +ac_cv_env_CC_set=${CC+set} +ac_cv_env_CC_value=$CC +ac_env_CFLAGS_set=${CFLAGS+set} +ac_env_CFLAGS_value=$CFLAGS +ac_cv_env_CFLAGS_set=${CFLAGS+set} +ac_cv_env_CFLAGS_value=$CFLAGS +ac_env_CPP_set=${CPP+set} +ac_env_CPP_value=$CPP +ac_cv_env_CPP_set=${CPP+set} +ac_cv_env_CPP_value=$CPP +ac_env_CXXCPP_set=${CXXCPP+set} +ac_env_CXXCPP_value=$CXXCPP +ac_cv_env_CXXCPP_set=${CXXCPP+set} +ac_cv_env_CXXCPP_value=$CXXCPP +ac_env_F77_set=${F77+set} +ac_env_F77_value=$F77 +ac_cv_env_F77_set=${F77+set} +ac_cv_env_F77_value=$F77 +ac_env_FFLAGS_set=${FFLAGS+set} +ac_env_FFLAGS_value=$FFLAGS +ac_cv_env_FFLAGS_set=${FFLAGS+set} +ac_cv_env_FFLAGS_value=$FFLAGS + +# +# Report the --help message. +# +if test "$ac_init_help" = "long"; then + # Omit some internal or obsolete options to make the list less imposing. + # This message is too long to be a string in the A/UX 3.1 sh. + cat <<_ACEOF +\`configure' configures veriwell 2.8.2 to adapt to many kinds of systems. + +Usage: $0 [OPTION]... [VAR=VALUE]... + +To assign environment variables (e.g., CC, CFLAGS...), specify them as +VAR=VALUE. See below for descriptions of some of the useful variables. + +Defaults for the options are specified in brackets. + +Configuration: + -h, --help display this help and exit + --help=short display options specific to this package + --help=recursive display the short help of all the included packages + -V, --version display version information and exit + -q, --quiet, --silent do not print \`checking...' messages + --cache-file=FILE cache test results in FILE [disabled] + -C, --config-cache alias for \`--cache-file=config.cache' + -n, --no-create do not create output files + --srcdir=DIR find the sources in DIR [configure dir or \`..'] + +_ACEOF + + cat <<_ACEOF +Installation directories: + --prefix=PREFIX install architecture-independent files in PREFIX + [$ac_default_prefix] + --exec-prefix=EPREFIX install architecture-dependent files in EPREFIX + [PREFIX] + +By default, \`make install' will install all the files in +\`$ac_default_prefix/bin', \`$ac_default_prefix/lib' etc. You can specify +an installation prefix other than \`$ac_default_prefix' using \`--prefix', +for instance \`--prefix=\$HOME'. + +For better control, use the options below. + +Fine tuning of the installation directories: + --bindir=DIR user executables [EPREFIX/bin] + --sbindir=DIR system admin executables [EPREFIX/sbin] + --libexecdir=DIR program executables [EPREFIX/libexec] + --datadir=DIR read-only architecture-independent data [PREFIX/share] + --sysconfdir=DIR read-only single-machine data [PREFIX/etc] + --sharedstatedir=DIR modifiable architecture-independent data [PREFIX/com] + --localstatedir=DIR modifiable single-machine data [PREFIX/var] + --libdir=DIR object code libraries [EPREFIX/lib] + --includedir=DIR C header files [PREFIX/include] + --oldincludedir=DIR C header files for non-gcc [/usr/include] + --infodir=DIR info documentation [PREFIX/info] + --mandir=DIR man documentation [PREFIX/man] +_ACEOF + + cat <<\_ACEOF + +Program names: + --program-prefix=PREFIX prepend PREFIX to installed program names + --program-suffix=SUFFIX append SUFFIX to installed program names + --program-transform-name=PROGRAM run sed PROGRAM on installed program names + +System types: + --build=BUILD configure for building on BUILD [guessed] + --host=HOST cross-compile to build programs to run on HOST [BUILD] +_ACEOF +fi + +if test -n "$ac_init_help"; then + case $ac_init_help in + short | recursive ) echo "Configuration of veriwell 2.8.2:";; + esac + cat <<\_ACEOF + +Optional Features: + --disable-FEATURE do not include FEATURE (same as --enable-FEATURE=no) + --enable-FEATURE[=ARG] include FEATURE [ARG=yes] + --enable-m32 compile in 32 bit modes (default is no) + --disable-lxt compile lxt pli routines (default is yes) + --disable-dependency-tracking speeds up one-time build + --enable-dependency-tracking do not reject slow dependency extractors + --enable-shared[=PKGS] + build shared libraries [default=yes] + --enable-static[=PKGS] + build static libraries [default=yes] + --enable-fast-install[=PKGS] + optimize for fast installation [default=yes] + --disable-libtool-lock avoid locking (might break parallel builds) + +Optional Packages: + --with-PACKAGE[=ARG] use PACKAGE [ARG=yes] + --without-PACKAGE do not use PACKAGE (same as --with-PACKAGE=no) + --with-gnu-ld assume the C compiler uses GNU ld [default=no] + --with-pic try to use only PIC/non-PIC objects [default=use + both] + --with-tags[=TAGS] + include additional configurations [automatic] + +Some influential environment variables: + CXX C++ compiler command + CXXFLAGS C++ compiler flags + LDFLAGS linker flags, e.g. -L if you have libraries in a + nonstandard directory + CPPFLAGS C/C++ preprocessor flags, e.g. -I if you have + headers in a nonstandard directory + CC C compiler command + CFLAGS C compiler flags + CPP C preprocessor + CXXCPP C++ preprocessor + F77 Fortran 77 compiler command + FFLAGS Fortran 77 compiler flags + +Use these variables to override the choices made by `configure' or to help +it to find libraries and programs with nonstandard names/locations. + +_ACEOF +fi + +if test "$ac_init_help" = "recursive"; then + # If there are subdirs, report their specific --help. + ac_popdir=`pwd` + for ac_dir in : $ac_subdirs_all; do test "x$ac_dir" = x: && continue + test -d $ac_dir || continue + ac_builddir=. + +if test "$ac_dir" != .; then + ac_dir_suffix=/`echo "$ac_dir" | sed 's,^\.[\\/],,'` + # A "../" for each directory in $ac_dir_suffix. + ac_top_builddir=`echo "$ac_dir_suffix" | sed 's,/[^\\/]*,../,g'` +else + ac_dir_suffix= ac_top_builddir= +fi + +case $srcdir in + .) # No --srcdir option. We are building in place. + ac_srcdir=. + if test -z "$ac_top_builddir"; then + ac_top_srcdir=. + else + ac_top_srcdir=`echo $ac_top_builddir | sed 's,/$,,'` + fi ;; + [\\/]* | ?:[\\/]* ) # Absolute path. + ac_srcdir=$srcdir$ac_dir_suffix; + ac_top_srcdir=$srcdir ;; + *) # Relative path. + ac_srcdir=$ac_top_builddir$srcdir$ac_dir_suffix + ac_top_srcdir=$ac_top_builddir$srcdir ;; +esac + +# Do not use `cd foo && pwd` to compute absolute paths, because +# the directories may not exist. +case `pwd` in +.) ac_abs_builddir="$ac_dir";; +*) + case "$ac_dir" in + .) ac_abs_builddir=`pwd`;; + [\\/]* | ?:[\\/]* ) ac_abs_builddir="$ac_dir";; + *) ac_abs_builddir=`pwd`/"$ac_dir";; + esac;; +esac +case $ac_abs_builddir in +.) ac_abs_top_builddir=${ac_top_builddir}.;; +*) + case ${ac_top_builddir}. in + .) ac_abs_top_builddir=$ac_abs_builddir;; + [\\/]* | ?:[\\/]* ) ac_abs_top_builddir=${ac_top_builddir}.;; + *) ac_abs_top_builddir=$ac_abs_builddir/${ac_top_builddir}.;; + esac;; +esac +case $ac_abs_builddir in +.) ac_abs_srcdir=$ac_srcdir;; +*) + case $ac_srcdir in + .) ac_abs_srcdir=$ac_abs_builddir;; + [\\/]* | ?:[\\/]* ) ac_abs_srcdir=$ac_srcdir;; + *) ac_abs_srcdir=$ac_abs_builddir/$ac_srcdir;; + esac;; +esac +case $ac_abs_builddir in +.) ac_abs_top_srcdir=$ac_top_srcdir;; +*) + case $ac_top_srcdir in + .) ac_abs_top_srcdir=$ac_abs_builddir;; + [\\/]* | ?:[\\/]* ) ac_abs_top_srcdir=$ac_top_srcdir;; + *) ac_abs_top_srcdir=$ac_abs_builddir/$ac_top_srcdir;; + esac;; +esac + + cd $ac_dir + # Check for guested configure; otherwise get Cygnus style configure. + if test -f $ac_srcdir/configure.gnu; then + echo + $SHELL $ac_srcdir/configure.gnu --help=recursive + elif test -f $ac_srcdir/configure; then + echo + $SHELL $ac_srcdir/configure --help=recursive + elif test -f $ac_srcdir/configure.ac || + test -f $ac_srcdir/configure.in; then + echo + $ac_configure --help + else + echo "$as_me: WARNING: no configuration information is in $ac_dir" >&2 + fi + cd $ac_popdir + done +fi + +test -n "$ac_init_help" && exit 0 +if $ac_init_version; then + cat <<\_ACEOF +veriwell configure 2.8.2 +generated by GNU Autoconf 2.59 + +Copyright (C) 2003 Free Software Foundation, Inc. +This configure script is free software; the Free Software Foundation +gives unlimited permission to copy, distribute and modify it. +_ACEOF + exit 0 +fi +exec 5>config.log +cat >&5 <<_ACEOF +This file contains any messages produced by compilers while +running configure, to aid debugging if configure makes a mistake. + +It was created by veriwell $as_me 2.8.2, which was +generated by GNU Autoconf 2.59. Invocation command line was + + $ $0 $@ + +_ACEOF +{ +cat <<_ASUNAME +## --------- ## +## Platform. ## +## --------- ## + +hostname = `(hostname || uname -n) 2>/dev/null | sed 1q` +uname -m = `(uname -m) 2>/dev/null || echo unknown` +uname -r = `(uname -r) 2>/dev/null || echo unknown` +uname -s = `(uname -s) 2>/dev/null || echo unknown` +uname -v = `(uname -v) 2>/dev/null || echo unknown` + +/usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null || echo unknown` +/bin/uname -X = `(/bin/uname -X) 2>/dev/null || echo unknown` + +/bin/arch = `(/bin/arch) 2>/dev/null || echo unknown` +/usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null || echo unknown` +/usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null || echo unknown` +hostinfo = `(hostinfo) 2>/dev/null || echo unknown` +/bin/machine = `(/bin/machine) 2>/dev/null || echo unknown` +/usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null || echo unknown` +/bin/universe = `(/bin/universe) 2>/dev/null || echo unknown` + +_ASUNAME + +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + echo "PATH: $as_dir" +done + +} >&5 + +cat >&5 <<_ACEOF + + +## ----------- ## +## Core tests. ## +## ----------- ## + +_ACEOF + + +# Keep a trace of the command line. +# Strip out --no-create and --no-recursion so they do not pile up. +# Strip out --silent because we don't want to record it for future runs. +# Also quote any args containing shell meta-characters. +# Make two passes to allow for proper duplicate-argument suppression. +ac_configure_args= +ac_configure_args0= +ac_configure_args1= +ac_sep= +ac_must_keep_next=false +for ac_pass in 1 2 +do + for ac_arg + do + case $ac_arg in + -no-create | --no-c* | -n | -no-recursion | --no-r*) continue ;; + -q | -quiet | --quiet | --quie | --qui | --qu | --q \ + | -silent | --silent | --silen | --sile | --sil) + continue ;; + *" "*|*" "*|*[\[\]\~\#\$\^\&\*\(\)\{\}\\\|\;\<\>\?\"\']*) + ac_arg=`echo "$ac_arg" | sed "s/'/'\\\\\\\\''/g"` ;; + esac + case $ac_pass in + 1) ac_configure_args0="$ac_configure_args0 '$ac_arg'" ;; + 2) + ac_configure_args1="$ac_configure_args1 '$ac_arg'" + if test $ac_must_keep_next = true; then + ac_must_keep_next=false # Got value, back to normal. + else + case $ac_arg in + *=* | --config-cache | -C | -disable-* | --disable-* \ + | -enable-* | --enable-* | -gas | --g* | -nfp | --nf* \ + | -q | -quiet | --q* | -silent | --sil* | -v | -verb* \ + | -with-* | --with-* | -without-* | --without-* | --x) + case "$ac_configure_args0 " in + "$ac_configure_args1"*" '$ac_arg' "* ) continue ;; + esac + ;; + -* ) ac_must_keep_next=true ;; + esac + fi + ac_configure_args="$ac_configure_args$ac_sep'$ac_arg'" + # Get rid of the leading space. + ac_sep=" " + ;; + esac + done +done +$as_unset ac_configure_args0 || test "${ac_configure_args0+set}" != set || { ac_configure_args0=; export ac_configure_args0; } +$as_unset ac_configure_args1 || test "${ac_configure_args1+set}" != set || { ac_configure_args1=; export ac_configure_args1; } + +# When interrupted or exit'd, cleanup temporary files, and complete +# config.log. We remove comments because anyway the quotes in there +# would cause problems or look ugly. +# WARNING: Be sure not to use single quotes in there, as some shells, +# such as our DU 5.0 friend, will then `close' the trap. +trap 'exit_status=$? + # Save into config.log some information that might help in debugging. + { + echo + + cat <<\_ASBOX +## ---------------- ## +## Cache variables. ## +## ---------------- ## +_ASBOX + echo + # The following way of writing the cache mishandles newlines in values, +{ + (set) 2>&1 | + case `(ac_space='"'"' '"'"'; set | grep ac_space) 2>&1` in + *ac_space=\ *) + sed -n \ + "s/'"'"'/'"'"'\\\\'"'"''"'"'/g; + s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='"'"'\\2'"'"'/p" + ;; + *) + sed -n \ + "s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1=\\2/p" + ;; + esac; +} + echo + + cat <<\_ASBOX +## ----------------- ## +## Output variables. ## +## ----------------- ## +_ASBOX + echo + for ac_var in $ac_subst_vars + do + eval ac_val=$`echo $ac_var` + echo "$ac_var='"'"'$ac_val'"'"'" + done | sort + echo + + if test -n "$ac_subst_files"; then + cat <<\_ASBOX +## ------------- ## +## Output files. ## +## ------------- ## +_ASBOX + echo + for ac_var in $ac_subst_files + do + eval ac_val=$`echo $ac_var` + echo "$ac_var='"'"'$ac_val'"'"'" + done | sort + echo + fi + + if test -s confdefs.h; then + cat <<\_ASBOX +## ----------- ## +## confdefs.h. ## +## ----------- ## +_ASBOX + echo + sed "/^$/d" confdefs.h | sort + echo + fi + test "$ac_signal" != 0 && + echo "$as_me: caught signal $ac_signal" + echo "$as_me: exit $exit_status" + } >&5 + rm -f core *.core && + rm -rf conftest* confdefs* conf$$* $ac_clean_files && + exit $exit_status + ' 0 +for ac_signal in 1 2 13 15; do + trap 'ac_signal='$ac_signal'; { (exit 1); exit 1; }' $ac_signal +done +ac_signal=0 + +# confdefs.h avoids OS command line length limits that DEFS can exceed. +rm -rf conftest* confdefs.h +# AIX cpp loses on an empty file, so make sure it contains at least a newline. +echo >confdefs.h + +# Predefined preprocessor variables. + +cat >>confdefs.h <<_ACEOF +#define PACKAGE_NAME "$PACKAGE_NAME" +_ACEOF + + +cat >>confdefs.h <<_ACEOF +#define PACKAGE_TARNAME "$PACKAGE_TARNAME" +_ACEOF + + +cat >>confdefs.h <<_ACEOF +#define PACKAGE_VERSION "$PACKAGE_VERSION" +_ACEOF + + +cat >>confdefs.h <<_ACEOF +#define PACKAGE_STRING "$PACKAGE_STRING" +_ACEOF + + +cat >>confdefs.h <<_ACEOF +#define PACKAGE_BUGREPORT "$PACKAGE_BUGREPORT" +_ACEOF + + +# Let the site file select an alternate cache file if it wants to. +# Prefer explicitly selected file to automatically selected ones. +if test -z "$CONFIG_SITE"; then + if test "x$prefix" != xNONE; then + CONFIG_SITE="$prefix/share/config.site $prefix/etc/config.site" + else + CONFIG_SITE="$ac_default_prefix/share/config.site $ac_default_prefix/etc/config.site" + fi +fi +for ac_site_file in $CONFIG_SITE; do + if test -r "$ac_site_file"; then + { echo "$as_me:$LINENO: loading site script $ac_site_file" >&5 +echo "$as_me: loading site script $ac_site_file" >&6;} + sed 's/^/| /' "$ac_site_file" >&5 + . "$ac_site_file" + fi +done + +if test -r "$cache_file"; then + # Some versions of bash will fail to source /dev/null (special + # files actually), so we avoid doing that. + if test -f "$cache_file"; then + { echo "$as_me:$LINENO: loading cache $cache_file" >&5 +echo "$as_me: loading cache $cache_file" >&6;} + case $cache_file in + [\\/]* | ?:[\\/]* ) . $cache_file;; + *) . ./$cache_file;; + esac + fi +else + { echo "$as_me:$LINENO: creating cache $cache_file" >&5 +echo "$as_me: creating cache $cache_file" >&6;} + >$cache_file +fi + +# Check that the precious variables saved in the cache have kept the same +# value. +ac_cache_corrupted=false +for ac_var in `(set) 2>&1 | + sed -n 's/^ac_env_\([a-zA-Z_0-9]*\)_set=.*/\1/p'`; do + eval ac_old_set=\$ac_cv_env_${ac_var}_set + eval ac_new_set=\$ac_env_${ac_var}_set + eval ac_old_val="\$ac_cv_env_${ac_var}_value" + eval ac_new_val="\$ac_env_${ac_var}_value" + case $ac_old_set,$ac_new_set in + set,) + { echo "$as_me:$LINENO: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&5 +echo "$as_me: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&2;} + ac_cache_corrupted=: ;; + ,set) + { echo "$as_me:$LINENO: error: \`$ac_var' was not set in the previous run" >&5 +echo "$as_me: error: \`$ac_var' was not set in the previous run" >&2;} + ac_cache_corrupted=: ;; + ,);; + *) + if test "x$ac_old_val" != "x$ac_new_val"; then + { echo "$as_me:$LINENO: error: \`$ac_var' has changed since the previous run:" >&5 +echo "$as_me: error: \`$ac_var' has changed since the previous run:" >&2;} + { echo "$as_me:$LINENO: former value: $ac_old_val" >&5 +echo "$as_me: former value: $ac_old_val" >&2;} + { echo "$as_me:$LINENO: current value: $ac_new_val" >&5 +echo "$as_me: current value: $ac_new_val" >&2;} + ac_cache_corrupted=: + fi;; + esac + # Pass precious variables to config.status. + if test "$ac_new_set" = set; then + case $ac_new_val in + *" "*|*" "*|*[\[\]\~\#\$\^\&\*\(\)\{\}\\\|\;\<\>\?\"\']*) + ac_arg=$ac_var=`echo "$ac_new_val" | sed "s/'/'\\\\\\\\''/g"` ;; + *) ac_arg=$ac_var=$ac_new_val ;; + esac + case " $ac_configure_args " in + *" '$ac_arg' "*) ;; # Avoid dups. Use of quotes ensures accuracy. + *) ac_configure_args="$ac_configure_args '$ac_arg'" ;; + esac + fi +done +if $ac_cache_corrupted; then + { echo "$as_me:$LINENO: error: changes in the environment can compromise the build" >&5 +echo "$as_me: error: changes in the environment can compromise the build" >&2;} + { { echo "$as_me:$LINENO: error: run \`make distclean' and/or \`rm $cache_file' and start over" >&5 +echo "$as_me: error: run \`make distclean' and/or \`rm $cache_file' and start over" >&2;} + { (exit 1); exit 1; }; } +fi + +ac_ext=c +ac_cpp='$CPP $CPPFLAGS' +ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_c_compiler_gnu + + + + + + + + + + + + + + + + + + + + + + + + + + + +ac_aux_dir= +for ac_dir in config $srcdir/config; do + if test -f $ac_dir/install-sh; then + ac_aux_dir=$ac_dir + ac_install_sh="$ac_aux_dir/install-sh -c" + break + elif test -f $ac_dir/install.sh; then + ac_aux_dir=$ac_dir + ac_install_sh="$ac_aux_dir/install.sh -c" + break + elif test -f $ac_dir/shtool; then + ac_aux_dir=$ac_dir + ac_install_sh="$ac_aux_dir/shtool install -c" + break + fi +done +if test -z "$ac_aux_dir"; then + { { echo "$as_me:$LINENO: error: cannot find install-sh or install.sh in config $srcdir/config" >&5 +echo "$as_me: error: cannot find install-sh or install.sh in config $srcdir/config" >&2;} + { (exit 1); exit 1; }; } +fi +ac_config_guess="$SHELL $ac_aux_dir/config.guess" +ac_config_sub="$SHELL $ac_aux_dir/config.sub" +ac_configure="$SHELL $ac_aux_dir/configure" # This should be Cygnus configure. + + ac_config_headers="$ac_config_headers config.h" + + +am__api_version="1.9" +# Find a good install program. We prefer a C program (faster), +# so one script is as good as another. But avoid the broken or +# incompatible versions: +# SysV /etc/install, /usr/sbin/install +# SunOS /usr/etc/install +# IRIX /sbin/install +# AIX /bin/install +# AmigaOS /C/install, which installs bootblocks on floppy discs +# AIX 4 /usr/bin/installbsd, which doesn't work without a -g flag +# AFS /usr/afsws/bin/install, which mishandles nonexistent args +# SVR4 /usr/ucb/install, which tries to use the nonexistent group "staff" +# OS/2's system install, which has a completely different semantic +# ./install, which can be erroneously created by make from ./install.sh. +echo "$as_me:$LINENO: checking for a BSD-compatible install" >&5 +echo $ECHO_N "checking for a BSD-compatible install... $ECHO_C" >&6 +if test -z "$INSTALL"; then +if test "${ac_cv_path_install+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + # Account for people who put trailing slashes in PATH elements. +case $as_dir/ in + ./ | .// | /cC/* | \ + /etc/* | /usr/sbin/* | /usr/etc/* | /sbin/* | /usr/afsws/bin/* | \ + ?:\\/os2\\/install\\/* | ?:\\/OS2\\/INSTALL\\/* | \ + /usr/ucb/* ) ;; + *) + # OSF1 and SCO ODT 3.0 have their own names for install. + # Don't use installbsd from OSF since it installs stuff as root + # by default. + for ac_prog in ginstall scoinst install; do + for ac_exec_ext in '' $ac_executable_extensions; do + if $as_executable_p "$as_dir/$ac_prog$ac_exec_ext"; then + if test $ac_prog = install && + grep dspmsg "$as_dir/$ac_prog$ac_exec_ext" >/dev/null 2>&1; then + # AIX install. It has an incompatible calling convention. + : + elif test $ac_prog = install && + grep pwplus "$as_dir/$ac_prog$ac_exec_ext" >/dev/null 2>&1; then + # program-specific install script used by HP pwplus--don't use. + : + else + ac_cv_path_install="$as_dir/$ac_prog$ac_exec_ext -c" + break 3 + fi + fi + done + done + ;; +esac +done + + +fi + if test "${ac_cv_path_install+set}" = set; then + INSTALL=$ac_cv_path_install + else + # As a last resort, use the slow shell script. We don't cache a + # path for INSTALL within a source directory, because that will + # break other packages using the cache if that directory is + # removed, or if the path is relative. + INSTALL=$ac_install_sh + fi +fi +echo "$as_me:$LINENO: result: $INSTALL" >&5 +echo "${ECHO_T}$INSTALL" >&6 + +# Use test -z because SunOS4 sh mishandles braces in ${var-val}. +# It thinks the first close brace ends the variable substitution. +test -z "$INSTALL_PROGRAM" && INSTALL_PROGRAM='${INSTALL}' + +test -z "$INSTALL_SCRIPT" && INSTALL_SCRIPT='${INSTALL}' + +test -z "$INSTALL_DATA" && INSTALL_DATA='${INSTALL} -m 644' + +echo "$as_me:$LINENO: checking whether build environment is sane" >&5 +echo $ECHO_N "checking whether build environment is sane... $ECHO_C" >&6 +# Just in case +sleep 1 +echo timestamp > conftest.file +# Do `set' in a subshell so we don't clobber the current shell's +# arguments. Must try -L first in case configure is actually a +# symlink; some systems play weird games with the mod time of symlinks +# (eg FreeBSD returns the mod time of the symlink's containing +# directory). +if ( + set X `ls -Lt $srcdir/configure conftest.file 2> /dev/null` + if test "$*" = "X"; then + # -L didn't work. + set X `ls -t $srcdir/configure conftest.file` + fi + rm -f conftest.file + if test "$*" != "X $srcdir/configure conftest.file" \ + && test "$*" != "X conftest.file $srcdir/configure"; then + + # If neither matched, then we have a broken ls. This can happen + # if, for instance, CONFIG_SHELL is bash and it inherits a + # broken ls alias from the environment. This has actually + # happened. Such a system could not be considered "sane". + { { echo "$as_me:$LINENO: error: ls -t appears to fail. Make sure there is not a broken +alias in your environment" >&5 +echo "$as_me: error: ls -t appears to fail. Make sure there is not a broken +alias in your environment" >&2;} + { (exit 1); exit 1; }; } + fi + + test "$2" = conftest.file + ) +then + # Ok. + : +else + { { echo "$as_me:$LINENO: error: newly created file is older than distributed files! +Check your system clock" >&5 +echo "$as_me: error: newly created file is older than distributed files! +Check your system clock" >&2;} + { (exit 1); exit 1; }; } +fi +echo "$as_me:$LINENO: result: yes" >&5 +echo "${ECHO_T}yes" >&6 +test "$program_prefix" != NONE && + program_transform_name="s,^,$program_prefix,;$program_transform_name" +# Use a double $ so make ignores it. +test "$program_suffix" != NONE && + program_transform_name="s,\$,$program_suffix,;$program_transform_name" +# Double any \ or $. echo might interpret backslashes. +# By default was `s,x,x', remove it if useless. +cat <<\_ACEOF >conftest.sed +s/[\\$]/&&/g;s/;s,x,x,$// +_ACEOF +program_transform_name=`echo $program_transform_name | sed -f conftest.sed` +rm conftest.sed + +# expand $ac_aux_dir to an absolute path +am_aux_dir=`cd $ac_aux_dir && pwd` + +test x"${MISSING+set}" = xset || MISSING="\${SHELL} $am_aux_dir/missing" +# Use eval to expand $SHELL +if eval "$MISSING --run true"; then + am_missing_run="$MISSING --run " +else + am_missing_run= + { echo "$as_me:$LINENO: WARNING: \`missing' script is too old or missing" >&5 +echo "$as_me: WARNING: \`missing' script is too old or missing" >&2;} +fi + +if mkdir -p --version . >/dev/null 2>&1 && test ! -d ./--version; then + # We used to keeping the `.' as first argument, in order to + # allow $(mkdir_p) to be used without argument. As in + # $(mkdir_p) $(somedir) + # where $(somedir) is conditionally defined. However this is wrong + # for two reasons: + # 1. if the package is installed by a user who cannot write `.' + # make install will fail, + # 2. the above comment should most certainly read + # $(mkdir_p) $(DESTDIR)$(somedir) + # so it does not work when $(somedir) is undefined and + # $(DESTDIR) is not. + # To support the latter case, we have to write + # test -z "$(somedir)" || $(mkdir_p) $(DESTDIR)$(somedir), + # so the `.' trick is pointless. + mkdir_p='mkdir -p --' +else + # On NextStep and OpenStep, the `mkdir' command does not + # recognize any option. It will interpret all options as + # directories to create, and then abort because `.' already + # exists. + for d in ./-p ./--version; + do + test -d $d && rmdir $d + done + # $(mkinstalldirs) is defined by Automake if mkinstalldirs exists. + if test -f "$ac_aux_dir/mkinstalldirs"; then + mkdir_p='$(mkinstalldirs)' + else + mkdir_p='$(install_sh) -d' + fi +fi + +for ac_prog in gawk mawk nawk awk +do + # Extract the first word of "$ac_prog", so it can be a program name with args. +set dummy $ac_prog; ac_word=$2 +echo "$as_me:$LINENO: checking for $ac_word" >&5 +echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 +if test "${ac_cv_prog_AWK+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + if test -n "$AWK"; then + ac_cv_prog_AWK="$AWK" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_AWK="$ac_prog" + echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done +done + +fi +fi +AWK=$ac_cv_prog_AWK +if test -n "$AWK"; then + echo "$as_me:$LINENO: result: $AWK" >&5 +echo "${ECHO_T}$AWK" >&6 +else + echo "$as_me:$LINENO: result: no" >&5 +echo "${ECHO_T}no" >&6 +fi + + test -n "$AWK" && break +done + +echo "$as_me:$LINENO: checking whether ${MAKE-make} sets \$(MAKE)" >&5 +echo $ECHO_N "checking whether ${MAKE-make} sets \$(MAKE)... $ECHO_C" >&6 +set dummy ${MAKE-make}; ac_make=`echo "$2" | sed 'y,:./+-,___p_,'` +if eval "test \"\${ac_cv_prog_make_${ac_make}_set+set}\" = set"; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + cat >conftest.make <<\_ACEOF +all: + @echo 'ac_maketemp="$(MAKE)"' +_ACEOF +# GNU make sometimes prints "make[1]: Entering...", which would confuse us. +eval `${MAKE-make} -f conftest.make 2>/dev/null | grep temp=` +if test -n "$ac_maketemp"; then + eval ac_cv_prog_make_${ac_make}_set=yes +else + eval ac_cv_prog_make_${ac_make}_set=no +fi +rm -f conftest.make +fi +if eval "test \"`echo '$ac_cv_prog_make_'${ac_make}_set`\" = yes"; then + echo "$as_me:$LINENO: result: yes" >&5 +echo "${ECHO_T}yes" >&6 + SET_MAKE= +else + echo "$as_me:$LINENO: result: no" >&5 +echo "${ECHO_T}no" >&6 + SET_MAKE="MAKE=${MAKE-make}" +fi + +rm -rf .tst 2>/dev/null +mkdir .tst 2>/dev/null +if test -d .tst; then + am__leading_dot=. +else + am__leading_dot=_ +fi +rmdir .tst 2>/dev/null + +# test to see if srcdir already configured +if test "`cd $srcdir && pwd`" != "`pwd`" && + test -f $srcdir/config.status; then + { { echo "$as_me:$LINENO: error: source directory already configured; run \"make distclean\" there first" >&5 +echo "$as_me: error: source directory already configured; run \"make distclean\" there first" >&2;} + { (exit 1); exit 1; }; } +fi + +# test whether we have cygpath +if test -z "$CYGPATH_W"; then + if (cygpath --version) >/dev/null 2>/dev/null; then + CYGPATH_W='cygpath -w' + else + CYGPATH_W=echo + fi +fi + + +# Define the identity of the package. + PACKAGE='veriwell' + VERSION='2.8.2' + + +cat >>confdefs.h <<_ACEOF +#define PACKAGE "$PACKAGE" +_ACEOF + + +cat >>confdefs.h <<_ACEOF +#define VERSION "$VERSION" +_ACEOF + +# Some tools Automake needs. + +ACLOCAL=${ACLOCAL-"${am_missing_run}aclocal-${am__api_version}"} + + +AUTOCONF=${AUTOCONF-"${am_missing_run}autoconf"} + + +AUTOMAKE=${AUTOMAKE-"${am_missing_run}automake-${am__api_version}"} + + +AUTOHEADER=${AUTOHEADER-"${am_missing_run}autoheader"} + + +MAKEINFO=${MAKEINFO-"${am_missing_run}makeinfo"} + +install_sh=${install_sh-"$am_aux_dir/install-sh"} + +# Installed binaries are usually stripped using `strip' when the user +# run `make install-strip'. However `strip' might not be the right +# tool to use in cross-compilation environments, therefore Automake +# will honor the `STRIP' environment variable to overrule this program. +if test "$cross_compiling" != no; then + if test -n "$ac_tool_prefix"; then + # Extract the first word of "${ac_tool_prefix}strip", so it can be a program name with args. +set dummy ${ac_tool_prefix}strip; ac_word=$2 +echo "$as_me:$LINENO: checking for $ac_word" >&5 +echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 +if test "${ac_cv_prog_STRIP+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + if test -n "$STRIP"; then + ac_cv_prog_STRIP="$STRIP" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_STRIP="${ac_tool_prefix}strip" + echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done +done + +fi +fi +STRIP=$ac_cv_prog_STRIP +if test -n "$STRIP"; then + echo "$as_me:$LINENO: result: $STRIP" >&5 +echo "${ECHO_T}$STRIP" >&6 +else + echo "$as_me:$LINENO: result: no" >&5 +echo "${ECHO_T}no" >&6 +fi + +fi +if test -z "$ac_cv_prog_STRIP"; then + ac_ct_STRIP=$STRIP + # Extract the first word of "strip", so it can be a program name with args. +set dummy strip; ac_word=$2 +echo "$as_me:$LINENO: checking for $ac_word" >&5 +echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 +if test "${ac_cv_prog_ac_ct_STRIP+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + if test -n "$ac_ct_STRIP"; then + ac_cv_prog_ac_ct_STRIP="$ac_ct_STRIP" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_ac_ct_STRIP="strip" + echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done +done + + test -z "$ac_cv_prog_ac_ct_STRIP" && ac_cv_prog_ac_ct_STRIP=":" +fi +fi +ac_ct_STRIP=$ac_cv_prog_ac_ct_STRIP +if test -n "$ac_ct_STRIP"; then + echo "$as_me:$LINENO: result: $ac_ct_STRIP" >&5 +echo "${ECHO_T}$ac_ct_STRIP" >&6 +else + echo "$as_me:$LINENO: result: no" >&5 +echo "${ECHO_T}no" >&6 +fi + + STRIP=$ac_ct_STRIP +else + STRIP="$ac_cv_prog_STRIP" +fi + +fi +INSTALL_STRIP_PROGRAM="\${SHELL} \$(install_sh) -c -s" + +# We need awk for the "check" target. The system "awk" is bad on +# some platforms. +# Always define AMTAR for backward compatibility. + +AMTAR=${AMTAR-"${am_missing_run}tar"} + +am__tar='${AMTAR} chof - "$$tardir"'; am__untar='${AMTAR} xf -' + + + + + + +# Check for user supplied arguments +echo "$as_me:$LINENO: checking use 32 bit compile" >&5 +echo $ECHO_N "checking use 32 bit compile... $ECHO_C" >&6 +# Check whether --enable-m32 or --disable-m32 was given. +if test "${enable_m32+set}" = set; then + enableval="$enable_m32" + ac_cv_enable_m32=yes +else + ac_cv_enable_m32=no +fi; +echo "$as_me:$LINENO: result: $ac_cv_enable_m32" >&5 +echo "${ECHO_T}$ac_cv_enable_m32" >&6 + +echo "$as_me:$LINENO: checking enable lxt support" >&5 +echo $ECHO_N "checking enable lxt support... $ECHO_C" >&6 +# Check whether --enable-lxt or --disable-lxt was given. +if test "${enable_lxt+set}" = set; then + enableval="$enable_lxt" + ac_cv_enable_lxt=no +else + ac_cv_enable_lxt=yes +fi; +echo "$as_me:$LINENO: result: $ac_cv_enable_lxt" >&5 +echo "${ECHO_T}$ac_cv_enable_lxt" >&6 + +# Checks for programs. +ac_ext=cc +ac_cpp='$CXXCPP $CPPFLAGS' +ac_compile='$CXX -c $CXXFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CXX -o conftest$ac_exeext $CXXFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_cxx_compiler_gnu +if test -n "$ac_tool_prefix"; then + for ac_prog in $CCC g++ c++ gpp aCC CC cxx cc++ cl FCC KCC RCC xlC_r xlC + do + # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. +set dummy $ac_tool_prefix$ac_prog; ac_word=$2 +echo "$as_me:$LINENO: checking for $ac_word" >&5 +echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 +if test "${ac_cv_prog_CXX+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + if test -n "$CXX"; then + ac_cv_prog_CXX="$CXX" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_CXX="$ac_tool_prefix$ac_prog" + echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done +done + +fi +fi +CXX=$ac_cv_prog_CXX +if test -n "$CXX"; then + echo "$as_me:$LINENO: result: $CXX" >&5 +echo "${ECHO_T}$CXX" >&6 +else + echo "$as_me:$LINENO: result: no" >&5 +echo "${ECHO_T}no" >&6 +fi + + test -n "$CXX" && break + done +fi +if test -z "$CXX"; then + ac_ct_CXX=$CXX + for ac_prog in $CCC g++ c++ gpp aCC CC cxx cc++ cl FCC KCC RCC xlC_r xlC +do + # Extract the first word of "$ac_prog", so it can be a program name with args. +set dummy $ac_prog; ac_word=$2 +echo "$as_me:$LINENO: checking for $ac_word" >&5 +echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 +if test "${ac_cv_prog_ac_ct_CXX+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + if test -n "$ac_ct_CXX"; then + ac_cv_prog_ac_ct_CXX="$ac_ct_CXX" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_ac_ct_CXX="$ac_prog" + echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done +done + +fi +fi +ac_ct_CXX=$ac_cv_prog_ac_ct_CXX +if test -n "$ac_ct_CXX"; then + echo "$as_me:$LINENO: result: $ac_ct_CXX" >&5 +echo "${ECHO_T}$ac_ct_CXX" >&6 +else + echo "$as_me:$LINENO: result: no" >&5 +echo "${ECHO_T}no" >&6 +fi + + test -n "$ac_ct_CXX" && break +done +test -n "$ac_ct_CXX" || ac_ct_CXX="g++" + + CXX=$ac_ct_CXX +fi + + +# Provide some information about the compiler. +echo "$as_me:$LINENO:" \ + "checking for C++ compiler version" >&5 +ac_compiler=`set X $ac_compile; echo $2` +{ (eval echo "$as_me:$LINENO: \"$ac_compiler --version &5\"") >&5 + (eval $ac_compiler --version &5) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } +{ (eval echo "$as_me:$LINENO: \"$ac_compiler -v &5\"") >&5 + (eval $ac_compiler -v &5) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } +{ (eval echo "$as_me:$LINENO: \"$ac_compiler -V &5\"") >&5 + (eval $ac_compiler -V &5) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } + +cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ + +int +main () +{ + + ; + return 0; +} +_ACEOF +ac_clean_files_save=$ac_clean_files +ac_clean_files="$ac_clean_files a.out a.exe b.out" +# Try to create an executable without -o first, disregard a.out. +# It will help us diagnose broken compilers, and finding out an intuition +# of exeext. +echo "$as_me:$LINENO: checking for C++ compiler default output file name" >&5 +echo $ECHO_N "checking for C++ compiler default output file name... $ECHO_C" >&6 +ac_link_default=`echo "$ac_link" | sed 's/ -o *conftest[^ ]*//'` +if { (eval echo "$as_me:$LINENO: \"$ac_link_default\"") >&5 + (eval $ac_link_default) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; then + # Find the output, starting from the most likely. This scheme is +# not robust to junk in `.', hence go to wildcards (a.*) only as a last +# resort. + +# Be careful to initialize this variable, since it used to be cached. +# Otherwise an old cache value of `no' led to `EXEEXT = no' in a Makefile. +ac_cv_exeext= +# b.out is created by i960 compilers. +for ac_file in a_out.exe a.exe conftest.exe a.out conftest a.* conftest.* b.out +do + test -f "$ac_file" || continue + case $ac_file in + *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.o | *.obj ) + ;; + conftest.$ac_ext ) + # This is the source file. + ;; + [ab].out ) + # We found the default executable, but exeext='' is most + # certainly right. + break;; + *.* ) + ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'` + # FIXME: I believe we export ac_cv_exeext for Libtool, + # but it would be cool to find out if it's true. Does anybody + # maintain Libtool? --akim. + export ac_cv_exeext + break;; + * ) + break;; + esac +done +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +{ { echo "$as_me:$LINENO: error: C++ compiler cannot create executables +See \`config.log' for more details." >&5 +echo "$as_me: error: C++ compiler cannot create executables +See \`config.log' for more details." >&2;} + { (exit 77); exit 77; }; } +fi + +ac_exeext=$ac_cv_exeext +echo "$as_me:$LINENO: result: $ac_file" >&5 +echo "${ECHO_T}$ac_file" >&6 + +# Check the compiler produces executables we can run. If not, either +# the compiler is broken, or we cross compile. +echo "$as_me:$LINENO: checking whether the C++ compiler works" >&5 +echo $ECHO_N "checking whether the C++ compiler works... $ECHO_C" >&6 +# FIXME: These cross compiler hacks should be removed for Autoconf 3.0 +# If not cross compiling, check that we can run a simple program. +if test "$cross_compiling" != yes; then + if { ac_try='./$ac_file' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + cross_compiling=no + else + if test "$cross_compiling" = maybe; then + cross_compiling=yes + else + { { echo "$as_me:$LINENO: error: cannot run C++ compiled programs. +If you meant to cross compile, use \`--host'. +See \`config.log' for more details." >&5 +echo "$as_me: error: cannot run C++ compiled programs. +If you meant to cross compile, use \`--host'. +See \`config.log' for more details." >&2;} + { (exit 1); exit 1; }; } + fi + fi +fi +echo "$as_me:$LINENO: result: yes" >&5 +echo "${ECHO_T}yes" >&6 + +rm -f a.out a.exe conftest$ac_cv_exeext b.out +ac_clean_files=$ac_clean_files_save +# Check the compiler produces executables we can run. If not, either +# the compiler is broken, or we cross compile. +echo "$as_me:$LINENO: checking whether we are cross compiling" >&5 +echo $ECHO_N "checking whether we are cross compiling... $ECHO_C" >&6 +echo "$as_me:$LINENO: result: $cross_compiling" >&5 +echo "${ECHO_T}$cross_compiling" >&6 + +echo "$as_me:$LINENO: checking for suffix of executables" >&5 +echo $ECHO_N "checking for suffix of executables... $ECHO_C" >&6 +if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; then + # If both `conftest.exe' and `conftest' are `present' (well, observable) +# catch `conftest.exe'. For instance with Cygwin, `ls conftest' will +# work properly (i.e., refer to `conftest.exe'), while it won't with +# `rm'. +for ac_file in conftest.exe conftest conftest.*; do + test -f "$ac_file" || continue + case $ac_file in + *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.o | *.obj ) ;; + *.* ) ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'` + export ac_cv_exeext + break;; + * ) break;; + esac +done +else + { { echo "$as_me:$LINENO: error: cannot compute suffix of executables: cannot compile and link +See \`config.log' for more details." >&5 +echo "$as_me: error: cannot compute suffix of executables: cannot compile and link +See \`config.log' for more details." >&2;} + { (exit 1); exit 1; }; } +fi + +rm -f conftest$ac_cv_exeext +echo "$as_me:$LINENO: result: $ac_cv_exeext" >&5 +echo "${ECHO_T}$ac_cv_exeext" >&6 + +rm -f conftest.$ac_ext +EXEEXT=$ac_cv_exeext +ac_exeext=$EXEEXT +echo "$as_me:$LINENO: checking for suffix of object files" >&5 +echo $ECHO_N "checking for suffix of object files... $ECHO_C" >&6 +if test "${ac_cv_objext+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ + +int +main () +{ + + ; + return 0; +} +_ACEOF +rm -f conftest.o conftest.obj +if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 + (eval $ac_compile) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; then + for ac_file in `(ls conftest.o conftest.obj; ls conftest.*) 2>/dev/null`; do + case $ac_file in + *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg ) ;; + *) ac_cv_objext=`expr "$ac_file" : '.*\.\(.*\)'` + break;; + esac +done +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +{ { echo "$as_me:$LINENO: error: cannot compute suffix of object files: cannot compile +See \`config.log' for more details." >&5 +echo "$as_me: error: cannot compute suffix of object files: cannot compile +See \`config.log' for more details." >&2;} + { (exit 1); exit 1; }; } +fi + +rm -f conftest.$ac_cv_objext conftest.$ac_ext +fi +echo "$as_me:$LINENO: result: $ac_cv_objext" >&5 +echo "${ECHO_T}$ac_cv_objext" >&6 +OBJEXT=$ac_cv_objext +ac_objext=$OBJEXT +echo "$as_me:$LINENO: checking whether we are using the GNU C++ compiler" >&5 +echo $ECHO_N "checking whether we are using the GNU C++ compiler... $ECHO_C" >&6 +if test "${ac_cv_cxx_compiler_gnu+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ + +int +main () +{ +#ifndef __GNUC__ + choke me +#endif + + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext +if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 + (eval $ac_compile) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_cxx_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest.$ac_objext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + ac_compiler_gnu=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_compiler_gnu=no +fi +rm -f conftest.err conftest.$ac_objext conftest.$ac_ext +ac_cv_cxx_compiler_gnu=$ac_compiler_gnu + +fi +echo "$as_me:$LINENO: result: $ac_cv_cxx_compiler_gnu" >&5 +echo "${ECHO_T}$ac_cv_cxx_compiler_gnu" >&6 +GXX=`test $ac_compiler_gnu = yes && echo yes` +ac_test_CXXFLAGS=${CXXFLAGS+set} +ac_save_CXXFLAGS=$CXXFLAGS +CXXFLAGS="-g" +echo "$as_me:$LINENO: checking whether $CXX accepts -g" >&5 +echo $ECHO_N "checking whether $CXX accepts -g... $ECHO_C" >&6 +if test "${ac_cv_prog_cxx_g+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ + +int +main () +{ + + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext +if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 + (eval $ac_compile) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_cxx_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest.$ac_objext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + ac_cv_prog_cxx_g=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_cv_prog_cxx_g=no +fi +rm -f conftest.err conftest.$ac_objext conftest.$ac_ext +fi +echo "$as_me:$LINENO: result: $ac_cv_prog_cxx_g" >&5 +echo "${ECHO_T}$ac_cv_prog_cxx_g" >&6 +if test "$ac_test_CXXFLAGS" = set; then + CXXFLAGS=$ac_save_CXXFLAGS +elif test $ac_cv_prog_cxx_g = yes; then + if test "$GXX" = yes; then + CXXFLAGS="-g -O2" + else + CXXFLAGS="-g" + fi +else + if test "$GXX" = yes; then + CXXFLAGS="-O2" + else + CXXFLAGS= + fi +fi +for ac_declaration in \ + '' \ + 'extern "C" void std::exit (int) throw (); using std::exit;' \ + 'extern "C" void std::exit (int); using std::exit;' \ + 'extern "C" void exit (int) throw ();' \ + 'extern "C" void exit (int);' \ + 'void exit (int);' +do + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +$ac_declaration +#include +int +main () +{ +exit (42); + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext +if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 + (eval $ac_compile) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_cxx_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest.$ac_objext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + : +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +continue +fi +rm -f conftest.err conftest.$ac_objext conftest.$ac_ext + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +$ac_declaration +int +main () +{ +exit (42); + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext +if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 + (eval $ac_compile) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_cxx_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest.$ac_objext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + break +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +fi +rm -f conftest.err conftest.$ac_objext conftest.$ac_ext +done +rm -f conftest* +if test -n "$ac_declaration"; then + echo '#ifdef __cplusplus' >>confdefs.h + echo $ac_declaration >>confdefs.h + echo '#endif' >>confdefs.h +fi + +ac_ext=c +ac_cpp='$CPP $CPPFLAGS' +ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_c_compiler_gnu +DEPDIR="${am__leading_dot}deps" + + ac_config_commands="$ac_config_commands depfiles" + + +am_make=${MAKE-make} +cat > confinc << 'END' +am__doit: + @echo done +.PHONY: am__doit +END +# If we don't find an include directive, just comment out the code. +echo "$as_me:$LINENO: checking for style of include used by $am_make" >&5 +echo $ECHO_N "checking for style of include used by $am_make... $ECHO_C" >&6 +am__include="#" +am__quote= +_am_result=none +# First try GNU make style include. +echo "include confinc" > confmf +# We grep out `Entering directory' and `Leaving directory' +# messages which can occur if `w' ends up in MAKEFLAGS. +# In particular we don't look at `^make:' because GNU make might +# be invoked under some other name (usually "gmake"), in which +# case it prints its new name instead of `make'. +if test "`$am_make -s -f confmf 2> /dev/null | grep -v 'ing directory'`" = "done"; then + am__include=include + am__quote= + _am_result=GNU +fi +# Now try BSD make style include. +if test "$am__include" = "#"; then + echo '.include "confinc"' > confmf + if test "`$am_make -s -f confmf 2> /dev/null`" = "done"; then + am__include=.include + am__quote="\"" + _am_result=BSD + fi +fi + + +echo "$as_me:$LINENO: result: $_am_result" >&5 +echo "${ECHO_T}$_am_result" >&6 +rm -f confinc confmf + +# Check whether --enable-dependency-tracking or --disable-dependency-tracking was given. +if test "${enable_dependency_tracking+set}" = set; then + enableval="$enable_dependency_tracking" + +fi; +if test "x$enable_dependency_tracking" != xno; then + am_depcomp="$ac_aux_dir/depcomp" + AMDEPBACKSLASH='\' +fi + + +if test "x$enable_dependency_tracking" != xno; then + AMDEP_TRUE= + AMDEP_FALSE='#' +else + AMDEP_TRUE='#' + AMDEP_FALSE= +fi + + + + +depcc="$CXX" am_compiler_list= + +echo "$as_me:$LINENO: checking dependency style of $depcc" >&5 +echo $ECHO_N "checking dependency style of $depcc... $ECHO_C" >&6 +if test "${am_cv_CXX_dependencies_compiler_type+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + if test -z "$AMDEP_TRUE" && test -f "$am_depcomp"; then + # We make a subdir and do the tests there. Otherwise we can end up + # making bogus files that we don't know about and never remove. For + # instance it was reported that on HP-UX the gcc test will end up + # making a dummy file named `D' -- because `-MD' means `put the output + # in D'. + mkdir conftest.dir + # Copy depcomp to subdir because otherwise we won't find it if we're + # using a relative directory. + cp "$am_depcomp" conftest.dir + cd conftest.dir + # We will build objects and dependencies in a subdirectory because + # it helps to detect inapplicable dependency modes. For instance + # both Tru64's cc and ICC support -MD to output dependencies as a + # side effect of compilation, but ICC will put the dependencies in + # the current directory while Tru64 will put them in the object + # directory. + mkdir sub + + am_cv_CXX_dependencies_compiler_type=none + if test "$am_compiler_list" = ""; then + am_compiler_list=`sed -n 's/^#*\([a-zA-Z0-9]*\))$/\1/p' < ./depcomp` + fi + for depmode in $am_compiler_list; do + # Setup a source with many dependencies, because some compilers + # like to wrap large dependency lists on column 80 (with \), and + # we should not choose a depcomp mode which is confused by this. + # + # We need to recreate these files for each test, as the compiler may + # overwrite some of them when testing with obscure command lines. + # This happens at least with the AIX C compiler. + : > sub/conftest.c + for i in 1 2 3 4 5 6; do + echo '#include "conftst'$i'.h"' >> sub/conftest.c + # Using `: > sub/conftst$i.h' creates only sub/conftst1.h with + # Solaris 8's {/usr,}/bin/sh. + touch sub/conftst$i.h + done + echo "${am__include} ${am__quote}sub/conftest.Po${am__quote}" > confmf + + case $depmode in + nosideeffect) + # after this tag, mechanisms are not by side-effect, so they'll + # only be used when explicitly requested + if test "x$enable_dependency_tracking" = xyes; then + continue + else + break + fi + ;; + none) break ;; + esac + # We check with `-c' and `-o' for the sake of the "dashmstdout" + # mode. It turns out that the SunPro C++ compiler does not properly + # handle `-M -o', and we need to detect this. + if depmode=$depmode \ + source=sub/conftest.c object=sub/conftest.${OBJEXT-o} \ + depfile=sub/conftest.Po tmpdepfile=sub/conftest.TPo \ + $SHELL ./depcomp $depcc -c -o sub/conftest.${OBJEXT-o} sub/conftest.c \ + >/dev/null 2>conftest.err && + grep sub/conftst6.h sub/conftest.Po > /dev/null 2>&1 && + grep sub/conftest.${OBJEXT-o} sub/conftest.Po > /dev/null 2>&1 && + ${MAKE-make} -s -f confmf > /dev/null 2>&1; then + # icc doesn't choke on unknown options, it will just issue warnings + # or remarks (even with -Werror). So we grep stderr for any message + # that says an option was ignored or not supported. + # When given -MP, icc 7.0 and 7.1 complain thusly: + # icc: Command line warning: ignoring option '-M'; no argument required + # The diagnosis changed in icc 8.0: + # icc: Command line remark: option '-MP' not supported + if (grep 'ignoring option' conftest.err || + grep 'not supported' conftest.err) >/dev/null 2>&1; then :; else + am_cv_CXX_dependencies_compiler_type=$depmode + break + fi + fi + done + + cd .. + rm -rf conftest.dir +else + am_cv_CXX_dependencies_compiler_type=none +fi + +fi +echo "$as_me:$LINENO: result: $am_cv_CXX_dependencies_compiler_type" >&5 +echo "${ECHO_T}$am_cv_CXX_dependencies_compiler_type" >&6 +CXXDEPMODE=depmode=$am_cv_CXX_dependencies_compiler_type + + + +if + test "x$enable_dependency_tracking" != xno \ + && test "$am_cv_CXX_dependencies_compiler_type" = gcc3; then + am__fastdepCXX_TRUE= + am__fastdepCXX_FALSE='#' +else + am__fastdepCXX_TRUE='#' + am__fastdepCXX_FALSE= +fi + + +ac_ext=c +ac_cpp='$CPP $CPPFLAGS' +ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_c_compiler_gnu +if test -n "$ac_tool_prefix"; then + # Extract the first word of "${ac_tool_prefix}gcc", so it can be a program name with args. +set dummy ${ac_tool_prefix}gcc; ac_word=$2 +echo "$as_me:$LINENO: checking for $ac_word" >&5 +echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 +if test "${ac_cv_prog_CC+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + if test -n "$CC"; then + ac_cv_prog_CC="$CC" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_CC="${ac_tool_prefix}gcc" + echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done +done + +fi +fi +CC=$ac_cv_prog_CC +if test -n "$CC"; then + echo "$as_me:$LINENO: result: $CC" >&5 +echo "${ECHO_T}$CC" >&6 +else + echo "$as_me:$LINENO: result: no" >&5 +echo "${ECHO_T}no" >&6 +fi + +fi +if test -z "$ac_cv_prog_CC"; then + ac_ct_CC=$CC + # Extract the first word of "gcc", so it can be a program name with args. +set dummy gcc; ac_word=$2 +echo "$as_me:$LINENO: checking for $ac_word" >&5 +echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 +if test "${ac_cv_prog_ac_ct_CC+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + if test -n "$ac_ct_CC"; then + ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_ac_ct_CC="gcc" + echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done +done + +fi +fi +ac_ct_CC=$ac_cv_prog_ac_ct_CC +if test -n "$ac_ct_CC"; then + echo "$as_me:$LINENO: result: $ac_ct_CC" >&5 +echo "${ECHO_T}$ac_ct_CC" >&6 +else + echo "$as_me:$LINENO: result: no" >&5 +echo "${ECHO_T}no" >&6 +fi + + CC=$ac_ct_CC +else + CC="$ac_cv_prog_CC" +fi + +if test -z "$CC"; then + if test -n "$ac_tool_prefix"; then + # Extract the first word of "${ac_tool_prefix}cc", so it can be a program name with args. +set dummy ${ac_tool_prefix}cc; ac_word=$2 +echo "$as_me:$LINENO: checking for $ac_word" >&5 +echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 +if test "${ac_cv_prog_CC+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + if test -n "$CC"; then + ac_cv_prog_CC="$CC" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_CC="${ac_tool_prefix}cc" + echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done +done + +fi +fi +CC=$ac_cv_prog_CC +if test -n "$CC"; then + echo "$as_me:$LINENO: result: $CC" >&5 +echo "${ECHO_T}$CC" >&6 +else + echo "$as_me:$LINENO: result: no" >&5 +echo "${ECHO_T}no" >&6 +fi + +fi +if test -z "$ac_cv_prog_CC"; then + ac_ct_CC=$CC + # Extract the first word of "cc", so it can be a program name with args. +set dummy cc; ac_word=$2 +echo "$as_me:$LINENO: checking for $ac_word" >&5 +echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 +if test "${ac_cv_prog_ac_ct_CC+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + if test -n "$ac_ct_CC"; then + ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_ac_ct_CC="cc" + echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done +done + +fi +fi +ac_ct_CC=$ac_cv_prog_ac_ct_CC +if test -n "$ac_ct_CC"; then + echo "$as_me:$LINENO: result: $ac_ct_CC" >&5 +echo "${ECHO_T}$ac_ct_CC" >&6 +else + echo "$as_me:$LINENO: result: no" >&5 +echo "${ECHO_T}no" >&6 +fi + + CC=$ac_ct_CC +else + CC="$ac_cv_prog_CC" +fi + +fi +if test -z "$CC"; then + # Extract the first word of "cc", so it can be a program name with args. +set dummy cc; ac_word=$2 +echo "$as_me:$LINENO: checking for $ac_word" >&5 +echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 +if test "${ac_cv_prog_CC+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + if test -n "$CC"; then + ac_cv_prog_CC="$CC" # Let the user override the test. +else + ac_prog_rejected=no +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + if test "$as_dir/$ac_word$ac_exec_ext" = "/usr/ucb/cc"; then + ac_prog_rejected=yes + continue + fi + ac_cv_prog_CC="cc" + echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done +done + +if test $ac_prog_rejected = yes; then + # We found a bogon in the path, so make sure we never use it. + set dummy $ac_cv_prog_CC + shift + if test $# != 0; then + # We chose a different compiler from the bogus one. + # However, it has the same basename, so the bogon will be chosen + # first if we set CC to just the basename; use the full file name. + shift + ac_cv_prog_CC="$as_dir/$ac_word${1+' '}$@" + fi +fi +fi +fi +CC=$ac_cv_prog_CC +if test -n "$CC"; then + echo "$as_me:$LINENO: result: $CC" >&5 +echo "${ECHO_T}$CC" >&6 +else + echo "$as_me:$LINENO: result: no" >&5 +echo "${ECHO_T}no" >&6 +fi + +fi +if test -z "$CC"; then + if test -n "$ac_tool_prefix"; then + for ac_prog in cl + do + # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. +set dummy $ac_tool_prefix$ac_prog; ac_word=$2 +echo "$as_me:$LINENO: checking for $ac_word" >&5 +echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 +if test "${ac_cv_prog_CC+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + if test -n "$CC"; then + ac_cv_prog_CC="$CC" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_CC="$ac_tool_prefix$ac_prog" + echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done +done + +fi +fi +CC=$ac_cv_prog_CC +if test -n "$CC"; then + echo "$as_me:$LINENO: result: $CC" >&5 +echo "${ECHO_T}$CC" >&6 +else + echo "$as_me:$LINENO: result: no" >&5 +echo "${ECHO_T}no" >&6 +fi + + test -n "$CC" && break + done +fi +if test -z "$CC"; then + ac_ct_CC=$CC + for ac_prog in cl +do + # Extract the first word of "$ac_prog", so it can be a program name with args. +set dummy $ac_prog; ac_word=$2 +echo "$as_me:$LINENO: checking for $ac_word" >&5 +echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 +if test "${ac_cv_prog_ac_ct_CC+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + if test -n "$ac_ct_CC"; then + ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_ac_ct_CC="$ac_prog" + echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done +done + +fi +fi +ac_ct_CC=$ac_cv_prog_ac_ct_CC +if test -n "$ac_ct_CC"; then + echo "$as_me:$LINENO: result: $ac_ct_CC" >&5 +echo "${ECHO_T}$ac_ct_CC" >&6 +else + echo "$as_me:$LINENO: result: no" >&5 +echo "${ECHO_T}no" >&6 +fi + + test -n "$ac_ct_CC" && break +done + + CC=$ac_ct_CC +fi + +fi + + +test -z "$CC" && { { echo "$as_me:$LINENO: error: no acceptable C compiler found in \$PATH +See \`config.log' for more details." >&5 +echo "$as_me: error: no acceptable C compiler found in \$PATH +See \`config.log' for more details." >&2;} + { (exit 1); exit 1; }; } + +# Provide some information about the compiler. +echo "$as_me:$LINENO:" \ + "checking for C compiler version" >&5 +ac_compiler=`set X $ac_compile; echo $2` +{ (eval echo "$as_me:$LINENO: \"$ac_compiler --version &5\"") >&5 + (eval $ac_compiler --version &5) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } +{ (eval echo "$as_me:$LINENO: \"$ac_compiler -v &5\"") >&5 + (eval $ac_compiler -v &5) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } +{ (eval echo "$as_me:$LINENO: \"$ac_compiler -V &5\"") >&5 + (eval $ac_compiler -V &5) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } + +echo "$as_me:$LINENO: checking whether we are using the GNU C compiler" >&5 +echo $ECHO_N "checking whether we are using the GNU C compiler... $ECHO_C" >&6 +if test "${ac_cv_c_compiler_gnu+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ + +int +main () +{ +#ifndef __GNUC__ + choke me +#endif + + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext +if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 + (eval $ac_compile) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest.$ac_objext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + ac_compiler_gnu=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_compiler_gnu=no +fi +rm -f conftest.err conftest.$ac_objext conftest.$ac_ext +ac_cv_c_compiler_gnu=$ac_compiler_gnu + +fi +echo "$as_me:$LINENO: result: $ac_cv_c_compiler_gnu" >&5 +echo "${ECHO_T}$ac_cv_c_compiler_gnu" >&6 +GCC=`test $ac_compiler_gnu = yes && echo yes` +ac_test_CFLAGS=${CFLAGS+set} +ac_save_CFLAGS=$CFLAGS +CFLAGS="-g" +echo "$as_me:$LINENO: checking whether $CC accepts -g" >&5 +echo $ECHO_N "checking whether $CC accepts -g... $ECHO_C" >&6 +if test "${ac_cv_prog_cc_g+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ + +int +main () +{ + + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext +if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 + (eval $ac_compile) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest.$ac_objext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + ac_cv_prog_cc_g=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_cv_prog_cc_g=no +fi +rm -f conftest.err conftest.$ac_objext conftest.$ac_ext +fi +echo "$as_me:$LINENO: result: $ac_cv_prog_cc_g" >&5 +echo "${ECHO_T}$ac_cv_prog_cc_g" >&6 +if test "$ac_test_CFLAGS" = set; then + CFLAGS=$ac_save_CFLAGS +elif test $ac_cv_prog_cc_g = yes; then + if test "$GCC" = yes; then + CFLAGS="-g -O2" + else + CFLAGS="-g" + fi +else + if test "$GCC" = yes; then + CFLAGS="-O2" + else + CFLAGS= + fi +fi +echo "$as_me:$LINENO: checking for $CC option to accept ANSI C" >&5 +echo $ECHO_N "checking for $CC option to accept ANSI C... $ECHO_C" >&6 +if test "${ac_cv_prog_cc_stdc+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + ac_cv_prog_cc_stdc=no +ac_save_CC=$CC +cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +#include +#include +#include +#include +/* Most of the following tests are stolen from RCS 5.7's src/conf.sh. */ +struct buf { int x; }; +FILE * (*rcsopen) (struct buf *, struct stat *, int); +static char *e (p, i) + char **p; + int i; +{ + return p[i]; +} +static char *f (char * (*g) (char **, int), char **p, ...) +{ + char *s; + va_list v; + va_start (v,p); + s = g (p, va_arg (v,int)); + va_end (v); + return s; +} + +/* OSF 4.0 Compaq cc is some sort of almost-ANSI by default. It has + function prototypes and stuff, but not '\xHH' hex character constants. + These don't provoke an error unfortunately, instead are silently treated + as 'x'. The following induces an error, until -std1 is added to get + proper ANSI mode. Curiously '\x00'!='x' always comes out true, for an + array size at least. It's necessary to write '\x00'==0 to get something + that's true only with -std1. */ +int osf4_cc_array ['\x00' == 0 ? 1 : -1]; + +int test (int i, double x); +struct s1 {int (*f) (int a);}; +struct s2 {int (*f) (double a);}; +int pairnames (int, char **, FILE *(*)(struct buf *, struct stat *, int), int, int); +int argc; +char **argv; +int +main () +{ +return f (e, argv, 0) != argv[0] || f (e, argv, 1) != argv[1]; + ; + return 0; +} +_ACEOF +# Don't try gcc -ansi; that turns off useful extensions and +# breaks some systems' header files. +# AIX -qlanglvl=ansi +# Ultrix and OSF/1 -std1 +# HP-UX 10.20 and later -Ae +# HP-UX older versions -Aa -D_HPUX_SOURCE +# SVR4 -Xc -D__EXTENSIONS__ +for ac_arg in "" -qlanglvl=ansi -std1 -Ae "-Aa -D_HPUX_SOURCE" "-Xc -D__EXTENSIONS__" +do + CC="$ac_save_CC $ac_arg" + rm -f conftest.$ac_objext +if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 + (eval $ac_compile) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest.$ac_objext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + ac_cv_prog_cc_stdc=$ac_arg +break +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +fi +rm -f conftest.err conftest.$ac_objext +done +rm -f conftest.$ac_ext conftest.$ac_objext +CC=$ac_save_CC + +fi + +case "x$ac_cv_prog_cc_stdc" in + x|xno) + echo "$as_me:$LINENO: result: none needed" >&5 +echo "${ECHO_T}none needed" >&6 ;; + *) + echo "$as_me:$LINENO: result: $ac_cv_prog_cc_stdc" >&5 +echo "${ECHO_T}$ac_cv_prog_cc_stdc" >&6 + CC="$CC $ac_cv_prog_cc_stdc" ;; +esac + +# Some people use a C++ compiler to compile C. Since we use `exit', +# in C++ we need to declare it. In case someone uses the same compiler +# for both compiling C and C++ we need to have the C++ compiler decide +# the declaration of exit, since it's the most demanding environment. +cat >conftest.$ac_ext <<_ACEOF +#ifndef __cplusplus + choke me +#endif +_ACEOF +rm -f conftest.$ac_objext +if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 + (eval $ac_compile) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest.$ac_objext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + for ac_declaration in \ + '' \ + 'extern "C" void std::exit (int) throw (); using std::exit;' \ + 'extern "C" void std::exit (int); using std::exit;' \ + 'extern "C" void exit (int) throw ();' \ + 'extern "C" void exit (int);' \ + 'void exit (int);' +do + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +$ac_declaration +#include +int +main () +{ +exit (42); + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext +if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 + (eval $ac_compile) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest.$ac_objext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + : +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +continue +fi +rm -f conftest.err conftest.$ac_objext conftest.$ac_ext + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +$ac_declaration +int +main () +{ +exit (42); + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext +if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 + (eval $ac_compile) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest.$ac_objext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + break +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +fi +rm -f conftest.err conftest.$ac_objext conftest.$ac_ext +done +rm -f conftest* +if test -n "$ac_declaration"; then + echo '#ifdef __cplusplus' >>confdefs.h + echo $ac_declaration >>confdefs.h + echo '#endif' >>confdefs.h +fi + +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +fi +rm -f conftest.err conftest.$ac_objext conftest.$ac_ext +ac_ext=c +ac_cpp='$CPP $CPPFLAGS' +ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_c_compiler_gnu + +depcc="$CC" am_compiler_list= + +echo "$as_me:$LINENO: checking dependency style of $depcc" >&5 +echo $ECHO_N "checking dependency style of $depcc... $ECHO_C" >&6 +if test "${am_cv_CC_dependencies_compiler_type+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + if test -z "$AMDEP_TRUE" && test -f "$am_depcomp"; then + # We make a subdir and do the tests there. Otherwise we can end up + # making bogus files that we don't know about and never remove. For + # instance it was reported that on HP-UX the gcc test will end up + # making a dummy file named `D' -- because `-MD' means `put the output + # in D'. + mkdir conftest.dir + # Copy depcomp to subdir because otherwise we won't find it if we're + # using a relative directory. + cp "$am_depcomp" conftest.dir + cd conftest.dir + # We will build objects and dependencies in a subdirectory because + # it helps to detect inapplicable dependency modes. For instance + # both Tru64's cc and ICC support -MD to output dependencies as a + # side effect of compilation, but ICC will put the dependencies in + # the current directory while Tru64 will put them in the object + # directory. + mkdir sub + + am_cv_CC_dependencies_compiler_type=none + if test "$am_compiler_list" = ""; then + am_compiler_list=`sed -n 's/^#*\([a-zA-Z0-9]*\))$/\1/p' < ./depcomp` + fi + for depmode in $am_compiler_list; do + # Setup a source with many dependencies, because some compilers + # like to wrap large dependency lists on column 80 (with \), and + # we should not choose a depcomp mode which is confused by this. + # + # We need to recreate these files for each test, as the compiler may + # overwrite some of them when testing with obscure command lines. + # This happens at least with the AIX C compiler. + : > sub/conftest.c + for i in 1 2 3 4 5 6; do + echo '#include "conftst'$i'.h"' >> sub/conftest.c + # Using `: > sub/conftst$i.h' creates only sub/conftst1.h with + # Solaris 8's {/usr,}/bin/sh. + touch sub/conftst$i.h + done + echo "${am__include} ${am__quote}sub/conftest.Po${am__quote}" > confmf + + case $depmode in + nosideeffect) + # after this tag, mechanisms are not by side-effect, so they'll + # only be used when explicitly requested + if test "x$enable_dependency_tracking" = xyes; then + continue + else + break + fi + ;; + none) break ;; + esac + # We check with `-c' and `-o' for the sake of the "dashmstdout" + # mode. It turns out that the SunPro C++ compiler does not properly + # handle `-M -o', and we need to detect this. + if depmode=$depmode \ + source=sub/conftest.c object=sub/conftest.${OBJEXT-o} \ + depfile=sub/conftest.Po tmpdepfile=sub/conftest.TPo \ + $SHELL ./depcomp $depcc -c -o sub/conftest.${OBJEXT-o} sub/conftest.c \ + >/dev/null 2>conftest.err && + grep sub/conftst6.h sub/conftest.Po > /dev/null 2>&1 && + grep sub/conftest.${OBJEXT-o} sub/conftest.Po > /dev/null 2>&1 && + ${MAKE-make} -s -f confmf > /dev/null 2>&1; then + # icc doesn't choke on unknown options, it will just issue warnings + # or remarks (even with -Werror). So we grep stderr for any message + # that says an option was ignored or not supported. + # When given -MP, icc 7.0 and 7.1 complain thusly: + # icc: Command line warning: ignoring option '-M'; no argument required + # The diagnosis changed in icc 8.0: + # icc: Command line remark: option '-MP' not supported + if (grep 'ignoring option' conftest.err || + grep 'not supported' conftest.err) >/dev/null 2>&1; then :; else + am_cv_CC_dependencies_compiler_type=$depmode + break + fi + fi + done + + cd .. + rm -rf conftest.dir +else + am_cv_CC_dependencies_compiler_type=none +fi + +fi +echo "$as_me:$LINENO: result: $am_cv_CC_dependencies_compiler_type" >&5 +echo "${ECHO_T}$am_cv_CC_dependencies_compiler_type" >&6 +CCDEPMODE=depmode=$am_cv_CC_dependencies_compiler_type + + + +if + test "x$enable_dependency_tracking" != xno \ + && test "$am_cv_CC_dependencies_compiler_type" = gcc3; then + am__fastdepCC_TRUE= + am__fastdepCC_FALSE='#' +else + am__fastdepCC_TRUE='#' + am__fastdepCC_FALSE= +fi + + +# Find a good install program. We prefer a C program (faster), +# so one script is as good as another. But avoid the broken or +# incompatible versions: +# SysV /etc/install, /usr/sbin/install +# SunOS /usr/etc/install +# IRIX /sbin/install +# AIX /bin/install +# AmigaOS /C/install, which installs bootblocks on floppy discs +# AIX 4 /usr/bin/installbsd, which doesn't work without a -g flag +# AFS /usr/afsws/bin/install, which mishandles nonexistent args +# SVR4 /usr/ucb/install, which tries to use the nonexistent group "staff" +# OS/2's system install, which has a completely different semantic +# ./install, which can be erroneously created by make from ./install.sh. +echo "$as_me:$LINENO: checking for a BSD-compatible install" >&5 +echo $ECHO_N "checking for a BSD-compatible install... $ECHO_C" >&6 +if test -z "$INSTALL"; then +if test "${ac_cv_path_install+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + # Account for people who put trailing slashes in PATH elements. +case $as_dir/ in + ./ | .// | /cC/* | \ + /etc/* | /usr/sbin/* | /usr/etc/* | /sbin/* | /usr/afsws/bin/* | \ + ?:\\/os2\\/install\\/* | ?:\\/OS2\\/INSTALL\\/* | \ + /usr/ucb/* ) ;; + *) + # OSF1 and SCO ODT 3.0 have their own names for install. + # Don't use installbsd from OSF since it installs stuff as root + # by default. + for ac_prog in ginstall scoinst install; do + for ac_exec_ext in '' $ac_executable_extensions; do + if $as_executable_p "$as_dir/$ac_prog$ac_exec_ext"; then + if test $ac_prog = install && + grep dspmsg "$as_dir/$ac_prog$ac_exec_ext" >/dev/null 2>&1; then + # AIX install. It has an incompatible calling convention. + : + elif test $ac_prog = install && + grep pwplus "$as_dir/$ac_prog$ac_exec_ext" >/dev/null 2>&1; then + # program-specific install script used by HP pwplus--don't use. + : + else + ac_cv_path_install="$as_dir/$ac_prog$ac_exec_ext -c" + break 3 + fi + fi + done + done + ;; +esac +done + + +fi + if test "${ac_cv_path_install+set}" = set; then + INSTALL=$ac_cv_path_install + else + # As a last resort, use the slow shell script. We don't cache a + # path for INSTALL within a source directory, because that will + # break other packages using the cache if that directory is + # removed, or if the path is relative. + INSTALL=$ac_install_sh + fi +fi +echo "$as_me:$LINENO: result: $INSTALL" >&5 +echo "${ECHO_T}$INSTALL" >&6 + +# Use test -z because SunOS4 sh mishandles braces in ${var-val}. +# It thinks the first close brace ends the variable substitution. +test -z "$INSTALL_PROGRAM" && INSTALL_PROGRAM='${INSTALL}' + +test -z "$INSTALL_SCRIPT" && INSTALL_SCRIPT='${INSTALL}' + +test -z "$INSTALL_DATA" && INSTALL_DATA='${INSTALL} -m 644' + +if test -n "$ac_tool_prefix"; then + # Extract the first word of "${ac_tool_prefix}ranlib", so it can be a program name with args. +set dummy ${ac_tool_prefix}ranlib; ac_word=$2 +echo "$as_me:$LINENO: checking for $ac_word" >&5 +echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 +if test "${ac_cv_prog_RANLIB+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + if test -n "$RANLIB"; then + ac_cv_prog_RANLIB="$RANLIB" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_RANLIB="${ac_tool_prefix}ranlib" + echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done +done + +fi +fi +RANLIB=$ac_cv_prog_RANLIB +if test -n "$RANLIB"; then + echo "$as_me:$LINENO: result: $RANLIB" >&5 +echo "${ECHO_T}$RANLIB" >&6 +else + echo "$as_me:$LINENO: result: no" >&5 +echo "${ECHO_T}no" >&6 +fi + +fi +if test -z "$ac_cv_prog_RANLIB"; then + ac_ct_RANLIB=$RANLIB + # Extract the first word of "ranlib", so it can be a program name with args. +set dummy ranlib; ac_word=$2 +echo "$as_me:$LINENO: checking for $ac_word" >&5 +echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 +if test "${ac_cv_prog_ac_ct_RANLIB+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + if test -n "$ac_ct_RANLIB"; then + ac_cv_prog_ac_ct_RANLIB="$ac_ct_RANLIB" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_ac_ct_RANLIB="ranlib" + echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done +done + + test -z "$ac_cv_prog_ac_ct_RANLIB" && ac_cv_prog_ac_ct_RANLIB=":" +fi +fi +ac_ct_RANLIB=$ac_cv_prog_ac_ct_RANLIB +if test -n "$ac_ct_RANLIB"; then + echo "$as_me:$LINENO: result: $ac_ct_RANLIB" >&5 +echo "${ECHO_T}$ac_ct_RANLIB" >&6 +else + echo "$as_me:$LINENO: result: no" >&5 +echo "${ECHO_T}no" >&6 +fi + + RANLIB=$ac_ct_RANLIB +else + RANLIB="$ac_cv_prog_RANLIB" +fi + +if test X"$ac_cv_enable_m32" = Xyes +then + CFLAGS="$CFLAGS -m32" + CPPFLAGS="$CPPFLAGS -m32" + LDFLAGS="$LDFLAGS -m32" +fi +# Check whether --enable-shared or --disable-shared was given. +if test "${enable_shared+set}" = set; then + enableval="$enable_shared" + p=${PACKAGE-default} + case $enableval in + yes) enable_shared=yes ;; + no) enable_shared=no ;; + *) + enable_shared=no + # Look at the argument we got. We use all the common list separators. + lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR," + for pkg in $enableval; do + IFS="$lt_save_ifs" + if test "X$pkg" = "X$p"; then + enable_shared=yes + fi + done + IFS="$lt_save_ifs" + ;; + esac +else + enable_shared=yes +fi; + +# Check whether --enable-static or --disable-static was given. +if test "${enable_static+set}" = set; then + enableval="$enable_static" + p=${PACKAGE-default} + case $enableval in + yes) enable_static=yes ;; + no) enable_static=no ;; + *) + enable_static=no + # Look at the argument we got. We use all the common list separators. + lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR," + for pkg in $enableval; do + IFS="$lt_save_ifs" + if test "X$pkg" = "X$p"; then + enable_static=yes + fi + done + IFS="$lt_save_ifs" + ;; + esac +else + enable_static=yes +fi; + +# Check whether --enable-fast-install or --disable-fast-install was given. +if test "${enable_fast_install+set}" = set; then + enableval="$enable_fast_install" + p=${PACKAGE-default} + case $enableval in + yes) enable_fast_install=yes ;; + no) enable_fast_install=no ;; + *) + enable_fast_install=no + # Look at the argument we got. We use all the common list separators. + lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR," + for pkg in $enableval; do + IFS="$lt_save_ifs" + if test "X$pkg" = "X$p"; then + enable_fast_install=yes + fi + done + IFS="$lt_save_ifs" + ;; + esac +else + enable_fast_install=yes +fi; + +# Make sure we can run config.sub. +$ac_config_sub sun4 >/dev/null 2>&1 || + { { echo "$as_me:$LINENO: error: cannot run $ac_config_sub" >&5 +echo "$as_me: error: cannot run $ac_config_sub" >&2;} + { (exit 1); exit 1; }; } + +echo "$as_me:$LINENO: checking build system type" >&5 +echo $ECHO_N "checking build system type... $ECHO_C" >&6 +if test "${ac_cv_build+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + ac_cv_build_alias=$build_alias +test -z "$ac_cv_build_alias" && + ac_cv_build_alias=`$ac_config_guess` +test -z "$ac_cv_build_alias" && + { { echo "$as_me:$LINENO: error: cannot guess build type; you must specify one" >&5 +echo "$as_me: error: cannot guess build type; you must specify one" >&2;} + { (exit 1); exit 1; }; } +ac_cv_build=`$ac_config_sub $ac_cv_build_alias` || + { { echo "$as_me:$LINENO: error: $ac_config_sub $ac_cv_build_alias failed" >&5 +echo "$as_me: error: $ac_config_sub $ac_cv_build_alias failed" >&2;} + { (exit 1); exit 1; }; } + +fi +echo "$as_me:$LINENO: result: $ac_cv_build" >&5 +echo "${ECHO_T}$ac_cv_build" >&6 +build=$ac_cv_build +build_cpu=`echo $ac_cv_build | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\1/'` +build_vendor=`echo $ac_cv_build | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\2/'` +build_os=`echo $ac_cv_build | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\3/'` + + +echo "$as_me:$LINENO: checking host system type" >&5 +echo $ECHO_N "checking host system type... $ECHO_C" >&6 +if test "${ac_cv_host+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + ac_cv_host_alias=$host_alias +test -z "$ac_cv_host_alias" && + ac_cv_host_alias=$ac_cv_build_alias +ac_cv_host=`$ac_config_sub $ac_cv_host_alias` || + { { echo "$as_me:$LINENO: error: $ac_config_sub $ac_cv_host_alias failed" >&5 +echo "$as_me: error: $ac_config_sub $ac_cv_host_alias failed" >&2;} + { (exit 1); exit 1; }; } + +fi +echo "$as_me:$LINENO: result: $ac_cv_host" >&5 +echo "${ECHO_T}$ac_cv_host" >&6 +host=$ac_cv_host +host_cpu=`echo $ac_cv_host | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\1/'` +host_vendor=`echo $ac_cv_host | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\2/'` +host_os=`echo $ac_cv_host | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\3/'` + + +echo "$as_me:$LINENO: checking for a sed that does not truncate output" >&5 +echo $ECHO_N "checking for a sed that does not truncate output... $ECHO_C" >&6 +if test "${lt_cv_path_SED+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + # Loop through the user's path and test for sed and gsed. +# Then use that list of sed's as ones to test for truncation. +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for lt_ac_prog in sed gsed; do + for ac_exec_ext in '' $ac_executable_extensions; do + if $as_executable_p "$as_dir/$lt_ac_prog$ac_exec_ext"; then + lt_ac_sed_list="$lt_ac_sed_list $as_dir/$lt_ac_prog$ac_exec_ext" + fi + done + done +done +lt_ac_max=0 +lt_ac_count=0 +# Add /usr/xpg4/bin/sed as it is typically found on Solaris +# along with /bin/sed that truncates output. +for lt_ac_sed in $lt_ac_sed_list /usr/xpg4/bin/sed; do + test ! -f $lt_ac_sed && continue + cat /dev/null > conftest.in + lt_ac_count=0 + echo $ECHO_N "0123456789$ECHO_C" >conftest.in + # Check for GNU sed and select it if it is found. + if "$lt_ac_sed" --version 2>&1 < /dev/null | grep 'GNU' > /dev/null; then + lt_cv_path_SED=$lt_ac_sed + break + fi + while true; do + cat conftest.in conftest.in >conftest.tmp + mv conftest.tmp conftest.in + cp conftest.in conftest.nl + echo >>conftest.nl + $lt_ac_sed -e 's/a$//' < conftest.nl >conftest.out || break + cmp -s conftest.out conftest.nl || break + # 10000 chars as input seems more than enough + test $lt_ac_count -gt 10 && break + lt_ac_count=`expr $lt_ac_count + 1` + if test $lt_ac_count -gt $lt_ac_max; then + lt_ac_max=$lt_ac_count + lt_cv_path_SED=$lt_ac_sed + fi + done +done + +fi + +SED=$lt_cv_path_SED +echo "$as_me:$LINENO: result: $SED" >&5 +echo "${ECHO_T}$SED" >&6 + +echo "$as_me:$LINENO: checking for egrep" >&5 +echo $ECHO_N "checking for egrep... $ECHO_C" >&6 +if test "${ac_cv_prog_egrep+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + if echo a | (grep -E '(a|b)') >/dev/null 2>&1 + then ac_cv_prog_egrep='grep -E' + else ac_cv_prog_egrep='egrep' + fi +fi +echo "$as_me:$LINENO: result: $ac_cv_prog_egrep" >&5 +echo "${ECHO_T}$ac_cv_prog_egrep" >&6 + EGREP=$ac_cv_prog_egrep + + + +# Check whether --with-gnu-ld or --without-gnu-ld was given. +if test "${with_gnu_ld+set}" = set; then + withval="$with_gnu_ld" + test "$withval" = no || with_gnu_ld=yes +else + with_gnu_ld=no +fi; +ac_prog=ld +if test "$GCC" = yes; then + # Check if gcc -print-prog-name=ld gives a path. + echo "$as_me:$LINENO: checking for ld used by $CC" >&5 +echo $ECHO_N "checking for ld used by $CC... $ECHO_C" >&6 + case $host in + *-*-mingw*) + # gcc leaves a trailing carriage return which upsets mingw + ac_prog=`($CC -print-prog-name=ld) 2>&5 | tr -d '\015'` ;; + *) + ac_prog=`($CC -print-prog-name=ld) 2>&5` ;; + esac + case $ac_prog in + # Accept absolute paths. + [\\/]* | ?:[\\/]*) + re_direlt='/[^/][^/]*/\.\./' + # Canonicalize the pathname of ld + ac_prog=`echo $ac_prog| $SED 's%\\\\%/%g'` + while echo $ac_prog | grep "$re_direlt" > /dev/null 2>&1; do + ac_prog=`echo $ac_prog| $SED "s%$re_direlt%/%"` + done + test -z "$LD" && LD="$ac_prog" + ;; + "") + # If it fails, then pretend we aren't using GCC. + ac_prog=ld + ;; + *) + # If it is relative, then search for the first ld in PATH. + with_gnu_ld=unknown + ;; + esac +elif test "$with_gnu_ld" = yes; then + echo "$as_me:$LINENO: checking for GNU ld" >&5 +echo $ECHO_N "checking for GNU ld... $ECHO_C" >&6 +else + echo "$as_me:$LINENO: checking for non-GNU ld" >&5 +echo $ECHO_N "checking for non-GNU ld... $ECHO_C" >&6 +fi +if test "${lt_cv_path_LD+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + if test -z "$LD"; then + lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR + for ac_dir in $PATH; do + IFS="$lt_save_ifs" + test -z "$ac_dir" && ac_dir=. + if test -f "$ac_dir/$ac_prog" || test -f "$ac_dir/$ac_prog$ac_exeext"; then + lt_cv_path_LD="$ac_dir/$ac_prog" + # Check to see if the program is GNU ld. I'd rather use --version, + # but apparently some GNU ld's only accept -v. + # Break only if it was the GNU/non-GNU ld that we prefer. + case `"$lt_cv_path_LD" -v 2>&1 &5 +echo "${ECHO_T}$LD" >&6 +else + echo "$as_me:$LINENO: result: no" >&5 +echo "${ECHO_T}no" >&6 +fi +test -z "$LD" && { { echo "$as_me:$LINENO: error: no acceptable ld found in \$PATH" >&5 +echo "$as_me: error: no acceptable ld found in \$PATH" >&2;} + { (exit 1); exit 1; }; } +echo "$as_me:$LINENO: checking if the linker ($LD) is GNU ld" >&5 +echo $ECHO_N "checking if the linker ($LD) is GNU ld... $ECHO_C" >&6 +if test "${lt_cv_prog_gnu_ld+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + # I'd rather use --version here, but apparently some GNU ld's only accept -v. +case `$LD -v 2>&1 &5 +echo "${ECHO_T}$lt_cv_prog_gnu_ld" >&6 +with_gnu_ld=$lt_cv_prog_gnu_ld + + +echo "$as_me:$LINENO: checking for $LD option to reload object files" >&5 +echo $ECHO_N "checking for $LD option to reload object files... $ECHO_C" >&6 +if test "${lt_cv_ld_reload_flag+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + lt_cv_ld_reload_flag='-r' +fi +echo "$as_me:$LINENO: result: $lt_cv_ld_reload_flag" >&5 +echo "${ECHO_T}$lt_cv_ld_reload_flag" >&6 +reload_flag=$lt_cv_ld_reload_flag +case $reload_flag in +"" | " "*) ;; +*) reload_flag=" $reload_flag" ;; +esac +reload_cmds='$LD$reload_flag -o $output$reload_objs' +case $host_os in + darwin*) + if test "$GCC" = yes; then + reload_cmds='$CC -nostdlib ${wl}-r -o $output$reload_objs' + else + reload_cmds='$LD$reload_flag -o $output$reload_objs' + fi + ;; +esac + +echo "$as_me:$LINENO: checking for BSD-compatible nm" >&5 +echo $ECHO_N "checking for BSD-compatible nm... $ECHO_C" >&6 +if test "${lt_cv_path_NM+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + if test -n "$NM"; then + # Let the user override the test. + lt_cv_path_NM="$NM" +else + lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR + for ac_dir in $PATH /usr/ccs/bin /usr/ucb /bin; do + IFS="$lt_save_ifs" + test -z "$ac_dir" && ac_dir=. + tmp_nm="$ac_dir/${ac_tool_prefix}nm" + if test -f "$tmp_nm" || test -f "$tmp_nm$ac_exeext" ; then + # Check to see if the nm accepts a BSD-compat flag. + # Adding the `sed 1q' prevents false positives on HP-UX, which says: + # nm: unknown option "B" ignored + # Tru64's nm complains that /dev/null is an invalid object file + case `"$tmp_nm" -B /dev/null 2>&1 | sed '1q'` in + */dev/null* | *'Invalid file or object type'*) + lt_cv_path_NM="$tmp_nm -B" + break + ;; + *) + case `"$tmp_nm" -p /dev/null 2>&1 | sed '1q'` in + */dev/null*) + lt_cv_path_NM="$tmp_nm -p" + break + ;; + *) + lt_cv_path_NM=${lt_cv_path_NM="$tmp_nm"} # keep the first match, but + continue # so that we can try to find one that supports BSD flags + ;; + esac + esac + fi + done + IFS="$lt_save_ifs" + test -z "$lt_cv_path_NM" && lt_cv_path_NM=nm +fi +fi +echo "$as_me:$LINENO: result: $lt_cv_path_NM" >&5 +echo "${ECHO_T}$lt_cv_path_NM" >&6 +NM="$lt_cv_path_NM" + +echo "$as_me:$LINENO: checking whether ln -s works" >&5 +echo $ECHO_N "checking whether ln -s works... $ECHO_C" >&6 +LN_S=$as_ln_s +if test "$LN_S" = "ln -s"; then + echo "$as_me:$LINENO: result: yes" >&5 +echo "${ECHO_T}yes" >&6 +else + echo "$as_me:$LINENO: result: no, using $LN_S" >&5 +echo "${ECHO_T}no, using $LN_S" >&6 +fi + +echo "$as_me:$LINENO: checking how to recognise dependent libraries" >&5 +echo $ECHO_N "checking how to recognise dependent libraries... $ECHO_C" >&6 +if test "${lt_cv_deplibs_check_method+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + lt_cv_file_magic_cmd='$MAGIC_CMD' +lt_cv_file_magic_test_file= +lt_cv_deplibs_check_method='unknown' +# Need to set the preceding variable on all platforms that support +# interlibrary dependencies. +# 'none' -- dependencies not supported. +# `unknown' -- same as none, but documents that we really don't know. +# 'pass_all' -- all dependencies passed with no checks. +# 'test_compile' -- check by making test program. +# 'file_magic [[regex]]' -- check by looking for files in library path +# which responds to the $file_magic_cmd with a given extended regex. +# If you have `file' or equivalent on your system and you're not sure +# whether `pass_all' will *always* work, you probably want this one. + +case $host_os in +aix4* | aix5*) + lt_cv_deplibs_check_method=pass_all + ;; + +beos*) + lt_cv_deplibs_check_method=pass_all + ;; + +bsdi[45]*) + lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [ML]SB (shared object|dynamic lib)' + lt_cv_file_magic_cmd='/usr/bin/file -L' + lt_cv_file_magic_test_file=/shlib/libc.so + ;; + +cygwin*) + # func_win32_libid is a shell function defined in ltmain.sh + lt_cv_deplibs_check_method='file_magic ^x86 archive import|^x86 DLL' + lt_cv_file_magic_cmd='func_win32_libid' + ;; + +mingw* | pw32*) + # Base MSYS/MinGW do not provide the 'file' command needed by + # func_win32_libid shell function, so use a weaker test based on 'objdump'. + lt_cv_deplibs_check_method='file_magic file format pei*-i386(.*architecture: i386)?' + lt_cv_file_magic_cmd='$OBJDUMP -f' + ;; + +darwin* | rhapsody*) + lt_cv_deplibs_check_method=pass_all + ;; + +freebsd* | kfreebsd*-gnu | dragonfly*) + if echo __ELF__ | $CC -E - | grep __ELF__ > /dev/null; then + case $host_cpu in + i*86 ) + # Not sure whether the presence of OpenBSD here was a mistake. + # Let's accept both of them until this is cleared up. + lt_cv_deplibs_check_method='file_magic (FreeBSD|OpenBSD|DragonFly)/i[3-9]86 (compact )?demand paged shared library' + lt_cv_file_magic_cmd=/usr/bin/file + lt_cv_file_magic_test_file=`echo /usr/lib/libc.so.*` + ;; + esac + else + lt_cv_deplibs_check_method=pass_all + fi + ;; + +gnu*) + lt_cv_deplibs_check_method=pass_all + ;; + +hpux10.20* | hpux11*) + lt_cv_file_magic_cmd=/usr/bin/file + case "$host_cpu" in + ia64*) + lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|ELF-[0-9][0-9]) shared object file - IA64' + lt_cv_file_magic_test_file=/usr/lib/hpux32/libc.so + ;; + hppa*64*) + lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|ELF-[0-9][0-9]) shared object file - PA-RISC [0-9].[0-9]' + lt_cv_file_magic_test_file=/usr/lib/pa20_64/libc.sl + ;; + *) + lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|PA-RISC[0-9].[0-9]) shared library' + lt_cv_file_magic_test_file=/usr/lib/libc.sl + ;; + esac + ;; + +irix5* | irix6* | nonstopux*) + case $LD in + *-32|*"-32 ") libmagic=32-bit;; + *-n32|*"-n32 ") libmagic=N32;; + *-64|*"-64 ") libmagic=64-bit;; + *) libmagic=never-match;; + esac + lt_cv_deplibs_check_method=pass_all + ;; + +# This must be Linux ELF. +linux*) + lt_cv_deplibs_check_method=pass_all + ;; + +netbsd*) + if echo __ELF__ | $CC -E - | grep __ELF__ > /dev/null; then + lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so\.[0-9]+\.[0-9]+|_pic\.a)$' + else + lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so|_pic\.a)$' + fi + ;; + +newos6*) + lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [ML]SB (executable|dynamic lib)' + lt_cv_file_magic_cmd=/usr/bin/file + lt_cv_file_magic_test_file=/usr/lib/libnls.so + ;; + +nto-qnx*) + lt_cv_deplibs_check_method=unknown + ;; + +openbsd*) + if test -z "`echo __ELF__ | $CC -E - | grep __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then + lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so\.[0-9]+\.[0-9]+|\.so|_pic\.a)$' + else + lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so\.[0-9]+\.[0-9]+|_pic\.a)$' + fi + ;; + +osf3* | osf4* | osf5*) + lt_cv_deplibs_check_method=pass_all + ;; + +sco3.2v5*) + lt_cv_deplibs_check_method=pass_all + ;; + +solaris*) + lt_cv_deplibs_check_method=pass_all + ;; + +sysv4 | sysv4.2uw2* | sysv4.3* | sysv5*) + case $host_vendor in + motorola) + lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [ML]SB (shared object|dynamic lib) M[0-9][0-9]* Version [0-9]' + lt_cv_file_magic_test_file=`echo /usr/lib/libc.so*` + ;; + ncr) + lt_cv_deplibs_check_method=pass_all + ;; + sequent) + lt_cv_file_magic_cmd='/bin/file' + lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [LM]SB (shared object|dynamic lib )' + ;; + sni) + lt_cv_file_magic_cmd='/bin/file' + lt_cv_deplibs_check_method="file_magic ELF [0-9][0-9]*-bit [LM]SB dynamic lib" + lt_cv_file_magic_test_file=/lib/libc.so + ;; + siemens) + lt_cv_deplibs_check_method=pass_all + ;; + esac + ;; + +sysv5OpenUNIX8* | sysv5UnixWare7* | sysv5uw[78]* | unixware7* | sysv4*uw2*) + lt_cv_deplibs_check_method=pass_all + ;; +esac + +fi +echo "$as_me:$LINENO: result: $lt_cv_deplibs_check_method" >&5 +echo "${ECHO_T}$lt_cv_deplibs_check_method" >&6 +file_magic_cmd=$lt_cv_file_magic_cmd +deplibs_check_method=$lt_cv_deplibs_check_method +test -z "$deplibs_check_method" && deplibs_check_method=unknown + + + + +# If no C compiler was specified, use CC. +LTCC=${LTCC-"$CC"} + +# Allow CC to be a program name with arguments. +compiler=$CC + + +# Check whether --enable-libtool-lock or --disable-libtool-lock was given. +if test "${enable_libtool_lock+set}" = set; then + enableval="$enable_libtool_lock" + +fi; +test "x$enable_libtool_lock" != xno && enable_libtool_lock=yes + +# Some flags need to be propagated to the compiler or linker for good +# libtool support. +case $host in +ia64-*-hpux*) + # Find out which ABI we are using. + echo 'int i;' > conftest.$ac_ext + if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 + (eval $ac_compile) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; then + case `/usr/bin/file conftest.$ac_objext` in + *ELF-32*) + HPUX_IA64_MODE="32" + ;; + *ELF-64*) + HPUX_IA64_MODE="64" + ;; + esac + fi + rm -rf conftest* + ;; +*-*-irix6*) + # Find out which ABI we are using. + echo '#line 4316 "configure"' > conftest.$ac_ext + if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 + (eval $ac_compile) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; then + if test "$lt_cv_prog_gnu_ld" = yes; then + case `/usr/bin/file conftest.$ac_objext` in + *32-bit*) + LD="${LD-ld} -melf32bsmip" + ;; + *N32*) + LD="${LD-ld} -melf32bmipn32" + ;; + *64-bit*) + LD="${LD-ld} -melf64bmip" + ;; + esac + else + case `/usr/bin/file conftest.$ac_objext` in + *32-bit*) + LD="${LD-ld} -32" + ;; + *N32*) + LD="${LD-ld} -n32" + ;; + *64-bit*) + LD="${LD-ld} -64" + ;; + esac + fi + fi + rm -rf conftest* + ;; + +x86_64-*linux*|ppc*-*linux*|powerpc*-*linux*|s390*-*linux*|sparc*-*linux*) + # Find out which ABI we are using. + echo 'int i;' > conftest.$ac_ext + if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 + (eval $ac_compile) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; then + case "`/usr/bin/file conftest.o`" in + *32-bit*) + case $host in + x86_64-*linux*) + LD="${LD-ld} -m elf_i386" + ;; + ppc64-*linux*|powerpc64-*linux*) + LD="${LD-ld} -m elf32ppclinux" + ;; + s390x-*linux*) + LD="${LD-ld} -m elf_s390" + ;; + sparc64-*linux*) + LD="${LD-ld} -m elf32_sparc" + ;; + esac + ;; + *64-bit*) + case $host in + x86_64-*linux*) + LD="${LD-ld} -m elf_x86_64" + ;; + ppc*-*linux*|powerpc*-*linux*) + LD="${LD-ld} -m elf64ppc" + ;; + s390*-*linux*) + LD="${LD-ld} -m elf64_s390" + ;; + sparc*-*linux*) + LD="${LD-ld} -m elf64_sparc" + ;; + esac + ;; + esac + fi + rm -rf conftest* + ;; + +*-*-sco3.2v5*) + # On SCO OpenServer 5, we need -belf to get full-featured binaries. + SAVE_CFLAGS="$CFLAGS" + CFLAGS="$CFLAGS -belf" + echo "$as_me:$LINENO: checking whether the C compiler needs -belf" >&5 +echo $ECHO_N "checking whether the C compiler needs -belf... $ECHO_C" >&6 +if test "${lt_cv_cc_needs_belf+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + ac_ext=c +ac_cpp='$CPP $CPPFLAGS' +ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_c_compiler_gnu + + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ + +int +main () +{ + + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext conftest$ac_exeext +if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest$ac_exeext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + lt_cv_cc_needs_belf=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +lt_cv_cc_needs_belf=no +fi +rm -f conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext + ac_ext=c +ac_cpp='$CPP $CPPFLAGS' +ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_c_compiler_gnu + +fi +echo "$as_me:$LINENO: result: $lt_cv_cc_needs_belf" >&5 +echo "${ECHO_T}$lt_cv_cc_needs_belf" >&6 + if test x"$lt_cv_cc_needs_belf" != x"yes"; then + # this is probably gcc 2.8.0, egcs 1.0 or newer; no need for -belf + CFLAGS="$SAVE_CFLAGS" + fi + ;; + +esac + +need_locks="$enable_libtool_lock" + + +ac_ext=c +ac_cpp='$CPP $CPPFLAGS' +ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_c_compiler_gnu +echo "$as_me:$LINENO: checking how to run the C preprocessor" >&5 +echo $ECHO_N "checking how to run the C preprocessor... $ECHO_C" >&6 +# On Suns, sometimes $CPP names a directory. +if test -n "$CPP" && test -d "$CPP"; then + CPP= +fi +if test -z "$CPP"; then + if test "${ac_cv_prog_CPP+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + # Double quotes because CPP needs to be expanded + for CPP in "$CC -E" "$CC -E -traditional-cpp" "/lib/cpp" + do + ac_preproc_ok=false +for ac_c_preproc_warn_flag in '' yes +do + # Use a header file that comes with gcc, so configuring glibc + # with a fresh cross-compiler works. + # Prefer to if __STDC__ is defined, since + # exists even on freestanding compilers. + # On the NeXT, cc -E runs the code through the compiler's parser, + # not just through cpp. "Syntax error" is here to catch this case. + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +#ifdef __STDC__ +# include +#else +# include +#endif + Syntax error +_ACEOF +if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 + (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } >/dev/null; then + if test -s conftest.err; then + ac_cpp_err=$ac_c_preproc_warn_flag + ac_cpp_err=$ac_cpp_err$ac_c_werror_flag + else + ac_cpp_err= + fi +else + ac_cpp_err=yes +fi +if test -z "$ac_cpp_err"; then + : +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + + # Broken: fails on valid input. +continue +fi +rm -f conftest.err conftest.$ac_ext + + # OK, works on sane cases. Now check whether non-existent headers + # can be detected and how. + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +#include +_ACEOF +if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 + (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } >/dev/null; then + if test -s conftest.err; then + ac_cpp_err=$ac_c_preproc_warn_flag + ac_cpp_err=$ac_cpp_err$ac_c_werror_flag + else + ac_cpp_err= + fi +else + ac_cpp_err=yes +fi +if test -z "$ac_cpp_err"; then + # Broken: success on invalid input. +continue +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + + # Passes both tests. +ac_preproc_ok=: +break +fi +rm -f conftest.err conftest.$ac_ext + +done +# Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. +rm -f conftest.err conftest.$ac_ext +if $ac_preproc_ok; then + break +fi + + done + ac_cv_prog_CPP=$CPP + +fi + CPP=$ac_cv_prog_CPP +else + ac_cv_prog_CPP=$CPP +fi +echo "$as_me:$LINENO: result: $CPP" >&5 +echo "${ECHO_T}$CPP" >&6 +ac_preproc_ok=false +for ac_c_preproc_warn_flag in '' yes +do + # Use a header file that comes with gcc, so configuring glibc + # with a fresh cross-compiler works. + # Prefer to if __STDC__ is defined, since + # exists even on freestanding compilers. + # On the NeXT, cc -E runs the code through the compiler's parser, + # not just through cpp. "Syntax error" is here to catch this case. + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +#ifdef __STDC__ +# include +#else +# include +#endif + Syntax error +_ACEOF +if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 + (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } >/dev/null; then + if test -s conftest.err; then + ac_cpp_err=$ac_c_preproc_warn_flag + ac_cpp_err=$ac_cpp_err$ac_c_werror_flag + else + ac_cpp_err= + fi +else + ac_cpp_err=yes +fi +if test -z "$ac_cpp_err"; then + : +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + + # Broken: fails on valid input. +continue +fi +rm -f conftest.err conftest.$ac_ext + + # OK, works on sane cases. Now check whether non-existent headers + # can be detected and how. + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +#include +_ACEOF +if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 + (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } >/dev/null; then + if test -s conftest.err; then + ac_cpp_err=$ac_c_preproc_warn_flag + ac_cpp_err=$ac_cpp_err$ac_c_werror_flag + else + ac_cpp_err= + fi +else + ac_cpp_err=yes +fi +if test -z "$ac_cpp_err"; then + # Broken: success on invalid input. +continue +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + + # Passes both tests. +ac_preproc_ok=: +break +fi +rm -f conftest.err conftest.$ac_ext + +done +# Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. +rm -f conftest.err conftest.$ac_ext +if $ac_preproc_ok; then + : +else + { { echo "$as_me:$LINENO: error: C preprocessor \"$CPP\" fails sanity check +See \`config.log' for more details." >&5 +echo "$as_me: error: C preprocessor \"$CPP\" fails sanity check +See \`config.log' for more details." >&2;} + { (exit 1); exit 1; }; } +fi + +ac_ext=c +ac_cpp='$CPP $CPPFLAGS' +ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_c_compiler_gnu + + +echo "$as_me:$LINENO: checking for ANSI C header files" >&5 +echo $ECHO_N "checking for ANSI C header files... $ECHO_C" >&6 +if test "${ac_cv_header_stdc+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +#include +#include +#include +#include + +int +main () +{ + + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext +if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 + (eval $ac_compile) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest.$ac_objext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + ac_cv_header_stdc=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_cv_header_stdc=no +fi +rm -f conftest.err conftest.$ac_objext conftest.$ac_ext + +if test $ac_cv_header_stdc = yes; then + # SunOS 4.x string.h does not declare mem*, contrary to ANSI. + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +#include + +_ACEOF +if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | + $EGREP "memchr" >/dev/null 2>&1; then + : +else + ac_cv_header_stdc=no +fi +rm -f conftest* + +fi + +if test $ac_cv_header_stdc = yes; then + # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI. + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +#include + +_ACEOF +if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | + $EGREP "free" >/dev/null 2>&1; then + : +else + ac_cv_header_stdc=no +fi +rm -f conftest* + +fi + +if test $ac_cv_header_stdc = yes; then + # /bin/cc in Irix-4.0.5 gets non-ANSI ctype macros unless using -ansi. + if test "$cross_compiling" = yes; then + : +else + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +#include +#if ((' ' & 0x0FF) == 0x020) +# define ISLOWER(c) ('a' <= (c) && (c) <= 'z') +# define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c)) +#else +# define ISLOWER(c) \ + (('a' <= (c) && (c) <= 'i') \ + || ('j' <= (c) && (c) <= 'r') \ + || ('s' <= (c) && (c) <= 'z')) +# define TOUPPER(c) (ISLOWER(c) ? ((c) | 0x40) : (c)) +#endif + +#define XOR(e, f) (((e) && !(f)) || (!(e) && (f))) +int +main () +{ + int i; + for (i = 0; i < 256; i++) + if (XOR (islower (i), ISLOWER (i)) + || toupper (i) != TOUPPER (i)) + exit(2); + exit (0); +} +_ACEOF +rm -f conftest$ac_exeext +if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && { ac_try='./conftest$ac_exeext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + : +else + echo "$as_me: program exited with status $ac_status" >&5 +echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +( exit $ac_status ) +ac_cv_header_stdc=no +fi +rm -f core *.core gmon.out bb.out conftest$ac_exeext conftest.$ac_objext conftest.$ac_ext +fi +fi +fi +echo "$as_me:$LINENO: result: $ac_cv_header_stdc" >&5 +echo "${ECHO_T}$ac_cv_header_stdc" >&6 +if test $ac_cv_header_stdc = yes; then + +cat >>confdefs.h <<\_ACEOF +#define STDC_HEADERS 1 +_ACEOF + +fi + +# On IRIX 5.3, sys/types and inttypes.h are conflicting. + + + + + + + + + +for ac_header in sys/types.h sys/stat.h stdlib.h string.h memory.h strings.h \ + inttypes.h stdint.h unistd.h +do +as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` +echo "$as_me:$LINENO: checking for $ac_header" >&5 +echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 +if eval "test \"\${$as_ac_Header+set}\" = set"; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +$ac_includes_default + +#include <$ac_header> +_ACEOF +rm -f conftest.$ac_objext +if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 + (eval $ac_compile) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest.$ac_objext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + eval "$as_ac_Header=yes" +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +eval "$as_ac_Header=no" +fi +rm -f conftest.err conftest.$ac_objext conftest.$ac_ext +fi +echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 +echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 +if test `eval echo '${'$as_ac_Header'}'` = yes; then + cat >>confdefs.h <<_ACEOF +#define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 +_ACEOF + +fi + +done + + + +for ac_header in dlfcn.h +do +as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` +if eval "test \"\${$as_ac_Header+set}\" = set"; then + echo "$as_me:$LINENO: checking for $ac_header" >&5 +echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 +if eval "test \"\${$as_ac_Header+set}\" = set"; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +fi +echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 +echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 +else + # Is the header compilable? +echo "$as_me:$LINENO: checking $ac_header usability" >&5 +echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6 +cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +$ac_includes_default +#include <$ac_header> +_ACEOF +rm -f conftest.$ac_objext +if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 + (eval $ac_compile) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest.$ac_objext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + ac_header_compiler=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_header_compiler=no +fi +rm -f conftest.err conftest.$ac_objext conftest.$ac_ext +echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 +echo "${ECHO_T}$ac_header_compiler" >&6 + +# Is the header present? +echo "$as_me:$LINENO: checking $ac_header presence" >&5 +echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6 +cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +#include <$ac_header> +_ACEOF +if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 + (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } >/dev/null; then + if test -s conftest.err; then + ac_cpp_err=$ac_c_preproc_warn_flag + ac_cpp_err=$ac_cpp_err$ac_c_werror_flag + else + ac_cpp_err= + fi +else + ac_cpp_err=yes +fi +if test -z "$ac_cpp_err"; then + ac_header_preproc=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + + ac_header_preproc=no +fi +rm -f conftest.err conftest.$ac_ext +echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 +echo "${ECHO_T}$ac_header_preproc" >&6 + +# So? What about this header? +case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in + yes:no: ) + { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 +echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} + { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 +echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} + ac_header_preproc=yes + ;; + no:yes:* ) + { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 +echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} + { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 +echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} + { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 +echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} + { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 +echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} + { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 +echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} + { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 +echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} + ( + cat <<\_ASBOX +## ----------------------------------- ## +## Report this to the veriwell lists. ## +## ----------------------------------- ## +_ASBOX + ) | + sed "s/^/$as_me: WARNING: /" >&2 + ;; +esac +echo "$as_me:$LINENO: checking for $ac_header" >&5 +echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 +if eval "test \"\${$as_ac_Header+set}\" = set"; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + eval "$as_ac_Header=\$ac_header_preproc" +fi +echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 +echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 + +fi +if test `eval echo '${'$as_ac_Header'}'` = yes; then + cat >>confdefs.h <<_ACEOF +#define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 +_ACEOF + +fi + +done + + + +if test -n "$CXX" && ( test "X$CXX" != "Xno" && + ( (test "X$CXX" = "Xg++" && `g++ -v >/dev/null 2>&1` ) || + (test "X$CXX" != "Xg++"))) ; then + ac_ext=cc +ac_cpp='$CXXCPP $CPPFLAGS' +ac_compile='$CXX -c $CXXFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CXX -o conftest$ac_exeext $CXXFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_cxx_compiler_gnu +echo "$as_me:$LINENO: checking how to run the C++ preprocessor" >&5 +echo $ECHO_N "checking how to run the C++ preprocessor... $ECHO_C" >&6 +if test -z "$CXXCPP"; then + if test "${ac_cv_prog_CXXCPP+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + # Double quotes because CXXCPP needs to be expanded + for CXXCPP in "$CXX -E" "/lib/cpp" + do + ac_preproc_ok=false +for ac_cxx_preproc_warn_flag in '' yes +do + # Use a header file that comes with gcc, so configuring glibc + # with a fresh cross-compiler works. + # Prefer to if __STDC__ is defined, since + # exists even on freestanding compilers. + # On the NeXT, cc -E runs the code through the compiler's parser, + # not just through cpp. "Syntax error" is here to catch this case. + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +#ifdef __STDC__ +# include +#else +# include +#endif + Syntax error +_ACEOF +if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 + (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } >/dev/null; then + if test -s conftest.err; then + ac_cpp_err=$ac_cxx_preproc_warn_flag + ac_cpp_err=$ac_cpp_err$ac_cxx_werror_flag + else + ac_cpp_err= + fi +else + ac_cpp_err=yes +fi +if test -z "$ac_cpp_err"; then + : +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + + # Broken: fails on valid input. +continue +fi +rm -f conftest.err conftest.$ac_ext + + # OK, works on sane cases. Now check whether non-existent headers + # can be detected and how. + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +#include +_ACEOF +if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 + (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } >/dev/null; then + if test -s conftest.err; then + ac_cpp_err=$ac_cxx_preproc_warn_flag + ac_cpp_err=$ac_cpp_err$ac_cxx_werror_flag + else + ac_cpp_err= + fi +else + ac_cpp_err=yes +fi +if test -z "$ac_cpp_err"; then + # Broken: success on invalid input. +continue +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + + # Passes both tests. +ac_preproc_ok=: +break +fi +rm -f conftest.err conftest.$ac_ext + +done +# Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. +rm -f conftest.err conftest.$ac_ext +if $ac_preproc_ok; then + break +fi + + done + ac_cv_prog_CXXCPP=$CXXCPP + +fi + CXXCPP=$ac_cv_prog_CXXCPP +else + ac_cv_prog_CXXCPP=$CXXCPP +fi +echo "$as_me:$LINENO: result: $CXXCPP" >&5 +echo "${ECHO_T}$CXXCPP" >&6 +ac_preproc_ok=false +for ac_cxx_preproc_warn_flag in '' yes +do + # Use a header file that comes with gcc, so configuring glibc + # with a fresh cross-compiler works. + # Prefer to if __STDC__ is defined, since + # exists even on freestanding compilers. + # On the NeXT, cc -E runs the code through the compiler's parser, + # not just through cpp. "Syntax error" is here to catch this case. + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +#ifdef __STDC__ +# include +#else +# include +#endif + Syntax error +_ACEOF +if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 + (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } >/dev/null; then + if test -s conftest.err; then + ac_cpp_err=$ac_cxx_preproc_warn_flag + ac_cpp_err=$ac_cpp_err$ac_cxx_werror_flag + else + ac_cpp_err= + fi +else + ac_cpp_err=yes +fi +if test -z "$ac_cpp_err"; then + : +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + + # Broken: fails on valid input. +continue +fi +rm -f conftest.err conftest.$ac_ext + + # OK, works on sane cases. Now check whether non-existent headers + # can be detected and how. + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +#include +_ACEOF +if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 + (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } >/dev/null; then + if test -s conftest.err; then + ac_cpp_err=$ac_cxx_preproc_warn_flag + ac_cpp_err=$ac_cpp_err$ac_cxx_werror_flag + else + ac_cpp_err= + fi +else + ac_cpp_err=yes +fi +if test -z "$ac_cpp_err"; then + # Broken: success on invalid input. +continue +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + + # Passes both tests. +ac_preproc_ok=: +break +fi +rm -f conftest.err conftest.$ac_ext + +done +# Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. +rm -f conftest.err conftest.$ac_ext +if $ac_preproc_ok; then + : +else + { { echo "$as_me:$LINENO: error: C++ preprocessor \"$CXXCPP\" fails sanity check +See \`config.log' for more details." >&5 +echo "$as_me: error: C++ preprocessor \"$CXXCPP\" fails sanity check +See \`config.log' for more details." >&2;} + { (exit 1); exit 1; }; } +fi + +ac_ext=cc +ac_cpp='$CXXCPP $CPPFLAGS' +ac_compile='$CXX -c $CXXFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CXX -o conftest$ac_exeext $CXXFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_cxx_compiler_gnu + +fi + + +ac_ext=f +ac_compile='$F77 -c $FFLAGS conftest.$ac_ext >&5' +ac_link='$F77 -o conftest$ac_exeext $FFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_f77_compiler_gnu +if test -n "$ac_tool_prefix"; then + for ac_prog in g77 f77 xlf frt pgf77 fort77 fl32 af77 f90 xlf90 pgf90 epcf90 f95 fort xlf95 ifc efc pgf95 lf95 gfortran + do + # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. +set dummy $ac_tool_prefix$ac_prog; ac_word=$2 +echo "$as_me:$LINENO: checking for $ac_word" >&5 +echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 +if test "${ac_cv_prog_F77+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + if test -n "$F77"; then + ac_cv_prog_F77="$F77" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_F77="$ac_tool_prefix$ac_prog" + echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done +done + +fi +fi +F77=$ac_cv_prog_F77 +if test -n "$F77"; then + echo "$as_me:$LINENO: result: $F77" >&5 +echo "${ECHO_T}$F77" >&6 +else + echo "$as_me:$LINENO: result: no" >&5 +echo "${ECHO_T}no" >&6 +fi + + test -n "$F77" && break + done +fi +if test -z "$F77"; then + ac_ct_F77=$F77 + for ac_prog in g77 f77 xlf frt pgf77 fort77 fl32 af77 f90 xlf90 pgf90 epcf90 f95 fort xlf95 ifc efc pgf95 lf95 gfortran +do + # Extract the first word of "$ac_prog", so it can be a program name with args. +set dummy $ac_prog; ac_word=$2 +echo "$as_me:$LINENO: checking for $ac_word" >&5 +echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 +if test "${ac_cv_prog_ac_ct_F77+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + if test -n "$ac_ct_F77"; then + ac_cv_prog_ac_ct_F77="$ac_ct_F77" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_ac_ct_F77="$ac_prog" + echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done +done + +fi +fi +ac_ct_F77=$ac_cv_prog_ac_ct_F77 +if test -n "$ac_ct_F77"; then + echo "$as_me:$LINENO: result: $ac_ct_F77" >&5 +echo "${ECHO_T}$ac_ct_F77" >&6 +else + echo "$as_me:$LINENO: result: no" >&5 +echo "${ECHO_T}no" >&6 +fi + + test -n "$ac_ct_F77" && break +done + + F77=$ac_ct_F77 +fi + + +# Provide some information about the compiler. +echo "$as_me:5431:" \ + "checking for Fortran 77 compiler version" >&5 +ac_compiler=`set X $ac_compile; echo $2` +{ (eval echo "$as_me:$LINENO: \"$ac_compiler --version &5\"") >&5 + (eval $ac_compiler --version &5) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } +{ (eval echo "$as_me:$LINENO: \"$ac_compiler -v &5\"") >&5 + (eval $ac_compiler -v &5) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } +{ (eval echo "$as_me:$LINENO: \"$ac_compiler -V &5\"") >&5 + (eval $ac_compiler -V &5) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } +rm -f a.out + +# If we don't use `.F' as extension, the preprocessor is not run on the +# input file. (Note that this only needs to work for GNU compilers.) +ac_save_ext=$ac_ext +ac_ext=F +echo "$as_me:$LINENO: checking whether we are using the GNU Fortran 77 compiler" >&5 +echo $ECHO_N "checking whether we are using the GNU Fortran 77 compiler... $ECHO_C" >&6 +if test "${ac_cv_f77_compiler_gnu+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + cat >conftest.$ac_ext <<_ACEOF + program main +#ifndef __GNUC__ + choke me +#endif + + end +_ACEOF +rm -f conftest.$ac_objext +if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 + (eval $ac_compile) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_f77_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest.$ac_objext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + ac_compiler_gnu=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_compiler_gnu=no +fi +rm -f conftest.err conftest.$ac_objext conftest.$ac_ext +ac_cv_f77_compiler_gnu=$ac_compiler_gnu + +fi +echo "$as_me:$LINENO: result: $ac_cv_f77_compiler_gnu" >&5 +echo "${ECHO_T}$ac_cv_f77_compiler_gnu" >&6 +ac_ext=$ac_save_ext +ac_test_FFLAGS=${FFLAGS+set} +ac_save_FFLAGS=$FFLAGS +FFLAGS= +echo "$as_me:$LINENO: checking whether $F77 accepts -g" >&5 +echo $ECHO_N "checking whether $F77 accepts -g... $ECHO_C" >&6 +if test "${ac_cv_prog_f77_g+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + FFLAGS=-g +cat >conftest.$ac_ext <<_ACEOF + program main + + end +_ACEOF +rm -f conftest.$ac_objext +if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 + (eval $ac_compile) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_f77_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest.$ac_objext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + ac_cv_prog_f77_g=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_cv_prog_f77_g=no +fi +rm -f conftest.err conftest.$ac_objext conftest.$ac_ext + +fi +echo "$as_me:$LINENO: result: $ac_cv_prog_f77_g" >&5 +echo "${ECHO_T}$ac_cv_prog_f77_g" >&6 +if test "$ac_test_FFLAGS" = set; then + FFLAGS=$ac_save_FFLAGS +elif test $ac_cv_prog_f77_g = yes; then + if test "x$ac_cv_f77_compiler_gnu" = xyes; then + FFLAGS="-g -O2" + else + FFLAGS="-g" + fi +else + if test "x$ac_cv_f77_compiler_gnu" = xyes; then + FFLAGS="-O2" + else + FFLAGS= + fi +fi + +G77=`test $ac_compiler_gnu = yes && echo yes` +ac_ext=c +ac_cpp='$CPP $CPPFLAGS' +ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_c_compiler_gnu + + + +# Autoconf 2.13's AC_OBJEXT and AC_EXEEXT macros only works for C compilers! + +# find the maximum length of command line arguments +echo "$as_me:$LINENO: checking the maximum length of command line arguments" >&5 +echo $ECHO_N "checking the maximum length of command line arguments... $ECHO_C" >&6 +if test "${lt_cv_sys_max_cmd_len+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + i=0 + teststring="ABCD" + + case $build_os in + msdosdjgpp*) + # On DJGPP, this test can blow up pretty badly due to problems in libc + # (any single argument exceeding 2000 bytes causes a buffer overrun + # during glob expansion). Even if it were fixed, the result of this + # check would be larger than it should be. + lt_cv_sys_max_cmd_len=12288; # 12K is about right + ;; + + gnu*) + # Under GNU Hurd, this test is not required because there is + # no limit to the length of command line arguments. + # Libtool will interpret -1 as no limit whatsoever + lt_cv_sys_max_cmd_len=-1; + ;; + + cygwin* | mingw*) + # On Win9x/ME, this test blows up -- it succeeds, but takes + # about 5 minutes as the teststring grows exponentially. + # Worse, since 9x/ME are not pre-emptively multitasking, + # you end up with a "frozen" computer, even though with patience + # the test eventually succeeds (with a max line length of 256k). + # Instead, let's just punt: use the minimum linelength reported by + # all of the supported platforms: 8192 (on NT/2K/XP). + lt_cv_sys_max_cmd_len=8192; + ;; + + amigaos*) + # On AmigaOS with pdksh, this test takes hours, literally. + # So we just punt and use a minimum line length of 8192. + lt_cv_sys_max_cmd_len=8192; + ;; + + netbsd* | freebsd* | openbsd* | darwin* | dragonfly*) + # This has been around since 386BSD, at least. Likely further. + if test -x /sbin/sysctl; then + lt_cv_sys_max_cmd_len=`/sbin/sysctl -n kern.argmax` + elif test -x /usr/sbin/sysctl; then + lt_cv_sys_max_cmd_len=`/usr/sbin/sysctl -n kern.argmax` + else + lt_cv_sys_max_cmd_len=65536 # usable default for *BSD + fi + # And add a safety zone + lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 4` + lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \* 3` + ;; + osf*) + # Dr. Hans Ekkehard Plesser reports seeing a kernel panic running configure + # due to this test when exec_disable_arg_limit is 1 on Tru64. It is not + # nice to cause kernel panics so lets avoid the loop below. + # First set a reasonable default. + lt_cv_sys_max_cmd_len=16384 + # + if test -x /sbin/sysconfig; then + case `/sbin/sysconfig -q proc exec_disable_arg_limit` in + *1*) lt_cv_sys_max_cmd_len=-1 ;; + esac + fi + ;; + *) + # If test is not a shell built-in, we'll probably end up computing a + # maximum length that is only half of the actual maximum length, but + # we can't tell. + SHELL=${SHELL-${CONFIG_SHELL-/bin/sh}} + while (test "X"`$SHELL $0 --fallback-echo "X$teststring" 2>/dev/null` \ + = "XX$teststring") >/dev/null 2>&1 && + new_result=`expr "X$teststring" : ".*" 2>&1` && + lt_cv_sys_max_cmd_len=$new_result && + test $i != 17 # 1/2 MB should be enough + do + i=`expr $i + 1` + teststring=$teststring$teststring + done + teststring= + # Add a significant safety factor because C++ compilers can tack on massive + # amounts of additional arguments before passing them to the linker. + # It appears as though 1/2 is a usable value. + lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 2` + ;; + esac + +fi + +if test -n $lt_cv_sys_max_cmd_len ; then + echo "$as_me:$LINENO: result: $lt_cv_sys_max_cmd_len" >&5 +echo "${ECHO_T}$lt_cv_sys_max_cmd_len" >&6 +else + echo "$as_me:$LINENO: result: none" >&5 +echo "${ECHO_T}none" >&6 +fi + + + + +# Check for command to grab the raw symbol name followed by C symbol from nm. +echo "$as_me:$LINENO: checking command to parse $NM output from $compiler object" >&5 +echo $ECHO_N "checking command to parse $NM output from $compiler object... $ECHO_C" >&6 +if test "${lt_cv_sys_global_symbol_pipe+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + +# These are sane defaults that work on at least a few old systems. +# [They come from Ultrix. What could be older than Ultrix?!! ;)] + +# Character class describing NM global symbol codes. +symcode='[BCDEGRST]' + +# Regexp to match symbols that can be accessed directly from C. +sympat='\([_A-Za-z][_A-Za-z0-9]*\)' + +# Transform an extracted symbol line into a proper C declaration +lt_cv_sys_global_symbol_to_cdecl="sed -n -e 's/^. .* \(.*\)$/extern int \1;/p'" + +# Transform an extracted symbol line into symbol name and symbol address +lt_cv_sys_global_symbol_to_c_name_address="sed -n -e 's/^: \([^ ]*\) $/ {\\\"\1\\\", (lt_ptr) 0},/p' -e 's/^$symcode \([^ ]*\) \([^ ]*\)$/ {\"\2\", (lt_ptr) \&\2},/p'" + +# Define system-specific variables. +case $host_os in +aix*) + symcode='[BCDT]' + ;; +cygwin* | mingw* | pw32*) + symcode='[ABCDGISTW]' + ;; +hpux*) # Its linker distinguishes data from code symbols + if test "$host_cpu" = ia64; then + symcode='[ABCDEGRST]' + fi + lt_cv_sys_global_symbol_to_cdecl="sed -n -e 's/^T .* \(.*\)$/extern int \1();/p' -e 's/^$symcode* .* \(.*\)$/extern char \1;/p'" + lt_cv_sys_global_symbol_to_c_name_address="sed -n -e 's/^: \([^ ]*\) $/ {\\\"\1\\\", (lt_ptr) 0},/p' -e 's/^$symcode* \([^ ]*\) \([^ ]*\)$/ {\"\2\", (lt_ptr) \&\2},/p'" + ;; +linux*) + if test "$host_cpu" = ia64; then + symcode='[ABCDGIRSTW]' + lt_cv_sys_global_symbol_to_cdecl="sed -n -e 's/^T .* \(.*\)$/extern int \1();/p' -e 's/^$symcode* .* \(.*\)$/extern char \1;/p'" + lt_cv_sys_global_symbol_to_c_name_address="sed -n -e 's/^: \([^ ]*\) $/ {\\\"\1\\\", (lt_ptr) 0},/p' -e 's/^$symcode* \([^ ]*\) \([^ ]*\)$/ {\"\2\", (lt_ptr) \&\2},/p'" + fi + ;; +irix* | nonstopux*) + symcode='[BCDEGRST]' + ;; +osf*) + symcode='[BCDEGQRST]' + ;; +solaris* | sysv5*) + symcode='[BDRT]' + ;; +sysv4) + symcode='[DFNSTU]' + ;; +esac + +# Handle CRLF in mingw tool chain +opt_cr= +case $build_os in +mingw*) + opt_cr=`echo 'x\{0,1\}' | tr x '\015'` # option cr in regexp + ;; +esac + +# If we're using GNU nm, then use its standard symbol codes. +case `$NM -V 2>&1` in +*GNU* | *'with BFD'*) + symcode='[ABCDGIRSTW]' ;; +esac + +# Try without a prefix undercore, then with it. +for ac_symprfx in "" "_"; do + + # Transform symcode, sympat, and symprfx into a raw symbol and a C symbol. + symxfrm="\\1 $ac_symprfx\\2 \\2" + + # Write the raw and C identifiers. + lt_cv_sys_global_symbol_pipe="sed -n -e 's/^.*[ ]\($symcode$symcode*\)[ ][ ]*$ac_symprfx$sympat$opt_cr$/$symxfrm/p'" + + # Check to see that the pipe works correctly. + pipe_works=no + + rm -f conftest* + cat > conftest.$ac_ext <&5 + (eval $ac_compile) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; then + # Now try to grab the symbols. + nlist=conftest.nm + if { (eval echo "$as_me:$LINENO: \"$NM conftest.$ac_objext \| $lt_cv_sys_global_symbol_pipe \> $nlist\"") >&5 + (eval $NM conftest.$ac_objext \| $lt_cv_sys_global_symbol_pipe \> $nlist) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && test -s "$nlist"; then + # Try sorting and uniquifying the output. + if sort "$nlist" | uniq > "$nlist"T; then + mv -f "$nlist"T "$nlist" + else + rm -f "$nlist"T + fi + + # Make sure that we snagged all the symbols we need. + if grep ' nm_test_var$' "$nlist" >/dev/null; then + if grep ' nm_test_func$' "$nlist" >/dev/null; then + cat < conftest.$ac_ext +#ifdef __cplusplus +extern "C" { +#endif + +EOF + # Now generate the symbol file. + eval "$lt_cv_sys_global_symbol_to_cdecl"' < "$nlist" | grep -v main >> conftest.$ac_ext' + + cat <> conftest.$ac_ext +#if defined (__STDC__) && __STDC__ +# define lt_ptr_t void * +#else +# define lt_ptr_t char * +# define const +#endif + +/* The mapping between symbol names and symbols. */ +const struct { + const char *name; + lt_ptr_t address; +} +lt_preloaded_symbols[] = +{ +EOF + $SED "s/^$symcode$symcode* \(.*\) \(.*\)$/ {\"\2\", (lt_ptr_t) \&\2},/" < "$nlist" | grep -v main >> conftest.$ac_ext + cat <<\EOF >> conftest.$ac_ext + {0, (lt_ptr_t) 0} +}; + +#ifdef __cplusplus +} +#endif +EOF + # Now try linking the two files. + mv conftest.$ac_objext conftstm.$ac_objext + lt_save_LIBS="$LIBS" + lt_save_CFLAGS="$CFLAGS" + LIBS="conftstm.$ac_objext" + CFLAGS="$CFLAGS$lt_prog_compiler_no_builtin_flag" + if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && test -s conftest${ac_exeext}; then + pipe_works=yes + fi + LIBS="$lt_save_LIBS" + CFLAGS="$lt_save_CFLAGS" + else + echo "cannot find nm_test_func in $nlist" >&5 + fi + else + echo "cannot find nm_test_var in $nlist" >&5 + fi + else + echo "cannot run $lt_cv_sys_global_symbol_pipe" >&5 + fi + else + echo "$progname: failed program was:" >&5 + cat conftest.$ac_ext >&5 + fi + rm -f conftest* conftst* + + # Do not use the global_symbol_pipe unless it works. + if test "$pipe_works" = yes; then + break + else + lt_cv_sys_global_symbol_pipe= + fi +done + +fi + +if test -z "$lt_cv_sys_global_symbol_pipe"; then + lt_cv_sys_global_symbol_to_cdecl= +fi +if test -z "$lt_cv_sys_global_symbol_pipe$lt_cv_sys_global_symbol_to_cdecl"; then + echo "$as_me:$LINENO: result: failed" >&5 +echo "${ECHO_T}failed" >&6 +else + echo "$as_me:$LINENO: result: ok" >&5 +echo "${ECHO_T}ok" >&6 +fi + +echo "$as_me:$LINENO: checking for objdir" >&5 +echo $ECHO_N "checking for objdir... $ECHO_C" >&6 +if test "${lt_cv_objdir+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + rm -f .libs 2>/dev/null +mkdir .libs 2>/dev/null +if test -d .libs; then + lt_cv_objdir=.libs +else + # MS-DOS does not allow filenames that begin with a dot. + lt_cv_objdir=_libs +fi +rmdir .libs 2>/dev/null +fi +echo "$as_me:$LINENO: result: $lt_cv_objdir" >&5 +echo "${ECHO_T}$lt_cv_objdir" >&6 +objdir=$lt_cv_objdir + + + + + +case $host_os in +aix3*) + # AIX sometimes has problems with the GCC collect2 program. For some + # reason, if we set the COLLECT_NAMES environment variable, the problems + # vanish in a puff of smoke. + if test "X${COLLECT_NAMES+set}" != Xset; then + COLLECT_NAMES= + export COLLECT_NAMES + fi + ;; +esac + +# Sed substitution that helps us do robust quoting. It backslashifies +# metacharacters that are still active within double-quoted strings. +Xsed='sed -e 1s/^X//' +sed_quote_subst='s/\([\\"\\`$\\\\]\)/\\\1/g' + +# Same as above, but do not quote variable references. +double_quote_subst='s/\([\\"\\`\\\\]\)/\\\1/g' + +# Sed substitution to delay expansion of an escaped shell variable in a +# double_quote_subst'ed string. +delay_variable_subst='s/\\\\\\\\\\\$/\\\\\\$/g' + +# Sed substitution to avoid accidental globbing in evaled expressions +no_glob_subst='s/\*/\\\*/g' + +# Constants: +rm="rm -f" + +# Global variables: +default_ofile=libtool +can_build_shared=yes + +# All known linkers require a `.a' archive for static linking (except M$VC, +# which needs '.lib'). +libext=a +ltmain="$ac_aux_dir/ltmain.sh" +ofile="$default_ofile" +with_gnu_ld="$lt_cv_prog_gnu_ld" + +if test -n "$ac_tool_prefix"; then + # Extract the first word of "${ac_tool_prefix}ar", so it can be a program name with args. +set dummy ${ac_tool_prefix}ar; ac_word=$2 +echo "$as_me:$LINENO: checking for $ac_word" >&5 +echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 +if test "${ac_cv_prog_AR+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + if test -n "$AR"; then + ac_cv_prog_AR="$AR" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_AR="${ac_tool_prefix}ar" + echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done +done + +fi +fi +AR=$ac_cv_prog_AR +if test -n "$AR"; then + echo "$as_me:$LINENO: result: $AR" >&5 +echo "${ECHO_T}$AR" >&6 +else + echo "$as_me:$LINENO: result: no" >&5 +echo "${ECHO_T}no" >&6 +fi + +fi +if test -z "$ac_cv_prog_AR"; then + ac_ct_AR=$AR + # Extract the first word of "ar", so it can be a program name with args. +set dummy ar; ac_word=$2 +echo "$as_me:$LINENO: checking for $ac_word" >&5 +echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 +if test "${ac_cv_prog_ac_ct_AR+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + if test -n "$ac_ct_AR"; then + ac_cv_prog_ac_ct_AR="$ac_ct_AR" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_ac_ct_AR="ar" + echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done +done + + test -z "$ac_cv_prog_ac_ct_AR" && ac_cv_prog_ac_ct_AR="false" +fi +fi +ac_ct_AR=$ac_cv_prog_ac_ct_AR +if test -n "$ac_ct_AR"; then + echo "$as_me:$LINENO: result: $ac_ct_AR" >&5 +echo "${ECHO_T}$ac_ct_AR" >&6 +else + echo "$as_me:$LINENO: result: no" >&5 +echo "${ECHO_T}no" >&6 +fi + + AR=$ac_ct_AR +else + AR="$ac_cv_prog_AR" +fi + +if test -n "$ac_tool_prefix"; then + # Extract the first word of "${ac_tool_prefix}ranlib", so it can be a program name with args. +set dummy ${ac_tool_prefix}ranlib; ac_word=$2 +echo "$as_me:$LINENO: checking for $ac_word" >&5 +echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 +if test "${ac_cv_prog_RANLIB+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + if test -n "$RANLIB"; then + ac_cv_prog_RANLIB="$RANLIB" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_RANLIB="${ac_tool_prefix}ranlib" + echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done +done + +fi +fi +RANLIB=$ac_cv_prog_RANLIB +if test -n "$RANLIB"; then + echo "$as_me:$LINENO: result: $RANLIB" >&5 +echo "${ECHO_T}$RANLIB" >&6 +else + echo "$as_me:$LINENO: result: no" >&5 +echo "${ECHO_T}no" >&6 +fi + +fi +if test -z "$ac_cv_prog_RANLIB"; then + ac_ct_RANLIB=$RANLIB + # Extract the first word of "ranlib", so it can be a program name with args. +set dummy ranlib; ac_word=$2 +echo "$as_me:$LINENO: checking for $ac_word" >&5 +echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 +if test "${ac_cv_prog_ac_ct_RANLIB+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + if test -n "$ac_ct_RANLIB"; then + ac_cv_prog_ac_ct_RANLIB="$ac_ct_RANLIB" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_ac_ct_RANLIB="ranlib" + echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done +done + + test -z "$ac_cv_prog_ac_ct_RANLIB" && ac_cv_prog_ac_ct_RANLIB=":" +fi +fi +ac_ct_RANLIB=$ac_cv_prog_ac_ct_RANLIB +if test -n "$ac_ct_RANLIB"; then + echo "$as_me:$LINENO: result: $ac_ct_RANLIB" >&5 +echo "${ECHO_T}$ac_ct_RANLIB" >&6 +else + echo "$as_me:$LINENO: result: no" >&5 +echo "${ECHO_T}no" >&6 +fi + + RANLIB=$ac_ct_RANLIB +else + RANLIB="$ac_cv_prog_RANLIB" +fi + +if test -n "$ac_tool_prefix"; then + # Extract the first word of "${ac_tool_prefix}strip", so it can be a program name with args. +set dummy ${ac_tool_prefix}strip; ac_word=$2 +echo "$as_me:$LINENO: checking for $ac_word" >&5 +echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 +if test "${ac_cv_prog_STRIP+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + if test -n "$STRIP"; then + ac_cv_prog_STRIP="$STRIP" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_STRIP="${ac_tool_prefix}strip" + echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done +done + +fi +fi +STRIP=$ac_cv_prog_STRIP +if test -n "$STRIP"; then + echo "$as_me:$LINENO: result: $STRIP" >&5 +echo "${ECHO_T}$STRIP" >&6 +else + echo "$as_me:$LINENO: result: no" >&5 +echo "${ECHO_T}no" >&6 +fi + +fi +if test -z "$ac_cv_prog_STRIP"; then + ac_ct_STRIP=$STRIP + # Extract the first word of "strip", so it can be a program name with args. +set dummy strip; ac_word=$2 +echo "$as_me:$LINENO: checking for $ac_word" >&5 +echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 +if test "${ac_cv_prog_ac_ct_STRIP+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + if test -n "$ac_ct_STRIP"; then + ac_cv_prog_ac_ct_STRIP="$ac_ct_STRIP" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_ac_ct_STRIP="strip" + echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done +done + + test -z "$ac_cv_prog_ac_ct_STRIP" && ac_cv_prog_ac_ct_STRIP=":" +fi +fi +ac_ct_STRIP=$ac_cv_prog_ac_ct_STRIP +if test -n "$ac_ct_STRIP"; then + echo "$as_me:$LINENO: result: $ac_ct_STRIP" >&5 +echo "${ECHO_T}$ac_ct_STRIP" >&6 +else + echo "$as_me:$LINENO: result: no" >&5 +echo "${ECHO_T}no" >&6 +fi + + STRIP=$ac_ct_STRIP +else + STRIP="$ac_cv_prog_STRIP" +fi + + +old_CC="$CC" +old_CFLAGS="$CFLAGS" + +# Set sane defaults for various variables +test -z "$AR" && AR=ar +test -z "$AR_FLAGS" && AR_FLAGS=cru +test -z "$AS" && AS=as +test -z "$CC" && CC=cc +test -z "$LTCC" && LTCC=$CC +test -z "$DLLTOOL" && DLLTOOL=dlltool +test -z "$LD" && LD=ld +test -z "$LN_S" && LN_S="ln -s" +test -z "$MAGIC_CMD" && MAGIC_CMD=file +test -z "$NM" && NM=nm +test -z "$SED" && SED=sed +test -z "$OBJDUMP" && OBJDUMP=objdump +test -z "$RANLIB" && RANLIB=: +test -z "$STRIP" && STRIP=: +test -z "$ac_objext" && ac_objext=o + +# Determine commands to create old-style static archives. +old_archive_cmds='$AR $AR_FLAGS $oldlib$oldobjs$old_deplibs' +old_postinstall_cmds='chmod 644 $oldlib' +old_postuninstall_cmds= + +if test -n "$RANLIB"; then + case $host_os in + openbsd*) + old_postinstall_cmds="\$RANLIB -t \$oldlib~$old_postinstall_cmds" + ;; + *) + old_postinstall_cmds="\$RANLIB \$oldlib~$old_postinstall_cmds" + ;; + esac + old_archive_cmds="$old_archive_cmds~\$RANLIB \$oldlib" +fi + +for cc_temp in $compiler""; do + case $cc_temp in + compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; + distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; + \-*) ;; + *) break;; + esac +done +cc_basename=`$echo "X$cc_temp" | $Xsed -e 's%.*/%%' -e "s%^$host_alias-%%"` + + +# Only perform the check for file, if the check method requires it +case $deplibs_check_method in +file_magic*) + if test "$file_magic_cmd" = '$MAGIC_CMD'; then + echo "$as_me:$LINENO: checking for ${ac_tool_prefix}file" >&5 +echo $ECHO_N "checking for ${ac_tool_prefix}file... $ECHO_C" >&6 +if test "${lt_cv_path_MAGIC_CMD+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + case $MAGIC_CMD in +[\\/*] | ?:[\\/]*) + lt_cv_path_MAGIC_CMD="$MAGIC_CMD" # Let the user override the test with a path. + ;; +*) + lt_save_MAGIC_CMD="$MAGIC_CMD" + lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR + ac_dummy="/usr/bin$PATH_SEPARATOR$PATH" + for ac_dir in $ac_dummy; do + IFS="$lt_save_ifs" + test -z "$ac_dir" && ac_dir=. + if test -f $ac_dir/${ac_tool_prefix}file; then + lt_cv_path_MAGIC_CMD="$ac_dir/${ac_tool_prefix}file" + if test -n "$file_magic_test_file"; then + case $deplibs_check_method in + "file_magic "*) + file_magic_regex="`expr \"$deplibs_check_method\" : \"file_magic \(.*\)\"`" + MAGIC_CMD="$lt_cv_path_MAGIC_CMD" + if eval $file_magic_cmd \$file_magic_test_file 2> /dev/null | + $EGREP "$file_magic_regex" > /dev/null; then + : + else + cat <&2 + +*** Warning: the command libtool uses to detect shared libraries, +*** $file_magic_cmd, produces output that libtool cannot recognize. +*** The result is that libtool may fail to recognize shared libraries +*** as such. This will affect the creation of libtool libraries that +*** depend on shared libraries, but programs linked with such libtool +*** libraries will work regardless of this problem. Nevertheless, you +*** may want to report the problem to your system manager and/or to +*** bug-libtool@gnu.org + +EOF + fi ;; + esac + fi + break + fi + done + IFS="$lt_save_ifs" + MAGIC_CMD="$lt_save_MAGIC_CMD" + ;; +esac +fi + +MAGIC_CMD="$lt_cv_path_MAGIC_CMD" +if test -n "$MAGIC_CMD"; then + echo "$as_me:$LINENO: result: $MAGIC_CMD" >&5 +echo "${ECHO_T}$MAGIC_CMD" >&6 +else + echo "$as_me:$LINENO: result: no" >&5 +echo "${ECHO_T}no" >&6 +fi + +if test -z "$lt_cv_path_MAGIC_CMD"; then + if test -n "$ac_tool_prefix"; then + echo "$as_me:$LINENO: checking for file" >&5 +echo $ECHO_N "checking for file... $ECHO_C" >&6 +if test "${lt_cv_path_MAGIC_CMD+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + case $MAGIC_CMD in +[\\/*] | ?:[\\/]*) + lt_cv_path_MAGIC_CMD="$MAGIC_CMD" # Let the user override the test with a path. + ;; +*) + lt_save_MAGIC_CMD="$MAGIC_CMD" + lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR + ac_dummy="/usr/bin$PATH_SEPARATOR$PATH" + for ac_dir in $ac_dummy; do + IFS="$lt_save_ifs" + test -z "$ac_dir" && ac_dir=. + if test -f $ac_dir/file; then + lt_cv_path_MAGIC_CMD="$ac_dir/file" + if test -n "$file_magic_test_file"; then + case $deplibs_check_method in + "file_magic "*) + file_magic_regex="`expr \"$deplibs_check_method\" : \"file_magic \(.*\)\"`" + MAGIC_CMD="$lt_cv_path_MAGIC_CMD" + if eval $file_magic_cmd \$file_magic_test_file 2> /dev/null | + $EGREP "$file_magic_regex" > /dev/null; then + : + else + cat <&2 + +*** Warning: the command libtool uses to detect shared libraries, +*** $file_magic_cmd, produces output that libtool cannot recognize. +*** The result is that libtool may fail to recognize shared libraries +*** as such. This will affect the creation of libtool libraries that +*** depend on shared libraries, but programs linked with such libtool +*** libraries will work regardless of this problem. Nevertheless, you +*** may want to report the problem to your system manager and/or to +*** bug-libtool@gnu.org + +EOF + fi ;; + esac + fi + break + fi + done + IFS="$lt_save_ifs" + MAGIC_CMD="$lt_save_MAGIC_CMD" + ;; +esac +fi + +MAGIC_CMD="$lt_cv_path_MAGIC_CMD" +if test -n "$MAGIC_CMD"; then + echo "$as_me:$LINENO: result: $MAGIC_CMD" >&5 +echo "${ECHO_T}$MAGIC_CMD" >&6 +else + echo "$as_me:$LINENO: result: no" >&5 +echo "${ECHO_T}no" >&6 +fi + + else + MAGIC_CMD=: + fi +fi + + fi + ;; +esac + +enable_dlopen=no +enable_win32_dll=no + +# Check whether --enable-libtool-lock or --disable-libtool-lock was given. +if test "${enable_libtool_lock+set}" = set; then + enableval="$enable_libtool_lock" + +fi; +test "x$enable_libtool_lock" != xno && enable_libtool_lock=yes + + +# Check whether --with-pic or --without-pic was given. +if test "${with_pic+set}" = set; then + withval="$with_pic" + pic_mode="$withval" +else + pic_mode=default +fi; +test -z "$pic_mode" && pic_mode=default + +# Use C for the default configuration in the libtool script +tagname= +lt_save_CC="$CC" +ac_ext=c +ac_cpp='$CPP $CPPFLAGS' +ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_c_compiler_gnu + + +# Source file extension for C test sources. +ac_ext=c + +# Object file extension for compiled C test sources. +objext=o +objext=$objext + +# Code to be used in simple compile tests +lt_simple_compile_test_code="int some_variable = 0;\n" + +# Code to be used in simple link tests +lt_simple_link_test_code='int main(){return(0);}\n' + + +# If no C compiler was specified, use CC. +LTCC=${LTCC-"$CC"} + +# Allow CC to be a program name with arguments. +compiler=$CC + + +# save warnings/boilerplate of simple test code +ac_outfile=conftest.$ac_objext +printf "$lt_simple_compile_test_code" >conftest.$ac_ext +eval "$ac_compile" 2>&1 >/dev/null | $SED '/^$/d' >conftest.err +_lt_compiler_boilerplate=`cat conftest.err` +$rm conftest* + +ac_outfile=conftest.$ac_objext +printf "$lt_simple_link_test_code" >conftest.$ac_ext +eval "$ac_link" 2>&1 >/dev/null | $SED '/^$/d' >conftest.err +_lt_linker_boilerplate=`cat conftest.err` +$rm conftest* + + +# +# Check for any special shared library compilation flags. +# +lt_prog_cc_shlib= +if test "$GCC" = no; then + case $host_os in + sco3.2v5*) + lt_prog_cc_shlib='-belf' + ;; + esac +fi +if test -n "$lt_prog_cc_shlib"; then + { echo "$as_me:$LINENO: WARNING: \`$CC' requires \`$lt_prog_cc_shlib' to build shared libraries" >&5 +echo "$as_me: WARNING: \`$CC' requires \`$lt_prog_cc_shlib' to build shared libraries" >&2;} + if echo "$old_CC $old_CFLAGS " | grep "[ ]$lt_prog_cc_shlib[ ]" >/dev/null; then : + else + { echo "$as_me:$LINENO: WARNING: add \`$lt_prog_cc_shlib' to the CC or CFLAGS env variable and reconfigure" >&5 +echo "$as_me: WARNING: add \`$lt_prog_cc_shlib' to the CC or CFLAGS env variable and reconfigure" >&2;} + lt_cv_prog_cc_can_build_shared=no + fi +fi + + +# +# Check to make sure the static flag actually works. +# +echo "$as_me:$LINENO: checking if $compiler static flag $lt_prog_compiler_static works" >&5 +echo $ECHO_N "checking if $compiler static flag $lt_prog_compiler_static works... $ECHO_C" >&6 +if test "${lt_prog_compiler_static_works+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + lt_prog_compiler_static_works=no + save_LDFLAGS="$LDFLAGS" + LDFLAGS="$LDFLAGS $lt_prog_compiler_static" + printf "$lt_simple_link_test_code" > conftest.$ac_ext + if (eval $ac_link 2>conftest.err) && test -s conftest$ac_exeext; then + # The compiler can only warn and ignore the option if not recognized + # So say no if there are warnings + if test -s conftest.err; then + # Append any errors to the config.log. + cat conftest.err 1>&5 + $echo "X$_lt_linker_boilerplate" | $Xsed > conftest.exp + $SED '/^$/d' conftest.err >conftest.er2 + if diff conftest.exp conftest.er2 >/dev/null; then + lt_prog_compiler_static_works=yes + fi + else + lt_prog_compiler_static_works=yes + fi + fi + $rm conftest* + LDFLAGS="$save_LDFLAGS" + +fi +echo "$as_me:$LINENO: result: $lt_prog_compiler_static_works" >&5 +echo "${ECHO_T}$lt_prog_compiler_static_works" >&6 + +if test x"$lt_prog_compiler_static_works" = xyes; then + : +else + lt_prog_compiler_static= +fi + + + + +lt_prog_compiler_no_builtin_flag= + +if test "$GCC" = yes; then + lt_prog_compiler_no_builtin_flag=' -fno-builtin' + + +echo "$as_me:$LINENO: checking if $compiler supports -fno-rtti -fno-exceptions" >&5 +echo $ECHO_N "checking if $compiler supports -fno-rtti -fno-exceptions... $ECHO_C" >&6 +if test "${lt_cv_prog_compiler_rtti_exceptions+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + lt_cv_prog_compiler_rtti_exceptions=no + ac_outfile=conftest.$ac_objext + printf "$lt_simple_compile_test_code" > conftest.$ac_ext + lt_compiler_flag="-fno-rtti -fno-exceptions" + # Insert the option either (1) after the last *FLAGS variable, or + # (2) before a word containing "conftest.", or (3) at the end. + # Note that $ac_compile itself does not contain backslashes and begins + # with a dollar sign (not a hyphen), so the echo should work correctly. + # The option is referenced via a variable to avoid confusing sed. + lt_compile=`echo "$ac_compile" | $SED \ + -e 's:.*FLAGS}? :&$lt_compiler_flag :; t' \ + -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ + -e 's:$: $lt_compiler_flag:'` + (eval echo "\"\$as_me:6529: $lt_compile\"" >&5) + (eval "$lt_compile" 2>conftest.err) + ac_status=$? + cat conftest.err >&5 + echo "$as_me:6533: \$? = $ac_status" >&5 + if (exit $ac_status) && test -s "$ac_outfile"; then + # The compiler can only warn and ignore the option if not recognized + # So say no if there are warnings other than the usual output. + $echo "X$_lt_compiler_boilerplate" | $Xsed >conftest.exp + $SED '/^$/d' conftest.err >conftest.er2 + if test ! -s conftest.err || diff conftest.exp conftest.er2 >/dev/null; then + lt_cv_prog_compiler_rtti_exceptions=yes + fi + fi + $rm conftest* + +fi +echo "$as_me:$LINENO: result: $lt_cv_prog_compiler_rtti_exceptions" >&5 +echo "${ECHO_T}$lt_cv_prog_compiler_rtti_exceptions" >&6 + +if test x"$lt_cv_prog_compiler_rtti_exceptions" = xyes; then + lt_prog_compiler_no_builtin_flag="$lt_prog_compiler_no_builtin_flag -fno-rtti -fno-exceptions" +else + : +fi + +fi + +lt_prog_compiler_wl= +lt_prog_compiler_pic= +lt_prog_compiler_static= + +echo "$as_me:$LINENO: checking for $compiler option to produce PIC" >&5 +echo $ECHO_N "checking for $compiler option to produce PIC... $ECHO_C" >&6 + + if test "$GCC" = yes; then + lt_prog_compiler_wl='-Wl,' + lt_prog_compiler_static='-static' + + case $host_os in + aix*) + # All AIX code is PIC. + if test "$host_cpu" = ia64; then + # AIX 5 now supports IA64 processor + lt_prog_compiler_static='-Bstatic' + fi + ;; + + amigaos*) + # FIXME: we need at least 68020 code to build shared libraries, but + # adding the `-m68020' flag to GCC prevents building anything better, + # like `-m68040'. + lt_prog_compiler_pic='-m68020 -resident32 -malways-restore-a4' + ;; + + beos* | cygwin* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*) + # PIC is the default for these OSes. + ;; + + mingw* | pw32* | os2*) + # This hack is so that the source file can tell whether it is being + # built for inclusion in a dll (and should export symbols for example). + lt_prog_compiler_pic='-DDLL_EXPORT' + ;; + + darwin* | rhapsody*) + # PIC is the default on this platform + # Common symbols not allowed in MH_DYLIB files + lt_prog_compiler_pic='-fno-common' + ;; + + msdosdjgpp*) + # Just because we use GCC doesn't mean we suddenly get shared libraries + # on systems that don't support them. + lt_prog_compiler_can_build_shared=no + enable_shared=no + ;; + + sysv4*MP*) + if test -d /usr/nec; then + lt_prog_compiler_pic=-Kconform_pic + fi + ;; + + hpux*) + # PIC is the default for IA64 HP-UX and 64-bit HP-UX, but + # not for PA HP-UX. + case "$host_cpu" in + hppa*64*|ia64*) + # +Z the default + ;; + *) + lt_prog_compiler_pic='-fPIC' + ;; + esac + ;; + + *) + lt_prog_compiler_pic='-fPIC' + ;; + esac + else + # PORTME Check for flag to pass linker flags through the system compiler. + case $host_os in + aix*) + lt_prog_compiler_wl='-Wl,' + if test "$host_cpu" = ia64; then + # AIX 5 now supports IA64 processor + lt_prog_compiler_static='-Bstatic' + else + lt_prog_compiler_static='-bnso -bI:/lib/syscalls.exp' + fi + ;; + darwin*) + # PIC is the default on this platform + # Common symbols not allowed in MH_DYLIB files + case $cc_basename in + xlc*) + lt_prog_compiler_pic='-qnocommon' + lt_prog_compiler_wl='-Wl,' + ;; + esac + ;; + + mingw* | pw32* | os2*) + # This hack is so that the source file can tell whether it is being + # built for inclusion in a dll (and should export symbols for example). + lt_prog_compiler_pic='-DDLL_EXPORT' + ;; + + hpux9* | hpux10* | hpux11*) + lt_prog_compiler_wl='-Wl,' + # PIC is the default for IA64 HP-UX and 64-bit HP-UX, but + # not for PA HP-UX. + case "$host_cpu" in + hppa*64*|ia64*) + # +Z the default + ;; + *) + lt_prog_compiler_pic='+Z' + ;; + esac + # Is there a better lt_prog_compiler_static that works with the bundled CC? + lt_prog_compiler_static='${wl}-a ${wl}archive' + ;; + + irix5* | irix6* | nonstopux*) + lt_prog_compiler_wl='-Wl,' + # PIC (with -KPIC) is the default. + lt_prog_compiler_static='-non_shared' + ;; + + newsos6) + lt_prog_compiler_pic='-KPIC' + lt_prog_compiler_static='-Bstatic' + ;; + + linux*) + case $cc_basename in + icc* | ecc*) + lt_prog_compiler_wl='-Wl,' + lt_prog_compiler_pic='-KPIC' + lt_prog_compiler_static='-static' + ;; + pgcc* | pgf77* | pgf90*) + # Portland Group compilers (*not* the Pentium gcc compiler, + # which looks to be a dead project) + lt_prog_compiler_wl='-Wl,' + lt_prog_compiler_pic='-fpic' + lt_prog_compiler_static='-static' + ;; + ccc*) + lt_prog_compiler_wl='-Wl,' + # All Alpha code is PIC. + lt_prog_compiler_static='-non_shared' + ;; + esac + ;; + + osf3* | osf4* | osf5*) + lt_prog_compiler_wl='-Wl,' + # All OSF/1 code is PIC. + lt_prog_compiler_static='-non_shared' + ;; + + sco3.2v5*) + lt_prog_compiler_pic='-Kpic' + lt_prog_compiler_static='-dn' + ;; + + solaris*) + lt_prog_compiler_pic='-KPIC' + lt_prog_compiler_static='-Bstatic' + case $cc_basename in + f77* | f90* | f95*) + lt_prog_compiler_wl='-Qoption ld ';; + *) + lt_prog_compiler_wl='-Wl,';; + esac + ;; + + sunos4*) + lt_prog_compiler_wl='-Qoption ld ' + lt_prog_compiler_pic='-PIC' + lt_prog_compiler_static='-Bstatic' + ;; + + sysv4 | sysv4.2uw2* | sysv4.3* | sysv5*) + lt_prog_compiler_wl='-Wl,' + lt_prog_compiler_pic='-KPIC' + lt_prog_compiler_static='-Bstatic' + ;; + + sysv4*MP*) + if test -d /usr/nec ;then + lt_prog_compiler_pic='-Kconform_pic' + lt_prog_compiler_static='-Bstatic' + fi + ;; + + unicos*) + lt_prog_compiler_wl='-Wl,' + lt_prog_compiler_can_build_shared=no + ;; + + uts4*) + lt_prog_compiler_pic='-pic' + lt_prog_compiler_static='-Bstatic' + ;; + + *) + lt_prog_compiler_can_build_shared=no + ;; + esac + fi + +echo "$as_me:$LINENO: result: $lt_prog_compiler_pic" >&5 +echo "${ECHO_T}$lt_prog_compiler_pic" >&6 + +# +# Check to make sure the PIC flag actually works. +# +if test -n "$lt_prog_compiler_pic"; then + +echo "$as_me:$LINENO: checking if $compiler PIC flag $lt_prog_compiler_pic works" >&5 +echo $ECHO_N "checking if $compiler PIC flag $lt_prog_compiler_pic works... $ECHO_C" >&6 +if test "${lt_prog_compiler_pic_works+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + lt_prog_compiler_pic_works=no + ac_outfile=conftest.$ac_objext + printf "$lt_simple_compile_test_code" > conftest.$ac_ext + lt_compiler_flag="$lt_prog_compiler_pic -DPIC" + # Insert the option either (1) after the last *FLAGS variable, or + # (2) before a word containing "conftest.", or (3) at the end. + # Note that $ac_compile itself does not contain backslashes and begins + # with a dollar sign (not a hyphen), so the echo should work correctly. + # The option is referenced via a variable to avoid confusing sed. + lt_compile=`echo "$ac_compile" | $SED \ + -e 's:.*FLAGS}? :&$lt_compiler_flag :; t' \ + -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ + -e 's:$: $lt_compiler_flag:'` + (eval echo "\"\$as_me:6791: $lt_compile\"" >&5) + (eval "$lt_compile" 2>conftest.err) + ac_status=$? + cat conftest.err >&5 + echo "$as_me:6795: \$? = $ac_status" >&5 + if (exit $ac_status) && test -s "$ac_outfile"; then + # The compiler can only warn and ignore the option if not recognized + # So say no if there are warnings other than the usual output. + $echo "X$_lt_compiler_boilerplate" | $Xsed >conftest.exp + $SED '/^$/d' conftest.err >conftest.er2 + if test ! -s conftest.err || diff conftest.exp conftest.er2 >/dev/null; then + lt_prog_compiler_pic_works=yes + fi + fi + $rm conftest* + +fi +echo "$as_me:$LINENO: result: $lt_prog_compiler_pic_works" >&5 +echo "${ECHO_T}$lt_prog_compiler_pic_works" >&6 + +if test x"$lt_prog_compiler_pic_works" = xyes; then + case $lt_prog_compiler_pic in + "" | " "*) ;; + *) lt_prog_compiler_pic=" $lt_prog_compiler_pic" ;; + esac +else + lt_prog_compiler_pic= + lt_prog_compiler_can_build_shared=no +fi + +fi +case "$host_os" in + # For platforms which do not support PIC, -DPIC is meaningless: + *djgpp*) + lt_prog_compiler_pic= + ;; + *) + lt_prog_compiler_pic="$lt_prog_compiler_pic -DPIC" + ;; +esac + +echo "$as_me:$LINENO: checking if $compiler supports -c -o file.$ac_objext" >&5 +echo $ECHO_N "checking if $compiler supports -c -o file.$ac_objext... $ECHO_C" >&6 +if test "${lt_cv_prog_compiler_c_o+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + lt_cv_prog_compiler_c_o=no + $rm -r conftest 2>/dev/null + mkdir conftest + cd conftest + mkdir out + printf "$lt_simple_compile_test_code" > conftest.$ac_ext + + lt_compiler_flag="-o out/conftest2.$ac_objext" + # Insert the option either (1) after the last *FLAGS variable, or + # (2) before a word containing "conftest.", or (3) at the end. + # Note that $ac_compile itself does not contain backslashes and begins + # with a dollar sign (not a hyphen), so the echo should work correctly. + lt_compile=`echo "$ac_compile" | $SED \ + -e 's:.*FLAGS}? :&$lt_compiler_flag :; t' \ + -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ + -e 's:$: $lt_compiler_flag:'` + (eval echo "\"\$as_me:6853: $lt_compile\"" >&5) + (eval "$lt_compile" 2>out/conftest.err) + ac_status=$? + cat out/conftest.err >&5 + echo "$as_me:6857: \$? = $ac_status" >&5 + if (exit $ac_status) && test -s out/conftest2.$ac_objext + then + # The compiler can only warn and ignore the option if not recognized + # So say no if there are warnings + $echo "X$_lt_compiler_boilerplate" | $Xsed > out/conftest.exp + $SED '/^$/d' out/conftest.err >out/conftest.er2 + if test ! -s out/conftest.err || diff out/conftest.exp out/conftest.er2 >/dev/null; then + lt_cv_prog_compiler_c_o=yes + fi + fi + chmod u+w . + $rm conftest* + # SGI C++ compiler will create directory out/ii_files/ for + # template instantiation + test -d out/ii_files && $rm out/ii_files/* && rmdir out/ii_files + $rm out/* && rmdir out + cd .. + rmdir conftest + $rm conftest* + +fi +echo "$as_me:$LINENO: result: $lt_cv_prog_compiler_c_o" >&5 +echo "${ECHO_T}$lt_cv_prog_compiler_c_o" >&6 + + +hard_links="nottested" +if test "$lt_cv_prog_compiler_c_o" = no && test "$need_locks" != no; then + # do not overwrite the value of need_locks provided by the user + echo "$as_me:$LINENO: checking if we can lock with hard links" >&5 +echo $ECHO_N "checking if we can lock with hard links... $ECHO_C" >&6 + hard_links=yes + $rm conftest* + ln conftest.a conftest.b 2>/dev/null && hard_links=no + touch conftest.a + ln conftest.a conftest.b 2>&5 || hard_links=no + ln conftest.a conftest.b 2>/dev/null && hard_links=no + echo "$as_me:$LINENO: result: $hard_links" >&5 +echo "${ECHO_T}$hard_links" >&6 + if test "$hard_links" = no; then + { echo "$as_me:$LINENO: WARNING: \`$CC' does not support \`-c -o', so \`make -j' may be unsafe" >&5 +echo "$as_me: WARNING: \`$CC' does not support \`-c -o', so \`make -j' may be unsafe" >&2;} + need_locks=warn + fi +else + need_locks=no +fi + +echo "$as_me:$LINENO: checking whether the $compiler linker ($LD) supports shared libraries" >&5 +echo $ECHO_N "checking whether the $compiler linker ($LD) supports shared libraries... $ECHO_C" >&6 + + runpath_var= + allow_undefined_flag= + enable_shared_with_static_runtimes=no + archive_cmds= + archive_expsym_cmds= + old_archive_From_new_cmds= + old_archive_from_expsyms_cmds= + export_dynamic_flag_spec= + whole_archive_flag_spec= + thread_safe_flag_spec= + hardcode_libdir_flag_spec= + hardcode_libdir_flag_spec_ld= + hardcode_libdir_separator= + hardcode_direct=no + hardcode_minus_L=no + hardcode_shlibpath_var=unsupported + link_all_deplibs=unknown + hardcode_automatic=no + module_cmds= + module_expsym_cmds= + always_export_symbols=no + export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' + # include_expsyms should be a list of space-separated symbols to be *always* + # included in the symbol list + include_expsyms= + # exclude_expsyms can be an extended regexp of symbols to exclude + # it will be wrapped by ` (' and `)$', so one must not match beginning or + # end of line. Example: `a|bc|.*d.*' will exclude the symbols `a' and `bc', + # as well as any symbol that contains `d'. + exclude_expsyms="_GLOBAL_OFFSET_TABLE_" + # Although _GLOBAL_OFFSET_TABLE_ is a valid symbol C name, most a.out + # platforms (ab)use it in PIC code, but their linkers get confused if + # the symbol is explicitly referenced. Since portable code cannot + # rely on this symbol name, it's probably fine to never include it in + # preloaded symbol tables. + extract_expsyms_cmds= + # Just being paranoid about ensuring that cc_basename is set. + for cc_temp in $compiler""; do + case $cc_temp in + compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; + distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; + \-*) ;; + *) break;; + esac +done +cc_basename=`$echo "X$cc_temp" | $Xsed -e 's%.*/%%' -e "s%^$host_alias-%%"` + + case $host_os in + cygwin* | mingw* | pw32*) + # FIXME: the MSVC++ port hasn't been tested in a loooong time + # When not using gcc, we currently assume that we are using + # Microsoft Visual C++. + if test "$GCC" != yes; then + with_gnu_ld=no + fi + ;; + openbsd*) + with_gnu_ld=no + ;; + esac + + ld_shlibs=yes + if test "$with_gnu_ld" = yes; then + # If archive_cmds runs LD, not CC, wlarc should be empty + wlarc='${wl}' + + # Set some defaults for GNU ld with shared library support. These + # are reset later if shared libraries are not supported. Putting them + # here allows them to be overridden if necessary. + runpath_var=LD_RUN_PATH + hardcode_libdir_flag_spec='${wl}--rpath ${wl}$libdir' + export_dynamic_flag_spec='${wl}--export-dynamic' + # ancient GNU ld didn't support --whole-archive et. al. + if $LD --help 2>&1 | grep 'no-whole-archive' > /dev/null; then + whole_archive_flag_spec="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive' + else + whole_archive_flag_spec= + fi + supports_anon_versioning=no + case `$LD -v 2>/dev/null` in + *\ [01].* | *\ 2.[0-9].* | *\ 2.10.*) ;; # catch versions < 2.11 + *\ 2.11.93.0.2\ *) supports_anon_versioning=yes ;; # RH7.3 ... + *\ 2.11.92.0.12\ *) supports_anon_versioning=yes ;; # Mandrake 8.2 ... + *\ 2.11.*) ;; # other 2.11 versions + *) supports_anon_versioning=yes ;; + esac + + # See if GNU ld supports shared libraries. + case $host_os in + aix3* | aix4* | aix5*) + # On AIX/PPC, the GNU linker is very broken + if test "$host_cpu" != ia64; then + ld_shlibs=no + cat <&2 + +*** Warning: the GNU linker, at least up to release 2.9.1, is reported +*** to be unable to reliably create shared libraries on AIX. +*** Therefore, libtool is disabling shared libraries support. If you +*** really care for shared libraries, you may want to modify your PATH +*** so that a non-GNU linker is found, and then restart. + +EOF + fi + ;; + + amigaos*) + archive_cmds='$rm $output_objdir/a2ixlibrary.data~$echo "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$echo "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$echo "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$echo "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)' + hardcode_libdir_flag_spec='-L$libdir' + hardcode_minus_L=yes + + # Samuel A. Falvo II reports + # that the semantics of dynamic libraries on AmigaOS, at least up + # to version 4, is to share data among multiple programs linked + # with the same dynamic library. Since this doesn't match the + # behavior of shared libraries on other platforms, we can't use + # them. + ld_shlibs=no + ;; + + beos*) + if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then + allow_undefined_flag=unsupported + # Joseph Beckenbach says some releases of gcc + # support --undefined. This deserves some investigation. FIXME + archive_cmds='$CC -nostart $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' + else + ld_shlibs=no + fi + ;; + + cygwin* | mingw* | pw32*) + # _LT_AC_TAGVAR(hardcode_libdir_flag_spec, ) is actually meaningless, + # as there is no search path for DLLs. + hardcode_libdir_flag_spec='-L$libdir' + allow_undefined_flag=unsupported + always_export_symbols=no + enable_shared_with_static_runtimes=yes + export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[BCDGRS] /s/.* \([^ ]*\)/\1 DATA/'\'' | $SED -e '\''/^[AITW] /s/.* //'\'' | sort | uniq > $export_symbols' + + if $LD --help 2>&1 | grep 'auto-import' > /dev/null; then + archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags -o $output_objdir/$soname ${wl}--image-base=0x10000000 ${wl}--out-implib,$lib' + # If the export-symbols file already is a .def file (1st line + # is EXPORTS), use it as is; otherwise, prepend... + archive_expsym_cmds='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then + cp $export_symbols $output_objdir/$soname.def; + else + echo EXPORTS > $output_objdir/$soname.def; + cat $export_symbols >> $output_objdir/$soname.def; + fi~ + $CC -shared $output_objdir/$soname.def $libobjs $deplibs $compiler_flags -o $output_objdir/$soname ${wl}--image-base=0x10000000 ${wl}--out-implib,$lib' + else + ld_shlibs=no + fi + ;; + + linux*) + if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then + tmp_addflag= + case $cc_basename,$host_cpu in + pgcc*) # Portland Group C compiler + whole_archive_flag_spec='${wl}--whole-archive,`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; $echo \"$new_convenience\"` ${wl}--no-whole-archive' + tmp_addflag=' $pic_flag' + ;; + pgf77* | pgf90* ) # Portland Group f77 and f90 compilers + whole_archive_flag_spec='${wl}--whole-archive,`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; $echo \"$new_convenience\"` ${wl}--no-whole-archive' + tmp_addflag=' $pic_flag -Mnomain' ;; + ecc*,ia64* | icc*,ia64*) # Intel C compiler on ia64 + tmp_addflag=' -i_dynamic' ;; + efc*,ia64* | ifort*,ia64*) # Intel Fortran compiler on ia64 + tmp_addflag=' -i_dynamic -nofor_main' ;; + ifc* | ifort*) # Intel Fortran compiler + tmp_addflag=' -nofor_main' ;; + esac + archive_cmds='$CC -shared'"$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' + + if test $supports_anon_versioning = yes; then + archive_expsym_cmds='$echo "{ global:" > $output_objdir/$libname.ver~ + cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ + $echo "local: *; };" >> $output_objdir/$libname.ver~ + $CC -shared'"$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-version-script ${wl}$output_objdir/$libname.ver -o $lib' + fi + else + ld_shlibs=no + fi + ;; + + netbsd*) + if echo __ELF__ | $CC -E - | grep __ELF__ >/dev/null; then + archive_cmds='$LD -Bshareable $libobjs $deplibs $linker_flags -o $lib' + wlarc= + else + archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' + archive_expsym_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' + fi + ;; + + solaris* | sysv5*) + if $LD -v 2>&1 | grep 'BFD 2\.8' > /dev/null; then + ld_shlibs=no + cat <&2 + +*** Warning: The releases 2.8.* of the GNU linker cannot reliably +*** create shared libraries on Solaris systems. Therefore, libtool +*** is disabling shared libraries support. We urge you to upgrade GNU +*** binutils to release 2.9.1 or newer. Another option is to modify +*** your PATH or compiler configuration so that the native linker is +*** used, and then restart. + +EOF + elif $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then + archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' + archive_expsym_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' + else + ld_shlibs=no + fi + ;; + + sunos4*) + archive_cmds='$LD -assert pure-text -Bshareable -o $lib $libobjs $deplibs $linker_flags' + wlarc= + hardcode_direct=yes + hardcode_shlibpath_var=no + ;; + + *) + if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then + archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' + archive_expsym_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' + else + ld_shlibs=no + fi + ;; + esac + + if test "$ld_shlibs" = no; then + runpath_var= + hardcode_libdir_flag_spec= + export_dynamic_flag_spec= + whole_archive_flag_spec= + fi + else + # PORTME fill in a description of your system's linker (not GNU ld) + case $host_os in + aix3*) + allow_undefined_flag=unsupported + always_export_symbols=yes + archive_expsym_cmds='$LD -o $output_objdir/$soname $libobjs $deplibs $linker_flags -bE:$export_symbols -T512 -H512 -bM:SRE~$AR $AR_FLAGS $lib $output_objdir/$soname' + # Note: this linker hardcodes the directories in LIBPATH if there + # are no directories specified by -L. + hardcode_minus_L=yes + if test "$GCC" = yes && test -z "$link_static_flag"; then + # Neither direct hardcoding nor static linking is supported with a + # broken collect2. + hardcode_direct=unsupported + fi + ;; + + aix4* | aix5*) + if test "$host_cpu" = ia64; then + # On IA64, the linker does run time linking by default, so we don't + # have to do anything special. + aix_use_runtimelinking=no + exp_sym_flag='-Bexport' + no_entry_flag="" + else + # If we're using GNU nm, then we don't want the "-C" option. + # -C means demangle to AIX nm, but means don't demangle with GNU nm + if $NM -V 2>&1 | grep 'GNU' > /dev/null; then + export_symbols_cmds='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\$2 == "T") || (\$2 == "D") || (\$2 == "B")) && (substr(\$3,1,1) != ".")) { print \$3 } }'\'' | sort -u > $export_symbols' + else + export_symbols_cmds='$NM -BCpg $libobjs $convenience | awk '\''{ if (((\$2 == "T") || (\$2 == "D") || (\$2 == "B")) && (substr(\$3,1,1) != ".")) { print \$3 } }'\'' | sort -u > $export_symbols' + fi + aix_use_runtimelinking=no + + # Test if we are trying to use run time linking or normal + # AIX style linking. If -brtl is somewhere in LDFLAGS, we + # need to do runtime linking. + case $host_os in aix4.[23]|aix4.[23].*|aix5*) + for ld_flag in $LDFLAGS; do + if (test $ld_flag = "-brtl" || test $ld_flag = "-Wl,-brtl"); then + aix_use_runtimelinking=yes + break + fi + done + esac + + exp_sym_flag='-bexport' + no_entry_flag='-bnoentry' + fi + + # When large executables or shared objects are built, AIX ld can + # have problems creating the table of contents. If linking a library + # or program results in "error TOC overflow" add -mminimal-toc to + # CXXFLAGS/CFLAGS for g++/gcc. In the cases where that is not + # enough to fix the problem, add -Wl,-bbigtoc to LDFLAGS. + + archive_cmds='' + hardcode_direct=yes + hardcode_libdir_separator=':' + link_all_deplibs=yes + + if test "$GCC" = yes; then + case $host_os in aix4.[012]|aix4.[012].*) + # We only want to do this on AIX 4.2 and lower, the check + # below for broken collect2 doesn't work under 4.3+ + collect2name=`${CC} -print-prog-name=collect2` + if test -f "$collect2name" && \ + strings "$collect2name" | grep resolve_lib_name >/dev/null + then + # We have reworked collect2 + hardcode_direct=yes + else + # We have old collect2 + hardcode_direct=unsupported + # It fails to find uninstalled libraries when the uninstalled + # path is not listed in the libpath. Setting hardcode_minus_L + # to unsupported forces relinking + hardcode_minus_L=yes + hardcode_libdir_flag_spec='-L$libdir' + hardcode_libdir_separator= + fi + esac + shared_flag='-shared' + if test "$aix_use_runtimelinking" = yes; then + shared_flag="$shared_flag "'${wl}-G' + fi + else + # not using gcc + if test "$host_cpu" = ia64; then + # VisualAge C++, Version 5.5 for AIX 5L for IA-64, Beta 3 Release + # chokes on -Wl,-G. The following line is correct: + shared_flag='-G' + else + if test "$aix_use_runtimelinking" = yes; then + shared_flag='${wl}-G' + else + shared_flag='${wl}-bM:SRE' + fi + fi + fi + + # It seems that -bexpall does not export symbols beginning with + # underscore (_), so it is better to generate a list of symbols to export. + always_export_symbols=yes + if test "$aix_use_runtimelinking" = yes; then + # Warning - without using the other runtime loading flags (-brtl), + # -berok will link without error, but may produce a broken library. + allow_undefined_flag='-berok' + # Determine the default libpath from the value encoded in an empty executable. + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ + +int +main () +{ + + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext conftest$ac_exeext +if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest$ac_exeext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + +aix_libpath=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e '/Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/; p; } +}'` +# Check for a 64-bit object if we didn't find anything. +if test -z "$aix_libpath"; then aix_libpath=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e '/Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/; p; } +}'`; fi +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +fi +rm -f conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +if test -z "$aix_libpath"; then aix_libpath="/usr/lib:/lib"; fi + + hardcode_libdir_flag_spec='${wl}-blibpath:$libdir:'"$aix_libpath" + archive_expsym_cmds="\$CC"' -o $output_objdir/$soname $libobjs $deplibs $compiler_flags `if test "x${allow_undefined_flag}" != "x"; then echo "${wl}${allow_undefined_flag}"; else :; fi` '"\${wl}$no_entry_flag \${wl}$exp_sym_flag:\$export_symbols $shared_flag" + else + if test "$host_cpu" = ia64; then + hardcode_libdir_flag_spec='${wl}-R $libdir:/usr/lib:/lib' + allow_undefined_flag="-z nodefs" + archive_expsym_cmds="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs $compiler_flags ${wl}${allow_undefined_flag} '"\${wl}$no_entry_flag \${wl}$exp_sym_flag:\$export_symbols" + else + # Determine the default libpath from the value encoded in an empty executable. + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ + +int +main () +{ + + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext conftest$ac_exeext +if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest$ac_exeext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + +aix_libpath=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e '/Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/; p; } +}'` +# Check for a 64-bit object if we didn't find anything. +if test -z "$aix_libpath"; then aix_libpath=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e '/Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/; p; } +}'`; fi +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +fi +rm -f conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +if test -z "$aix_libpath"; then aix_libpath="/usr/lib:/lib"; fi + + hardcode_libdir_flag_spec='${wl}-blibpath:$libdir:'"$aix_libpath" + # Warning - without using the other run time loading flags, + # -berok will link without error, but may produce a broken library. + no_undefined_flag=' ${wl}-bernotok' + allow_undefined_flag=' ${wl}-berok' + # -bexpall does not export symbols beginning with underscore (_) + always_export_symbols=yes + # Exported symbols can be pulled into shared objects from archives + whole_archive_flag_spec=' ' + archive_cmds_need_lc=yes + # This is similar to how AIX traditionally builds it's shared libraries. + archive_expsym_cmds="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs $compiler_flags ${wl}-bE:$export_symbols ${wl}-bnoentry${allow_undefined_flag}~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$soname' + fi + fi + ;; + + amigaos*) + archive_cmds='$rm $output_objdir/a2ixlibrary.data~$echo "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$echo "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$echo "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$echo "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)' + hardcode_libdir_flag_spec='-L$libdir' + hardcode_minus_L=yes + # see comment about different semantics on the GNU ld section + ld_shlibs=no + ;; + + bsdi[45]*) + export_dynamic_flag_spec=-rdynamic + ;; + + cygwin* | mingw* | pw32*) + # When not using gcc, we currently assume that we are using + # Microsoft Visual C++. + # hardcode_libdir_flag_spec is actually meaningless, as there is + # no search path for DLLs. + hardcode_libdir_flag_spec=' ' + allow_undefined_flag=unsupported + # Tell ltmain to make .lib files, not .a files. + libext=lib + # Tell ltmain to make .dll files, not .so files. + shrext_cmds=".dll" + # FIXME: Setting linknames here is a bad hack. + archive_cmds='$CC -o $lib $libobjs $compiler_flags `echo "$deplibs" | $SED -e '\''s/ -lc$//'\''` -link -dll~linknames=' + # The linker will automatically build a .lib file if we build a DLL. + old_archive_From_new_cmds='true' + # FIXME: Should let the user specify the lib program. + old_archive_cmds='lib /OUT:$oldlib$oldobjs$old_deplibs' + fix_srcfile_path='`cygpath -w "$srcfile"`' + enable_shared_with_static_runtimes=yes + ;; + + darwin* | rhapsody*) + case "$host_os" in + rhapsody* | darwin1.[012]) + allow_undefined_flag='${wl}-undefined ${wl}suppress' + ;; + *) # Darwin 1.3 on + if test -z ${MACOSX_DEPLOYMENT_TARGET} ; then + allow_undefined_flag='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' + else + case ${MACOSX_DEPLOYMENT_TARGET} in + 10.[012]) + allow_undefined_flag='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' + ;; + 10.*) + allow_undefined_flag='${wl}-undefined ${wl}dynamic_lookup' + ;; + esac + fi + ;; + esac + archive_cmds_need_lc=no + hardcode_direct=no + hardcode_automatic=yes + hardcode_shlibpath_var=unsupported + whole_archive_flag_spec='' + link_all_deplibs=yes + if test "$GCC" = yes ; then + output_verbose_link_cmd='echo' + archive_cmds='$CC -dynamiclib $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags -install_name $rpath/$soname $verstring' + module_cmds='$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags' + # Don't fix this by using the ld -exported_symbols_list flag, it doesn't exist in older darwin ld's + archive_expsym_cmds='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC -dynamiclib $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags -install_name $rpath/$soname $verstring~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' + module_expsym_cmds='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' + else + case $cc_basename in + xlc*) + output_verbose_link_cmd='echo' + archive_cmds='$CC -qmkshrobj $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-install_name ${wl}`echo $rpath/$soname` $verstring' + module_cmds='$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags' + # Don't fix this by using the ld -exported_symbols_list flag, it doesn't exist in older darwin ld's + archive_expsym_cmds='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC -qmkshrobj $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-install_name ${wl}$rpath/$soname $verstring~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' + module_expsym_cmds='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' + ;; + *) + ld_shlibs=no + ;; + esac + fi + ;; + + dgux*) + archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' + hardcode_libdir_flag_spec='-L$libdir' + hardcode_shlibpath_var=no + ;; + + freebsd1*) + ld_shlibs=no + ;; + + # FreeBSD 2.2.[012] allows us to include c++rt0.o to get C++ constructor + # support. Future versions do this automatically, but an explicit c++rt0.o + # does not break anything, and helps significantly (at the cost of a little + # extra space). + freebsd2.2*) + archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags /usr/lib/c++rt0.o' + hardcode_libdir_flag_spec='-R$libdir' + hardcode_direct=yes + hardcode_shlibpath_var=no + ;; + + # Unfortunately, older versions of FreeBSD 2 do not have this feature. + freebsd2*) + archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' + hardcode_direct=yes + hardcode_minus_L=yes + hardcode_shlibpath_var=no + ;; + + # FreeBSD 3 and greater uses gcc -shared to do shared libraries. + freebsd* | kfreebsd*-gnu | dragonfly*) + archive_cmds='$CC -shared -o $lib $libobjs $deplibs $compiler_flags' + hardcode_libdir_flag_spec='-R$libdir' + hardcode_direct=yes + hardcode_shlibpath_var=no + ;; + + hpux9*) + if test "$GCC" = yes; then + archive_cmds='$rm $output_objdir/$soname~$CC -shared -fPIC ${wl}+b ${wl}$install_libdir -o $output_objdir/$soname $libobjs $deplibs $compiler_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib' + else + archive_cmds='$rm $output_objdir/$soname~$LD -b +b $install_libdir -o $output_objdir/$soname $libobjs $deplibs $linker_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib' + fi + hardcode_libdir_flag_spec='${wl}+b ${wl}$libdir' + hardcode_libdir_separator=: + hardcode_direct=yes + + # hardcode_minus_L: Not really in the search PATH, + # but as the default location of the library. + hardcode_minus_L=yes + export_dynamic_flag_spec='${wl}-E' + ;; + + hpux10* | hpux11*) + if test "$GCC" = yes -a "$with_gnu_ld" = no; then + case "$host_cpu" in + hppa*64*|ia64*) + archive_cmds='$CC -shared ${wl}+h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' + ;; + *) + archive_cmds='$CC -shared -fPIC ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags' + ;; + esac + else + case "$host_cpu" in + hppa*64*|ia64*) + archive_cmds='$LD -b +h $soname -o $lib $libobjs $deplibs $linker_flags' + ;; + *) + archive_cmds='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags' + ;; + esac + fi + if test "$with_gnu_ld" = no; then + case "$host_cpu" in + hppa*64*) + hardcode_libdir_flag_spec='${wl}+b ${wl}$libdir' + hardcode_libdir_flag_spec_ld='+b $libdir' + hardcode_libdir_separator=: + hardcode_direct=no + hardcode_shlibpath_var=no + ;; + ia64*) + hardcode_libdir_flag_spec='-L$libdir' + hardcode_direct=no + hardcode_shlibpath_var=no + + # hardcode_minus_L: Not really in the search PATH, + # but as the default location of the library. + hardcode_minus_L=yes + ;; + *) + hardcode_libdir_flag_spec='${wl}+b ${wl}$libdir' + hardcode_libdir_separator=: + hardcode_direct=yes + export_dynamic_flag_spec='${wl}-E' + + # hardcode_minus_L: Not really in the search PATH, + # but as the default location of the library. + hardcode_minus_L=yes + ;; + esac + fi + ;; + + irix5* | irix6* | nonstopux*) + if test "$GCC" = yes; then + archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' + else + archive_cmds='$LD -shared $libobjs $deplibs $linker_flags -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib' + hardcode_libdir_flag_spec_ld='-rpath $libdir' + fi + hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' + hardcode_libdir_separator=: + link_all_deplibs=yes + ;; + + netbsd*) + if echo __ELF__ | $CC -E - | grep __ELF__ >/dev/null; then + archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' # a.out + else + archive_cmds='$LD -shared -o $lib $libobjs $deplibs $linker_flags' # ELF + fi + hardcode_libdir_flag_spec='-R$libdir' + hardcode_direct=yes + hardcode_shlibpath_var=no + ;; + + newsos6) + archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' + hardcode_direct=yes + hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' + hardcode_libdir_separator=: + hardcode_shlibpath_var=no + ;; + + openbsd*) + hardcode_direct=yes + hardcode_shlibpath_var=no + if test -z "`echo __ELF__ | $CC -E - | grep __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then + archive_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' + archive_expsym_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-retain-symbols-file,$export_symbols' + hardcode_libdir_flag_spec='${wl}-rpath,$libdir' + export_dynamic_flag_spec='${wl}-E' + else + case $host_os in + openbsd[01].* | openbsd2.[0-7] | openbsd2.[0-7].*) + archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' + hardcode_libdir_flag_spec='-R$libdir' + ;; + *) + archive_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' + hardcode_libdir_flag_spec='${wl}-rpath,$libdir' + ;; + esac + fi + ;; + + os2*) + hardcode_libdir_flag_spec='-L$libdir' + hardcode_minus_L=yes + allow_undefined_flag=unsupported + archive_cmds='$echo "LIBRARY $libname INITINSTANCE" > $output_objdir/$libname.def~$echo "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~$echo DATA >> $output_objdir/$libname.def~$echo " SINGLE NONSHARED" >> $output_objdir/$libname.def~$echo EXPORTS >> $output_objdir/$libname.def~emxexp $libobjs >> $output_objdir/$libname.def~$CC -Zdll -Zcrtdll -o $lib $libobjs $deplibs $compiler_flags $output_objdir/$libname.def' + old_archive_From_new_cmds='emximp -o $output_objdir/$libname.a $output_objdir/$libname.def' + ;; + + osf3*) + if test "$GCC" = yes; then + allow_undefined_flag=' ${wl}-expect_unresolved ${wl}\*' + archive_cmds='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' + else + allow_undefined_flag=' -expect_unresolved \*' + archive_cmds='$LD -shared${allow_undefined_flag} $libobjs $deplibs $linker_flags -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib' + fi + hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' + hardcode_libdir_separator=: + ;; + + osf4* | osf5*) # as osf3* with the addition of -msym flag + if test "$GCC" = yes; then + allow_undefined_flag=' ${wl}-expect_unresolved ${wl}\*' + archive_cmds='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags ${wl}-msym ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' + hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' + else + allow_undefined_flag=' -expect_unresolved \*' + archive_cmds='$LD -shared${allow_undefined_flag} $libobjs $deplibs $linker_flags -msym -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib' + archive_expsym_cmds='for i in `cat $export_symbols`; do printf "%s %s\\n" -exported_symbol "\$i" >> $lib.exp; done; echo "-hidden">> $lib.exp~ + $LD -shared${allow_undefined_flag} -input $lib.exp $linker_flags $libobjs $deplibs -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib~$rm $lib.exp' + + # Both c and cxx compiler support -rpath directly + hardcode_libdir_flag_spec='-rpath $libdir' + fi + hardcode_libdir_separator=: + ;; + + sco3.2v5*) + archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' + hardcode_shlibpath_var=no + export_dynamic_flag_spec='${wl}-Bexport' + runpath_var=LD_RUN_PATH + hardcode_runpath_var=yes + ;; + + solaris*) + no_undefined_flag=' -z text' + if test "$GCC" = yes; then + wlarc='${wl}' + archive_cmds='$CC -shared ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' + archive_expsym_cmds='$echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~$echo "local: *; };" >> $lib.exp~ + $CC -shared ${wl}-M ${wl}$lib.exp ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags~$rm $lib.exp' + else + wlarc='' + archive_cmds='$LD -G${allow_undefined_flag} -h $soname -o $lib $libobjs $deplibs $linker_flags' + archive_expsym_cmds='$echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~$echo "local: *; };" >> $lib.exp~ + $LD -G${allow_undefined_flag} -M $lib.exp -h $soname -o $lib $libobjs $deplibs $linker_flags~$rm $lib.exp' + fi + hardcode_libdir_flag_spec='-R$libdir' + hardcode_shlibpath_var=no + case $host_os in + solaris2.[0-5] | solaris2.[0-5].*) ;; + *) + # The compiler driver will combine linker options so we + # cannot just pass the convience library names through + # without $wl, iff we do not link with $LD. + # Luckily, gcc supports the same syntax we need for Sun Studio. + # Supported since Solaris 2.6 (maybe 2.5.1?) + case $wlarc in + '') + whole_archive_flag_spec='-z allextract$convenience -z defaultextract' ;; + *) + whole_archive_flag_spec='${wl}-z ${wl}allextract`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; $echo \"$new_convenience\"` ${wl}-z ${wl}defaultextract' ;; + esac ;; + esac + link_all_deplibs=yes + ;; + + sunos4*) + if test "x$host_vendor" = xsequent; then + # Use $CC to link under sequent, because it throws in some extra .o + # files that make .init and .fini sections work. + archive_cmds='$CC -G ${wl}-h $soname -o $lib $libobjs $deplibs $compiler_flags' + else + archive_cmds='$LD -assert pure-text -Bstatic -o $lib $libobjs $deplibs $linker_flags' + fi + hardcode_libdir_flag_spec='-L$libdir' + hardcode_direct=yes + hardcode_minus_L=yes + hardcode_shlibpath_var=no + ;; + + sysv4) + case $host_vendor in + sni) + archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' + hardcode_direct=yes # is this really true??? + ;; + siemens) + ## LD is ld it makes a PLAMLIB + ## CC just makes a GrossModule. + archive_cmds='$LD -G -o $lib $libobjs $deplibs $linker_flags' + reload_cmds='$CC -r -o $output$reload_objs' + hardcode_direct=no + ;; + motorola) + archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' + hardcode_direct=no #Motorola manual says yes, but my tests say they lie + ;; + esac + runpath_var='LD_RUN_PATH' + hardcode_shlibpath_var=no + ;; + + sysv4.3*) + archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' + hardcode_shlibpath_var=no + export_dynamic_flag_spec='-Bexport' + ;; + + sysv4*MP*) + if test -d /usr/nec; then + archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' + hardcode_shlibpath_var=no + runpath_var=LD_RUN_PATH + hardcode_runpath_var=yes + ld_shlibs=yes + fi + ;; + + sysv4.2uw2*) + archive_cmds='$LD -G -o $lib $libobjs $deplibs $linker_flags' + hardcode_direct=yes + hardcode_minus_L=no + hardcode_shlibpath_var=no + hardcode_runpath_var=yes + runpath_var=LD_RUN_PATH + ;; + + sysv5OpenUNIX8* | sysv5UnixWare7* | sysv5uw[78]* | unixware7*) + no_undefined_flag='${wl}-z ${wl}text' + if test "$GCC" = yes; then + archive_cmds='$CC -shared ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' + else + archive_cmds='$CC -G ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' + fi + runpath_var='LD_RUN_PATH' + hardcode_shlibpath_var=no + ;; + + sysv5*) + no_undefined_flag=' -z text' + # $CC -shared without GNU ld will not create a library from C++ + # object files and a static libstdc++, better avoid it by now + archive_cmds='$LD -G${allow_undefined_flag} -h $soname -o $lib $libobjs $deplibs $linker_flags' + archive_expsym_cmds='$echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~$echo "local: *; };" >> $lib.exp~ + $LD -G${allow_undefined_flag} -M $lib.exp -h $soname -o $lib $libobjs $deplibs $linker_flags~$rm $lib.exp' + hardcode_libdir_flag_spec= + hardcode_shlibpath_var=no + runpath_var='LD_RUN_PATH' + ;; + + uts4*) + archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' + hardcode_libdir_flag_spec='-L$libdir' + hardcode_shlibpath_var=no + ;; + + *) + ld_shlibs=no + ;; + esac + fi + +echo "$as_me:$LINENO: result: $ld_shlibs" >&5 +echo "${ECHO_T}$ld_shlibs" >&6 +test "$ld_shlibs" = no && can_build_shared=no + +variables_saved_for_relink="PATH $shlibpath_var $runpath_var" +if test "$GCC" = yes; then + variables_saved_for_relink="$variables_saved_for_relink GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH" +fi + +# +# Do we need to explicitly link libc? +# +case "x$archive_cmds_need_lc" in +x|xyes) + # Assume -lc should be added + archive_cmds_need_lc=yes + + if test "$enable_shared" = yes && test "$GCC" = yes; then + case $archive_cmds in + *'~'*) + # FIXME: we may have to deal with multi-command sequences. + ;; + '$CC '*) + # Test whether the compiler implicitly links with -lc since on some + # systems, -lgcc has to come before -lc. If gcc already passes -lc + # to ld, don't add -lc before -lgcc. + echo "$as_me:$LINENO: checking whether -lc should be explicitly linked in" >&5 +echo $ECHO_N "checking whether -lc should be explicitly linked in... $ECHO_C" >&6 + $rm conftest* + printf "$lt_simple_compile_test_code" > conftest.$ac_ext + + if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 + (eval $ac_compile) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } 2>conftest.err; then + soname=conftest + lib=conftest + libobjs=conftest.$ac_objext + deplibs= + wl=$lt_prog_compiler_wl + compiler_flags=-v + linker_flags=-v + verstring= + output_objdir=. + libname=conftest + lt_save_allow_undefined_flag=$allow_undefined_flag + allow_undefined_flag= + if { (eval echo "$as_me:$LINENO: \"$archive_cmds 2\>\&1 \| grep \" -lc \" \>/dev/null 2\>\&1\"") >&5 + (eval $archive_cmds 2\>\&1 \| grep \" -lc \" \>/dev/null 2\>\&1) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } + then + archive_cmds_need_lc=no + else + archive_cmds_need_lc=yes + fi + allow_undefined_flag=$lt_save_allow_undefined_flag + else + cat conftest.err 1>&5 + fi + $rm conftest* + echo "$as_me:$LINENO: result: $archive_cmds_need_lc" >&5 +echo "${ECHO_T}$archive_cmds_need_lc" >&6 + ;; + esac + fi + ;; +esac + +echo "$as_me:$LINENO: checking dynamic linker characteristics" >&5 +echo $ECHO_N "checking dynamic linker characteristics... $ECHO_C" >&6 +library_names_spec= +libname_spec='lib$name' +soname_spec= +shrext_cmds=".so" +postinstall_cmds= +postuninstall_cmds= +finish_cmds= +finish_eval= +shlibpath_var= +shlibpath_overrides_runpath=unknown +version_type=none +dynamic_linker="$host_os ld.so" +sys_lib_dlsearch_path_spec="/lib /usr/lib" +if test "$GCC" = yes; then + sys_lib_search_path_spec=`$CC -print-search-dirs | grep "^libraries:" | $SED -e "s/^libraries://" -e "s,=/,/,g"` + if echo "$sys_lib_search_path_spec" | grep ';' >/dev/null ; then + # if the path contains ";" then we assume it to be the separator + # otherwise default to the standard path separator (i.e. ":") - it is + # assumed that no part of a normal pathname contains ";" but that should + # okay in the real world where ";" in dirpaths is itself problematic. + sys_lib_search_path_spec=`echo "$sys_lib_search_path_spec" | $SED -e 's/;/ /g'` + else + sys_lib_search_path_spec=`echo "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"` + fi +else + sys_lib_search_path_spec="/lib /usr/lib /usr/local/lib" +fi +need_lib_prefix=unknown +hardcode_into_libs=no + +# when you set need_version to no, make sure it does not cause -set_version +# flags to be left without arguments +need_version=unknown + +case $host_os in +aix3*) + version_type=linux + library_names_spec='${libname}${release}${shared_ext}$versuffix $libname.a' + shlibpath_var=LIBPATH + + # AIX 3 has no versioning support, so we append a major version to the name. + soname_spec='${libname}${release}${shared_ext}$major' + ;; + +aix4* | aix5*) + version_type=linux + need_lib_prefix=no + need_version=no + hardcode_into_libs=yes + if test "$host_cpu" = ia64; then + # AIX 5 supports IA64 + library_names_spec='${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext}$versuffix $libname${shared_ext}' + shlibpath_var=LD_LIBRARY_PATH + else + # With GCC up to 2.95.x, collect2 would create an import file + # for dependence libraries. The import file would start with + # the line `#! .'. This would cause the generated library to + # depend on `.', always an invalid library. This was fixed in + # development snapshots of GCC prior to 3.0. + case $host_os in + aix4 | aix4.[01] | aix4.[01].*) + if { echo '#if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 97)' + echo ' yes ' + echo '#endif'; } | ${CC} -E - | grep yes > /dev/null; then + : + else + can_build_shared=no + fi + ;; + esac + # AIX (on Power*) has no versioning support, so currently we can not hardcode correct + # soname into executable. Probably we can add versioning support to + # collect2, so additional links can be useful in future. + if test "$aix_use_runtimelinking" = yes; then + # If using run time linking (on AIX 4.2 or later) use lib.so + # instead of lib.a to let people know that these are not + # typical AIX shared libraries. + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + else + # We preserve .a as extension for shared libraries through AIX4.2 + # and later when we are not doing run time linking. + library_names_spec='${libname}${release}.a $libname.a' + soname_spec='${libname}${release}${shared_ext}$major' + fi + shlibpath_var=LIBPATH + fi + ;; + +amigaos*) + library_names_spec='$libname.ixlibrary $libname.a' + # Create ${libname}_ixlibrary.a entries in /sys/libs. + finish_eval='for lib in `ls $libdir/*.ixlibrary 2>/dev/null`; do libname=`$echo "X$lib" | $Xsed -e '\''s%^.*/\([^/]*\)\.ixlibrary$%\1%'\''`; test $rm /sys/libs/${libname}_ixlibrary.a; $show "cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a"; cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a || exit 1; done' + ;; + +beos*) + library_names_spec='${libname}${shared_ext}' + dynamic_linker="$host_os ld.so" + shlibpath_var=LIBRARY_PATH + ;; + +bsdi[45]*) + version_type=linux + need_version=no + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + finish_cmds='PATH="\$PATH:/sbin" ldconfig $libdir' + shlibpath_var=LD_LIBRARY_PATH + sys_lib_search_path_spec="/shlib /usr/lib /usr/X11/lib /usr/contrib/lib /lib /usr/local/lib" + sys_lib_dlsearch_path_spec="/shlib /usr/lib /usr/local/lib" + # the default ld.so.conf also contains /usr/contrib/lib and + # /usr/X11R6/lib (/usr/X11 is a link to /usr/X11R6), but let us allow + # libtool to hard-code these into programs + ;; + +cygwin* | mingw* | pw32*) + version_type=windows + shrext_cmds=".dll" + need_version=no + need_lib_prefix=no + + case $GCC,$host_os in + yes,cygwin* | yes,mingw* | yes,pw32*) + library_names_spec='$libname.dll.a' + # DLL is installed to $(libdir)/../bin by postinstall_cmds + postinstall_cmds='base_file=`basename \${file}`~ + dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\${base_file}'\''i;echo \$dlname'\''`~ + dldir=$destdir/`dirname \$dlpath`~ + test -d \$dldir || mkdir -p \$dldir~ + $install_prog $dir/$dlname \$dldir/$dlname' + postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~ + dlpath=$dir/\$dldll~ + $rm \$dlpath' + shlibpath_overrides_runpath=yes + + case $host_os in + cygwin*) + # Cygwin DLLs use 'cyg' prefix rather than 'lib' + soname_spec='`echo ${libname} | sed -e 's/^lib/cyg/'``echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}' + sys_lib_search_path_spec="/usr/lib /lib/w32api /lib /usr/local/lib" + ;; + mingw*) + # MinGW DLLs use traditional 'lib' prefix + soname_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}' + sys_lib_search_path_spec=`$CC -print-search-dirs | grep "^libraries:" | $SED -e "s/^libraries://" -e "s,=/,/,g"` + if echo "$sys_lib_search_path_spec" | grep ';[c-zC-Z]:/' >/dev/null; then + # It is most probably a Windows format PATH printed by + # mingw gcc, but we are running on Cygwin. Gcc prints its search + # path with ; separators, and with drive letters. We can handle the + # drive letters (cygwin fileutils understands them), so leave them, + # especially as we might pass files found there to a mingw objdump, + # which wouldn't understand a cygwinified path. Ahh. + sys_lib_search_path_spec=`echo "$sys_lib_search_path_spec" | $SED -e 's/;/ /g'` + else + sys_lib_search_path_spec=`echo "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"` + fi + ;; + pw32*) + # pw32 DLLs use 'pw' prefix rather than 'lib' + library_names_spec='`echo ${libname} | sed -e 's/^lib/pw/'``echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}' + ;; + esac + ;; + + *) + library_names_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext} $libname.lib' + ;; + esac + dynamic_linker='Win32 ld.exe' + # FIXME: first we should search . and the directory the executable is in + shlibpath_var=PATH + ;; + +darwin* | rhapsody*) + dynamic_linker="$host_os dyld" + version_type=darwin + need_lib_prefix=no + need_version=no + library_names_spec='${libname}${release}${versuffix}$shared_ext ${libname}${release}${major}$shared_ext ${libname}$shared_ext' + soname_spec='${libname}${release}${major}$shared_ext' + shlibpath_overrides_runpath=yes + shlibpath_var=DYLD_LIBRARY_PATH + shrext_cmds='$(test .$module = .yes && echo .so || echo .dylib)' + # Apple's gcc prints 'gcc -print-search-dirs' doesn't operate the same. + if test "$GCC" = yes; then + sys_lib_search_path_spec=`$CC -print-search-dirs | tr "\n" "$PATH_SEPARATOR" | sed -e 's/libraries:/@libraries:/' | tr "@" "\n" | grep "^libraries:" | sed -e "s/^libraries://" -e "s,=/,/,g" -e "s,$PATH_SEPARATOR, ,g" -e "s,.*,& /lib /usr/lib /usr/local/lib,g"` + else + sys_lib_search_path_spec='/lib /usr/lib /usr/local/lib' + fi + sys_lib_dlsearch_path_spec='/usr/local/lib /lib /usr/lib' + ;; + +dgux*) + version_type=linux + need_lib_prefix=no + need_version=no + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname$shared_ext' + soname_spec='${libname}${release}${shared_ext}$major' + shlibpath_var=LD_LIBRARY_PATH + ;; + +freebsd1*) + dynamic_linker=no + ;; + +kfreebsd*-gnu) + version_type=linux + need_lib_prefix=no + need_version=no + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=no + hardcode_into_libs=yes + dynamic_linker='GNU ld.so' + ;; + +freebsd* | dragonfly*) + # DragonFly does not have aout. When/if they implement a new + # versioning mechanism, adjust this. + objformat=`test -x /usr/bin/objformat && /usr/bin/objformat || echo aout` + version_type=freebsd-$objformat + case $version_type in + freebsd-elf*) + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext} $libname${shared_ext}' + need_version=no + need_lib_prefix=no + ;; + freebsd-*) + library_names_spec='${libname}${release}${shared_ext}$versuffix $libname${shared_ext}$versuffix' + need_version=yes + ;; + esac + shlibpath_var=LD_LIBRARY_PATH + case $host_os in + freebsd2*) + shlibpath_overrides_runpath=yes + ;; + freebsd3.[01]* | freebsdelf3.[01]*) + shlibpath_overrides_runpath=yes + hardcode_into_libs=yes + ;; + *) # from 3.2 on + shlibpath_overrides_runpath=no + hardcode_into_libs=yes + ;; + esac + ;; + +gnu*) + version_type=linux + need_lib_prefix=no + need_version=no + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}${major} ${libname}${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + shlibpath_var=LD_LIBRARY_PATH + hardcode_into_libs=yes + ;; + +hpux9* | hpux10* | hpux11*) + # Give a soname corresponding to the major version so that dld.sl refuses to + # link against other versions. + version_type=sunos + need_lib_prefix=no + need_version=no + case "$host_cpu" in + ia64*) + shrext_cmds='.so' + hardcode_into_libs=yes + dynamic_linker="$host_os dld.so" + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=yes # Unless +noenvvar is specified. + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + if test "X$HPUX_IA64_MODE" = X32; then + sys_lib_search_path_spec="/usr/lib/hpux32 /usr/local/lib/hpux32 /usr/local/lib" + else + sys_lib_search_path_spec="/usr/lib/hpux64 /usr/local/lib/hpux64" + fi + sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec + ;; + hppa*64*) + shrext_cmds='.sl' + hardcode_into_libs=yes + dynamic_linker="$host_os dld.sl" + shlibpath_var=LD_LIBRARY_PATH # How should we handle SHLIB_PATH + shlibpath_overrides_runpath=yes # Unless +noenvvar is specified. + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + sys_lib_search_path_spec="/usr/lib/pa20_64 /usr/ccs/lib/pa20_64" + sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec + ;; + *) + shrext_cmds='.sl' + dynamic_linker="$host_os dld.sl" + shlibpath_var=SHLIB_PATH + shlibpath_overrides_runpath=no # +s is required to enable SHLIB_PATH + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + ;; + esac + # HP-UX runs *really* slowly unless shared libraries are mode 555. + postinstall_cmds='chmod 555 $lib' + ;; + +irix5* | irix6* | nonstopux*) + case $host_os in + nonstopux*) version_type=nonstopux ;; + *) + if test "$lt_cv_prog_gnu_ld" = yes; then + version_type=linux + else + version_type=irix + fi ;; + esac + need_lib_prefix=no + need_version=no + soname_spec='${libname}${release}${shared_ext}$major' + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext} $libname${shared_ext}' + case $host_os in + irix5* | nonstopux*) + libsuff= shlibsuff= + ;; + *) + case $LD in # libtool.m4 will add one of these switches to LD + *-32|*"-32 "|*-melf32bsmip|*"-melf32bsmip ") + libsuff= shlibsuff= libmagic=32-bit;; + *-n32|*"-n32 "|*-melf32bmipn32|*"-melf32bmipn32 ") + libsuff=32 shlibsuff=N32 libmagic=N32;; + *-64|*"-64 "|*-melf64bmip|*"-melf64bmip ") + libsuff=64 shlibsuff=64 libmagic=64-bit;; + *) libsuff= shlibsuff= libmagic=never-match;; + esac + ;; + esac + shlibpath_var=LD_LIBRARY${shlibsuff}_PATH + shlibpath_overrides_runpath=no + sys_lib_search_path_spec="/usr/lib${libsuff} /lib${libsuff} /usr/local/lib${libsuff}" + sys_lib_dlsearch_path_spec="/usr/lib${libsuff} /lib${libsuff}" + hardcode_into_libs=yes + ;; + +# No shared lib support for Linux oldld, aout, or coff. +linux*oldld* | linux*aout* | linux*coff*) + dynamic_linker=no + ;; + +# This must be Linux ELF. +linux*) + version_type=linux + need_lib_prefix=no + need_version=no + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=no + # This implies no fast_install, which is unacceptable. + # Some rework will be needed to allow for fast_install + # before this can be enabled. + hardcode_into_libs=yes + + # find out which ABI we are using + libsuff= + case "$host_cpu" in + x86_64*|s390x*|powerpc64*) + echo '#line 8239 "configure"' > conftest.$ac_ext + if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 + (eval $ac_compile) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; then + case `/usr/bin/file conftest.$ac_objext` in + *64-bit*) + libsuff=64 + sys_lib_search_path_spec="/lib${libsuff} /usr/lib${libsuff} /usr/local/lib${libsuff}" + ;; + esac + fi + rm -rf conftest* + ;; + esac + + # Append ld.so.conf contents to the search path + if test -f /etc/ld.so.conf; then + lt_ld_extra=`awk '/^include / { system(sprintf("cd /etc; cat %s", \$2)); skip = 1; } { if (!skip) print \$0; skip = 0; }' < /etc/ld.so.conf | $SED -e 's/#.*//;s/[:, ]/ /g;s/=[^=]*$//;s/=[^= ]* / /g;/^$/d' | tr '\n' ' '` + sys_lib_dlsearch_path_spec="/lib${libsuff} /usr/lib${libsuff} $lt_ld_extra" + fi + + # We used to test for /lib/ld.so.1 and disable shared libraries on + # powerpc, because MkLinux only supported shared libraries with the + # GNU dynamic linker. Since this was broken with cross compilers, + # most powerpc-linux boxes support dynamic linking these days and + # people can always --disable-shared, the test was removed, and we + # assume the GNU/Linux dynamic linker is in use. + dynamic_linker='GNU/Linux ld.so' + ;; + +knetbsd*-gnu) + version_type=linux + need_lib_prefix=no + need_version=no + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=no + hardcode_into_libs=yes + dynamic_linker='GNU ld.so' + ;; + +netbsd*) + version_type=sunos + need_lib_prefix=no + need_version=no + if echo __ELF__ | $CC -E - | grep __ELF__ >/dev/null; then + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' + finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir' + dynamic_linker='NetBSD (a.out) ld.so' + else + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + dynamic_linker='NetBSD ld.elf_so' + fi + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=yes + hardcode_into_libs=yes + ;; + +newsos6) + version_type=linux + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=yes + ;; + +nto-qnx*) + version_type=linux + need_lib_prefix=no + need_version=no + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=yes + ;; + +openbsd*) + version_type=sunos + need_lib_prefix=no + # Some older versions of OpenBSD (3.3 at least) *do* need versioned libs. + case $host_os in + openbsd3.3 | openbsd3.3.*) need_version=yes ;; + *) need_version=no ;; + esac + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' + finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir' + shlibpath_var=LD_LIBRARY_PATH + if test -z "`echo __ELF__ | $CC -E - | grep __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then + case $host_os in + openbsd2.[89] | openbsd2.[89].*) + shlibpath_overrides_runpath=no + ;; + *) + shlibpath_overrides_runpath=yes + ;; + esac + else + shlibpath_overrides_runpath=yes + fi + ;; + +os2*) + libname_spec='$name' + shrext_cmds=".dll" + need_lib_prefix=no + library_names_spec='$libname${shared_ext} $libname.a' + dynamic_linker='OS/2 ld.exe' + shlibpath_var=LIBPATH + ;; + +osf3* | osf4* | osf5*) + version_type=osf + need_lib_prefix=no + need_version=no + soname_spec='${libname}${release}${shared_ext}$major' + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + shlibpath_var=LD_LIBRARY_PATH + sys_lib_search_path_spec="/usr/shlib /usr/ccs/lib /usr/lib/cmplrs/cc /usr/lib /usr/local/lib /var/shlib" + sys_lib_dlsearch_path_spec="$sys_lib_search_path_spec" + ;; + +sco3.2v5*) + version_type=osf + soname_spec='${libname}${release}${shared_ext}$major' + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + shlibpath_var=LD_LIBRARY_PATH + ;; + +solaris*) + version_type=linux + need_lib_prefix=no + need_version=no + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=yes + hardcode_into_libs=yes + # ldd complains unless libraries are executable + postinstall_cmds='chmod +x $lib' + ;; + +sunos4*) + version_type=sunos + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' + finish_cmds='PATH="\$PATH:/usr/etc" ldconfig $libdir' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=yes + if test "$with_gnu_ld" = yes; then + need_lib_prefix=no + fi + need_version=yes + ;; + +sysv4 | sysv4.2uw2* | sysv4.3* | sysv5*) + version_type=linux + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + shlibpath_var=LD_LIBRARY_PATH + case $host_vendor in + sni) + shlibpath_overrides_runpath=no + need_lib_prefix=no + export_dynamic_flag_spec='${wl}-Blargedynsym' + runpath_var=LD_RUN_PATH + ;; + siemens) + need_lib_prefix=no + ;; + motorola) + need_lib_prefix=no + need_version=no + shlibpath_overrides_runpath=no + sys_lib_search_path_spec='/lib /usr/lib /usr/ccs/lib' + ;; + esac + ;; + +sysv4*MP*) + if test -d /usr/nec ;then + version_type=linux + library_names_spec='$libname${shared_ext}.$versuffix $libname${shared_ext}.$major $libname${shared_ext}' + soname_spec='$libname${shared_ext}.$major' + shlibpath_var=LD_LIBRARY_PATH + fi + ;; + +uts4*) + version_type=linux + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + shlibpath_var=LD_LIBRARY_PATH + ;; + +*) + dynamic_linker=no + ;; +esac +echo "$as_me:$LINENO: result: $dynamic_linker" >&5 +echo "${ECHO_T}$dynamic_linker" >&6 +test "$dynamic_linker" = no && can_build_shared=no + +echo "$as_me:$LINENO: checking how to hardcode library paths into programs" >&5 +echo $ECHO_N "checking how to hardcode library paths into programs... $ECHO_C" >&6 +hardcode_action= +if test -n "$hardcode_libdir_flag_spec" || \ + test -n "$runpath_var" || \ + test "X$hardcode_automatic" = "Xyes" ; then + + # We can hardcode non-existant directories. + if test "$hardcode_direct" != no && + # If the only mechanism to avoid hardcoding is shlibpath_var, we + # have to relink, otherwise we might link with an installed library + # when we should be linking with a yet-to-be-installed one + ## test "$_LT_AC_TAGVAR(hardcode_shlibpath_var, )" != no && + test "$hardcode_minus_L" != no; then + # Linking always hardcodes the temporary library directory. + hardcode_action=relink + else + # We can link without hardcoding, and we can hardcode nonexisting dirs. + hardcode_action=immediate + fi +else + # We cannot hardcode anything, or else we can only hardcode existing + # directories. + hardcode_action=unsupported +fi +echo "$as_me:$LINENO: result: $hardcode_action" >&5 +echo "${ECHO_T}$hardcode_action" >&6 + +if test "$hardcode_action" = relink; then + # Fast installation is not supported + enable_fast_install=no +elif test "$shlibpath_overrides_runpath" = yes || + test "$enable_shared" = no; then + # Fast installation is not necessary + enable_fast_install=needless +fi + +striplib= +old_striplib= +echo "$as_me:$LINENO: checking whether stripping libraries is possible" >&5 +echo $ECHO_N "checking whether stripping libraries is possible... $ECHO_C" >&6 +if test -n "$STRIP" && $STRIP -V 2>&1 | grep "GNU strip" >/dev/null; then + test -z "$old_striplib" && old_striplib="$STRIP --strip-debug" + test -z "$striplib" && striplib="$STRIP --strip-unneeded" + echo "$as_me:$LINENO: result: yes" >&5 +echo "${ECHO_T}yes" >&6 +else +# FIXME - insert some real tests, host_os isn't really good enough + case $host_os in + darwin*) + if test -n "$STRIP" ; then + striplib="$STRIP -x" + echo "$as_me:$LINENO: result: yes" >&5 +echo "${ECHO_T}yes" >&6 + else + echo "$as_me:$LINENO: result: no" >&5 +echo "${ECHO_T}no" >&6 +fi + ;; + *) + echo "$as_me:$LINENO: result: no" >&5 +echo "${ECHO_T}no" >&6 + ;; + esac +fi + +if test "x$enable_dlopen" != xyes; then + enable_dlopen=unknown + enable_dlopen_self=unknown + enable_dlopen_self_static=unknown +else + lt_cv_dlopen=no + lt_cv_dlopen_libs= + + case $host_os in + beos*) + lt_cv_dlopen="load_add_on" + lt_cv_dlopen_libs= + lt_cv_dlopen_self=yes + ;; + + mingw* | pw32*) + lt_cv_dlopen="LoadLibrary" + lt_cv_dlopen_libs= + ;; + + cygwin*) + lt_cv_dlopen="dlopen" + lt_cv_dlopen_libs= + ;; + + darwin*) + # if libdl is installed we need to link against it + echo "$as_me:$LINENO: checking for dlopen in -ldl" >&5 +echo $ECHO_N "checking for dlopen in -ldl... $ECHO_C" >&6 +if test "${ac_cv_lib_dl_dlopen+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + ac_check_lib_save_LIBS=$LIBS +LIBS="-ldl $LIBS" +cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ + +/* Override any gcc2 internal prototype to avoid an error. */ +#ifdef __cplusplus +extern "C" +#endif +/* We use char because int might match the return type of a gcc2 + builtin and then its argument prototype would still apply. */ +char dlopen (); +int +main () +{ +dlopen (); + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext conftest$ac_exeext +if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest$ac_exeext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + ac_cv_lib_dl_dlopen=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_cv_lib_dl_dlopen=no +fi +rm -f conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +LIBS=$ac_check_lib_save_LIBS +fi +echo "$as_me:$LINENO: result: $ac_cv_lib_dl_dlopen" >&5 +echo "${ECHO_T}$ac_cv_lib_dl_dlopen" >&6 +if test $ac_cv_lib_dl_dlopen = yes; then + lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-ldl" +else + + lt_cv_dlopen="dyld" + lt_cv_dlopen_libs= + lt_cv_dlopen_self=yes + +fi + + ;; + + *) + echo "$as_me:$LINENO: checking for shl_load" >&5 +echo $ECHO_N "checking for shl_load... $ECHO_C" >&6 +if test "${ac_cv_func_shl_load+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +/* Define shl_load to an innocuous variant, in case declares shl_load. + For example, HP-UX 11i declares gettimeofday. */ +#define shl_load innocuous_shl_load + +/* System header to define __stub macros and hopefully few prototypes, + which can conflict with char shl_load (); below. + Prefer to if __STDC__ is defined, since + exists even on freestanding compilers. */ + +#ifdef __STDC__ +# include +#else +# include +#endif + +#undef shl_load + +/* Override any gcc2 internal prototype to avoid an error. */ +#ifdef __cplusplus +extern "C" +{ +#endif +/* We use char because int might match the return type of a gcc2 + builtin and then its argument prototype would still apply. */ +char shl_load (); +/* The GNU C library defines this for functions which it implements + to always fail with ENOSYS. Some functions are actually named + something starting with __ and the normal name is an alias. */ +#if defined (__stub_shl_load) || defined (__stub___shl_load) +choke me +#else +char (*f) () = shl_load; +#endif +#ifdef __cplusplus +} +#endif + +int +main () +{ +return f != shl_load; + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext conftest$ac_exeext +if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest$ac_exeext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + ac_cv_func_shl_load=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_cv_func_shl_load=no +fi +rm -f conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +fi +echo "$as_me:$LINENO: result: $ac_cv_func_shl_load" >&5 +echo "${ECHO_T}$ac_cv_func_shl_load" >&6 +if test $ac_cv_func_shl_load = yes; then + lt_cv_dlopen="shl_load" +else + echo "$as_me:$LINENO: checking for shl_load in -ldld" >&5 +echo $ECHO_N "checking for shl_load in -ldld... $ECHO_C" >&6 +if test "${ac_cv_lib_dld_shl_load+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + ac_check_lib_save_LIBS=$LIBS +LIBS="-ldld $LIBS" +cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ + +/* Override any gcc2 internal prototype to avoid an error. */ +#ifdef __cplusplus +extern "C" +#endif +/* We use char because int might match the return type of a gcc2 + builtin and then its argument prototype would still apply. */ +char shl_load (); +int +main () +{ +shl_load (); + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext conftest$ac_exeext +if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest$ac_exeext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + ac_cv_lib_dld_shl_load=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_cv_lib_dld_shl_load=no +fi +rm -f conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +LIBS=$ac_check_lib_save_LIBS +fi +echo "$as_me:$LINENO: result: $ac_cv_lib_dld_shl_load" >&5 +echo "${ECHO_T}$ac_cv_lib_dld_shl_load" >&6 +if test $ac_cv_lib_dld_shl_load = yes; then + lt_cv_dlopen="shl_load" lt_cv_dlopen_libs="-dld" +else + echo "$as_me:$LINENO: checking for dlopen" >&5 +echo $ECHO_N "checking for dlopen... $ECHO_C" >&6 +if test "${ac_cv_func_dlopen+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +/* Define dlopen to an innocuous variant, in case declares dlopen. + For example, HP-UX 11i declares gettimeofday. */ +#define dlopen innocuous_dlopen + +/* System header to define __stub macros and hopefully few prototypes, + which can conflict with char dlopen (); below. + Prefer to if __STDC__ is defined, since + exists even on freestanding compilers. */ + +#ifdef __STDC__ +# include +#else +# include +#endif + +#undef dlopen + +/* Override any gcc2 internal prototype to avoid an error. */ +#ifdef __cplusplus +extern "C" +{ +#endif +/* We use char because int might match the return type of a gcc2 + builtin and then its argument prototype would still apply. */ +char dlopen (); +/* The GNU C library defines this for functions which it implements + to always fail with ENOSYS. Some functions are actually named + something starting with __ and the normal name is an alias. */ +#if defined (__stub_dlopen) || defined (__stub___dlopen) +choke me +#else +char (*f) () = dlopen; +#endif +#ifdef __cplusplus +} +#endif + +int +main () +{ +return f != dlopen; + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext conftest$ac_exeext +if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest$ac_exeext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + ac_cv_func_dlopen=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_cv_func_dlopen=no +fi +rm -f conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +fi +echo "$as_me:$LINENO: result: $ac_cv_func_dlopen" >&5 +echo "${ECHO_T}$ac_cv_func_dlopen" >&6 +if test $ac_cv_func_dlopen = yes; then + lt_cv_dlopen="dlopen" +else + echo "$as_me:$LINENO: checking for dlopen in -ldl" >&5 +echo $ECHO_N "checking for dlopen in -ldl... $ECHO_C" >&6 +if test "${ac_cv_lib_dl_dlopen+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + ac_check_lib_save_LIBS=$LIBS +LIBS="-ldl $LIBS" +cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ + +/* Override any gcc2 internal prototype to avoid an error. */ +#ifdef __cplusplus +extern "C" +#endif +/* We use char because int might match the return type of a gcc2 + builtin and then its argument prototype would still apply. */ +char dlopen (); +int +main () +{ +dlopen (); + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext conftest$ac_exeext +if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest$ac_exeext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + ac_cv_lib_dl_dlopen=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_cv_lib_dl_dlopen=no +fi +rm -f conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +LIBS=$ac_check_lib_save_LIBS +fi +echo "$as_me:$LINENO: result: $ac_cv_lib_dl_dlopen" >&5 +echo "${ECHO_T}$ac_cv_lib_dl_dlopen" >&6 +if test $ac_cv_lib_dl_dlopen = yes; then + lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-ldl" +else + echo "$as_me:$LINENO: checking for dlopen in -lsvld" >&5 +echo $ECHO_N "checking for dlopen in -lsvld... $ECHO_C" >&6 +if test "${ac_cv_lib_svld_dlopen+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + ac_check_lib_save_LIBS=$LIBS +LIBS="-lsvld $LIBS" +cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ + +/* Override any gcc2 internal prototype to avoid an error. */ +#ifdef __cplusplus +extern "C" +#endif +/* We use char because int might match the return type of a gcc2 + builtin and then its argument prototype would still apply. */ +char dlopen (); +int +main () +{ +dlopen (); + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext conftest$ac_exeext +if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest$ac_exeext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + ac_cv_lib_svld_dlopen=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_cv_lib_svld_dlopen=no +fi +rm -f conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +LIBS=$ac_check_lib_save_LIBS +fi +echo "$as_me:$LINENO: result: $ac_cv_lib_svld_dlopen" >&5 +echo "${ECHO_T}$ac_cv_lib_svld_dlopen" >&6 +if test $ac_cv_lib_svld_dlopen = yes; then + lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-lsvld" +else + echo "$as_me:$LINENO: checking for dld_link in -ldld" >&5 +echo $ECHO_N "checking for dld_link in -ldld... $ECHO_C" >&6 +if test "${ac_cv_lib_dld_dld_link+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + ac_check_lib_save_LIBS=$LIBS +LIBS="-ldld $LIBS" +cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ + +/* Override any gcc2 internal prototype to avoid an error. */ +#ifdef __cplusplus +extern "C" +#endif +/* We use char because int might match the return type of a gcc2 + builtin and then its argument prototype would still apply. */ +char dld_link (); +int +main () +{ +dld_link (); + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext conftest$ac_exeext +if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest$ac_exeext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + ac_cv_lib_dld_dld_link=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_cv_lib_dld_dld_link=no +fi +rm -f conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +LIBS=$ac_check_lib_save_LIBS +fi +echo "$as_me:$LINENO: result: $ac_cv_lib_dld_dld_link" >&5 +echo "${ECHO_T}$ac_cv_lib_dld_dld_link" >&6 +if test $ac_cv_lib_dld_dld_link = yes; then + lt_cv_dlopen="dld_link" lt_cv_dlopen_libs="-dld" +fi + + +fi + + +fi + + +fi + + +fi + + +fi + + ;; + esac + + if test "x$lt_cv_dlopen" != xno; then + enable_dlopen=yes + else + enable_dlopen=no + fi + + case $lt_cv_dlopen in + dlopen) + save_CPPFLAGS="$CPPFLAGS" + test "x$ac_cv_header_dlfcn_h" = xyes && CPPFLAGS="$CPPFLAGS -DHAVE_DLFCN_H" + + save_LDFLAGS="$LDFLAGS" + eval LDFLAGS=\"\$LDFLAGS $export_dynamic_flag_spec\" + + save_LIBS="$LIBS" + LIBS="$lt_cv_dlopen_libs $LIBS" + + echo "$as_me:$LINENO: checking whether a program can dlopen itself" >&5 +echo $ECHO_N "checking whether a program can dlopen itself... $ECHO_C" >&6 +if test "${lt_cv_dlopen_self+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + if test "$cross_compiling" = yes; then : + lt_cv_dlopen_self=cross +else + lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2 + lt_status=$lt_dlunknown + cat > conftest.$ac_ext < +#endif + +#include + +#ifdef RTLD_GLOBAL +# define LT_DLGLOBAL RTLD_GLOBAL +#else +# ifdef DL_GLOBAL +# define LT_DLGLOBAL DL_GLOBAL +# else +# define LT_DLGLOBAL 0 +# endif +#endif + +/* We may have to define LT_DLLAZY_OR_NOW in the command line if we + find out it does not work in some platform. */ +#ifndef LT_DLLAZY_OR_NOW +# ifdef RTLD_LAZY +# define LT_DLLAZY_OR_NOW RTLD_LAZY +# else +# ifdef DL_LAZY +# define LT_DLLAZY_OR_NOW DL_LAZY +# else +# ifdef RTLD_NOW +# define LT_DLLAZY_OR_NOW RTLD_NOW +# else +# ifdef DL_NOW +# define LT_DLLAZY_OR_NOW DL_NOW +# else +# define LT_DLLAZY_OR_NOW 0 +# endif +# endif +# endif +# endif +#endif + +#ifdef __cplusplus +extern "C" void exit (int); +#endif + +void fnord() { int i=42;} +int main () +{ + void *self = dlopen (0, LT_DLGLOBAL|LT_DLLAZY_OR_NOW); + int status = $lt_dlunknown; + + if (self) + { + if (dlsym (self,"fnord")) status = $lt_dlno_uscore; + else if (dlsym( self,"_fnord")) status = $lt_dlneed_uscore; + /* dlclose (self); */ + } + + exit (status); +} +EOF + if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && test -s conftest${ac_exeext} 2>/dev/null; then + (./conftest; exit; ) 2>/dev/null + lt_status=$? + case x$lt_status in + x$lt_dlno_uscore) lt_cv_dlopen_self=yes ;; + x$lt_dlneed_uscore) lt_cv_dlopen_self=yes ;; + x$lt_unknown|x*) lt_cv_dlopen_self=no ;; + esac + else : + # compilation failed + lt_cv_dlopen_self=no + fi +fi +rm -fr conftest* + + +fi +echo "$as_me:$LINENO: result: $lt_cv_dlopen_self" >&5 +echo "${ECHO_T}$lt_cv_dlopen_self" >&6 + + if test "x$lt_cv_dlopen_self" = xyes; then + LDFLAGS="$LDFLAGS $link_static_flag" + echo "$as_me:$LINENO: checking whether a statically linked program can dlopen itself" >&5 +echo $ECHO_N "checking whether a statically linked program can dlopen itself... $ECHO_C" >&6 +if test "${lt_cv_dlopen_self_static+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + if test "$cross_compiling" = yes; then : + lt_cv_dlopen_self_static=cross +else + lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2 + lt_status=$lt_dlunknown + cat > conftest.$ac_ext < +#endif + +#include + +#ifdef RTLD_GLOBAL +# define LT_DLGLOBAL RTLD_GLOBAL +#else +# ifdef DL_GLOBAL +# define LT_DLGLOBAL DL_GLOBAL +# else +# define LT_DLGLOBAL 0 +# endif +#endif + +/* We may have to define LT_DLLAZY_OR_NOW in the command line if we + find out it does not work in some platform. */ +#ifndef LT_DLLAZY_OR_NOW +# ifdef RTLD_LAZY +# define LT_DLLAZY_OR_NOW RTLD_LAZY +# else +# ifdef DL_LAZY +# define LT_DLLAZY_OR_NOW DL_LAZY +# else +# ifdef RTLD_NOW +# define LT_DLLAZY_OR_NOW RTLD_NOW +# else +# ifdef DL_NOW +# define LT_DLLAZY_OR_NOW DL_NOW +# else +# define LT_DLLAZY_OR_NOW 0 +# endif +# endif +# endif +# endif +#endif + +#ifdef __cplusplus +extern "C" void exit (int); +#endif + +void fnord() { int i=42;} +int main () +{ + void *self = dlopen (0, LT_DLGLOBAL|LT_DLLAZY_OR_NOW); + int status = $lt_dlunknown; + + if (self) + { + if (dlsym (self,"fnord")) status = $lt_dlno_uscore; + else if (dlsym( self,"_fnord")) status = $lt_dlneed_uscore; + /* dlclose (self); */ + } + + exit (status); +} +EOF + if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && test -s conftest${ac_exeext} 2>/dev/null; then + (./conftest; exit; ) 2>/dev/null + lt_status=$? + case x$lt_status in + x$lt_dlno_uscore) lt_cv_dlopen_self_static=yes ;; + x$lt_dlneed_uscore) lt_cv_dlopen_self_static=yes ;; + x$lt_unknown|x*) lt_cv_dlopen_self_static=no ;; + esac + else : + # compilation failed + lt_cv_dlopen_self_static=no + fi +fi +rm -fr conftest* + + +fi +echo "$as_me:$LINENO: result: $lt_cv_dlopen_self_static" >&5 +echo "${ECHO_T}$lt_cv_dlopen_self_static" >&6 + fi + + CPPFLAGS="$save_CPPFLAGS" + LDFLAGS="$save_LDFLAGS" + LIBS="$save_LIBS" + ;; + esac + + case $lt_cv_dlopen_self in + yes|no) enable_dlopen_self=$lt_cv_dlopen_self ;; + *) enable_dlopen_self=unknown ;; + esac + + case $lt_cv_dlopen_self_static in + yes|no) enable_dlopen_self_static=$lt_cv_dlopen_self_static ;; + *) enable_dlopen_self_static=unknown ;; + esac +fi + + +# Report which librarie types wil actually be built +echo "$as_me:$LINENO: checking if libtool supports shared libraries" >&5 +echo $ECHO_N "checking if libtool supports shared libraries... $ECHO_C" >&6 +echo "$as_me:$LINENO: result: $can_build_shared" >&5 +echo "${ECHO_T}$can_build_shared" >&6 + +echo "$as_me:$LINENO: checking whether to build shared libraries" >&5 +echo $ECHO_N "checking whether to build shared libraries... $ECHO_C" >&6 +test "$can_build_shared" = "no" && enable_shared=no + +# On AIX, shared libraries and static libraries use the same namespace, and +# are all built from PIC. +case "$host_os" in +aix3*) + test "$enable_shared" = yes && enable_static=no + if test -n "$RANLIB"; then + archive_cmds="$archive_cmds~\$RANLIB \$lib" + postinstall_cmds='$RANLIB $lib' + fi + ;; + +aix4* | aix5*) + if test "$host_cpu" != ia64 && test "$aix_use_runtimelinking" = no ; then + test "$enable_shared" = yes && enable_static=no + fi + ;; +esac +echo "$as_me:$LINENO: result: $enable_shared" >&5 +echo "${ECHO_T}$enable_shared" >&6 + +echo "$as_me:$LINENO: checking whether to build static libraries" >&5 +echo $ECHO_N "checking whether to build static libraries... $ECHO_C" >&6 +# Make sure either enable_shared or enable_static is yes. +test "$enable_shared" = yes || enable_static=yes +echo "$as_me:$LINENO: result: $enable_static" >&5 +echo "${ECHO_T}$enable_static" >&6 + +# The else clause should only fire when bootstrapping the +# libtool distribution, otherwise you forgot to ship ltmain.sh +# with your package, and you will get complaints that there are +# no rules to generate ltmain.sh. +if test -f "$ltmain"; then + # See if we are running on zsh, and set the options which allow our commands through + # without removal of \ escapes. + if test -n "${ZSH_VERSION+set}" ; then + setopt NO_GLOB_SUBST + fi + # Now quote all the things that may contain metacharacters while being + # careful not to overquote the AC_SUBSTed values. We take copies of the + # variables and quote the copies for generation of the libtool script. + for var in echo old_CC old_CFLAGS AR AR_FLAGS EGREP RANLIB LN_S LTCC NM \ + SED SHELL STRIP \ + libname_spec library_names_spec soname_spec extract_expsyms_cmds \ + old_striplib striplib file_magic_cmd finish_cmds finish_eval \ + deplibs_check_method reload_flag reload_cmds need_locks \ + lt_cv_sys_global_symbol_pipe lt_cv_sys_global_symbol_to_cdecl \ + lt_cv_sys_global_symbol_to_c_name_address \ + sys_lib_search_path_spec sys_lib_dlsearch_path_spec \ + old_postinstall_cmds old_postuninstall_cmds \ + compiler \ + CC \ + LD \ + lt_prog_compiler_wl \ + lt_prog_compiler_pic \ + lt_prog_compiler_static \ + lt_prog_compiler_no_builtin_flag \ + export_dynamic_flag_spec \ + thread_safe_flag_spec \ + whole_archive_flag_spec \ + enable_shared_with_static_runtimes \ + old_archive_cmds \ + old_archive_from_new_cmds \ + predep_objects \ + postdep_objects \ + predeps \ + postdeps \ + compiler_lib_search_path \ + archive_cmds \ + archive_expsym_cmds \ + postinstall_cmds \ + postuninstall_cmds \ + old_archive_from_expsyms_cmds \ + allow_undefined_flag \ + no_undefined_flag \ + export_symbols_cmds \ + hardcode_libdir_flag_spec \ + hardcode_libdir_flag_spec_ld \ + hardcode_libdir_separator \ + hardcode_automatic \ + module_cmds \ + module_expsym_cmds \ + lt_cv_prog_compiler_c_o \ + exclude_expsyms \ + include_expsyms; do + + case $var in + old_archive_cmds | \ + old_archive_from_new_cmds | \ + archive_cmds | \ + archive_expsym_cmds | \ + module_cmds | \ + module_expsym_cmds | \ + old_archive_from_expsyms_cmds | \ + export_symbols_cmds | \ + extract_expsyms_cmds | reload_cmds | finish_cmds | \ + postinstall_cmds | postuninstall_cmds | \ + old_postinstall_cmds | old_postuninstall_cmds | \ + sys_lib_search_path_spec | sys_lib_dlsearch_path_spec) + # Double-quote double-evaled strings. + eval "lt_$var=\\\"\`\$echo \"X\$$var\" | \$Xsed -e \"\$double_quote_subst\" -e \"\$sed_quote_subst\" -e \"\$delay_variable_subst\"\`\\\"" + ;; + *) + eval "lt_$var=\\\"\`\$echo \"X\$$var\" | \$Xsed -e \"\$sed_quote_subst\"\`\\\"" + ;; + esac + done + + case $lt_echo in + *'\$0 --fallback-echo"') + lt_echo=`$echo "X$lt_echo" | $Xsed -e 's/\\\\\\\$0 --fallback-echo"$/$0 --fallback-echo"/'` + ;; + esac + +cfgfile="${ofile}T" + trap "$rm \"$cfgfile\"; exit 1" 1 2 15 + $rm -f "$cfgfile" + { echo "$as_me:$LINENO: creating $ofile" >&5 +echo "$as_me: creating $ofile" >&6;} + + cat <<__EOF__ >> "$cfgfile" +#! $SHELL + +# `$echo "$cfgfile" | sed 's%^.*/%%'` - Provide generalized library-building support services. +# Generated automatically by $PROGRAM (GNU $PACKAGE $VERSION$TIMESTAMP) +# NOTE: Changes made to this file will be lost: look at ltmain.sh. +# +# Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001 +# Free Software Foundation, Inc. +# +# This file is part of GNU Libtool: +# Originally by Gordon Matzigkeit , 1996 +# +# This program 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. +# +# As a special exception to the GNU General Public License, if you +# distribute this file as part of a program that contains a +# configuration script generated by Autoconf, you may include it under +# the same distribution terms that you use for the rest of that program. + +# A sed program that does not truncate output. +SED=$lt_SED + +# Sed that helps us avoid accidentally triggering echo(1) options like -n. +Xsed="$SED -e 1s/^X//" + +# The HP-UX ksh and POSIX shell print the target directory to stdout +# if CDPATH is set. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + +# The names of the tagged configurations supported by this script. +available_tags= + +# ### BEGIN LIBTOOL CONFIG + +# Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: + +# Shell to use when invoking shell scripts. +SHELL=$lt_SHELL + +# Whether or not to build shared libraries. +build_libtool_libs=$enable_shared + +# Whether or not to build static libraries. +build_old_libs=$enable_static + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc + +# Whether or not to disallow shared libs when runtime libs are static +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes + +# Whether or not to optimize for fast installation. +fast_install=$enable_fast_install + +# The host system. +host_alias=$host_alias +host=$host +host_os=$host_os + +# The build system. +build_alias=$build_alias +build=$build +build_os=$build_os + +# An echo program that does not interpret backslashes. +echo=$lt_echo + +# The archiver. +AR=$lt_AR +AR_FLAGS=$lt_AR_FLAGS + +# A C compiler. +LTCC=$lt_LTCC + +# A language-specific compiler. +CC=$lt_compiler + +# Is the compiler the GNU C compiler? +with_gcc=$GCC + +# An ERE matcher. +EGREP=$lt_EGREP + +# The linker used to build libraries. +LD=$lt_LD + +# Whether we need hard or soft links. +LN_S=$lt_LN_S + +# A BSD-compatible nm program. +NM=$lt_NM + +# A symbol stripping program +STRIP=$lt_STRIP + +# Used to examine libraries when file_magic_cmd begins "file" +MAGIC_CMD=$MAGIC_CMD + +# Used on cygwin: DLL creation program. +DLLTOOL="$DLLTOOL" + +# Used on cygwin: object dumper. +OBJDUMP="$OBJDUMP" + +# Used on cygwin: assembler. +AS="$AS" + +# The name of the directory that contains temporary libtool files. +objdir=$objdir + +# How to create reloadable object files. +reload_flag=$lt_reload_flag +reload_cmds=$lt_reload_cmds + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl + +# Object file suffix (normally "o"). +objext="$ac_objext" + +# Old archive suffix (normally "a"). +libext="$libext" + +# Shared library suffix (normally ".so"). +shrext_cmds='$shrext_cmds' + +# Executable file suffix (normally ""). +exeext="$exeext" + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic +pic_mode=$pic_mode + +# What is the maximum length of a command? +max_cmd_len=$lt_cv_sys_max_cmd_len + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o + +# Must we lock files when doing compilation? +need_locks=$lt_need_locks + +# Do we need the lib prefix for modules? +need_lib_prefix=$need_lib_prefix + +# Do we need a version for libraries? +need_version=$need_version + +# Whether dlopen is supported. +dlopen_support=$enable_dlopen + +# Whether dlopen of programs is supported. +dlopen_self=$enable_dlopen_self + +# Whether dlopen of statically linked programs is supported. +dlopen_self_static=$enable_dlopen_self_static + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec + +# Compiler flag to generate thread-safe objects. +thread_safe_flag_spec=$lt_thread_safe_flag_spec + +# Library versioning type. +version_type=$version_type + +# Format of library name prefix. +libname_spec=$lt_libname_spec + +# List of archive names. First name is the real one, the rest are links. +# The last name is the one that the linker finds with -lNAME. +library_names_spec=$lt_library_names_spec + +# The coded name of the library, if different from the real name. +soname_spec=$lt_soname_spec + +# Commands used to build and install an old-style archive. +RANLIB=$lt_RANLIB +old_archive_cmds=$lt_old_archive_cmds +old_postinstall_cmds=$lt_old_postinstall_cmds +old_postuninstall_cmds=$lt_old_postuninstall_cmds + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds + +# Commands used to build and install a shared archive. +archive_cmds=$lt_archive_cmds +archive_expsym_cmds=$lt_archive_expsym_cmds +postinstall_cmds=$lt_postinstall_cmds +postuninstall_cmds=$lt_postuninstall_cmds + +# Commands used to build a loadable module (assumed same as above if empty) +module_cmds=$lt_module_cmds +module_expsym_cmds=$lt_module_expsym_cmds + +# Commands to strip libraries. +old_striplib=$lt_old_striplib +striplib=$lt_striplib + +# Dependencies to place before the objects being linked to create a +# shared library. +predep_objects=$lt_predep_objects + +# Dependencies to place after the objects being linked to create a +# shared library. +postdep_objects=$lt_postdep_objects + +# Dependencies to place before the objects being linked to create a +# shared library. +predeps=$lt_predeps + +# Dependencies to place after the objects being linked to create a +# shared library. +postdeps=$lt_postdeps + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path + +# Method to check whether dependent libraries are shared objects. +deplibs_check_method=$lt_deplibs_check_method + +# Command to use when deplibs_check_method == file_magic. +file_magic_cmd=$lt_file_magic_cmd + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag + +# Flag that forces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag + +# Commands used to finish a libtool library installation in a directory. +finish_cmds=$lt_finish_cmds + +# Same as above, but a single script fragment to be evaled but not shown. +finish_eval=$lt_finish_eval + +# Take the output of nm and produce a listing of raw symbols and C names. +global_symbol_pipe=$lt_lt_cv_sys_global_symbol_pipe + +# Transform the output of nm in a proper C declaration +global_symbol_to_cdecl=$lt_lt_cv_sys_global_symbol_to_cdecl + +# Transform the output of nm in a C name address pair +global_symbol_to_c_name_address=$lt_lt_cv_sys_global_symbol_to_c_name_address + +# This is the shared library runtime path variable. +runpath_var=$runpath_var + +# This is the shared library path variable. +shlibpath_var=$shlibpath_var + +# Is shlibpath searched before the hard-coded library search path? +shlibpath_overrides_runpath=$shlibpath_overrides_runpath + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action + +# Whether we should hardcode library paths into libraries. +hardcode_into_libs=$hardcode_into_libs + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist. +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec + +# If ld is used when linking, flag to hardcode \$libdir into +# a binary during linking. This must work even if \$libdir does +# not exist. +hardcode_libdir_flag_spec_ld=$lt_hardcode_libdir_flag_spec_ld + +# Whether we need a single -rpath flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator + +# Set to yes if using DIR/libNAME${shared_ext} during linking hardcodes DIR into the +# resulting binary. +hardcode_direct=$hardcode_direct + +# Set to yes if using the -LDIR flag during linking hardcodes DIR into the +# resulting binary. +hardcode_minus_L=$hardcode_minus_L + +# Set to yes if using SHLIBPATH_VAR=DIR during linking hardcodes DIR into +# the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var + +# Set to yes if building a shared library automatically hardcodes DIR into the library +# and all subsequent libraries and executables linked against it. +hardcode_automatic=$hardcode_automatic + +# Variables whose values should be saved in libtool wrapper scripts and +# restored at relink time. +variables_saved_for_relink="$variables_saved_for_relink" + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs + +# Compile-time system search path for libraries +sys_lib_search_path_spec=$lt_sys_lib_search_path_spec + +# Run-time system search path for libraries +sys_lib_dlsearch_path_spec=$lt_sys_lib_dlsearch_path_spec + +# Fix the shell variable \$srcfile for the compiler. +fix_srcfile_path="$fix_srcfile_path" + +# Set to yes if exported symbols are required. +always_export_symbols=$always_export_symbols + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds + +# The commands to extract the exported symbol list from a shared archive. +extract_expsyms_cmds=$lt_extract_expsyms_cmds + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms + +# ### END LIBTOOL CONFIG + +__EOF__ + + + case $host_os in + aix3*) + cat <<\EOF >> "$cfgfile" + +# AIX sometimes has problems with the GCC collect2 program. For some +# reason, if we set the COLLECT_NAMES environment variable, the problems +# vanish in a puff of smoke. +if test "X${COLLECT_NAMES+set}" != Xset; then + COLLECT_NAMES= + export COLLECT_NAMES +fi +EOF + ;; + esac + + # We use sed instead of cat because bash on DJGPP gets confused if + # if finds mixed CR/LF and LF-only lines. Since sed operates in + # text mode, it properly converts lines to CR/LF. This bash problem + # is reportedly fixed, but why not run on old versions too? + sed '$q' "$ltmain" >> "$cfgfile" || (rm -f "$cfgfile"; exit 1) + + mv -f "$cfgfile" "$ofile" || \ + (rm -f "$ofile" && cp "$cfgfile" "$ofile" && rm -f "$cfgfile") + chmod +x "$ofile" + +else + # If there is no Makefile yet, we rely on a make rule to execute + # `config.status --recheck' to rerun these tests and create the + # libtool script then. + ltmain_in=`echo $ltmain | sed -e 's/\.sh$/.in/'` + if test -f "$ltmain_in"; then + test -f Makefile && make "$ltmain" + fi +fi + + +ac_ext=c +ac_cpp='$CPP $CPPFLAGS' +ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_c_compiler_gnu + +CC="$lt_save_CC" + + +# Check whether --with-tags or --without-tags was given. +if test "${with_tags+set}" = set; then + withval="$with_tags" + tagnames="$withval" +fi; + +if test -f "$ltmain" && test -n "$tagnames"; then + if test ! -f "${ofile}"; then + { echo "$as_me:$LINENO: WARNING: output file \`$ofile' does not exist" >&5 +echo "$as_me: WARNING: output file \`$ofile' does not exist" >&2;} + fi + + if test -z "$LTCC"; then + eval "`$SHELL ${ofile} --config | grep '^LTCC='`" + if test -z "$LTCC"; then + { echo "$as_me:$LINENO: WARNING: output file \`$ofile' does not look like a libtool script" >&5 +echo "$as_me: WARNING: output file \`$ofile' does not look like a libtool script" >&2;} + else + { echo "$as_me:$LINENO: WARNING: using \`LTCC=$LTCC', extracted from \`$ofile'" >&5 +echo "$as_me: WARNING: using \`LTCC=$LTCC', extracted from \`$ofile'" >&2;} + fi + fi + + # Extract list of available tagged configurations in $ofile. + # Note that this assumes the entire list is on one line. + available_tags=`grep "^available_tags=" "${ofile}" | $SED -e 's/available_tags=\(.*$\)/\1/' -e 's/\"//g'` + + lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR," + for tagname in $tagnames; do + IFS="$lt_save_ifs" + # Check whether tagname contains only valid characters + case `$echo "X$tagname" | $Xsed -e 's:[-_ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890,/]::g'` in + "") ;; + *) { { echo "$as_me:$LINENO: error: invalid tag name: $tagname" >&5 +echo "$as_me: error: invalid tag name: $tagname" >&2;} + { (exit 1); exit 1; }; } + ;; + esac + + if grep "^# ### BEGIN LIBTOOL TAG CONFIG: $tagname$" < "${ofile}" > /dev/null + then + { { echo "$as_me:$LINENO: error: tag name \"$tagname\" already exists" >&5 +echo "$as_me: error: tag name \"$tagname\" already exists" >&2;} + { (exit 1); exit 1; }; } + fi + + # Update the list of available tags. + if test -n "$tagname"; then + echo appending configuration tag \"$tagname\" to $ofile + + case $tagname in + CXX) + if test -n "$CXX" && ( test "X$CXX" != "Xno" && + ( (test "X$CXX" = "Xg++" && `g++ -v >/dev/null 2>&1` ) || + (test "X$CXX" != "Xg++"))) ; then + ac_ext=cc +ac_cpp='$CXXCPP $CPPFLAGS' +ac_compile='$CXX -c $CXXFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CXX -o conftest$ac_exeext $CXXFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_cxx_compiler_gnu + + + + +archive_cmds_need_lc_CXX=no +allow_undefined_flag_CXX= +always_export_symbols_CXX=no +archive_expsym_cmds_CXX= +export_dynamic_flag_spec_CXX= +hardcode_direct_CXX=no +hardcode_libdir_flag_spec_CXX= +hardcode_libdir_flag_spec_ld_CXX= +hardcode_libdir_separator_CXX= +hardcode_minus_L_CXX=no +hardcode_automatic_CXX=no +module_cmds_CXX= +module_expsym_cmds_CXX= +link_all_deplibs_CXX=unknown +old_archive_cmds_CXX=$old_archive_cmds +no_undefined_flag_CXX= +whole_archive_flag_spec_CXX= +enable_shared_with_static_runtimes_CXX=no + +# Dependencies to place before and after the object being linked: +predep_objects_CXX= +postdep_objects_CXX= +predeps_CXX= +postdeps_CXX= +compiler_lib_search_path_CXX= + +# Source file extension for C++ test sources. +ac_ext=cc + +# Object file extension for compiled C++ test sources. +objext=o +objext_CXX=$objext + +# Code to be used in simple compile tests +lt_simple_compile_test_code="int some_variable = 0;\n" + +# Code to be used in simple link tests +lt_simple_link_test_code='int main(int, char *) { return(0); }\n' + +# ltmain only uses $CC for tagged configurations so make sure $CC is set. + +# If no C compiler was specified, use CC. +LTCC=${LTCC-"$CC"} + +# Allow CC to be a program name with arguments. +compiler=$CC + + +# save warnings/boilerplate of simple test code +ac_outfile=conftest.$ac_objext +printf "$lt_simple_compile_test_code" >conftest.$ac_ext +eval "$ac_compile" 2>&1 >/dev/null | $SED '/^$/d' >conftest.err +_lt_compiler_boilerplate=`cat conftest.err` +$rm conftest* + +ac_outfile=conftest.$ac_objext +printf "$lt_simple_link_test_code" >conftest.$ac_ext +eval "$ac_link" 2>&1 >/dev/null | $SED '/^$/d' >conftest.err +_lt_linker_boilerplate=`cat conftest.err` +$rm conftest* + + +# Allow CC to be a program name with arguments. +lt_save_CC=$CC +lt_save_LD=$LD +lt_save_GCC=$GCC +GCC=$GXX +lt_save_with_gnu_ld=$with_gnu_ld +lt_save_path_LD=$lt_cv_path_LD +if test -n "${lt_cv_prog_gnu_ldcxx+set}"; then + lt_cv_prog_gnu_ld=$lt_cv_prog_gnu_ldcxx +else + unset lt_cv_prog_gnu_ld +fi +if test -n "${lt_cv_path_LDCXX+set}"; then + lt_cv_path_LD=$lt_cv_path_LDCXX +else + unset lt_cv_path_LD +fi +test -z "${LDCXX+set}" || LD=$LDCXX +CC=${CXX-"c++"} +compiler=$CC +compiler_CXX=$CC +for cc_temp in $compiler""; do + case $cc_temp in + compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; + distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; + \-*) ;; + *) break;; + esac +done +cc_basename=`$echo "X$cc_temp" | $Xsed -e 's%.*/%%' -e "s%^$host_alias-%%"` + + +# We don't want -fno-exception wen compiling C++ code, so set the +# no_builtin_flag separately +if test "$GXX" = yes; then + lt_prog_compiler_no_builtin_flag_CXX=' -fno-builtin' +else + lt_prog_compiler_no_builtin_flag_CXX= +fi + +if test "$GXX" = yes; then + # Set up default GNU C++ configuration + + +# Check whether --with-gnu-ld or --without-gnu-ld was given. +if test "${with_gnu_ld+set}" = set; then + withval="$with_gnu_ld" + test "$withval" = no || with_gnu_ld=yes +else + with_gnu_ld=no +fi; +ac_prog=ld +if test "$GCC" = yes; then + # Check if gcc -print-prog-name=ld gives a path. + echo "$as_me:$LINENO: checking for ld used by $CC" >&5 +echo $ECHO_N "checking for ld used by $CC... $ECHO_C" >&6 + case $host in + *-*-mingw*) + # gcc leaves a trailing carriage return which upsets mingw + ac_prog=`($CC -print-prog-name=ld) 2>&5 | tr -d '\015'` ;; + *) + ac_prog=`($CC -print-prog-name=ld) 2>&5` ;; + esac + case $ac_prog in + # Accept absolute paths. + [\\/]* | ?:[\\/]*) + re_direlt='/[^/][^/]*/\.\./' + # Canonicalize the pathname of ld + ac_prog=`echo $ac_prog| $SED 's%\\\\%/%g'` + while echo $ac_prog | grep "$re_direlt" > /dev/null 2>&1; do + ac_prog=`echo $ac_prog| $SED "s%$re_direlt%/%"` + done + test -z "$LD" && LD="$ac_prog" + ;; + "") + # If it fails, then pretend we aren't using GCC. + ac_prog=ld + ;; + *) + # If it is relative, then search for the first ld in PATH. + with_gnu_ld=unknown + ;; + esac +elif test "$with_gnu_ld" = yes; then + echo "$as_me:$LINENO: checking for GNU ld" >&5 +echo $ECHO_N "checking for GNU ld... $ECHO_C" >&6 +else + echo "$as_me:$LINENO: checking for non-GNU ld" >&5 +echo $ECHO_N "checking for non-GNU ld... $ECHO_C" >&6 +fi +if test "${lt_cv_path_LD+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + if test -z "$LD"; then + lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR + for ac_dir in $PATH; do + IFS="$lt_save_ifs" + test -z "$ac_dir" && ac_dir=. + if test -f "$ac_dir/$ac_prog" || test -f "$ac_dir/$ac_prog$ac_exeext"; then + lt_cv_path_LD="$ac_dir/$ac_prog" + # Check to see if the program is GNU ld. I'd rather use --version, + # but apparently some GNU ld's only accept -v. + # Break only if it was the GNU/non-GNU ld that we prefer. + case `"$lt_cv_path_LD" -v 2>&1 &5 +echo "${ECHO_T}$LD" >&6 +else + echo "$as_me:$LINENO: result: no" >&5 +echo "${ECHO_T}no" >&6 +fi +test -z "$LD" && { { echo "$as_me:$LINENO: error: no acceptable ld found in \$PATH" >&5 +echo "$as_me: error: no acceptable ld found in \$PATH" >&2;} + { (exit 1); exit 1; }; } +echo "$as_me:$LINENO: checking if the linker ($LD) is GNU ld" >&5 +echo $ECHO_N "checking if the linker ($LD) is GNU ld... $ECHO_C" >&6 +if test "${lt_cv_prog_gnu_ld+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + # I'd rather use --version here, but apparently some GNU ld's only accept -v. +case `$LD -v 2>&1 &5 +echo "${ECHO_T}$lt_cv_prog_gnu_ld" >&6 +with_gnu_ld=$lt_cv_prog_gnu_ld + + + + # Check if GNU C++ uses GNU ld as the underlying linker, since the + # archiving commands below assume that GNU ld is being used. + if test "$with_gnu_ld" = yes; then + archive_cmds_CXX='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib' + archive_expsym_cmds_CXX='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' + + hardcode_libdir_flag_spec_CXX='${wl}--rpath ${wl}$libdir' + export_dynamic_flag_spec_CXX='${wl}--export-dynamic' + + # If archive_cmds runs LD, not CC, wlarc should be empty + # XXX I think wlarc can be eliminated in ltcf-cxx, but I need to + # investigate it a little bit more. (MM) + wlarc='${wl}' + + # ancient GNU ld didn't support --whole-archive et. al. + if eval "`$CC -print-prog-name=ld` --help 2>&1" | \ + grep 'no-whole-archive' > /dev/null; then + whole_archive_flag_spec_CXX="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive' + else + whole_archive_flag_spec_CXX= + fi + else + with_gnu_ld=no + wlarc= + + # A generic and very simple default shared library creation + # command for GNU C++ for the case where it uses the native + # linker, instead of GNU ld. If possible, this setting should + # overridden to take advantage of the native linker features on + # the platform it is being used on. + archive_cmds_CXX='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $lib' + fi + + # Commands to make compiler produce verbose output that lists + # what "hidden" libraries, object files and flags are used when + # linking a shared library. + output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | grep "\-L"' + +else + GXX=no + with_gnu_ld=no + wlarc= +fi + +# PORTME: fill in a description of your system's C++ link characteristics +echo "$as_me:$LINENO: checking whether the $compiler linker ($LD) supports shared libraries" >&5 +echo $ECHO_N "checking whether the $compiler linker ($LD) supports shared libraries... $ECHO_C" >&6 +ld_shlibs_CXX=yes +case $host_os in + aix3*) + # FIXME: insert proper C++ library support + ld_shlibs_CXX=no + ;; + aix4* | aix5*) + if test "$host_cpu" = ia64; then + # On IA64, the linker does run time linking by default, so we don't + # have to do anything special. + aix_use_runtimelinking=no + exp_sym_flag='-Bexport' + no_entry_flag="" + else + aix_use_runtimelinking=no + + # Test if we are trying to use run time linking or normal + # AIX style linking. If -brtl is somewhere in LDFLAGS, we + # need to do runtime linking. + case $host_os in aix4.[23]|aix4.[23].*|aix5*) + for ld_flag in $LDFLAGS; do + case $ld_flag in + *-brtl*) + aix_use_runtimelinking=yes + break + ;; + esac + done + esac + + exp_sym_flag='-bexport' + no_entry_flag='-bnoentry' + fi + + # When large executables or shared objects are built, AIX ld can + # have problems creating the table of contents. If linking a library + # or program results in "error TOC overflow" add -mminimal-toc to + # CXXFLAGS/CFLAGS for g++/gcc. In the cases where that is not + # enough to fix the problem, add -Wl,-bbigtoc to LDFLAGS. + + archive_cmds_CXX='' + hardcode_direct_CXX=yes + hardcode_libdir_separator_CXX=':' + link_all_deplibs_CXX=yes + + if test "$GXX" = yes; then + case $host_os in aix4.[012]|aix4.[012].*) + # We only want to do this on AIX 4.2 and lower, the check + # below for broken collect2 doesn't work under 4.3+ + collect2name=`${CC} -print-prog-name=collect2` + if test -f "$collect2name" && \ + strings "$collect2name" | grep resolve_lib_name >/dev/null + then + # We have reworked collect2 + hardcode_direct_CXX=yes + else + # We have old collect2 + hardcode_direct_CXX=unsupported + # It fails to find uninstalled libraries when the uninstalled + # path is not listed in the libpath. Setting hardcode_minus_L + # to unsupported forces relinking + hardcode_minus_L_CXX=yes + hardcode_libdir_flag_spec_CXX='-L$libdir' + hardcode_libdir_separator_CXX= + fi + esac + shared_flag='-shared' + if test "$aix_use_runtimelinking" = yes; then + shared_flag="$shared_flag "'${wl}-G' + fi + else + # not using gcc + if test "$host_cpu" = ia64; then + # VisualAge C++, Version 5.5 for AIX 5L for IA-64, Beta 3 Release + # chokes on -Wl,-G. The following line is correct: + shared_flag='-G' + else + if test "$aix_use_runtimelinking" = yes; then + shared_flag='${wl}-G' + else + shared_flag='${wl}-bM:SRE' + fi + fi + fi + + # It seems that -bexpall does not export symbols beginning with + # underscore (_), so it is better to generate a list of symbols to export. + always_export_symbols_CXX=yes + if test "$aix_use_runtimelinking" = yes; then + # Warning - without using the other runtime loading flags (-brtl), + # -berok will link without error, but may produce a broken library. + allow_undefined_flag_CXX='-berok' + # Determine the default libpath from the value encoded in an empty executable. + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ + +int +main () +{ + + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext conftest$ac_exeext +if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_cxx_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest$ac_exeext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + +aix_libpath=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e '/Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/; p; } +}'` +# Check for a 64-bit object if we didn't find anything. +if test -z "$aix_libpath"; then aix_libpath=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e '/Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/; p; } +}'`; fi +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +fi +rm -f conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +if test -z "$aix_libpath"; then aix_libpath="/usr/lib:/lib"; fi + + hardcode_libdir_flag_spec_CXX='${wl}-blibpath:$libdir:'"$aix_libpath" + + archive_expsym_cmds_CXX="\$CC"' -o $output_objdir/$soname $libobjs $deplibs $compiler_flags `if test "x${allow_undefined_flag}" != "x"; then echo "${wl}${allow_undefined_flag}"; else :; fi` '"\${wl}$no_entry_flag \${wl}$exp_sym_flag:\$export_symbols $shared_flag" + else + if test "$host_cpu" = ia64; then + hardcode_libdir_flag_spec_CXX='${wl}-R $libdir:/usr/lib:/lib' + allow_undefined_flag_CXX="-z nodefs" + archive_expsym_cmds_CXX="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs $compiler_flags ${wl}${allow_undefined_flag} '"\${wl}$no_entry_flag \${wl}$exp_sym_flag:\$export_symbols" + else + # Determine the default libpath from the value encoded in an empty executable. + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ + +int +main () +{ + + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext conftest$ac_exeext +if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_cxx_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest$ac_exeext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + +aix_libpath=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e '/Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/; p; } +}'` +# Check for a 64-bit object if we didn't find anything. +if test -z "$aix_libpath"; then aix_libpath=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e '/Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/; p; } +}'`; fi +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +fi +rm -f conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +if test -z "$aix_libpath"; then aix_libpath="/usr/lib:/lib"; fi + + hardcode_libdir_flag_spec_CXX='${wl}-blibpath:$libdir:'"$aix_libpath" + # Warning - without using the other run time loading flags, + # -berok will link without error, but may produce a broken library. + no_undefined_flag_CXX=' ${wl}-bernotok' + allow_undefined_flag_CXX=' ${wl}-berok' + # -bexpall does not export symbols beginning with underscore (_) + always_export_symbols_CXX=yes + # Exported symbols can be pulled into shared objects from archives + whole_archive_flag_spec_CXX=' ' + archive_cmds_need_lc_CXX=yes + # This is similar to how AIX traditionally builds it's shared libraries. + archive_expsym_cmds_CXX="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs $compiler_flags ${wl}-bE:$export_symbols ${wl}-bnoentry${allow_undefined_flag}~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$soname' + fi + fi + ;; + chorus*) + case $cc_basename in + *) + # FIXME: insert proper C++ library support + ld_shlibs_CXX=no + ;; + esac + ;; + + + cygwin* | mingw* | pw32*) + # _LT_AC_TAGVAR(hardcode_libdir_flag_spec, CXX) is actually meaningless, + # as there is no search path for DLLs. + hardcode_libdir_flag_spec_CXX='-L$libdir' + allow_undefined_flag_CXX=unsupported + always_export_symbols_CXX=no + enable_shared_with_static_runtimes_CXX=yes + + if $LD --help 2>&1 | grep 'auto-import' > /dev/null; then + archive_cmds_CXX='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $output_objdir/$soname ${wl}--image-base=0x10000000 ${wl}--out-implib,$lib' + # If the export-symbols file already is a .def file (1st line + # is EXPORTS), use it as is; otherwise, prepend... + archive_expsym_cmds_CXX='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then + cp $export_symbols $output_objdir/$soname.def; + else + echo EXPORTS > $output_objdir/$soname.def; + cat $export_symbols >> $output_objdir/$soname.def; + fi~ + $CC -shared -nostdlib $output_objdir/$soname.def $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $output_objdir/$soname ${wl}--image-base=0x10000000 ${wl}--out-implib,$lib' + else + ld_shlibs_CXX=no + fi + ;; + darwin* | rhapsody*) + case "$host_os" in + rhapsody* | darwin1.[012]) + allow_undefined_flag_CXX='${wl}-undefined ${wl}suppress' + ;; + *) # Darwin 1.3 on + if test -z ${MACOSX_DEPLOYMENT_TARGET} ; then + allow_undefined_flag_CXX='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' + else + case ${MACOSX_DEPLOYMENT_TARGET} in + 10.[012]) + allow_undefined_flag_CXX='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' + ;; + 10.*) + allow_undefined_flag_CXX='${wl}-undefined ${wl}dynamic_lookup' + ;; + esac + fi + ;; + esac + archive_cmds_need_lc_CXX=no + hardcode_direct_CXX=no + hardcode_automatic_CXX=yes + hardcode_shlibpath_var_CXX=unsupported + whole_archive_flag_spec_CXX='' + link_all_deplibs_CXX=yes + + if test "$GXX" = yes ; then + lt_int_apple_cc_single_mod=no + output_verbose_link_cmd='echo' + if $CC -dumpspecs 2>&1 | $EGREP 'single_module' >/dev/null ; then + lt_int_apple_cc_single_mod=yes + fi + if test "X$lt_int_apple_cc_single_mod" = Xyes ; then + archive_cmds_CXX='$CC -dynamiclib -single_module $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags -install_name $rpath/$soname $verstring' + else + archive_cmds_CXX='$CC -r -keep_private_externs -nostdlib -o ${lib}-master.o $libobjs~$CC -dynamiclib $allow_undefined_flag -o $lib ${lib}-master.o $deplibs $compiler_flags -install_name $rpath/$soname $verstring' + fi + module_cmds_CXX='$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags' + # Don't fix this by using the ld -exported_symbols_list flag, it doesn't exist in older darwin ld's + if test "X$lt_int_apple_cc_single_mod" = Xyes ; then + archive_expsym_cmds_CXX='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC -dynamiclib -single_module $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags -install_name $rpath/$soname $verstring~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' + else + archive_expsym_cmds_CXX='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC -r -keep_private_externs -nostdlib -o ${lib}-master.o $libobjs~$CC -dynamiclib $allow_undefined_flag -o $lib ${lib}-master.o $deplibs $compiler_flags -install_name $rpath/$soname $verstring~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' + fi + module_expsym_cmds_CXX='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' + else + case $cc_basename in + xlc*) + output_verbose_link_cmd='echo' + archive_cmds_CXX='$CC -qmkshrobj ${wl}-single_module $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-install_name ${wl}`echo $rpath/$soname` $verstring' + module_cmds_CXX='$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags' + # Don't fix this by using the ld -exported_symbols_list flag, it doesn't exist in older darwin ld's + archive_expsym_cmds_CXX='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC -qmkshrobj ${wl}-single_module $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-install_name ${wl}$rpath/$soname $verstring~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' + module_expsym_cmds_CXX='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' + ;; + *) + ld_shlibs_CXX=no + ;; + esac + fi + ;; + + dgux*) + case $cc_basename in + ec++*) + # FIXME: insert proper C++ library support + ld_shlibs_CXX=no + ;; + ghcx*) + # Green Hills C++ Compiler + # FIXME: insert proper C++ library support + ld_shlibs_CXX=no + ;; + *) + # FIXME: insert proper C++ library support + ld_shlibs_CXX=no + ;; + esac + ;; + freebsd[12]*) + # C++ shared libraries reported to be fairly broken before switch to ELF + ld_shlibs_CXX=no + ;; + freebsd-elf*) + archive_cmds_need_lc_CXX=no + ;; + freebsd* | kfreebsd*-gnu | dragonfly*) + # FreeBSD 3 and later use GNU C++ and GNU ld with standard ELF + # conventions + ld_shlibs_CXX=yes + ;; + gnu*) + ;; + hpux9*) + hardcode_libdir_flag_spec_CXX='${wl}+b ${wl}$libdir' + hardcode_libdir_separator_CXX=: + export_dynamic_flag_spec_CXX='${wl}-E' + hardcode_direct_CXX=yes + hardcode_minus_L_CXX=yes # Not in the search PATH, + # but as the default + # location of the library. + + case $cc_basename in + CC*) + # FIXME: insert proper C++ library support + ld_shlibs_CXX=no + ;; + aCC*) + archive_cmds_CXX='$rm $output_objdir/$soname~$CC -b ${wl}+b ${wl}$install_libdir -o $output_objdir/$soname $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib' + # Commands to make compiler produce verbose output that lists + # what "hidden" libraries, object files and flags are used when + # linking a shared library. + # + # There doesn't appear to be a way to prevent this compiler from + # explicitly linking system object files so we need to strip them + # from the output so that they don't get included in the library + # dependencies. + output_verbose_link_cmd='templist=`($CC -b $CFLAGS -v conftest.$objext 2>&1) | grep "[-]L"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; echo $list' + ;; + *) + if test "$GXX" = yes; then + archive_cmds_CXX='$rm $output_objdir/$soname~$CC -shared -nostdlib -fPIC ${wl}+b ${wl}$install_libdir -o $output_objdir/$soname $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib' + else + # FIXME: insert proper C++ library support + ld_shlibs_CXX=no + fi + ;; + esac + ;; + hpux10*|hpux11*) + if test $with_gnu_ld = no; then + case "$host_cpu" in + hppa*64*) + hardcode_libdir_flag_spec_CXX='${wl}+b ${wl}$libdir' + hardcode_libdir_flag_spec_ld_CXX='+b $libdir' + hardcode_libdir_separator_CXX=: + ;; + ia64*) + hardcode_libdir_flag_spec_CXX='-L$libdir' + ;; + *) + hardcode_libdir_flag_spec_CXX='${wl}+b ${wl}$libdir' + hardcode_libdir_separator_CXX=: + export_dynamic_flag_spec_CXX='${wl}-E' + ;; + esac + fi + case "$host_cpu" in + hppa*64*) + hardcode_direct_CXX=no + hardcode_shlibpath_var_CXX=no + ;; + ia64*) + hardcode_direct_CXX=no + hardcode_shlibpath_var_CXX=no + hardcode_minus_L_CXX=yes # Not in the search PATH, + # but as the default + # location of the library. + ;; + *) + hardcode_direct_CXX=yes + hardcode_minus_L_CXX=yes # Not in the search PATH, + # but as the default + # location of the library. + ;; + esac + + case $cc_basename in + CC*) + # FIXME: insert proper C++ library support + ld_shlibs_CXX=no + ;; + aCC*) + case "$host_cpu" in + hppa*64*|ia64*) + archive_cmds_CXX='$LD -b +h $soname -o $lib $linker_flags $libobjs $deplibs' + ;; + *) + archive_cmds_CXX='$CC -b ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' + ;; + esac + # Commands to make compiler produce verbose output that lists + # what "hidden" libraries, object files and flags are used when + # linking a shared library. + # + # There doesn't appear to be a way to prevent this compiler from + # explicitly linking system object files so we need to strip them + # from the output so that they don't get included in the library + # dependencies. + output_verbose_link_cmd='templist=`($CC -b $CFLAGS -v conftest.$objext 2>&1) | grep "\-L"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; echo $list' + ;; + *) + if test "$GXX" = yes; then + if test $with_gnu_ld = no; then + case "$host_cpu" in + ia64*|hppa*64*) + archive_cmds_CXX='$LD -b +h $soname -o $lib $linker_flags $libobjs $deplibs' + ;; + *) + archive_cmds_CXX='$CC -shared -nostdlib -fPIC ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' + ;; + esac + fi + else + # FIXME: insert proper C++ library support + ld_shlibs_CXX=no + fi + ;; + esac + ;; + irix5* | irix6*) + case $cc_basename in + CC*) + # SGI C++ + archive_cmds_CXX='$CC -shared -all -multigot $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib' + + # Archives containing C++ object files must be created using + # "CC -ar", where "CC" is the IRIX C++ compiler. This is + # necessary to make sure instantiated templates are included + # in the archive. + old_archive_cmds_CXX='$CC -ar -WR,-u -o $oldlib $oldobjs' + ;; + *) + if test "$GXX" = yes; then + if test "$with_gnu_ld" = no; then + archive_cmds_CXX='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' + else + archive_cmds_CXX='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` -o $lib' + fi + fi + link_all_deplibs_CXX=yes + ;; + esac + hardcode_libdir_flag_spec_CXX='${wl}-rpath ${wl}$libdir' + hardcode_libdir_separator_CXX=: + ;; + linux*) + case $cc_basename in + KCC*) + # Kuck and Associates, Inc. (KAI) C++ Compiler + + # KCC will only create a shared library if the output file + # ends with ".so" (or ".sl" for HP-UX), so rename the library + # to its proper name (with version) after linking. + archive_cmds_CXX='tempext=`echo $shared_ext | $SED -e '\''s/\([^()0-9A-Za-z{}]\)/\\\\\1/g'\''`; templib=`echo $lib | $SED -e "s/\${tempext}\..*/.so/"`; $CC $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags --soname $soname -o \$templib; mv \$templib $lib' + archive_expsym_cmds_CXX='tempext=`echo $shared_ext | $SED -e '\''s/\([^()0-9A-Za-z{}]\)/\\\\\1/g'\''`; templib=`echo $lib | $SED -e "s/\${tempext}\..*/.so/"`; $CC $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags --soname $soname -o \$templib ${wl}-retain-symbols-file,$export_symbols; mv \$templib $lib' + # Commands to make compiler produce verbose output that lists + # what "hidden" libraries, object files and flags are used when + # linking a shared library. + # + # There doesn't appear to be a way to prevent this compiler from + # explicitly linking system object files so we need to strip them + # from the output so that they don't get included in the library + # dependencies. + output_verbose_link_cmd='templist=`$CC $CFLAGS -v conftest.$objext -o libconftest$shared_ext 2>&1 | grep "ld"`; rm -f libconftest$shared_ext; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; echo $list' + + hardcode_libdir_flag_spec_CXX='${wl}--rpath,$libdir' + export_dynamic_flag_spec_CXX='${wl}--export-dynamic' + + # Archives containing C++ object files must be created using + # "CC -Bstatic", where "CC" is the KAI C++ compiler. + old_archive_cmds_CXX='$CC -Bstatic -o $oldlib $oldobjs' + ;; + icpc*) + # Intel C++ + with_gnu_ld=yes + # version 8.0 and above of icpc choke on multiply defined symbols + # if we add $predep_objects and $postdep_objects, however 7.1 and + # earlier do not add the objects themselves. + case `$CC -V 2>&1` in + *"Version 7."*) + archive_cmds_CXX='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib' + archive_expsym_cmds_CXX='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' + ;; + *) # Version 8.0 or newer + tmp_idyn= + case $host_cpu in + ia64*) tmp_idyn=' -i_dynamic';; + esac + archive_cmds_CXX='$CC -shared'"$tmp_idyn"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' + archive_expsym_cmds_CXX='$CC -shared'"$tmp_idyn"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' + ;; + esac + archive_cmds_need_lc_CXX=no + hardcode_libdir_flag_spec_CXX='${wl}-rpath,$libdir' + export_dynamic_flag_spec_CXX='${wl}--export-dynamic' + whole_archive_flag_spec_CXX='${wl}--whole-archive$convenience ${wl}--no-whole-archive' + ;; + pgCC*) + # Portland Group C++ compiler + archive_cmds_CXX='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname -o $lib' + archive_expsym_cmds_CXX='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname ${wl}-retain-symbols-file ${wl}$export_symbols -o $lib' + + hardcode_libdir_flag_spec_CXX='${wl}--rpath ${wl}$libdir' + export_dynamic_flag_spec_CXX='${wl}--export-dynamic' + whole_archive_flag_spec_CXX='${wl}--whole-archive,`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; $echo \"$new_convenience\"` ${wl}--no-whole-archive' + ;; + cxx*) + # Compaq C++ + archive_cmds_CXX='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib' + archive_expsym_cmds_CXX='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib ${wl}-retain-symbols-file $wl$export_symbols' + + runpath_var=LD_RUN_PATH + hardcode_libdir_flag_spec_CXX='-rpath $libdir' + hardcode_libdir_separator_CXX=: + + # Commands to make compiler produce verbose output that lists + # what "hidden" libraries, object files and flags are used when + # linking a shared library. + # + # There doesn't appear to be a way to prevent this compiler from + # explicitly linking system object files so we need to strip them + # from the output so that they don't get included in the library + # dependencies. + output_verbose_link_cmd='templist=`$CC -shared $CFLAGS -v conftest.$objext 2>&1 | grep "ld"`; templist=`echo $templist | $SED "s/\(^.*ld.*\)\( .*ld .*$\)/\1/"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; echo $list' + ;; + esac + ;; + lynxos*) + # FIXME: insert proper C++ library support + ld_shlibs_CXX=no + ;; + m88k*) + # FIXME: insert proper C++ library support + ld_shlibs_CXX=no + ;; + mvs*) + case $cc_basename in + cxx*) + # FIXME: insert proper C++ library support + ld_shlibs_CXX=no + ;; + *) + # FIXME: insert proper C++ library support + ld_shlibs_CXX=no + ;; + esac + ;; + netbsd*) + if echo __ELF__ | $CC -E - | grep __ELF__ >/dev/null; then + archive_cmds_CXX='$LD -Bshareable -o $lib $predep_objects $libobjs $deplibs $postdep_objects $linker_flags' + wlarc= + hardcode_libdir_flag_spec_CXX='-R$libdir' + hardcode_direct_CXX=yes + hardcode_shlibpath_var_CXX=no + fi + # Workaround some broken pre-1.5 toolchains + output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | grep conftest.$objext | $SED -e "s:-lgcc -lc -lgcc::"' + ;; + openbsd2*) + # C++ shared libraries are fairly broken + ld_shlibs_CXX=no + ;; + openbsd*) + hardcode_direct_CXX=yes + hardcode_shlibpath_var_CXX=no + archive_cmds_CXX='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $lib' + hardcode_libdir_flag_spec_CXX='${wl}-rpath,$libdir' + if test -z "`echo __ELF__ | $CC -E - | grep __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then + archive_expsym_cmds_CXX='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-retain-symbols-file,$export_symbols -o $lib' + export_dynamic_flag_spec_CXX='${wl}-E' + whole_archive_flag_spec_CXX="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive' + fi + output_verbose_link_cmd='echo' + ;; + osf3*) + case $cc_basename in + KCC*) + # Kuck and Associates, Inc. (KAI) C++ Compiler + + # KCC will only create a shared library if the output file + # ends with ".so" (or ".sl" for HP-UX), so rename the library + # to its proper name (with version) after linking. + archive_cmds_CXX='tempext=`echo $shared_ext | $SED -e '\''s/\([^()0-9A-Za-z{}]\)/\\\\\1/g'\''`; templib=`echo $lib | $SED -e "s/\${tempext}\..*/.so/"`; $CC $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags --soname $soname -o \$templib; mv \$templib $lib' + + hardcode_libdir_flag_spec_CXX='${wl}-rpath,$libdir' + hardcode_libdir_separator_CXX=: + + # Archives containing C++ object files must be created using + # "CC -Bstatic", where "CC" is the KAI C++ compiler. + old_archive_cmds_CXX='$CC -Bstatic -o $oldlib $oldobjs' + + ;; + RCC*) + # Rational C++ 2.4.1 + # FIXME: insert proper C++ library support + ld_shlibs_CXX=no + ;; + cxx*) + allow_undefined_flag_CXX=' ${wl}-expect_unresolved ${wl}\*' + archive_cmds_CXX='$CC -shared${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $soname `test -n "$verstring" && echo ${wl}-set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib' + + hardcode_libdir_flag_spec_CXX='${wl}-rpath ${wl}$libdir' + hardcode_libdir_separator_CXX=: + + # Commands to make compiler produce verbose output that lists + # what "hidden" libraries, object files and flags are used when + # linking a shared library. + # + # There doesn't appear to be a way to prevent this compiler from + # explicitly linking system object files so we need to strip them + # from the output so that they don't get included in the library + # dependencies. + output_verbose_link_cmd='templist=`$CC -shared $CFLAGS -v conftest.$objext 2>&1 | grep "ld" | grep -v "ld:"`; templist=`echo $templist | $SED "s/\(^.*ld.*\)\( .*ld.*$\)/\1/"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; echo $list' + ;; + *) + if test "$GXX" = yes && test "$with_gnu_ld" = no; then + allow_undefined_flag_CXX=' ${wl}-expect_unresolved ${wl}\*' + archive_cmds_CXX='$CC -shared -nostdlib ${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' + + hardcode_libdir_flag_spec_CXX='${wl}-rpath ${wl}$libdir' + hardcode_libdir_separator_CXX=: + + # Commands to make compiler produce verbose output that lists + # what "hidden" libraries, object files and flags are used when + # linking a shared library. + output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | grep "\-L"' + + else + # FIXME: insert proper C++ library support + ld_shlibs_CXX=no + fi + ;; + esac + ;; + osf4* | osf5*) + case $cc_basename in + KCC*) + # Kuck and Associates, Inc. (KAI) C++ Compiler + + # KCC will only create a shared library if the output file + # ends with ".so" (or ".sl" for HP-UX), so rename the library + # to its proper name (with version) after linking. + archive_cmds_CXX='tempext=`echo $shared_ext | $SED -e '\''s/\([^()0-9A-Za-z{}]\)/\\\\\1/g'\''`; templib=`echo $lib | $SED -e "s/\${tempext}\..*/.so/"`; $CC $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags --soname $soname -o \$templib; mv \$templib $lib' + + hardcode_libdir_flag_spec_CXX='${wl}-rpath,$libdir' + hardcode_libdir_separator_CXX=: + + # Archives containing C++ object files must be created using + # the KAI C++ compiler. + old_archive_cmds_CXX='$CC -o $oldlib $oldobjs' + ;; + RCC*) + # Rational C++ 2.4.1 + # FIXME: insert proper C++ library support + ld_shlibs_CXX=no + ;; + cxx*) + allow_undefined_flag_CXX=' -expect_unresolved \*' + archive_cmds_CXX='$CC -shared${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -msym -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib' + archive_expsym_cmds_CXX='for i in `cat $export_symbols`; do printf "%s %s\\n" -exported_symbol "\$i" >> $lib.exp; done~ + echo "-hidden">> $lib.exp~ + $CC -shared$allow_undefined_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -msym -soname $soname -Wl,-input -Wl,$lib.exp `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib~ + $rm $lib.exp' + + hardcode_libdir_flag_spec_CXX='-rpath $libdir' + hardcode_libdir_separator_CXX=: + + # Commands to make compiler produce verbose output that lists + # what "hidden" libraries, object files and flags are used when + # linking a shared library. + # + # There doesn't appear to be a way to prevent this compiler from + # explicitly linking system object files so we need to strip them + # from the output so that they don't get included in the library + # dependencies. + output_verbose_link_cmd='templist=`$CC -shared $CFLAGS -v conftest.$objext 2>&1 | grep "ld" | grep -v "ld:"`; templist=`echo $templist | $SED "s/\(^.*ld.*\)\( .*ld.*$\)/\1/"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; echo $list' + ;; + *) + if test "$GXX" = yes && test "$with_gnu_ld" = no; then + allow_undefined_flag_CXX=' ${wl}-expect_unresolved ${wl}\*' + archive_cmds_CXX='$CC -shared -nostdlib ${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-msym ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' + + hardcode_libdir_flag_spec_CXX='${wl}-rpath ${wl}$libdir' + hardcode_libdir_separator_CXX=: + + # Commands to make compiler produce verbose output that lists + # what "hidden" libraries, object files and flags are used when + # linking a shared library. + output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | grep "\-L"' + + else + # FIXME: insert proper C++ library support + ld_shlibs_CXX=no + fi + ;; + esac + ;; + psos*) + # FIXME: insert proper C++ library support + ld_shlibs_CXX=no + ;; + sco*) + archive_cmds_need_lc_CXX=no + case $cc_basename in + CC*) + # FIXME: insert proper C++ library support + ld_shlibs_CXX=no + ;; + *) + # FIXME: insert proper C++ library support + ld_shlibs_CXX=no + ;; + esac + ;; + sunos4*) + case $cc_basename in + CC*) + # Sun C++ 4.x + # FIXME: insert proper C++ library support + ld_shlibs_CXX=no + ;; + lcc*) + # Lucid + # FIXME: insert proper C++ library support + ld_shlibs_CXX=no + ;; + *) + # FIXME: insert proper C++ library support + ld_shlibs_CXX=no + ;; + esac + ;; + solaris*) + case $cc_basename in + CC*) + # Sun C++ 4.2, 5.x and Centerline C++ + no_undefined_flag_CXX=' -zdefs' + archive_cmds_CXX='$CC -G${allow_undefined_flag} -nolib -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' + archive_expsym_cmds_CXX='$echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~$echo "local: *; };" >> $lib.exp~ + $CC -G${allow_undefined_flag} -nolib ${wl}-M ${wl}$lib.exp -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~$rm $lib.exp' + + hardcode_libdir_flag_spec_CXX='-R$libdir' + hardcode_shlibpath_var_CXX=no + case $host_os in + solaris2.[0-5] | solaris2.[0-5].*) ;; + *) + # The C++ compiler is used as linker so we must use $wl + # flag to pass the commands to the underlying system + # linker. We must also pass each convience library through + # to the system linker between allextract/defaultextract. + # The C++ compiler will combine linker options so we + # cannot just pass the convience library names through + # without $wl. + # Supported since Solaris 2.6 (maybe 2.5.1?) + whole_archive_flag_spec_CXX='${wl}-z ${wl}allextract`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; $echo \"$new_convenience\"` ${wl}-z ${wl}defaultextract' + ;; + esac + link_all_deplibs_CXX=yes + + # Commands to make compiler produce verbose output that lists + # what "hidden" libraries, object files and flags are used when + # linking a shared library. + # + # There doesn't appear to be a way to prevent this compiler from + # explicitly linking system object files so we need to strip them + # from the output so that they don't get included in the library + # dependencies. + output_verbose_link_cmd='templist=`$CC -G $CFLAGS -v conftest.$objext 2>&1 | grep "\-[LR]"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; echo $list' + + # Archives containing C++ object files must be created using + # "CC -xar", where "CC" is the Sun C++ compiler. This is + # necessary to make sure instantiated templates are included + # in the archive. + old_archive_cmds_CXX='$CC -xar -o $oldlib $oldobjs' + ;; + gcx*) + # Green Hills C++ Compiler + archive_cmds_CXX='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-h $wl$soname -o $lib' + + # The C++ compiler must be used to create the archive. + old_archive_cmds_CXX='$CC $LDFLAGS -archive -o $oldlib $oldobjs' + ;; + *) + # GNU C++ compiler with Solaris linker + if test "$GXX" = yes && test "$with_gnu_ld" = no; then + no_undefined_flag_CXX=' ${wl}-z ${wl}defs' + if $CC --version | grep -v '^2\.7' > /dev/null; then + archive_cmds_CXX='$CC -shared -nostdlib $LDFLAGS $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-h $wl$soname -o $lib' + archive_expsym_cmds_CXX='$echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~$echo "local: *; };" >> $lib.exp~ + $CC -shared -nostdlib ${wl}-M $wl$lib.exp -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~$rm $lib.exp' + + # Commands to make compiler produce verbose output that lists + # what "hidden" libraries, object files and flags are used when + # linking a shared library. + output_verbose_link_cmd="$CC -shared $CFLAGS -v conftest.$objext 2>&1 | grep \"\-L\"" + else + # g++ 2.7 appears to require `-G' NOT `-shared' on this + # platform. + archive_cmds_CXX='$CC -G -nostdlib $LDFLAGS $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-h $wl$soname -o $lib' + archive_expsym_cmds_CXX='$echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~$echo "local: *; };" >> $lib.exp~ + $CC -G -nostdlib ${wl}-M $wl$lib.exp -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~$rm $lib.exp' + + # Commands to make compiler produce verbose output that lists + # what "hidden" libraries, object files and flags are used when + # linking a shared library. + output_verbose_link_cmd="$CC -G $CFLAGS -v conftest.$objext 2>&1 | grep \"\-L\"" + fi + + hardcode_libdir_flag_spec_CXX='${wl}-R $wl$libdir' + fi + ;; + esac + ;; + sysv5OpenUNIX8* | sysv5UnixWare7* | sysv5uw[78]* | unixware7*) + archive_cmds_need_lc_CXX=no + ;; + tandem*) + case $cc_basename in + NCC*) + # NonStop-UX NCC 3.20 + # FIXME: insert proper C++ library support + ld_shlibs_CXX=no + ;; + *) + # FIXME: insert proper C++ library support + ld_shlibs_CXX=no + ;; + esac + ;; + vxworks*) + # FIXME: insert proper C++ library support + ld_shlibs_CXX=no + ;; + *) + # FIXME: insert proper C++ library support + ld_shlibs_CXX=no + ;; +esac +echo "$as_me:$LINENO: result: $ld_shlibs_CXX" >&5 +echo "${ECHO_T}$ld_shlibs_CXX" >&6 +test "$ld_shlibs_CXX" = no && can_build_shared=no + +GCC_CXX="$GXX" +LD_CXX="$LD" + + +cat > conftest.$ac_ext <&5 + (eval $ac_compile) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; then + # Parse the compiler output and extract the necessary + # objects, libraries and library flags. + + # Sentinel used to keep track of whether or not we are before + # the conftest object file. + pre_test_object_deps_done=no + + # The `*' in the case matches for architectures that use `case' in + # $output_verbose_cmd can trigger glob expansion during the loop + # eval without this substitution. + output_verbose_link_cmd="`$echo \"X$output_verbose_link_cmd\" | $Xsed -e \"$no_glob_subst\"`" + + for p in `eval $output_verbose_link_cmd`; do + case $p in + + -L* | -R* | -l*) + # Some compilers place space between "-{L,R}" and the path. + # Remove the space. + if test $p = "-L" \ + || test $p = "-R"; then + prev=$p + continue + else + prev= + fi + + if test "$pre_test_object_deps_done" = no; then + case $p in + -L* | -R*) + # Internal compiler library paths should come after those + # provided the user. The postdeps already come after the + # user supplied libs so there is no need to process them. + if test -z "$compiler_lib_search_path_CXX"; then + compiler_lib_search_path_CXX="${prev}${p}" + else + compiler_lib_search_path_CXX="${compiler_lib_search_path_CXX} ${prev}${p}" + fi + ;; + # The "-l" case would never come before the object being + # linked, so don't bother handling this case. + esac + else + if test -z "$postdeps_CXX"; then + postdeps_CXX="${prev}${p}" + else + postdeps_CXX="${postdeps_CXX} ${prev}${p}" + fi + fi + ;; + + *.$objext) + # This assumes that the test object file only shows up + # once in the compiler output. + if test "$p" = "conftest.$objext"; then + pre_test_object_deps_done=yes + continue + fi + + if test "$pre_test_object_deps_done" = no; then + if test -z "$predep_objects_CXX"; then + predep_objects_CXX="$p" + else + predep_objects_CXX="$predep_objects_CXX $p" + fi + else + if test -z "$postdep_objects_CXX"; then + postdep_objects_CXX="$p" + else + postdep_objects_CXX="$postdep_objects_CXX $p" + fi + fi + ;; + + *) ;; # Ignore the rest. + + esac + done + + # Clean up. + rm -f a.out a.exe +else + echo "libtool.m4: error: problem compiling CXX test program" +fi + +$rm -f confest.$objext + +case " $postdeps_CXX " in +*" -lc "*) archive_cmds_need_lc_CXX=no ;; +esac + +lt_prog_compiler_wl_CXX= +lt_prog_compiler_pic_CXX= +lt_prog_compiler_static_CXX= + +echo "$as_me:$LINENO: checking for $compiler option to produce PIC" >&5 +echo $ECHO_N "checking for $compiler option to produce PIC... $ECHO_C" >&6 + + # C++ specific cases for pic, static, wl, etc. + if test "$GXX" = yes; then + lt_prog_compiler_wl_CXX='-Wl,' + lt_prog_compiler_static_CXX='-static' + + case $host_os in + aix*) + # All AIX code is PIC. + if test "$host_cpu" = ia64; then + # AIX 5 now supports IA64 processor + lt_prog_compiler_static_CXX='-Bstatic' + fi + ;; + amigaos*) + # FIXME: we need at least 68020 code to build shared libraries, but + # adding the `-m68020' flag to GCC prevents building anything better, + # like `-m68040'. + lt_prog_compiler_pic_CXX='-m68020 -resident32 -malways-restore-a4' + ;; + beos* | cygwin* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*) + # PIC is the default for these OSes. + ;; + mingw* | os2* | pw32*) + # This hack is so that the source file can tell whether it is being + # built for inclusion in a dll (and should export symbols for example). + lt_prog_compiler_pic_CXX='-DDLL_EXPORT' + ;; + darwin* | rhapsody*) + # PIC is the default on this platform + # Common symbols not allowed in MH_DYLIB files + lt_prog_compiler_pic_CXX='-fno-common' + ;; + *djgpp*) + # DJGPP does not support shared libraries at all + lt_prog_compiler_pic_CXX= + ;; + sysv4*MP*) + if test -d /usr/nec; then + lt_prog_compiler_pic_CXX=-Kconform_pic + fi + ;; + hpux*) + # PIC is the default for IA64 HP-UX and 64-bit HP-UX, but + # not for PA HP-UX. + case "$host_cpu" in + hppa*64*|ia64*) + ;; + *) + lt_prog_compiler_pic_CXX='-fPIC' + ;; + esac + ;; + *) + lt_prog_compiler_pic_CXX='-fPIC' + ;; + esac + else + case $host_os in + aix4* | aix5*) + # All AIX code is PIC. + if test "$host_cpu" = ia64; then + # AIX 5 now supports IA64 processor + lt_prog_compiler_static_CXX='-Bstatic' + else + lt_prog_compiler_static_CXX='-bnso -bI:/lib/syscalls.exp' + fi + ;; + chorus*) + case $cc_basename in + cxch68*) + # Green Hills C++ Compiler + # _LT_AC_TAGVAR(lt_prog_compiler_static, CXX)="--no_auto_instantiation -u __main -u __premain -u _abort -r $COOL_DIR/lib/libOrb.a $MVME_DIR/lib/CC/libC.a $MVME_DIR/lib/classix/libcx.s.a" + ;; + esac + ;; + darwin*) + # PIC is the default on this platform + # Common symbols not allowed in MH_DYLIB files + case $cc_basename in + xlc*) + lt_prog_compiler_pic_CXX='-qnocommon' + lt_prog_compiler_wl_CXX='-Wl,' + ;; + esac + ;; + dgux*) + case $cc_basename in + ec++*) + lt_prog_compiler_pic_CXX='-KPIC' + ;; + ghcx*) + # Green Hills C++ Compiler + lt_prog_compiler_pic_CXX='-pic' + ;; + *) + ;; + esac + ;; + freebsd* | kfreebsd*-gnu | dragonfly*) + # FreeBSD uses GNU C++ + ;; + hpux9* | hpux10* | hpux11*) + case $cc_basename in + CC*) + lt_prog_compiler_wl_CXX='-Wl,' + lt_prog_compiler_static_CXX="${ac_cv_prog_cc_wl}-a ${ac_cv_prog_cc_wl}archive" + if test "$host_cpu" != ia64; then + lt_prog_compiler_pic_CXX='+Z' + fi + ;; + aCC*) + lt_prog_compiler_wl_CXX='-Wl,' + lt_prog_compiler_static_CXX="${ac_cv_prog_cc_wl}-a ${ac_cv_prog_cc_wl}archive" + case "$host_cpu" in + hppa*64*|ia64*) + # +Z the default + ;; + *) + lt_prog_compiler_pic_CXX='+Z' + ;; + esac + ;; + *) + ;; + esac + ;; + irix5* | irix6* | nonstopux*) + case $cc_basename in + CC*) + lt_prog_compiler_wl_CXX='-Wl,' + lt_prog_compiler_static_CXX='-non_shared' + # CC pic flag -KPIC is the default. + ;; + *) + ;; + esac + ;; + linux*) + case $cc_basename in + KCC*) + # KAI C++ Compiler + lt_prog_compiler_wl_CXX='--backend -Wl,' + lt_prog_compiler_pic_CXX='-fPIC' + ;; + icpc* | ecpc*) + # Intel C++ + lt_prog_compiler_wl_CXX='-Wl,' + lt_prog_compiler_pic_CXX='-KPIC' + lt_prog_compiler_static_CXX='-static' + ;; + pgCC*) + # Portland Group C++ compiler. + lt_prog_compiler_wl_CXX='-Wl,' + lt_prog_compiler_pic_CXX='-fpic' + lt_prog_compiler_static_CXX='-static' + ;; + cxx*) + # Compaq C++ + # Make sure the PIC flag is empty. It appears that all Alpha + # Linux and Compaq Tru64 Unix objects are PIC. + lt_prog_compiler_pic_CXX= + lt_prog_compiler_static_CXX='-non_shared' + ;; + *) + ;; + esac + ;; + lynxos*) + ;; + m88k*) + ;; + mvs*) + case $cc_basename in + cxx*) + lt_prog_compiler_pic_CXX='-W c,exportall' + ;; + *) + ;; + esac + ;; + netbsd*) + ;; + osf3* | osf4* | osf5*) + case $cc_basename in + KCC*) + lt_prog_compiler_wl_CXX='--backend -Wl,' + ;; + RCC*) + # Rational C++ 2.4.1 + lt_prog_compiler_pic_CXX='-pic' + ;; + cxx*) + # Digital/Compaq C++ + lt_prog_compiler_wl_CXX='-Wl,' + # Make sure the PIC flag is empty. It appears that all Alpha + # Linux and Compaq Tru64 Unix objects are PIC. + lt_prog_compiler_pic_CXX= + lt_prog_compiler_static_CXX='-non_shared' + ;; + *) + ;; + esac + ;; + psos*) + ;; + sco*) + case $cc_basename in + CC*) + lt_prog_compiler_pic_CXX='-fPIC' + ;; + *) + ;; + esac + ;; + solaris*) + case $cc_basename in + CC*) + # Sun C++ 4.2, 5.x and Centerline C++ + lt_prog_compiler_pic_CXX='-KPIC' + lt_prog_compiler_static_CXX='-Bstatic' + lt_prog_compiler_wl_CXX='-Qoption ld ' + ;; + gcx*) + # Green Hills C++ Compiler + lt_prog_compiler_pic_CXX='-PIC' + ;; + *) + ;; + esac + ;; + sunos4*) + case $cc_basename in + CC*) + # Sun C++ 4.x + lt_prog_compiler_pic_CXX='-pic' + lt_prog_compiler_static_CXX='-Bstatic' + ;; + lcc*) + # Lucid + lt_prog_compiler_pic_CXX='-pic' + ;; + *) + ;; + esac + ;; + tandem*) + case $cc_basename in + NCC*) + # NonStop-UX NCC 3.20 + lt_prog_compiler_pic_CXX='-KPIC' + ;; + *) + ;; + esac + ;; + unixware*) + ;; + vxworks*) + ;; + *) + lt_prog_compiler_can_build_shared_CXX=no + ;; + esac + fi + +echo "$as_me:$LINENO: result: $lt_prog_compiler_pic_CXX" >&5 +echo "${ECHO_T}$lt_prog_compiler_pic_CXX" >&6 + +# +# Check to make sure the PIC flag actually works. +# +if test -n "$lt_prog_compiler_pic_CXX"; then + +echo "$as_me:$LINENO: checking if $compiler PIC flag $lt_prog_compiler_pic_CXX works" >&5 +echo $ECHO_N "checking if $compiler PIC flag $lt_prog_compiler_pic_CXX works... $ECHO_C" >&6 +if test "${lt_prog_compiler_pic_works_CXX+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + lt_prog_compiler_pic_works_CXX=no + ac_outfile=conftest.$ac_objext + printf "$lt_simple_compile_test_code" > conftest.$ac_ext + lt_compiler_flag="$lt_prog_compiler_pic_CXX -DPIC" + # Insert the option either (1) after the last *FLAGS variable, or + # (2) before a word containing "conftest.", or (3) at the end. + # Note that $ac_compile itself does not contain backslashes and begins + # with a dollar sign (not a hyphen), so the echo should work correctly. + # The option is referenced via a variable to avoid confusing sed. + lt_compile=`echo "$ac_compile" | $SED \ + -e 's:.*FLAGS}? :&$lt_compiler_flag :; t' \ + -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ + -e 's:$: $lt_compiler_flag:'` + (eval echo "\"\$as_me:11460: $lt_compile\"" >&5) + (eval "$lt_compile" 2>conftest.err) + ac_status=$? + cat conftest.err >&5 + echo "$as_me:11464: \$? = $ac_status" >&5 + if (exit $ac_status) && test -s "$ac_outfile"; then + # The compiler can only warn and ignore the option if not recognized + # So say no if there are warnings other than the usual output. + $echo "X$_lt_compiler_boilerplate" | $Xsed >conftest.exp + $SED '/^$/d' conftest.err >conftest.er2 + if test ! -s conftest.err || diff conftest.exp conftest.er2 >/dev/null; then + lt_prog_compiler_pic_works_CXX=yes + fi + fi + $rm conftest* + +fi +echo "$as_me:$LINENO: result: $lt_prog_compiler_pic_works_CXX" >&5 +echo "${ECHO_T}$lt_prog_compiler_pic_works_CXX" >&6 + +if test x"$lt_prog_compiler_pic_works_CXX" = xyes; then + case $lt_prog_compiler_pic_CXX in + "" | " "*) ;; + *) lt_prog_compiler_pic_CXX=" $lt_prog_compiler_pic_CXX" ;; + esac +else + lt_prog_compiler_pic_CXX= + lt_prog_compiler_can_build_shared_CXX=no +fi + +fi +case "$host_os" in + # For platforms which do not support PIC, -DPIC is meaningless: + *djgpp*) + lt_prog_compiler_pic_CXX= + ;; + *) + lt_prog_compiler_pic_CXX="$lt_prog_compiler_pic_CXX -DPIC" + ;; +esac + +echo "$as_me:$LINENO: checking if $compiler supports -c -o file.$ac_objext" >&5 +echo $ECHO_N "checking if $compiler supports -c -o file.$ac_objext... $ECHO_C" >&6 +if test "${lt_cv_prog_compiler_c_o_CXX+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + lt_cv_prog_compiler_c_o_CXX=no + $rm -r conftest 2>/dev/null + mkdir conftest + cd conftest + mkdir out + printf "$lt_simple_compile_test_code" > conftest.$ac_ext + + lt_compiler_flag="-o out/conftest2.$ac_objext" + # Insert the option either (1) after the last *FLAGS variable, or + # (2) before a word containing "conftest.", or (3) at the end. + # Note that $ac_compile itself does not contain backslashes and begins + # with a dollar sign (not a hyphen), so the echo should work correctly. + lt_compile=`echo "$ac_compile" | $SED \ + -e 's:.*FLAGS}? :&$lt_compiler_flag :; t' \ + -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ + -e 's:$: $lt_compiler_flag:'` + (eval echo "\"\$as_me:11522: $lt_compile\"" >&5) + (eval "$lt_compile" 2>out/conftest.err) + ac_status=$? + cat out/conftest.err >&5 + echo "$as_me:11526: \$? = $ac_status" >&5 + if (exit $ac_status) && test -s out/conftest2.$ac_objext + then + # The compiler can only warn and ignore the option if not recognized + # So say no if there are warnings + $echo "X$_lt_compiler_boilerplate" | $Xsed > out/conftest.exp + $SED '/^$/d' out/conftest.err >out/conftest.er2 + if test ! -s out/conftest.err || diff out/conftest.exp out/conftest.er2 >/dev/null; then + lt_cv_prog_compiler_c_o_CXX=yes + fi + fi + chmod u+w . + $rm conftest* + # SGI C++ compiler will create directory out/ii_files/ for + # template instantiation + test -d out/ii_files && $rm out/ii_files/* && rmdir out/ii_files + $rm out/* && rmdir out + cd .. + rmdir conftest + $rm conftest* + +fi +echo "$as_me:$LINENO: result: $lt_cv_prog_compiler_c_o_CXX" >&5 +echo "${ECHO_T}$lt_cv_prog_compiler_c_o_CXX" >&6 + + +hard_links="nottested" +if test "$lt_cv_prog_compiler_c_o_CXX" = no && test "$need_locks" != no; then + # do not overwrite the value of need_locks provided by the user + echo "$as_me:$LINENO: checking if we can lock with hard links" >&5 +echo $ECHO_N "checking if we can lock with hard links... $ECHO_C" >&6 + hard_links=yes + $rm conftest* + ln conftest.a conftest.b 2>/dev/null && hard_links=no + touch conftest.a + ln conftest.a conftest.b 2>&5 || hard_links=no + ln conftest.a conftest.b 2>/dev/null && hard_links=no + echo "$as_me:$LINENO: result: $hard_links" >&5 +echo "${ECHO_T}$hard_links" >&6 + if test "$hard_links" = no; then + { echo "$as_me:$LINENO: WARNING: \`$CC' does not support \`-c -o', so \`make -j' may be unsafe" >&5 +echo "$as_me: WARNING: \`$CC' does not support \`-c -o', so \`make -j' may be unsafe" >&2;} + need_locks=warn + fi +else + need_locks=no +fi + +echo "$as_me:$LINENO: checking whether the $compiler linker ($LD) supports shared libraries" >&5 +echo $ECHO_N "checking whether the $compiler linker ($LD) supports shared libraries... $ECHO_C" >&6 + + export_symbols_cmds_CXX='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' + case $host_os in + aix4* | aix5*) + # If we're using GNU nm, then we don't want the "-C" option. + # -C means demangle to AIX nm, but means don't demangle with GNU nm + if $NM -V 2>&1 | grep 'GNU' > /dev/null; then + export_symbols_cmds_CXX='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\$2 == "T") || (\$2 == "D") || (\$2 == "B")) && (substr(\$3,1,1) != ".")) { print \$3 } }'\'' | sort -u > $export_symbols' + else + export_symbols_cmds_CXX='$NM -BCpg $libobjs $convenience | awk '\''{ if (((\$2 == "T") || (\$2 == "D") || (\$2 == "B")) && (substr(\$3,1,1) != ".")) { print \$3 } }'\'' | sort -u > $export_symbols' + fi + ;; + pw32*) + export_symbols_cmds_CXX="$ltdll_cmds" + ;; + cygwin* | mingw*) + export_symbols_cmds_CXX='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[BCDGRS] /s/.* \([^ ]*\)/\1 DATA/;/^.* __nm__/s/^.* __nm__\([^ ]*\) [^ ]*/\1 DATA/;/^I /d;/^[AITW] /s/.* //'\'' | sort | uniq > $export_symbols' + ;; + *) + export_symbols_cmds_CXX='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' + ;; + esac + +echo "$as_me:$LINENO: result: $ld_shlibs_CXX" >&5 +echo "${ECHO_T}$ld_shlibs_CXX" >&6 +test "$ld_shlibs_CXX" = no && can_build_shared=no + +variables_saved_for_relink="PATH $shlibpath_var $runpath_var" +if test "$GCC" = yes; then + variables_saved_for_relink="$variables_saved_for_relink GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH" +fi + +# +# Do we need to explicitly link libc? +# +case "x$archive_cmds_need_lc_CXX" in +x|xyes) + # Assume -lc should be added + archive_cmds_need_lc_CXX=yes + + if test "$enable_shared" = yes && test "$GCC" = yes; then + case $archive_cmds_CXX in + *'~'*) + # FIXME: we may have to deal with multi-command sequences. + ;; + '$CC '*) + # Test whether the compiler implicitly links with -lc since on some + # systems, -lgcc has to come before -lc. If gcc already passes -lc + # to ld, don't add -lc before -lgcc. + echo "$as_me:$LINENO: checking whether -lc should be explicitly linked in" >&5 +echo $ECHO_N "checking whether -lc should be explicitly linked in... $ECHO_C" >&6 + $rm conftest* + printf "$lt_simple_compile_test_code" > conftest.$ac_ext + + if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 + (eval $ac_compile) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } 2>conftest.err; then + soname=conftest + lib=conftest + libobjs=conftest.$ac_objext + deplibs= + wl=$lt_prog_compiler_wl_CXX + compiler_flags=-v + linker_flags=-v + verstring= + output_objdir=. + libname=conftest + lt_save_allow_undefined_flag=$allow_undefined_flag_CXX + allow_undefined_flag_CXX= + if { (eval echo "$as_me:$LINENO: \"$archive_cmds_CXX 2\>\&1 \| grep \" -lc \" \>/dev/null 2\>\&1\"") >&5 + (eval $archive_cmds_CXX 2\>\&1 \| grep \" -lc \" \>/dev/null 2\>\&1) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } + then + archive_cmds_need_lc_CXX=no + else + archive_cmds_need_lc_CXX=yes + fi + allow_undefined_flag_CXX=$lt_save_allow_undefined_flag + else + cat conftest.err 1>&5 + fi + $rm conftest* + echo "$as_me:$LINENO: result: $archive_cmds_need_lc_CXX" >&5 +echo "${ECHO_T}$archive_cmds_need_lc_CXX" >&6 + ;; + esac + fi + ;; +esac + +echo "$as_me:$LINENO: checking dynamic linker characteristics" >&5 +echo $ECHO_N "checking dynamic linker characteristics... $ECHO_C" >&6 +library_names_spec= +libname_spec='lib$name' +soname_spec= +shrext_cmds=".so" +postinstall_cmds= +postuninstall_cmds= +finish_cmds= +finish_eval= +shlibpath_var= +shlibpath_overrides_runpath=unknown +version_type=none +dynamic_linker="$host_os ld.so" +sys_lib_dlsearch_path_spec="/lib /usr/lib" +if test "$GCC" = yes; then + sys_lib_search_path_spec=`$CC -print-search-dirs | grep "^libraries:" | $SED -e "s/^libraries://" -e "s,=/,/,g"` + if echo "$sys_lib_search_path_spec" | grep ';' >/dev/null ; then + # if the path contains ";" then we assume it to be the separator + # otherwise default to the standard path separator (i.e. ":") - it is + # assumed that no part of a normal pathname contains ";" but that should + # okay in the real world where ";" in dirpaths is itself problematic. + sys_lib_search_path_spec=`echo "$sys_lib_search_path_spec" | $SED -e 's/;/ /g'` + else + sys_lib_search_path_spec=`echo "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"` + fi +else + sys_lib_search_path_spec="/lib /usr/lib /usr/local/lib" +fi +need_lib_prefix=unknown +hardcode_into_libs=no + +# when you set need_version to no, make sure it does not cause -set_version +# flags to be left without arguments +need_version=unknown + +case $host_os in +aix3*) + version_type=linux + library_names_spec='${libname}${release}${shared_ext}$versuffix $libname.a' + shlibpath_var=LIBPATH + + # AIX 3 has no versioning support, so we append a major version to the name. + soname_spec='${libname}${release}${shared_ext}$major' + ;; + +aix4* | aix5*) + version_type=linux + need_lib_prefix=no + need_version=no + hardcode_into_libs=yes + if test "$host_cpu" = ia64; then + # AIX 5 supports IA64 + library_names_spec='${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext}$versuffix $libname${shared_ext}' + shlibpath_var=LD_LIBRARY_PATH + else + # With GCC up to 2.95.x, collect2 would create an import file + # for dependence libraries. The import file would start with + # the line `#! .'. This would cause the generated library to + # depend on `.', always an invalid library. This was fixed in + # development snapshots of GCC prior to 3.0. + case $host_os in + aix4 | aix4.[01] | aix4.[01].*) + if { echo '#if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 97)' + echo ' yes ' + echo '#endif'; } | ${CC} -E - | grep yes > /dev/null; then + : + else + can_build_shared=no + fi + ;; + esac + # AIX (on Power*) has no versioning support, so currently we can not hardcode correct + # soname into executable. Probably we can add versioning support to + # collect2, so additional links can be useful in future. + if test "$aix_use_runtimelinking" = yes; then + # If using run time linking (on AIX 4.2 or later) use lib.so + # instead of lib.a to let people know that these are not + # typical AIX shared libraries. + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + else + # We preserve .a as extension for shared libraries through AIX4.2 + # and later when we are not doing run time linking. + library_names_spec='${libname}${release}.a $libname.a' + soname_spec='${libname}${release}${shared_ext}$major' + fi + shlibpath_var=LIBPATH + fi + ;; + +amigaos*) + library_names_spec='$libname.ixlibrary $libname.a' + # Create ${libname}_ixlibrary.a entries in /sys/libs. + finish_eval='for lib in `ls $libdir/*.ixlibrary 2>/dev/null`; do libname=`$echo "X$lib" | $Xsed -e '\''s%^.*/\([^/]*\)\.ixlibrary$%\1%'\''`; test $rm /sys/libs/${libname}_ixlibrary.a; $show "cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a"; cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a || exit 1; done' + ;; + +beos*) + library_names_spec='${libname}${shared_ext}' + dynamic_linker="$host_os ld.so" + shlibpath_var=LIBRARY_PATH + ;; + +bsdi[45]*) + version_type=linux + need_version=no + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + finish_cmds='PATH="\$PATH:/sbin" ldconfig $libdir' + shlibpath_var=LD_LIBRARY_PATH + sys_lib_search_path_spec="/shlib /usr/lib /usr/X11/lib /usr/contrib/lib /lib /usr/local/lib" + sys_lib_dlsearch_path_spec="/shlib /usr/lib /usr/local/lib" + # the default ld.so.conf also contains /usr/contrib/lib and + # /usr/X11R6/lib (/usr/X11 is a link to /usr/X11R6), but let us allow + # libtool to hard-code these into programs + ;; + +cygwin* | mingw* | pw32*) + version_type=windows + shrext_cmds=".dll" + need_version=no + need_lib_prefix=no + + case $GCC,$host_os in + yes,cygwin* | yes,mingw* | yes,pw32*) + library_names_spec='$libname.dll.a' + # DLL is installed to $(libdir)/../bin by postinstall_cmds + postinstall_cmds='base_file=`basename \${file}`~ + dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\${base_file}'\''i;echo \$dlname'\''`~ + dldir=$destdir/`dirname \$dlpath`~ + test -d \$dldir || mkdir -p \$dldir~ + $install_prog $dir/$dlname \$dldir/$dlname' + postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~ + dlpath=$dir/\$dldll~ + $rm \$dlpath' + shlibpath_overrides_runpath=yes + + case $host_os in + cygwin*) + # Cygwin DLLs use 'cyg' prefix rather than 'lib' + soname_spec='`echo ${libname} | sed -e 's/^lib/cyg/'``echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}' + sys_lib_search_path_spec="/usr/lib /lib/w32api /lib /usr/local/lib" + ;; + mingw*) + # MinGW DLLs use traditional 'lib' prefix + soname_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}' + sys_lib_search_path_spec=`$CC -print-search-dirs | grep "^libraries:" | $SED -e "s/^libraries://" -e "s,=/,/,g"` + if echo "$sys_lib_search_path_spec" | grep ';[c-zC-Z]:/' >/dev/null; then + # It is most probably a Windows format PATH printed by + # mingw gcc, but we are running on Cygwin. Gcc prints its search + # path with ; separators, and with drive letters. We can handle the + # drive letters (cygwin fileutils understands them), so leave them, + # especially as we might pass files found there to a mingw objdump, + # which wouldn't understand a cygwinified path. Ahh. + sys_lib_search_path_spec=`echo "$sys_lib_search_path_spec" | $SED -e 's/;/ /g'` + else + sys_lib_search_path_spec=`echo "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"` + fi + ;; + pw32*) + # pw32 DLLs use 'pw' prefix rather than 'lib' + library_names_spec='`echo ${libname} | sed -e 's/^lib/pw/'``echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}' + ;; + esac + ;; + + *) + library_names_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext} $libname.lib' + ;; + esac + dynamic_linker='Win32 ld.exe' + # FIXME: first we should search . and the directory the executable is in + shlibpath_var=PATH + ;; + +darwin* | rhapsody*) + dynamic_linker="$host_os dyld" + version_type=darwin + need_lib_prefix=no + need_version=no + library_names_spec='${libname}${release}${versuffix}$shared_ext ${libname}${release}${major}$shared_ext ${libname}$shared_ext' + soname_spec='${libname}${release}${major}$shared_ext' + shlibpath_overrides_runpath=yes + shlibpath_var=DYLD_LIBRARY_PATH + shrext_cmds='$(test .$module = .yes && echo .so || echo .dylib)' + # Apple's gcc prints 'gcc -print-search-dirs' doesn't operate the same. + if test "$GCC" = yes; then + sys_lib_search_path_spec=`$CC -print-search-dirs | tr "\n" "$PATH_SEPARATOR" | sed -e 's/libraries:/@libraries:/' | tr "@" "\n" | grep "^libraries:" | sed -e "s/^libraries://" -e "s,=/,/,g" -e "s,$PATH_SEPARATOR, ,g" -e "s,.*,& /lib /usr/lib /usr/local/lib,g"` + else + sys_lib_search_path_spec='/lib /usr/lib /usr/local/lib' + fi + sys_lib_dlsearch_path_spec='/usr/local/lib /lib /usr/lib' + ;; + +dgux*) + version_type=linux + need_lib_prefix=no + need_version=no + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname$shared_ext' + soname_spec='${libname}${release}${shared_ext}$major' + shlibpath_var=LD_LIBRARY_PATH + ;; + +freebsd1*) + dynamic_linker=no + ;; + +kfreebsd*-gnu) + version_type=linux + need_lib_prefix=no + need_version=no + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=no + hardcode_into_libs=yes + dynamic_linker='GNU ld.so' + ;; + +freebsd* | dragonfly*) + # DragonFly does not have aout. When/if they implement a new + # versioning mechanism, adjust this. + objformat=`test -x /usr/bin/objformat && /usr/bin/objformat || echo aout` + version_type=freebsd-$objformat + case $version_type in + freebsd-elf*) + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext} $libname${shared_ext}' + need_version=no + need_lib_prefix=no + ;; + freebsd-*) + library_names_spec='${libname}${release}${shared_ext}$versuffix $libname${shared_ext}$versuffix' + need_version=yes + ;; + esac + shlibpath_var=LD_LIBRARY_PATH + case $host_os in + freebsd2*) + shlibpath_overrides_runpath=yes + ;; + freebsd3.[01]* | freebsdelf3.[01]*) + shlibpath_overrides_runpath=yes + hardcode_into_libs=yes + ;; + *) # from 3.2 on + shlibpath_overrides_runpath=no + hardcode_into_libs=yes + ;; + esac + ;; + +gnu*) + version_type=linux + need_lib_prefix=no + need_version=no + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}${major} ${libname}${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + shlibpath_var=LD_LIBRARY_PATH + hardcode_into_libs=yes + ;; + +hpux9* | hpux10* | hpux11*) + # Give a soname corresponding to the major version so that dld.sl refuses to + # link against other versions. + version_type=sunos + need_lib_prefix=no + need_version=no + case "$host_cpu" in + ia64*) + shrext_cmds='.so' + hardcode_into_libs=yes + dynamic_linker="$host_os dld.so" + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=yes # Unless +noenvvar is specified. + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + if test "X$HPUX_IA64_MODE" = X32; then + sys_lib_search_path_spec="/usr/lib/hpux32 /usr/local/lib/hpux32 /usr/local/lib" + else + sys_lib_search_path_spec="/usr/lib/hpux64 /usr/local/lib/hpux64" + fi + sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec + ;; + hppa*64*) + shrext_cmds='.sl' + hardcode_into_libs=yes + dynamic_linker="$host_os dld.sl" + shlibpath_var=LD_LIBRARY_PATH # How should we handle SHLIB_PATH + shlibpath_overrides_runpath=yes # Unless +noenvvar is specified. + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + sys_lib_search_path_spec="/usr/lib/pa20_64 /usr/ccs/lib/pa20_64" + sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec + ;; + *) + shrext_cmds='.sl' + dynamic_linker="$host_os dld.sl" + shlibpath_var=SHLIB_PATH + shlibpath_overrides_runpath=no # +s is required to enable SHLIB_PATH + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + ;; + esac + # HP-UX runs *really* slowly unless shared libraries are mode 555. + postinstall_cmds='chmod 555 $lib' + ;; + +irix5* | irix6* | nonstopux*) + case $host_os in + nonstopux*) version_type=nonstopux ;; + *) + if test "$lt_cv_prog_gnu_ld" = yes; then + version_type=linux + else + version_type=irix + fi ;; + esac + need_lib_prefix=no + need_version=no + soname_spec='${libname}${release}${shared_ext}$major' + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext} $libname${shared_ext}' + case $host_os in + irix5* | nonstopux*) + libsuff= shlibsuff= + ;; + *) + case $LD in # libtool.m4 will add one of these switches to LD + *-32|*"-32 "|*-melf32bsmip|*"-melf32bsmip ") + libsuff= shlibsuff= libmagic=32-bit;; + *-n32|*"-n32 "|*-melf32bmipn32|*"-melf32bmipn32 ") + libsuff=32 shlibsuff=N32 libmagic=N32;; + *-64|*"-64 "|*-melf64bmip|*"-melf64bmip ") + libsuff=64 shlibsuff=64 libmagic=64-bit;; + *) libsuff= shlibsuff= libmagic=never-match;; + esac + ;; + esac + shlibpath_var=LD_LIBRARY${shlibsuff}_PATH + shlibpath_overrides_runpath=no + sys_lib_search_path_spec="/usr/lib${libsuff} /lib${libsuff} /usr/local/lib${libsuff}" + sys_lib_dlsearch_path_spec="/usr/lib${libsuff} /lib${libsuff}" + hardcode_into_libs=yes + ;; + +# No shared lib support for Linux oldld, aout, or coff. +linux*oldld* | linux*aout* | linux*coff*) + dynamic_linker=no + ;; + +# This must be Linux ELF. +linux*) + version_type=linux + need_lib_prefix=no + need_version=no + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=no + # This implies no fast_install, which is unacceptable. + # Some rework will be needed to allow for fast_install + # before this can be enabled. + hardcode_into_libs=yes + + # find out which ABI we are using + libsuff= + case "$host_cpu" in + x86_64*|s390x*|powerpc64*) + echo '#line 12037 "configure"' > conftest.$ac_ext + if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 + (eval $ac_compile) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; then + case `/usr/bin/file conftest.$ac_objext` in + *64-bit*) + libsuff=64 + sys_lib_search_path_spec="/lib${libsuff} /usr/lib${libsuff} /usr/local/lib${libsuff}" + ;; + esac + fi + rm -rf conftest* + ;; + esac + + # Append ld.so.conf contents to the search path + if test -f /etc/ld.so.conf; then + lt_ld_extra=`awk '/^include / { system(sprintf("cd /etc; cat %s", \$2)); skip = 1; } { if (!skip) print \$0; skip = 0; }' < /etc/ld.so.conf | $SED -e 's/#.*//;s/[:, ]/ /g;s/=[^=]*$//;s/=[^= ]* / /g;/^$/d' | tr '\n' ' '` + sys_lib_dlsearch_path_spec="/lib${libsuff} /usr/lib${libsuff} $lt_ld_extra" + fi + + # We used to test for /lib/ld.so.1 and disable shared libraries on + # powerpc, because MkLinux only supported shared libraries with the + # GNU dynamic linker. Since this was broken with cross compilers, + # most powerpc-linux boxes support dynamic linking these days and + # people can always --disable-shared, the test was removed, and we + # assume the GNU/Linux dynamic linker is in use. + dynamic_linker='GNU/Linux ld.so' + ;; + +knetbsd*-gnu) + version_type=linux + need_lib_prefix=no + need_version=no + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=no + hardcode_into_libs=yes + dynamic_linker='GNU ld.so' + ;; + +netbsd*) + version_type=sunos + need_lib_prefix=no + need_version=no + if echo __ELF__ | $CC -E - | grep __ELF__ >/dev/null; then + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' + finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir' + dynamic_linker='NetBSD (a.out) ld.so' + else + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + dynamic_linker='NetBSD ld.elf_so' + fi + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=yes + hardcode_into_libs=yes + ;; + +newsos6) + version_type=linux + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=yes + ;; + +nto-qnx*) + version_type=linux + need_lib_prefix=no + need_version=no + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=yes + ;; + +openbsd*) + version_type=sunos + need_lib_prefix=no + # Some older versions of OpenBSD (3.3 at least) *do* need versioned libs. + case $host_os in + openbsd3.3 | openbsd3.3.*) need_version=yes ;; + *) need_version=no ;; + esac + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' + finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir' + shlibpath_var=LD_LIBRARY_PATH + if test -z "`echo __ELF__ | $CC -E - | grep __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then + case $host_os in + openbsd2.[89] | openbsd2.[89].*) + shlibpath_overrides_runpath=no + ;; + *) + shlibpath_overrides_runpath=yes + ;; + esac + else + shlibpath_overrides_runpath=yes + fi + ;; + +os2*) + libname_spec='$name' + shrext_cmds=".dll" + need_lib_prefix=no + library_names_spec='$libname${shared_ext} $libname.a' + dynamic_linker='OS/2 ld.exe' + shlibpath_var=LIBPATH + ;; + +osf3* | osf4* | osf5*) + version_type=osf + need_lib_prefix=no + need_version=no + soname_spec='${libname}${release}${shared_ext}$major' + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + shlibpath_var=LD_LIBRARY_PATH + sys_lib_search_path_spec="/usr/shlib /usr/ccs/lib /usr/lib/cmplrs/cc /usr/lib /usr/local/lib /var/shlib" + sys_lib_dlsearch_path_spec="$sys_lib_search_path_spec" + ;; + +sco3.2v5*) + version_type=osf + soname_spec='${libname}${release}${shared_ext}$major' + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + shlibpath_var=LD_LIBRARY_PATH + ;; + +solaris*) + version_type=linux + need_lib_prefix=no + need_version=no + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=yes + hardcode_into_libs=yes + # ldd complains unless libraries are executable + postinstall_cmds='chmod +x $lib' + ;; + +sunos4*) + version_type=sunos + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' + finish_cmds='PATH="\$PATH:/usr/etc" ldconfig $libdir' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=yes + if test "$with_gnu_ld" = yes; then + need_lib_prefix=no + fi + need_version=yes + ;; + +sysv4 | sysv4.2uw2* | sysv4.3* | sysv5*) + version_type=linux + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + shlibpath_var=LD_LIBRARY_PATH + case $host_vendor in + sni) + shlibpath_overrides_runpath=no + need_lib_prefix=no + export_dynamic_flag_spec='${wl}-Blargedynsym' + runpath_var=LD_RUN_PATH + ;; + siemens) + need_lib_prefix=no + ;; + motorola) + need_lib_prefix=no + need_version=no + shlibpath_overrides_runpath=no + sys_lib_search_path_spec='/lib /usr/lib /usr/ccs/lib' + ;; + esac + ;; + +sysv4*MP*) + if test -d /usr/nec ;then + version_type=linux + library_names_spec='$libname${shared_ext}.$versuffix $libname${shared_ext}.$major $libname${shared_ext}' + soname_spec='$libname${shared_ext}.$major' + shlibpath_var=LD_LIBRARY_PATH + fi + ;; + +uts4*) + version_type=linux + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + shlibpath_var=LD_LIBRARY_PATH + ;; + +*) + dynamic_linker=no + ;; +esac +echo "$as_me:$LINENO: result: $dynamic_linker" >&5 +echo "${ECHO_T}$dynamic_linker" >&6 +test "$dynamic_linker" = no && can_build_shared=no + +echo "$as_me:$LINENO: checking how to hardcode library paths into programs" >&5 +echo $ECHO_N "checking how to hardcode library paths into programs... $ECHO_C" >&6 +hardcode_action_CXX= +if test -n "$hardcode_libdir_flag_spec_CXX" || \ + test -n "$runpath_var_CXX" || \ + test "X$hardcode_automatic_CXX" = "Xyes" ; then + + # We can hardcode non-existant directories. + if test "$hardcode_direct_CXX" != no && + # If the only mechanism to avoid hardcoding is shlibpath_var, we + # have to relink, otherwise we might link with an installed library + # when we should be linking with a yet-to-be-installed one + ## test "$_LT_AC_TAGVAR(hardcode_shlibpath_var, CXX)" != no && + test "$hardcode_minus_L_CXX" != no; then + # Linking always hardcodes the temporary library directory. + hardcode_action_CXX=relink + else + # We can link without hardcoding, and we can hardcode nonexisting dirs. + hardcode_action_CXX=immediate + fi +else + # We cannot hardcode anything, or else we can only hardcode existing + # directories. + hardcode_action_CXX=unsupported +fi +echo "$as_me:$LINENO: result: $hardcode_action_CXX" >&5 +echo "${ECHO_T}$hardcode_action_CXX" >&6 + +if test "$hardcode_action_CXX" = relink; then + # Fast installation is not supported + enable_fast_install=no +elif test "$shlibpath_overrides_runpath" = yes || + test "$enable_shared" = no; then + # Fast installation is not necessary + enable_fast_install=needless +fi + +striplib= +old_striplib= +echo "$as_me:$LINENO: checking whether stripping libraries is possible" >&5 +echo $ECHO_N "checking whether stripping libraries is possible... $ECHO_C" >&6 +if test -n "$STRIP" && $STRIP -V 2>&1 | grep "GNU strip" >/dev/null; then + test -z "$old_striplib" && old_striplib="$STRIP --strip-debug" + test -z "$striplib" && striplib="$STRIP --strip-unneeded" + echo "$as_me:$LINENO: result: yes" >&5 +echo "${ECHO_T}yes" >&6 +else +# FIXME - insert some real tests, host_os isn't really good enough + case $host_os in + darwin*) + if test -n "$STRIP" ; then + striplib="$STRIP -x" + echo "$as_me:$LINENO: result: yes" >&5 +echo "${ECHO_T}yes" >&6 + else + echo "$as_me:$LINENO: result: no" >&5 +echo "${ECHO_T}no" >&6 +fi + ;; + *) + echo "$as_me:$LINENO: result: no" >&5 +echo "${ECHO_T}no" >&6 + ;; + esac +fi + +if test "x$enable_dlopen" != xyes; then + enable_dlopen=unknown + enable_dlopen_self=unknown + enable_dlopen_self_static=unknown +else + lt_cv_dlopen=no + lt_cv_dlopen_libs= + + case $host_os in + beos*) + lt_cv_dlopen="load_add_on" + lt_cv_dlopen_libs= + lt_cv_dlopen_self=yes + ;; + + mingw* | pw32*) + lt_cv_dlopen="LoadLibrary" + lt_cv_dlopen_libs= + ;; + + cygwin*) + lt_cv_dlopen="dlopen" + lt_cv_dlopen_libs= + ;; + + darwin*) + # if libdl is installed we need to link against it + echo "$as_me:$LINENO: checking for dlopen in -ldl" >&5 +echo $ECHO_N "checking for dlopen in -ldl... $ECHO_C" >&6 +if test "${ac_cv_lib_dl_dlopen+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + ac_check_lib_save_LIBS=$LIBS +LIBS="-ldl $LIBS" +cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ + +/* Override any gcc2 internal prototype to avoid an error. */ +#ifdef __cplusplus +extern "C" +#endif +/* We use char because int might match the return type of a gcc2 + builtin and then its argument prototype would still apply. */ +char dlopen (); +int +main () +{ +dlopen (); + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext conftest$ac_exeext +if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_cxx_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest$ac_exeext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + ac_cv_lib_dl_dlopen=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_cv_lib_dl_dlopen=no +fi +rm -f conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +LIBS=$ac_check_lib_save_LIBS +fi +echo "$as_me:$LINENO: result: $ac_cv_lib_dl_dlopen" >&5 +echo "${ECHO_T}$ac_cv_lib_dl_dlopen" >&6 +if test $ac_cv_lib_dl_dlopen = yes; then + lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-ldl" +else + + lt_cv_dlopen="dyld" + lt_cv_dlopen_libs= + lt_cv_dlopen_self=yes + +fi + + ;; + + *) + echo "$as_me:$LINENO: checking for shl_load" >&5 +echo $ECHO_N "checking for shl_load... $ECHO_C" >&6 +if test "${ac_cv_func_shl_load+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +/* Define shl_load to an innocuous variant, in case declares shl_load. + For example, HP-UX 11i declares gettimeofday. */ +#define shl_load innocuous_shl_load + +/* System header to define __stub macros and hopefully few prototypes, + which can conflict with char shl_load (); below. + Prefer to if __STDC__ is defined, since + exists even on freestanding compilers. */ + +#ifdef __STDC__ +# include +#else +# include +#endif + +#undef shl_load + +/* Override any gcc2 internal prototype to avoid an error. */ +#ifdef __cplusplus +extern "C" +{ +#endif +/* We use char because int might match the return type of a gcc2 + builtin and then its argument prototype would still apply. */ +char shl_load (); +/* The GNU C library defines this for functions which it implements + to always fail with ENOSYS. Some functions are actually named + something starting with __ and the normal name is an alias. */ +#if defined (__stub_shl_load) || defined (__stub___shl_load) +choke me +#else +char (*f) () = shl_load; +#endif +#ifdef __cplusplus +} +#endif + +int +main () +{ +return f != shl_load; + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext conftest$ac_exeext +if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_cxx_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest$ac_exeext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + ac_cv_func_shl_load=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_cv_func_shl_load=no +fi +rm -f conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +fi +echo "$as_me:$LINENO: result: $ac_cv_func_shl_load" >&5 +echo "${ECHO_T}$ac_cv_func_shl_load" >&6 +if test $ac_cv_func_shl_load = yes; then + lt_cv_dlopen="shl_load" +else + echo "$as_me:$LINENO: checking for shl_load in -ldld" >&5 +echo $ECHO_N "checking for shl_load in -ldld... $ECHO_C" >&6 +if test "${ac_cv_lib_dld_shl_load+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + ac_check_lib_save_LIBS=$LIBS +LIBS="-ldld $LIBS" +cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ + +/* Override any gcc2 internal prototype to avoid an error. */ +#ifdef __cplusplus +extern "C" +#endif +/* We use char because int might match the return type of a gcc2 + builtin and then its argument prototype would still apply. */ +char shl_load (); +int +main () +{ +shl_load (); + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext conftest$ac_exeext +if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_cxx_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest$ac_exeext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + ac_cv_lib_dld_shl_load=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_cv_lib_dld_shl_load=no +fi +rm -f conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +LIBS=$ac_check_lib_save_LIBS +fi +echo "$as_me:$LINENO: result: $ac_cv_lib_dld_shl_load" >&5 +echo "${ECHO_T}$ac_cv_lib_dld_shl_load" >&6 +if test $ac_cv_lib_dld_shl_load = yes; then + lt_cv_dlopen="shl_load" lt_cv_dlopen_libs="-dld" +else + echo "$as_me:$LINENO: checking for dlopen" >&5 +echo $ECHO_N "checking for dlopen... $ECHO_C" >&6 +if test "${ac_cv_func_dlopen+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +/* Define dlopen to an innocuous variant, in case declares dlopen. + For example, HP-UX 11i declares gettimeofday. */ +#define dlopen innocuous_dlopen + +/* System header to define __stub macros and hopefully few prototypes, + which can conflict with char dlopen (); below. + Prefer to if __STDC__ is defined, since + exists even on freestanding compilers. */ + +#ifdef __STDC__ +# include +#else +# include +#endif + +#undef dlopen + +/* Override any gcc2 internal prototype to avoid an error. */ +#ifdef __cplusplus +extern "C" +{ +#endif +/* We use char because int might match the return type of a gcc2 + builtin and then its argument prototype would still apply. */ +char dlopen (); +/* The GNU C library defines this for functions which it implements + to always fail with ENOSYS. Some functions are actually named + something starting with __ and the normal name is an alias. */ +#if defined (__stub_dlopen) || defined (__stub___dlopen) +choke me +#else +char (*f) () = dlopen; +#endif +#ifdef __cplusplus +} +#endif + +int +main () +{ +return f != dlopen; + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext conftest$ac_exeext +if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_cxx_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest$ac_exeext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + ac_cv_func_dlopen=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_cv_func_dlopen=no +fi +rm -f conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +fi +echo "$as_me:$LINENO: result: $ac_cv_func_dlopen" >&5 +echo "${ECHO_T}$ac_cv_func_dlopen" >&6 +if test $ac_cv_func_dlopen = yes; then + lt_cv_dlopen="dlopen" +else + echo "$as_me:$LINENO: checking for dlopen in -ldl" >&5 +echo $ECHO_N "checking for dlopen in -ldl... $ECHO_C" >&6 +if test "${ac_cv_lib_dl_dlopen+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + ac_check_lib_save_LIBS=$LIBS +LIBS="-ldl $LIBS" +cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ + +/* Override any gcc2 internal prototype to avoid an error. */ +#ifdef __cplusplus +extern "C" +#endif +/* We use char because int might match the return type of a gcc2 + builtin and then its argument prototype would still apply. */ +char dlopen (); +int +main () +{ +dlopen (); + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext conftest$ac_exeext +if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_cxx_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest$ac_exeext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + ac_cv_lib_dl_dlopen=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_cv_lib_dl_dlopen=no +fi +rm -f conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +LIBS=$ac_check_lib_save_LIBS +fi +echo "$as_me:$LINENO: result: $ac_cv_lib_dl_dlopen" >&5 +echo "${ECHO_T}$ac_cv_lib_dl_dlopen" >&6 +if test $ac_cv_lib_dl_dlopen = yes; then + lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-ldl" +else + echo "$as_me:$LINENO: checking for dlopen in -lsvld" >&5 +echo $ECHO_N "checking for dlopen in -lsvld... $ECHO_C" >&6 +if test "${ac_cv_lib_svld_dlopen+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + ac_check_lib_save_LIBS=$LIBS +LIBS="-lsvld $LIBS" +cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ + +/* Override any gcc2 internal prototype to avoid an error. */ +#ifdef __cplusplus +extern "C" +#endif +/* We use char because int might match the return type of a gcc2 + builtin and then its argument prototype would still apply. */ +char dlopen (); +int +main () +{ +dlopen (); + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext conftest$ac_exeext +if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_cxx_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest$ac_exeext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + ac_cv_lib_svld_dlopen=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_cv_lib_svld_dlopen=no +fi +rm -f conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +LIBS=$ac_check_lib_save_LIBS +fi +echo "$as_me:$LINENO: result: $ac_cv_lib_svld_dlopen" >&5 +echo "${ECHO_T}$ac_cv_lib_svld_dlopen" >&6 +if test $ac_cv_lib_svld_dlopen = yes; then + lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-lsvld" +else + echo "$as_me:$LINENO: checking for dld_link in -ldld" >&5 +echo $ECHO_N "checking for dld_link in -ldld... $ECHO_C" >&6 +if test "${ac_cv_lib_dld_dld_link+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + ac_check_lib_save_LIBS=$LIBS +LIBS="-ldld $LIBS" +cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ + +/* Override any gcc2 internal prototype to avoid an error. */ +#ifdef __cplusplus +extern "C" +#endif +/* We use char because int might match the return type of a gcc2 + builtin and then its argument prototype would still apply. */ +char dld_link (); +int +main () +{ +dld_link (); + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext conftest$ac_exeext +if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_cxx_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest$ac_exeext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + ac_cv_lib_dld_dld_link=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_cv_lib_dld_dld_link=no +fi +rm -f conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +LIBS=$ac_check_lib_save_LIBS +fi +echo "$as_me:$LINENO: result: $ac_cv_lib_dld_dld_link" >&5 +echo "${ECHO_T}$ac_cv_lib_dld_dld_link" >&6 +if test $ac_cv_lib_dld_dld_link = yes; then + lt_cv_dlopen="dld_link" lt_cv_dlopen_libs="-dld" +fi + + +fi + + +fi + + +fi + + +fi + + +fi + + ;; + esac + + if test "x$lt_cv_dlopen" != xno; then + enable_dlopen=yes + else + enable_dlopen=no + fi + + case $lt_cv_dlopen in + dlopen) + save_CPPFLAGS="$CPPFLAGS" + test "x$ac_cv_header_dlfcn_h" = xyes && CPPFLAGS="$CPPFLAGS -DHAVE_DLFCN_H" + + save_LDFLAGS="$LDFLAGS" + eval LDFLAGS=\"\$LDFLAGS $export_dynamic_flag_spec\" + + save_LIBS="$LIBS" + LIBS="$lt_cv_dlopen_libs $LIBS" + + echo "$as_me:$LINENO: checking whether a program can dlopen itself" >&5 +echo $ECHO_N "checking whether a program can dlopen itself... $ECHO_C" >&6 +if test "${lt_cv_dlopen_self+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + if test "$cross_compiling" = yes; then : + lt_cv_dlopen_self=cross +else + lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2 + lt_status=$lt_dlunknown + cat > conftest.$ac_ext < +#endif + +#include + +#ifdef RTLD_GLOBAL +# define LT_DLGLOBAL RTLD_GLOBAL +#else +# ifdef DL_GLOBAL +# define LT_DLGLOBAL DL_GLOBAL +# else +# define LT_DLGLOBAL 0 +# endif +#endif + +/* We may have to define LT_DLLAZY_OR_NOW in the command line if we + find out it does not work in some platform. */ +#ifndef LT_DLLAZY_OR_NOW +# ifdef RTLD_LAZY +# define LT_DLLAZY_OR_NOW RTLD_LAZY +# else +# ifdef DL_LAZY +# define LT_DLLAZY_OR_NOW DL_LAZY +# else +# ifdef RTLD_NOW +# define LT_DLLAZY_OR_NOW RTLD_NOW +# else +# ifdef DL_NOW +# define LT_DLLAZY_OR_NOW DL_NOW +# else +# define LT_DLLAZY_OR_NOW 0 +# endif +# endif +# endif +# endif +#endif + +#ifdef __cplusplus +extern "C" void exit (int); +#endif + +void fnord() { int i=42;} +int main () +{ + void *self = dlopen (0, LT_DLGLOBAL|LT_DLLAZY_OR_NOW); + int status = $lt_dlunknown; + + if (self) + { + if (dlsym (self,"fnord")) status = $lt_dlno_uscore; + else if (dlsym( self,"_fnord")) status = $lt_dlneed_uscore; + /* dlclose (self); */ + } + + exit (status); +} +EOF + if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && test -s conftest${ac_exeext} 2>/dev/null; then + (./conftest; exit; ) 2>/dev/null + lt_status=$? + case x$lt_status in + x$lt_dlno_uscore) lt_cv_dlopen_self=yes ;; + x$lt_dlneed_uscore) lt_cv_dlopen_self=yes ;; + x$lt_unknown|x*) lt_cv_dlopen_self=no ;; + esac + else : + # compilation failed + lt_cv_dlopen_self=no + fi +fi +rm -fr conftest* + + +fi +echo "$as_me:$LINENO: result: $lt_cv_dlopen_self" >&5 +echo "${ECHO_T}$lt_cv_dlopen_self" >&6 + + if test "x$lt_cv_dlopen_self" = xyes; then + LDFLAGS="$LDFLAGS $link_static_flag" + echo "$as_me:$LINENO: checking whether a statically linked program can dlopen itself" >&5 +echo $ECHO_N "checking whether a statically linked program can dlopen itself... $ECHO_C" >&6 +if test "${lt_cv_dlopen_self_static+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + if test "$cross_compiling" = yes; then : + lt_cv_dlopen_self_static=cross +else + lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2 + lt_status=$lt_dlunknown + cat > conftest.$ac_ext < +#endif + +#include + +#ifdef RTLD_GLOBAL +# define LT_DLGLOBAL RTLD_GLOBAL +#else +# ifdef DL_GLOBAL +# define LT_DLGLOBAL DL_GLOBAL +# else +# define LT_DLGLOBAL 0 +# endif +#endif + +/* We may have to define LT_DLLAZY_OR_NOW in the command line if we + find out it does not work in some platform. */ +#ifndef LT_DLLAZY_OR_NOW +# ifdef RTLD_LAZY +# define LT_DLLAZY_OR_NOW RTLD_LAZY +# else +# ifdef DL_LAZY +# define LT_DLLAZY_OR_NOW DL_LAZY +# else +# ifdef RTLD_NOW +# define LT_DLLAZY_OR_NOW RTLD_NOW +# else +# ifdef DL_NOW +# define LT_DLLAZY_OR_NOW DL_NOW +# else +# define LT_DLLAZY_OR_NOW 0 +# endif +# endif +# endif +# endif +#endif + +#ifdef __cplusplus +extern "C" void exit (int); +#endif + +void fnord() { int i=42;} +int main () +{ + void *self = dlopen (0, LT_DLGLOBAL|LT_DLLAZY_OR_NOW); + int status = $lt_dlunknown; + + if (self) + { + if (dlsym (self,"fnord")) status = $lt_dlno_uscore; + else if (dlsym( self,"_fnord")) status = $lt_dlneed_uscore; + /* dlclose (self); */ + } + + exit (status); +} +EOF + if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && test -s conftest${ac_exeext} 2>/dev/null; then + (./conftest; exit; ) 2>/dev/null + lt_status=$? + case x$lt_status in + x$lt_dlno_uscore) lt_cv_dlopen_self_static=yes ;; + x$lt_dlneed_uscore) lt_cv_dlopen_self_static=yes ;; + x$lt_unknown|x*) lt_cv_dlopen_self_static=no ;; + esac + else : + # compilation failed + lt_cv_dlopen_self_static=no + fi +fi +rm -fr conftest* + + +fi +echo "$as_me:$LINENO: result: $lt_cv_dlopen_self_static" >&5 +echo "${ECHO_T}$lt_cv_dlopen_self_static" >&6 + fi + + CPPFLAGS="$save_CPPFLAGS" + LDFLAGS="$save_LDFLAGS" + LIBS="$save_LIBS" + ;; + esac + + case $lt_cv_dlopen_self in + yes|no) enable_dlopen_self=$lt_cv_dlopen_self ;; + *) enable_dlopen_self=unknown ;; + esac + + case $lt_cv_dlopen_self_static in + yes|no) enable_dlopen_self_static=$lt_cv_dlopen_self_static ;; + *) enable_dlopen_self_static=unknown ;; + esac +fi + + +# The else clause should only fire when bootstrapping the +# libtool distribution, otherwise you forgot to ship ltmain.sh +# with your package, and you will get complaints that there are +# no rules to generate ltmain.sh. +if test -f "$ltmain"; then + # See if we are running on zsh, and set the options which allow our commands through + # without removal of \ escapes. + if test -n "${ZSH_VERSION+set}" ; then + setopt NO_GLOB_SUBST + fi + # Now quote all the things that may contain metacharacters while being + # careful not to overquote the AC_SUBSTed values. We take copies of the + # variables and quote the copies for generation of the libtool script. + for var in echo old_CC old_CFLAGS AR AR_FLAGS EGREP RANLIB LN_S LTCC NM \ + SED SHELL STRIP \ + libname_spec library_names_spec soname_spec extract_expsyms_cmds \ + old_striplib striplib file_magic_cmd finish_cmds finish_eval \ + deplibs_check_method reload_flag reload_cmds need_locks \ + lt_cv_sys_global_symbol_pipe lt_cv_sys_global_symbol_to_cdecl \ + lt_cv_sys_global_symbol_to_c_name_address \ + sys_lib_search_path_spec sys_lib_dlsearch_path_spec \ + old_postinstall_cmds old_postuninstall_cmds \ + compiler_CXX \ + CC_CXX \ + LD_CXX \ + lt_prog_compiler_wl_CXX \ + lt_prog_compiler_pic_CXX \ + lt_prog_compiler_static_CXX \ + lt_prog_compiler_no_builtin_flag_CXX \ + export_dynamic_flag_spec_CXX \ + thread_safe_flag_spec_CXX \ + whole_archive_flag_spec_CXX \ + enable_shared_with_static_runtimes_CXX \ + old_archive_cmds_CXX \ + old_archive_from_new_cmds_CXX \ + predep_objects_CXX \ + postdep_objects_CXX \ + predeps_CXX \ + postdeps_CXX \ + compiler_lib_search_path_CXX \ + archive_cmds_CXX \ + archive_expsym_cmds_CXX \ + postinstall_cmds_CXX \ + postuninstall_cmds_CXX \ + old_archive_from_expsyms_cmds_CXX \ + allow_undefined_flag_CXX \ + no_undefined_flag_CXX \ + export_symbols_cmds_CXX \ + hardcode_libdir_flag_spec_CXX \ + hardcode_libdir_flag_spec_ld_CXX \ + hardcode_libdir_separator_CXX \ + hardcode_automatic_CXX \ + module_cmds_CXX \ + module_expsym_cmds_CXX \ + lt_cv_prog_compiler_c_o_CXX \ + exclude_expsyms_CXX \ + include_expsyms_CXX; do + + case $var in + old_archive_cmds_CXX | \ + old_archive_from_new_cmds_CXX | \ + archive_cmds_CXX | \ + archive_expsym_cmds_CXX | \ + module_cmds_CXX | \ + module_expsym_cmds_CXX | \ + old_archive_from_expsyms_cmds_CXX | \ + export_symbols_cmds_CXX | \ + extract_expsyms_cmds | reload_cmds | finish_cmds | \ + postinstall_cmds | postuninstall_cmds | \ + old_postinstall_cmds | old_postuninstall_cmds | \ + sys_lib_search_path_spec | sys_lib_dlsearch_path_spec) + # Double-quote double-evaled strings. + eval "lt_$var=\\\"\`\$echo \"X\$$var\" | \$Xsed -e \"\$double_quote_subst\" -e \"\$sed_quote_subst\" -e \"\$delay_variable_subst\"\`\\\"" + ;; + *) + eval "lt_$var=\\\"\`\$echo \"X\$$var\" | \$Xsed -e \"\$sed_quote_subst\"\`\\\"" + ;; + esac + done + + case $lt_echo in + *'\$0 --fallback-echo"') + lt_echo=`$echo "X$lt_echo" | $Xsed -e 's/\\\\\\\$0 --fallback-echo"$/$0 --fallback-echo"/'` + ;; + esac + +cfgfile="$ofile" + + cat <<__EOF__ >> "$cfgfile" +# ### BEGIN LIBTOOL TAG CONFIG: $tagname + +# Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: + +# Shell to use when invoking shell scripts. +SHELL=$lt_SHELL + +# Whether or not to build shared libraries. +build_libtool_libs=$enable_shared + +# Whether or not to build static libraries. +build_old_libs=$enable_static + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_CXX + +# Whether or not to disallow shared libs when runtime libs are static +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_CXX + +# Whether or not to optimize for fast installation. +fast_install=$enable_fast_install + +# The host system. +host_alias=$host_alias +host=$host +host_os=$host_os + +# The build system. +build_alias=$build_alias +build=$build +build_os=$build_os + +# An echo program that does not interpret backslashes. +echo=$lt_echo + +# The archiver. +AR=$lt_AR +AR_FLAGS=$lt_AR_FLAGS + +# A C compiler. +LTCC=$lt_LTCC + +# A language-specific compiler. +CC=$lt_compiler_CXX + +# Is the compiler the GNU C compiler? +with_gcc=$GCC_CXX + +# An ERE matcher. +EGREP=$lt_EGREP + +# The linker used to build libraries. +LD=$lt_LD_CXX + +# Whether we need hard or soft links. +LN_S=$lt_LN_S + +# A BSD-compatible nm program. +NM=$lt_NM + +# A symbol stripping program +STRIP=$lt_STRIP + +# Used to examine libraries when file_magic_cmd begins "file" +MAGIC_CMD=$MAGIC_CMD + +# Used on cygwin: DLL creation program. +DLLTOOL="$DLLTOOL" + +# Used on cygwin: object dumper. +OBJDUMP="$OBJDUMP" + +# Used on cygwin: assembler. +AS="$AS" + +# The name of the directory that contains temporary libtool files. +objdir=$objdir + +# How to create reloadable object files. +reload_flag=$lt_reload_flag +reload_cmds=$lt_reload_cmds + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_CXX + +# Object file suffix (normally "o"). +objext="$ac_objext" + +# Old archive suffix (normally "a"). +libext="$libext" + +# Shared library suffix (normally ".so"). +shrext_cmds='$shrext_cmds' + +# Executable file suffix (normally ""). +exeext="$exeext" + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_CXX +pic_mode=$pic_mode + +# What is the maximum length of a command? +max_cmd_len=$lt_cv_sys_max_cmd_len + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_CXX + +# Must we lock files when doing compilation? +need_locks=$lt_need_locks + +# Do we need the lib prefix for modules? +need_lib_prefix=$need_lib_prefix + +# Do we need a version for libraries? +need_version=$need_version + +# Whether dlopen is supported. +dlopen_support=$enable_dlopen + +# Whether dlopen of programs is supported. +dlopen_self=$enable_dlopen_self + +# Whether dlopen of statically linked programs is supported. +dlopen_self_static=$enable_dlopen_self_static + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_CXX + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_CXX + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_CXX + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_CXX + +# Compiler flag to generate thread-safe objects. +thread_safe_flag_spec=$lt_thread_safe_flag_spec_CXX + +# Library versioning type. +version_type=$version_type + +# Format of library name prefix. +libname_spec=$lt_libname_spec + +# List of archive names. First name is the real one, the rest are links. +# The last name is the one that the linker finds with -lNAME. +library_names_spec=$lt_library_names_spec + +# The coded name of the library, if different from the real name. +soname_spec=$lt_soname_spec + +# Commands used to build and install an old-style archive. +RANLIB=$lt_RANLIB +old_archive_cmds=$lt_old_archive_cmds_CXX +old_postinstall_cmds=$lt_old_postinstall_cmds +old_postuninstall_cmds=$lt_old_postuninstall_cmds + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_CXX + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_CXX + +# Commands used to build and install a shared archive. +archive_cmds=$lt_archive_cmds_CXX +archive_expsym_cmds=$lt_archive_expsym_cmds_CXX +postinstall_cmds=$lt_postinstall_cmds +postuninstall_cmds=$lt_postuninstall_cmds + +# Commands used to build a loadable module (assumed same as above if empty) +module_cmds=$lt_module_cmds_CXX +module_expsym_cmds=$lt_module_expsym_cmds_CXX + +# Commands to strip libraries. +old_striplib=$lt_old_striplib +striplib=$lt_striplib + +# Dependencies to place before the objects being linked to create a +# shared library. +predep_objects=$lt_predep_objects_CXX + +# Dependencies to place after the objects being linked to create a +# shared library. +postdep_objects=$lt_postdep_objects_CXX + +# Dependencies to place before the objects being linked to create a +# shared library. +predeps=$lt_predeps_CXX + +# Dependencies to place after the objects being linked to create a +# shared library. +postdeps=$lt_postdeps_CXX + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_CXX + +# Method to check whether dependent libraries are shared objects. +deplibs_check_method=$lt_deplibs_check_method + +# Command to use when deplibs_check_method == file_magic. +file_magic_cmd=$lt_file_magic_cmd + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_CXX + +# Flag that forces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_CXX + +# Commands used to finish a libtool library installation in a directory. +finish_cmds=$lt_finish_cmds + +# Same as above, but a single script fragment to be evaled but not shown. +finish_eval=$lt_finish_eval + +# Take the output of nm and produce a listing of raw symbols and C names. +global_symbol_pipe=$lt_lt_cv_sys_global_symbol_pipe + +# Transform the output of nm in a proper C declaration +global_symbol_to_cdecl=$lt_lt_cv_sys_global_symbol_to_cdecl + +# Transform the output of nm in a C name address pair +global_symbol_to_c_name_address=$lt_lt_cv_sys_global_symbol_to_c_name_address + +# This is the shared library runtime path variable. +runpath_var=$runpath_var + +# This is the shared library path variable. +shlibpath_var=$shlibpath_var + +# Is shlibpath searched before the hard-coded library search path? +shlibpath_overrides_runpath=$shlibpath_overrides_runpath + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_CXX + +# Whether we should hardcode library paths into libraries. +hardcode_into_libs=$hardcode_into_libs + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist. +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_CXX + +# If ld is used when linking, flag to hardcode \$libdir into +# a binary during linking. This must work even if \$libdir does +# not exist. +hardcode_libdir_flag_spec_ld=$lt_hardcode_libdir_flag_spec_ld_CXX + +# Whether we need a single -rpath flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_CXX + +# Set to yes if using DIR/libNAME${shared_ext} during linking hardcodes DIR into the +# resulting binary. +hardcode_direct=$hardcode_direct_CXX + +# Set to yes if using the -LDIR flag during linking hardcodes DIR into the +# resulting binary. +hardcode_minus_L=$hardcode_minus_L_CXX + +# Set to yes if using SHLIBPATH_VAR=DIR during linking hardcodes DIR into +# the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_CXX + +# Set to yes if building a shared library automatically hardcodes DIR into the library +# and all subsequent libraries and executables linked against it. +hardcode_automatic=$hardcode_automatic_CXX + +# Variables whose values should be saved in libtool wrapper scripts and +# restored at relink time. +variables_saved_for_relink="$variables_saved_for_relink" + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_CXX + +# Compile-time system search path for libraries +sys_lib_search_path_spec=$lt_sys_lib_search_path_spec + +# Run-time system search path for libraries +sys_lib_dlsearch_path_spec=$lt_sys_lib_dlsearch_path_spec + +# Fix the shell variable \$srcfile for the compiler. +fix_srcfile_path="$fix_srcfile_path_CXX" + +# Set to yes if exported symbols are required. +always_export_symbols=$always_export_symbols_CXX + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_CXX + +# The commands to extract the exported symbol list from a shared archive. +extract_expsyms_cmds=$lt_extract_expsyms_cmds + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_CXX + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_CXX + +# ### END LIBTOOL TAG CONFIG: $tagname + +__EOF__ + + +else + # If there is no Makefile yet, we rely on a make rule to execute + # `config.status --recheck' to rerun these tests and create the + # libtool script then. + ltmain_in=`echo $ltmain | sed -e 's/\.sh$/.in/'` + if test -f "$ltmain_in"; then + test -f Makefile && make "$ltmain" + fi +fi + + +ac_ext=c +ac_cpp='$CPP $CPPFLAGS' +ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_c_compiler_gnu + +CC=$lt_save_CC +LDCXX=$LD +LD=$lt_save_LD +GCC=$lt_save_GCC +with_gnu_ldcxx=$with_gnu_ld +with_gnu_ld=$lt_save_with_gnu_ld +lt_cv_path_LDCXX=$lt_cv_path_LD +lt_cv_path_LD=$lt_save_path_LD +lt_cv_prog_gnu_ldcxx=$lt_cv_prog_gnu_ld +lt_cv_prog_gnu_ld=$lt_save_with_gnu_ld + + else + tagname="" + fi + ;; + + F77) + if test -n "$F77" && test "X$F77" != "Xno"; then + +ac_ext=f +ac_compile='$F77 -c $FFLAGS conftest.$ac_ext >&5' +ac_link='$F77 -o conftest$ac_exeext $FFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_f77_compiler_gnu + + +archive_cmds_need_lc_F77=no +allow_undefined_flag_F77= +always_export_symbols_F77=no +archive_expsym_cmds_F77= +export_dynamic_flag_spec_F77= +hardcode_direct_F77=no +hardcode_libdir_flag_spec_F77= +hardcode_libdir_flag_spec_ld_F77= +hardcode_libdir_separator_F77= +hardcode_minus_L_F77=no +hardcode_automatic_F77=no +module_cmds_F77= +module_expsym_cmds_F77= +link_all_deplibs_F77=unknown +old_archive_cmds_F77=$old_archive_cmds +no_undefined_flag_F77= +whole_archive_flag_spec_F77= +enable_shared_with_static_runtimes_F77=no + +# Source file extension for f77 test sources. +ac_ext=f + +# Object file extension for compiled f77 test sources. +objext=o +objext_F77=$objext + +# Code to be used in simple compile tests +lt_simple_compile_test_code=" subroutine t\n return\n end\n" + +# Code to be used in simple link tests +lt_simple_link_test_code=" program t\n end\n" + +# ltmain only uses $CC for tagged configurations so make sure $CC is set. + +# If no C compiler was specified, use CC. +LTCC=${LTCC-"$CC"} + +# Allow CC to be a program name with arguments. +compiler=$CC + + +# save warnings/boilerplate of simple test code +ac_outfile=conftest.$ac_objext +printf "$lt_simple_compile_test_code" >conftest.$ac_ext +eval "$ac_compile" 2>&1 >/dev/null | $SED '/^$/d' >conftest.err +_lt_compiler_boilerplate=`cat conftest.err` +$rm conftest* + +ac_outfile=conftest.$ac_objext +printf "$lt_simple_link_test_code" >conftest.$ac_ext +eval "$ac_link" 2>&1 >/dev/null | $SED '/^$/d' >conftest.err +_lt_linker_boilerplate=`cat conftest.err` +$rm conftest* + + +# Allow CC to be a program name with arguments. +lt_save_CC="$CC" +CC=${F77-"f77"} +compiler=$CC +compiler_F77=$CC +for cc_temp in $compiler""; do + case $cc_temp in + compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; + distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; + \-*) ;; + *) break;; + esac +done +cc_basename=`$echo "X$cc_temp" | $Xsed -e 's%.*/%%' -e "s%^$host_alias-%%"` + + +echo "$as_me:$LINENO: checking if libtool supports shared libraries" >&5 +echo $ECHO_N "checking if libtool supports shared libraries... $ECHO_C" >&6 +echo "$as_me:$LINENO: result: $can_build_shared" >&5 +echo "${ECHO_T}$can_build_shared" >&6 + +echo "$as_me:$LINENO: checking whether to build shared libraries" >&5 +echo $ECHO_N "checking whether to build shared libraries... $ECHO_C" >&6 +test "$can_build_shared" = "no" && enable_shared=no + +# On AIX, shared libraries and static libraries use the same namespace, and +# are all built from PIC. +case "$host_os" in +aix3*) + test "$enable_shared" = yes && enable_static=no + if test -n "$RANLIB"; then + archive_cmds="$archive_cmds~\$RANLIB \$lib" + postinstall_cmds='$RANLIB $lib' + fi + ;; +aix4* | aix5*) + if test "$host_cpu" != ia64 && test "$aix_use_runtimelinking" = no ; then + test "$enable_shared" = yes && enable_static=no + fi + ;; +esac +echo "$as_me:$LINENO: result: $enable_shared" >&5 +echo "${ECHO_T}$enable_shared" >&6 + +echo "$as_me:$LINENO: checking whether to build static libraries" >&5 +echo $ECHO_N "checking whether to build static libraries... $ECHO_C" >&6 +# Make sure either enable_shared or enable_static is yes. +test "$enable_shared" = yes || enable_static=yes +echo "$as_me:$LINENO: result: $enable_static" >&5 +echo "${ECHO_T}$enable_static" >&6 + +test "$ld_shlibs_F77" = no && can_build_shared=no + +GCC_F77="$G77" +LD_F77="$LD" + +lt_prog_compiler_wl_F77= +lt_prog_compiler_pic_F77= +lt_prog_compiler_static_F77= + +echo "$as_me:$LINENO: checking for $compiler option to produce PIC" >&5 +echo $ECHO_N "checking for $compiler option to produce PIC... $ECHO_C" >&6 + + if test "$GCC" = yes; then + lt_prog_compiler_wl_F77='-Wl,' + lt_prog_compiler_static_F77='-static' + + case $host_os in + aix*) + # All AIX code is PIC. + if test "$host_cpu" = ia64; then + # AIX 5 now supports IA64 processor + lt_prog_compiler_static_F77='-Bstatic' + fi + ;; + + amigaos*) + # FIXME: we need at least 68020 code to build shared libraries, but + # adding the `-m68020' flag to GCC prevents building anything better, + # like `-m68040'. + lt_prog_compiler_pic_F77='-m68020 -resident32 -malways-restore-a4' + ;; + + beos* | cygwin* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*) + # PIC is the default for these OSes. + ;; + + mingw* | pw32* | os2*) + # This hack is so that the source file can tell whether it is being + # built for inclusion in a dll (and should export symbols for example). + lt_prog_compiler_pic_F77='-DDLL_EXPORT' + ;; + + darwin* | rhapsody*) + # PIC is the default on this platform + # Common symbols not allowed in MH_DYLIB files + lt_prog_compiler_pic_F77='-fno-common' + ;; + + msdosdjgpp*) + # Just because we use GCC doesn't mean we suddenly get shared libraries + # on systems that don't support them. + lt_prog_compiler_can_build_shared_F77=no + enable_shared=no + ;; + + sysv4*MP*) + if test -d /usr/nec; then + lt_prog_compiler_pic_F77=-Kconform_pic + fi + ;; + + hpux*) + # PIC is the default for IA64 HP-UX and 64-bit HP-UX, but + # not for PA HP-UX. + case "$host_cpu" in + hppa*64*|ia64*) + # +Z the default + ;; + *) + lt_prog_compiler_pic_F77='-fPIC' + ;; + esac + ;; + + *) + lt_prog_compiler_pic_F77='-fPIC' + ;; + esac + else + # PORTME Check for flag to pass linker flags through the system compiler. + case $host_os in + aix*) + lt_prog_compiler_wl_F77='-Wl,' + if test "$host_cpu" = ia64; then + # AIX 5 now supports IA64 processor + lt_prog_compiler_static_F77='-Bstatic' + else + lt_prog_compiler_static_F77='-bnso -bI:/lib/syscalls.exp' + fi + ;; + darwin*) + # PIC is the default on this platform + # Common symbols not allowed in MH_DYLIB files + case $cc_basename in + xlc*) + lt_prog_compiler_pic_F77='-qnocommon' + lt_prog_compiler_wl_F77='-Wl,' + ;; + esac + ;; + + mingw* | pw32* | os2*) + # This hack is so that the source file can tell whether it is being + # built for inclusion in a dll (and should export symbols for example). + lt_prog_compiler_pic_F77='-DDLL_EXPORT' + ;; + + hpux9* | hpux10* | hpux11*) + lt_prog_compiler_wl_F77='-Wl,' + # PIC is the default for IA64 HP-UX and 64-bit HP-UX, but + # not for PA HP-UX. + case "$host_cpu" in + hppa*64*|ia64*) + # +Z the default + ;; + *) + lt_prog_compiler_pic_F77='+Z' + ;; + esac + # Is there a better lt_prog_compiler_static that works with the bundled CC? + lt_prog_compiler_static_F77='${wl}-a ${wl}archive' + ;; + + irix5* | irix6* | nonstopux*) + lt_prog_compiler_wl_F77='-Wl,' + # PIC (with -KPIC) is the default. + lt_prog_compiler_static_F77='-non_shared' + ;; + + newsos6) + lt_prog_compiler_pic_F77='-KPIC' + lt_prog_compiler_static_F77='-Bstatic' + ;; + + linux*) + case $cc_basename in + icc* | ecc*) + lt_prog_compiler_wl_F77='-Wl,' + lt_prog_compiler_pic_F77='-KPIC' + lt_prog_compiler_static_F77='-static' + ;; + pgcc* | pgf77* | pgf90*) + # Portland Group compilers (*not* the Pentium gcc compiler, + # which looks to be a dead project) + lt_prog_compiler_wl_F77='-Wl,' + lt_prog_compiler_pic_F77='-fpic' + lt_prog_compiler_static_F77='-static' + ;; + ccc*) + lt_prog_compiler_wl_F77='-Wl,' + # All Alpha code is PIC. + lt_prog_compiler_static_F77='-non_shared' + ;; + esac + ;; + + osf3* | osf4* | osf5*) + lt_prog_compiler_wl_F77='-Wl,' + # All OSF/1 code is PIC. + lt_prog_compiler_static_F77='-non_shared' + ;; + + sco3.2v5*) + lt_prog_compiler_pic_F77='-Kpic' + lt_prog_compiler_static_F77='-dn' + ;; + + solaris*) + lt_prog_compiler_pic_F77='-KPIC' + lt_prog_compiler_static_F77='-Bstatic' + case $cc_basename in + f77* | f90* | f95*) + lt_prog_compiler_wl_F77='-Qoption ld ';; + *) + lt_prog_compiler_wl_F77='-Wl,';; + esac + ;; + + sunos4*) + lt_prog_compiler_wl_F77='-Qoption ld ' + lt_prog_compiler_pic_F77='-PIC' + lt_prog_compiler_static_F77='-Bstatic' + ;; + + sysv4 | sysv4.2uw2* | sysv4.3* | sysv5*) + lt_prog_compiler_wl_F77='-Wl,' + lt_prog_compiler_pic_F77='-KPIC' + lt_prog_compiler_static_F77='-Bstatic' + ;; + + sysv4*MP*) + if test -d /usr/nec ;then + lt_prog_compiler_pic_F77='-Kconform_pic' + lt_prog_compiler_static_F77='-Bstatic' + fi + ;; + + unicos*) + lt_prog_compiler_wl_F77='-Wl,' + lt_prog_compiler_can_build_shared_F77=no + ;; + + uts4*) + lt_prog_compiler_pic_F77='-pic' + lt_prog_compiler_static_F77='-Bstatic' + ;; + + *) + lt_prog_compiler_can_build_shared_F77=no + ;; + esac + fi + +echo "$as_me:$LINENO: result: $lt_prog_compiler_pic_F77" >&5 +echo "${ECHO_T}$lt_prog_compiler_pic_F77" >&6 + +# +# Check to make sure the PIC flag actually works. +# +if test -n "$lt_prog_compiler_pic_F77"; then + +echo "$as_me:$LINENO: checking if $compiler PIC flag $lt_prog_compiler_pic_F77 works" >&5 +echo $ECHO_N "checking if $compiler PIC flag $lt_prog_compiler_pic_F77 works... $ECHO_C" >&6 +if test "${lt_prog_compiler_pic_works_F77+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + lt_prog_compiler_pic_works_F77=no + ac_outfile=conftest.$ac_objext + printf "$lt_simple_compile_test_code" > conftest.$ac_ext + lt_compiler_flag="$lt_prog_compiler_pic_F77" + # Insert the option either (1) after the last *FLAGS variable, or + # (2) before a word containing "conftest.", or (3) at the end. + # Note that $ac_compile itself does not contain backslashes and begins + # with a dollar sign (not a hyphen), so the echo should work correctly. + # The option is referenced via a variable to avoid confusing sed. + lt_compile=`echo "$ac_compile" | $SED \ + -e 's:.*FLAGS}? :&$lt_compiler_flag :; t' \ + -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ + -e 's:$: $lt_compiler_flag:'` + (eval echo "\"\$as_me:13895: $lt_compile\"" >&5) + (eval "$lt_compile" 2>conftest.err) + ac_status=$? + cat conftest.err >&5 + echo "$as_me:13899: \$? = $ac_status" >&5 + if (exit $ac_status) && test -s "$ac_outfile"; then + # The compiler can only warn and ignore the option if not recognized + # So say no if there are warnings other than the usual output. + $echo "X$_lt_compiler_boilerplate" | $Xsed >conftest.exp + $SED '/^$/d' conftest.err >conftest.er2 + if test ! -s conftest.err || diff conftest.exp conftest.er2 >/dev/null; then + lt_prog_compiler_pic_works_F77=yes + fi + fi + $rm conftest* + +fi +echo "$as_me:$LINENO: result: $lt_prog_compiler_pic_works_F77" >&5 +echo "${ECHO_T}$lt_prog_compiler_pic_works_F77" >&6 + +if test x"$lt_prog_compiler_pic_works_F77" = xyes; then + case $lt_prog_compiler_pic_F77 in + "" | " "*) ;; + *) lt_prog_compiler_pic_F77=" $lt_prog_compiler_pic_F77" ;; + esac +else + lt_prog_compiler_pic_F77= + lt_prog_compiler_can_build_shared_F77=no +fi + +fi +case "$host_os" in + # For platforms which do not support PIC, -DPIC is meaningless: + *djgpp*) + lt_prog_compiler_pic_F77= + ;; + *) + lt_prog_compiler_pic_F77="$lt_prog_compiler_pic_F77" + ;; +esac + +echo "$as_me:$LINENO: checking if $compiler supports -c -o file.$ac_objext" >&5 +echo $ECHO_N "checking if $compiler supports -c -o file.$ac_objext... $ECHO_C" >&6 +if test "${lt_cv_prog_compiler_c_o_F77+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + lt_cv_prog_compiler_c_o_F77=no + $rm -r conftest 2>/dev/null + mkdir conftest + cd conftest + mkdir out + printf "$lt_simple_compile_test_code" > conftest.$ac_ext + + lt_compiler_flag="-o out/conftest2.$ac_objext" + # Insert the option either (1) after the last *FLAGS variable, or + # (2) before a word containing "conftest.", or (3) at the end. + # Note that $ac_compile itself does not contain backslashes and begins + # with a dollar sign (not a hyphen), so the echo should work correctly. + lt_compile=`echo "$ac_compile" | $SED \ + -e 's:.*FLAGS}? :&$lt_compiler_flag :; t' \ + -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ + -e 's:$: $lt_compiler_flag:'` + (eval echo "\"\$as_me:13957: $lt_compile\"" >&5) + (eval "$lt_compile" 2>out/conftest.err) + ac_status=$? + cat out/conftest.err >&5 + echo "$as_me:13961: \$? = $ac_status" >&5 + if (exit $ac_status) && test -s out/conftest2.$ac_objext + then + # The compiler can only warn and ignore the option if not recognized + # So say no if there are warnings + $echo "X$_lt_compiler_boilerplate" | $Xsed > out/conftest.exp + $SED '/^$/d' out/conftest.err >out/conftest.er2 + if test ! -s out/conftest.err || diff out/conftest.exp out/conftest.er2 >/dev/null; then + lt_cv_prog_compiler_c_o_F77=yes + fi + fi + chmod u+w . + $rm conftest* + # SGI C++ compiler will create directory out/ii_files/ for + # template instantiation + test -d out/ii_files && $rm out/ii_files/* && rmdir out/ii_files + $rm out/* && rmdir out + cd .. + rmdir conftest + $rm conftest* + +fi +echo "$as_me:$LINENO: result: $lt_cv_prog_compiler_c_o_F77" >&5 +echo "${ECHO_T}$lt_cv_prog_compiler_c_o_F77" >&6 + + +hard_links="nottested" +if test "$lt_cv_prog_compiler_c_o_F77" = no && test "$need_locks" != no; then + # do not overwrite the value of need_locks provided by the user + echo "$as_me:$LINENO: checking if we can lock with hard links" >&5 +echo $ECHO_N "checking if we can lock with hard links... $ECHO_C" >&6 + hard_links=yes + $rm conftest* + ln conftest.a conftest.b 2>/dev/null && hard_links=no + touch conftest.a + ln conftest.a conftest.b 2>&5 || hard_links=no + ln conftest.a conftest.b 2>/dev/null && hard_links=no + echo "$as_me:$LINENO: result: $hard_links" >&5 +echo "${ECHO_T}$hard_links" >&6 + if test "$hard_links" = no; then + { echo "$as_me:$LINENO: WARNING: \`$CC' does not support \`-c -o', so \`make -j' may be unsafe" >&5 +echo "$as_me: WARNING: \`$CC' does not support \`-c -o', so \`make -j' may be unsafe" >&2;} + need_locks=warn + fi +else + need_locks=no +fi + +echo "$as_me:$LINENO: checking whether the $compiler linker ($LD) supports shared libraries" >&5 +echo $ECHO_N "checking whether the $compiler linker ($LD) supports shared libraries... $ECHO_C" >&6 + + runpath_var= + allow_undefined_flag_F77= + enable_shared_with_static_runtimes_F77=no + archive_cmds_F77= + archive_expsym_cmds_F77= + old_archive_From_new_cmds_F77= + old_archive_from_expsyms_cmds_F77= + export_dynamic_flag_spec_F77= + whole_archive_flag_spec_F77= + thread_safe_flag_spec_F77= + hardcode_libdir_flag_spec_F77= + hardcode_libdir_flag_spec_ld_F77= + hardcode_libdir_separator_F77= + hardcode_direct_F77=no + hardcode_minus_L_F77=no + hardcode_shlibpath_var_F77=unsupported + link_all_deplibs_F77=unknown + hardcode_automatic_F77=no + module_cmds_F77= + module_expsym_cmds_F77= + always_export_symbols_F77=no + export_symbols_cmds_F77='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' + # include_expsyms should be a list of space-separated symbols to be *always* + # included in the symbol list + include_expsyms_F77= + # exclude_expsyms can be an extended regexp of symbols to exclude + # it will be wrapped by ` (' and `)$', so one must not match beginning or + # end of line. Example: `a|bc|.*d.*' will exclude the symbols `a' and `bc', + # as well as any symbol that contains `d'. + exclude_expsyms_F77="_GLOBAL_OFFSET_TABLE_" + # Although _GLOBAL_OFFSET_TABLE_ is a valid symbol C name, most a.out + # platforms (ab)use it in PIC code, but their linkers get confused if + # the symbol is explicitly referenced. Since portable code cannot + # rely on this symbol name, it's probably fine to never include it in + # preloaded symbol tables. + extract_expsyms_cmds= + # Just being paranoid about ensuring that cc_basename is set. + for cc_temp in $compiler""; do + case $cc_temp in + compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; + distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; + \-*) ;; + *) break;; + esac +done +cc_basename=`$echo "X$cc_temp" | $Xsed -e 's%.*/%%' -e "s%^$host_alias-%%"` + + case $host_os in + cygwin* | mingw* | pw32*) + # FIXME: the MSVC++ port hasn't been tested in a loooong time + # When not using gcc, we currently assume that we are using + # Microsoft Visual C++. + if test "$GCC" != yes; then + with_gnu_ld=no + fi + ;; + openbsd*) + with_gnu_ld=no + ;; + esac + + ld_shlibs_F77=yes + if test "$with_gnu_ld" = yes; then + # If archive_cmds runs LD, not CC, wlarc should be empty + wlarc='${wl}' + + # Set some defaults for GNU ld with shared library support. These + # are reset later if shared libraries are not supported. Putting them + # here allows them to be overridden if necessary. + runpath_var=LD_RUN_PATH + hardcode_libdir_flag_spec_F77='${wl}--rpath ${wl}$libdir' + export_dynamic_flag_spec_F77='${wl}--export-dynamic' + # ancient GNU ld didn't support --whole-archive et. al. + if $LD --help 2>&1 | grep 'no-whole-archive' > /dev/null; then + whole_archive_flag_spec_F77="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive' + else + whole_archive_flag_spec_F77= + fi + supports_anon_versioning=no + case `$LD -v 2>/dev/null` in + *\ [01].* | *\ 2.[0-9].* | *\ 2.10.*) ;; # catch versions < 2.11 + *\ 2.11.93.0.2\ *) supports_anon_versioning=yes ;; # RH7.3 ... + *\ 2.11.92.0.12\ *) supports_anon_versioning=yes ;; # Mandrake 8.2 ... + *\ 2.11.*) ;; # other 2.11 versions + *) supports_anon_versioning=yes ;; + esac + + # See if GNU ld supports shared libraries. + case $host_os in + aix3* | aix4* | aix5*) + # On AIX/PPC, the GNU linker is very broken + if test "$host_cpu" != ia64; then + ld_shlibs_F77=no + cat <&2 + +*** Warning: the GNU linker, at least up to release 2.9.1, is reported +*** to be unable to reliably create shared libraries on AIX. +*** Therefore, libtool is disabling shared libraries support. If you +*** really care for shared libraries, you may want to modify your PATH +*** so that a non-GNU linker is found, and then restart. + +EOF + fi + ;; + + amigaos*) + archive_cmds_F77='$rm $output_objdir/a2ixlibrary.data~$echo "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$echo "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$echo "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$echo "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)' + hardcode_libdir_flag_spec_F77='-L$libdir' + hardcode_minus_L_F77=yes + + # Samuel A. Falvo II reports + # that the semantics of dynamic libraries on AmigaOS, at least up + # to version 4, is to share data among multiple programs linked + # with the same dynamic library. Since this doesn't match the + # behavior of shared libraries on other platforms, we can't use + # them. + ld_shlibs_F77=no + ;; + + beos*) + if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then + allow_undefined_flag_F77=unsupported + # Joseph Beckenbach says some releases of gcc + # support --undefined. This deserves some investigation. FIXME + archive_cmds_F77='$CC -nostart $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' + else + ld_shlibs_F77=no + fi + ;; + + cygwin* | mingw* | pw32*) + # _LT_AC_TAGVAR(hardcode_libdir_flag_spec, F77) is actually meaningless, + # as there is no search path for DLLs. + hardcode_libdir_flag_spec_F77='-L$libdir' + allow_undefined_flag_F77=unsupported + always_export_symbols_F77=no + enable_shared_with_static_runtimes_F77=yes + export_symbols_cmds_F77='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[BCDGRS] /s/.* \([^ ]*\)/\1 DATA/'\'' | $SED -e '\''/^[AITW] /s/.* //'\'' | sort | uniq > $export_symbols' + + if $LD --help 2>&1 | grep 'auto-import' > /dev/null; then + archive_cmds_F77='$CC -shared $libobjs $deplibs $compiler_flags -o $output_objdir/$soname ${wl}--image-base=0x10000000 ${wl}--out-implib,$lib' + # If the export-symbols file already is a .def file (1st line + # is EXPORTS), use it as is; otherwise, prepend... + archive_expsym_cmds_F77='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then + cp $export_symbols $output_objdir/$soname.def; + else + echo EXPORTS > $output_objdir/$soname.def; + cat $export_symbols >> $output_objdir/$soname.def; + fi~ + $CC -shared $output_objdir/$soname.def $libobjs $deplibs $compiler_flags -o $output_objdir/$soname ${wl}--image-base=0x10000000 ${wl}--out-implib,$lib' + else + ld_shlibs_F77=no + fi + ;; + + linux*) + if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then + tmp_addflag= + case $cc_basename,$host_cpu in + pgcc*) # Portland Group C compiler + whole_archive_flag_spec_F77='${wl}--whole-archive,`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; $echo \"$new_convenience\"` ${wl}--no-whole-archive' + tmp_addflag=' $pic_flag' + ;; + pgf77* | pgf90* ) # Portland Group f77 and f90 compilers + whole_archive_flag_spec_F77='${wl}--whole-archive,`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; $echo \"$new_convenience\"` ${wl}--no-whole-archive' + tmp_addflag=' $pic_flag -Mnomain' ;; + ecc*,ia64* | icc*,ia64*) # Intel C compiler on ia64 + tmp_addflag=' -i_dynamic' ;; + efc*,ia64* | ifort*,ia64*) # Intel Fortran compiler on ia64 + tmp_addflag=' -i_dynamic -nofor_main' ;; + ifc* | ifort*) # Intel Fortran compiler + tmp_addflag=' -nofor_main' ;; + esac + archive_cmds_F77='$CC -shared'"$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' + + if test $supports_anon_versioning = yes; then + archive_expsym_cmds_F77='$echo "{ global:" > $output_objdir/$libname.ver~ + cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ + $echo "local: *; };" >> $output_objdir/$libname.ver~ + $CC -shared'"$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-version-script ${wl}$output_objdir/$libname.ver -o $lib' + fi + else + ld_shlibs_F77=no + fi + ;; + + netbsd*) + if echo __ELF__ | $CC -E - | grep __ELF__ >/dev/null; then + archive_cmds_F77='$LD -Bshareable $libobjs $deplibs $linker_flags -o $lib' + wlarc= + else + archive_cmds_F77='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' + archive_expsym_cmds_F77='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' + fi + ;; + + solaris* | sysv5*) + if $LD -v 2>&1 | grep 'BFD 2\.8' > /dev/null; then + ld_shlibs_F77=no + cat <&2 + +*** Warning: The releases 2.8.* of the GNU linker cannot reliably +*** create shared libraries on Solaris systems. Therefore, libtool +*** is disabling shared libraries support. We urge you to upgrade GNU +*** binutils to release 2.9.1 or newer. Another option is to modify +*** your PATH or compiler configuration so that the native linker is +*** used, and then restart. + +EOF + elif $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then + archive_cmds_F77='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' + archive_expsym_cmds_F77='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' + else + ld_shlibs_F77=no + fi + ;; + + sunos4*) + archive_cmds_F77='$LD -assert pure-text -Bshareable -o $lib $libobjs $deplibs $linker_flags' + wlarc= + hardcode_direct_F77=yes + hardcode_shlibpath_var_F77=no + ;; + + *) + if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then + archive_cmds_F77='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' + archive_expsym_cmds_F77='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' + else + ld_shlibs_F77=no + fi + ;; + esac + + if test "$ld_shlibs_F77" = no; then + runpath_var= + hardcode_libdir_flag_spec_F77= + export_dynamic_flag_spec_F77= + whole_archive_flag_spec_F77= + fi + else + # PORTME fill in a description of your system's linker (not GNU ld) + case $host_os in + aix3*) + allow_undefined_flag_F77=unsupported + always_export_symbols_F77=yes + archive_expsym_cmds_F77='$LD -o $output_objdir/$soname $libobjs $deplibs $linker_flags -bE:$export_symbols -T512 -H512 -bM:SRE~$AR $AR_FLAGS $lib $output_objdir/$soname' + # Note: this linker hardcodes the directories in LIBPATH if there + # are no directories specified by -L. + hardcode_minus_L_F77=yes + if test "$GCC" = yes && test -z "$link_static_flag"; then + # Neither direct hardcoding nor static linking is supported with a + # broken collect2. + hardcode_direct_F77=unsupported + fi + ;; + + aix4* | aix5*) + if test "$host_cpu" = ia64; then + # On IA64, the linker does run time linking by default, so we don't + # have to do anything special. + aix_use_runtimelinking=no + exp_sym_flag='-Bexport' + no_entry_flag="" + else + # If we're using GNU nm, then we don't want the "-C" option. + # -C means demangle to AIX nm, but means don't demangle with GNU nm + if $NM -V 2>&1 | grep 'GNU' > /dev/null; then + export_symbols_cmds_F77='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\$2 == "T") || (\$2 == "D") || (\$2 == "B")) && (substr(\$3,1,1) != ".")) { print \$3 } }'\'' | sort -u > $export_symbols' + else + export_symbols_cmds_F77='$NM -BCpg $libobjs $convenience | awk '\''{ if (((\$2 == "T") || (\$2 == "D") || (\$2 == "B")) && (substr(\$3,1,1) != ".")) { print \$3 } }'\'' | sort -u > $export_symbols' + fi + aix_use_runtimelinking=no + + # Test if we are trying to use run time linking or normal + # AIX style linking. If -brtl is somewhere in LDFLAGS, we + # need to do runtime linking. + case $host_os in aix4.[23]|aix4.[23].*|aix5*) + for ld_flag in $LDFLAGS; do + if (test $ld_flag = "-brtl" || test $ld_flag = "-Wl,-brtl"); then + aix_use_runtimelinking=yes + break + fi + done + esac + + exp_sym_flag='-bexport' + no_entry_flag='-bnoentry' + fi + + # When large executables or shared objects are built, AIX ld can + # have problems creating the table of contents. If linking a library + # or program results in "error TOC overflow" add -mminimal-toc to + # CXXFLAGS/CFLAGS for g++/gcc. In the cases where that is not + # enough to fix the problem, add -Wl,-bbigtoc to LDFLAGS. + + archive_cmds_F77='' + hardcode_direct_F77=yes + hardcode_libdir_separator_F77=':' + link_all_deplibs_F77=yes + + if test "$GCC" = yes; then + case $host_os in aix4.[012]|aix4.[012].*) + # We only want to do this on AIX 4.2 and lower, the check + # below for broken collect2 doesn't work under 4.3+ + collect2name=`${CC} -print-prog-name=collect2` + if test -f "$collect2name" && \ + strings "$collect2name" | grep resolve_lib_name >/dev/null + then + # We have reworked collect2 + hardcode_direct_F77=yes + else + # We have old collect2 + hardcode_direct_F77=unsupported + # It fails to find uninstalled libraries when the uninstalled + # path is not listed in the libpath. Setting hardcode_minus_L + # to unsupported forces relinking + hardcode_minus_L_F77=yes + hardcode_libdir_flag_spec_F77='-L$libdir' + hardcode_libdir_separator_F77= + fi + esac + shared_flag='-shared' + if test "$aix_use_runtimelinking" = yes; then + shared_flag="$shared_flag "'${wl}-G' + fi + else + # not using gcc + if test "$host_cpu" = ia64; then + # VisualAge C++, Version 5.5 for AIX 5L for IA-64, Beta 3 Release + # chokes on -Wl,-G. The following line is correct: + shared_flag='-G' + else + if test "$aix_use_runtimelinking" = yes; then + shared_flag='${wl}-G' + else + shared_flag='${wl}-bM:SRE' + fi + fi + fi + + # It seems that -bexpall does not export symbols beginning with + # underscore (_), so it is better to generate a list of symbols to export. + always_export_symbols_F77=yes + if test "$aix_use_runtimelinking" = yes; then + # Warning - without using the other runtime loading flags (-brtl), + # -berok will link without error, but may produce a broken library. + allow_undefined_flag_F77='-berok' + # Determine the default libpath from the value encoded in an empty executable. + cat >conftest.$ac_ext <<_ACEOF + program main + + end +_ACEOF +rm -f conftest.$ac_objext conftest$ac_exeext +if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_f77_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest$ac_exeext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + +aix_libpath=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e '/Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/; p; } +}'` +# Check for a 64-bit object if we didn't find anything. +if test -z "$aix_libpath"; then aix_libpath=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e '/Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/; p; } +}'`; fi +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +fi +rm -f conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +if test -z "$aix_libpath"; then aix_libpath="/usr/lib:/lib"; fi + + hardcode_libdir_flag_spec_F77='${wl}-blibpath:$libdir:'"$aix_libpath" + archive_expsym_cmds_F77="\$CC"' -o $output_objdir/$soname $libobjs $deplibs $compiler_flags `if test "x${allow_undefined_flag}" != "x"; then echo "${wl}${allow_undefined_flag}"; else :; fi` '"\${wl}$no_entry_flag \${wl}$exp_sym_flag:\$export_symbols $shared_flag" + else + if test "$host_cpu" = ia64; then + hardcode_libdir_flag_spec_F77='${wl}-R $libdir:/usr/lib:/lib' + allow_undefined_flag_F77="-z nodefs" + archive_expsym_cmds_F77="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs $compiler_flags ${wl}${allow_undefined_flag} '"\${wl}$no_entry_flag \${wl}$exp_sym_flag:\$export_symbols" + else + # Determine the default libpath from the value encoded in an empty executable. + cat >conftest.$ac_ext <<_ACEOF + program main + + end +_ACEOF +rm -f conftest.$ac_objext conftest$ac_exeext +if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_f77_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest$ac_exeext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + +aix_libpath=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e '/Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/; p; } +}'` +# Check for a 64-bit object if we didn't find anything. +if test -z "$aix_libpath"; then aix_libpath=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e '/Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/; p; } +}'`; fi +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +fi +rm -f conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +if test -z "$aix_libpath"; then aix_libpath="/usr/lib:/lib"; fi + + hardcode_libdir_flag_spec_F77='${wl}-blibpath:$libdir:'"$aix_libpath" + # Warning - without using the other run time loading flags, + # -berok will link without error, but may produce a broken library. + no_undefined_flag_F77=' ${wl}-bernotok' + allow_undefined_flag_F77=' ${wl}-berok' + # -bexpall does not export symbols beginning with underscore (_) + always_export_symbols_F77=yes + # Exported symbols can be pulled into shared objects from archives + whole_archive_flag_spec_F77=' ' + archive_cmds_need_lc_F77=yes + # This is similar to how AIX traditionally builds it's shared libraries. + archive_expsym_cmds_F77="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs $compiler_flags ${wl}-bE:$export_symbols ${wl}-bnoentry${allow_undefined_flag}~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$soname' + fi + fi + ;; + + amigaos*) + archive_cmds_F77='$rm $output_objdir/a2ixlibrary.data~$echo "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$echo "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$echo "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$echo "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)' + hardcode_libdir_flag_spec_F77='-L$libdir' + hardcode_minus_L_F77=yes + # see comment about different semantics on the GNU ld section + ld_shlibs_F77=no + ;; + + bsdi[45]*) + export_dynamic_flag_spec_F77=-rdynamic + ;; + + cygwin* | mingw* | pw32*) + # When not using gcc, we currently assume that we are using + # Microsoft Visual C++. + # hardcode_libdir_flag_spec is actually meaningless, as there is + # no search path for DLLs. + hardcode_libdir_flag_spec_F77=' ' + allow_undefined_flag_F77=unsupported + # Tell ltmain to make .lib files, not .a files. + libext=lib + # Tell ltmain to make .dll files, not .so files. + shrext_cmds=".dll" + # FIXME: Setting linknames here is a bad hack. + archive_cmds_F77='$CC -o $lib $libobjs $compiler_flags `echo "$deplibs" | $SED -e '\''s/ -lc$//'\''` -link -dll~linknames=' + # The linker will automatically build a .lib file if we build a DLL. + old_archive_From_new_cmds_F77='true' + # FIXME: Should let the user specify the lib program. + old_archive_cmds_F77='lib /OUT:$oldlib$oldobjs$old_deplibs' + fix_srcfile_path_F77='`cygpath -w "$srcfile"`' + enable_shared_with_static_runtimes_F77=yes + ;; + + darwin* | rhapsody*) + case "$host_os" in + rhapsody* | darwin1.[012]) + allow_undefined_flag_F77='${wl}-undefined ${wl}suppress' + ;; + *) # Darwin 1.3 on + if test -z ${MACOSX_DEPLOYMENT_TARGET} ; then + allow_undefined_flag_F77='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' + else + case ${MACOSX_DEPLOYMENT_TARGET} in + 10.[012]) + allow_undefined_flag_F77='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' + ;; + 10.*) + allow_undefined_flag_F77='${wl}-undefined ${wl}dynamic_lookup' + ;; + esac + fi + ;; + esac + archive_cmds_need_lc_F77=no + hardcode_direct_F77=no + hardcode_automatic_F77=yes + hardcode_shlibpath_var_F77=unsupported + whole_archive_flag_spec_F77='' + link_all_deplibs_F77=yes + if test "$GCC" = yes ; then + output_verbose_link_cmd='echo' + archive_cmds_F77='$CC -dynamiclib $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags -install_name $rpath/$soname $verstring' + module_cmds_F77='$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags' + # Don't fix this by using the ld -exported_symbols_list flag, it doesn't exist in older darwin ld's + archive_expsym_cmds_F77='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC -dynamiclib $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags -install_name $rpath/$soname $verstring~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' + module_expsym_cmds_F77='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' + else + case $cc_basename in + xlc*) + output_verbose_link_cmd='echo' + archive_cmds_F77='$CC -qmkshrobj $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-install_name ${wl}`echo $rpath/$soname` $verstring' + module_cmds_F77='$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags' + # Don't fix this by using the ld -exported_symbols_list flag, it doesn't exist in older darwin ld's + archive_expsym_cmds_F77='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC -qmkshrobj $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-install_name ${wl}$rpath/$soname $verstring~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' + module_expsym_cmds_F77='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' + ;; + *) + ld_shlibs_F77=no + ;; + esac + fi + ;; + + dgux*) + archive_cmds_F77='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' + hardcode_libdir_flag_spec_F77='-L$libdir' + hardcode_shlibpath_var_F77=no + ;; + + freebsd1*) + ld_shlibs_F77=no + ;; + + # FreeBSD 2.2.[012] allows us to include c++rt0.o to get C++ constructor + # support. Future versions do this automatically, but an explicit c++rt0.o + # does not break anything, and helps significantly (at the cost of a little + # extra space). + freebsd2.2*) + archive_cmds_F77='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags /usr/lib/c++rt0.o' + hardcode_libdir_flag_spec_F77='-R$libdir' + hardcode_direct_F77=yes + hardcode_shlibpath_var_F77=no + ;; + + # Unfortunately, older versions of FreeBSD 2 do not have this feature. + freebsd2*) + archive_cmds_F77='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' + hardcode_direct_F77=yes + hardcode_minus_L_F77=yes + hardcode_shlibpath_var_F77=no + ;; + + # FreeBSD 3 and greater uses gcc -shared to do shared libraries. + freebsd* | kfreebsd*-gnu | dragonfly*) + archive_cmds_F77='$CC -shared -o $lib $libobjs $deplibs $compiler_flags' + hardcode_libdir_flag_spec_F77='-R$libdir' + hardcode_direct_F77=yes + hardcode_shlibpath_var_F77=no + ;; + + hpux9*) + if test "$GCC" = yes; then + archive_cmds_F77='$rm $output_objdir/$soname~$CC -shared -fPIC ${wl}+b ${wl}$install_libdir -o $output_objdir/$soname $libobjs $deplibs $compiler_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib' + else + archive_cmds_F77='$rm $output_objdir/$soname~$LD -b +b $install_libdir -o $output_objdir/$soname $libobjs $deplibs $linker_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib' + fi + hardcode_libdir_flag_spec_F77='${wl}+b ${wl}$libdir' + hardcode_libdir_separator_F77=: + hardcode_direct_F77=yes + + # hardcode_minus_L: Not really in the search PATH, + # but as the default location of the library. + hardcode_minus_L_F77=yes + export_dynamic_flag_spec_F77='${wl}-E' + ;; + + hpux10* | hpux11*) + if test "$GCC" = yes -a "$with_gnu_ld" = no; then + case "$host_cpu" in + hppa*64*|ia64*) + archive_cmds_F77='$CC -shared ${wl}+h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' + ;; + *) + archive_cmds_F77='$CC -shared -fPIC ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags' + ;; + esac + else + case "$host_cpu" in + hppa*64*|ia64*) + archive_cmds_F77='$LD -b +h $soname -o $lib $libobjs $deplibs $linker_flags' + ;; + *) + archive_cmds_F77='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags' + ;; + esac + fi + if test "$with_gnu_ld" = no; then + case "$host_cpu" in + hppa*64*) + hardcode_libdir_flag_spec_F77='${wl}+b ${wl}$libdir' + hardcode_libdir_flag_spec_ld_F77='+b $libdir' + hardcode_libdir_separator_F77=: + hardcode_direct_F77=no + hardcode_shlibpath_var_F77=no + ;; + ia64*) + hardcode_libdir_flag_spec_F77='-L$libdir' + hardcode_direct_F77=no + hardcode_shlibpath_var_F77=no + + # hardcode_minus_L: Not really in the search PATH, + # but as the default location of the library. + hardcode_minus_L_F77=yes + ;; + *) + hardcode_libdir_flag_spec_F77='${wl}+b ${wl}$libdir' + hardcode_libdir_separator_F77=: + hardcode_direct_F77=yes + export_dynamic_flag_spec_F77='${wl}-E' + + # hardcode_minus_L: Not really in the search PATH, + # but as the default location of the library. + hardcode_minus_L_F77=yes + ;; + esac + fi + ;; + + irix5* | irix6* | nonstopux*) + if test "$GCC" = yes; then + archive_cmds_F77='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' + else + archive_cmds_F77='$LD -shared $libobjs $deplibs $linker_flags -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib' + hardcode_libdir_flag_spec_ld_F77='-rpath $libdir' + fi + hardcode_libdir_flag_spec_F77='${wl}-rpath ${wl}$libdir' + hardcode_libdir_separator_F77=: + link_all_deplibs_F77=yes + ;; + + netbsd*) + if echo __ELF__ | $CC -E - | grep __ELF__ >/dev/null; then + archive_cmds_F77='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' # a.out + else + archive_cmds_F77='$LD -shared -o $lib $libobjs $deplibs $linker_flags' # ELF + fi + hardcode_libdir_flag_spec_F77='-R$libdir' + hardcode_direct_F77=yes + hardcode_shlibpath_var_F77=no + ;; + + newsos6) + archive_cmds_F77='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' + hardcode_direct_F77=yes + hardcode_libdir_flag_spec_F77='${wl}-rpath ${wl}$libdir' + hardcode_libdir_separator_F77=: + hardcode_shlibpath_var_F77=no + ;; + + openbsd*) + hardcode_direct_F77=yes + hardcode_shlibpath_var_F77=no + if test -z "`echo __ELF__ | $CC -E - | grep __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then + archive_cmds_F77='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' + archive_expsym_cmds_F77='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-retain-symbols-file,$export_symbols' + hardcode_libdir_flag_spec_F77='${wl}-rpath,$libdir' + export_dynamic_flag_spec_F77='${wl}-E' + else + case $host_os in + openbsd[01].* | openbsd2.[0-7] | openbsd2.[0-7].*) + archive_cmds_F77='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' + hardcode_libdir_flag_spec_F77='-R$libdir' + ;; + *) + archive_cmds_F77='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' + hardcode_libdir_flag_spec_F77='${wl}-rpath,$libdir' + ;; + esac + fi + ;; + + os2*) + hardcode_libdir_flag_spec_F77='-L$libdir' + hardcode_minus_L_F77=yes + allow_undefined_flag_F77=unsupported + archive_cmds_F77='$echo "LIBRARY $libname INITINSTANCE" > $output_objdir/$libname.def~$echo "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~$echo DATA >> $output_objdir/$libname.def~$echo " SINGLE NONSHARED" >> $output_objdir/$libname.def~$echo EXPORTS >> $output_objdir/$libname.def~emxexp $libobjs >> $output_objdir/$libname.def~$CC -Zdll -Zcrtdll -o $lib $libobjs $deplibs $compiler_flags $output_objdir/$libname.def' + old_archive_From_new_cmds_F77='emximp -o $output_objdir/$libname.a $output_objdir/$libname.def' + ;; + + osf3*) + if test "$GCC" = yes; then + allow_undefined_flag_F77=' ${wl}-expect_unresolved ${wl}\*' + archive_cmds_F77='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' + else + allow_undefined_flag_F77=' -expect_unresolved \*' + archive_cmds_F77='$LD -shared${allow_undefined_flag} $libobjs $deplibs $linker_flags -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib' + fi + hardcode_libdir_flag_spec_F77='${wl}-rpath ${wl}$libdir' + hardcode_libdir_separator_F77=: + ;; + + osf4* | osf5*) # as osf3* with the addition of -msym flag + if test "$GCC" = yes; then + allow_undefined_flag_F77=' ${wl}-expect_unresolved ${wl}\*' + archive_cmds_F77='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags ${wl}-msym ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' + hardcode_libdir_flag_spec_F77='${wl}-rpath ${wl}$libdir' + else + allow_undefined_flag_F77=' -expect_unresolved \*' + archive_cmds_F77='$LD -shared${allow_undefined_flag} $libobjs $deplibs $linker_flags -msym -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib' + archive_expsym_cmds_F77='for i in `cat $export_symbols`; do printf "%s %s\\n" -exported_symbol "\$i" >> $lib.exp; done; echo "-hidden">> $lib.exp~ + $LD -shared${allow_undefined_flag} -input $lib.exp $linker_flags $libobjs $deplibs -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib~$rm $lib.exp' + + # Both c and cxx compiler support -rpath directly + hardcode_libdir_flag_spec_F77='-rpath $libdir' + fi + hardcode_libdir_separator_F77=: + ;; + + sco3.2v5*) + archive_cmds_F77='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' + hardcode_shlibpath_var_F77=no + export_dynamic_flag_spec_F77='${wl}-Bexport' + runpath_var=LD_RUN_PATH + hardcode_runpath_var=yes + ;; + + solaris*) + no_undefined_flag_F77=' -z text' + if test "$GCC" = yes; then + wlarc='${wl}' + archive_cmds_F77='$CC -shared ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' + archive_expsym_cmds_F77='$echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~$echo "local: *; };" >> $lib.exp~ + $CC -shared ${wl}-M ${wl}$lib.exp ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags~$rm $lib.exp' + else + wlarc='' + archive_cmds_F77='$LD -G${allow_undefined_flag} -h $soname -o $lib $libobjs $deplibs $linker_flags' + archive_expsym_cmds_F77='$echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~$echo "local: *; };" >> $lib.exp~ + $LD -G${allow_undefined_flag} -M $lib.exp -h $soname -o $lib $libobjs $deplibs $linker_flags~$rm $lib.exp' + fi + hardcode_libdir_flag_spec_F77='-R$libdir' + hardcode_shlibpath_var_F77=no + case $host_os in + solaris2.[0-5] | solaris2.[0-5].*) ;; + *) + # The compiler driver will combine linker options so we + # cannot just pass the convience library names through + # without $wl, iff we do not link with $LD. + # Luckily, gcc supports the same syntax we need for Sun Studio. + # Supported since Solaris 2.6 (maybe 2.5.1?) + case $wlarc in + '') + whole_archive_flag_spec_F77='-z allextract$convenience -z defaultextract' ;; + *) + whole_archive_flag_spec_F77='${wl}-z ${wl}allextract`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; $echo \"$new_convenience\"` ${wl}-z ${wl}defaultextract' ;; + esac ;; + esac + link_all_deplibs_F77=yes + ;; + + sunos4*) + if test "x$host_vendor" = xsequent; then + # Use $CC to link under sequent, because it throws in some extra .o + # files that make .init and .fini sections work. + archive_cmds_F77='$CC -G ${wl}-h $soname -o $lib $libobjs $deplibs $compiler_flags' + else + archive_cmds_F77='$LD -assert pure-text -Bstatic -o $lib $libobjs $deplibs $linker_flags' + fi + hardcode_libdir_flag_spec_F77='-L$libdir' + hardcode_direct_F77=yes + hardcode_minus_L_F77=yes + hardcode_shlibpath_var_F77=no + ;; + + sysv4) + case $host_vendor in + sni) + archive_cmds_F77='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' + hardcode_direct_F77=yes # is this really true??? + ;; + siemens) + ## LD is ld it makes a PLAMLIB + ## CC just makes a GrossModule. + archive_cmds_F77='$LD -G -o $lib $libobjs $deplibs $linker_flags' + reload_cmds_F77='$CC -r -o $output$reload_objs' + hardcode_direct_F77=no + ;; + motorola) + archive_cmds_F77='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' + hardcode_direct_F77=no #Motorola manual says yes, but my tests say they lie + ;; + esac + runpath_var='LD_RUN_PATH' + hardcode_shlibpath_var_F77=no + ;; + + sysv4.3*) + archive_cmds_F77='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' + hardcode_shlibpath_var_F77=no + export_dynamic_flag_spec_F77='-Bexport' + ;; + + sysv4*MP*) + if test -d /usr/nec; then + archive_cmds_F77='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' + hardcode_shlibpath_var_F77=no + runpath_var=LD_RUN_PATH + hardcode_runpath_var=yes + ld_shlibs_F77=yes + fi + ;; + + sysv4.2uw2*) + archive_cmds_F77='$LD -G -o $lib $libobjs $deplibs $linker_flags' + hardcode_direct_F77=yes + hardcode_minus_L_F77=no + hardcode_shlibpath_var_F77=no + hardcode_runpath_var=yes + runpath_var=LD_RUN_PATH + ;; + + sysv5OpenUNIX8* | sysv5UnixWare7* | sysv5uw[78]* | unixware7*) + no_undefined_flag_F77='${wl}-z ${wl}text' + if test "$GCC" = yes; then + archive_cmds_F77='$CC -shared ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' + else + archive_cmds_F77='$CC -G ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' + fi + runpath_var='LD_RUN_PATH' + hardcode_shlibpath_var_F77=no + ;; + + sysv5*) + no_undefined_flag_F77=' -z text' + # $CC -shared without GNU ld will not create a library from C++ + # object files and a static libstdc++, better avoid it by now + archive_cmds_F77='$LD -G${allow_undefined_flag} -h $soname -o $lib $libobjs $deplibs $linker_flags' + archive_expsym_cmds_F77='$echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~$echo "local: *; };" >> $lib.exp~ + $LD -G${allow_undefined_flag} -M $lib.exp -h $soname -o $lib $libobjs $deplibs $linker_flags~$rm $lib.exp' + hardcode_libdir_flag_spec_F77= + hardcode_shlibpath_var_F77=no + runpath_var='LD_RUN_PATH' + ;; + + uts4*) + archive_cmds_F77='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' + hardcode_libdir_flag_spec_F77='-L$libdir' + hardcode_shlibpath_var_F77=no + ;; + + *) + ld_shlibs_F77=no + ;; + esac + fi + +echo "$as_me:$LINENO: result: $ld_shlibs_F77" >&5 +echo "${ECHO_T}$ld_shlibs_F77" >&6 +test "$ld_shlibs_F77" = no && can_build_shared=no + +variables_saved_for_relink="PATH $shlibpath_var $runpath_var" +if test "$GCC" = yes; then + variables_saved_for_relink="$variables_saved_for_relink GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH" +fi + +# +# Do we need to explicitly link libc? +# +case "x$archive_cmds_need_lc_F77" in +x|xyes) + # Assume -lc should be added + archive_cmds_need_lc_F77=yes + + if test "$enable_shared" = yes && test "$GCC" = yes; then + case $archive_cmds_F77 in + *'~'*) + # FIXME: we may have to deal with multi-command sequences. + ;; + '$CC '*) + # Test whether the compiler implicitly links with -lc since on some + # systems, -lgcc has to come before -lc. If gcc already passes -lc + # to ld, don't add -lc before -lgcc. + echo "$as_me:$LINENO: checking whether -lc should be explicitly linked in" >&5 +echo $ECHO_N "checking whether -lc should be explicitly linked in... $ECHO_C" >&6 + $rm conftest* + printf "$lt_simple_compile_test_code" > conftest.$ac_ext + + if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 + (eval $ac_compile) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } 2>conftest.err; then + soname=conftest + lib=conftest + libobjs=conftest.$ac_objext + deplibs= + wl=$lt_prog_compiler_wl_F77 + compiler_flags=-v + linker_flags=-v + verstring= + output_objdir=. + libname=conftest + lt_save_allow_undefined_flag=$allow_undefined_flag_F77 + allow_undefined_flag_F77= + if { (eval echo "$as_me:$LINENO: \"$archive_cmds_F77 2\>\&1 \| grep \" -lc \" \>/dev/null 2\>\&1\"") >&5 + (eval $archive_cmds_F77 2\>\&1 \| grep \" -lc \" \>/dev/null 2\>\&1) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } + then + archive_cmds_need_lc_F77=no + else + archive_cmds_need_lc_F77=yes + fi + allow_undefined_flag_F77=$lt_save_allow_undefined_flag + else + cat conftest.err 1>&5 + fi + $rm conftest* + echo "$as_me:$LINENO: result: $archive_cmds_need_lc_F77" >&5 +echo "${ECHO_T}$archive_cmds_need_lc_F77" >&6 + ;; + esac + fi + ;; +esac + +echo "$as_me:$LINENO: checking dynamic linker characteristics" >&5 +echo $ECHO_N "checking dynamic linker characteristics... $ECHO_C" >&6 +library_names_spec= +libname_spec='lib$name' +soname_spec= +shrext_cmds=".so" +postinstall_cmds= +postuninstall_cmds= +finish_cmds= +finish_eval= +shlibpath_var= +shlibpath_overrides_runpath=unknown +version_type=none +dynamic_linker="$host_os ld.so" +sys_lib_dlsearch_path_spec="/lib /usr/lib" +if test "$GCC" = yes; then + sys_lib_search_path_spec=`$CC -print-search-dirs | grep "^libraries:" | $SED -e "s/^libraries://" -e "s,=/,/,g"` + if echo "$sys_lib_search_path_spec" | grep ';' >/dev/null ; then + # if the path contains ";" then we assume it to be the separator + # otherwise default to the standard path separator (i.e. ":") - it is + # assumed that no part of a normal pathname contains ";" but that should + # okay in the real world where ";" in dirpaths is itself problematic. + sys_lib_search_path_spec=`echo "$sys_lib_search_path_spec" | $SED -e 's/;/ /g'` + else + sys_lib_search_path_spec=`echo "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"` + fi +else + sys_lib_search_path_spec="/lib /usr/lib /usr/local/lib" +fi +need_lib_prefix=unknown +hardcode_into_libs=no + +# when you set need_version to no, make sure it does not cause -set_version +# flags to be left without arguments +need_version=unknown + +case $host_os in +aix3*) + version_type=linux + library_names_spec='${libname}${release}${shared_ext}$versuffix $libname.a' + shlibpath_var=LIBPATH + + # AIX 3 has no versioning support, so we append a major version to the name. + soname_spec='${libname}${release}${shared_ext}$major' + ;; + +aix4* | aix5*) + version_type=linux + need_lib_prefix=no + need_version=no + hardcode_into_libs=yes + if test "$host_cpu" = ia64; then + # AIX 5 supports IA64 + library_names_spec='${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext}$versuffix $libname${shared_ext}' + shlibpath_var=LD_LIBRARY_PATH + else + # With GCC up to 2.95.x, collect2 would create an import file + # for dependence libraries. The import file would start with + # the line `#! .'. This would cause the generated library to + # depend on `.', always an invalid library. This was fixed in + # development snapshots of GCC prior to 3.0. + case $host_os in + aix4 | aix4.[01] | aix4.[01].*) + if { echo '#if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 97)' + echo ' yes ' + echo '#endif'; } | ${CC} -E - | grep yes > /dev/null; then + : + else + can_build_shared=no + fi + ;; + esac + # AIX (on Power*) has no versioning support, so currently we can not hardcode correct + # soname into executable. Probably we can add versioning support to + # collect2, so additional links can be useful in future. + if test "$aix_use_runtimelinking" = yes; then + # If using run time linking (on AIX 4.2 or later) use lib.so + # instead of lib.a to let people know that these are not + # typical AIX shared libraries. + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + else + # We preserve .a as extension for shared libraries through AIX4.2 + # and later when we are not doing run time linking. + library_names_spec='${libname}${release}.a $libname.a' + soname_spec='${libname}${release}${shared_ext}$major' + fi + shlibpath_var=LIBPATH + fi + ;; + +amigaos*) + library_names_spec='$libname.ixlibrary $libname.a' + # Create ${libname}_ixlibrary.a entries in /sys/libs. + finish_eval='for lib in `ls $libdir/*.ixlibrary 2>/dev/null`; do libname=`$echo "X$lib" | $Xsed -e '\''s%^.*/\([^/]*\)\.ixlibrary$%\1%'\''`; test $rm /sys/libs/${libname}_ixlibrary.a; $show "cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a"; cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a || exit 1; done' + ;; + +beos*) + library_names_spec='${libname}${shared_ext}' + dynamic_linker="$host_os ld.so" + shlibpath_var=LIBRARY_PATH + ;; + +bsdi[45]*) + version_type=linux + need_version=no + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + finish_cmds='PATH="\$PATH:/sbin" ldconfig $libdir' + shlibpath_var=LD_LIBRARY_PATH + sys_lib_search_path_spec="/shlib /usr/lib /usr/X11/lib /usr/contrib/lib /lib /usr/local/lib" + sys_lib_dlsearch_path_spec="/shlib /usr/lib /usr/local/lib" + # the default ld.so.conf also contains /usr/contrib/lib and + # /usr/X11R6/lib (/usr/X11 is a link to /usr/X11R6), but let us allow + # libtool to hard-code these into programs + ;; + +cygwin* | mingw* | pw32*) + version_type=windows + shrext_cmds=".dll" + need_version=no + need_lib_prefix=no + + case $GCC,$host_os in + yes,cygwin* | yes,mingw* | yes,pw32*) + library_names_spec='$libname.dll.a' + # DLL is installed to $(libdir)/../bin by postinstall_cmds + postinstall_cmds='base_file=`basename \${file}`~ + dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\${base_file}'\''i;echo \$dlname'\''`~ + dldir=$destdir/`dirname \$dlpath`~ + test -d \$dldir || mkdir -p \$dldir~ + $install_prog $dir/$dlname \$dldir/$dlname' + postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~ + dlpath=$dir/\$dldll~ + $rm \$dlpath' + shlibpath_overrides_runpath=yes + + case $host_os in + cygwin*) + # Cygwin DLLs use 'cyg' prefix rather than 'lib' + soname_spec='`echo ${libname} | sed -e 's/^lib/cyg/'``echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}' + sys_lib_search_path_spec="/usr/lib /lib/w32api /lib /usr/local/lib" + ;; + mingw*) + # MinGW DLLs use traditional 'lib' prefix + soname_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}' + sys_lib_search_path_spec=`$CC -print-search-dirs | grep "^libraries:" | $SED -e "s/^libraries://" -e "s,=/,/,g"` + if echo "$sys_lib_search_path_spec" | grep ';[c-zC-Z]:/' >/dev/null; then + # It is most probably a Windows format PATH printed by + # mingw gcc, but we are running on Cygwin. Gcc prints its search + # path with ; separators, and with drive letters. We can handle the + # drive letters (cygwin fileutils understands them), so leave them, + # especially as we might pass files found there to a mingw objdump, + # which wouldn't understand a cygwinified path. Ahh. + sys_lib_search_path_spec=`echo "$sys_lib_search_path_spec" | $SED -e 's/;/ /g'` + else + sys_lib_search_path_spec=`echo "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"` + fi + ;; + pw32*) + # pw32 DLLs use 'pw' prefix rather than 'lib' + library_names_spec='`echo ${libname} | sed -e 's/^lib/pw/'``echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}' + ;; + esac + ;; + + *) + library_names_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext} $libname.lib' + ;; + esac + dynamic_linker='Win32 ld.exe' + # FIXME: first we should search . and the directory the executable is in + shlibpath_var=PATH + ;; + +darwin* | rhapsody*) + dynamic_linker="$host_os dyld" + version_type=darwin + need_lib_prefix=no + need_version=no + library_names_spec='${libname}${release}${versuffix}$shared_ext ${libname}${release}${major}$shared_ext ${libname}$shared_ext' + soname_spec='${libname}${release}${major}$shared_ext' + shlibpath_overrides_runpath=yes + shlibpath_var=DYLD_LIBRARY_PATH + shrext_cmds='$(test .$module = .yes && echo .so || echo .dylib)' + # Apple's gcc prints 'gcc -print-search-dirs' doesn't operate the same. + if test "$GCC" = yes; then + sys_lib_search_path_spec=`$CC -print-search-dirs | tr "\n" "$PATH_SEPARATOR" | sed -e 's/libraries:/@libraries:/' | tr "@" "\n" | grep "^libraries:" | sed -e "s/^libraries://" -e "s,=/,/,g" -e "s,$PATH_SEPARATOR, ,g" -e "s,.*,& /lib /usr/lib /usr/local/lib,g"` + else + sys_lib_search_path_spec='/lib /usr/lib /usr/local/lib' + fi + sys_lib_dlsearch_path_spec='/usr/local/lib /lib /usr/lib' + ;; + +dgux*) + version_type=linux + need_lib_prefix=no + need_version=no + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname$shared_ext' + soname_spec='${libname}${release}${shared_ext}$major' + shlibpath_var=LD_LIBRARY_PATH + ;; + +freebsd1*) + dynamic_linker=no + ;; + +kfreebsd*-gnu) + version_type=linux + need_lib_prefix=no + need_version=no + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=no + hardcode_into_libs=yes + dynamic_linker='GNU ld.so' + ;; + +freebsd* | dragonfly*) + # DragonFly does not have aout. When/if they implement a new + # versioning mechanism, adjust this. + objformat=`test -x /usr/bin/objformat && /usr/bin/objformat || echo aout` + version_type=freebsd-$objformat + case $version_type in + freebsd-elf*) + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext} $libname${shared_ext}' + need_version=no + need_lib_prefix=no + ;; + freebsd-*) + library_names_spec='${libname}${release}${shared_ext}$versuffix $libname${shared_ext}$versuffix' + need_version=yes + ;; + esac + shlibpath_var=LD_LIBRARY_PATH + case $host_os in + freebsd2*) + shlibpath_overrides_runpath=yes + ;; + freebsd3.[01]* | freebsdelf3.[01]*) + shlibpath_overrides_runpath=yes + hardcode_into_libs=yes + ;; + *) # from 3.2 on + shlibpath_overrides_runpath=no + hardcode_into_libs=yes + ;; + esac + ;; + +gnu*) + version_type=linux + need_lib_prefix=no + need_version=no + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}${major} ${libname}${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + shlibpath_var=LD_LIBRARY_PATH + hardcode_into_libs=yes + ;; + +hpux9* | hpux10* | hpux11*) + # Give a soname corresponding to the major version so that dld.sl refuses to + # link against other versions. + version_type=sunos + need_lib_prefix=no + need_version=no + case "$host_cpu" in + ia64*) + shrext_cmds='.so' + hardcode_into_libs=yes + dynamic_linker="$host_os dld.so" + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=yes # Unless +noenvvar is specified. + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + if test "X$HPUX_IA64_MODE" = X32; then + sys_lib_search_path_spec="/usr/lib/hpux32 /usr/local/lib/hpux32 /usr/local/lib" + else + sys_lib_search_path_spec="/usr/lib/hpux64 /usr/local/lib/hpux64" + fi + sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec + ;; + hppa*64*) + shrext_cmds='.sl' + hardcode_into_libs=yes + dynamic_linker="$host_os dld.sl" + shlibpath_var=LD_LIBRARY_PATH # How should we handle SHLIB_PATH + shlibpath_overrides_runpath=yes # Unless +noenvvar is specified. + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + sys_lib_search_path_spec="/usr/lib/pa20_64 /usr/ccs/lib/pa20_64" + sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec + ;; + *) + shrext_cmds='.sl' + dynamic_linker="$host_os dld.sl" + shlibpath_var=SHLIB_PATH + shlibpath_overrides_runpath=no # +s is required to enable SHLIB_PATH + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + ;; + esac + # HP-UX runs *really* slowly unless shared libraries are mode 555. + postinstall_cmds='chmod 555 $lib' + ;; + +irix5* | irix6* | nonstopux*) + case $host_os in + nonstopux*) version_type=nonstopux ;; + *) + if test "$lt_cv_prog_gnu_ld" = yes; then + version_type=linux + else + version_type=irix + fi ;; + esac + need_lib_prefix=no + need_version=no + soname_spec='${libname}${release}${shared_ext}$major' + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext} $libname${shared_ext}' + case $host_os in + irix5* | nonstopux*) + libsuff= shlibsuff= + ;; + *) + case $LD in # libtool.m4 will add one of these switches to LD + *-32|*"-32 "|*-melf32bsmip|*"-melf32bsmip ") + libsuff= shlibsuff= libmagic=32-bit;; + *-n32|*"-n32 "|*-melf32bmipn32|*"-melf32bmipn32 ") + libsuff=32 shlibsuff=N32 libmagic=N32;; + *-64|*"-64 "|*-melf64bmip|*"-melf64bmip ") + libsuff=64 shlibsuff=64 libmagic=64-bit;; + *) libsuff= shlibsuff= libmagic=never-match;; + esac + ;; + esac + shlibpath_var=LD_LIBRARY${shlibsuff}_PATH + shlibpath_overrides_runpath=no + sys_lib_search_path_spec="/usr/lib${libsuff} /lib${libsuff} /usr/local/lib${libsuff}" + sys_lib_dlsearch_path_spec="/usr/lib${libsuff} /lib${libsuff}" + hardcode_into_libs=yes + ;; + +# No shared lib support for Linux oldld, aout, or coff. +linux*oldld* | linux*aout* | linux*coff*) + dynamic_linker=no + ;; + +# This must be Linux ELF. +linux*) + version_type=linux + need_lib_prefix=no + need_version=no + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=no + # This implies no fast_install, which is unacceptable. + # Some rework will be needed to allow for fast_install + # before this can be enabled. + hardcode_into_libs=yes + + # find out which ABI we are using + libsuff= + case "$host_cpu" in + x86_64*|s390x*|powerpc64*) + echo '#line 15323 "configure"' > conftest.$ac_ext + if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 + (eval $ac_compile) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; then + case `/usr/bin/file conftest.$ac_objext` in + *64-bit*) + libsuff=64 + sys_lib_search_path_spec="/lib${libsuff} /usr/lib${libsuff} /usr/local/lib${libsuff}" + ;; + esac + fi + rm -rf conftest* + ;; + esac + + # Append ld.so.conf contents to the search path + if test -f /etc/ld.so.conf; then + lt_ld_extra=`awk '/^include / { system(sprintf("cd /etc; cat %s", \$2)); skip = 1; } { if (!skip) print \$0; skip = 0; }' < /etc/ld.so.conf | $SED -e 's/#.*//;s/[:, ]/ /g;s/=[^=]*$//;s/=[^= ]* / /g;/^$/d' | tr '\n' ' '` + sys_lib_dlsearch_path_spec="/lib${libsuff} /usr/lib${libsuff} $lt_ld_extra" + fi + + # We used to test for /lib/ld.so.1 and disable shared libraries on + # powerpc, because MkLinux only supported shared libraries with the + # GNU dynamic linker. Since this was broken with cross compilers, + # most powerpc-linux boxes support dynamic linking these days and + # people can always --disable-shared, the test was removed, and we + # assume the GNU/Linux dynamic linker is in use. + dynamic_linker='GNU/Linux ld.so' + ;; + +knetbsd*-gnu) + version_type=linux + need_lib_prefix=no + need_version=no + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=no + hardcode_into_libs=yes + dynamic_linker='GNU ld.so' + ;; + +netbsd*) + version_type=sunos + need_lib_prefix=no + need_version=no + if echo __ELF__ | $CC -E - | grep __ELF__ >/dev/null; then + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' + finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir' + dynamic_linker='NetBSD (a.out) ld.so' + else + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + dynamic_linker='NetBSD ld.elf_so' + fi + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=yes + hardcode_into_libs=yes + ;; + +newsos6) + version_type=linux + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=yes + ;; + +nto-qnx*) + version_type=linux + need_lib_prefix=no + need_version=no + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=yes + ;; + +openbsd*) + version_type=sunos + need_lib_prefix=no + # Some older versions of OpenBSD (3.3 at least) *do* need versioned libs. + case $host_os in + openbsd3.3 | openbsd3.3.*) need_version=yes ;; + *) need_version=no ;; + esac + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' + finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir' + shlibpath_var=LD_LIBRARY_PATH + if test -z "`echo __ELF__ | $CC -E - | grep __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then + case $host_os in + openbsd2.[89] | openbsd2.[89].*) + shlibpath_overrides_runpath=no + ;; + *) + shlibpath_overrides_runpath=yes + ;; + esac + else + shlibpath_overrides_runpath=yes + fi + ;; + +os2*) + libname_spec='$name' + shrext_cmds=".dll" + need_lib_prefix=no + library_names_spec='$libname${shared_ext} $libname.a' + dynamic_linker='OS/2 ld.exe' + shlibpath_var=LIBPATH + ;; + +osf3* | osf4* | osf5*) + version_type=osf + need_lib_prefix=no + need_version=no + soname_spec='${libname}${release}${shared_ext}$major' + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + shlibpath_var=LD_LIBRARY_PATH + sys_lib_search_path_spec="/usr/shlib /usr/ccs/lib /usr/lib/cmplrs/cc /usr/lib /usr/local/lib /var/shlib" + sys_lib_dlsearch_path_spec="$sys_lib_search_path_spec" + ;; + +sco3.2v5*) + version_type=osf + soname_spec='${libname}${release}${shared_ext}$major' + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + shlibpath_var=LD_LIBRARY_PATH + ;; + +solaris*) + version_type=linux + need_lib_prefix=no + need_version=no + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=yes + hardcode_into_libs=yes + # ldd complains unless libraries are executable + postinstall_cmds='chmod +x $lib' + ;; + +sunos4*) + version_type=sunos + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' + finish_cmds='PATH="\$PATH:/usr/etc" ldconfig $libdir' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=yes + if test "$with_gnu_ld" = yes; then + need_lib_prefix=no + fi + need_version=yes + ;; + +sysv4 | sysv4.2uw2* | sysv4.3* | sysv5*) + version_type=linux + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + shlibpath_var=LD_LIBRARY_PATH + case $host_vendor in + sni) + shlibpath_overrides_runpath=no + need_lib_prefix=no + export_dynamic_flag_spec='${wl}-Blargedynsym' + runpath_var=LD_RUN_PATH + ;; + siemens) + need_lib_prefix=no + ;; + motorola) + need_lib_prefix=no + need_version=no + shlibpath_overrides_runpath=no + sys_lib_search_path_spec='/lib /usr/lib /usr/ccs/lib' + ;; + esac + ;; + +sysv4*MP*) + if test -d /usr/nec ;then + version_type=linux + library_names_spec='$libname${shared_ext}.$versuffix $libname${shared_ext}.$major $libname${shared_ext}' + soname_spec='$libname${shared_ext}.$major' + shlibpath_var=LD_LIBRARY_PATH + fi + ;; + +uts4*) + version_type=linux + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + shlibpath_var=LD_LIBRARY_PATH + ;; + +*) + dynamic_linker=no + ;; +esac +echo "$as_me:$LINENO: result: $dynamic_linker" >&5 +echo "${ECHO_T}$dynamic_linker" >&6 +test "$dynamic_linker" = no && can_build_shared=no + +echo "$as_me:$LINENO: checking how to hardcode library paths into programs" >&5 +echo $ECHO_N "checking how to hardcode library paths into programs... $ECHO_C" >&6 +hardcode_action_F77= +if test -n "$hardcode_libdir_flag_spec_F77" || \ + test -n "$runpath_var_F77" || \ + test "X$hardcode_automatic_F77" = "Xyes" ; then + + # We can hardcode non-existant directories. + if test "$hardcode_direct_F77" != no && + # If the only mechanism to avoid hardcoding is shlibpath_var, we + # have to relink, otherwise we might link with an installed library + # when we should be linking with a yet-to-be-installed one + ## test "$_LT_AC_TAGVAR(hardcode_shlibpath_var, F77)" != no && + test "$hardcode_minus_L_F77" != no; then + # Linking always hardcodes the temporary library directory. + hardcode_action_F77=relink + else + # We can link without hardcoding, and we can hardcode nonexisting dirs. + hardcode_action_F77=immediate + fi +else + # We cannot hardcode anything, or else we can only hardcode existing + # directories. + hardcode_action_F77=unsupported +fi +echo "$as_me:$LINENO: result: $hardcode_action_F77" >&5 +echo "${ECHO_T}$hardcode_action_F77" >&6 + +if test "$hardcode_action_F77" = relink; then + # Fast installation is not supported + enable_fast_install=no +elif test "$shlibpath_overrides_runpath" = yes || + test "$enable_shared" = no; then + # Fast installation is not necessary + enable_fast_install=needless +fi + +striplib= +old_striplib= +echo "$as_me:$LINENO: checking whether stripping libraries is possible" >&5 +echo $ECHO_N "checking whether stripping libraries is possible... $ECHO_C" >&6 +if test -n "$STRIP" && $STRIP -V 2>&1 | grep "GNU strip" >/dev/null; then + test -z "$old_striplib" && old_striplib="$STRIP --strip-debug" + test -z "$striplib" && striplib="$STRIP --strip-unneeded" + echo "$as_me:$LINENO: result: yes" >&5 +echo "${ECHO_T}yes" >&6 +else +# FIXME - insert some real tests, host_os isn't really good enough + case $host_os in + darwin*) + if test -n "$STRIP" ; then + striplib="$STRIP -x" + echo "$as_me:$LINENO: result: yes" >&5 +echo "${ECHO_T}yes" >&6 + else + echo "$as_me:$LINENO: result: no" >&5 +echo "${ECHO_T}no" >&6 +fi + ;; + *) + echo "$as_me:$LINENO: result: no" >&5 +echo "${ECHO_T}no" >&6 + ;; + esac +fi + + + +# The else clause should only fire when bootstrapping the +# libtool distribution, otherwise you forgot to ship ltmain.sh +# with your package, and you will get complaints that there are +# no rules to generate ltmain.sh. +if test -f "$ltmain"; then + # See if we are running on zsh, and set the options which allow our commands through + # without removal of \ escapes. + if test -n "${ZSH_VERSION+set}" ; then + setopt NO_GLOB_SUBST + fi + # Now quote all the things that may contain metacharacters while being + # careful not to overquote the AC_SUBSTed values. We take copies of the + # variables and quote the copies for generation of the libtool script. + for var in echo old_CC old_CFLAGS AR AR_FLAGS EGREP RANLIB LN_S LTCC NM \ + SED SHELL STRIP \ + libname_spec library_names_spec soname_spec extract_expsyms_cmds \ + old_striplib striplib file_magic_cmd finish_cmds finish_eval \ + deplibs_check_method reload_flag reload_cmds need_locks \ + lt_cv_sys_global_symbol_pipe lt_cv_sys_global_symbol_to_cdecl \ + lt_cv_sys_global_symbol_to_c_name_address \ + sys_lib_search_path_spec sys_lib_dlsearch_path_spec \ + old_postinstall_cmds old_postuninstall_cmds \ + compiler_F77 \ + CC_F77 \ + LD_F77 \ + lt_prog_compiler_wl_F77 \ + lt_prog_compiler_pic_F77 \ + lt_prog_compiler_static_F77 \ + lt_prog_compiler_no_builtin_flag_F77 \ + export_dynamic_flag_spec_F77 \ + thread_safe_flag_spec_F77 \ + whole_archive_flag_spec_F77 \ + enable_shared_with_static_runtimes_F77 \ + old_archive_cmds_F77 \ + old_archive_from_new_cmds_F77 \ + predep_objects_F77 \ + postdep_objects_F77 \ + predeps_F77 \ + postdeps_F77 \ + compiler_lib_search_path_F77 \ + archive_cmds_F77 \ + archive_expsym_cmds_F77 \ + postinstall_cmds_F77 \ + postuninstall_cmds_F77 \ + old_archive_from_expsyms_cmds_F77 \ + allow_undefined_flag_F77 \ + no_undefined_flag_F77 \ + export_symbols_cmds_F77 \ + hardcode_libdir_flag_spec_F77 \ + hardcode_libdir_flag_spec_ld_F77 \ + hardcode_libdir_separator_F77 \ + hardcode_automatic_F77 \ + module_cmds_F77 \ + module_expsym_cmds_F77 \ + lt_cv_prog_compiler_c_o_F77 \ + exclude_expsyms_F77 \ + include_expsyms_F77; do + + case $var in + old_archive_cmds_F77 | \ + old_archive_from_new_cmds_F77 | \ + archive_cmds_F77 | \ + archive_expsym_cmds_F77 | \ + module_cmds_F77 | \ + module_expsym_cmds_F77 | \ + old_archive_from_expsyms_cmds_F77 | \ + export_symbols_cmds_F77 | \ + extract_expsyms_cmds | reload_cmds | finish_cmds | \ + postinstall_cmds | postuninstall_cmds | \ + old_postinstall_cmds | old_postuninstall_cmds | \ + sys_lib_search_path_spec | sys_lib_dlsearch_path_spec) + # Double-quote double-evaled strings. + eval "lt_$var=\\\"\`\$echo \"X\$$var\" | \$Xsed -e \"\$double_quote_subst\" -e \"\$sed_quote_subst\" -e \"\$delay_variable_subst\"\`\\\"" + ;; + *) + eval "lt_$var=\\\"\`\$echo \"X\$$var\" | \$Xsed -e \"\$sed_quote_subst\"\`\\\"" + ;; + esac + done + + case $lt_echo in + *'\$0 --fallback-echo"') + lt_echo=`$echo "X$lt_echo" | $Xsed -e 's/\\\\\\\$0 --fallback-echo"$/$0 --fallback-echo"/'` + ;; + esac + +cfgfile="$ofile" + + cat <<__EOF__ >> "$cfgfile" +# ### BEGIN LIBTOOL TAG CONFIG: $tagname + +# Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: + +# Shell to use when invoking shell scripts. +SHELL=$lt_SHELL + +# Whether or not to build shared libraries. +build_libtool_libs=$enable_shared + +# Whether or not to build static libraries. +build_old_libs=$enable_static + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_F77 + +# Whether or not to disallow shared libs when runtime libs are static +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_F77 + +# Whether or not to optimize for fast installation. +fast_install=$enable_fast_install + +# The host system. +host_alias=$host_alias +host=$host +host_os=$host_os + +# The build system. +build_alias=$build_alias +build=$build +build_os=$build_os + +# An echo program that does not interpret backslashes. +echo=$lt_echo + +# The archiver. +AR=$lt_AR +AR_FLAGS=$lt_AR_FLAGS + +# A C compiler. +LTCC=$lt_LTCC + +# A language-specific compiler. +CC=$lt_compiler_F77 + +# Is the compiler the GNU C compiler? +with_gcc=$GCC_F77 + +# An ERE matcher. +EGREP=$lt_EGREP + +# The linker used to build libraries. +LD=$lt_LD_F77 + +# Whether we need hard or soft links. +LN_S=$lt_LN_S + +# A BSD-compatible nm program. +NM=$lt_NM + +# A symbol stripping program +STRIP=$lt_STRIP + +# Used to examine libraries when file_magic_cmd begins "file" +MAGIC_CMD=$MAGIC_CMD + +# Used on cygwin: DLL creation program. +DLLTOOL="$DLLTOOL" + +# Used on cygwin: object dumper. +OBJDUMP="$OBJDUMP" + +# Used on cygwin: assembler. +AS="$AS" + +# The name of the directory that contains temporary libtool files. +objdir=$objdir + +# How to create reloadable object files. +reload_flag=$lt_reload_flag +reload_cmds=$lt_reload_cmds + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_F77 + +# Object file suffix (normally "o"). +objext="$ac_objext" + +# Old archive suffix (normally "a"). +libext="$libext" + +# Shared library suffix (normally ".so"). +shrext_cmds='$shrext_cmds' + +# Executable file suffix (normally ""). +exeext="$exeext" + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_F77 +pic_mode=$pic_mode + +# What is the maximum length of a command? +max_cmd_len=$lt_cv_sys_max_cmd_len + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_F77 + +# Must we lock files when doing compilation? +need_locks=$lt_need_locks + +# Do we need the lib prefix for modules? +need_lib_prefix=$need_lib_prefix + +# Do we need a version for libraries? +need_version=$need_version + +# Whether dlopen is supported. +dlopen_support=$enable_dlopen + +# Whether dlopen of programs is supported. +dlopen_self=$enable_dlopen_self + +# Whether dlopen of statically linked programs is supported. +dlopen_self_static=$enable_dlopen_self_static + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_F77 + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_F77 + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_F77 + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_F77 + +# Compiler flag to generate thread-safe objects. +thread_safe_flag_spec=$lt_thread_safe_flag_spec_F77 + +# Library versioning type. +version_type=$version_type + +# Format of library name prefix. +libname_spec=$lt_libname_spec + +# List of archive names. First name is the real one, the rest are links. +# The last name is the one that the linker finds with -lNAME. +library_names_spec=$lt_library_names_spec + +# The coded name of the library, if different from the real name. +soname_spec=$lt_soname_spec + +# Commands used to build and install an old-style archive. +RANLIB=$lt_RANLIB +old_archive_cmds=$lt_old_archive_cmds_F77 +old_postinstall_cmds=$lt_old_postinstall_cmds +old_postuninstall_cmds=$lt_old_postuninstall_cmds + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_F77 + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_F77 + +# Commands used to build and install a shared archive. +archive_cmds=$lt_archive_cmds_F77 +archive_expsym_cmds=$lt_archive_expsym_cmds_F77 +postinstall_cmds=$lt_postinstall_cmds +postuninstall_cmds=$lt_postuninstall_cmds + +# Commands used to build a loadable module (assumed same as above if empty) +module_cmds=$lt_module_cmds_F77 +module_expsym_cmds=$lt_module_expsym_cmds_F77 + +# Commands to strip libraries. +old_striplib=$lt_old_striplib +striplib=$lt_striplib + +# Dependencies to place before the objects being linked to create a +# shared library. +predep_objects=$lt_predep_objects_F77 + +# Dependencies to place after the objects being linked to create a +# shared library. +postdep_objects=$lt_postdep_objects_F77 + +# Dependencies to place before the objects being linked to create a +# shared library. +predeps=$lt_predeps_F77 + +# Dependencies to place after the objects being linked to create a +# shared library. +postdeps=$lt_postdeps_F77 + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_F77 + +# Method to check whether dependent libraries are shared objects. +deplibs_check_method=$lt_deplibs_check_method + +# Command to use when deplibs_check_method == file_magic. +file_magic_cmd=$lt_file_magic_cmd + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_F77 + +# Flag that forces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_F77 + +# Commands used to finish a libtool library installation in a directory. +finish_cmds=$lt_finish_cmds + +# Same as above, but a single script fragment to be evaled but not shown. +finish_eval=$lt_finish_eval + +# Take the output of nm and produce a listing of raw symbols and C names. +global_symbol_pipe=$lt_lt_cv_sys_global_symbol_pipe + +# Transform the output of nm in a proper C declaration +global_symbol_to_cdecl=$lt_lt_cv_sys_global_symbol_to_cdecl + +# Transform the output of nm in a C name address pair +global_symbol_to_c_name_address=$lt_lt_cv_sys_global_symbol_to_c_name_address + +# This is the shared library runtime path variable. +runpath_var=$runpath_var + +# This is the shared library path variable. +shlibpath_var=$shlibpath_var + +# Is shlibpath searched before the hard-coded library search path? +shlibpath_overrides_runpath=$shlibpath_overrides_runpath + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_F77 + +# Whether we should hardcode library paths into libraries. +hardcode_into_libs=$hardcode_into_libs + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist. +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_F77 + +# If ld is used when linking, flag to hardcode \$libdir into +# a binary during linking. This must work even if \$libdir does +# not exist. +hardcode_libdir_flag_spec_ld=$lt_hardcode_libdir_flag_spec_ld_F77 + +# Whether we need a single -rpath flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_F77 + +# Set to yes if using DIR/libNAME${shared_ext} during linking hardcodes DIR into the +# resulting binary. +hardcode_direct=$hardcode_direct_F77 + +# Set to yes if using the -LDIR flag during linking hardcodes DIR into the +# resulting binary. +hardcode_minus_L=$hardcode_minus_L_F77 + +# Set to yes if using SHLIBPATH_VAR=DIR during linking hardcodes DIR into +# the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_F77 + +# Set to yes if building a shared library automatically hardcodes DIR into the library +# and all subsequent libraries and executables linked against it. +hardcode_automatic=$hardcode_automatic_F77 + +# Variables whose values should be saved in libtool wrapper scripts and +# restored at relink time. +variables_saved_for_relink="$variables_saved_for_relink" + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_F77 + +# Compile-time system search path for libraries +sys_lib_search_path_spec=$lt_sys_lib_search_path_spec + +# Run-time system search path for libraries +sys_lib_dlsearch_path_spec=$lt_sys_lib_dlsearch_path_spec + +# Fix the shell variable \$srcfile for the compiler. +fix_srcfile_path="$fix_srcfile_path_F77" + +# Set to yes if exported symbols are required. +always_export_symbols=$always_export_symbols_F77 + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_F77 + +# The commands to extract the exported symbol list from a shared archive. +extract_expsyms_cmds=$lt_extract_expsyms_cmds + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_F77 + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_F77 + +# ### END LIBTOOL TAG CONFIG: $tagname + +__EOF__ + + +else + # If there is no Makefile yet, we rely on a make rule to execute + # `config.status --recheck' to rerun these tests and create the + # libtool script then. + ltmain_in=`echo $ltmain | sed -e 's/\.sh$/.in/'` + if test -f "$ltmain_in"; then + test -f Makefile && make "$ltmain" + fi +fi + + +ac_ext=c +ac_cpp='$CPP $CPPFLAGS' +ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_c_compiler_gnu + +CC="$lt_save_CC" + + else + tagname="" + fi + ;; + + GCJ) + if test -n "$GCJ" && test "X$GCJ" != "Xno"; then + + + +# Source file extension for Java test sources. +ac_ext=java + +# Object file extension for compiled Java test sources. +objext=o +objext_GCJ=$objext + +# Code to be used in simple compile tests +lt_simple_compile_test_code="class foo {}\n" + +# Code to be used in simple link tests +lt_simple_link_test_code='public class conftest { public static void main(String[] argv) {}; }\n' + +# ltmain only uses $CC for tagged configurations so make sure $CC is set. + +# If no C compiler was specified, use CC. +LTCC=${LTCC-"$CC"} + +# Allow CC to be a program name with arguments. +compiler=$CC + + +# save warnings/boilerplate of simple test code +ac_outfile=conftest.$ac_objext +printf "$lt_simple_compile_test_code" >conftest.$ac_ext +eval "$ac_compile" 2>&1 >/dev/null | $SED '/^$/d' >conftest.err +_lt_compiler_boilerplate=`cat conftest.err` +$rm conftest* + +ac_outfile=conftest.$ac_objext +printf "$lt_simple_link_test_code" >conftest.$ac_ext +eval "$ac_link" 2>&1 >/dev/null | $SED '/^$/d' >conftest.err +_lt_linker_boilerplate=`cat conftest.err` +$rm conftest* + + +# Allow CC to be a program name with arguments. +lt_save_CC="$CC" +CC=${GCJ-"gcj"} +compiler=$CC +compiler_GCJ=$CC +for cc_temp in $compiler""; do + case $cc_temp in + compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; + distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; + \-*) ;; + *) break;; + esac +done +cc_basename=`$echo "X$cc_temp" | $Xsed -e 's%.*/%%' -e "s%^$host_alias-%%"` + + +# GCJ did not exist at the time GCC didn't implicitly link libc in. +archive_cmds_need_lc_GCJ=no + +old_archive_cmds_GCJ=$old_archive_cmds + + +lt_prog_compiler_no_builtin_flag_GCJ= + +if test "$GCC" = yes; then + lt_prog_compiler_no_builtin_flag_GCJ=' -fno-builtin' + + +echo "$as_me:$LINENO: checking if $compiler supports -fno-rtti -fno-exceptions" >&5 +echo $ECHO_N "checking if $compiler supports -fno-rtti -fno-exceptions... $ECHO_C" >&6 +if test "${lt_cv_prog_compiler_rtti_exceptions+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + lt_cv_prog_compiler_rtti_exceptions=no + ac_outfile=conftest.$ac_objext + printf "$lt_simple_compile_test_code" > conftest.$ac_ext + lt_compiler_flag="-fno-rtti -fno-exceptions" + # Insert the option either (1) after the last *FLAGS variable, or + # (2) before a word containing "conftest.", or (3) at the end. + # Note that $ac_compile itself does not contain backslashes and begins + # with a dollar sign (not a hyphen), so the echo should work correctly. + # The option is referenced via a variable to avoid confusing sed. + lt_compile=`echo "$ac_compile" | $SED \ + -e 's:.*FLAGS}? :&$lt_compiler_flag :; t' \ + -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ + -e 's:$: $lt_compiler_flag:'` + (eval echo "\"\$as_me:16100: $lt_compile\"" >&5) + (eval "$lt_compile" 2>conftest.err) + ac_status=$? + cat conftest.err >&5 + echo "$as_me:16104: \$? = $ac_status" >&5 + if (exit $ac_status) && test -s "$ac_outfile"; then + # The compiler can only warn and ignore the option if not recognized + # So say no if there are warnings other than the usual output. + $echo "X$_lt_compiler_boilerplate" | $Xsed >conftest.exp + $SED '/^$/d' conftest.err >conftest.er2 + if test ! -s conftest.err || diff conftest.exp conftest.er2 >/dev/null; then + lt_cv_prog_compiler_rtti_exceptions=yes + fi + fi + $rm conftest* + +fi +echo "$as_me:$LINENO: result: $lt_cv_prog_compiler_rtti_exceptions" >&5 +echo "${ECHO_T}$lt_cv_prog_compiler_rtti_exceptions" >&6 + +if test x"$lt_cv_prog_compiler_rtti_exceptions" = xyes; then + lt_prog_compiler_no_builtin_flag_GCJ="$lt_prog_compiler_no_builtin_flag_GCJ -fno-rtti -fno-exceptions" +else + : +fi + +fi + +lt_prog_compiler_wl_GCJ= +lt_prog_compiler_pic_GCJ= +lt_prog_compiler_static_GCJ= + +echo "$as_me:$LINENO: checking for $compiler option to produce PIC" >&5 +echo $ECHO_N "checking for $compiler option to produce PIC... $ECHO_C" >&6 + + if test "$GCC" = yes; then + lt_prog_compiler_wl_GCJ='-Wl,' + lt_prog_compiler_static_GCJ='-static' + + case $host_os in + aix*) + # All AIX code is PIC. + if test "$host_cpu" = ia64; then + # AIX 5 now supports IA64 processor + lt_prog_compiler_static_GCJ='-Bstatic' + fi + ;; + + amigaos*) + # FIXME: we need at least 68020 code to build shared libraries, but + # adding the `-m68020' flag to GCC prevents building anything better, + # like `-m68040'. + lt_prog_compiler_pic_GCJ='-m68020 -resident32 -malways-restore-a4' + ;; + + beos* | cygwin* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*) + # PIC is the default for these OSes. + ;; + + mingw* | pw32* | os2*) + # This hack is so that the source file can tell whether it is being + # built for inclusion in a dll (and should export symbols for example). + lt_prog_compiler_pic_GCJ='-DDLL_EXPORT' + ;; + + darwin* | rhapsody*) + # PIC is the default on this platform + # Common symbols not allowed in MH_DYLIB files + lt_prog_compiler_pic_GCJ='-fno-common' + ;; + + msdosdjgpp*) + # Just because we use GCC doesn't mean we suddenly get shared libraries + # on systems that don't support them. + lt_prog_compiler_can_build_shared_GCJ=no + enable_shared=no + ;; + + sysv4*MP*) + if test -d /usr/nec; then + lt_prog_compiler_pic_GCJ=-Kconform_pic + fi + ;; + + hpux*) + # PIC is the default for IA64 HP-UX and 64-bit HP-UX, but + # not for PA HP-UX. + case "$host_cpu" in + hppa*64*|ia64*) + # +Z the default + ;; + *) + lt_prog_compiler_pic_GCJ='-fPIC' + ;; + esac + ;; + + *) + lt_prog_compiler_pic_GCJ='-fPIC' + ;; + esac + else + # PORTME Check for flag to pass linker flags through the system compiler. + case $host_os in + aix*) + lt_prog_compiler_wl_GCJ='-Wl,' + if test "$host_cpu" = ia64; then + # AIX 5 now supports IA64 processor + lt_prog_compiler_static_GCJ='-Bstatic' + else + lt_prog_compiler_static_GCJ='-bnso -bI:/lib/syscalls.exp' + fi + ;; + darwin*) + # PIC is the default on this platform + # Common symbols not allowed in MH_DYLIB files + case $cc_basename in + xlc*) + lt_prog_compiler_pic_GCJ='-qnocommon' + lt_prog_compiler_wl_GCJ='-Wl,' + ;; + esac + ;; + + mingw* | pw32* | os2*) + # This hack is so that the source file can tell whether it is being + # built for inclusion in a dll (and should export symbols for example). + lt_prog_compiler_pic_GCJ='-DDLL_EXPORT' + ;; + + hpux9* | hpux10* | hpux11*) + lt_prog_compiler_wl_GCJ='-Wl,' + # PIC is the default for IA64 HP-UX and 64-bit HP-UX, but + # not for PA HP-UX. + case "$host_cpu" in + hppa*64*|ia64*) + # +Z the default + ;; + *) + lt_prog_compiler_pic_GCJ='+Z' + ;; + esac + # Is there a better lt_prog_compiler_static that works with the bundled CC? + lt_prog_compiler_static_GCJ='${wl}-a ${wl}archive' + ;; + + irix5* | irix6* | nonstopux*) + lt_prog_compiler_wl_GCJ='-Wl,' + # PIC (with -KPIC) is the default. + lt_prog_compiler_static_GCJ='-non_shared' + ;; + + newsos6) + lt_prog_compiler_pic_GCJ='-KPIC' + lt_prog_compiler_static_GCJ='-Bstatic' + ;; + + linux*) + case $cc_basename in + icc* | ecc*) + lt_prog_compiler_wl_GCJ='-Wl,' + lt_prog_compiler_pic_GCJ='-KPIC' + lt_prog_compiler_static_GCJ='-static' + ;; + pgcc* | pgf77* | pgf90*) + # Portland Group compilers (*not* the Pentium gcc compiler, + # which looks to be a dead project) + lt_prog_compiler_wl_GCJ='-Wl,' + lt_prog_compiler_pic_GCJ='-fpic' + lt_prog_compiler_static_GCJ='-static' + ;; + ccc*) + lt_prog_compiler_wl_GCJ='-Wl,' + # All Alpha code is PIC. + lt_prog_compiler_static_GCJ='-non_shared' + ;; + esac + ;; + + osf3* | osf4* | osf5*) + lt_prog_compiler_wl_GCJ='-Wl,' + # All OSF/1 code is PIC. + lt_prog_compiler_static_GCJ='-non_shared' + ;; + + sco3.2v5*) + lt_prog_compiler_pic_GCJ='-Kpic' + lt_prog_compiler_static_GCJ='-dn' + ;; + + solaris*) + lt_prog_compiler_pic_GCJ='-KPIC' + lt_prog_compiler_static_GCJ='-Bstatic' + case $cc_basename in + f77* | f90* | f95*) + lt_prog_compiler_wl_GCJ='-Qoption ld ';; + *) + lt_prog_compiler_wl_GCJ='-Wl,';; + esac + ;; + + sunos4*) + lt_prog_compiler_wl_GCJ='-Qoption ld ' + lt_prog_compiler_pic_GCJ='-PIC' + lt_prog_compiler_static_GCJ='-Bstatic' + ;; + + sysv4 | sysv4.2uw2* | sysv4.3* | sysv5*) + lt_prog_compiler_wl_GCJ='-Wl,' + lt_prog_compiler_pic_GCJ='-KPIC' + lt_prog_compiler_static_GCJ='-Bstatic' + ;; + + sysv4*MP*) + if test -d /usr/nec ;then + lt_prog_compiler_pic_GCJ='-Kconform_pic' + lt_prog_compiler_static_GCJ='-Bstatic' + fi + ;; + + unicos*) + lt_prog_compiler_wl_GCJ='-Wl,' + lt_prog_compiler_can_build_shared_GCJ=no + ;; + + uts4*) + lt_prog_compiler_pic_GCJ='-pic' + lt_prog_compiler_static_GCJ='-Bstatic' + ;; + + *) + lt_prog_compiler_can_build_shared_GCJ=no + ;; + esac + fi + +echo "$as_me:$LINENO: result: $lt_prog_compiler_pic_GCJ" >&5 +echo "${ECHO_T}$lt_prog_compiler_pic_GCJ" >&6 + +# +# Check to make sure the PIC flag actually works. +# +if test -n "$lt_prog_compiler_pic_GCJ"; then + +echo "$as_me:$LINENO: checking if $compiler PIC flag $lt_prog_compiler_pic_GCJ works" >&5 +echo $ECHO_N "checking if $compiler PIC flag $lt_prog_compiler_pic_GCJ works... $ECHO_C" >&6 +if test "${lt_prog_compiler_pic_works_GCJ+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + lt_prog_compiler_pic_works_GCJ=no + ac_outfile=conftest.$ac_objext + printf "$lt_simple_compile_test_code" > conftest.$ac_ext + lt_compiler_flag="$lt_prog_compiler_pic_GCJ" + # Insert the option either (1) after the last *FLAGS variable, or + # (2) before a word containing "conftest.", or (3) at the end. + # Note that $ac_compile itself does not contain backslashes and begins + # with a dollar sign (not a hyphen), so the echo should work correctly. + # The option is referenced via a variable to avoid confusing sed. + lt_compile=`echo "$ac_compile" | $SED \ + -e 's:.*FLAGS}? :&$lt_compiler_flag :; t' \ + -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ + -e 's:$: $lt_compiler_flag:'` + (eval echo "\"\$as_me:16362: $lt_compile\"" >&5) + (eval "$lt_compile" 2>conftest.err) + ac_status=$? + cat conftest.err >&5 + echo "$as_me:16366: \$? = $ac_status" >&5 + if (exit $ac_status) && test -s "$ac_outfile"; then + # The compiler can only warn and ignore the option if not recognized + # So say no if there are warnings other than the usual output. + $echo "X$_lt_compiler_boilerplate" | $Xsed >conftest.exp + $SED '/^$/d' conftest.err >conftest.er2 + if test ! -s conftest.err || diff conftest.exp conftest.er2 >/dev/null; then + lt_prog_compiler_pic_works_GCJ=yes + fi + fi + $rm conftest* + +fi +echo "$as_me:$LINENO: result: $lt_prog_compiler_pic_works_GCJ" >&5 +echo "${ECHO_T}$lt_prog_compiler_pic_works_GCJ" >&6 + +if test x"$lt_prog_compiler_pic_works_GCJ" = xyes; then + case $lt_prog_compiler_pic_GCJ in + "" | " "*) ;; + *) lt_prog_compiler_pic_GCJ=" $lt_prog_compiler_pic_GCJ" ;; + esac +else + lt_prog_compiler_pic_GCJ= + lt_prog_compiler_can_build_shared_GCJ=no +fi + +fi +case "$host_os" in + # For platforms which do not support PIC, -DPIC is meaningless: + *djgpp*) + lt_prog_compiler_pic_GCJ= + ;; + *) + lt_prog_compiler_pic_GCJ="$lt_prog_compiler_pic_GCJ" + ;; +esac + +echo "$as_me:$LINENO: checking if $compiler supports -c -o file.$ac_objext" >&5 +echo $ECHO_N "checking if $compiler supports -c -o file.$ac_objext... $ECHO_C" >&6 +if test "${lt_cv_prog_compiler_c_o_GCJ+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + lt_cv_prog_compiler_c_o_GCJ=no + $rm -r conftest 2>/dev/null + mkdir conftest + cd conftest + mkdir out + printf "$lt_simple_compile_test_code" > conftest.$ac_ext + + lt_compiler_flag="-o out/conftest2.$ac_objext" + # Insert the option either (1) after the last *FLAGS variable, or + # (2) before a word containing "conftest.", or (3) at the end. + # Note that $ac_compile itself does not contain backslashes and begins + # with a dollar sign (not a hyphen), so the echo should work correctly. + lt_compile=`echo "$ac_compile" | $SED \ + -e 's:.*FLAGS}? :&$lt_compiler_flag :; t' \ + -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ + -e 's:$: $lt_compiler_flag:'` + (eval echo "\"\$as_me:16424: $lt_compile\"" >&5) + (eval "$lt_compile" 2>out/conftest.err) + ac_status=$? + cat out/conftest.err >&5 + echo "$as_me:16428: \$? = $ac_status" >&5 + if (exit $ac_status) && test -s out/conftest2.$ac_objext + then + # The compiler can only warn and ignore the option if not recognized + # So say no if there are warnings + $echo "X$_lt_compiler_boilerplate" | $Xsed > out/conftest.exp + $SED '/^$/d' out/conftest.err >out/conftest.er2 + if test ! -s out/conftest.err || diff out/conftest.exp out/conftest.er2 >/dev/null; then + lt_cv_prog_compiler_c_o_GCJ=yes + fi + fi + chmod u+w . + $rm conftest* + # SGI C++ compiler will create directory out/ii_files/ for + # template instantiation + test -d out/ii_files && $rm out/ii_files/* && rmdir out/ii_files + $rm out/* && rmdir out + cd .. + rmdir conftest + $rm conftest* + +fi +echo "$as_me:$LINENO: result: $lt_cv_prog_compiler_c_o_GCJ" >&5 +echo "${ECHO_T}$lt_cv_prog_compiler_c_o_GCJ" >&6 + + +hard_links="nottested" +if test "$lt_cv_prog_compiler_c_o_GCJ" = no && test "$need_locks" != no; then + # do not overwrite the value of need_locks provided by the user + echo "$as_me:$LINENO: checking if we can lock with hard links" >&5 +echo $ECHO_N "checking if we can lock with hard links... $ECHO_C" >&6 + hard_links=yes + $rm conftest* + ln conftest.a conftest.b 2>/dev/null && hard_links=no + touch conftest.a + ln conftest.a conftest.b 2>&5 || hard_links=no + ln conftest.a conftest.b 2>/dev/null && hard_links=no + echo "$as_me:$LINENO: result: $hard_links" >&5 +echo "${ECHO_T}$hard_links" >&6 + if test "$hard_links" = no; then + { echo "$as_me:$LINENO: WARNING: \`$CC' does not support \`-c -o', so \`make -j' may be unsafe" >&5 +echo "$as_me: WARNING: \`$CC' does not support \`-c -o', so \`make -j' may be unsafe" >&2;} + need_locks=warn + fi +else + need_locks=no +fi + +echo "$as_me:$LINENO: checking whether the $compiler linker ($LD) supports shared libraries" >&5 +echo $ECHO_N "checking whether the $compiler linker ($LD) supports shared libraries... $ECHO_C" >&6 + + runpath_var= + allow_undefined_flag_GCJ= + enable_shared_with_static_runtimes_GCJ=no + archive_cmds_GCJ= + archive_expsym_cmds_GCJ= + old_archive_From_new_cmds_GCJ= + old_archive_from_expsyms_cmds_GCJ= + export_dynamic_flag_spec_GCJ= + whole_archive_flag_spec_GCJ= + thread_safe_flag_spec_GCJ= + hardcode_libdir_flag_spec_GCJ= + hardcode_libdir_flag_spec_ld_GCJ= + hardcode_libdir_separator_GCJ= + hardcode_direct_GCJ=no + hardcode_minus_L_GCJ=no + hardcode_shlibpath_var_GCJ=unsupported + link_all_deplibs_GCJ=unknown + hardcode_automatic_GCJ=no + module_cmds_GCJ= + module_expsym_cmds_GCJ= + always_export_symbols_GCJ=no + export_symbols_cmds_GCJ='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' + # include_expsyms should be a list of space-separated symbols to be *always* + # included in the symbol list + include_expsyms_GCJ= + # exclude_expsyms can be an extended regexp of symbols to exclude + # it will be wrapped by ` (' and `)$', so one must not match beginning or + # end of line. Example: `a|bc|.*d.*' will exclude the symbols `a' and `bc', + # as well as any symbol that contains `d'. + exclude_expsyms_GCJ="_GLOBAL_OFFSET_TABLE_" + # Although _GLOBAL_OFFSET_TABLE_ is a valid symbol C name, most a.out + # platforms (ab)use it in PIC code, but their linkers get confused if + # the symbol is explicitly referenced. Since portable code cannot + # rely on this symbol name, it's probably fine to never include it in + # preloaded symbol tables. + extract_expsyms_cmds= + # Just being paranoid about ensuring that cc_basename is set. + for cc_temp in $compiler""; do + case $cc_temp in + compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; + distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; + \-*) ;; + *) break;; + esac +done +cc_basename=`$echo "X$cc_temp" | $Xsed -e 's%.*/%%' -e "s%^$host_alias-%%"` + + case $host_os in + cygwin* | mingw* | pw32*) + # FIXME: the MSVC++ port hasn't been tested in a loooong time + # When not using gcc, we currently assume that we are using + # Microsoft Visual C++. + if test "$GCC" != yes; then + with_gnu_ld=no + fi + ;; + openbsd*) + with_gnu_ld=no + ;; + esac + + ld_shlibs_GCJ=yes + if test "$with_gnu_ld" = yes; then + # If archive_cmds runs LD, not CC, wlarc should be empty + wlarc='${wl}' + + # Set some defaults for GNU ld with shared library support. These + # are reset later if shared libraries are not supported. Putting them + # here allows them to be overridden if necessary. + runpath_var=LD_RUN_PATH + hardcode_libdir_flag_spec_GCJ='${wl}--rpath ${wl}$libdir' + export_dynamic_flag_spec_GCJ='${wl}--export-dynamic' + # ancient GNU ld didn't support --whole-archive et. al. + if $LD --help 2>&1 | grep 'no-whole-archive' > /dev/null; then + whole_archive_flag_spec_GCJ="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive' + else + whole_archive_flag_spec_GCJ= + fi + supports_anon_versioning=no + case `$LD -v 2>/dev/null` in + *\ [01].* | *\ 2.[0-9].* | *\ 2.10.*) ;; # catch versions < 2.11 + *\ 2.11.93.0.2\ *) supports_anon_versioning=yes ;; # RH7.3 ... + *\ 2.11.92.0.12\ *) supports_anon_versioning=yes ;; # Mandrake 8.2 ... + *\ 2.11.*) ;; # other 2.11 versions + *) supports_anon_versioning=yes ;; + esac + + # See if GNU ld supports shared libraries. + case $host_os in + aix3* | aix4* | aix5*) + # On AIX/PPC, the GNU linker is very broken + if test "$host_cpu" != ia64; then + ld_shlibs_GCJ=no + cat <&2 + +*** Warning: the GNU linker, at least up to release 2.9.1, is reported +*** to be unable to reliably create shared libraries on AIX. +*** Therefore, libtool is disabling shared libraries support. If you +*** really care for shared libraries, you may want to modify your PATH +*** so that a non-GNU linker is found, and then restart. + +EOF + fi + ;; + + amigaos*) + archive_cmds_GCJ='$rm $output_objdir/a2ixlibrary.data~$echo "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$echo "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$echo "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$echo "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)' + hardcode_libdir_flag_spec_GCJ='-L$libdir' + hardcode_minus_L_GCJ=yes + + # Samuel A. Falvo II reports + # that the semantics of dynamic libraries on AmigaOS, at least up + # to version 4, is to share data among multiple programs linked + # with the same dynamic library. Since this doesn't match the + # behavior of shared libraries on other platforms, we can't use + # them. + ld_shlibs_GCJ=no + ;; + + beos*) + if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then + allow_undefined_flag_GCJ=unsupported + # Joseph Beckenbach says some releases of gcc + # support --undefined. This deserves some investigation. FIXME + archive_cmds_GCJ='$CC -nostart $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' + else + ld_shlibs_GCJ=no + fi + ;; + + cygwin* | mingw* | pw32*) + # _LT_AC_TAGVAR(hardcode_libdir_flag_spec, GCJ) is actually meaningless, + # as there is no search path for DLLs. + hardcode_libdir_flag_spec_GCJ='-L$libdir' + allow_undefined_flag_GCJ=unsupported + always_export_symbols_GCJ=no + enable_shared_with_static_runtimes_GCJ=yes + export_symbols_cmds_GCJ='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[BCDGRS] /s/.* \([^ ]*\)/\1 DATA/'\'' | $SED -e '\''/^[AITW] /s/.* //'\'' | sort | uniq > $export_symbols' + + if $LD --help 2>&1 | grep 'auto-import' > /dev/null; then + archive_cmds_GCJ='$CC -shared $libobjs $deplibs $compiler_flags -o $output_objdir/$soname ${wl}--image-base=0x10000000 ${wl}--out-implib,$lib' + # If the export-symbols file already is a .def file (1st line + # is EXPORTS), use it as is; otherwise, prepend... + archive_expsym_cmds_GCJ='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then + cp $export_symbols $output_objdir/$soname.def; + else + echo EXPORTS > $output_objdir/$soname.def; + cat $export_symbols >> $output_objdir/$soname.def; + fi~ + $CC -shared $output_objdir/$soname.def $libobjs $deplibs $compiler_flags -o $output_objdir/$soname ${wl}--image-base=0x10000000 ${wl}--out-implib,$lib' + else + ld_shlibs_GCJ=no + fi + ;; + + linux*) + if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then + tmp_addflag= + case $cc_basename,$host_cpu in + pgcc*) # Portland Group C compiler + whole_archive_flag_spec_GCJ='${wl}--whole-archive,`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; $echo \"$new_convenience\"` ${wl}--no-whole-archive' + tmp_addflag=' $pic_flag' + ;; + pgf77* | pgf90* ) # Portland Group f77 and f90 compilers + whole_archive_flag_spec_GCJ='${wl}--whole-archive,`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; $echo \"$new_convenience\"` ${wl}--no-whole-archive' + tmp_addflag=' $pic_flag -Mnomain' ;; + ecc*,ia64* | icc*,ia64*) # Intel C compiler on ia64 + tmp_addflag=' -i_dynamic' ;; + efc*,ia64* | ifort*,ia64*) # Intel Fortran compiler on ia64 + tmp_addflag=' -i_dynamic -nofor_main' ;; + ifc* | ifort*) # Intel Fortran compiler + tmp_addflag=' -nofor_main' ;; + esac + archive_cmds_GCJ='$CC -shared'"$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' + + if test $supports_anon_versioning = yes; then + archive_expsym_cmds_GCJ='$echo "{ global:" > $output_objdir/$libname.ver~ + cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ + $echo "local: *; };" >> $output_objdir/$libname.ver~ + $CC -shared'"$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-version-script ${wl}$output_objdir/$libname.ver -o $lib' + fi + else + ld_shlibs_GCJ=no + fi + ;; + + netbsd*) + if echo __ELF__ | $CC -E - | grep __ELF__ >/dev/null; then + archive_cmds_GCJ='$LD -Bshareable $libobjs $deplibs $linker_flags -o $lib' + wlarc= + else + archive_cmds_GCJ='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' + archive_expsym_cmds_GCJ='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' + fi + ;; + + solaris* | sysv5*) + if $LD -v 2>&1 | grep 'BFD 2\.8' > /dev/null; then + ld_shlibs_GCJ=no + cat <&2 + +*** Warning: The releases 2.8.* of the GNU linker cannot reliably +*** create shared libraries on Solaris systems. Therefore, libtool +*** is disabling shared libraries support. We urge you to upgrade GNU +*** binutils to release 2.9.1 or newer. Another option is to modify +*** your PATH or compiler configuration so that the native linker is +*** used, and then restart. + +EOF + elif $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then + archive_cmds_GCJ='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' + archive_expsym_cmds_GCJ='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' + else + ld_shlibs_GCJ=no + fi + ;; + + sunos4*) + archive_cmds_GCJ='$LD -assert pure-text -Bshareable -o $lib $libobjs $deplibs $linker_flags' + wlarc= + hardcode_direct_GCJ=yes + hardcode_shlibpath_var_GCJ=no + ;; + + *) + if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then + archive_cmds_GCJ='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' + archive_expsym_cmds_GCJ='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' + else + ld_shlibs_GCJ=no + fi + ;; + esac + + if test "$ld_shlibs_GCJ" = no; then + runpath_var= + hardcode_libdir_flag_spec_GCJ= + export_dynamic_flag_spec_GCJ= + whole_archive_flag_spec_GCJ= + fi + else + # PORTME fill in a description of your system's linker (not GNU ld) + case $host_os in + aix3*) + allow_undefined_flag_GCJ=unsupported + always_export_symbols_GCJ=yes + archive_expsym_cmds_GCJ='$LD -o $output_objdir/$soname $libobjs $deplibs $linker_flags -bE:$export_symbols -T512 -H512 -bM:SRE~$AR $AR_FLAGS $lib $output_objdir/$soname' + # Note: this linker hardcodes the directories in LIBPATH if there + # are no directories specified by -L. + hardcode_minus_L_GCJ=yes + if test "$GCC" = yes && test -z "$link_static_flag"; then + # Neither direct hardcoding nor static linking is supported with a + # broken collect2. + hardcode_direct_GCJ=unsupported + fi + ;; + + aix4* | aix5*) + if test "$host_cpu" = ia64; then + # On IA64, the linker does run time linking by default, so we don't + # have to do anything special. + aix_use_runtimelinking=no + exp_sym_flag='-Bexport' + no_entry_flag="" + else + # If we're using GNU nm, then we don't want the "-C" option. + # -C means demangle to AIX nm, but means don't demangle with GNU nm + if $NM -V 2>&1 | grep 'GNU' > /dev/null; then + export_symbols_cmds_GCJ='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\$2 == "T") || (\$2 == "D") || (\$2 == "B")) && (substr(\$3,1,1) != ".")) { print \$3 } }'\'' | sort -u > $export_symbols' + else + export_symbols_cmds_GCJ='$NM -BCpg $libobjs $convenience | awk '\''{ if (((\$2 == "T") || (\$2 == "D") || (\$2 == "B")) && (substr(\$3,1,1) != ".")) { print \$3 } }'\'' | sort -u > $export_symbols' + fi + aix_use_runtimelinking=no + + # Test if we are trying to use run time linking or normal + # AIX style linking. If -brtl is somewhere in LDFLAGS, we + # need to do runtime linking. + case $host_os in aix4.[23]|aix4.[23].*|aix5*) + for ld_flag in $LDFLAGS; do + if (test $ld_flag = "-brtl" || test $ld_flag = "-Wl,-brtl"); then + aix_use_runtimelinking=yes + break + fi + done + esac + + exp_sym_flag='-bexport' + no_entry_flag='-bnoentry' + fi + + # When large executables or shared objects are built, AIX ld can + # have problems creating the table of contents. If linking a library + # or program results in "error TOC overflow" add -mminimal-toc to + # CXXFLAGS/CFLAGS for g++/gcc. In the cases where that is not + # enough to fix the problem, add -Wl,-bbigtoc to LDFLAGS. + + archive_cmds_GCJ='' + hardcode_direct_GCJ=yes + hardcode_libdir_separator_GCJ=':' + link_all_deplibs_GCJ=yes + + if test "$GCC" = yes; then + case $host_os in aix4.[012]|aix4.[012].*) + # We only want to do this on AIX 4.2 and lower, the check + # below for broken collect2 doesn't work under 4.3+ + collect2name=`${CC} -print-prog-name=collect2` + if test -f "$collect2name" && \ + strings "$collect2name" | grep resolve_lib_name >/dev/null + then + # We have reworked collect2 + hardcode_direct_GCJ=yes + else + # We have old collect2 + hardcode_direct_GCJ=unsupported + # It fails to find uninstalled libraries when the uninstalled + # path is not listed in the libpath. Setting hardcode_minus_L + # to unsupported forces relinking + hardcode_minus_L_GCJ=yes + hardcode_libdir_flag_spec_GCJ='-L$libdir' + hardcode_libdir_separator_GCJ= + fi + esac + shared_flag='-shared' + if test "$aix_use_runtimelinking" = yes; then + shared_flag="$shared_flag "'${wl}-G' + fi + else + # not using gcc + if test "$host_cpu" = ia64; then + # VisualAge C++, Version 5.5 for AIX 5L for IA-64, Beta 3 Release + # chokes on -Wl,-G. The following line is correct: + shared_flag='-G' + else + if test "$aix_use_runtimelinking" = yes; then + shared_flag='${wl}-G' + else + shared_flag='${wl}-bM:SRE' + fi + fi + fi + + # It seems that -bexpall does not export symbols beginning with + # underscore (_), so it is better to generate a list of symbols to export. + always_export_symbols_GCJ=yes + if test "$aix_use_runtimelinking" = yes; then + # Warning - without using the other runtime loading flags (-brtl), + # -berok will link without error, but may produce a broken library. + allow_undefined_flag_GCJ='-berok' + # Determine the default libpath from the value encoded in an empty executable. + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ + +int +main () +{ + + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext conftest$ac_exeext +if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest$ac_exeext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + +aix_libpath=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e '/Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/; p; } +}'` +# Check for a 64-bit object if we didn't find anything. +if test -z "$aix_libpath"; then aix_libpath=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e '/Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/; p; } +}'`; fi +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +fi +rm -f conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +if test -z "$aix_libpath"; then aix_libpath="/usr/lib:/lib"; fi + + hardcode_libdir_flag_spec_GCJ='${wl}-blibpath:$libdir:'"$aix_libpath" + archive_expsym_cmds_GCJ="\$CC"' -o $output_objdir/$soname $libobjs $deplibs $compiler_flags `if test "x${allow_undefined_flag}" != "x"; then echo "${wl}${allow_undefined_flag}"; else :; fi` '"\${wl}$no_entry_flag \${wl}$exp_sym_flag:\$export_symbols $shared_flag" + else + if test "$host_cpu" = ia64; then + hardcode_libdir_flag_spec_GCJ='${wl}-R $libdir:/usr/lib:/lib' + allow_undefined_flag_GCJ="-z nodefs" + archive_expsym_cmds_GCJ="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs $compiler_flags ${wl}${allow_undefined_flag} '"\${wl}$no_entry_flag \${wl}$exp_sym_flag:\$export_symbols" + else + # Determine the default libpath from the value encoded in an empty executable. + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ + +int +main () +{ + + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext conftest$ac_exeext +if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest$ac_exeext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + +aix_libpath=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e '/Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/; p; } +}'` +# Check for a 64-bit object if we didn't find anything. +if test -z "$aix_libpath"; then aix_libpath=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e '/Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/; p; } +}'`; fi +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +fi +rm -f conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +if test -z "$aix_libpath"; then aix_libpath="/usr/lib:/lib"; fi + + hardcode_libdir_flag_spec_GCJ='${wl}-blibpath:$libdir:'"$aix_libpath" + # Warning - without using the other run time loading flags, + # -berok will link without error, but may produce a broken library. + no_undefined_flag_GCJ=' ${wl}-bernotok' + allow_undefined_flag_GCJ=' ${wl}-berok' + # -bexpall does not export symbols beginning with underscore (_) + always_export_symbols_GCJ=yes + # Exported symbols can be pulled into shared objects from archives + whole_archive_flag_spec_GCJ=' ' + archive_cmds_need_lc_GCJ=yes + # This is similar to how AIX traditionally builds it's shared libraries. + archive_expsym_cmds_GCJ="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs $compiler_flags ${wl}-bE:$export_symbols ${wl}-bnoentry${allow_undefined_flag}~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$soname' + fi + fi + ;; + + amigaos*) + archive_cmds_GCJ='$rm $output_objdir/a2ixlibrary.data~$echo "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$echo "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$echo "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$echo "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)' + hardcode_libdir_flag_spec_GCJ='-L$libdir' + hardcode_minus_L_GCJ=yes + # see comment about different semantics on the GNU ld section + ld_shlibs_GCJ=no + ;; + + bsdi[45]*) + export_dynamic_flag_spec_GCJ=-rdynamic + ;; + + cygwin* | mingw* | pw32*) + # When not using gcc, we currently assume that we are using + # Microsoft Visual C++. + # hardcode_libdir_flag_spec is actually meaningless, as there is + # no search path for DLLs. + hardcode_libdir_flag_spec_GCJ=' ' + allow_undefined_flag_GCJ=unsupported + # Tell ltmain to make .lib files, not .a files. + libext=lib + # Tell ltmain to make .dll files, not .so files. + shrext_cmds=".dll" + # FIXME: Setting linknames here is a bad hack. + archive_cmds_GCJ='$CC -o $lib $libobjs $compiler_flags `echo "$deplibs" | $SED -e '\''s/ -lc$//'\''` -link -dll~linknames=' + # The linker will automatically build a .lib file if we build a DLL. + old_archive_From_new_cmds_GCJ='true' + # FIXME: Should let the user specify the lib program. + old_archive_cmds_GCJ='lib /OUT:$oldlib$oldobjs$old_deplibs' + fix_srcfile_path_GCJ='`cygpath -w "$srcfile"`' + enable_shared_with_static_runtimes_GCJ=yes + ;; + + darwin* | rhapsody*) + case "$host_os" in + rhapsody* | darwin1.[012]) + allow_undefined_flag_GCJ='${wl}-undefined ${wl}suppress' + ;; + *) # Darwin 1.3 on + if test -z ${MACOSX_DEPLOYMENT_TARGET} ; then + allow_undefined_flag_GCJ='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' + else + case ${MACOSX_DEPLOYMENT_TARGET} in + 10.[012]) + allow_undefined_flag_GCJ='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' + ;; + 10.*) + allow_undefined_flag_GCJ='${wl}-undefined ${wl}dynamic_lookup' + ;; + esac + fi + ;; + esac + archive_cmds_need_lc_GCJ=no + hardcode_direct_GCJ=no + hardcode_automatic_GCJ=yes + hardcode_shlibpath_var_GCJ=unsupported + whole_archive_flag_spec_GCJ='' + link_all_deplibs_GCJ=yes + if test "$GCC" = yes ; then + output_verbose_link_cmd='echo' + archive_cmds_GCJ='$CC -dynamiclib $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags -install_name $rpath/$soname $verstring' + module_cmds_GCJ='$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags' + # Don't fix this by using the ld -exported_symbols_list flag, it doesn't exist in older darwin ld's + archive_expsym_cmds_GCJ='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC -dynamiclib $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags -install_name $rpath/$soname $verstring~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' + module_expsym_cmds_GCJ='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' + else + case $cc_basename in + xlc*) + output_verbose_link_cmd='echo' + archive_cmds_GCJ='$CC -qmkshrobj $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-install_name ${wl}`echo $rpath/$soname` $verstring' + module_cmds_GCJ='$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags' + # Don't fix this by using the ld -exported_symbols_list flag, it doesn't exist in older darwin ld's + archive_expsym_cmds_GCJ='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC -qmkshrobj $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-install_name ${wl}$rpath/$soname $verstring~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' + module_expsym_cmds_GCJ='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' + ;; + *) + ld_shlibs_GCJ=no + ;; + esac + fi + ;; + + dgux*) + archive_cmds_GCJ='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' + hardcode_libdir_flag_spec_GCJ='-L$libdir' + hardcode_shlibpath_var_GCJ=no + ;; + + freebsd1*) + ld_shlibs_GCJ=no + ;; + + # FreeBSD 2.2.[012] allows us to include c++rt0.o to get C++ constructor + # support. Future versions do this automatically, but an explicit c++rt0.o + # does not break anything, and helps significantly (at the cost of a little + # extra space). + freebsd2.2*) + archive_cmds_GCJ='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags /usr/lib/c++rt0.o' + hardcode_libdir_flag_spec_GCJ='-R$libdir' + hardcode_direct_GCJ=yes + hardcode_shlibpath_var_GCJ=no + ;; + + # Unfortunately, older versions of FreeBSD 2 do not have this feature. + freebsd2*) + archive_cmds_GCJ='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' + hardcode_direct_GCJ=yes + hardcode_minus_L_GCJ=yes + hardcode_shlibpath_var_GCJ=no + ;; + + # FreeBSD 3 and greater uses gcc -shared to do shared libraries. + freebsd* | kfreebsd*-gnu | dragonfly*) + archive_cmds_GCJ='$CC -shared -o $lib $libobjs $deplibs $compiler_flags' + hardcode_libdir_flag_spec_GCJ='-R$libdir' + hardcode_direct_GCJ=yes + hardcode_shlibpath_var_GCJ=no + ;; + + hpux9*) + if test "$GCC" = yes; then + archive_cmds_GCJ='$rm $output_objdir/$soname~$CC -shared -fPIC ${wl}+b ${wl}$install_libdir -o $output_objdir/$soname $libobjs $deplibs $compiler_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib' + else + archive_cmds_GCJ='$rm $output_objdir/$soname~$LD -b +b $install_libdir -o $output_objdir/$soname $libobjs $deplibs $linker_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib' + fi + hardcode_libdir_flag_spec_GCJ='${wl}+b ${wl}$libdir' + hardcode_libdir_separator_GCJ=: + hardcode_direct_GCJ=yes + + # hardcode_minus_L: Not really in the search PATH, + # but as the default location of the library. + hardcode_minus_L_GCJ=yes + export_dynamic_flag_spec_GCJ='${wl}-E' + ;; + + hpux10* | hpux11*) + if test "$GCC" = yes -a "$with_gnu_ld" = no; then + case "$host_cpu" in + hppa*64*|ia64*) + archive_cmds_GCJ='$CC -shared ${wl}+h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' + ;; + *) + archive_cmds_GCJ='$CC -shared -fPIC ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags' + ;; + esac + else + case "$host_cpu" in + hppa*64*|ia64*) + archive_cmds_GCJ='$LD -b +h $soname -o $lib $libobjs $deplibs $linker_flags' + ;; + *) + archive_cmds_GCJ='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags' + ;; + esac + fi + if test "$with_gnu_ld" = no; then + case "$host_cpu" in + hppa*64*) + hardcode_libdir_flag_spec_GCJ='${wl}+b ${wl}$libdir' + hardcode_libdir_flag_spec_ld_GCJ='+b $libdir' + hardcode_libdir_separator_GCJ=: + hardcode_direct_GCJ=no + hardcode_shlibpath_var_GCJ=no + ;; + ia64*) + hardcode_libdir_flag_spec_GCJ='-L$libdir' + hardcode_direct_GCJ=no + hardcode_shlibpath_var_GCJ=no + + # hardcode_minus_L: Not really in the search PATH, + # but as the default location of the library. + hardcode_minus_L_GCJ=yes + ;; + *) + hardcode_libdir_flag_spec_GCJ='${wl}+b ${wl}$libdir' + hardcode_libdir_separator_GCJ=: + hardcode_direct_GCJ=yes + export_dynamic_flag_spec_GCJ='${wl}-E' + + # hardcode_minus_L: Not really in the search PATH, + # but as the default location of the library. + hardcode_minus_L_GCJ=yes + ;; + esac + fi + ;; + + irix5* | irix6* | nonstopux*) + if test "$GCC" = yes; then + archive_cmds_GCJ='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' + else + archive_cmds_GCJ='$LD -shared $libobjs $deplibs $linker_flags -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib' + hardcode_libdir_flag_spec_ld_GCJ='-rpath $libdir' + fi + hardcode_libdir_flag_spec_GCJ='${wl}-rpath ${wl}$libdir' + hardcode_libdir_separator_GCJ=: + link_all_deplibs_GCJ=yes + ;; + + netbsd*) + if echo __ELF__ | $CC -E - | grep __ELF__ >/dev/null; then + archive_cmds_GCJ='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' # a.out + else + archive_cmds_GCJ='$LD -shared -o $lib $libobjs $deplibs $linker_flags' # ELF + fi + hardcode_libdir_flag_spec_GCJ='-R$libdir' + hardcode_direct_GCJ=yes + hardcode_shlibpath_var_GCJ=no + ;; + + newsos6) + archive_cmds_GCJ='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' + hardcode_direct_GCJ=yes + hardcode_libdir_flag_spec_GCJ='${wl}-rpath ${wl}$libdir' + hardcode_libdir_separator_GCJ=: + hardcode_shlibpath_var_GCJ=no + ;; + + openbsd*) + hardcode_direct_GCJ=yes + hardcode_shlibpath_var_GCJ=no + if test -z "`echo __ELF__ | $CC -E - | grep __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then + archive_cmds_GCJ='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' + archive_expsym_cmds_GCJ='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-retain-symbols-file,$export_symbols' + hardcode_libdir_flag_spec_GCJ='${wl}-rpath,$libdir' + export_dynamic_flag_spec_GCJ='${wl}-E' + else + case $host_os in + openbsd[01].* | openbsd2.[0-7] | openbsd2.[0-7].*) + archive_cmds_GCJ='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' + hardcode_libdir_flag_spec_GCJ='-R$libdir' + ;; + *) + archive_cmds_GCJ='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' + hardcode_libdir_flag_spec_GCJ='${wl}-rpath,$libdir' + ;; + esac + fi + ;; + + os2*) + hardcode_libdir_flag_spec_GCJ='-L$libdir' + hardcode_minus_L_GCJ=yes + allow_undefined_flag_GCJ=unsupported + archive_cmds_GCJ='$echo "LIBRARY $libname INITINSTANCE" > $output_objdir/$libname.def~$echo "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~$echo DATA >> $output_objdir/$libname.def~$echo " SINGLE NONSHARED" >> $output_objdir/$libname.def~$echo EXPORTS >> $output_objdir/$libname.def~emxexp $libobjs >> $output_objdir/$libname.def~$CC -Zdll -Zcrtdll -o $lib $libobjs $deplibs $compiler_flags $output_objdir/$libname.def' + old_archive_From_new_cmds_GCJ='emximp -o $output_objdir/$libname.a $output_objdir/$libname.def' + ;; + + osf3*) + if test "$GCC" = yes; then + allow_undefined_flag_GCJ=' ${wl}-expect_unresolved ${wl}\*' + archive_cmds_GCJ='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' + else + allow_undefined_flag_GCJ=' -expect_unresolved \*' + archive_cmds_GCJ='$LD -shared${allow_undefined_flag} $libobjs $deplibs $linker_flags -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib' + fi + hardcode_libdir_flag_spec_GCJ='${wl}-rpath ${wl}$libdir' + hardcode_libdir_separator_GCJ=: + ;; + + osf4* | osf5*) # as osf3* with the addition of -msym flag + if test "$GCC" = yes; then + allow_undefined_flag_GCJ=' ${wl}-expect_unresolved ${wl}\*' + archive_cmds_GCJ='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags ${wl}-msym ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' + hardcode_libdir_flag_spec_GCJ='${wl}-rpath ${wl}$libdir' + else + allow_undefined_flag_GCJ=' -expect_unresolved \*' + archive_cmds_GCJ='$LD -shared${allow_undefined_flag} $libobjs $deplibs $linker_flags -msym -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib' + archive_expsym_cmds_GCJ='for i in `cat $export_symbols`; do printf "%s %s\\n" -exported_symbol "\$i" >> $lib.exp; done; echo "-hidden">> $lib.exp~ + $LD -shared${allow_undefined_flag} -input $lib.exp $linker_flags $libobjs $deplibs -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib~$rm $lib.exp' + + # Both c and cxx compiler support -rpath directly + hardcode_libdir_flag_spec_GCJ='-rpath $libdir' + fi + hardcode_libdir_separator_GCJ=: + ;; + + sco3.2v5*) + archive_cmds_GCJ='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' + hardcode_shlibpath_var_GCJ=no + export_dynamic_flag_spec_GCJ='${wl}-Bexport' + runpath_var=LD_RUN_PATH + hardcode_runpath_var=yes + ;; + + solaris*) + no_undefined_flag_GCJ=' -z text' + if test "$GCC" = yes; then + wlarc='${wl}' + archive_cmds_GCJ='$CC -shared ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' + archive_expsym_cmds_GCJ='$echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~$echo "local: *; };" >> $lib.exp~ + $CC -shared ${wl}-M ${wl}$lib.exp ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags~$rm $lib.exp' + else + wlarc='' + archive_cmds_GCJ='$LD -G${allow_undefined_flag} -h $soname -o $lib $libobjs $deplibs $linker_flags' + archive_expsym_cmds_GCJ='$echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~$echo "local: *; };" >> $lib.exp~ + $LD -G${allow_undefined_flag} -M $lib.exp -h $soname -o $lib $libobjs $deplibs $linker_flags~$rm $lib.exp' + fi + hardcode_libdir_flag_spec_GCJ='-R$libdir' + hardcode_shlibpath_var_GCJ=no + case $host_os in + solaris2.[0-5] | solaris2.[0-5].*) ;; + *) + # The compiler driver will combine linker options so we + # cannot just pass the convience library names through + # without $wl, iff we do not link with $LD. + # Luckily, gcc supports the same syntax we need for Sun Studio. + # Supported since Solaris 2.6 (maybe 2.5.1?) + case $wlarc in + '') + whole_archive_flag_spec_GCJ='-z allextract$convenience -z defaultextract' ;; + *) + whole_archive_flag_spec_GCJ='${wl}-z ${wl}allextract`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; $echo \"$new_convenience\"` ${wl}-z ${wl}defaultextract' ;; + esac ;; + esac + link_all_deplibs_GCJ=yes + ;; + + sunos4*) + if test "x$host_vendor" = xsequent; then + # Use $CC to link under sequent, because it throws in some extra .o + # files that make .init and .fini sections work. + archive_cmds_GCJ='$CC -G ${wl}-h $soname -o $lib $libobjs $deplibs $compiler_flags' + else + archive_cmds_GCJ='$LD -assert pure-text -Bstatic -o $lib $libobjs $deplibs $linker_flags' + fi + hardcode_libdir_flag_spec_GCJ='-L$libdir' + hardcode_direct_GCJ=yes + hardcode_minus_L_GCJ=yes + hardcode_shlibpath_var_GCJ=no + ;; + + sysv4) + case $host_vendor in + sni) + archive_cmds_GCJ='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' + hardcode_direct_GCJ=yes # is this really true??? + ;; + siemens) + ## LD is ld it makes a PLAMLIB + ## CC just makes a GrossModule. + archive_cmds_GCJ='$LD -G -o $lib $libobjs $deplibs $linker_flags' + reload_cmds_GCJ='$CC -r -o $output$reload_objs' + hardcode_direct_GCJ=no + ;; + motorola) + archive_cmds_GCJ='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' + hardcode_direct_GCJ=no #Motorola manual says yes, but my tests say they lie + ;; + esac + runpath_var='LD_RUN_PATH' + hardcode_shlibpath_var_GCJ=no + ;; + + sysv4.3*) + archive_cmds_GCJ='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' + hardcode_shlibpath_var_GCJ=no + export_dynamic_flag_spec_GCJ='-Bexport' + ;; + + sysv4*MP*) + if test -d /usr/nec; then + archive_cmds_GCJ='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' + hardcode_shlibpath_var_GCJ=no + runpath_var=LD_RUN_PATH + hardcode_runpath_var=yes + ld_shlibs_GCJ=yes + fi + ;; + + sysv4.2uw2*) + archive_cmds_GCJ='$LD -G -o $lib $libobjs $deplibs $linker_flags' + hardcode_direct_GCJ=yes + hardcode_minus_L_GCJ=no + hardcode_shlibpath_var_GCJ=no + hardcode_runpath_var=yes + runpath_var=LD_RUN_PATH + ;; + + sysv5OpenUNIX8* | sysv5UnixWare7* | sysv5uw[78]* | unixware7*) + no_undefined_flag_GCJ='${wl}-z ${wl}text' + if test "$GCC" = yes; then + archive_cmds_GCJ='$CC -shared ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' + else + archive_cmds_GCJ='$CC -G ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' + fi + runpath_var='LD_RUN_PATH' + hardcode_shlibpath_var_GCJ=no + ;; + + sysv5*) + no_undefined_flag_GCJ=' -z text' + # $CC -shared without GNU ld will not create a library from C++ + # object files and a static libstdc++, better avoid it by now + archive_cmds_GCJ='$LD -G${allow_undefined_flag} -h $soname -o $lib $libobjs $deplibs $linker_flags' + archive_expsym_cmds_GCJ='$echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~$echo "local: *; };" >> $lib.exp~ + $LD -G${allow_undefined_flag} -M $lib.exp -h $soname -o $lib $libobjs $deplibs $linker_flags~$rm $lib.exp' + hardcode_libdir_flag_spec_GCJ= + hardcode_shlibpath_var_GCJ=no + runpath_var='LD_RUN_PATH' + ;; + + uts4*) + archive_cmds_GCJ='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' + hardcode_libdir_flag_spec_GCJ='-L$libdir' + hardcode_shlibpath_var_GCJ=no + ;; + + *) + ld_shlibs_GCJ=no + ;; + esac + fi + +echo "$as_me:$LINENO: result: $ld_shlibs_GCJ" >&5 +echo "${ECHO_T}$ld_shlibs_GCJ" >&6 +test "$ld_shlibs_GCJ" = no && can_build_shared=no + +variables_saved_for_relink="PATH $shlibpath_var $runpath_var" +if test "$GCC" = yes; then + variables_saved_for_relink="$variables_saved_for_relink GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH" +fi + +# +# Do we need to explicitly link libc? +# +case "x$archive_cmds_need_lc_GCJ" in +x|xyes) + # Assume -lc should be added + archive_cmds_need_lc_GCJ=yes + + if test "$enable_shared" = yes && test "$GCC" = yes; then + case $archive_cmds_GCJ in + *'~'*) + # FIXME: we may have to deal with multi-command sequences. + ;; + '$CC '*) + # Test whether the compiler implicitly links with -lc since on some + # systems, -lgcc has to come before -lc. If gcc already passes -lc + # to ld, don't add -lc before -lgcc. + echo "$as_me:$LINENO: checking whether -lc should be explicitly linked in" >&5 +echo $ECHO_N "checking whether -lc should be explicitly linked in... $ECHO_C" >&6 + $rm conftest* + printf "$lt_simple_compile_test_code" > conftest.$ac_ext + + if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 + (eval $ac_compile) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } 2>conftest.err; then + soname=conftest + lib=conftest + libobjs=conftest.$ac_objext + deplibs= + wl=$lt_prog_compiler_wl_GCJ + compiler_flags=-v + linker_flags=-v + verstring= + output_objdir=. + libname=conftest + lt_save_allow_undefined_flag=$allow_undefined_flag_GCJ + allow_undefined_flag_GCJ= + if { (eval echo "$as_me:$LINENO: \"$archive_cmds_GCJ 2\>\&1 \| grep \" -lc \" \>/dev/null 2\>\&1\"") >&5 + (eval $archive_cmds_GCJ 2\>\&1 \| grep \" -lc \" \>/dev/null 2\>\&1) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } + then + archive_cmds_need_lc_GCJ=no + else + archive_cmds_need_lc_GCJ=yes + fi + allow_undefined_flag_GCJ=$lt_save_allow_undefined_flag + else + cat conftest.err 1>&5 + fi + $rm conftest* + echo "$as_me:$LINENO: result: $archive_cmds_need_lc_GCJ" >&5 +echo "${ECHO_T}$archive_cmds_need_lc_GCJ" >&6 + ;; + esac + fi + ;; +esac + +echo "$as_me:$LINENO: checking dynamic linker characteristics" >&5 +echo $ECHO_N "checking dynamic linker characteristics... $ECHO_C" >&6 +library_names_spec= +libname_spec='lib$name' +soname_spec= +shrext_cmds=".so" +postinstall_cmds= +postuninstall_cmds= +finish_cmds= +finish_eval= +shlibpath_var= +shlibpath_overrides_runpath=unknown +version_type=none +dynamic_linker="$host_os ld.so" +sys_lib_dlsearch_path_spec="/lib /usr/lib" +if test "$GCC" = yes; then + sys_lib_search_path_spec=`$CC -print-search-dirs | grep "^libraries:" | $SED -e "s/^libraries://" -e "s,=/,/,g"` + if echo "$sys_lib_search_path_spec" | grep ';' >/dev/null ; then + # if the path contains ";" then we assume it to be the separator + # otherwise default to the standard path separator (i.e. ":") - it is + # assumed that no part of a normal pathname contains ";" but that should + # okay in the real world where ";" in dirpaths is itself problematic. + sys_lib_search_path_spec=`echo "$sys_lib_search_path_spec" | $SED -e 's/;/ /g'` + else + sys_lib_search_path_spec=`echo "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"` + fi +else + sys_lib_search_path_spec="/lib /usr/lib /usr/local/lib" +fi +need_lib_prefix=unknown +hardcode_into_libs=no + +# when you set need_version to no, make sure it does not cause -set_version +# flags to be left without arguments +need_version=unknown + +case $host_os in +aix3*) + version_type=linux + library_names_spec='${libname}${release}${shared_ext}$versuffix $libname.a' + shlibpath_var=LIBPATH + + # AIX 3 has no versioning support, so we append a major version to the name. + soname_spec='${libname}${release}${shared_ext}$major' + ;; + +aix4* | aix5*) + version_type=linux + need_lib_prefix=no + need_version=no + hardcode_into_libs=yes + if test "$host_cpu" = ia64; then + # AIX 5 supports IA64 + library_names_spec='${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext}$versuffix $libname${shared_ext}' + shlibpath_var=LD_LIBRARY_PATH + else + # With GCC up to 2.95.x, collect2 would create an import file + # for dependence libraries. The import file would start with + # the line `#! .'. This would cause the generated library to + # depend on `.', always an invalid library. This was fixed in + # development snapshots of GCC prior to 3.0. + case $host_os in + aix4 | aix4.[01] | aix4.[01].*) + if { echo '#if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 97)' + echo ' yes ' + echo '#endif'; } | ${CC} -E - | grep yes > /dev/null; then + : + else + can_build_shared=no + fi + ;; + esac + # AIX (on Power*) has no versioning support, so currently we can not hardcode correct + # soname into executable. Probably we can add versioning support to + # collect2, so additional links can be useful in future. + if test "$aix_use_runtimelinking" = yes; then + # If using run time linking (on AIX 4.2 or later) use lib.so + # instead of lib.a to let people know that these are not + # typical AIX shared libraries. + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + else + # We preserve .a as extension for shared libraries through AIX4.2 + # and later when we are not doing run time linking. + library_names_spec='${libname}${release}.a $libname.a' + soname_spec='${libname}${release}${shared_ext}$major' + fi + shlibpath_var=LIBPATH + fi + ;; + +amigaos*) + library_names_spec='$libname.ixlibrary $libname.a' + # Create ${libname}_ixlibrary.a entries in /sys/libs. + finish_eval='for lib in `ls $libdir/*.ixlibrary 2>/dev/null`; do libname=`$echo "X$lib" | $Xsed -e '\''s%^.*/\([^/]*\)\.ixlibrary$%\1%'\''`; test $rm /sys/libs/${libname}_ixlibrary.a; $show "cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a"; cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a || exit 1; done' + ;; + +beos*) + library_names_spec='${libname}${shared_ext}' + dynamic_linker="$host_os ld.so" + shlibpath_var=LIBRARY_PATH + ;; + +bsdi[45]*) + version_type=linux + need_version=no + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + finish_cmds='PATH="\$PATH:/sbin" ldconfig $libdir' + shlibpath_var=LD_LIBRARY_PATH + sys_lib_search_path_spec="/shlib /usr/lib /usr/X11/lib /usr/contrib/lib /lib /usr/local/lib" + sys_lib_dlsearch_path_spec="/shlib /usr/lib /usr/local/lib" + # the default ld.so.conf also contains /usr/contrib/lib and + # /usr/X11R6/lib (/usr/X11 is a link to /usr/X11R6), but let us allow + # libtool to hard-code these into programs + ;; + +cygwin* | mingw* | pw32*) + version_type=windows + shrext_cmds=".dll" + need_version=no + need_lib_prefix=no + + case $GCC,$host_os in + yes,cygwin* | yes,mingw* | yes,pw32*) + library_names_spec='$libname.dll.a' + # DLL is installed to $(libdir)/../bin by postinstall_cmds + postinstall_cmds='base_file=`basename \${file}`~ + dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\${base_file}'\''i;echo \$dlname'\''`~ + dldir=$destdir/`dirname \$dlpath`~ + test -d \$dldir || mkdir -p \$dldir~ + $install_prog $dir/$dlname \$dldir/$dlname' + postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~ + dlpath=$dir/\$dldll~ + $rm \$dlpath' + shlibpath_overrides_runpath=yes + + case $host_os in + cygwin*) + # Cygwin DLLs use 'cyg' prefix rather than 'lib' + soname_spec='`echo ${libname} | sed -e 's/^lib/cyg/'``echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}' + sys_lib_search_path_spec="/usr/lib /lib/w32api /lib /usr/local/lib" + ;; + mingw*) + # MinGW DLLs use traditional 'lib' prefix + soname_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}' + sys_lib_search_path_spec=`$CC -print-search-dirs | grep "^libraries:" | $SED -e "s/^libraries://" -e "s,=/,/,g"` + if echo "$sys_lib_search_path_spec" | grep ';[c-zC-Z]:/' >/dev/null; then + # It is most probably a Windows format PATH printed by + # mingw gcc, but we are running on Cygwin. Gcc prints its search + # path with ; separators, and with drive letters. We can handle the + # drive letters (cygwin fileutils understands them), so leave them, + # especially as we might pass files found there to a mingw objdump, + # which wouldn't understand a cygwinified path. Ahh. + sys_lib_search_path_spec=`echo "$sys_lib_search_path_spec" | $SED -e 's/;/ /g'` + else + sys_lib_search_path_spec=`echo "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"` + fi + ;; + pw32*) + # pw32 DLLs use 'pw' prefix rather than 'lib' + library_names_spec='`echo ${libname} | sed -e 's/^lib/pw/'``echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}' + ;; + esac + ;; + + *) + library_names_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext} $libname.lib' + ;; + esac + dynamic_linker='Win32 ld.exe' + # FIXME: first we should search . and the directory the executable is in + shlibpath_var=PATH + ;; + +darwin* | rhapsody*) + dynamic_linker="$host_os dyld" + version_type=darwin + need_lib_prefix=no + need_version=no + library_names_spec='${libname}${release}${versuffix}$shared_ext ${libname}${release}${major}$shared_ext ${libname}$shared_ext' + soname_spec='${libname}${release}${major}$shared_ext' + shlibpath_overrides_runpath=yes + shlibpath_var=DYLD_LIBRARY_PATH + shrext_cmds='$(test .$module = .yes && echo .so || echo .dylib)' + # Apple's gcc prints 'gcc -print-search-dirs' doesn't operate the same. + if test "$GCC" = yes; then + sys_lib_search_path_spec=`$CC -print-search-dirs | tr "\n" "$PATH_SEPARATOR" | sed -e 's/libraries:/@libraries:/' | tr "@" "\n" | grep "^libraries:" | sed -e "s/^libraries://" -e "s,=/,/,g" -e "s,$PATH_SEPARATOR, ,g" -e "s,.*,& /lib /usr/lib /usr/local/lib,g"` + else + sys_lib_search_path_spec='/lib /usr/lib /usr/local/lib' + fi + sys_lib_dlsearch_path_spec='/usr/local/lib /lib /usr/lib' + ;; + +dgux*) + version_type=linux + need_lib_prefix=no + need_version=no + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname$shared_ext' + soname_spec='${libname}${release}${shared_ext}$major' + shlibpath_var=LD_LIBRARY_PATH + ;; + +freebsd1*) + dynamic_linker=no + ;; + +kfreebsd*-gnu) + version_type=linux + need_lib_prefix=no + need_version=no + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=no + hardcode_into_libs=yes + dynamic_linker='GNU ld.so' + ;; + +freebsd* | dragonfly*) + # DragonFly does not have aout. When/if they implement a new + # versioning mechanism, adjust this. + objformat=`test -x /usr/bin/objformat && /usr/bin/objformat || echo aout` + version_type=freebsd-$objformat + case $version_type in + freebsd-elf*) + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext} $libname${shared_ext}' + need_version=no + need_lib_prefix=no + ;; + freebsd-*) + library_names_spec='${libname}${release}${shared_ext}$versuffix $libname${shared_ext}$versuffix' + need_version=yes + ;; + esac + shlibpath_var=LD_LIBRARY_PATH + case $host_os in + freebsd2*) + shlibpath_overrides_runpath=yes + ;; + freebsd3.[01]* | freebsdelf3.[01]*) + shlibpath_overrides_runpath=yes + hardcode_into_libs=yes + ;; + *) # from 3.2 on + shlibpath_overrides_runpath=no + hardcode_into_libs=yes + ;; + esac + ;; + +gnu*) + version_type=linux + need_lib_prefix=no + need_version=no + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}${major} ${libname}${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + shlibpath_var=LD_LIBRARY_PATH + hardcode_into_libs=yes + ;; + +hpux9* | hpux10* | hpux11*) + # Give a soname corresponding to the major version so that dld.sl refuses to + # link against other versions. + version_type=sunos + need_lib_prefix=no + need_version=no + case "$host_cpu" in + ia64*) + shrext_cmds='.so' + hardcode_into_libs=yes + dynamic_linker="$host_os dld.so" + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=yes # Unless +noenvvar is specified. + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + if test "X$HPUX_IA64_MODE" = X32; then + sys_lib_search_path_spec="/usr/lib/hpux32 /usr/local/lib/hpux32 /usr/local/lib" + else + sys_lib_search_path_spec="/usr/lib/hpux64 /usr/local/lib/hpux64" + fi + sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec + ;; + hppa*64*) + shrext_cmds='.sl' + hardcode_into_libs=yes + dynamic_linker="$host_os dld.sl" + shlibpath_var=LD_LIBRARY_PATH # How should we handle SHLIB_PATH + shlibpath_overrides_runpath=yes # Unless +noenvvar is specified. + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + sys_lib_search_path_spec="/usr/lib/pa20_64 /usr/ccs/lib/pa20_64" + sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec + ;; + *) + shrext_cmds='.sl' + dynamic_linker="$host_os dld.sl" + shlibpath_var=SHLIB_PATH + shlibpath_overrides_runpath=no # +s is required to enable SHLIB_PATH + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + ;; + esac + # HP-UX runs *really* slowly unless shared libraries are mode 555. + postinstall_cmds='chmod 555 $lib' + ;; + +irix5* | irix6* | nonstopux*) + case $host_os in + nonstopux*) version_type=nonstopux ;; + *) + if test "$lt_cv_prog_gnu_ld" = yes; then + version_type=linux + else + version_type=irix + fi ;; + esac + need_lib_prefix=no + need_version=no + soname_spec='${libname}${release}${shared_ext}$major' + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext} $libname${shared_ext}' + case $host_os in + irix5* | nonstopux*) + libsuff= shlibsuff= + ;; + *) + case $LD in # libtool.m4 will add one of these switches to LD + *-32|*"-32 "|*-melf32bsmip|*"-melf32bsmip ") + libsuff= shlibsuff= libmagic=32-bit;; + *-n32|*"-n32 "|*-melf32bmipn32|*"-melf32bmipn32 ") + libsuff=32 shlibsuff=N32 libmagic=N32;; + *-64|*"-64 "|*-melf64bmip|*"-melf64bmip ") + libsuff=64 shlibsuff=64 libmagic=64-bit;; + *) libsuff= shlibsuff= libmagic=never-match;; + esac + ;; + esac + shlibpath_var=LD_LIBRARY${shlibsuff}_PATH + shlibpath_overrides_runpath=no + sys_lib_search_path_spec="/usr/lib${libsuff} /lib${libsuff} /usr/local/lib${libsuff}" + sys_lib_dlsearch_path_spec="/usr/lib${libsuff} /lib${libsuff}" + hardcode_into_libs=yes + ;; + +# No shared lib support for Linux oldld, aout, or coff. +linux*oldld* | linux*aout* | linux*coff*) + dynamic_linker=no + ;; + +# This must be Linux ELF. +linux*) + version_type=linux + need_lib_prefix=no + need_version=no + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=no + # This implies no fast_install, which is unacceptable. + # Some rework will be needed to allow for fast_install + # before this can be enabled. + hardcode_into_libs=yes + + # find out which ABI we are using + libsuff= + case "$host_cpu" in + x86_64*|s390x*|powerpc64*) + echo '#line 17810 "configure"' > conftest.$ac_ext + if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 + (eval $ac_compile) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; then + case `/usr/bin/file conftest.$ac_objext` in + *64-bit*) + libsuff=64 + sys_lib_search_path_spec="/lib${libsuff} /usr/lib${libsuff} /usr/local/lib${libsuff}" + ;; + esac + fi + rm -rf conftest* + ;; + esac + + # Append ld.so.conf contents to the search path + if test -f /etc/ld.so.conf; then + lt_ld_extra=`awk '/^include / { system(sprintf("cd /etc; cat %s", \$2)); skip = 1; } { if (!skip) print \$0; skip = 0; }' < /etc/ld.so.conf | $SED -e 's/#.*//;s/[:, ]/ /g;s/=[^=]*$//;s/=[^= ]* / /g;/^$/d' | tr '\n' ' '` + sys_lib_dlsearch_path_spec="/lib${libsuff} /usr/lib${libsuff} $lt_ld_extra" + fi + + # We used to test for /lib/ld.so.1 and disable shared libraries on + # powerpc, because MkLinux only supported shared libraries with the + # GNU dynamic linker. Since this was broken with cross compilers, + # most powerpc-linux boxes support dynamic linking these days and + # people can always --disable-shared, the test was removed, and we + # assume the GNU/Linux dynamic linker is in use. + dynamic_linker='GNU/Linux ld.so' + ;; + +knetbsd*-gnu) + version_type=linux + need_lib_prefix=no + need_version=no + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=no + hardcode_into_libs=yes + dynamic_linker='GNU ld.so' + ;; + +netbsd*) + version_type=sunos + need_lib_prefix=no + need_version=no + if echo __ELF__ | $CC -E - | grep __ELF__ >/dev/null; then + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' + finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir' + dynamic_linker='NetBSD (a.out) ld.so' + else + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + dynamic_linker='NetBSD ld.elf_so' + fi + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=yes + hardcode_into_libs=yes + ;; + +newsos6) + version_type=linux + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=yes + ;; + +nto-qnx*) + version_type=linux + need_lib_prefix=no + need_version=no + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=yes + ;; + +openbsd*) + version_type=sunos + need_lib_prefix=no + # Some older versions of OpenBSD (3.3 at least) *do* need versioned libs. + case $host_os in + openbsd3.3 | openbsd3.3.*) need_version=yes ;; + *) need_version=no ;; + esac + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' + finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir' + shlibpath_var=LD_LIBRARY_PATH + if test -z "`echo __ELF__ | $CC -E - | grep __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then + case $host_os in + openbsd2.[89] | openbsd2.[89].*) + shlibpath_overrides_runpath=no + ;; + *) + shlibpath_overrides_runpath=yes + ;; + esac + else + shlibpath_overrides_runpath=yes + fi + ;; + +os2*) + libname_spec='$name' + shrext_cmds=".dll" + need_lib_prefix=no + library_names_spec='$libname${shared_ext} $libname.a' + dynamic_linker='OS/2 ld.exe' + shlibpath_var=LIBPATH + ;; + +osf3* | osf4* | osf5*) + version_type=osf + need_lib_prefix=no + need_version=no + soname_spec='${libname}${release}${shared_ext}$major' + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + shlibpath_var=LD_LIBRARY_PATH + sys_lib_search_path_spec="/usr/shlib /usr/ccs/lib /usr/lib/cmplrs/cc /usr/lib /usr/local/lib /var/shlib" + sys_lib_dlsearch_path_spec="$sys_lib_search_path_spec" + ;; + +sco3.2v5*) + version_type=osf + soname_spec='${libname}${release}${shared_ext}$major' + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + shlibpath_var=LD_LIBRARY_PATH + ;; + +solaris*) + version_type=linux + need_lib_prefix=no + need_version=no + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=yes + hardcode_into_libs=yes + # ldd complains unless libraries are executable + postinstall_cmds='chmod +x $lib' + ;; + +sunos4*) + version_type=sunos + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' + finish_cmds='PATH="\$PATH:/usr/etc" ldconfig $libdir' + shlibpath_var=LD_LIBRARY_PATH + shlibpath_overrides_runpath=yes + if test "$with_gnu_ld" = yes; then + need_lib_prefix=no + fi + need_version=yes + ;; + +sysv4 | sysv4.2uw2* | sysv4.3* | sysv5*) + version_type=linux + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + shlibpath_var=LD_LIBRARY_PATH + case $host_vendor in + sni) + shlibpath_overrides_runpath=no + need_lib_prefix=no + export_dynamic_flag_spec='${wl}-Blargedynsym' + runpath_var=LD_RUN_PATH + ;; + siemens) + need_lib_prefix=no + ;; + motorola) + need_lib_prefix=no + need_version=no + shlibpath_overrides_runpath=no + sys_lib_search_path_spec='/lib /usr/lib /usr/ccs/lib' + ;; + esac + ;; + +sysv4*MP*) + if test -d /usr/nec ;then + version_type=linux + library_names_spec='$libname${shared_ext}.$versuffix $libname${shared_ext}.$major $libname${shared_ext}' + soname_spec='$libname${shared_ext}.$major' + shlibpath_var=LD_LIBRARY_PATH + fi + ;; + +uts4*) + version_type=linux + library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' + soname_spec='${libname}${release}${shared_ext}$major' + shlibpath_var=LD_LIBRARY_PATH + ;; + +*) + dynamic_linker=no + ;; +esac +echo "$as_me:$LINENO: result: $dynamic_linker" >&5 +echo "${ECHO_T}$dynamic_linker" >&6 +test "$dynamic_linker" = no && can_build_shared=no + +echo "$as_me:$LINENO: checking how to hardcode library paths into programs" >&5 +echo $ECHO_N "checking how to hardcode library paths into programs... $ECHO_C" >&6 +hardcode_action_GCJ= +if test -n "$hardcode_libdir_flag_spec_GCJ" || \ + test -n "$runpath_var_GCJ" || \ + test "X$hardcode_automatic_GCJ" = "Xyes" ; then + + # We can hardcode non-existant directories. + if test "$hardcode_direct_GCJ" != no && + # If the only mechanism to avoid hardcoding is shlibpath_var, we + # have to relink, otherwise we might link with an installed library + # when we should be linking with a yet-to-be-installed one + ## test "$_LT_AC_TAGVAR(hardcode_shlibpath_var, GCJ)" != no && + test "$hardcode_minus_L_GCJ" != no; then + # Linking always hardcodes the temporary library directory. + hardcode_action_GCJ=relink + else + # We can link without hardcoding, and we can hardcode nonexisting dirs. + hardcode_action_GCJ=immediate + fi +else + # We cannot hardcode anything, or else we can only hardcode existing + # directories. + hardcode_action_GCJ=unsupported +fi +echo "$as_me:$LINENO: result: $hardcode_action_GCJ" >&5 +echo "${ECHO_T}$hardcode_action_GCJ" >&6 + +if test "$hardcode_action_GCJ" = relink; then + # Fast installation is not supported + enable_fast_install=no +elif test "$shlibpath_overrides_runpath" = yes || + test "$enable_shared" = no; then + # Fast installation is not necessary + enable_fast_install=needless +fi + +striplib= +old_striplib= +echo "$as_me:$LINENO: checking whether stripping libraries is possible" >&5 +echo $ECHO_N "checking whether stripping libraries is possible... $ECHO_C" >&6 +if test -n "$STRIP" && $STRIP -V 2>&1 | grep "GNU strip" >/dev/null; then + test -z "$old_striplib" && old_striplib="$STRIP --strip-debug" + test -z "$striplib" && striplib="$STRIP --strip-unneeded" + echo "$as_me:$LINENO: result: yes" >&5 +echo "${ECHO_T}yes" >&6 +else +# FIXME - insert some real tests, host_os isn't really good enough + case $host_os in + darwin*) + if test -n "$STRIP" ; then + striplib="$STRIP -x" + echo "$as_me:$LINENO: result: yes" >&5 +echo "${ECHO_T}yes" >&6 + else + echo "$as_me:$LINENO: result: no" >&5 +echo "${ECHO_T}no" >&6 +fi + ;; + *) + echo "$as_me:$LINENO: result: no" >&5 +echo "${ECHO_T}no" >&6 + ;; + esac +fi + +if test "x$enable_dlopen" != xyes; then + enable_dlopen=unknown + enable_dlopen_self=unknown + enable_dlopen_self_static=unknown +else + lt_cv_dlopen=no + lt_cv_dlopen_libs= + + case $host_os in + beos*) + lt_cv_dlopen="load_add_on" + lt_cv_dlopen_libs= + lt_cv_dlopen_self=yes + ;; + + mingw* | pw32*) + lt_cv_dlopen="LoadLibrary" + lt_cv_dlopen_libs= + ;; + + cygwin*) + lt_cv_dlopen="dlopen" + lt_cv_dlopen_libs= + ;; + + darwin*) + # if libdl is installed we need to link against it + echo "$as_me:$LINENO: checking for dlopen in -ldl" >&5 +echo $ECHO_N "checking for dlopen in -ldl... $ECHO_C" >&6 +if test "${ac_cv_lib_dl_dlopen+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + ac_check_lib_save_LIBS=$LIBS +LIBS="-ldl $LIBS" +cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ + +/* Override any gcc2 internal prototype to avoid an error. */ +#ifdef __cplusplus +extern "C" +#endif +/* We use char because int might match the return type of a gcc2 + builtin and then its argument prototype would still apply. */ +char dlopen (); +int +main () +{ +dlopen (); + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext conftest$ac_exeext +if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest$ac_exeext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + ac_cv_lib_dl_dlopen=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_cv_lib_dl_dlopen=no +fi +rm -f conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +LIBS=$ac_check_lib_save_LIBS +fi +echo "$as_me:$LINENO: result: $ac_cv_lib_dl_dlopen" >&5 +echo "${ECHO_T}$ac_cv_lib_dl_dlopen" >&6 +if test $ac_cv_lib_dl_dlopen = yes; then + lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-ldl" +else + + lt_cv_dlopen="dyld" + lt_cv_dlopen_libs= + lt_cv_dlopen_self=yes + +fi + + ;; + + *) + echo "$as_me:$LINENO: checking for shl_load" >&5 +echo $ECHO_N "checking for shl_load... $ECHO_C" >&6 +if test "${ac_cv_func_shl_load+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +/* Define shl_load to an innocuous variant, in case declares shl_load. + For example, HP-UX 11i declares gettimeofday. */ +#define shl_load innocuous_shl_load + +/* System header to define __stub macros and hopefully few prototypes, + which can conflict with char shl_load (); below. + Prefer to if __STDC__ is defined, since + exists even on freestanding compilers. */ + +#ifdef __STDC__ +# include +#else +# include +#endif + +#undef shl_load + +/* Override any gcc2 internal prototype to avoid an error. */ +#ifdef __cplusplus +extern "C" +{ +#endif +/* We use char because int might match the return type of a gcc2 + builtin and then its argument prototype would still apply. */ +char shl_load (); +/* The GNU C library defines this for functions which it implements + to always fail with ENOSYS. Some functions are actually named + something starting with __ and the normal name is an alias. */ +#if defined (__stub_shl_load) || defined (__stub___shl_load) +choke me +#else +char (*f) () = shl_load; +#endif +#ifdef __cplusplus +} +#endif + +int +main () +{ +return f != shl_load; + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext conftest$ac_exeext +if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest$ac_exeext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + ac_cv_func_shl_load=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_cv_func_shl_load=no +fi +rm -f conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +fi +echo "$as_me:$LINENO: result: $ac_cv_func_shl_load" >&5 +echo "${ECHO_T}$ac_cv_func_shl_load" >&6 +if test $ac_cv_func_shl_load = yes; then + lt_cv_dlopen="shl_load" +else + echo "$as_me:$LINENO: checking for shl_load in -ldld" >&5 +echo $ECHO_N "checking for shl_load in -ldld... $ECHO_C" >&6 +if test "${ac_cv_lib_dld_shl_load+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + ac_check_lib_save_LIBS=$LIBS +LIBS="-ldld $LIBS" +cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ + +/* Override any gcc2 internal prototype to avoid an error. */ +#ifdef __cplusplus +extern "C" +#endif +/* We use char because int might match the return type of a gcc2 + builtin and then its argument prototype would still apply. */ +char shl_load (); +int +main () +{ +shl_load (); + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext conftest$ac_exeext +if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest$ac_exeext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + ac_cv_lib_dld_shl_load=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_cv_lib_dld_shl_load=no +fi +rm -f conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +LIBS=$ac_check_lib_save_LIBS +fi +echo "$as_me:$LINENO: result: $ac_cv_lib_dld_shl_load" >&5 +echo "${ECHO_T}$ac_cv_lib_dld_shl_load" >&6 +if test $ac_cv_lib_dld_shl_load = yes; then + lt_cv_dlopen="shl_load" lt_cv_dlopen_libs="-dld" +else + echo "$as_me:$LINENO: checking for dlopen" >&5 +echo $ECHO_N "checking for dlopen... $ECHO_C" >&6 +if test "${ac_cv_func_dlopen+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +/* Define dlopen to an innocuous variant, in case declares dlopen. + For example, HP-UX 11i declares gettimeofday. */ +#define dlopen innocuous_dlopen + +/* System header to define __stub macros and hopefully few prototypes, + which can conflict with char dlopen (); below. + Prefer to if __STDC__ is defined, since + exists even on freestanding compilers. */ + +#ifdef __STDC__ +# include +#else +# include +#endif + +#undef dlopen + +/* Override any gcc2 internal prototype to avoid an error. */ +#ifdef __cplusplus +extern "C" +{ +#endif +/* We use char because int might match the return type of a gcc2 + builtin and then its argument prototype would still apply. */ +char dlopen (); +/* The GNU C library defines this for functions which it implements + to always fail with ENOSYS. Some functions are actually named + something starting with __ and the normal name is an alias. */ +#if defined (__stub_dlopen) || defined (__stub___dlopen) +choke me +#else +char (*f) () = dlopen; +#endif +#ifdef __cplusplus +} +#endif + +int +main () +{ +return f != dlopen; + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext conftest$ac_exeext +if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest$ac_exeext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + ac_cv_func_dlopen=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_cv_func_dlopen=no +fi +rm -f conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +fi +echo "$as_me:$LINENO: result: $ac_cv_func_dlopen" >&5 +echo "${ECHO_T}$ac_cv_func_dlopen" >&6 +if test $ac_cv_func_dlopen = yes; then + lt_cv_dlopen="dlopen" +else + echo "$as_me:$LINENO: checking for dlopen in -ldl" >&5 +echo $ECHO_N "checking for dlopen in -ldl... $ECHO_C" >&6 +if test "${ac_cv_lib_dl_dlopen+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + ac_check_lib_save_LIBS=$LIBS +LIBS="-ldl $LIBS" +cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ + +/* Override any gcc2 internal prototype to avoid an error. */ +#ifdef __cplusplus +extern "C" +#endif +/* We use char because int might match the return type of a gcc2 + builtin and then its argument prototype would still apply. */ +char dlopen (); +int +main () +{ +dlopen (); + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext conftest$ac_exeext +if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest$ac_exeext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + ac_cv_lib_dl_dlopen=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_cv_lib_dl_dlopen=no +fi +rm -f conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +LIBS=$ac_check_lib_save_LIBS +fi +echo "$as_me:$LINENO: result: $ac_cv_lib_dl_dlopen" >&5 +echo "${ECHO_T}$ac_cv_lib_dl_dlopen" >&6 +if test $ac_cv_lib_dl_dlopen = yes; then + lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-ldl" +else + echo "$as_me:$LINENO: checking for dlopen in -lsvld" >&5 +echo $ECHO_N "checking for dlopen in -lsvld... $ECHO_C" >&6 +if test "${ac_cv_lib_svld_dlopen+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + ac_check_lib_save_LIBS=$LIBS +LIBS="-lsvld $LIBS" +cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ + +/* Override any gcc2 internal prototype to avoid an error. */ +#ifdef __cplusplus +extern "C" +#endif +/* We use char because int might match the return type of a gcc2 + builtin and then its argument prototype would still apply. */ +char dlopen (); +int +main () +{ +dlopen (); + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext conftest$ac_exeext +if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest$ac_exeext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + ac_cv_lib_svld_dlopen=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_cv_lib_svld_dlopen=no +fi +rm -f conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +LIBS=$ac_check_lib_save_LIBS +fi +echo "$as_me:$LINENO: result: $ac_cv_lib_svld_dlopen" >&5 +echo "${ECHO_T}$ac_cv_lib_svld_dlopen" >&6 +if test $ac_cv_lib_svld_dlopen = yes; then + lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-lsvld" +else + echo "$as_me:$LINENO: checking for dld_link in -ldld" >&5 +echo $ECHO_N "checking for dld_link in -ldld... $ECHO_C" >&6 +if test "${ac_cv_lib_dld_dld_link+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + ac_check_lib_save_LIBS=$LIBS +LIBS="-ldld $LIBS" +cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ + +/* Override any gcc2 internal prototype to avoid an error. */ +#ifdef __cplusplus +extern "C" +#endif +/* We use char because int might match the return type of a gcc2 + builtin and then its argument prototype would still apply. */ +char dld_link (); +int +main () +{ +dld_link (); + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext conftest$ac_exeext +if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest$ac_exeext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + ac_cv_lib_dld_dld_link=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_cv_lib_dld_dld_link=no +fi +rm -f conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +LIBS=$ac_check_lib_save_LIBS +fi +echo "$as_me:$LINENO: result: $ac_cv_lib_dld_dld_link" >&5 +echo "${ECHO_T}$ac_cv_lib_dld_dld_link" >&6 +if test $ac_cv_lib_dld_dld_link = yes; then + lt_cv_dlopen="dld_link" lt_cv_dlopen_libs="-dld" +fi + + +fi + + +fi + + +fi + + +fi + + +fi + + ;; + esac + + if test "x$lt_cv_dlopen" != xno; then + enable_dlopen=yes + else + enable_dlopen=no + fi + + case $lt_cv_dlopen in + dlopen) + save_CPPFLAGS="$CPPFLAGS" + test "x$ac_cv_header_dlfcn_h" = xyes && CPPFLAGS="$CPPFLAGS -DHAVE_DLFCN_H" + + save_LDFLAGS="$LDFLAGS" + eval LDFLAGS=\"\$LDFLAGS $export_dynamic_flag_spec\" + + save_LIBS="$LIBS" + LIBS="$lt_cv_dlopen_libs $LIBS" + + echo "$as_me:$LINENO: checking whether a program can dlopen itself" >&5 +echo $ECHO_N "checking whether a program can dlopen itself... $ECHO_C" >&6 +if test "${lt_cv_dlopen_self+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + if test "$cross_compiling" = yes; then : + lt_cv_dlopen_self=cross +else + lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2 + lt_status=$lt_dlunknown + cat > conftest.$ac_ext < +#endif + +#include + +#ifdef RTLD_GLOBAL +# define LT_DLGLOBAL RTLD_GLOBAL +#else +# ifdef DL_GLOBAL +# define LT_DLGLOBAL DL_GLOBAL +# else +# define LT_DLGLOBAL 0 +# endif +#endif + +/* We may have to define LT_DLLAZY_OR_NOW in the command line if we + find out it does not work in some platform. */ +#ifndef LT_DLLAZY_OR_NOW +# ifdef RTLD_LAZY +# define LT_DLLAZY_OR_NOW RTLD_LAZY +# else +# ifdef DL_LAZY +# define LT_DLLAZY_OR_NOW DL_LAZY +# else +# ifdef RTLD_NOW +# define LT_DLLAZY_OR_NOW RTLD_NOW +# else +# ifdef DL_NOW +# define LT_DLLAZY_OR_NOW DL_NOW +# else +# define LT_DLLAZY_OR_NOW 0 +# endif +# endif +# endif +# endif +#endif + +#ifdef __cplusplus +extern "C" void exit (int); +#endif + +void fnord() { int i=42;} +int main () +{ + void *self = dlopen (0, LT_DLGLOBAL|LT_DLLAZY_OR_NOW); + int status = $lt_dlunknown; + + if (self) + { + if (dlsym (self,"fnord")) status = $lt_dlno_uscore; + else if (dlsym( self,"_fnord")) status = $lt_dlneed_uscore; + /* dlclose (self); */ + } + + exit (status); +} +EOF + if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && test -s conftest${ac_exeext} 2>/dev/null; then + (./conftest; exit; ) 2>/dev/null + lt_status=$? + case x$lt_status in + x$lt_dlno_uscore) lt_cv_dlopen_self=yes ;; + x$lt_dlneed_uscore) lt_cv_dlopen_self=yes ;; + x$lt_unknown|x*) lt_cv_dlopen_self=no ;; + esac + else : + # compilation failed + lt_cv_dlopen_self=no + fi +fi +rm -fr conftest* + + +fi +echo "$as_me:$LINENO: result: $lt_cv_dlopen_self" >&5 +echo "${ECHO_T}$lt_cv_dlopen_self" >&6 + + if test "x$lt_cv_dlopen_self" = xyes; then + LDFLAGS="$LDFLAGS $link_static_flag" + echo "$as_me:$LINENO: checking whether a statically linked program can dlopen itself" >&5 +echo $ECHO_N "checking whether a statically linked program can dlopen itself... $ECHO_C" >&6 +if test "${lt_cv_dlopen_self_static+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + if test "$cross_compiling" = yes; then : + lt_cv_dlopen_self_static=cross +else + lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2 + lt_status=$lt_dlunknown + cat > conftest.$ac_ext < +#endif + +#include + +#ifdef RTLD_GLOBAL +# define LT_DLGLOBAL RTLD_GLOBAL +#else +# ifdef DL_GLOBAL +# define LT_DLGLOBAL DL_GLOBAL +# else +# define LT_DLGLOBAL 0 +# endif +#endif + +/* We may have to define LT_DLLAZY_OR_NOW in the command line if we + find out it does not work in some platform. */ +#ifndef LT_DLLAZY_OR_NOW +# ifdef RTLD_LAZY +# define LT_DLLAZY_OR_NOW RTLD_LAZY +# else +# ifdef DL_LAZY +# define LT_DLLAZY_OR_NOW DL_LAZY +# else +# ifdef RTLD_NOW +# define LT_DLLAZY_OR_NOW RTLD_NOW +# else +# ifdef DL_NOW +# define LT_DLLAZY_OR_NOW DL_NOW +# else +# define LT_DLLAZY_OR_NOW 0 +# endif +# endif +# endif +# endif +#endif + +#ifdef __cplusplus +extern "C" void exit (int); +#endif + +void fnord() { int i=42;} +int main () +{ + void *self = dlopen (0, LT_DLGLOBAL|LT_DLLAZY_OR_NOW); + int status = $lt_dlunknown; + + if (self) + { + if (dlsym (self,"fnord")) status = $lt_dlno_uscore; + else if (dlsym( self,"_fnord")) status = $lt_dlneed_uscore; + /* dlclose (self); */ + } + + exit (status); +} +EOF + if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && test -s conftest${ac_exeext} 2>/dev/null; then + (./conftest; exit; ) 2>/dev/null + lt_status=$? + case x$lt_status in + x$lt_dlno_uscore) lt_cv_dlopen_self_static=yes ;; + x$lt_dlneed_uscore) lt_cv_dlopen_self_static=yes ;; + x$lt_unknown|x*) lt_cv_dlopen_self_static=no ;; + esac + else : + # compilation failed + lt_cv_dlopen_self_static=no + fi +fi +rm -fr conftest* + + +fi +echo "$as_me:$LINENO: result: $lt_cv_dlopen_self_static" >&5 +echo "${ECHO_T}$lt_cv_dlopen_self_static" >&6 + fi + + CPPFLAGS="$save_CPPFLAGS" + LDFLAGS="$save_LDFLAGS" + LIBS="$save_LIBS" + ;; + esac + + case $lt_cv_dlopen_self in + yes|no) enable_dlopen_self=$lt_cv_dlopen_self ;; + *) enable_dlopen_self=unknown ;; + esac + + case $lt_cv_dlopen_self_static in + yes|no) enable_dlopen_self_static=$lt_cv_dlopen_self_static ;; + *) enable_dlopen_self_static=unknown ;; + esac +fi + + +# The else clause should only fire when bootstrapping the +# libtool distribution, otherwise you forgot to ship ltmain.sh +# with your package, and you will get complaints that there are +# no rules to generate ltmain.sh. +if test -f "$ltmain"; then + # See if we are running on zsh, and set the options which allow our commands through + # without removal of \ escapes. + if test -n "${ZSH_VERSION+set}" ; then + setopt NO_GLOB_SUBST + fi + # Now quote all the things that may contain metacharacters while being + # careful not to overquote the AC_SUBSTed values. We take copies of the + # variables and quote the copies for generation of the libtool script. + for var in echo old_CC old_CFLAGS AR AR_FLAGS EGREP RANLIB LN_S LTCC NM \ + SED SHELL STRIP \ + libname_spec library_names_spec soname_spec extract_expsyms_cmds \ + old_striplib striplib file_magic_cmd finish_cmds finish_eval \ + deplibs_check_method reload_flag reload_cmds need_locks \ + lt_cv_sys_global_symbol_pipe lt_cv_sys_global_symbol_to_cdecl \ + lt_cv_sys_global_symbol_to_c_name_address \ + sys_lib_search_path_spec sys_lib_dlsearch_path_spec \ + old_postinstall_cmds old_postuninstall_cmds \ + compiler_GCJ \ + CC_GCJ \ + LD_GCJ \ + lt_prog_compiler_wl_GCJ \ + lt_prog_compiler_pic_GCJ \ + lt_prog_compiler_static_GCJ \ + lt_prog_compiler_no_builtin_flag_GCJ \ + export_dynamic_flag_spec_GCJ \ + thread_safe_flag_spec_GCJ \ + whole_archive_flag_spec_GCJ \ + enable_shared_with_static_runtimes_GCJ \ + old_archive_cmds_GCJ \ + old_archive_from_new_cmds_GCJ \ + predep_objects_GCJ \ + postdep_objects_GCJ \ + predeps_GCJ \ + postdeps_GCJ \ + compiler_lib_search_path_GCJ \ + archive_cmds_GCJ \ + archive_expsym_cmds_GCJ \ + postinstall_cmds_GCJ \ + postuninstall_cmds_GCJ \ + old_archive_from_expsyms_cmds_GCJ \ + allow_undefined_flag_GCJ \ + no_undefined_flag_GCJ \ + export_symbols_cmds_GCJ \ + hardcode_libdir_flag_spec_GCJ \ + hardcode_libdir_flag_spec_ld_GCJ \ + hardcode_libdir_separator_GCJ \ + hardcode_automatic_GCJ \ + module_cmds_GCJ \ + module_expsym_cmds_GCJ \ + lt_cv_prog_compiler_c_o_GCJ \ + exclude_expsyms_GCJ \ + include_expsyms_GCJ; do + + case $var in + old_archive_cmds_GCJ | \ + old_archive_from_new_cmds_GCJ | \ + archive_cmds_GCJ | \ + archive_expsym_cmds_GCJ | \ + module_cmds_GCJ | \ + module_expsym_cmds_GCJ | \ + old_archive_from_expsyms_cmds_GCJ | \ + export_symbols_cmds_GCJ | \ + extract_expsyms_cmds | reload_cmds | finish_cmds | \ + postinstall_cmds | postuninstall_cmds | \ + old_postinstall_cmds | old_postuninstall_cmds | \ + sys_lib_search_path_spec | sys_lib_dlsearch_path_spec) + # Double-quote double-evaled strings. + eval "lt_$var=\\\"\`\$echo \"X\$$var\" | \$Xsed -e \"\$double_quote_subst\" -e \"\$sed_quote_subst\" -e \"\$delay_variable_subst\"\`\\\"" + ;; + *) + eval "lt_$var=\\\"\`\$echo \"X\$$var\" | \$Xsed -e \"\$sed_quote_subst\"\`\\\"" + ;; + esac + done + + case $lt_echo in + *'\$0 --fallback-echo"') + lt_echo=`$echo "X$lt_echo" | $Xsed -e 's/\\\\\\\$0 --fallback-echo"$/$0 --fallback-echo"/'` + ;; + esac + +cfgfile="$ofile" + + cat <<__EOF__ >> "$cfgfile" +# ### BEGIN LIBTOOL TAG CONFIG: $tagname + +# Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: + +# Shell to use when invoking shell scripts. +SHELL=$lt_SHELL + +# Whether or not to build shared libraries. +build_libtool_libs=$enable_shared + +# Whether or not to build static libraries. +build_old_libs=$enable_static + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_GCJ + +# Whether or not to disallow shared libs when runtime libs are static +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_GCJ + +# Whether or not to optimize for fast installation. +fast_install=$enable_fast_install + +# The host system. +host_alias=$host_alias +host=$host +host_os=$host_os + +# The build system. +build_alias=$build_alias +build=$build +build_os=$build_os + +# An echo program that does not interpret backslashes. +echo=$lt_echo + +# The archiver. +AR=$lt_AR +AR_FLAGS=$lt_AR_FLAGS + +# A C compiler. +LTCC=$lt_LTCC + +# A language-specific compiler. +CC=$lt_compiler_GCJ + +# Is the compiler the GNU C compiler? +with_gcc=$GCC_GCJ + +# An ERE matcher. +EGREP=$lt_EGREP + +# The linker used to build libraries. +LD=$lt_LD_GCJ + +# Whether we need hard or soft links. +LN_S=$lt_LN_S + +# A BSD-compatible nm program. +NM=$lt_NM + +# A symbol stripping program +STRIP=$lt_STRIP + +# Used to examine libraries when file_magic_cmd begins "file" +MAGIC_CMD=$MAGIC_CMD + +# Used on cygwin: DLL creation program. +DLLTOOL="$DLLTOOL" + +# Used on cygwin: object dumper. +OBJDUMP="$OBJDUMP" + +# Used on cygwin: assembler. +AS="$AS" + +# The name of the directory that contains temporary libtool files. +objdir=$objdir + +# How to create reloadable object files. +reload_flag=$lt_reload_flag +reload_cmds=$lt_reload_cmds + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_GCJ + +# Object file suffix (normally "o"). +objext="$ac_objext" + +# Old archive suffix (normally "a"). +libext="$libext" + +# Shared library suffix (normally ".so"). +shrext_cmds='$shrext_cmds' + +# Executable file suffix (normally ""). +exeext="$exeext" + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_GCJ +pic_mode=$pic_mode + +# What is the maximum length of a command? +max_cmd_len=$lt_cv_sys_max_cmd_len + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_GCJ + +# Must we lock files when doing compilation? +need_locks=$lt_need_locks + +# Do we need the lib prefix for modules? +need_lib_prefix=$need_lib_prefix + +# Do we need a version for libraries? +need_version=$need_version + +# Whether dlopen is supported. +dlopen_support=$enable_dlopen + +# Whether dlopen of programs is supported. +dlopen_self=$enable_dlopen_self + +# Whether dlopen of statically linked programs is supported. +dlopen_self_static=$enable_dlopen_self_static + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_GCJ + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_GCJ + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_GCJ + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_GCJ + +# Compiler flag to generate thread-safe objects. +thread_safe_flag_spec=$lt_thread_safe_flag_spec_GCJ + +# Library versioning type. +version_type=$version_type + +# Format of library name prefix. +libname_spec=$lt_libname_spec + +# List of archive names. First name is the real one, the rest are links. +# The last name is the one that the linker finds with -lNAME. +library_names_spec=$lt_library_names_spec + +# The coded name of the library, if different from the real name. +soname_spec=$lt_soname_spec + +# Commands used to build and install an old-style archive. +RANLIB=$lt_RANLIB +old_archive_cmds=$lt_old_archive_cmds_GCJ +old_postinstall_cmds=$lt_old_postinstall_cmds +old_postuninstall_cmds=$lt_old_postuninstall_cmds + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_GCJ + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_GCJ + +# Commands used to build and install a shared archive. +archive_cmds=$lt_archive_cmds_GCJ +archive_expsym_cmds=$lt_archive_expsym_cmds_GCJ +postinstall_cmds=$lt_postinstall_cmds +postuninstall_cmds=$lt_postuninstall_cmds + +# Commands used to build a loadable module (assumed same as above if empty) +module_cmds=$lt_module_cmds_GCJ +module_expsym_cmds=$lt_module_expsym_cmds_GCJ + +# Commands to strip libraries. +old_striplib=$lt_old_striplib +striplib=$lt_striplib + +# Dependencies to place before the objects being linked to create a +# shared library. +predep_objects=$lt_predep_objects_GCJ + +# Dependencies to place after the objects being linked to create a +# shared library. +postdep_objects=$lt_postdep_objects_GCJ + +# Dependencies to place before the objects being linked to create a +# shared library. +predeps=$lt_predeps_GCJ + +# Dependencies to place after the objects being linked to create a +# shared library. +postdeps=$lt_postdeps_GCJ + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_GCJ + +# Method to check whether dependent libraries are shared objects. +deplibs_check_method=$lt_deplibs_check_method + +# Command to use when deplibs_check_method == file_magic. +file_magic_cmd=$lt_file_magic_cmd + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_GCJ + +# Flag that forces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_GCJ + +# Commands used to finish a libtool library installation in a directory. +finish_cmds=$lt_finish_cmds + +# Same as above, but a single script fragment to be evaled but not shown. +finish_eval=$lt_finish_eval + +# Take the output of nm and produce a listing of raw symbols and C names. +global_symbol_pipe=$lt_lt_cv_sys_global_symbol_pipe + +# Transform the output of nm in a proper C declaration +global_symbol_to_cdecl=$lt_lt_cv_sys_global_symbol_to_cdecl + +# Transform the output of nm in a C name address pair +global_symbol_to_c_name_address=$lt_lt_cv_sys_global_symbol_to_c_name_address + +# This is the shared library runtime path variable. +runpath_var=$runpath_var + +# This is the shared library path variable. +shlibpath_var=$shlibpath_var + +# Is shlibpath searched before the hard-coded library search path? +shlibpath_overrides_runpath=$shlibpath_overrides_runpath + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_GCJ + +# Whether we should hardcode library paths into libraries. +hardcode_into_libs=$hardcode_into_libs + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist. +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_GCJ + +# If ld is used when linking, flag to hardcode \$libdir into +# a binary during linking. This must work even if \$libdir does +# not exist. +hardcode_libdir_flag_spec_ld=$lt_hardcode_libdir_flag_spec_ld_GCJ + +# Whether we need a single -rpath flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_GCJ + +# Set to yes if using DIR/libNAME${shared_ext} during linking hardcodes DIR into the +# resulting binary. +hardcode_direct=$hardcode_direct_GCJ + +# Set to yes if using the -LDIR flag during linking hardcodes DIR into the +# resulting binary. +hardcode_minus_L=$hardcode_minus_L_GCJ + +# Set to yes if using SHLIBPATH_VAR=DIR during linking hardcodes DIR into +# the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_GCJ + +# Set to yes if building a shared library automatically hardcodes DIR into the library +# and all subsequent libraries and executables linked against it. +hardcode_automatic=$hardcode_automatic_GCJ + +# Variables whose values should be saved in libtool wrapper scripts and +# restored at relink time. +variables_saved_for_relink="$variables_saved_for_relink" + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_GCJ + +# Compile-time system search path for libraries +sys_lib_search_path_spec=$lt_sys_lib_search_path_spec + +# Run-time system search path for libraries +sys_lib_dlsearch_path_spec=$lt_sys_lib_dlsearch_path_spec + +# Fix the shell variable \$srcfile for the compiler. +fix_srcfile_path="$fix_srcfile_path_GCJ" + +# Set to yes if exported symbols are required. +always_export_symbols=$always_export_symbols_GCJ + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_GCJ + +# The commands to extract the exported symbol list from a shared archive. +extract_expsyms_cmds=$lt_extract_expsyms_cmds + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_GCJ + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_GCJ + +# ### END LIBTOOL TAG CONFIG: $tagname + +__EOF__ + + +else + # If there is no Makefile yet, we rely on a make rule to execute + # `config.status --recheck' to rerun these tests and create the + # libtool script then. + ltmain_in=`echo $ltmain | sed -e 's/\.sh$/.in/'` + if test -f "$ltmain_in"; then + test -f Makefile && make "$ltmain" + fi +fi + + +ac_ext=c +ac_cpp='$CPP $CPPFLAGS' +ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_c_compiler_gnu + +CC="$lt_save_CC" + + else + tagname="" + fi + ;; + + RC) + + + +# Source file extension for RC test sources. +ac_ext=rc + +# Object file extension for compiled RC test sources. +objext=o +objext_RC=$objext + +# Code to be used in simple compile tests +lt_simple_compile_test_code='sample MENU { MENUITEM "&Soup", 100, CHECKED }\n' + +# Code to be used in simple link tests +lt_simple_link_test_code="$lt_simple_compile_test_code" + +# ltmain only uses $CC for tagged configurations so make sure $CC is set. + +# If no C compiler was specified, use CC. +LTCC=${LTCC-"$CC"} + +# Allow CC to be a program name with arguments. +compiler=$CC + + +# save warnings/boilerplate of simple test code +ac_outfile=conftest.$ac_objext +printf "$lt_simple_compile_test_code" >conftest.$ac_ext +eval "$ac_compile" 2>&1 >/dev/null | $SED '/^$/d' >conftest.err +_lt_compiler_boilerplate=`cat conftest.err` +$rm conftest* + +ac_outfile=conftest.$ac_objext +printf "$lt_simple_link_test_code" >conftest.$ac_ext +eval "$ac_link" 2>&1 >/dev/null | $SED '/^$/d' >conftest.err +_lt_linker_boilerplate=`cat conftest.err` +$rm conftest* + + +# Allow CC to be a program name with arguments. +lt_save_CC="$CC" +CC=${RC-"windres"} +compiler=$CC +compiler_RC=$CC +for cc_temp in $compiler""; do + case $cc_temp in + compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; + distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; + \-*) ;; + *) break;; + esac +done +cc_basename=`$echo "X$cc_temp" | $Xsed -e 's%.*/%%' -e "s%^$host_alias-%%"` + +lt_cv_prog_compiler_c_o_RC=yes + +# The else clause should only fire when bootstrapping the +# libtool distribution, otherwise you forgot to ship ltmain.sh +# with your package, and you will get complaints that there are +# no rules to generate ltmain.sh. +if test -f "$ltmain"; then + # See if we are running on zsh, and set the options which allow our commands through + # without removal of \ escapes. + if test -n "${ZSH_VERSION+set}" ; then + setopt NO_GLOB_SUBST + fi + # Now quote all the things that may contain metacharacters while being + # careful not to overquote the AC_SUBSTed values. We take copies of the + # variables and quote the copies for generation of the libtool script. + for var in echo old_CC old_CFLAGS AR AR_FLAGS EGREP RANLIB LN_S LTCC NM \ + SED SHELL STRIP \ + libname_spec library_names_spec soname_spec extract_expsyms_cmds \ + old_striplib striplib file_magic_cmd finish_cmds finish_eval \ + deplibs_check_method reload_flag reload_cmds need_locks \ + lt_cv_sys_global_symbol_pipe lt_cv_sys_global_symbol_to_cdecl \ + lt_cv_sys_global_symbol_to_c_name_address \ + sys_lib_search_path_spec sys_lib_dlsearch_path_spec \ + old_postinstall_cmds old_postuninstall_cmds \ + compiler_RC \ + CC_RC \ + LD_RC \ + lt_prog_compiler_wl_RC \ + lt_prog_compiler_pic_RC \ + lt_prog_compiler_static_RC \ + lt_prog_compiler_no_builtin_flag_RC \ + export_dynamic_flag_spec_RC \ + thread_safe_flag_spec_RC \ + whole_archive_flag_spec_RC \ + enable_shared_with_static_runtimes_RC \ + old_archive_cmds_RC \ + old_archive_from_new_cmds_RC \ + predep_objects_RC \ + postdep_objects_RC \ + predeps_RC \ + postdeps_RC \ + compiler_lib_search_path_RC \ + archive_cmds_RC \ + archive_expsym_cmds_RC \ + postinstall_cmds_RC \ + postuninstall_cmds_RC \ + old_archive_from_expsyms_cmds_RC \ + allow_undefined_flag_RC \ + no_undefined_flag_RC \ + export_symbols_cmds_RC \ + hardcode_libdir_flag_spec_RC \ + hardcode_libdir_flag_spec_ld_RC \ + hardcode_libdir_separator_RC \ + hardcode_automatic_RC \ + module_cmds_RC \ + module_expsym_cmds_RC \ + lt_cv_prog_compiler_c_o_RC \ + exclude_expsyms_RC \ + include_expsyms_RC; do + + case $var in + old_archive_cmds_RC | \ + old_archive_from_new_cmds_RC | \ + archive_cmds_RC | \ + archive_expsym_cmds_RC | \ + module_cmds_RC | \ + module_expsym_cmds_RC | \ + old_archive_from_expsyms_cmds_RC | \ + export_symbols_cmds_RC | \ + extract_expsyms_cmds | reload_cmds | finish_cmds | \ + postinstall_cmds | postuninstall_cmds | \ + old_postinstall_cmds | old_postuninstall_cmds | \ + sys_lib_search_path_spec | sys_lib_dlsearch_path_spec) + # Double-quote double-evaled strings. + eval "lt_$var=\\\"\`\$echo \"X\$$var\" | \$Xsed -e \"\$double_quote_subst\" -e \"\$sed_quote_subst\" -e \"\$delay_variable_subst\"\`\\\"" + ;; + *) + eval "lt_$var=\\\"\`\$echo \"X\$$var\" | \$Xsed -e \"\$sed_quote_subst\"\`\\\"" + ;; + esac + done + + case $lt_echo in + *'\$0 --fallback-echo"') + lt_echo=`$echo "X$lt_echo" | $Xsed -e 's/\\\\\\\$0 --fallback-echo"$/$0 --fallback-echo"/'` + ;; + esac + +cfgfile="$ofile" + + cat <<__EOF__ >> "$cfgfile" +# ### BEGIN LIBTOOL TAG CONFIG: $tagname + +# Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: + +# Shell to use when invoking shell scripts. +SHELL=$lt_SHELL + +# Whether or not to build shared libraries. +build_libtool_libs=$enable_shared + +# Whether or not to build static libraries. +build_old_libs=$enable_static + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_RC + +# Whether or not to disallow shared libs when runtime libs are static +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_RC + +# Whether or not to optimize for fast installation. +fast_install=$enable_fast_install + +# The host system. +host_alias=$host_alias +host=$host +host_os=$host_os + +# The build system. +build_alias=$build_alias +build=$build +build_os=$build_os + +# An echo program that does not interpret backslashes. +echo=$lt_echo + +# The archiver. +AR=$lt_AR +AR_FLAGS=$lt_AR_FLAGS + +# A C compiler. +LTCC=$lt_LTCC + +# A language-specific compiler. +CC=$lt_compiler_RC + +# Is the compiler the GNU C compiler? +with_gcc=$GCC_RC + +# An ERE matcher. +EGREP=$lt_EGREP + +# The linker used to build libraries. +LD=$lt_LD_RC + +# Whether we need hard or soft links. +LN_S=$lt_LN_S + +# A BSD-compatible nm program. +NM=$lt_NM + +# A symbol stripping program +STRIP=$lt_STRIP + +# Used to examine libraries when file_magic_cmd begins "file" +MAGIC_CMD=$MAGIC_CMD + +# Used on cygwin: DLL creation program. +DLLTOOL="$DLLTOOL" + +# Used on cygwin: object dumper. +OBJDUMP="$OBJDUMP" + +# Used on cygwin: assembler. +AS="$AS" + +# The name of the directory that contains temporary libtool files. +objdir=$objdir + +# How to create reloadable object files. +reload_flag=$lt_reload_flag +reload_cmds=$lt_reload_cmds + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_RC + +# Object file suffix (normally "o"). +objext="$ac_objext" + +# Old archive suffix (normally "a"). +libext="$libext" + +# Shared library suffix (normally ".so"). +shrext_cmds='$shrext_cmds' + +# Executable file suffix (normally ""). +exeext="$exeext" + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_RC +pic_mode=$pic_mode + +# What is the maximum length of a command? +max_cmd_len=$lt_cv_sys_max_cmd_len + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_RC + +# Must we lock files when doing compilation? +need_locks=$lt_need_locks + +# Do we need the lib prefix for modules? +need_lib_prefix=$need_lib_prefix + +# Do we need a version for libraries? +need_version=$need_version + +# Whether dlopen is supported. +dlopen_support=$enable_dlopen + +# Whether dlopen of programs is supported. +dlopen_self=$enable_dlopen_self + +# Whether dlopen of statically linked programs is supported. +dlopen_self_static=$enable_dlopen_self_static + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_RC + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_RC + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_RC + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_RC + +# Compiler flag to generate thread-safe objects. +thread_safe_flag_spec=$lt_thread_safe_flag_spec_RC + +# Library versioning type. +version_type=$version_type + +# Format of library name prefix. +libname_spec=$lt_libname_spec + +# List of archive names. First name is the real one, the rest are links. +# The last name is the one that the linker finds with -lNAME. +library_names_spec=$lt_library_names_spec + +# The coded name of the library, if different from the real name. +soname_spec=$lt_soname_spec + +# Commands used to build and install an old-style archive. +RANLIB=$lt_RANLIB +old_archive_cmds=$lt_old_archive_cmds_RC +old_postinstall_cmds=$lt_old_postinstall_cmds +old_postuninstall_cmds=$lt_old_postuninstall_cmds + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_RC + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_RC + +# Commands used to build and install a shared archive. +archive_cmds=$lt_archive_cmds_RC +archive_expsym_cmds=$lt_archive_expsym_cmds_RC +postinstall_cmds=$lt_postinstall_cmds +postuninstall_cmds=$lt_postuninstall_cmds + +# Commands used to build a loadable module (assumed same as above if empty) +module_cmds=$lt_module_cmds_RC +module_expsym_cmds=$lt_module_expsym_cmds_RC + +# Commands to strip libraries. +old_striplib=$lt_old_striplib +striplib=$lt_striplib + +# Dependencies to place before the objects being linked to create a +# shared library. +predep_objects=$lt_predep_objects_RC + +# Dependencies to place after the objects being linked to create a +# shared library. +postdep_objects=$lt_postdep_objects_RC + +# Dependencies to place before the objects being linked to create a +# shared library. +predeps=$lt_predeps_RC + +# Dependencies to place after the objects being linked to create a +# shared library. +postdeps=$lt_postdeps_RC + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_RC + +# Method to check whether dependent libraries are shared objects. +deplibs_check_method=$lt_deplibs_check_method + +# Command to use when deplibs_check_method == file_magic. +file_magic_cmd=$lt_file_magic_cmd + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_RC + +# Flag that forces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_RC + +# Commands used to finish a libtool library installation in a directory. +finish_cmds=$lt_finish_cmds + +# Same as above, but a single script fragment to be evaled but not shown. +finish_eval=$lt_finish_eval + +# Take the output of nm and produce a listing of raw symbols and C names. +global_symbol_pipe=$lt_lt_cv_sys_global_symbol_pipe + +# Transform the output of nm in a proper C declaration +global_symbol_to_cdecl=$lt_lt_cv_sys_global_symbol_to_cdecl + +# Transform the output of nm in a C name address pair +global_symbol_to_c_name_address=$lt_lt_cv_sys_global_symbol_to_c_name_address + +# This is the shared library runtime path variable. +runpath_var=$runpath_var + +# This is the shared library path variable. +shlibpath_var=$shlibpath_var + +# Is shlibpath searched before the hard-coded library search path? +shlibpath_overrides_runpath=$shlibpath_overrides_runpath + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_RC + +# Whether we should hardcode library paths into libraries. +hardcode_into_libs=$hardcode_into_libs + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist. +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_RC + +# If ld is used when linking, flag to hardcode \$libdir into +# a binary during linking. This must work even if \$libdir does +# not exist. +hardcode_libdir_flag_spec_ld=$lt_hardcode_libdir_flag_spec_ld_RC + +# Whether we need a single -rpath flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_RC + +# Set to yes if using DIR/libNAME${shared_ext} during linking hardcodes DIR into the +# resulting binary. +hardcode_direct=$hardcode_direct_RC + +# Set to yes if using the -LDIR flag during linking hardcodes DIR into the +# resulting binary. +hardcode_minus_L=$hardcode_minus_L_RC + +# Set to yes if using SHLIBPATH_VAR=DIR during linking hardcodes DIR into +# the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_RC + +# Set to yes if building a shared library automatically hardcodes DIR into the library +# and all subsequent libraries and executables linked against it. +hardcode_automatic=$hardcode_automatic_RC + +# Variables whose values should be saved in libtool wrapper scripts and +# restored at relink time. +variables_saved_for_relink="$variables_saved_for_relink" + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_RC + +# Compile-time system search path for libraries +sys_lib_search_path_spec=$lt_sys_lib_search_path_spec + +# Run-time system search path for libraries +sys_lib_dlsearch_path_spec=$lt_sys_lib_dlsearch_path_spec + +# Fix the shell variable \$srcfile for the compiler. +fix_srcfile_path="$fix_srcfile_path_RC" + +# Set to yes if exported symbols are required. +always_export_symbols=$always_export_symbols_RC + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_RC + +# The commands to extract the exported symbol list from a shared archive. +extract_expsyms_cmds=$lt_extract_expsyms_cmds + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_RC + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_RC + +# ### END LIBTOOL TAG CONFIG: $tagname + +__EOF__ + + +else + # If there is no Makefile yet, we rely on a make rule to execute + # `config.status --recheck' to rerun these tests and create the + # libtool script then. + ltmain_in=`echo $ltmain | sed -e 's/\.sh$/.in/'` + if test -f "$ltmain_in"; then + test -f Makefile && make "$ltmain" + fi +fi + + +ac_ext=c +ac_cpp='$CPP $CPPFLAGS' +ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_c_compiler_gnu + +CC="$lt_save_CC" + + ;; + + *) + { { echo "$as_me:$LINENO: error: Unsupported tag name: $tagname" >&5 +echo "$as_me: error: Unsupported tag name: $tagname" >&2;} + { (exit 1); exit 1; }; } + ;; + esac + + # Append the new tag name to the list of available tags. + if test -n "$tagname" ; then + available_tags="$available_tags $tagname" + fi + fi + done + IFS="$lt_save_ifs" + + # Now substitute the updated list of available tags. + if eval "sed -e 's/^available_tags=.*\$/available_tags=\"$available_tags\"/' \"$ofile\" > \"${ofile}T\""; then + mv "${ofile}T" "$ofile" + chmod +x "$ofile" + else + rm -f "${ofile}T" + { { echo "$as_me:$LINENO: error: unable to update list of available tagged configurations." >&5 +echo "$as_me: error: unable to update list of available tagged configurations." >&2;} + { (exit 1); exit 1; }; } + fi +fi + + + +# This can be used to rebuild libtool when needed +LIBTOOL_DEPS="$ac_aux_dir/ltmain.sh" + +# Always use our own libtool. +LIBTOOL='$(SHELL) $(top_builddir)/libtool' + +# Prevent multiple expansion + + + + + + + + + + + + + + + + + + + + + +for ac_prog in gperf +do + # Extract the first word of "$ac_prog", so it can be a program name with args. +set dummy $ac_prog; ac_word=$2 +echo "$as_me:$LINENO: checking for $ac_word" >&5 +echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 +if test "${ac_cv_prog_XGPERF+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + if test -n "$XGPERF"; then + ac_cv_prog_XGPERF="$XGPERF" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_XGPERF="$ac_prog" + echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done +done + +fi +fi +XGPERF=$ac_cv_prog_XGPERF +if test -n "$XGPERF"; then + echo "$as_me:$LINENO: result: $XGPERF" >&5 +echo "${ECHO_T}$XGPERF" >&6 +else + echo "$as_me:$LINENO: result: no" >&5 +echo "${ECHO_T}no" >&6 +fi + + test -n "$XGPERF" && break +done +test -n "$XGPERF" || XGPERF="none" + +if test "$XGPERF" = "none" +then + echo "" + echo "*** Warning: No suitable gperf found. ***" + echo " The gperf package is essential for building veriwell from" + echo " CVS sources, or modifying the parse engine of veriwell itself." + echo " You can get away without it when simply building from" + echo " snapshots or major releases." + echo "" +fi + +#AC_PROG_YACC +for ac_prog in bison +do + # Extract the first word of "$ac_prog", so it can be a program name with args. +set dummy $ac_prog; ac_word=$2 +echo "$as_me:$LINENO: checking for $ac_word" >&5 +echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 +if test "${ac_cv_prog_YACC+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + if test -n "$YACC"; then + ac_cv_prog_YACC="$YACC" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_YACC="$ac_prog" + echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done +done + +fi +fi +YACC=$ac_cv_prog_YACC +if test -n "$YACC"; then + echo "$as_me:$LINENO: result: $YACC" >&5 +echo "${ECHO_T}$YACC" >&6 +else + echo "$as_me:$LINENO: result: no" >&5 +echo "${ECHO_T}no" >&6 +fi + + test -n "$YACC" && break +done +test -n "$YACC" || YACC="none" + +if test "$YACC" = "none" +then + echo "" + echo "*** Warning: No suitable bison found. ***" + echo " The bison package is essential for building veriwell from" + echo " CVS sources, or modifying the parse engine of veriwell itself." + echo " You can get away without it when simply building from" + echo " snapshots or major releases." + echo "" +fi + + + +# Checks for libraries. +echo "$as_me:$LINENO: checking for gzwrite in -lz" >&5 +echo $ECHO_N "checking for gzwrite in -lz... $ECHO_C" >&6 +if test "${ac_cv_lib_z_gzwrite+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + ac_check_lib_save_LIBS=$LIBS +LIBS="-lz $LIBS" +cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ + +/* Override any gcc2 internal prototype to avoid an error. */ +#ifdef __cplusplus +extern "C" +#endif +/* We use char because int might match the return type of a gcc2 + builtin and then its argument prototype would still apply. */ +char gzwrite (); +int +main () +{ +gzwrite (); + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext conftest$ac_exeext +if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest$ac_exeext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + ac_cv_lib_z_gzwrite=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_cv_lib_z_gzwrite=no +fi +rm -f conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +LIBS=$ac_check_lib_save_LIBS +fi +echo "$as_me:$LINENO: result: $ac_cv_lib_z_gzwrite" >&5 +echo "${ECHO_T}$ac_cv_lib_z_gzwrite" >&6 +if test $ac_cv_lib_z_gzwrite = yes; then + +cat >>confdefs.h <<\_ACEOF +#define HAVE_LIBZ +_ACEOF + +fi + +if test X"$ac_cv_enable_lxt" = Xyes; then + if test X"$ac_cv_lib_z_gzwrite" = Xno; then + echo "" + echo "*** Error: libz not found. lxt waveform dumping" + echo " cannot be built. Rerun configure with --disable-lxt." + echo "" + exit 1; + fi +fi + + + echo "$as_me:$LINENO: checking for a readline compatible library" >&5 +echo $ECHO_N "checking for a readline compatible library... $ECHO_C" >&6 +if test "${vl_cv_lib_readline+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + + ORIG_LIBS="$LIBS" + for readline_lib in readline edit editline; do + for termcap_lib in "" termcap curses ncurses; do + if test -z "$termcap_lib"; then + TRY_LIB="-l$readline_lib" + else + TRY_LIB="-l$readline_lib -l$termcap_lib" + fi + LIBS="$ORIG_LIBS $TRY_LIB" + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ + +/* Override any gcc2 internal prototype to avoid an error. */ +#ifdef __cplusplus +extern "C" +#endif +/* We use char because int might match the return type of a gcc2 + builtin and then its argument prototype would still apply. */ +char readline (); +int +main () +{ +readline (); + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext conftest$ac_exeext +if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest$ac_exeext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + vl_cv_lib_readline="$TRY_LIB" +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +fi +rm -f conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext + if test -n "$vl_cv_lib_readline"; then + break + fi + done + if test -n "$vl_cv_lib_readline"; then + break + fi + done + if test -z "$vl_cv_lib_readline"; then + vl_cv_lib_readline="no" + LIBS="$ORIG_LIBS" + fi + +fi +echo "$as_me:$LINENO: result: $vl_cv_lib_readline" >&5 +echo "${ECHO_T}$vl_cv_lib_readline" >&6 + + if test "$vl_cv_lib_readline" != "no"; then + +cat >>confdefs.h <<\_ACEOF +#define HAVE_LIBREADLINE 1 +_ACEOF + + +for ac_header in readline/readline.h +do +as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` +if eval "test \"\${$as_ac_Header+set}\" = set"; then + echo "$as_me:$LINENO: checking for $ac_header" >&5 +echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 +if eval "test \"\${$as_ac_Header+set}\" = set"; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +fi +echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 +echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 +else + # Is the header compilable? +echo "$as_me:$LINENO: checking $ac_header usability" >&5 +echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6 +cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +$ac_includes_default +#include <$ac_header> +_ACEOF +rm -f conftest.$ac_objext +if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 + (eval $ac_compile) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest.$ac_objext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + ac_header_compiler=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_header_compiler=no +fi +rm -f conftest.err conftest.$ac_objext conftest.$ac_ext +echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 +echo "${ECHO_T}$ac_header_compiler" >&6 + +# Is the header present? +echo "$as_me:$LINENO: checking $ac_header presence" >&5 +echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6 +cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +#include <$ac_header> +_ACEOF +if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 + (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } >/dev/null; then + if test -s conftest.err; then + ac_cpp_err=$ac_c_preproc_warn_flag + ac_cpp_err=$ac_cpp_err$ac_c_werror_flag + else + ac_cpp_err= + fi +else + ac_cpp_err=yes +fi +if test -z "$ac_cpp_err"; then + ac_header_preproc=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + + ac_header_preproc=no +fi +rm -f conftest.err conftest.$ac_ext +echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 +echo "${ECHO_T}$ac_header_preproc" >&6 + +# So? What about this header? +case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in + yes:no: ) + { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 +echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} + { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 +echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} + ac_header_preproc=yes + ;; + no:yes:* ) + { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 +echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} + { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 +echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} + { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 +echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} + { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 +echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} + { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 +echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} + { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 +echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} + ( + cat <<\_ASBOX +## ----------------------------------- ## +## Report this to the veriwell lists. ## +## ----------------------------------- ## +_ASBOX + ) | + sed "s/^/$as_me: WARNING: /" >&2 + ;; +esac +echo "$as_me:$LINENO: checking for $ac_header" >&5 +echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 +if eval "test \"\${$as_ac_Header+set}\" = set"; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + eval "$as_ac_Header=\$ac_header_preproc" +fi +echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 +echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 + +fi +if test `eval echo '${'$as_ac_Header'}'` = yes; then + cat >>confdefs.h <<_ACEOF +#define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 +_ACEOF + +fi + +done + + +for ac_header in readline.h +do +as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` +if eval "test \"\${$as_ac_Header+set}\" = set"; then + echo "$as_me:$LINENO: checking for $ac_header" >&5 +echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 +if eval "test \"\${$as_ac_Header+set}\" = set"; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +fi +echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 +echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 +else + # Is the header compilable? +echo "$as_me:$LINENO: checking $ac_header usability" >&5 +echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6 +cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +$ac_includes_default +#include <$ac_header> +_ACEOF +rm -f conftest.$ac_objext +if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 + (eval $ac_compile) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest.$ac_objext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + ac_header_compiler=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_header_compiler=no +fi +rm -f conftest.err conftest.$ac_objext conftest.$ac_ext +echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 +echo "${ECHO_T}$ac_header_compiler" >&6 + +# Is the header present? +echo "$as_me:$LINENO: checking $ac_header presence" >&5 +echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6 +cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +#include <$ac_header> +_ACEOF +if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 + (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } >/dev/null; then + if test -s conftest.err; then + ac_cpp_err=$ac_c_preproc_warn_flag + ac_cpp_err=$ac_cpp_err$ac_c_werror_flag + else + ac_cpp_err= + fi +else + ac_cpp_err=yes +fi +if test -z "$ac_cpp_err"; then + ac_header_preproc=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + + ac_header_preproc=no +fi +rm -f conftest.err conftest.$ac_ext +echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 +echo "${ECHO_T}$ac_header_preproc" >&6 + +# So? What about this header? +case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in + yes:no: ) + { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 +echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} + { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 +echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} + ac_header_preproc=yes + ;; + no:yes:* ) + { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 +echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} + { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 +echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} + { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 +echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} + { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 +echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} + { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 +echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} + { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 +echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} + ( + cat <<\_ASBOX +## ----------------------------------- ## +## Report this to the veriwell lists. ## +## ----------------------------------- ## +_ASBOX + ) | + sed "s/^/$as_me: WARNING: /" >&2 + ;; +esac +echo "$as_me:$LINENO: checking for $ac_header" >&5 +echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 +if eval "test \"\${$as_ac_Header+set}\" = set"; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + eval "$as_ac_Header=\$ac_header_preproc" +fi +echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 +echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 + +fi +if test `eval echo '${'$as_ac_Header'}'` = yes; then + cat >>confdefs.h <<_ACEOF +#define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 +_ACEOF + +fi + +done + + echo "$as_me:$LINENO: checking whether readline supports history" >&5 +echo $ECHO_N "checking whether readline supports history... $ECHO_C" >&6 +if test "${vl_cv_lib_readline_history+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + + vl_cv_lib_readline_history="no" + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ + +/* Override any gcc2 internal prototype to avoid an error. */ +#ifdef __cplusplus +extern "C" +#endif +/* We use char because int might match the return type of a gcc2 + builtin and then its argument prototype would still apply. */ +char add_history (); +int +main () +{ +add_history (); + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext conftest$ac_exeext +if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest$ac_exeext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + vl_cv_lib_readline_history="yes" +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +fi +rm -f conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext + +fi +echo "$as_me:$LINENO: result: $vl_cv_lib_readline_history" >&5 +echo "${ECHO_T}$vl_cv_lib_readline_history" >&6 + if test "$vl_cv_lib_readline_history" = "yes"; then + +cat >>confdefs.h <<\_ACEOF +#define HAVE_READLINE_HISTORY 1 +_ACEOF + + + +for ac_header in history.h readline/history.h +do +as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` +if eval "test \"\${$as_ac_Header+set}\" = set"; then + echo "$as_me:$LINENO: checking for $ac_header" >&5 +echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 +if eval "test \"\${$as_ac_Header+set}\" = set"; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +fi +echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 +echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 +else + # Is the header compilable? +echo "$as_me:$LINENO: checking $ac_header usability" >&5 +echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6 +cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +$ac_includes_default +#include <$ac_header> +_ACEOF +rm -f conftest.$ac_objext +if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 + (eval $ac_compile) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest.$ac_objext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + ac_header_compiler=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_header_compiler=no +fi +rm -f conftest.err conftest.$ac_objext conftest.$ac_ext +echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 +echo "${ECHO_T}$ac_header_compiler" >&6 + +# Is the header present? +echo "$as_me:$LINENO: checking $ac_header presence" >&5 +echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6 +cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +#include <$ac_header> +_ACEOF +if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 + (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } >/dev/null; then + if test -s conftest.err; then + ac_cpp_err=$ac_c_preproc_warn_flag + ac_cpp_err=$ac_cpp_err$ac_c_werror_flag + else + ac_cpp_err= + fi +else + ac_cpp_err=yes +fi +if test -z "$ac_cpp_err"; then + ac_header_preproc=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + + ac_header_preproc=no +fi +rm -f conftest.err conftest.$ac_ext +echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 +echo "${ECHO_T}$ac_header_preproc" >&6 + +# So? What about this header? +case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in + yes:no: ) + { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 +echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} + { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 +echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} + ac_header_preproc=yes + ;; + no:yes:* ) + { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 +echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} + { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 +echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} + { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 +echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} + { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 +echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} + { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 +echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} + { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 +echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} + ( + cat <<\_ASBOX +## ----------------------------------- ## +## Report this to the veriwell lists. ## +## ----------------------------------- ## +_ASBOX + ) | + sed "s/^/$as_me: WARNING: /" >&2 + ;; +esac +echo "$as_me:$LINENO: checking for $ac_header" >&5 +echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 +if eval "test \"\${$as_ac_Header+set}\" = set"; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + eval "$as_ac_Header=\$ac_header_preproc" +fi +echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 +echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 + +fi +if test `eval echo '${'$as_ac_Header'}'` = yes; then + cat >>confdefs.h <<_ACEOF +#define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 +_ACEOF + +fi + +done + + fi + fi + +if test ! "$HAVE_LIBREADLINE" = 1; then + case $LIBOBJS in + "readline.$ac_objext" | \ + *" readline.$ac_objext" | \ + "readline.$ac_objext "* | \ + *" readline.$ac_objext "* ) ;; + *) LIBOBJS="$LIBOBJS readline.$ac_objext" ;; +esac + +fi + +# Checks for header files. +echo "$as_me:$LINENO: checking for ANSI C header files" >&5 +echo $ECHO_N "checking for ANSI C header files... $ECHO_C" >&6 +if test "${ac_cv_header_stdc+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +#include +#include +#include +#include + +int +main () +{ + + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext +if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 + (eval $ac_compile) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest.$ac_objext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + ac_cv_header_stdc=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_cv_header_stdc=no +fi +rm -f conftest.err conftest.$ac_objext conftest.$ac_ext + +if test $ac_cv_header_stdc = yes; then + # SunOS 4.x string.h does not declare mem*, contrary to ANSI. + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +#include + +_ACEOF +if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | + $EGREP "memchr" >/dev/null 2>&1; then + : +else + ac_cv_header_stdc=no +fi +rm -f conftest* + +fi + +if test $ac_cv_header_stdc = yes; then + # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI. + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +#include + +_ACEOF +if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | + $EGREP "free" >/dev/null 2>&1; then + : +else + ac_cv_header_stdc=no +fi +rm -f conftest* + +fi + +if test $ac_cv_header_stdc = yes; then + # /bin/cc in Irix-4.0.5 gets non-ANSI ctype macros unless using -ansi. + if test "$cross_compiling" = yes; then + : +else + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +#include +#if ((' ' & 0x0FF) == 0x020) +# define ISLOWER(c) ('a' <= (c) && (c) <= 'z') +# define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c)) +#else +# define ISLOWER(c) \ + (('a' <= (c) && (c) <= 'i') \ + || ('j' <= (c) && (c) <= 'r') \ + || ('s' <= (c) && (c) <= 'z')) +# define TOUPPER(c) (ISLOWER(c) ? ((c) | 0x40) : (c)) +#endif + +#define XOR(e, f) (((e) && !(f)) || (!(e) && (f))) +int +main () +{ + int i; + for (i = 0; i < 256; i++) + if (XOR (islower (i), ISLOWER (i)) + || toupper (i) != TOUPPER (i)) + exit(2); + exit (0); +} +_ACEOF +rm -f conftest$ac_exeext +if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && { ac_try='./conftest$ac_exeext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + : +else + echo "$as_me: program exited with status $ac_status" >&5 +echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +( exit $ac_status ) +ac_cv_header_stdc=no +fi +rm -f core *.core gmon.out bb.out conftest$ac_exeext conftest.$ac_objext conftest.$ac_ext +fi +fi +fi +echo "$as_me:$LINENO: result: $ac_cv_header_stdc" >&5 +echo "${ECHO_T}$ac_cv_header_stdc" >&6 +if test $ac_cv_header_stdc = yes; then + +cat >>confdefs.h <<\_ACEOF +#define STDC_HEADERS 1 +_ACEOF + +fi + + + + + + + + +for ac_header in limits.h memory.h stddef.h stdlib.h stdarg.h string.h unistd.h +do +as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` +if eval "test \"\${$as_ac_Header+set}\" = set"; then + echo "$as_me:$LINENO: checking for $ac_header" >&5 +echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 +if eval "test \"\${$as_ac_Header+set}\" = set"; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +fi +echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 +echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 +else + # Is the header compilable? +echo "$as_me:$LINENO: checking $ac_header usability" >&5 +echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6 +cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +$ac_includes_default +#include <$ac_header> +_ACEOF +rm -f conftest.$ac_objext +if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 + (eval $ac_compile) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest.$ac_objext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + ac_header_compiler=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_header_compiler=no +fi +rm -f conftest.err conftest.$ac_objext conftest.$ac_ext +echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 +echo "${ECHO_T}$ac_header_compiler" >&6 + +# Is the header present? +echo "$as_me:$LINENO: checking $ac_header presence" >&5 +echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6 +cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +#include <$ac_header> +_ACEOF +if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 + (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } >/dev/null; then + if test -s conftest.err; then + ac_cpp_err=$ac_c_preproc_warn_flag + ac_cpp_err=$ac_cpp_err$ac_c_werror_flag + else + ac_cpp_err= + fi +else + ac_cpp_err=yes +fi +if test -z "$ac_cpp_err"; then + ac_header_preproc=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + + ac_header_preproc=no +fi +rm -f conftest.err conftest.$ac_ext +echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 +echo "${ECHO_T}$ac_header_preproc" >&6 + +# So? What about this header? +case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in + yes:no: ) + { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 +echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} + { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 +echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} + ac_header_preproc=yes + ;; + no:yes:* ) + { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 +echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} + { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 +echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} + { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 +echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} + { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 +echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} + { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 +echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} + { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 +echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} + ( + cat <<\_ASBOX +## ----------------------------------- ## +## Report this to the veriwell lists. ## +## ----------------------------------- ## +_ASBOX + ) | + sed "s/^/$as_me: WARNING: /" >&2 + ;; +esac +echo "$as_me:$LINENO: checking for $ac_header" >&5 +echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 +if eval "test \"\${$as_ac_Header+set}\" = set"; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + eval "$as_ac_Header=\$ac_header_preproc" +fi +echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 +echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 + +fi +if test `eval echo '${'$as_ac_Header'}'` = yes; then + cat >>confdefs.h <<_ACEOF +#define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 +_ACEOF + +fi + +done + + +# Checks for typedefs, structures, and compiler characteristics. +echo "$as_me:$LINENO: checking for stdbool.h that conforms to C99" >&5 +echo $ECHO_N "checking for stdbool.h that conforms to C99... $ECHO_C" >&6 +if test "${ac_cv_header_stdbool_h+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ + +#include +#ifndef bool +# error bool is not defined +#endif +#ifndef false +# error false is not defined +#endif +#if false +# error false is not 0 +#endif +#ifndef true +# error true is not defined +#endif +#if true != 1 +# error true is not 1 +#endif +#ifndef __bool_true_false_are_defined +# error __bool_true_false_are_defined is not defined +#endif + + struct s { _Bool s: 1; _Bool t; } s; + + char a[true == 1 ? 1 : -1]; + char b[false == 0 ? 1 : -1]; + char c[__bool_true_false_are_defined == 1 ? 1 : -1]; + char d[(bool) -0.5 == true ? 1 : -1]; + bool e = &s; + char f[(_Bool) -0.0 == false ? 1 : -1]; + char g[true]; + char h[sizeof (_Bool)]; + char i[sizeof s.t]; + +int +main () +{ + return !a + !b + !c + !d + !e + !f + !g + !h + !i; + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext +if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 + (eval $ac_compile) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest.$ac_objext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + ac_cv_header_stdbool_h=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_cv_header_stdbool_h=no +fi +rm -f conftest.err conftest.$ac_objext conftest.$ac_ext +fi +echo "$as_me:$LINENO: result: $ac_cv_header_stdbool_h" >&5 +echo "${ECHO_T}$ac_cv_header_stdbool_h" >&6 +echo "$as_me:$LINENO: checking for _Bool" >&5 +echo $ECHO_N "checking for _Bool... $ECHO_C" >&6 +if test "${ac_cv_type__Bool+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +$ac_includes_default +int +main () +{ +if ((_Bool *) 0) + return 0; +if (sizeof (_Bool)) + return 0; + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext +if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 + (eval $ac_compile) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest.$ac_objext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + ac_cv_type__Bool=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_cv_type__Bool=no +fi +rm -f conftest.err conftest.$ac_objext conftest.$ac_ext +fi +echo "$as_me:$LINENO: result: $ac_cv_type__Bool" >&5 +echo "${ECHO_T}$ac_cv_type__Bool" >&6 +if test $ac_cv_type__Bool = yes; then + +cat >>confdefs.h <<_ACEOF +#define HAVE__BOOL 1 +_ACEOF + + +fi + +if test $ac_cv_header_stdbool_h = yes; then + +cat >>confdefs.h <<\_ACEOF +#define HAVE_STDBOOL_H 1 +_ACEOF + +fi + +echo "$as_me:$LINENO: checking for an ANSI C-conforming const" >&5 +echo $ECHO_N "checking for an ANSI C-conforming const... $ECHO_C" >&6 +if test "${ac_cv_c_const+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ + +int +main () +{ +/* FIXME: Include the comments suggested by Paul. */ +#ifndef __cplusplus + /* Ultrix mips cc rejects this. */ + typedef int charset[2]; + const charset x; + /* SunOS 4.1.1 cc rejects this. */ + char const *const *ccp; + char **p; + /* NEC SVR4.0.2 mips cc rejects this. */ + struct point {int x, y;}; + static struct point const zero = {0,0}; + /* AIX XL C 1.02.0.0 rejects this. + It does not let you subtract one const X* pointer from another in + an arm of an if-expression whose if-part is not a constant + expression */ + const char *g = "string"; + ccp = &g + (g ? g-g : 0); + /* HPUX 7.0 cc rejects these. */ + ++ccp; + p = (char**) ccp; + ccp = (char const *const *) p; + { /* SCO 3.2v4 cc rejects this. */ + char *t; + char const *s = 0 ? (char *) 0 : (char const *) 0; + + *t++ = 0; + } + { /* Someone thinks the Sun supposedly-ANSI compiler will reject this. */ + int x[] = {25, 17}; + const int *foo = &x[0]; + ++foo; + } + { /* Sun SC1.0 ANSI compiler rejects this -- but not the above. */ + typedef const int *iptr; + iptr p = 0; + ++p; + } + { /* AIX XL C 1.02.0.0 rejects this saying + "k.c", line 2.27: 1506-025 (S) Operand must be a modifiable lvalue. */ + struct s { int j; const int *ap[3]; }; + struct s *b; b->j = 5; + } + { /* ULTRIX-32 V3.1 (Rev 9) vcc rejects this */ + const int foo = 10; + } +#endif + + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext +if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 + (eval $ac_compile) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest.$ac_objext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + ac_cv_c_const=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_cv_c_const=no +fi +rm -f conftest.err conftest.$ac_objext conftest.$ac_ext +fi +echo "$as_me:$LINENO: result: $ac_cv_c_const" >&5 +echo "${ECHO_T}$ac_cv_c_const" >&6 +if test $ac_cv_c_const = no; then + +cat >>confdefs.h <<\_ACEOF +#define const +_ACEOF + +fi + +echo "$as_me:$LINENO: checking for inline" >&5 +echo $ECHO_N "checking for inline... $ECHO_C" >&6 +if test "${ac_cv_c_inline+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + ac_cv_c_inline=no +for ac_kw in inline __inline__ __inline; do + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +#ifndef __cplusplus +typedef int foo_t; +static $ac_kw foo_t static_foo () {return 0; } +$ac_kw foo_t foo () {return 0; } +#endif + +_ACEOF +rm -f conftest.$ac_objext +if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 + (eval $ac_compile) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest.$ac_objext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + ac_cv_c_inline=$ac_kw; break +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +fi +rm -f conftest.err conftest.$ac_objext conftest.$ac_ext +done + +fi +echo "$as_me:$LINENO: result: $ac_cv_c_inline" >&5 +echo "${ECHO_T}$ac_cv_c_inline" >&6 + + +case $ac_cv_c_inline in + inline | yes) ;; + *) + case $ac_cv_c_inline in + no) ac_val=;; + *) ac_val=$ac_cv_c_inline;; + esac + cat >>confdefs.h <<_ACEOF +#ifndef __cplusplus +#define inline $ac_val +#endif +_ACEOF + ;; +esac + +echo "$as_me:$LINENO: checking for size_t" >&5 +echo $ECHO_N "checking for size_t... $ECHO_C" >&6 +if test "${ac_cv_type_size_t+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +$ac_includes_default +int +main () +{ +if ((size_t *) 0) + return 0; +if (sizeof (size_t)) + return 0; + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext +if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 + (eval $ac_compile) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest.$ac_objext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + ac_cv_type_size_t=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_cv_type_size_t=no +fi +rm -f conftest.err conftest.$ac_objext conftest.$ac_ext +fi +echo "$as_me:$LINENO: result: $ac_cv_type_size_t" >&5 +echo "${ECHO_T}$ac_cv_type_size_t" >&6 +if test $ac_cv_type_size_t = yes; then + : +else + +cat >>confdefs.h <<_ACEOF +#define size_t unsigned +_ACEOF + +fi + +echo "$as_me:$LINENO: checking whether time.h and sys/time.h may both be included" >&5 +echo $ECHO_N "checking whether time.h and sys/time.h may both be included... $ECHO_C" >&6 +if test "${ac_cv_header_time+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +#include +#include +#include + +int +main () +{ +if ((struct tm *) 0) +return 0; + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext +if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 + (eval $ac_compile) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest.$ac_objext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + ac_cv_header_time=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_cv_header_time=no +fi +rm -f conftest.err conftest.$ac_objext conftest.$ac_ext +fi +echo "$as_me:$LINENO: result: $ac_cv_header_time" >&5 +echo "${ECHO_T}$ac_cv_header_time" >&6 +if test $ac_cv_header_time = yes; then + +cat >>confdefs.h <<\_ACEOF +#define TIME_WITH_SYS_TIME 1 +_ACEOF + +fi + +echo "$as_me:$LINENO: checking whether byte ordering is bigendian" >&5 +echo $ECHO_N "checking whether byte ordering is bigendian... $ECHO_C" >&6 +if test "${ac_cv_c_bigendian+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + # See if sys/param.h defines the BYTE_ORDER macro. +cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +#include +#include + +int +main () +{ +#if !BYTE_ORDER || !BIG_ENDIAN || !LITTLE_ENDIAN + bogus endian macros +#endif + + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext +if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 + (eval $ac_compile) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest.$ac_objext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + # It does; now see whether it defined to BIG_ENDIAN or not. +cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +#include +#include + +int +main () +{ +#if BYTE_ORDER != BIG_ENDIAN + not big endian +#endif + + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext +if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 + (eval $ac_compile) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest.$ac_objext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + ac_cv_c_bigendian=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_cv_c_bigendian=no +fi +rm -f conftest.err conftest.$ac_objext conftest.$ac_ext +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +# It does not; compile a test program. +if test "$cross_compiling" = yes; then + # try to guess the endianness by grepping values into an object file + ac_cv_c_bigendian=unknown + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +short ascii_mm[] = { 0x4249, 0x4765, 0x6E44, 0x6961, 0x6E53, 0x7953, 0 }; +short ascii_ii[] = { 0x694C, 0x5454, 0x656C, 0x6E45, 0x6944, 0x6E61, 0 }; +void _ascii () { char *s = (char *) ascii_mm; s = (char *) ascii_ii; } +short ebcdic_ii[] = { 0x89D3, 0xE3E3, 0x8593, 0x95C5, 0x89C4, 0x9581, 0 }; +short ebcdic_mm[] = { 0xC2C9, 0xC785, 0x95C4, 0x8981, 0x95E2, 0xA8E2, 0 }; +void _ebcdic () { char *s = (char *) ebcdic_mm; s = (char *) ebcdic_ii; } +int +main () +{ + _ascii (); _ebcdic (); + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext +if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 + (eval $ac_compile) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest.$ac_objext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + if grep BIGenDianSyS conftest.$ac_objext >/dev/null ; then + ac_cv_c_bigendian=yes +fi +if grep LiTTleEnDian conftest.$ac_objext >/dev/null ; then + if test "$ac_cv_c_bigendian" = unknown; then + ac_cv_c_bigendian=no + else + # finding both strings is unlikely to happen, but who knows? + ac_cv_c_bigendian=unknown + fi +fi +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +fi +rm -f conftest.err conftest.$ac_objext conftest.$ac_ext +else + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +int +main () +{ + /* Are we little or big endian? From Harbison&Steele. */ + union + { + long l; + char c[sizeof (long)]; + } u; + u.l = 1; + exit (u.c[sizeof (long) - 1] == 1); +} +_ACEOF +rm -f conftest$ac_exeext +if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && { ac_try='./conftest$ac_exeext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + ac_cv_c_bigendian=no +else + echo "$as_me: program exited with status $ac_status" >&5 +echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +( exit $ac_status ) +ac_cv_c_bigendian=yes +fi +rm -f core *.core gmon.out bb.out conftest$ac_exeext conftest.$ac_objext conftest.$ac_ext +fi +fi +rm -f conftest.err conftest.$ac_objext conftest.$ac_ext +fi +echo "$as_me:$LINENO: result: $ac_cv_c_bigendian" >&5 +echo "${ECHO_T}$ac_cv_c_bigendian" >&6 +case $ac_cv_c_bigendian in + yes) + +cat >>confdefs.h <<\_ACEOF +#define WORDS_BIGENDIAN 1 +_ACEOF + ;; + no) + ;; + *) + { { echo "$as_me:$LINENO: error: unknown endianness +presetting ac_cv_c_bigendian=no (or yes) will help" >&5 +echo "$as_me: error: unknown endianness +presetting ac_cv_c_bigendian=no (or yes) will help" >&2;} + { (exit 1); exit 1; }; } ;; +esac + + +# Checks for library functions. + +for ac_header in stdlib.h +do +as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` +if eval "test \"\${$as_ac_Header+set}\" = set"; then + echo "$as_me:$LINENO: checking for $ac_header" >&5 +echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 +if eval "test \"\${$as_ac_Header+set}\" = set"; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +fi +echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 +echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 +else + # Is the header compilable? +echo "$as_me:$LINENO: checking $ac_header usability" >&5 +echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6 +cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +$ac_includes_default +#include <$ac_header> +_ACEOF +rm -f conftest.$ac_objext +if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 + (eval $ac_compile) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest.$ac_objext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + ac_header_compiler=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_header_compiler=no +fi +rm -f conftest.err conftest.$ac_objext conftest.$ac_ext +echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 +echo "${ECHO_T}$ac_header_compiler" >&6 + +# Is the header present? +echo "$as_me:$LINENO: checking $ac_header presence" >&5 +echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6 +cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +#include <$ac_header> +_ACEOF +if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 + (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } >/dev/null; then + if test -s conftest.err; then + ac_cpp_err=$ac_c_preproc_warn_flag + ac_cpp_err=$ac_cpp_err$ac_c_werror_flag + else + ac_cpp_err= + fi +else + ac_cpp_err=yes +fi +if test -z "$ac_cpp_err"; then + ac_header_preproc=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + + ac_header_preproc=no +fi +rm -f conftest.err conftest.$ac_ext +echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 +echo "${ECHO_T}$ac_header_preproc" >&6 + +# So? What about this header? +case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in + yes:no: ) + { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 +echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} + { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 +echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} + ac_header_preproc=yes + ;; + no:yes:* ) + { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 +echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} + { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 +echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} + { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 +echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} + { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 +echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} + { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 +echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} + { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 +echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} + ( + cat <<\_ASBOX +## ----------------------------------- ## +## Report this to the veriwell lists. ## +## ----------------------------------- ## +_ASBOX + ) | + sed "s/^/$as_me: WARNING: /" >&2 + ;; +esac +echo "$as_me:$LINENO: checking for $ac_header" >&5 +echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 +if eval "test \"\${$as_ac_Header+set}\" = set"; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + eval "$as_ac_Header=\$ac_header_preproc" +fi +echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 +echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 + +fi +if test `eval echo '${'$as_ac_Header'}'` = yes; then + cat >>confdefs.h <<_ACEOF +#define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 +_ACEOF + +fi + +done + +echo "$as_me:$LINENO: checking for GNU libc compatible malloc" >&5 +echo $ECHO_N "checking for GNU libc compatible malloc... $ECHO_C" >&6 +if test "${ac_cv_func_malloc_0_nonnull+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + if test "$cross_compiling" = yes; then + ac_cv_func_malloc_0_nonnull=no +else + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +#if STDC_HEADERS || HAVE_STDLIB_H +# include +#else +char *malloc (); +#endif + +int +main () +{ +exit (malloc (0) ? 0 : 1); + ; + return 0; +} +_ACEOF +rm -f conftest$ac_exeext +if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && { ac_try='./conftest$ac_exeext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + ac_cv_func_malloc_0_nonnull=yes +else + echo "$as_me: program exited with status $ac_status" >&5 +echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +( exit $ac_status ) +ac_cv_func_malloc_0_nonnull=no +fi +rm -f core *.core gmon.out bb.out conftest$ac_exeext conftest.$ac_objext conftest.$ac_ext +fi +fi +echo "$as_me:$LINENO: result: $ac_cv_func_malloc_0_nonnull" >&5 +echo "${ECHO_T}$ac_cv_func_malloc_0_nonnull" >&6 +if test $ac_cv_func_malloc_0_nonnull = yes; then + +cat >>confdefs.h <<\_ACEOF +#define HAVE_MALLOC 1 +_ACEOF + +else + cat >>confdefs.h <<\_ACEOF +#define HAVE_MALLOC 0 +_ACEOF + + case $LIBOBJS in + "malloc.$ac_objext" | \ + *" malloc.$ac_objext" | \ + "malloc.$ac_objext "* | \ + *" malloc.$ac_objext "* ) ;; + *) LIBOBJS="$LIBOBJS malloc.$ac_objext" ;; +esac + + +cat >>confdefs.h <<\_ACEOF +#define malloc rpl_malloc +_ACEOF + +fi + + + +echo "$as_me:$LINENO: checking return type of signal handlers" >&5 +echo $ECHO_N "checking return type of signal handlers... $ECHO_C" >&6 +if test "${ac_cv_type_signal+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +#include +#include +#ifdef signal +# undef signal +#endif +#ifdef __cplusplus +extern "C" void (*signal (int, void (*)(int)))(int); +#else +void (*signal ()) (); +#endif + +int +main () +{ +int i; + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext +if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 + (eval $ac_compile) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest.$ac_objext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + ac_cv_type_signal=void +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_cv_type_signal=int +fi +rm -f conftest.err conftest.$ac_objext conftest.$ac_ext +fi +echo "$as_me:$LINENO: result: $ac_cv_type_signal" >&5 +echo "${ECHO_T}$ac_cv_type_signal" >&6 + +cat >>confdefs.h <<_ACEOF +#define RETSIGTYPE $ac_cv_type_signal +_ACEOF + + + +for ac_func in vprintf +do +as_ac_var=`echo "ac_cv_func_$ac_func" | $as_tr_sh` +echo "$as_me:$LINENO: checking for $ac_func" >&5 +echo $ECHO_N "checking for $ac_func... $ECHO_C" >&6 +if eval "test \"\${$as_ac_var+set}\" = set"; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +/* Define $ac_func to an innocuous variant, in case declares $ac_func. + For example, HP-UX 11i declares gettimeofday. */ +#define $ac_func innocuous_$ac_func + +/* System header to define __stub macros and hopefully few prototypes, + which can conflict with char $ac_func (); below. + Prefer to if __STDC__ is defined, since + exists even on freestanding compilers. */ + +#ifdef __STDC__ +# include +#else +# include +#endif + +#undef $ac_func + +/* Override any gcc2 internal prototype to avoid an error. */ +#ifdef __cplusplus +extern "C" +{ +#endif +/* We use char because int might match the return type of a gcc2 + builtin and then its argument prototype would still apply. */ +char $ac_func (); +/* The GNU C library defines this for functions which it implements + to always fail with ENOSYS. Some functions are actually named + something starting with __ and the normal name is an alias. */ +#if defined (__stub_$ac_func) || defined (__stub___$ac_func) +choke me +#else +char (*f) () = $ac_func; +#endif +#ifdef __cplusplus +} +#endif + +int +main () +{ +return f != $ac_func; + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext conftest$ac_exeext +if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest$ac_exeext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + eval "$as_ac_var=yes" +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +eval "$as_ac_var=no" +fi +rm -f conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +fi +echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_var'}'`" >&5 +echo "${ECHO_T}`eval echo '${'$as_ac_var'}'`" >&6 +if test `eval echo '${'$as_ac_var'}'` = yes; then + cat >>confdefs.h <<_ACEOF +#define `echo "HAVE_$ac_func" | $as_tr_cpp` 1 +_ACEOF + +echo "$as_me:$LINENO: checking for _doprnt" >&5 +echo $ECHO_N "checking for _doprnt... $ECHO_C" >&6 +if test "${ac_cv_func__doprnt+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +/* Define _doprnt to an innocuous variant, in case declares _doprnt. + For example, HP-UX 11i declares gettimeofday. */ +#define _doprnt innocuous__doprnt + +/* System header to define __stub macros and hopefully few prototypes, + which can conflict with char _doprnt (); below. + Prefer to if __STDC__ is defined, since + exists even on freestanding compilers. */ + +#ifdef __STDC__ +# include +#else +# include +#endif + +#undef _doprnt + +/* Override any gcc2 internal prototype to avoid an error. */ +#ifdef __cplusplus +extern "C" +{ +#endif +/* We use char because int might match the return type of a gcc2 + builtin and then its argument prototype would still apply. */ +char _doprnt (); +/* The GNU C library defines this for functions which it implements + to always fail with ENOSYS. Some functions are actually named + something starting with __ and the normal name is an alias. */ +#if defined (__stub__doprnt) || defined (__stub____doprnt) +choke me +#else +char (*f) () = _doprnt; +#endif +#ifdef __cplusplus +} +#endif + +int +main () +{ +return f != _doprnt; + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext conftest$ac_exeext +if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest$ac_exeext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + ac_cv_func__doprnt=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_cv_func__doprnt=no +fi +rm -f conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +fi +echo "$as_me:$LINENO: result: $ac_cv_func__doprnt" >&5 +echo "${ECHO_T}$ac_cv_func__doprnt" >&6 +if test $ac_cv_func__doprnt = yes; then + +cat >>confdefs.h <<\_ACEOF +#define HAVE_DOPRNT 1 +_ACEOF + +fi + +fi +done + + + + + + + + +for ac_func in memmove memset pow strchr strdup strrchr +do +as_ac_var=`echo "ac_cv_func_$ac_func" | $as_tr_sh` +echo "$as_me:$LINENO: checking for $ac_func" >&5 +echo $ECHO_N "checking for $ac_func... $ECHO_C" >&6 +if eval "test \"\${$as_ac_var+set}\" = set"; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +/* Define $ac_func to an innocuous variant, in case declares $ac_func. + For example, HP-UX 11i declares gettimeofday. */ +#define $ac_func innocuous_$ac_func + +/* System header to define __stub macros and hopefully few prototypes, + which can conflict with char $ac_func (); below. + Prefer to if __STDC__ is defined, since + exists even on freestanding compilers. */ + +#ifdef __STDC__ +# include +#else +# include +#endif + +#undef $ac_func + +/* Override any gcc2 internal prototype to avoid an error. */ +#ifdef __cplusplus +extern "C" +{ +#endif +/* We use char because int might match the return type of a gcc2 + builtin and then its argument prototype would still apply. */ +char $ac_func (); +/* The GNU C library defines this for functions which it implements + to always fail with ENOSYS. Some functions are actually named + something starting with __ and the normal name is an alias. */ +#if defined (__stub_$ac_func) || defined (__stub___$ac_func) +choke me +#else +char (*f) () = $ac_func; +#endif +#ifdef __cplusplus +} +#endif + +int +main () +{ +return f != $ac_func; + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext conftest$ac_exeext +if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest$ac_exeext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + eval "$as_ac_var=yes" +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +eval "$as_ac_var=no" +fi +rm -f conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +fi +echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_var'}'`" >&5 +echo "${ECHO_T}`eval echo '${'$as_ac_var'}'`" >&6 +if test `eval echo '${'$as_ac_var'}'` = yes; then + cat >>confdefs.h <<_ACEOF +#define `echo "HAVE_$ac_func" | $as_tr_cpp` 1 +_ACEOF + +fi +done + + +for ac_func in vfscanf +do +as_ac_var=`echo "ac_cv_func_$ac_func" | $as_tr_sh` +echo "$as_me:$LINENO: checking for $ac_func" >&5 +echo $ECHO_N "checking for $ac_func... $ECHO_C" >&6 +if eval "test \"\${$as_ac_var+set}\" = set"; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +/* Define $ac_func to an innocuous variant, in case declares $ac_func. + For example, HP-UX 11i declares gettimeofday. */ +#define $ac_func innocuous_$ac_func + +/* System header to define __stub macros and hopefully few prototypes, + which can conflict with char $ac_func (); below. + Prefer to if __STDC__ is defined, since + exists even on freestanding compilers. */ + +#ifdef __STDC__ +# include +#else +# include +#endif + +#undef $ac_func + +/* Override any gcc2 internal prototype to avoid an error. */ +#ifdef __cplusplus +extern "C" +{ +#endif +/* We use char because int might match the return type of a gcc2 + builtin and then its argument prototype would still apply. */ +char $ac_func (); +/* The GNU C library defines this for functions which it implements + to always fail with ENOSYS. Some functions are actually named + something starting with __ and the normal name is an alias. */ +#if defined (__stub_$ac_func) || defined (__stub___$ac_func) +choke me +#else +char (*f) () = $ac_func; +#endif +#ifdef __cplusplus +} +#endif + +int +main () +{ +return f != $ac_func; + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext conftest$ac_exeext +if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest$ac_exeext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + eval "$as_ac_var=yes" +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +eval "$as_ac_var=no" +fi +rm -f conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +fi +echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_var'}'`" >&5 +echo "${ECHO_T}`eval echo '${'$as_ac_var'}'`" >&6 +if test `eval echo '${'$as_ac_var'}'` = yes; then + cat >>confdefs.h <<_ACEOF +#define `echo "HAVE_$ac_func" | $as_tr_cpp` 1 +_ACEOF + +else + case $LIBOBJS in + "$ac_func.$ac_objext" | \ + *" $ac_func.$ac_objext" | \ + "$ac_func.$ac_objext "* | \ + *" $ac_func.$ac_objext "* ) ;; + *) LIBOBJS="$LIBOBJS $ac_func.$ac_objext" ;; +esac + +fi +done + + + + +# optional pli code + + +if test "$ac_cv_enable_lxt" = yes; then + USE_LXT_TRUE= + USE_LXT_FALSE='#' +else + USE_LXT_TRUE='#' + USE_LXT_FALSE= +fi + +if test "$ac_cv_enable_lxt" = yes +then + +cat >>confdefs.h <<\_ACEOF +#define HAVE_LXT 1 +_ACEOF + +fi + + ac_config_files="$ac_config_files Makefile replace/Makefile src/Makefile lxt/Makefile" + +cat >confcache <<\_ACEOF +# This file is a shell script that caches the results of configure +# tests run on this system so they can be shared between configure +# scripts and configure runs, see configure's option --config-cache. +# It is not useful on other systems. If it contains results you don't +# want to keep, you may remove or edit it. +# +# config.status only pays attention to the cache file if you give it +# the --recheck option to rerun configure. +# +# `ac_cv_env_foo' variables (set or unset) will be overridden when +# loading this file, other *unset* `ac_cv_foo' will be assigned the +# following values. + +_ACEOF + +# The following way of writing the cache mishandles newlines in values, +# but we know of no workaround that is simple, portable, and efficient. +# So, don't put newlines in cache variables' values. +# Ultrix sh set writes to stderr and can't be redirected directly, +# and sets the high bit in the cache file unless we assign to the vars. +{ + (set) 2>&1 | + case `(ac_space=' '; set | grep ac_space) 2>&1` in + *ac_space=\ *) + # `set' does not quote correctly, so add quotes (double-quote + # substitution turns \\\\ into \\, and sed turns \\ into \). + sed -n \ + "s/'/'\\\\''/g; + s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\\2'/p" + ;; + *) + # `set' quotes correctly as required by POSIX, so do not add quotes. + sed -n \ + "s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1=\\2/p" + ;; + esac; +} | + sed ' + t clear + : clear + s/^\([^=]*\)=\(.*[{}].*\)$/test "${\1+set}" = set || &/ + t end + /^ac_cv_env/!s/^\([^=]*\)=\(.*\)$/\1=${\1=\2}/ + : end' >>confcache +if diff $cache_file confcache >/dev/null 2>&1; then :; else + if test -w $cache_file; then + test "x$cache_file" != "x/dev/null" && echo "updating cache $cache_file" + cat confcache >$cache_file + else + echo "not updating unwritable cache $cache_file" + fi +fi +rm -f confcache + +test "x$prefix" = xNONE && prefix=$ac_default_prefix +# Let make expand exec_prefix. +test "x$exec_prefix" = xNONE && exec_prefix='${prefix}' + +# VPATH may cause trouble with some makes, so we remove $(srcdir), +# ${srcdir} and @srcdir@ from VPATH if srcdir is ".", strip leading and +# trailing colons and then remove the whole line if VPATH becomes empty +# (actually we leave an empty line to preserve line numbers). +if test "x$srcdir" = x.; then + ac_vpsub='/^[ ]*VPATH[ ]*=/{ +s/:*\$(srcdir):*/:/; +s/:*\${srcdir}:*/:/; +s/:*@srcdir@:*/:/; +s/^\([^=]*=[ ]*\):*/\1/; +s/:*$//; +s/^[^=]*=[ ]*$//; +}' +fi + +DEFS=-DHAVE_CONFIG_H + +ac_libobjs= +ac_ltlibobjs= +for ac_i in : $LIBOBJS; do test "x$ac_i" = x: && continue + # 1. Remove the extension, and $U if already installed. + ac_i=`echo "$ac_i" | + sed 's/\$U\././;s/\.o$//;s/\.obj$//'` + # 2. Add them. + ac_libobjs="$ac_libobjs $ac_i\$U.$ac_objext" + ac_ltlibobjs="$ac_ltlibobjs $ac_i"'$U.lo' +done +LIBOBJS=$ac_libobjs + +LTLIBOBJS=$ac_ltlibobjs + + +if test -z "${AMDEP_TRUE}" && test -z "${AMDEP_FALSE}"; then + { { echo "$as_me:$LINENO: error: conditional \"AMDEP\" was never defined. +Usually this means the macro was only invoked conditionally." >&5 +echo "$as_me: error: conditional \"AMDEP\" was never defined. +Usually this means the macro was only invoked conditionally." >&2;} + { (exit 1); exit 1; }; } +fi +if test -z "${am__fastdepCXX_TRUE}" && test -z "${am__fastdepCXX_FALSE}"; then + { { echo "$as_me:$LINENO: error: conditional \"am__fastdepCXX\" was never defined. +Usually this means the macro was only invoked conditionally." >&5 +echo "$as_me: error: conditional \"am__fastdepCXX\" was never defined. +Usually this means the macro was only invoked conditionally." >&2;} + { (exit 1); exit 1; }; } +fi +if test -z "${am__fastdepCC_TRUE}" && test -z "${am__fastdepCC_FALSE}"; then + { { echo "$as_me:$LINENO: error: conditional \"am__fastdepCC\" was never defined. +Usually this means the macro was only invoked conditionally." >&5 +echo "$as_me: error: conditional \"am__fastdepCC\" was never defined. +Usually this means the macro was only invoked conditionally." >&2;} + { (exit 1); exit 1; }; } +fi +if test -z "${USE_LXT_TRUE}" && test -z "${USE_LXT_FALSE}"; then + { { echo "$as_me:$LINENO: error: conditional \"USE_LXT\" was never defined. +Usually this means the macro was only invoked conditionally." >&5 +echo "$as_me: error: conditional \"USE_LXT\" was never defined. +Usually this means the macro was only invoked conditionally." >&2;} + { (exit 1); exit 1; }; } +fi + +: ${CONFIG_STATUS=./config.status} +ac_clean_files_save=$ac_clean_files +ac_clean_files="$ac_clean_files $CONFIG_STATUS" +{ echo "$as_me:$LINENO: creating $CONFIG_STATUS" >&5 +echo "$as_me: creating $CONFIG_STATUS" >&6;} +cat >$CONFIG_STATUS <<_ACEOF +#! $SHELL +# Generated by $as_me. +# Run this file to recreate the current configuration. +# Compiler output produced by configure, useful for debugging +# configure, is in config.log if it exists. + +debug=false +ac_cs_recheck=false +ac_cs_silent=false +SHELL=\${CONFIG_SHELL-$SHELL} +_ACEOF + +cat >>$CONFIG_STATUS <<\_ACEOF +## --------------------- ## +## M4sh Initialization. ## +## --------------------- ## + +# Be Bourne compatible +if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then + emulate sh + NULLCMD=: + # Zsh 3.x and 4.x performs word splitting on ${1+"$@"}, which + # is contrary to our usage. Disable this feature. + alias -g '${1+"$@"}'='"$@"' +elif test -n "${BASH_VERSION+set}" && (set -o posix) >/dev/null 2>&1; then + set -o posix +fi +DUALCASE=1; export DUALCASE # for MKS sh + +# Support unset when possible. +if ( (MAIL=60; unset MAIL) || exit) >/dev/null 2>&1; then + as_unset=unset +else + as_unset=false +fi + + +# Work around bugs in pre-3.0 UWIN ksh. +$as_unset ENV MAIL MAILPATH +PS1='$ ' +PS2='> ' +PS4='+ ' + +# NLS nuisances. +for as_var in \ + LANG LANGUAGE LC_ADDRESS LC_ALL LC_COLLATE LC_CTYPE LC_IDENTIFICATION \ + LC_MEASUREMENT LC_MESSAGES LC_MONETARY LC_NAME LC_NUMERIC LC_PAPER \ + LC_TELEPHONE LC_TIME +do + if (set +x; test -z "`(eval $as_var=C; export $as_var) 2>&1`"); then + eval $as_var=C; export $as_var + else + $as_unset $as_var + fi +done + +# Required to use basename. +if expr a : '\(a\)' >/dev/null 2>&1; then + as_expr=expr +else + as_expr=false +fi + +if (basename /) >/dev/null 2>&1 && test "X`basename / 2>&1`" = "X/"; then + as_basename=basename +else + as_basename=false +fi + + +# Name of the executable. +as_me=`$as_basename "$0" || +$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ + X"$0" : 'X\(//\)$' \| \ + X"$0" : 'X\(/\)$' \| \ + . : '\(.\)' 2>/dev/null || +echo X/"$0" | + sed '/^.*\/\([^/][^/]*\)\/*$/{ s//\1/; q; } + /^X\/\(\/\/\)$/{ s//\1/; q; } + /^X\/\(\/\).*/{ s//\1/; q; } + s/.*/./; q'` + + +# PATH needs CR, and LINENO needs CR and PATH. +# Avoid depending upon Character Ranges. +as_cr_letters='abcdefghijklmnopqrstuvwxyz' +as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' +as_cr_Letters=$as_cr_letters$as_cr_LETTERS +as_cr_digits='0123456789' +as_cr_alnum=$as_cr_Letters$as_cr_digits + +# The user is always right. +if test "${PATH_SEPARATOR+set}" != set; then + echo "#! /bin/sh" >conf$$.sh + echo "exit 0" >>conf$$.sh + chmod +x conf$$.sh + if (PATH="/nonexistent;."; conf$$.sh) >/dev/null 2>&1; then + PATH_SEPARATOR=';' + else + PATH_SEPARATOR=: + fi + rm -f conf$$.sh +fi + + + as_lineno_1=$LINENO + as_lineno_2=$LINENO + as_lineno_3=`(expr $as_lineno_1 + 1) 2>/dev/null` + test "x$as_lineno_1" != "x$as_lineno_2" && + test "x$as_lineno_3" = "x$as_lineno_2" || { + # Find who we are. Look in the path if we contain no path at all + # relative or not. + case $0 in + *[\\/]* ) as_myself=$0 ;; + *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break +done + + ;; + esac + # We did not find ourselves, most probably we were run as `sh COMMAND' + # in which case we are not to be found in the path. + if test "x$as_myself" = x; then + as_myself=$0 + fi + if test ! -f "$as_myself"; then + { { echo "$as_me:$LINENO: error: cannot find myself; rerun with an absolute path" >&5 +echo "$as_me: error: cannot find myself; rerun with an absolute path" >&2;} + { (exit 1); exit 1; }; } + fi + case $CONFIG_SHELL in + '') + as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for as_base in sh bash ksh sh5; do + case $as_dir in + /*) + if ("$as_dir/$as_base" -c ' + as_lineno_1=$LINENO + as_lineno_2=$LINENO + as_lineno_3=`(expr $as_lineno_1 + 1) 2>/dev/null` + test "x$as_lineno_1" != "x$as_lineno_2" && + test "x$as_lineno_3" = "x$as_lineno_2" ') 2>/dev/null; then + $as_unset BASH_ENV || test "${BASH_ENV+set}" != set || { BASH_ENV=; export BASH_ENV; } + $as_unset ENV || test "${ENV+set}" != set || { ENV=; export ENV; } + CONFIG_SHELL=$as_dir/$as_base + export CONFIG_SHELL + exec "$CONFIG_SHELL" "$0" ${1+"$@"} + fi;; + esac + done +done +;; + esac + + # Create $as_me.lineno as a copy of $as_myself, but with $LINENO + # uniformly replaced by the line number. The first 'sed' inserts a + # line-number line before each line; the second 'sed' does the real + # work. The second script uses 'N' to pair each line-number line + # with the numbered line, and appends trailing '-' during + # substitution so that $LINENO is not a special case at line end. + # (Raja R Harinath suggested sed '=', and Paul Eggert wrote the + # second 'sed' script. Blame Lee E. McMahon for sed's syntax. :-) + sed '=' <$as_myself | + sed ' + N + s,$,-, + : loop + s,^\(['$as_cr_digits']*\)\(.*\)[$]LINENO\([^'$as_cr_alnum'_]\),\1\2\1\3, + t loop + s,-$,, + s,^['$as_cr_digits']*\n,, + ' >$as_me.lineno && + chmod +x $as_me.lineno || + { { echo "$as_me:$LINENO: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&5 +echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2;} + { (exit 1); exit 1; }; } + + # Don't try to exec as it changes $[0], causing all sort of problems + # (the dirname of $[0] is not the place where we might find the + # original and so on. Autoconf is especially sensible to this). + . ./$as_me.lineno + # Exit status is that of the last command. + exit +} + + +case `echo "testing\c"; echo 1,2,3`,`echo -n testing; echo 1,2,3` in + *c*,-n*) ECHO_N= ECHO_C=' +' ECHO_T=' ' ;; + *c*,* ) ECHO_N=-n ECHO_C= ECHO_T= ;; + *) ECHO_N= ECHO_C='\c' ECHO_T= ;; +esac + +if expr a : '\(a\)' >/dev/null 2>&1; then + as_expr=expr +else + as_expr=false +fi + +rm -f conf$$ conf$$.exe conf$$.file +echo >conf$$.file +if ln -s conf$$.file conf$$ 2>/dev/null; then + # We could just check for DJGPP; but this test a) works b) is more generic + # and c) will remain valid once DJGPP supports symlinks (DJGPP 2.04). + if test -f conf$$.exe; then + # Don't use ln at all; we don't have any links + as_ln_s='cp -p' + else + as_ln_s='ln -s' + fi +elif ln conf$$.file conf$$ 2>/dev/null; then + as_ln_s=ln +else + as_ln_s='cp -p' +fi +rm -f conf$$ conf$$.exe conf$$.file + +if mkdir -p . 2>/dev/null; then + as_mkdir_p=: +else + test -d ./-p && rmdir ./-p + as_mkdir_p=false +fi + +as_executable_p="test -f" + +# Sed expression to map a string onto a valid CPP name. +as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" + +# Sed expression to map a string onto a valid variable name. +as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" + + +# IFS +# We need space, tab and new line, in precisely that order. +as_nl=' +' +IFS=" $as_nl" + +# CDPATH. +$as_unset CDPATH + +exec 6>&1 + +# Open the log real soon, to keep \$[0] and so on meaningful, and to +# report actual input values of CONFIG_FILES etc. instead of their +# values after options handling. Logging --version etc. is OK. +exec 5>>config.log +{ + echo + sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX +## Running $as_me. ## +_ASBOX +} >&5 +cat >&5 <<_CSEOF + +This file was extended by veriwell $as_me 2.8.2, which was +generated by GNU Autoconf 2.59. Invocation command line was + + CONFIG_FILES = $CONFIG_FILES + CONFIG_HEADERS = $CONFIG_HEADERS + CONFIG_LINKS = $CONFIG_LINKS + CONFIG_COMMANDS = $CONFIG_COMMANDS + $ $0 $@ + +_CSEOF +echo "on `(hostname || uname -n) 2>/dev/null | sed 1q`" >&5 +echo >&5 +_ACEOF + +# Files that config.status was made for. +if test -n "$ac_config_files"; then + echo "config_files=\"$ac_config_files\"" >>$CONFIG_STATUS +fi + +if test -n "$ac_config_headers"; then + echo "config_headers=\"$ac_config_headers\"" >>$CONFIG_STATUS +fi + +if test -n "$ac_config_links"; then + echo "config_links=\"$ac_config_links\"" >>$CONFIG_STATUS +fi + +if test -n "$ac_config_commands"; then + echo "config_commands=\"$ac_config_commands\"" >>$CONFIG_STATUS +fi + +cat >>$CONFIG_STATUS <<\_ACEOF + +ac_cs_usage="\ +\`$as_me' instantiates files from templates according to the +current configuration. + +Usage: $0 [OPTIONS] [FILE]... + + -h, --help print this help, then exit + -V, --version print version number, then exit + -q, --quiet do not print progress messages + -d, --debug don't remove temporary files + --recheck update $as_me by reconfiguring in the same conditions + --file=FILE[:TEMPLATE] + instantiate the configuration file FILE + --header=FILE[:TEMPLATE] + instantiate the configuration header FILE + +Configuration files: +$config_files + +Configuration headers: +$config_headers + +Configuration commands: +$config_commands + +Report bugs to ." +_ACEOF + +cat >>$CONFIG_STATUS <<_ACEOF +ac_cs_version="\\ +veriwell config.status 2.8.2 +configured by $0, generated by GNU Autoconf 2.59, + with options \\"`echo "$ac_configure_args" | sed 's/[\\""\`\$]/\\\\&/g'`\\" + +Copyright (C) 2003 Free Software Foundation, Inc. +This config.status script is free software; the Free Software Foundation +gives unlimited permission to copy, distribute and modify it." +srcdir=$srcdir +INSTALL="$INSTALL" +_ACEOF + +cat >>$CONFIG_STATUS <<\_ACEOF +# If no file are specified by the user, then we need to provide default +# value. By we need to know if files were specified by the user. +ac_need_defaults=: +while test $# != 0 +do + case $1 in + --*=*) + ac_option=`expr "x$1" : 'x\([^=]*\)='` + ac_optarg=`expr "x$1" : 'x[^=]*=\(.*\)'` + ac_shift=: + ;; + -*) + ac_option=$1 + ac_optarg=$2 + ac_shift=shift + ;; + *) # This is not an option, so the user has probably given explicit + # arguments. + ac_option=$1 + ac_need_defaults=false;; + esac + + case $ac_option in + # Handling of the options. +_ACEOF +cat >>$CONFIG_STATUS <<\_ACEOF + -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) + ac_cs_recheck=: ;; + --version | --vers* | -V ) + echo "$ac_cs_version"; exit 0 ;; + --he | --h) + # Conflict between --help and --header + { { echo "$as_me:$LINENO: error: ambiguous option: $1 +Try \`$0 --help' for more information." >&5 +echo "$as_me: error: ambiguous option: $1 +Try \`$0 --help' for more information." >&2;} + { (exit 1); exit 1; }; };; + --help | --hel | -h ) + echo "$ac_cs_usage"; exit 0 ;; + --debug | --d* | -d ) + debug=: ;; + --file | --fil | --fi | --f ) + $ac_shift + CONFIG_FILES="$CONFIG_FILES $ac_optarg" + ac_need_defaults=false;; + --header | --heade | --head | --hea ) + $ac_shift + CONFIG_HEADERS="$CONFIG_HEADERS $ac_optarg" + ac_need_defaults=false;; + -q | -quiet | --quiet | --quie | --qui | --qu | --q \ + | -silent | --silent | --silen | --sile | --sil | --si | --s) + ac_cs_silent=: ;; + + # This is an error. + -*) { { echo "$as_me:$LINENO: error: unrecognized option: $1 +Try \`$0 --help' for more information." >&5 +echo "$as_me: error: unrecognized option: $1 +Try \`$0 --help' for more information." >&2;} + { (exit 1); exit 1; }; } ;; + + *) ac_config_targets="$ac_config_targets $1" ;; + + esac + shift +done + +ac_configure_extra_args= + +if $ac_cs_silent; then + exec 6>/dev/null + ac_configure_extra_args="$ac_configure_extra_args --silent" +fi + +_ACEOF +cat >>$CONFIG_STATUS <<_ACEOF +if \$ac_cs_recheck; then + echo "running $SHELL $0 " $ac_configure_args \$ac_configure_extra_args " --no-create --no-recursion" >&6 + exec $SHELL $0 $ac_configure_args \$ac_configure_extra_args --no-create --no-recursion +fi + +_ACEOF + +cat >>$CONFIG_STATUS <<_ACEOF +# +# INIT-COMMANDS section. +# + +AMDEP_TRUE="$AMDEP_TRUE" ac_aux_dir="$ac_aux_dir" + +_ACEOF + + + +cat >>$CONFIG_STATUS <<\_ACEOF +for ac_config_target in $ac_config_targets +do + case "$ac_config_target" in + # Handling of arguments. + "Makefile" ) CONFIG_FILES="$CONFIG_FILES Makefile" ;; + "replace/Makefile" ) CONFIG_FILES="$CONFIG_FILES replace/Makefile" ;; + "src/Makefile" ) CONFIG_FILES="$CONFIG_FILES src/Makefile" ;; + "lxt/Makefile" ) CONFIG_FILES="$CONFIG_FILES lxt/Makefile" ;; + "depfiles" ) CONFIG_COMMANDS="$CONFIG_COMMANDS depfiles" ;; + "config.h" ) CONFIG_HEADERS="$CONFIG_HEADERS config.h" ;; + *) { { echo "$as_me:$LINENO: error: invalid argument: $ac_config_target" >&5 +echo "$as_me: error: invalid argument: $ac_config_target" >&2;} + { (exit 1); exit 1; }; };; + esac +done + +# If the user did not use the arguments to specify the items to instantiate, +# then the envvar interface is used. Set only those that are not. +# We use the long form for the default assignment because of an extremely +# bizarre bug on SunOS 4.1.3. +if $ac_need_defaults; then + test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files + test "${CONFIG_HEADERS+set}" = set || CONFIG_HEADERS=$config_headers + test "${CONFIG_COMMANDS+set}" = set || CONFIG_COMMANDS=$config_commands +fi + +# Have a temporary directory for convenience. Make it in the build tree +# simply because there is no reason to put it here, and in addition, +# creating and moving files from /tmp can sometimes cause problems. +# Create a temporary directory, and hook for its removal unless debugging. +$debug || +{ + trap 'exit_status=$?; rm -rf $tmp && exit $exit_status' 0 + trap '{ (exit 1); exit 1; }' 1 2 13 15 +} + +# Create a (secure) tmp directory for tmp files. + +{ + tmp=`(umask 077 && mktemp -d -q "./confstatXXXXXX") 2>/dev/null` && + test -n "$tmp" && test -d "$tmp" +} || +{ + tmp=./confstat$$-$RANDOM + (umask 077 && mkdir $tmp) +} || +{ + echo "$me: cannot create a temporary directory in ." >&2 + { (exit 1); exit 1; } +} + +_ACEOF + +cat >>$CONFIG_STATUS <<_ACEOF + +# +# CONFIG_FILES section. +# + +# No need to generate the scripts if there are no CONFIG_FILES. +# This happens for instance when ./config.status config.h +if test -n "\$CONFIG_FILES"; then + # Protect against being on the right side of a sed subst in config.status. + sed 's/,@/@@/; s/@,/@@/; s/,;t t\$/@;t t/; /@;t t\$/s/[\\\\&,]/\\\\&/g; + s/@@/,@/; s/@@/@,/; s/@;t t\$/,;t t/' >\$tmp/subs.sed <<\\CEOF +s,@SHELL@,$SHELL,;t t +s,@PATH_SEPARATOR@,$PATH_SEPARATOR,;t t +s,@PACKAGE_NAME@,$PACKAGE_NAME,;t t +s,@PACKAGE_TARNAME@,$PACKAGE_TARNAME,;t t +s,@PACKAGE_VERSION@,$PACKAGE_VERSION,;t t +s,@PACKAGE_STRING@,$PACKAGE_STRING,;t t +s,@PACKAGE_BUGREPORT@,$PACKAGE_BUGREPORT,;t t +s,@exec_prefix@,$exec_prefix,;t t +s,@prefix@,$prefix,;t t +s,@program_transform_name@,$program_transform_name,;t t +s,@bindir@,$bindir,;t t +s,@sbindir@,$sbindir,;t t +s,@libexecdir@,$libexecdir,;t t +s,@datadir@,$datadir,;t t +s,@sysconfdir@,$sysconfdir,;t t +s,@sharedstatedir@,$sharedstatedir,;t t +s,@localstatedir@,$localstatedir,;t t +s,@libdir@,$libdir,;t t +s,@includedir@,$includedir,;t t +s,@oldincludedir@,$oldincludedir,;t t +s,@infodir@,$infodir,;t t +s,@mandir@,$mandir,;t t +s,@build_alias@,$build_alias,;t t +s,@host_alias@,$host_alias,;t t +s,@target_alias@,$target_alias,;t t +s,@DEFS@,$DEFS,;t t +s,@ECHO_C@,$ECHO_C,;t t +s,@ECHO_N@,$ECHO_N,;t t +s,@ECHO_T@,$ECHO_T,;t t +s,@LIBS@,$LIBS,;t t +s,@INSTALL_PROGRAM@,$INSTALL_PROGRAM,;t t +s,@INSTALL_SCRIPT@,$INSTALL_SCRIPT,;t t +s,@INSTALL_DATA@,$INSTALL_DATA,;t t +s,@CYGPATH_W@,$CYGPATH_W,;t t +s,@PACKAGE@,$PACKAGE,;t t +s,@VERSION@,$VERSION,;t t +s,@ACLOCAL@,$ACLOCAL,;t t +s,@AUTOCONF@,$AUTOCONF,;t t +s,@AUTOMAKE@,$AUTOMAKE,;t t +s,@AUTOHEADER@,$AUTOHEADER,;t t +s,@MAKEINFO@,$MAKEINFO,;t t +s,@install_sh@,$install_sh,;t t +s,@STRIP@,$STRIP,;t t +s,@ac_ct_STRIP@,$ac_ct_STRIP,;t t +s,@INSTALL_STRIP_PROGRAM@,$INSTALL_STRIP_PROGRAM,;t t +s,@mkdir_p@,$mkdir_p,;t t +s,@AWK@,$AWK,;t t +s,@SET_MAKE@,$SET_MAKE,;t t +s,@am__leading_dot@,$am__leading_dot,;t t +s,@AMTAR@,$AMTAR,;t t +s,@am__tar@,$am__tar,;t t +s,@am__untar@,$am__untar,;t t +s,@CXX@,$CXX,;t t +s,@CXXFLAGS@,$CXXFLAGS,;t t +s,@LDFLAGS@,$LDFLAGS,;t t +s,@CPPFLAGS@,$CPPFLAGS,;t t +s,@ac_ct_CXX@,$ac_ct_CXX,;t t +s,@EXEEXT@,$EXEEXT,;t t +s,@OBJEXT@,$OBJEXT,;t t +s,@DEPDIR@,$DEPDIR,;t t +s,@am__include@,$am__include,;t t +s,@am__quote@,$am__quote,;t t +s,@AMDEP_TRUE@,$AMDEP_TRUE,;t t +s,@AMDEP_FALSE@,$AMDEP_FALSE,;t t +s,@AMDEPBACKSLASH@,$AMDEPBACKSLASH,;t t +s,@CXXDEPMODE@,$CXXDEPMODE,;t t +s,@am__fastdepCXX_TRUE@,$am__fastdepCXX_TRUE,;t t +s,@am__fastdepCXX_FALSE@,$am__fastdepCXX_FALSE,;t t +s,@CC@,$CC,;t t +s,@CFLAGS@,$CFLAGS,;t t +s,@ac_ct_CC@,$ac_ct_CC,;t t +s,@CCDEPMODE@,$CCDEPMODE,;t t +s,@am__fastdepCC_TRUE@,$am__fastdepCC_TRUE,;t t +s,@am__fastdepCC_FALSE@,$am__fastdepCC_FALSE,;t t +s,@RANLIB@,$RANLIB,;t t +s,@ac_ct_RANLIB@,$ac_ct_RANLIB,;t t +s,@build@,$build,;t t +s,@build_cpu@,$build_cpu,;t t +s,@build_vendor@,$build_vendor,;t t +s,@build_os@,$build_os,;t t +s,@host@,$host,;t t +s,@host_cpu@,$host_cpu,;t t +s,@host_vendor@,$host_vendor,;t t +s,@host_os@,$host_os,;t t +s,@EGREP@,$EGREP,;t t +s,@LN_S@,$LN_S,;t t +s,@ECHO@,$ECHO,;t t +s,@AR@,$AR,;t t +s,@ac_ct_AR@,$ac_ct_AR,;t t +s,@CPP@,$CPP,;t t +s,@CXXCPP@,$CXXCPP,;t t +s,@F77@,$F77,;t t +s,@FFLAGS@,$FFLAGS,;t t +s,@ac_ct_F77@,$ac_ct_F77,;t t +s,@LIBTOOL@,$LIBTOOL,;t t +s,@XGPERF@,$XGPERF,;t t +s,@YACC@,$YACC,;t t +s,@LIBOBJS@,$LIBOBJS,;t t +s,@USE_LXT_TRUE@,$USE_LXT_TRUE,;t t +s,@USE_LXT_FALSE@,$USE_LXT_FALSE,;t t +s,@LTLIBOBJS@,$LTLIBOBJS,;t t +CEOF + +_ACEOF + + cat >>$CONFIG_STATUS <<\_ACEOF + # Split the substitutions into bite-sized pieces for seds with + # small command number limits, like on Digital OSF/1 and HP-UX. + ac_max_sed_lines=48 + ac_sed_frag=1 # Number of current file. + ac_beg=1 # First line for current file. + ac_end=$ac_max_sed_lines # Line after last line for current file. + ac_more_lines=: + ac_sed_cmds= + while $ac_more_lines; do + if test $ac_beg -gt 1; then + sed "1,${ac_beg}d; ${ac_end}q" $tmp/subs.sed >$tmp/subs.frag + else + sed "${ac_end}q" $tmp/subs.sed >$tmp/subs.frag + fi + if test ! -s $tmp/subs.frag; then + ac_more_lines=false + else + # The purpose of the label and of the branching condition is to + # speed up the sed processing (if there are no `@' at all, there + # is no need to browse any of the substitutions). + # These are the two extra sed commands mentioned above. + (echo ':t + /@[a-zA-Z_][a-zA-Z_0-9]*@/!b' && cat $tmp/subs.frag) >$tmp/subs-$ac_sed_frag.sed + if test -z "$ac_sed_cmds"; then + ac_sed_cmds="sed -f $tmp/subs-$ac_sed_frag.sed" + else + ac_sed_cmds="$ac_sed_cmds | sed -f $tmp/subs-$ac_sed_frag.sed" + fi + ac_sed_frag=`expr $ac_sed_frag + 1` + ac_beg=$ac_end + ac_end=`expr $ac_end + $ac_max_sed_lines` + fi + done + if test -z "$ac_sed_cmds"; then + ac_sed_cmds=cat + fi +fi # test -n "$CONFIG_FILES" + +_ACEOF +cat >>$CONFIG_STATUS <<\_ACEOF +for ac_file in : $CONFIG_FILES; do test "x$ac_file" = x: && continue + # Support "outfile[:infile[:infile...]]", defaulting infile="outfile.in". + case $ac_file in + - | *:- | *:-:* ) # input from stdin + cat >$tmp/stdin + ac_file_in=`echo "$ac_file" | sed 's,[^:]*:,,'` + ac_file=`echo "$ac_file" | sed 's,:.*,,'` ;; + *:* ) ac_file_in=`echo "$ac_file" | sed 's,[^:]*:,,'` + ac_file=`echo "$ac_file" | sed 's,:.*,,'` ;; + * ) ac_file_in=$ac_file.in ;; + esac + + # Compute @srcdir@, @top_srcdir@, and @INSTALL@ for subdirectories. + ac_dir=`(dirname "$ac_file") 2>/dev/null || +$as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$ac_file" : 'X\(//\)[^/]' \| \ + X"$ac_file" : 'X\(//\)$' \| \ + X"$ac_file" : 'X\(/\)' \| \ + . : '\(.\)' 2>/dev/null || +echo X"$ac_file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/; q; } + /^X\(\/\/\)[^/].*/{ s//\1/; q; } + /^X\(\/\/\)$/{ s//\1/; q; } + /^X\(\/\).*/{ s//\1/; q; } + s/.*/./; q'` + { if $as_mkdir_p; then + mkdir -p "$ac_dir" + else + as_dir="$ac_dir" + as_dirs= + while test ! -d "$as_dir"; do + as_dirs="$as_dir $as_dirs" + as_dir=`(dirname "$as_dir") 2>/dev/null || +$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$as_dir" : 'X\(//\)[^/]' \| \ + X"$as_dir" : 'X\(//\)$' \| \ + X"$as_dir" : 'X\(/\)' \| \ + . : '\(.\)' 2>/dev/null || +echo X"$as_dir" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/; q; } + /^X\(\/\/\)[^/].*/{ s//\1/; q; } + /^X\(\/\/\)$/{ s//\1/; q; } + /^X\(\/\).*/{ s//\1/; q; } + s/.*/./; q'` + done + test ! -n "$as_dirs" || mkdir $as_dirs + fi || { { echo "$as_me:$LINENO: error: cannot create directory \"$ac_dir\"" >&5 +echo "$as_me: error: cannot create directory \"$ac_dir\"" >&2;} + { (exit 1); exit 1; }; }; } + + ac_builddir=. + +if test "$ac_dir" != .; then + ac_dir_suffix=/`echo "$ac_dir" | sed 's,^\.[\\/],,'` + # A "../" for each directory in $ac_dir_suffix. + ac_top_builddir=`echo "$ac_dir_suffix" | sed 's,/[^\\/]*,../,g'` +else + ac_dir_suffix= ac_top_builddir= +fi + +case $srcdir in + .) # No --srcdir option. We are building in place. + ac_srcdir=. + if test -z "$ac_top_builddir"; then + ac_top_srcdir=. + else + ac_top_srcdir=`echo $ac_top_builddir | sed 's,/$,,'` + fi ;; + [\\/]* | ?:[\\/]* ) # Absolute path. + ac_srcdir=$srcdir$ac_dir_suffix; + ac_top_srcdir=$srcdir ;; + *) # Relative path. + ac_srcdir=$ac_top_builddir$srcdir$ac_dir_suffix + ac_top_srcdir=$ac_top_builddir$srcdir ;; +esac + +# Do not use `cd foo && pwd` to compute absolute paths, because +# the directories may not exist. +case `pwd` in +.) ac_abs_builddir="$ac_dir";; +*) + case "$ac_dir" in + .) ac_abs_builddir=`pwd`;; + [\\/]* | ?:[\\/]* ) ac_abs_builddir="$ac_dir";; + *) ac_abs_builddir=`pwd`/"$ac_dir";; + esac;; +esac +case $ac_abs_builddir in +.) ac_abs_top_builddir=${ac_top_builddir}.;; +*) + case ${ac_top_builddir}. in + .) ac_abs_top_builddir=$ac_abs_builddir;; + [\\/]* | ?:[\\/]* ) ac_abs_top_builddir=${ac_top_builddir}.;; + *) ac_abs_top_builddir=$ac_abs_builddir/${ac_top_builddir}.;; + esac;; +esac +case $ac_abs_builddir in +.) ac_abs_srcdir=$ac_srcdir;; +*) + case $ac_srcdir in + .) ac_abs_srcdir=$ac_abs_builddir;; + [\\/]* | ?:[\\/]* ) ac_abs_srcdir=$ac_srcdir;; + *) ac_abs_srcdir=$ac_abs_builddir/$ac_srcdir;; + esac;; +esac +case $ac_abs_builddir in +.) ac_abs_top_srcdir=$ac_top_srcdir;; +*) + case $ac_top_srcdir in + .) ac_abs_top_srcdir=$ac_abs_builddir;; + [\\/]* | ?:[\\/]* ) ac_abs_top_srcdir=$ac_top_srcdir;; + *) ac_abs_top_srcdir=$ac_abs_builddir/$ac_top_srcdir;; + esac;; +esac + + + case $INSTALL in + [\\/$]* | ?:[\\/]* ) ac_INSTALL=$INSTALL ;; + *) ac_INSTALL=$ac_top_builddir$INSTALL ;; + esac + + if test x"$ac_file" != x-; then + { echo "$as_me:$LINENO: creating $ac_file" >&5 +echo "$as_me: creating $ac_file" >&6;} + rm -f "$ac_file" + fi + # Let's still pretend it is `configure' which instantiates (i.e., don't + # use $as_me), people would be surprised to read: + # /* config.h. Generated by config.status. */ + if test x"$ac_file" = x-; then + configure_input= + else + configure_input="$ac_file. " + fi + configure_input=$configure_input"Generated from `echo $ac_file_in | + sed 's,.*/,,'` by configure." + + # First look for the input files in the build tree, otherwise in the + # src tree. + ac_file_inputs=`IFS=: + for f in $ac_file_in; do + case $f in + -) echo $tmp/stdin ;; + [\\/$]*) + # Absolute (can't be DOS-style, as IFS=:) + test -f "$f" || { { echo "$as_me:$LINENO: error: cannot find input file: $f" >&5 +echo "$as_me: error: cannot find input file: $f" >&2;} + { (exit 1); exit 1; }; } + echo "$f";; + *) # Relative + if test -f "$f"; then + # Build tree + echo "$f" + elif test -f "$srcdir/$f"; then + # Source tree + echo "$srcdir/$f" + else + # /dev/null tree + { { echo "$as_me:$LINENO: error: cannot find input file: $f" >&5 +echo "$as_me: error: cannot find input file: $f" >&2;} + { (exit 1); exit 1; }; } + fi;; + esac + done` || { (exit 1); exit 1; } +_ACEOF +cat >>$CONFIG_STATUS <<_ACEOF + sed "$ac_vpsub +$extrasub +_ACEOF +cat >>$CONFIG_STATUS <<\_ACEOF +:t +/@[a-zA-Z_][a-zA-Z_0-9]*@/!b +s,@configure_input@,$configure_input,;t t +s,@srcdir@,$ac_srcdir,;t t +s,@abs_srcdir@,$ac_abs_srcdir,;t t +s,@top_srcdir@,$ac_top_srcdir,;t t +s,@abs_top_srcdir@,$ac_abs_top_srcdir,;t t +s,@builddir@,$ac_builddir,;t t +s,@abs_builddir@,$ac_abs_builddir,;t t +s,@top_builddir@,$ac_top_builddir,;t t +s,@abs_top_builddir@,$ac_abs_top_builddir,;t t +s,@INSTALL@,$ac_INSTALL,;t t +" $ac_file_inputs | (eval "$ac_sed_cmds") >$tmp/out + rm -f $tmp/stdin + if test x"$ac_file" != x-; then + mv $tmp/out $ac_file + else + cat $tmp/out + rm -f $tmp/out + fi + +done +_ACEOF +cat >>$CONFIG_STATUS <<\_ACEOF + +# +# CONFIG_HEADER section. +# + +# These sed commands are passed to sed as "A NAME B NAME C VALUE D", where +# NAME is the cpp macro being defined and VALUE is the value it is being given. +# +# ac_d sets the value in "#define NAME VALUE" lines. +ac_dA='s,^\([ ]*\)#\([ ]*define[ ][ ]*\)' +ac_dB='[ ].*$,\1#\2' +ac_dC=' ' +ac_dD=',;t' +# ac_u turns "#undef NAME" without trailing blanks into "#define NAME VALUE". +ac_uA='s,^\([ ]*\)#\([ ]*\)undef\([ ][ ]*\)' +ac_uB='$,\1#\2define\3' +ac_uC=' ' +ac_uD=',;t' + +for ac_file in : $CONFIG_HEADERS; do test "x$ac_file" = x: && continue + # Support "outfile[:infile[:infile...]]", defaulting infile="outfile.in". + case $ac_file in + - | *:- | *:-:* ) # input from stdin + cat >$tmp/stdin + ac_file_in=`echo "$ac_file" | sed 's,[^:]*:,,'` + ac_file=`echo "$ac_file" | sed 's,:.*,,'` ;; + *:* ) ac_file_in=`echo "$ac_file" | sed 's,[^:]*:,,'` + ac_file=`echo "$ac_file" | sed 's,:.*,,'` ;; + * ) ac_file_in=$ac_file.in ;; + esac + + test x"$ac_file" != x- && { echo "$as_me:$LINENO: creating $ac_file" >&5 +echo "$as_me: creating $ac_file" >&6;} + + # First look for the input files in the build tree, otherwise in the + # src tree. + ac_file_inputs=`IFS=: + for f in $ac_file_in; do + case $f in + -) echo $tmp/stdin ;; + [\\/$]*) + # Absolute (can't be DOS-style, as IFS=:) + test -f "$f" || { { echo "$as_me:$LINENO: error: cannot find input file: $f" >&5 +echo "$as_me: error: cannot find input file: $f" >&2;} + { (exit 1); exit 1; }; } + # Do quote $f, to prevent DOS paths from being IFS'd. + echo "$f";; + *) # Relative + if test -f "$f"; then + # Build tree + echo "$f" + elif test -f "$srcdir/$f"; then + # Source tree + echo "$srcdir/$f" + else + # /dev/null tree + { { echo "$as_me:$LINENO: error: cannot find input file: $f" >&5 +echo "$as_me: error: cannot find input file: $f" >&2;} + { (exit 1); exit 1; }; } + fi;; + esac + done` || { (exit 1); exit 1; } + # Remove the trailing spaces. + sed 's/[ ]*$//' $ac_file_inputs >$tmp/in + +_ACEOF + +# Transform confdefs.h into two sed scripts, `conftest.defines' and +# `conftest.undefs', that substitutes the proper values into +# config.h.in to produce config.h. The first handles `#define' +# templates, and the second `#undef' templates. +# And first: Protect against being on the right side of a sed subst in +# config.status. Protect against being in an unquoted here document +# in config.status. +rm -f conftest.defines conftest.undefs +# Using a here document instead of a string reduces the quoting nightmare. +# Putting comments in sed scripts is not portable. +# +# `end' is used to avoid that the second main sed command (meant for +# 0-ary CPP macros) applies to n-ary macro definitions. +# See the Autoconf documentation for `clear'. +cat >confdef2sed.sed <<\_ACEOF +s/[\\&,]/\\&/g +s,[\\$`],\\&,g +t clear +: clear +s,^[ ]*#[ ]*define[ ][ ]*\([^ (][^ (]*\)\(([^)]*)\)[ ]*\(.*\)$,${ac_dA}\1${ac_dB}\1\2${ac_dC}\3${ac_dD},gp +t end +s,^[ ]*#[ ]*define[ ][ ]*\([^ ][^ ]*\)[ ]*\(.*\)$,${ac_dA}\1${ac_dB}\1${ac_dC}\2${ac_dD},gp +: end +_ACEOF +# If some macros were called several times there might be several times +# the same #defines, which is useless. Nevertheless, we may not want to +# sort them, since we want the *last* AC-DEFINE to be honored. +uniq confdefs.h | sed -n -f confdef2sed.sed >conftest.defines +sed 's/ac_d/ac_u/g' conftest.defines >conftest.undefs +rm -f confdef2sed.sed + +# This sed command replaces #undef with comments. This is necessary, for +# example, in the case of _POSIX_SOURCE, which is predefined and required +# on some systems where configure will not decide to define it. +cat >>conftest.undefs <<\_ACEOF +s,^[ ]*#[ ]*undef[ ][ ]*[a-zA-Z_][a-zA-Z_0-9]*,/* & */, +_ACEOF + +# Break up conftest.defines because some shells have a limit on the size +# of here documents, and old seds have small limits too (100 cmds). +echo ' # Handle all the #define templates only if necessary.' >>$CONFIG_STATUS +echo ' if grep "^[ ]*#[ ]*define" $tmp/in >/dev/null; then' >>$CONFIG_STATUS +echo ' # If there are no defines, we may have an empty if/fi' >>$CONFIG_STATUS +echo ' :' >>$CONFIG_STATUS +rm -f conftest.tail +while grep . conftest.defines >/dev/null +do + # Write a limited-size here document to $tmp/defines.sed. + echo ' cat >$tmp/defines.sed <>$CONFIG_STATUS + # Speed up: don't consider the non `#define' lines. + echo '/^[ ]*#[ ]*define/!b' >>$CONFIG_STATUS + # Work around the forget-to-reset-the-flag bug. + echo 't clr' >>$CONFIG_STATUS + echo ': clr' >>$CONFIG_STATUS + sed ${ac_max_here_lines}q conftest.defines >>$CONFIG_STATUS + echo 'CEOF + sed -f $tmp/defines.sed $tmp/in >$tmp/out + rm -f $tmp/in + mv $tmp/out $tmp/in +' >>$CONFIG_STATUS + sed 1,${ac_max_here_lines}d conftest.defines >conftest.tail + rm -f conftest.defines + mv conftest.tail conftest.defines +done +rm -f conftest.defines +echo ' fi # grep' >>$CONFIG_STATUS +echo >>$CONFIG_STATUS + +# Break up conftest.undefs because some shells have a limit on the size +# of here documents, and old seds have small limits too (100 cmds). +echo ' # Handle all the #undef templates' >>$CONFIG_STATUS +rm -f conftest.tail +while grep . conftest.undefs >/dev/null +do + # Write a limited-size here document to $tmp/undefs.sed. + echo ' cat >$tmp/undefs.sed <>$CONFIG_STATUS + # Speed up: don't consider the non `#undef' + echo '/^[ ]*#[ ]*undef/!b' >>$CONFIG_STATUS + # Work around the forget-to-reset-the-flag bug. + echo 't clr' >>$CONFIG_STATUS + echo ': clr' >>$CONFIG_STATUS + sed ${ac_max_here_lines}q conftest.undefs >>$CONFIG_STATUS + echo 'CEOF + sed -f $tmp/undefs.sed $tmp/in >$tmp/out + rm -f $tmp/in + mv $tmp/out $tmp/in +' >>$CONFIG_STATUS + sed 1,${ac_max_here_lines}d conftest.undefs >conftest.tail + rm -f conftest.undefs + mv conftest.tail conftest.undefs +done +rm -f conftest.undefs + +cat >>$CONFIG_STATUS <<\_ACEOF + # Let's still pretend it is `configure' which instantiates (i.e., don't + # use $as_me), people would be surprised to read: + # /* config.h. Generated by config.status. */ + if test x"$ac_file" = x-; then + echo "/* Generated by configure. */" >$tmp/config.h + else + echo "/* $ac_file. Generated by configure. */" >$tmp/config.h + fi + cat $tmp/in >>$tmp/config.h + rm -f $tmp/in + if test x"$ac_file" != x-; then + if diff $ac_file $tmp/config.h >/dev/null 2>&1; then + { echo "$as_me:$LINENO: $ac_file is unchanged" >&5 +echo "$as_me: $ac_file is unchanged" >&6;} + else + ac_dir=`(dirname "$ac_file") 2>/dev/null || +$as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$ac_file" : 'X\(//\)[^/]' \| \ + X"$ac_file" : 'X\(//\)$' \| \ + X"$ac_file" : 'X\(/\)' \| \ + . : '\(.\)' 2>/dev/null || +echo X"$ac_file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/; q; } + /^X\(\/\/\)[^/].*/{ s//\1/; q; } + /^X\(\/\/\)$/{ s//\1/; q; } + /^X\(\/\).*/{ s//\1/; q; } + s/.*/./; q'` + { if $as_mkdir_p; then + mkdir -p "$ac_dir" + else + as_dir="$ac_dir" + as_dirs= + while test ! -d "$as_dir"; do + as_dirs="$as_dir $as_dirs" + as_dir=`(dirname "$as_dir") 2>/dev/null || +$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$as_dir" : 'X\(//\)[^/]' \| \ + X"$as_dir" : 'X\(//\)$' \| \ + X"$as_dir" : 'X\(/\)' \| \ + . : '\(.\)' 2>/dev/null || +echo X"$as_dir" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/; q; } + /^X\(\/\/\)[^/].*/{ s//\1/; q; } + /^X\(\/\/\)$/{ s//\1/; q; } + /^X\(\/\).*/{ s//\1/; q; } + s/.*/./; q'` + done + test ! -n "$as_dirs" || mkdir $as_dirs + fi || { { echo "$as_me:$LINENO: error: cannot create directory \"$ac_dir\"" >&5 +echo "$as_me: error: cannot create directory \"$ac_dir\"" >&2;} + { (exit 1); exit 1; }; }; } + + rm -f $ac_file + mv $tmp/config.h $ac_file + fi + else + cat $tmp/config.h + rm -f $tmp/config.h + fi +# Compute $ac_file's index in $config_headers. +_am_stamp_count=1 +for _am_header in $config_headers :; do + case $_am_header in + $ac_file | $ac_file:* ) + break ;; + * ) + _am_stamp_count=`expr $_am_stamp_count + 1` ;; + esac +done +echo "timestamp for $ac_file" >`(dirname $ac_file) 2>/dev/null || +$as_expr X$ac_file : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X$ac_file : 'X\(//\)[^/]' \| \ + X$ac_file : 'X\(//\)$' \| \ + X$ac_file : 'X\(/\)' \| \ + . : '\(.\)' 2>/dev/null || +echo X$ac_file | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/; q; } + /^X\(\/\/\)[^/].*/{ s//\1/; q; } + /^X\(\/\/\)$/{ s//\1/; q; } + /^X\(\/\).*/{ s//\1/; q; } + s/.*/./; q'`/stamp-h$_am_stamp_count +done +_ACEOF +cat >>$CONFIG_STATUS <<\_ACEOF + +# +# CONFIG_COMMANDS section. +# +for ac_file in : $CONFIG_COMMANDS; do test "x$ac_file" = x: && continue + ac_dest=`echo "$ac_file" | sed 's,:.*,,'` + ac_source=`echo "$ac_file" | sed 's,[^:]*:,,'` + ac_dir=`(dirname "$ac_dest") 2>/dev/null || +$as_expr X"$ac_dest" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$ac_dest" : 'X\(//\)[^/]' \| \ + X"$ac_dest" : 'X\(//\)$' \| \ + X"$ac_dest" : 'X\(/\)' \| \ + . : '\(.\)' 2>/dev/null || +echo X"$ac_dest" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/; q; } + /^X\(\/\/\)[^/].*/{ s//\1/; q; } + /^X\(\/\/\)$/{ s//\1/; q; } + /^X\(\/\).*/{ s//\1/; q; } + s/.*/./; q'` + { if $as_mkdir_p; then + mkdir -p "$ac_dir" + else + as_dir="$ac_dir" + as_dirs= + while test ! -d "$as_dir"; do + as_dirs="$as_dir $as_dirs" + as_dir=`(dirname "$as_dir") 2>/dev/null || +$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$as_dir" : 'X\(//\)[^/]' \| \ + X"$as_dir" : 'X\(//\)$' \| \ + X"$as_dir" : 'X\(/\)' \| \ + . : '\(.\)' 2>/dev/null || +echo X"$as_dir" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/; q; } + /^X\(\/\/\)[^/].*/{ s//\1/; q; } + /^X\(\/\/\)$/{ s//\1/; q; } + /^X\(\/\).*/{ s//\1/; q; } + s/.*/./; q'` + done + test ! -n "$as_dirs" || mkdir $as_dirs + fi || { { echo "$as_me:$LINENO: error: cannot create directory \"$ac_dir\"" >&5 +echo "$as_me: error: cannot create directory \"$ac_dir\"" >&2;} + { (exit 1); exit 1; }; }; } + + ac_builddir=. + +if test "$ac_dir" != .; then + ac_dir_suffix=/`echo "$ac_dir" | sed 's,^\.[\\/],,'` + # A "../" for each directory in $ac_dir_suffix. + ac_top_builddir=`echo "$ac_dir_suffix" | sed 's,/[^\\/]*,../,g'` +else + ac_dir_suffix= ac_top_builddir= +fi + +case $srcdir in + .) # No --srcdir option. We are building in place. + ac_srcdir=. + if test -z "$ac_top_builddir"; then + ac_top_srcdir=. + else + ac_top_srcdir=`echo $ac_top_builddir | sed 's,/$,,'` + fi ;; + [\\/]* | ?:[\\/]* ) # Absolute path. + ac_srcdir=$srcdir$ac_dir_suffix; + ac_top_srcdir=$srcdir ;; + *) # Relative path. + ac_srcdir=$ac_top_builddir$srcdir$ac_dir_suffix + ac_top_srcdir=$ac_top_builddir$srcdir ;; +esac + +# Do not use `cd foo && pwd` to compute absolute paths, because +# the directories may not exist. +case `pwd` in +.) ac_abs_builddir="$ac_dir";; +*) + case "$ac_dir" in + .) ac_abs_builddir=`pwd`;; + [\\/]* | ?:[\\/]* ) ac_abs_builddir="$ac_dir";; + *) ac_abs_builddir=`pwd`/"$ac_dir";; + esac;; +esac +case $ac_abs_builddir in +.) ac_abs_top_builddir=${ac_top_builddir}.;; +*) + case ${ac_top_builddir}. in + .) ac_abs_top_builddir=$ac_abs_builddir;; + [\\/]* | ?:[\\/]* ) ac_abs_top_builddir=${ac_top_builddir}.;; + *) ac_abs_top_builddir=$ac_abs_builddir/${ac_top_builddir}.;; + esac;; +esac +case $ac_abs_builddir in +.) ac_abs_srcdir=$ac_srcdir;; +*) + case $ac_srcdir in + .) ac_abs_srcdir=$ac_abs_builddir;; + [\\/]* | ?:[\\/]* ) ac_abs_srcdir=$ac_srcdir;; + *) ac_abs_srcdir=$ac_abs_builddir/$ac_srcdir;; + esac;; +esac +case $ac_abs_builddir in +.) ac_abs_top_srcdir=$ac_top_srcdir;; +*) + case $ac_top_srcdir in + .) ac_abs_top_srcdir=$ac_abs_builddir;; + [\\/]* | ?:[\\/]* ) ac_abs_top_srcdir=$ac_top_srcdir;; + *) ac_abs_top_srcdir=$ac_abs_builddir/$ac_top_srcdir;; + esac;; +esac + + + { echo "$as_me:$LINENO: executing $ac_dest commands" >&5 +echo "$as_me: executing $ac_dest commands" >&6;} + case $ac_dest in + depfiles ) test x"$AMDEP_TRUE" != x"" || for mf in $CONFIG_FILES; do + # Strip MF so we end up with the name of the file. + mf=`echo "$mf" | sed -e 's/:.*$//'` + # Check whether this is an Automake generated Makefile or not. + # We used to match only the files named `Makefile.in', but + # some people rename them; so instead we look at the file content. + # Grep'ing the first line is not enough: some people post-process + # each Makefile.in and add a new line on top of each file to say so. + # So let's grep whole file. + if grep '^#.*generated by automake' $mf > /dev/null 2>&1; then + dirpart=`(dirname "$mf") 2>/dev/null || +$as_expr X"$mf" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$mf" : 'X\(//\)[^/]' \| \ + X"$mf" : 'X\(//\)$' \| \ + X"$mf" : 'X\(/\)' \| \ + . : '\(.\)' 2>/dev/null || +echo X"$mf" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/; q; } + /^X\(\/\/\)[^/].*/{ s//\1/; q; } + /^X\(\/\/\)$/{ s//\1/; q; } + /^X\(\/\).*/{ s//\1/; q; } + s/.*/./; q'` + else + continue + fi + # Extract the definition of DEPDIR, am__include, and am__quote + # from the Makefile without running `make'. + DEPDIR=`sed -n 's/^DEPDIR = //p' < "$mf"` + test -z "$DEPDIR" && continue + am__include=`sed -n 's/^am__include = //p' < "$mf"` + test -z "am__include" && continue + am__quote=`sed -n 's/^am__quote = //p' < "$mf"` + # When using ansi2knr, U may be empty or an underscore; expand it + U=`sed -n 's/^U = //p' < "$mf"` + # Find all dependency output files, they are included files with + # $(DEPDIR) in their names. We invoke sed twice because it is the + # simplest approach to changing $(DEPDIR) to its actual value in the + # expansion. + for file in `sed -n " + s/^$am__include $am__quote\(.*(DEPDIR).*\)$am__quote"'$/\1/p' <"$mf" | \ + sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g' -e 's/\$U/'"$U"'/g'`; do + # Make sure the directory exists. + test -f "$dirpart/$file" && continue + fdir=`(dirname "$file") 2>/dev/null || +$as_expr X"$file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$file" : 'X\(//\)[^/]' \| \ + X"$file" : 'X\(//\)$' \| \ + X"$file" : 'X\(/\)' \| \ + . : '\(.\)' 2>/dev/null || +echo X"$file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/; q; } + /^X\(\/\/\)[^/].*/{ s//\1/; q; } + /^X\(\/\/\)$/{ s//\1/; q; } + /^X\(\/\).*/{ s//\1/; q; } + s/.*/./; q'` + { if $as_mkdir_p; then + mkdir -p $dirpart/$fdir + else + as_dir=$dirpart/$fdir + as_dirs= + while test ! -d "$as_dir"; do + as_dirs="$as_dir $as_dirs" + as_dir=`(dirname "$as_dir") 2>/dev/null || +$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$as_dir" : 'X\(//\)[^/]' \| \ + X"$as_dir" : 'X\(//\)$' \| \ + X"$as_dir" : 'X\(/\)' \| \ + . : '\(.\)' 2>/dev/null || +echo X"$as_dir" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/; q; } + /^X\(\/\/\)[^/].*/{ s//\1/; q; } + /^X\(\/\/\)$/{ s//\1/; q; } + /^X\(\/\).*/{ s//\1/; q; } + s/.*/./; q'` + done + test ! -n "$as_dirs" || mkdir $as_dirs + fi || { { echo "$as_me:$LINENO: error: cannot create directory $dirpart/$fdir" >&5 +echo "$as_me: error: cannot create directory $dirpart/$fdir" >&2;} + { (exit 1); exit 1; }; }; } + + # echo "creating $dirpart/$file" + echo '# dummy' > "$dirpart/$file" + done +done + ;; + esac +done +_ACEOF + +cat >>$CONFIG_STATUS <<\_ACEOF + +{ (exit 0); exit 0; } +_ACEOF +chmod +x $CONFIG_STATUS +ac_clean_files=$ac_clean_files_save + + +# configure is writing to config.log, and then calls config.status. +# config.status does its own redirection, appending to config.log. +# Unfortunately, on DOS this fails, as config.log is still kept open +# by configure, so config.status won't be able to write to it; its +# output is simply discarded. So we exec the FD to /dev/null, +# effectively closing config.log, so it can be properly (re)opened and +# appended to by config.status. When coming back to configure, we +# need to make the FD available again. +if test "$no_create" != yes; then + ac_cs_success=: + ac_config_status_args= + test "$silent" = yes && + ac_config_status_args="$ac_config_status_args --quiet" + exec 5>/dev/null + $SHELL $CONFIG_STATUS $ac_config_status_args || ac_cs_success=false + exec 5>>config.log + # Use ||, not &&, to avoid exiting from the if with $? = 1, which + # would make configure fail if this is the last instruction. + $ac_cs_success || { (exit 1); exit 1; } +fi + diff --git a/configure.in b/configure.in new file mode 100644 index 0000000..9c6bef7 --- /dev/null +++ b/configure.in @@ -0,0 +1,107 @@ +AC_PREREQ(2.59) +AC_INIT(veriwell,2.8.2) +AC_CONFIG_AUX_DIR(config) +AC_CONFIG_HEADER([config.h]) + +AM_INIT_AUTOMAKE + +# Check for user supplied arguments +AC_MSG_CHECKING([use 32 bit compile]) +AC_ARG_ENABLE([m32],AC_HELP_STRING([--enable-m32], + [compile in 32 bit modes (default is no)]), + [ac_cv_enable_m32=yes], [ac_cv_enable_m32=no]) +AC_MSG_RESULT([$ac_cv_enable_m32]) + +AC_MSG_CHECKING([enable lxt support]) +AC_ARG_ENABLE([lxt],AC_HELP_STRING([--disable-lxt], + [compile lxt pli routines (default is yes)]), + [ac_cv_enable_lxt=no],ac_cv_enable_lxt=yes) +AC_MSG_RESULT([$ac_cv_enable_lxt]) + +# Checks for programs. +AC_PROG_CXX +AC_PROG_CC +AC_PROG_INSTALL +AC_PROG_RANLIB +if test X"$ac_cv_enable_m32" = Xyes +then + CFLAGS="$CFLAGS -m32" + CPPFLAGS="$CPPFLAGS -m32" + LDFLAGS="$LDFLAGS -m32" +fi +AC_PROG_LIBTOOL + +AC_CHECK_PROGS([XGPERF],[gperf],[none]) +if test "$XGPERF" = "none" +then + echo "" + echo "*** Warning: No suitable gperf found. ***" + echo " The gperf package is essential for building veriwell from" + echo " CVS sources, or modifying the parse engine of veriwell itself." + echo " You can get away without it when simply building from" + echo " snapshots or major releases." + echo "" +fi + +#AC_PROG_YACC +AC_CHECK_PROGS([YACC],[bison],[none]) +if test "$YACC" = "none" +then + echo "" + echo "*** Warning: No suitable bison found. ***" + echo " The bison package is essential for building veriwell from" + echo " CVS sources, or modifying the parse engine of veriwell itself." + echo " You can get away without it when simply building from" + echo " snapshots or major releases." + echo "" +fi + + + +# Checks for libraries. +AC_CHECK_LIB([z], [gzwrite], [AC_DEFINE(HAVE_LIBZ,[], + [Define to 1 if you have the `z' library (-lz).])]) +if test X"$ac_cv_enable_lxt" = Xyes; then + if test X"$ac_cv_lib_z_gzwrite" = Xno; then + echo "" + echo "*** Error: libz not found. lxt waveform dumping" + echo " cannot be built. Rerun configure with --disable-lxt." + echo "" + exit 1; + fi +fi + +VL_LIB_READLINE +if test ! "$HAVE_LIBREADLINE" = 1; then + AC_LIBOBJ([readline]) +fi + +# Checks for header files. +AC_HEADER_STDC +AC_CHECK_HEADERS([limits.h memory.h stddef.h stdlib.h stdarg.h string.h unistd.h]) + +# Checks for typedefs, structures, and compiler characteristics. +AC_HEADER_STDBOOL +AC_C_CONST +AC_C_INLINE +AC_TYPE_SIZE_T +AC_HEADER_TIME +AC_C_BIGENDIAN + +# Checks for library functions. +AC_FUNC_MALLOC +AC_TYPE_SIGNAL +AC_FUNC_VPRINTF +AC_CHECK_FUNCS([memmove memset pow strchr strdup strrchr]) +AC_REPLACE_FUNCS([vfscanf]) + + +# optional pli code +AM_CONDITIONAL( [USE_LXT], [test "$ac_cv_enable_lxt" = yes]) +if test "$ac_cv_enable_lxt" = yes +then + AC_DEFINE([HAVE_LXT],1,[Set to one if lxt library should be used]) +fi + +AC_CONFIG_FILES([Makefile] [replace/Makefile] [src/Makefile] [lxt/Makefile]) +AC_OUTPUT diff --git a/lxt/LXT_Explained.html b/lxt/LXT_Explained.html new file mode 100644 index 0000000..9f23e41 --- /dev/null +++ b/lxt/LXT_Explained.html @@ -0,0 +1,790 @@ + + + + + + LXT Explained + + + LXT File Format:
+
+ This document will use lxt_write.h (as found in src/helpers) as its source for various constant + definitions.  The three most important values in an LXT(interLaced +eXtensible Trace) file are the following:
+
+ #define LT_HDRID (0x0138)
+ #define LT_VERSION (0x0001)
+ #define LT_TRLID (0xB4)
+
+ An LXT file starts with a two byte LT_HDRID with the two byte version + number LT_VERSION concatenated onto it.  The last byte in the file + is the LT_TRLID.  These five bytes are the only "absolutes" in an +LXT file.
+
+ 01 38 00 01 ...file body... B4
+
+ As one may guess from the example above, all integer values +represented in LXT files are stored in big endian order.
+
+ +

+ LXT  Section  Pointers:
+ Preceeding the trailing ID byte B4 is a series of tag bytes which +themselves are preceeded by 32-bit offsets into the file which indicate +where the sections pointed to by the tags are located.  The exception +is tag 00 (LT_SECTION_END) which indicates that no more tags/sections are +specified:
+
+ 00 ... offset_for_tag_2, tag_2, offset_for_tag_1, tag_1, + B4
+
+ Currently defined tags are:
+
+ #define LT_SECTION_END                  + (0)
+ #define LT_SECTION_CHG                  + (1)
+ #define LT_SECTION_SYNC_TABLE           + (2)
+ #define LT_SECTION_FACNAME              + (3)
+ #define LT_SECTION_FACNAME_GEOMETRY     (4)
+ #define LT_SECTION_TIMESCALE            + (5)
+ #define LT_SECTION_TIME_TABLE           + (6)
+ #define LT_SECTION_INITIAL_VALUE        + (7)
+ #define LT_SECTION_DOUBLE_TEST          + (8)
+ #define LT_SECTION_TIME_TABLE64         + (9)
+
+ Let's put this all together with an example:
+
+ The first tag encountered is 08 (LT_SECTION_DOUBLE_TEST) +at 339.  Its offset value indicates the position of the double sized +floating point comparison testword.  Thus, the section location for +the testword is at 0309 from the beginning of the file.
+
+ 00000300: XX XX XX XX XX XX XX XX XX 6e 86 1b f0 f9 21 09  + .........n....!.
+ 00000310: 40 00 00 00 00 04 01 00 00 02 4b 02 00 00 00 be  + @.........K.....
+ 00000320: 03 00 00 01 4b 04 00 00 03 08 05 00 00 02 8b 06  ....K...........
+ 00000330: 00 00 03 07 07 00 00 03 09 08 b4 -- -- -- +-- --  ...........
+
+ The next tag encountered is 07 (LT_SECTION_INITIAL_VALUE) +at 334.  Its offset value indicates the position of the simulation initial + value. Even though this value is a single byte, its own section is defined. +  The reasoning behind this is that older versions of LXT readers would + be able to skip unknown sections without needing to know the size of the +section, how it functions, etc.
+
+ 00000300: XX XX XX XX XX XX XX XX XX 6e 86 1b f0 f9 21 09  + .........n....!.
+ 00000310: 40 00 00 00 00 04 01 00 00 02 4b 02 00 00 00 be  + @.........K.....
+ 00000320: 03 00 00 01 4b 04 00 00 03 08 05 00 00 02 8b 06  ....K...........
+ 00000330: 00 00 03 07 07 00 00 03 09 08 b4 -- -- -- +-- --  ...........
+
+ The next tag encountered is 06 (LT_SECTION_TIME_TABLE) at +32F.  Its offset value (the underlined four byte number) indicates the +position of the time table which stores the time value vs positional offset +for the value change data.
+
+ 00000300: XX XX XX XX XX XX XX XX XX 6e 86 1b f0 f9 21 09  + .........n....!.
+ 00000310: 40 00 00 00 00 04 01 00 00 02 4b 02 00 00 00 be  + @.........K.....
+ 00000320: 03 00 00 01 4b 04 00 00 03 08 05 00 00 02 8b +06   ....K...........
+ 00000330: 00 00 03 07 07 00 00 03 09 08 b4 -- -- -- -- --  ...........
+
+ The next tag encountered is 05 (LT_SECTION_TIMESCALE) at +32A.  Its offset value indicates the position of the timescale byte. + 
+
+ 00000300: XX XX XX XX XX XX XX XX XX 6e 86 1b f0 f9 21 09  + .........n....!.
+ 00000310: 40 00 00 00 00 04 01 00 00 02 4b 02 00 00 00 be  + @.........K.....
+ 00000320: 03 00 00 01 4b 04 00 00 03 08 05 00 00 02 +8b 06  ....K...........
+ 00000330: 00 00 03 07 07 00 00 03 09 08 b4 -- -- -- -- --  ...........
+
+ The next tag encountered is 04 (LT_SECTION_FACNAME_GEOMETRY + ) at 325.  Its offset value indicates the geometry (array/msb/lsb/type/etc) + of the dumped facilities (signals) in the file.
+
+ 00000300: XX XX XX XX XX XX XX XX XX 6e 86 1b f0 f9 21 09  + .........n....!.
+ 00000310: 40 00 00 00 00 04 01 00 00 02 4b 02 00 00 00 be  + @.........K.....
+ 00000320: 03 00 00 01 4b 04 00 00 03 08 05 00 00 02 +8b 06  ....K...........
+ 00000330: 00 00 03 07 07 00 00 03 09 08 b4 -- -- -- -- --  ...........
+
+ The next tag encountered is 03 (LT_SECTION_FACNAME) at 320. +  Its offset value indicates where the compressed facility names are +stored.
+
+ 00000300: XX XX XX XX XX XX XX XX XX 6e 86 1b f0 f9 21 09  + .........n....!.
+ 00000310: 40 00 00 00 00 04 01 00 00 02 4b 02 00 00 +00 be   @.........K.....
+ 00000320: 03 00 00 01 4b 04 00 00 03 08 05 00 00 02 8b 06  + ....K...........
+ 00000330: 00 00 03 07 07 00 00 03 09 08 b4 -- -- -- -- --  ...........
+
+ The next tag encountered is 02 (LT_SECTION_SYNC_TABLE) at +31B.  Its offset value points to a table where the final value changes +for each facility may be found.
+
+ 00000300: XX XX XX XX XX XX XX XX XX 6e 86 1b f0 f9 21 09  + .........n....!.
+ 00000310: 40 00 00 00 00 04 01 00 00 02 4b 02 + 00 00 00 be  @.........K.....
+ 00000320: 03 00 00 01 4b 04 00 00 03 08 05 00 00 02 8b 06  ....K...........
+ 00000330: 00 00 03 07 07 00 00 03 09 08 b4 -- -- -- -- --  ...........
+
+ The next tag encountered is 01 (LT_SECTION_CHG) at 316.  Its + offset value points to the actual value changes in the file.
+
+ 00000300: XX XX XX XX XX XX XX XX XX 6e 86 1b f0 f9 21 09  + .........n....!.
+ 00000310: 40 00 00 00 00 04 01 00 00 02 4b +02 00 00 00 be  @.........K.....
+ 00000320: 03 00 00 01 4b 04 00 00 03 08 05 00 00 02 8b 06  ....K...........
+ 00000330: 00 00 03 07 07 00 00 03 09 08 b4 -- -- -- -- --  ...........
+
+ The final tag encountered is 00 at 311.  It signifies that there + are no more tags.
+
+ 00000300: XX XX XX XX XX XX XX XX XX 6e 86 1b f0 f9 21 09  + .........n....!.
+ 00000310: 40 00 00 00 00 04 01 00 00 02 4b 02 00 00 + 00 be  @.........K.....
+ 00000320: 03 00 00 01 4b 04 00 00 03 08 05 00 00 02 8b 06  ....K...........
+ 00000330: 00 00 03 07 07 00 00 03 09 08 b4 -- -- -- -- --  ...........
+
+ Note that with the exception of the termination tag 00, tags may be + encountered in any order.  The fact that they are encountered in monotonically + decreasing order in the example above is an implementation detail of the + lxt_write dumper.  Code which processes LXT files should be able to + handle tags which appear in any order.  For tags which are defined +multiple times, it is to be assumed that the tag instance closest to the +termination tag is the one to be used unless each unique instantiation possesses +a special meaning.  Currently, repeated tags have no special semantics.
+
+ +

+ LXT Section  Definitions:
+
+ The body of each section (as currently defined) will now be explained +in detail.
+
+ +

+ 08: LT_SECTION_DOUBLE_TEST
+
+ This section is only present if double precision floating point data +is to be found in the file.  In order to resolve byte ordering issues +across various platforms, a rounded version of pi (3.14159) is stored +in eight consecutive bytes.  This value was picked because each of +its eight bytes are unique.  It is the responsibility of an LXT reader +to compare the byte ordering found in the LT_SECTION_DOUBLE_TEST section +to that of the same rounded version of pi as represented by reader's +processor.  By comparing the position on the host and in the file, +it may be determined how the values stored in the LXT file need to be rearranged. +The following bit of code shows one possible implementation for this:
+
+ static char double_mask[8]={0,0,0,0,0,0,0,0};
+ static char double_is_native=0;
+
+ static void create_double_endian_mask(double *pnt)
+ {
+ static double p = 3.14159;
+ double d;
+ int i, j;
+  
+ d= *pnt;
+ if(p==d)
+         {
+         double_is_native=1;
+         }
+         else
+         {
+         char *remote, *here;
+  
+         remote = (char *)&d;
+         here = (char *)&p;
+         for(i=0;i<8;i++)
+                 + {
+                 + for(j=0;j<8;j++)
+                         + {
+                         + if(here[i]==remote[j])
+                                 + {
+                                 + double_mask[i]=j;
+                                 + break;
+                                 + }
+                         + }
+                 + }
+         }
+ }
+
+ If double_is_native is zero, the following function will then + be needed to be called to rearrange the file byte ordering to match the +host every time a double is encountered in the value change data:
+
+ static char *swab_double_via_mask(double *d)
+ {
+ char swapbuf[8];
+ char *pnt = malloc(8*sizeof(char));
+ int i; 
+         
+ memcpy(swapbuf, (char *)d, 8);
+ for(i=0;i<8;i++)
+         {  
+         pnt[i]=swapbuf[double_mask[i]];
+         }
+
+ return(pnt);
+ }
+
+ +

+ 07: LT_SECTION_INITIAL_VALUE
+ This section is used as a "shortcut" representation to flash all facilities + in a dumpfile to a specific value at the initial time.  Permissible + values are '0', '1', 'Z', 'X', 'H', 'U', 'W', 'L', and '-' stored as the byte values 00 through + 08 in the LXT file.
+
+ +

+ 06: LT_SECTION_TIME_TABLE / 08: LT_SECTION_TIME_TABLE64
+
+ This section marks the time vs positional data for the LXT file.  It + is represented in the following format:
+
+ 4 bytes: number of entries (n)
+ 4 bytes: min time in dump (8 bytes for LT_SECTION_TIME_TABLE64)
+ 4 bytes: max time in dump (8 bytes for LT_SECTION_TIME_TABLE64)
+
+ n 4-byte positional delta entries follow
+ n 4-byte time delta entries follow (8 byte entries for LT_SECTION_TIME_TABLE64)
+
+ It is assumed that the delta values are represented as current_value + - previous_value, which means that deltas should always be positive. + In addition, the previous_value for delta number zero for both +position and time is zero.  This will allow for sanity checking between +the time table and the min/max time fields if it is so desired or if the min/max +fields are needed before the delta entries are traversed.
+
+ Example:
+
+ 00000005    5 entries are in the table
+ 00000000    Min time of simulation is 0
+ 00000004    Max time of simulation is 4.
+
+ 00000000    time[0]=0
+ 00000001    time[1]=1
+ 00000001    time[2]=2
+ 00000001    time[3]=3
+ 00000001    time[4]=4
+
+ 00000004    pos[0]=0x4
+ 00000010    pos[1]=0x14
+ 00000020    pos[2]=0x34
+ 00000002    pos[3]=0x36
+ 00000300    pos[4]=0x336
+
+ +

+  05: LT_SECTION_TIMESCALE
+ This section consists of a single signed byte.  Its value (x + ) is the exponent of a base-10 timescale.  Thus, each increment of + '1' in the time value table represented in the previous section represents + 10 x seconds.  Use -9 for nanoseconds, -12 for picoseconds, + etc.  Any eight-bit signed value (-128 to +127) is permissible, but +in actual practice only a handful are useful.
+
+ +

+ 03: LT_SECTION_FACNAME
+
+ No, section 04: LT_SECTION_FACNAME_GEOMETRY hasn't been forgotten.  It's + more logical to cover the facilities themselves before their geometries.
+
+ 4 bytes: number of facilities (n)
+ 4 bytes: amount of memory required in bytes for the decompressed facilities
+
+ n  compressed facilities follow, where a compressed facility + consists of two values:
+
+ 2 bytes: number of prefix bytes (min=0, max=65535)
+ zero terminated string: suffix bytes
+
+ An example should clarify things (prefix lengths are in bold):
+
+ 00000020: 00 00 00 04 00 00 00 1d 00 00 + 61 6c 70 68 61 00  ..........alpha.
+ 00000030: 00 01 70 70 6c 65 00 00 04 69 63 61 74 69 6f 6e  + ..pple...ication
+ 00000040: 00 00 00 7a 65 72 6f 00 00 00 00 01 00 00 00 00  +...zero.........
+
+ Four facilities (underlined) are defined and they occupy 0x0000001d bytes +(second underlined value).
+
+ This first prefix length is 0000 (offset 28).
+ The first suffix is "alpha", therefore the first facility is "alpha". + This requires six bytes.
+
+ The second prefix length is 0001 (offset 30).
+ The second suffix is "pple", therefore the second facility is "apple". + This requires six bytes.
+
+ The third prefix length is 0004 (offset 37).
+ The third suffix is "ication", therefore the third facility is "application". + This requires twelve bytes.
+
+ The fourth prefix length is 0000 (offset 41).
+ The fourth suffix is "zero", therefore the fourth facility is "zero". + This requires five bytes.
+
+6 + 6 + 12 + 5 = 29 which indeed is 0x1d.
+
+It is suggested that the facilities are dumped out in alphabetically sorted +order in order to increase the compression ratio of this section.
+
+ +

+ 04: LT_SECTION_FACNAME_GEOMETRY
+
+This section consists of a repeating series of sixteen byte entries.  Each +entry corresponds in order with a facility as defined in 03: LT_SECTION_FACNAME. + As such there is a 1:1 in-order correspondence between the two sections.
+
+ 4 bytes:    rows    (typically zero, +only used when defining arrays: this indicates the max row value+1)
+4 bytes:    msb
+4 bytes:    lsb
+4 bytes:    flags
+
+flags are defined as follows:
+
+ #define LT_SYM_F_BITS           + (0)
+ #define LT_SYM_F_INTEGER        +(1<<0)
+ #define LT_SYM_F_DOUBLE         + (1<<1)
+ #define LT_SYM_F_STRING         + (1<<2)
+ #define LT_SYM_F_ALIAS          + (1<<3)
+
+ When an LT_SYM_F_ALIAS is encountered, it indicates that the rows field +instead means "alias this to facility number rows", there the facility +number corresponds to the definition order in 03: LT_SECTION_FACNAME and +starts from zero.  
+
+ +

+
+02: LT_SECTION_SYNC_TABLE
+
+This section indicates where the final value change (as a four-byte offset +from the beginning of the file) for every facility is to be found.  Facilities +which do not change value contain a value of zero for their final value change.  +This section is necessary as value changes are stored as a linked list of +backward directed pointers.  There is a 1:1 in-order correspondence +between this section and the definitions found in LT_SECTION_FACNAME.
+
+4 bytes: final offset for facility (repeated for each facility in +order as they were defined)
+
+ +

+ 01: LT_SECTION_CHG
+
+This section is usually the largest section in a file as is composed of value +changes, however its structure is set up such that individual facilities +can be quickly accessed without the necessity of reading in the entire file. + In spite of this format, this does not prevent one from stepping through +the entire section backwards in order to process it in one pass.  The +method to achieve this will be described later.
+
+The final offset for a value change for a specific facility is found in 02: +LT_SECTION_SYNC_TABLE.  Since value changes for a facility are linked +together, one may follow pointers backward from the sync value offset for +a facility in order to read in an entire trace.  This is used to accelerate +sparse reads of an LXT file's change data such as those that a visualization +tool such as a wave viewer would perform. 
+
+The format for a value change is as follows:
+
+command_byte, delta_offset_of_previous_change[, [row_changed,] change_data +]
+
Command Bytes:
+
+The command_byte is broken into two (as currently defined) bitfields: +bits [5:4] contain a byte count (minus one) required for the delta_offset_of_previous_change + (thus a value from one to four bytes), and bits [3:0] contain the command +used to determine the format of the change data (if any change data is necessary +as dictated by the command byte).
+
+Bits [3:0] of the command_byte are defined as follows.  Note +that this portion of the command_byte is ignored for strings and doubles +and typically x0 is placed in the dumpfile in those cases:
+
+0    MVL_2 [or default (for datatype) value change +follows]
+1    MVL_4
+2    MVL_9
+3    flash whole value to 0s
+4    flash whole value to 1s
+5    flash whole value to Zs
+6    flash whole value to Xs
+7    flash whole value to Hs
+8    flash whole value to Us
+9    flash whole value to Ws
+A    flash whole value to Ls
+B    flash whole value to -s
+C    clock compress use 1 byte repeat count
+D    clock compress use 2 byte repeat count
+E    clock compress use 3 byte repeat count
+F    clock compress use 4 byte repeat count
+
+Commands x3-xB only make sense for MVL_2/4/9 (and integer in the case for x3 +and x4 when an integer is 0 or ~0) facilities.  They are provided as +a space saving device which obviates the need for dumping value change data +when all the bits in a facility are set to the same exact value.  For +single bit facilities, these commands suffice in all cases.
+
+Command x0 is used when change_data can be stored as MVL_2.  Bits +defined in MVL_2 are '0' and '1' and as such, one bit of storage in an LXT +file corresponds to one bit in the facility value.
+
+Command x1 is used when change_data can't be stored as MVL_2 but can +stored as MVL_4.  Bits defined in MVL_4 are '0', '1', 'Z', and +'X' are stored in an LXT file as the two-bit values 00, 01, 10, and 11.
+
+Command x2 is used when change_data can't be stored as either MVL_2 or MVL_4 +but can be stored as MVL_9.  Bits defined in MVL_9 are '0', '1', 'Z', +'X', 'H', 'U', 'W', 'L', and '-' corresponding to the four-bit values 0000 +through 1000.
+
+Commands xC-xF are used to repeat a clock.  It is assumed that at least two +clock phase changes are present before the current command.  Their time values +are subtracted in order to obtain a delta.  The delta is used as the change time +between future phase changes with respect to the time value of the previous command which is +used as a "base time" and "base value" for repeat_count+1 phase changes.
+

+Note that these repeat command nybbles also are applicable to multi-bit facilities which +are 32-bits or less and MVL_2 in nature. In this case, the preceeding two deltas are +subtracted such that a recurrence equation can reconstruct any specific item of the compressed data: +
+
+        unsigned int j   = item_in_series_to_create + 1;
+        unsigned int res = base + (j/2)*rle_delta[1] + ((j/2)+(j&1))*rle_delta[0];
+
+For a sequence of: 7B 7C 7D 7E 7F 80 81 82 ... +
+        base = 82
+        rle_delta[1] = 82 - 81 == 01
+        rle_delta[0] = 81 - 80 == 01
+
+Two deltas are used in order to handle the case where a vector which changes value by a constant XOR. In that case, +the rle_delta values will be different. In this way, one command encoding can handle both XOR and incrementer/decrementer +type compression ops. +
+
Delta Offsets:
+
+Delta offsets indicate where the preceeding change may be found with respect +to the beginning of the LXT file.  In order to calculate where the preceeding +change for a facility is, take the offset of the command_byte, subtract +the delta_offset_of_previous_change from it, then subtract 2 bytes +more.  As an example:
+
+00001000: 13 02 10 ...
+
+The command byte is 13.  Since bits [5:4] are "01", this means that +the delta_offset_of_previous_change is two bytes since 1 + 1 = 2.
+
+The next two bytes are 0210, so 1000 - 0210 - 2 = 0DEE.  Hence, the +preceeding value change can be found at 0DEE.  This process is to be +continued until a value change offset of 0 is obtained.  This is impossible +because of the existance of the LXT header bytes.
+
Row Changed:
+
+This field is only present in value changes for arrays.  The +value is 2, 3, or 4 bytes depending on the magnitude of the array size: greater +than 16777215 rows requires 4 bytes, greater than 65535 requires 3 bytes, +and so on down to one byte.  Note that any value type can be part of +an array.
+
Change Data:
+
+This is only present for command_bytes x0-x2 for MVL_2, MVL_4, and +MVL_9 data, and any command_byte for strings and doubles.  Strings +are stored in zero terminated format and doubles are stored as eight bytes +in machine-native format with 08: LT_SECTION_DOUBLE_TEST being used to resolve +possible differences in endianness on the machine reading the LXT file.
+
+Values are stored left justified in big endian order and unused bits are +zeroed out.  Examples with "_" used to represent the boundary between +consecutive bytes:
+
+MVL_2:    "0101010110101010" (16 bits) is stored as 01010101_10101010
+MVL_2:    "011" (3 bits) is stored as 01100000
+MVL_2:    "11111110011" (11 bits) is stored as 11111110_01100000
+
+MVL_4:    "01ZX01ZX" (8 bits) is stored as 00011011_00011011
+MVL_4:    "ZX1" (3 bits) is stored as 10110100
+MVL_4:    "XXXXZ" (5 bits) is stored as 11111111_10000000
+
+MVL_9:    "01XZHUWL-" (9 bits) is stored as 00000001_00100011_01000101_01100111_10000000 +
+
Correlating Time Values to Offsets:
+
+This is what the purpose of 06: LT_SECTION_TIME_TABLE is.  Given the +offset of a command_byte, bsearch(3) an array of ascending +position values (not deltas) and pick out the maximum position value which +is less than or equal to the offset of the command_byte.  The +following code sequence illustrates this given two arrays positional_information[] + and time_information[].  Note that total_cycles corresponds +to number_of_entries as defined in 06: LT_SECTION_TIME_TABLE.
+
+static int max_compare_time_tc, max_compare_pos_tc;
+static int compar_mvl_timechain(const void *s1, const void *s2)
+{ 
+int key, obj, delta;
+int rv;
+
+key=*((int *)s1);
+obj=*((int *)s2); 
+
+if((obj<=key)&&(obj>max_compare_time_tc))
+        {
+        max_compare_time_tc=obj;
+        max_compare_pos_tc=(int *)s2 - +positional_information;
+        }
+
+delta=key-obj;
+if(delta<0) rv=-1;
+else if(delta>0) rv=1;
+else rv=0;
+
+return(rv);
+}
+
+static int bsearch_position_versus_time(int key)
+{
+max_compare_time_tc=-1; max_compare_pos_tc=-1;
+
+bsearch((void *)&key, (void *)positional_information, total_cycles, sizeof(int), +compar_mvl_timechain);
+if((max_compare_pos_tc<=0)||(max_compare_time_tc<0))
+        {
+        max_compare_pos_tc=0; /* aix bsearch +fix */
+        }
+
+return(time_information[max_compare_pos_tc]);
+}
+
Reading All Value Changes in One Pass:
+
+This requires a little bit more work but it can be done.  Basically +what you have to do is the following: +
    +
  1. Read in all the sync offsets from 02: LT_SECTION_SYNC_TABLE and put +each in a structure which contains the sync offset and the facility index. + All of these structures will compose an array that is as large as the +number of facilities which exist.
    2. +
  2. Heapify the array such that the topmost element of the heap has the +largest positional offset.
    3. +
  3. Change the topmost element's offset to its preceeding offset (as determined +by examining the command_byte, bits [5:4] and calculating the preceeding +offset by subtracting the delta_offset_of_previous_change then subtracting +2 bytes.
    4. +
  4. Continue with step 2 until the topmost element's offset is zero after +performing a heapify().
    +
    5. +
+

+00: LT_SECTION_END
+
+As a section pointer doesn't exist for this, there's no section body either.
+

+The lxt_write API:
+
+In order to facilitate the writing of LXT files, an API has been provided +which does most of the hard work.  
+
+
struct lt_trace *lt_init(const char +*name)
+
+
+This opens an LXT file.  The pointer returned by this function +is NULL if unsuccessful.  If successful, the pointer is to be used as +a "context" for all the remaining functions in the API.  In this way, +multiple LXT files may be generated at once.
+ +
+
void lt_close(struct lt_trace *lt)
+
+
+This fixates and closes an LXT file.  This is extremely important +because if the file is not fixated, it will be impossible to use the value +change data in it!  For this reason, it is recommended that the function +be placed in an atexit(3) handler in environments where trace generation +can be interrupted through program crashes or external signals such as control-C.
+ +

+ +
struct lt_symbol *lt_symbol_add(struct lt_trace + *lt, const char *name,
+unsigned int rows, int msb, int lsb, int flags)
+
+
+This creates a facility.  Since the facility and related tables are +written out during fixation, one may arbitrarily add facilities up until +the very moment that lt_close() is called.  For facilities which are +not arrays, a value of 0 or 1 for rows.  As such, only values 2 and +greater are used to signify arrays.  Flags are defined above as in 04: +LT_SECTION_FACNAME_GEOMETRY.
+

+ +
struct lt_symbol *lt_symbol_find(struct lt_trace + *lt, const char *name)
+
+
+This finds if a symbol has been previously defined.  If returns +non-NULL on success.  It actually returns a symbol pointer, but you +shouldn't be deferencing the fields inside it unless you know what you are +doing. +

+ +
struct lt_symbol *lt_symbol_alias(struct lt_trace +*lt, const char *existing_name,
+const char *alias, int msb, int lsb)
+
+
+This assigns an alias to an existing facility.  This is to create +signals which traverse multiple levels of hierarchy, but are the same net, +possibly with different MSB and LSB values (though the distance between them +will be the same).
+ +

+ +
void lt_symbol_bracket_stripping(struct lt_trace +*lt, int doit)
+
+
+This is to be used when facilities are defined in Verilog format such +that exploded bitvectors are dumped as x[0], x[1], x[2], etc.  If doit +is set to a nonzero value, the bracketed values will be stripped off.  In +order to keep visualization and other tools from becoming confused, the MSB/LSB +values must be unique for every bit.  The tool vcd2lxt shows +how this works and should be used.  If vectors are dumped atomically, +this function need not be called.
+ +

+ +
void lt_set_timescale(struct lt_trace *lt, int +timescale)
+
+
+This sets the simulation timescale to 10timescale seconds +where timescale is an 8-bit signed value.  As such, negative values +are the only useful ones.
+

+ +
void lt_set_initial_value(struct lt_trace *lt, +char value)
+
+
+This sets the initial value of every MVL (bitwise) facility to whatever +the value is.  Permissible values are '0', '1', 'Z', 'X', 'H', 'U', +'W', 'L', and '-'.
+
+
+int lt_set_time(struct lt_trace *lt, unsigned int timeval)
+int lt_inc_time_by_delta(struct lt_trace *lt, unsigned int timeval)
+int lt_set_time64(struct lt_trace *lt, lxttime_t timeval)
+int lt_inc_time_by_delta64(struct lt_trace *lt, lxttime_t timeval)
+
+
+This is how time is dynamically updated in the LXT file.  Note +that for the non-delta functions, timeval changes are expected to be monotonically increasing.  In +addition, time values dumped to the LXT file are coalesced if there are no +value changes for a specific time value. (Note: lxttime_t is defined as an unsigned long long.) +
+
void lt_set_clock_compress(struct lt_trace *lt)
+
+
+Enables clock compression heuristics for the current trace.  This cannot be turned off once it is on. +

+ +
int lt_emit_value_int(struct lt_trace *lt, struct +lt_symbol *s,
+unsigned int row, int value)
+
+
+This dumps an MVL_2 value for a specific facility which is 32-bits or less.  Note that this +does not work for strings or doubles.
+ +

+ +
int lt_emit_value_double(struct lt_trace +*lt, struct lt_symbol *s,
+unsigned int row, double value)
+
+
+This dumps a double value for a specific facility.  Note that this only +works for doubles.
+

+ +
int lt_emit_value_string(struct lt_trace *lt, +struct lt_symbol *s,
+unsigned int row, char *value)
+
+
+This dumps a string value for a specific facility.  Note that this only +works for strings.
+

+
int lt_emit_value_bit_string(struct lt_trace *lt, +struct lt_symbol *s,
+unsigned int row, char *value)
+
+
This dumps an MVL_2, MVL_4, or MVL_9 value out to the LXT +file for a specific facility.  Note that the value is parsed in order +to determine how to optimally represent it in the file.  In addition, +note that if the value's string length is shorter than the facility length, +it will be left justified with the rightmost character will be propagated +to the right in order to pad the value string out to the correct length. + Therefore, "10x" for 8-bits becomes "10xxxxxx" and "z" for 8-bits becomes +"zzzzzzzz".
+
+
+ + + + diff --git a/lxt/Makefile.am b/lxt/Makefile.am new file mode 100644 index 0000000..2fb907f --- /dev/null +++ b/lxt/Makefile.am @@ -0,0 +1,9 @@ +lib_LTLIBRARIES = liblxt.la +liblxt_la_SOURCES = lxt.c lxt_write.c lxt_write.h +liblxt_la_LDFLAGS = -version-info 0:0:0 + +AM_CFLAGS = -I $(top_srcdir)/src + + +EXTRA_DIST = LXT_Explained.html test.v lxt.tab + diff --git a/lxt/Makefile.in b/lxt/Makefile.in new file mode 100644 index 0000000..495ebce --- /dev/null +++ b/lxt/Makefile.in @@ -0,0 +1,459 @@ +# Makefile.in generated by automake 1.9.5 from Makefile.am. +# @configure_input@ + +# Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, +# 2003, 2004, 2005 Free Software Foundation, Inc. +# This Makefile.in is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY, to the extent permitted by law; without +# even the implied warranty of MERCHANTABILITY or FITNESS FOR A +# PARTICULAR PURPOSE. + +@SET_MAKE@ + +SOURCES = $(liblxt_la_SOURCES) + +srcdir = @srcdir@ +top_srcdir = @top_srcdir@ +VPATH = @srcdir@ +pkgdatadir = $(datadir)/@PACKAGE@ +pkglibdir = $(libdir)/@PACKAGE@ +pkgincludedir = $(includedir)/@PACKAGE@ +top_builddir = .. +am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd +INSTALL = @INSTALL@ +install_sh_DATA = $(install_sh) -c -m 644 +install_sh_PROGRAM = $(install_sh) -c +install_sh_SCRIPT = $(install_sh) -c +INSTALL_HEADER = $(INSTALL_DATA) +transform = $(program_transform_name) +NORMAL_INSTALL = : +PRE_INSTALL = : +POST_INSTALL = : +NORMAL_UNINSTALL = : +PRE_UNINSTALL = : +POST_UNINSTALL = : +build_triplet = @build@ +host_triplet = @host@ +subdir = lxt +DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in +ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 +am__aclocal_m4_deps = $(top_srcdir)/acinclude.m4 \ + $(top_srcdir)/configure.in +am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ + $(ACLOCAL_M4) +mkinstalldirs = $(install_sh) -d +CONFIG_HEADER = $(top_builddir)/config.h +CONFIG_CLEAN_FILES = +am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; +am__vpath_adj = case $$p in \ + $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ + *) f=$$p;; \ + esac; +am__strip_dir = `echo $$p | sed -e 's|^.*/||'`; +am__installdirs = "$(DESTDIR)$(libdir)" +libLTLIBRARIES_INSTALL = $(INSTALL) +LTLIBRARIES = $(lib_LTLIBRARIES) +liblxt_la_LIBADD = +am_liblxt_la_OBJECTS = lxt.lo lxt_write.lo +liblxt_la_OBJECTS = $(am_liblxt_la_OBJECTS) +DEFAULT_INCLUDES = -I. -I$(srcdir) -I$(top_builddir) +depcomp = $(SHELL) $(top_srcdir)/config/depcomp +am__depfiles_maybe = depfiles +COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ + $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) +LTCOMPILE = $(LIBTOOL) --tag=CC --mode=compile $(CC) $(DEFS) \ + $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) \ + $(AM_CFLAGS) $(CFLAGS) +CCLD = $(CC) +LINK = $(LIBTOOL) --tag=CC --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) \ + $(AM_LDFLAGS) $(LDFLAGS) -o $@ +SOURCES = $(liblxt_la_SOURCES) +DIST_SOURCES = $(liblxt_la_SOURCES) +ETAGS = etags +CTAGS = ctags +DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) +ACLOCAL = @ACLOCAL@ +AMDEP_FALSE = @AMDEP_FALSE@ +AMDEP_TRUE = @AMDEP_TRUE@ +AMTAR = @AMTAR@ +AR = @AR@ +AUTOCONF = @AUTOCONF@ +AUTOHEADER = @AUTOHEADER@ +AUTOMAKE = @AUTOMAKE@ +AWK = @AWK@ +CC = @CC@ +CCDEPMODE = @CCDEPMODE@ +CFLAGS = @CFLAGS@ +CPP = @CPP@ +CPPFLAGS = @CPPFLAGS@ +CXX = @CXX@ +CXXCPP = @CXXCPP@ +CXXDEPMODE = @CXXDEPMODE@ +CXXFLAGS = @CXXFLAGS@ +CYGPATH_W = @CYGPATH_W@ +DEFS = @DEFS@ +DEPDIR = @DEPDIR@ +ECHO = @ECHO@ +ECHO_C = @ECHO_C@ +ECHO_N = @ECHO_N@ +ECHO_T = @ECHO_T@ +EGREP = @EGREP@ +EXEEXT = @EXEEXT@ +F77 = @F77@ +FFLAGS = @FFLAGS@ +INSTALL_DATA = @INSTALL_DATA@ +INSTALL_PROGRAM = @INSTALL_PROGRAM@ +INSTALL_SCRIPT = @INSTALL_SCRIPT@ +INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ +LDFLAGS = @LDFLAGS@ +LIBOBJS = @LIBOBJS@ +LIBS = @LIBS@ +LIBTOOL = @LIBTOOL@ +LN_S = @LN_S@ +LTLIBOBJS = @LTLIBOBJS@ +MAKEINFO = @MAKEINFO@ +OBJEXT = @OBJEXT@ +PACKAGE = @PACKAGE@ +PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ +PACKAGE_NAME = @PACKAGE_NAME@ +PACKAGE_STRING = @PACKAGE_STRING@ +PACKAGE_TARNAME = @PACKAGE_TARNAME@ +PACKAGE_VERSION = @PACKAGE_VERSION@ +PATH_SEPARATOR = @PATH_SEPARATOR@ +RANLIB = @RANLIB@ +SET_MAKE = @SET_MAKE@ +SHELL = @SHELL@ +STRIP = @STRIP@ +USE_LXT_FALSE = @USE_LXT_FALSE@ +USE_LXT_TRUE = @USE_LXT_TRUE@ +VERSION = @VERSION@ +XGPERF = @XGPERF@ +YACC = @YACC@ +ac_ct_AR = @ac_ct_AR@ +ac_ct_CC = @ac_ct_CC@ +ac_ct_CXX = @ac_ct_CXX@ +ac_ct_F77 = @ac_ct_F77@ +ac_ct_RANLIB = @ac_ct_RANLIB@ +ac_ct_STRIP = @ac_ct_STRIP@ +am__fastdepCC_FALSE = @am__fastdepCC_FALSE@ +am__fastdepCC_TRUE = @am__fastdepCC_TRUE@ +am__fastdepCXX_FALSE = @am__fastdepCXX_FALSE@ +am__fastdepCXX_TRUE = @am__fastdepCXX_TRUE@ +am__include = @am__include@ +am__leading_dot = @am__leading_dot@ +am__quote = @am__quote@ +am__tar = @am__tar@ +am__untar = @am__untar@ +bindir = @bindir@ +build = @build@ +build_alias = @build_alias@ +build_cpu = @build_cpu@ +build_os = @build_os@ +build_vendor = @build_vendor@ +datadir = @datadir@ +exec_prefix = @exec_prefix@ +host = @host@ +host_alias = @host_alias@ +host_cpu = @host_cpu@ +host_os = @host_os@ +host_vendor = @host_vendor@ +includedir = @includedir@ +infodir = @infodir@ +install_sh = @install_sh@ +libdir = @libdir@ +libexecdir = @libexecdir@ +localstatedir = @localstatedir@ +mandir = @mandir@ +mkdir_p = @mkdir_p@ +oldincludedir = @oldincludedir@ +prefix = @prefix@ +program_transform_name = @program_transform_name@ +sbindir = @sbindir@ +sharedstatedir = @sharedstatedir@ +sysconfdir = @sysconfdir@ +target_alias = @target_alias@ +lib_LTLIBRARIES = liblxt.la +liblxt_la_SOURCES = lxt.c lxt_write.c lxt_write.h +liblxt_la_LDFLAGS = -version-info 0:0:0 +AM_CFLAGS = -I $(top_srcdir)/src +EXTRA_DIST = LXT_Explained.html test.v lxt.tab +all: all-am + +.SUFFIXES: +.SUFFIXES: .c .lo .o .obj +$(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps) + @for dep in $?; do \ + case '$(am__configure_deps)' in \ + *$$dep*) \ + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh \ + && exit 0; \ + exit 1;; \ + esac; \ + done; \ + echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu lxt/Makefile'; \ + cd $(top_srcdir) && \ + $(AUTOMAKE) --gnu lxt/Makefile +.PRECIOUS: Makefile +Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status + @case '$?' in \ + *config.status*) \ + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ + *) \ + echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ + cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ + esac; + +$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh + +$(top_srcdir)/configure: $(am__configure_deps) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh +$(ACLOCAL_M4): $(am__aclocal_m4_deps) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh +install-libLTLIBRARIES: $(lib_LTLIBRARIES) + @$(NORMAL_INSTALL) + test -z "$(libdir)" || $(mkdir_p) "$(DESTDIR)$(libdir)" + @list='$(lib_LTLIBRARIES)'; for p in $$list; do \ + if test -f $$p; then \ + f=$(am__strip_dir) \ + echo " $(LIBTOOL) --mode=install $(libLTLIBRARIES_INSTALL) $(INSTALL_STRIP_FLAG) '$$p' '$(DESTDIR)$(libdir)/$$f'"; \ + $(LIBTOOL) --mode=install $(libLTLIBRARIES_INSTALL) $(INSTALL_STRIP_FLAG) "$$p" "$(DESTDIR)$(libdir)/$$f"; \ + else :; fi; \ + done + +uninstall-libLTLIBRARIES: + @$(NORMAL_UNINSTALL) + @set -x; list='$(lib_LTLIBRARIES)'; for p in $$list; do \ + p=$(am__strip_dir) \ + echo " $(LIBTOOL) --mode=uninstall rm -f '$(DESTDIR)$(libdir)/$$p'"; \ + $(LIBTOOL) --mode=uninstall rm -f "$(DESTDIR)$(libdir)/$$p"; \ + done + +clean-libLTLIBRARIES: + -test -z "$(lib_LTLIBRARIES)" || rm -f $(lib_LTLIBRARIES) + @list='$(lib_LTLIBRARIES)'; for p in $$list; do \ + dir="`echo $$p | sed -e 's|/[^/]*$$||'`"; \ + test "$$dir" != "$$p" || dir=.; \ + echo "rm -f \"$${dir}/so_locations\""; \ + rm -f "$${dir}/so_locations"; \ + done +liblxt.la: $(liblxt_la_OBJECTS) $(liblxt_la_DEPENDENCIES) + $(LINK) -rpath $(libdir) $(liblxt_la_LDFLAGS) $(liblxt_la_OBJECTS) $(liblxt_la_LIBADD) $(LIBS) + +mostlyclean-compile: + -rm -f *.$(OBJEXT) + +distclean-compile: + -rm -f *.tab.c + +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/lxt.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/lxt_write.Plo@am__quote@ + +.c.o: +@am__fastdepCC_TRUE@ if $(COMPILE) -MT $@ -MD -MP -MF "$(DEPDIR)/$*.Tpo" -c -o $@ $<; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/$*.Tpo" "$(DEPDIR)/$*.Po"; else rm -f "$(DEPDIR)/$*.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(COMPILE) -c $< + +.c.obj: +@am__fastdepCC_TRUE@ if $(COMPILE) -MT $@ -MD -MP -MF "$(DEPDIR)/$*.Tpo" -c -o $@ `$(CYGPATH_W) '$<'`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/$*.Tpo" "$(DEPDIR)/$*.Po"; else rm -f "$(DEPDIR)/$*.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(COMPILE) -c `$(CYGPATH_W) '$<'` + +.c.lo: +@am__fastdepCC_TRUE@ if $(LTCOMPILE) -MT $@ -MD -MP -MF "$(DEPDIR)/$*.Tpo" -c -o $@ $<; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/$*.Tpo" "$(DEPDIR)/$*.Plo"; else rm -f "$(DEPDIR)/$*.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(LTCOMPILE) -c -o $@ $< + +mostlyclean-libtool: + -rm -f *.lo + +clean-libtool: + -rm -rf .libs _libs + +distclean-libtool: + -rm -f libtool +uninstall-info-am: + +ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) + list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ + unique=`for i in $$list; do \ + if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ + done | \ + $(AWK) ' { files[$$0] = 1; } \ + END { for (i in files) print i; }'`; \ + mkid -fID $$unique +tags: TAGS + +TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ + $(TAGS_FILES) $(LISP) + tags=; \ + here=`pwd`; \ + list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ + unique=`for i in $$list; do \ + if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ + done | \ + $(AWK) ' { files[$$0] = 1; } \ + END { for (i in files) print i; }'`; \ + if test -z "$(ETAGS_ARGS)$$tags$$unique"; then :; else \ + test -n "$$unique" || unique=$$empty_fix; \ + $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ + $$tags $$unique; \ + fi +ctags: CTAGS +CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ + $(TAGS_FILES) $(LISP) + tags=; \ + here=`pwd`; \ + list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ + unique=`for i in $$list; do \ + if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ + done | \ + $(AWK) ' { files[$$0] = 1; } \ + END { for (i in files) print i; }'`; \ + test -z "$(CTAGS_ARGS)$$tags$$unique" \ + || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ + $$tags $$unique + +GTAGS: + here=`$(am__cd) $(top_builddir) && pwd` \ + && cd $(top_srcdir) \ + && gtags -i $(GTAGS_ARGS) $$here + +distclean-tags: + -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags + +distdir: $(DISTFILES) + @srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; \ + topsrcdirstrip=`echo "$(top_srcdir)" | sed 's|.|.|g'`; \ + list='$(DISTFILES)'; for file in $$list; do \ + case $$file in \ + $(srcdir)/*) file=`echo "$$file" | sed "s|^$$srcdirstrip/||"`;; \ + $(top_srcdir)/*) file=`echo "$$file" | sed "s|^$$topsrcdirstrip/|$(top_builddir)/|"`;; \ + esac; \ + if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ + dir=`echo "$$file" | sed -e 's,/[^/]*$$,,'`; \ + if test "$$dir" != "$$file" && test "$$dir" != "."; then \ + dir="/$$dir"; \ + $(mkdir_p) "$(distdir)$$dir"; \ + else \ + dir=''; \ + fi; \ + if test -d $$d/$$file; then \ + if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ + cp -pR $(srcdir)/$$file $(distdir)$$dir || exit 1; \ + fi; \ + cp -pR $$d/$$file $(distdir)$$dir || exit 1; \ + else \ + test -f $(distdir)/$$file \ + || cp -p $$d/$$file $(distdir)/$$file \ + || exit 1; \ + fi; \ + done +check-am: all-am +check: check-am +all-am: Makefile $(LTLIBRARIES) +installdirs: + for dir in "$(DESTDIR)$(libdir)"; do \ + test -z "$$dir" || $(mkdir_p) "$$dir"; \ + done +install: install-am +install-exec: install-exec-am +install-data: install-data-am +uninstall: uninstall-am + +install-am: all-am + @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am + +installcheck: installcheck-am +install-strip: + $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ + install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ + `test -z '$(STRIP)' || \ + echo "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'"` install +mostlyclean-generic: + +clean-generic: + +distclean-generic: + -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) + +maintainer-clean-generic: + @echo "This command is intended for maintainers to use" + @echo "it deletes files that may require special tools to rebuild." +clean: clean-am + +clean-am: clean-generic clean-libLTLIBRARIES clean-libtool \ + mostlyclean-am + +distclean: distclean-am + -rm -rf ./$(DEPDIR) + -rm -f Makefile +distclean-am: clean-am distclean-compile distclean-generic \ + distclean-libtool distclean-tags + +dvi: dvi-am + +dvi-am: + +html: html-am + +info: info-am + +info-am: + +install-data-am: + +install-exec-am: install-libLTLIBRARIES + +install-info: install-info-am + +install-man: + +installcheck-am: + +maintainer-clean: maintainer-clean-am + -rm -rf ./$(DEPDIR) + -rm -f Makefile +maintainer-clean-am: distclean-am maintainer-clean-generic + +mostlyclean: mostlyclean-am + +mostlyclean-am: mostlyclean-compile mostlyclean-generic \ + mostlyclean-libtool + +pdf: pdf-am + +pdf-am: + +ps: ps-am + +ps-am: + +uninstall-am: uninstall-info-am uninstall-libLTLIBRARIES + +.PHONY: CTAGS GTAGS all all-am check check-am clean clean-generic \ + clean-libLTLIBRARIES clean-libtool ctags distclean \ + distclean-compile distclean-generic distclean-libtool \ + distclean-tags distdir dvi dvi-am html html-am info info-am \ + install install-am install-data install-data-am install-exec \ + install-exec-am install-info install-info-am \ + install-libLTLIBRARIES install-man install-strip installcheck \ + installcheck-am installdirs maintainer-clean \ + maintainer-clean-generic mostlyclean mostlyclean-compile \ + mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ + tags uninstall uninstall-am uninstall-info-am \ + uninstall-libLTLIBRARIES + +# Tell versions [3.59,3.63) of GNU make to not export all variables. +# Otherwise a system limit (for SysV at least) may be exceeded. +.NOEXPORT: diff --git a/lxt/lxt.c b/lxt/lxt.c new file mode 100644 index 0000000..ca424c2 --- /dev/null +++ b/lxt/lxt.c @@ -0,0 +1,758 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +#include +#include +#include +#include +#include +#include + +#define DEBUG 0 + +/***************************************************** + * + * lxt.c + * - pli interface routines to dump lxt files + * + ***************************************************** + */ +/* + * add this to veriuser.c + * { usertask, 0, lxt_recordvars, 0, lxt_recordvars, lxt_recordvars, "$lxt_recordvars" }, + * { usertask, 0, lxt_recordon, 0, lxt_recordon, lxt_recordon, "$lxt_recordon" }, + * { usertask, 0, lxt_recordoff, 0, lxt_recordoff, lxt_recordoff, "$lxt_recordoff" }, + * { usertask, 0, lxt_recordclose, 0, lxt_recordclose, lxt_recordclose, "$lxt_recordclose" }, + * { usertask, 0, lxt_recordfile, 0, lxt_recordfile, lxt_recordfile, "$lxt_recordfile" }, + * { usertask, 0, lxt_recordsetup, 0, lxt_recordsetup, lxt_recordsetup, "$lxt_recordsetup" }, + */ + +/* + * supported options: + * incsize=# + * sequence + * nosequence + * design=name + * depth=# + */ + + +struct info_s { + handle object; + char* name; + int sequence:1; + int event:1; + int real:1; + int pad:29; + struct info_s* next; + struct info_s* updateNext; + struct lt_symbol* symbol; +}; +typedef struct info_s info_t, *info_p; + + +/* + * global control structure + */ +struct lxt_s { + char* filename; + int enabled; + int sequence; + char* design; + unsigned incSize; + struct lt_trace* t; + int inited; + int depth; + info_p objectList; + info_p updateList; + info_p eventList; + int hunk; +}; +typedef struct lxt_s lxt_t, *lxt_p; +lxt_t lxt = { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 }; + +static void lxt_close(); +static void lxt_enable( int on ); +static void lxt_option( char* str ); +static void lxt_add( handle object, int depth ); +static void lxt_init(); +static void lxt_dump( info_p info, int init ); +static int lxt_changed( p_vc_record vc_record ); +static void lxt_timemarker(); +static void lxt_timemarkerp1(); +static void lxt_nexttimemarker(); +static void lxt_incinit(); +static char* ginstance; + +/* ??? mdh - speed up variable dumping */ + +/************************************************* + lxt_recordvars + - add objects to be recorded + ************************************************/ +int lxt_recordvars( int data, int reason ) +{ + int update = 0; + int objects = 0; + int i; + acc_initialize(); + + switch( reason ) { + case reason_calltf: + break; + case reason_checktf: + goto DONE; + case reason_finish: + if( lxt.inited ) { + lxt_close(); + } + goto DONE; + case reason_rosynch: + update = (lxt.updateList != NULL); + while( lxt.updateList ) { + info_p info; + info = lxt.updateList; + lxt_dump( info, 0 ); + lxt.updateList = info->updateNext; + info->updateNext = 0; + } + if( update ) { + lxt_timemarkerp1(); + } + while( lxt.eventList ) { + info_p info; + info = lxt.eventList; + lxt_dump( info, 1 ); + lxt.eventList = info->updateNext; + info->updateNext = 0; + } + if( lxt.t->position > lxt.incSize ) { + lxt_incinit(); + } + lxt_nexttimemarker(); + goto DONE; + default: + goto DONE; + } + + ginstance = tf_getinstance(); + /* + * on first call, initialize structure + */ + if( !lxt.inited ) { + lxt_init(); + } + for( i = 1; i <= tf_nump(); ++i ) { + handle object; + if( tf_typep(i) == tf_nullparam ) { + continue; + } + if( tf_typep(i) == tf_string ) { + char* str = acc_fetch_tfarg_str(i); + lxt_option( str ); + continue; + } + object = acc_handle_tfarg(i); + if( !object ) { + tf_error( "cannot find object" ); + tf_dofinish(); + goto DONE; + } + lxt_add( object, lxt.depth ); + objects++; + } + if( objects == 0 ) { +#if DEBUG + io_printf( "lxt_recordvars: defaultpath=%s\n", + acc_fetch_fullname(acc_handle_parent(acc_handle_tfinst())), lxt.depth ); +#endif + lxt_add( acc_handle_parent(acc_handle_tfinst()), lxt.depth ); + } +DONE: + acc_close(); + return 0; +} + +/************************************************* + lxt_recordon + - enable recording + ************************************************/ +int lxt_recordon( int data, int reason ) +{ + acc_initialize(); + + switch( reason ) { + case reason_checktf: + if( tf_nump() != 0 ) { + tf_error( "too many arguments to recordon" ); + tf_dofinish(); + } + goto DONE; + case reason_calltf: + if( !lxt.inited ) { + tf_error( "recording has not started" ); + tf_dofinish(); + goto DONE; + } + break; + default: + goto DONE; + } + lxt_enable( 1 ); +DONE: + acc_close(); + return 0; +} + +/************************************************* + lxt_recordoff + - disable recording + ************************************************/ +int lxt_recordoff( int data, int reason ) +{ + acc_initialize(); + + switch( reason ) { + case reason_checktf: + if( tf_nump() != 0 ) { + tf_error( "too many arguments to recordoff" ); + tf_dofinish(); + } + goto DONE; + case reason_calltf: + if( !lxt.inited ) { + tf_error( "recording has not started" ); + tf_dofinish(); + goto DONE; + } + break; + default: + goto DONE; + } + lxt_enable( 0 ); +DONE: + acc_close(); + return 0; +} + +/************************************************* + lxt_recordclose + - close lxt file and stop recording + ************************************************/ +int lxt_recordclose( int data, int reason ) +{ + acc_initialize(); + + switch( reason ) { + case reason_checktf: + if( tf_nump() != 0 ) { + tf_error( "too many arguments to recordclose" ); + tf_dofinish(); + } + goto DONE; + case reason_calltf: + if( !lxt.inited ) { + tf_error( "recording has not started" ); + tf_dofinish(); + goto DONE; + } + break; + default: + goto DONE; + } + lxt_close(); +DONE: + acc_close(); + return 0; +} + +/************************************************* + lxt_recordfile + - specify lxt file and options + ************************************************/ +int lxt_recordfile( int data, int reason ) +{ + int i; + acc_initialize(); + + + switch( reason ) { + case reason_checktf: + if( tf_nump() == 0 ) { + tf_error( "not enough arguments to recordfile" ); + tf_dofinish(); + } + goto DONE; + case reason_calltf: + if( lxt.inited ) { + tf_error( "recording has already started" ); + tf_dofinish(); + goto DONE; + } + break; + default: + goto DONE; + } + lxt.filename = strdup( acc_fetch_tfarg_str(1) ); + for( i = 2; i <= tf_nump(); ++i ) { + lxt_option( acc_fetch_tfarg_str(i) ); + } +DONE: + acc_close(); + return 0; +} + +/************************************************* + lxt_recordsetup + - specify options + ************************************************/ +int lxt_recordsetup( int data, int reason ) +{ + int i; + acc_initialize(); + + switch( reason ) { + case reason_checktf: + if( tf_nump() == 0 ) { + tf_error( "not enough arguments to recordsetup" ); + tf_dofinish(); + } + goto DONE; + case reason_calltf: + if( lxt.inited ) { + tf_error( "recording has already started" ); + tf_dofinish(); + } + break; + default: + goto DONE; + } + for( i = 1; i <= tf_nump(); ++i ) { + lxt_option( acc_fetch_tfarg_str(i) ); + } +DONE: + acc_close(); + return 0; +} +/************************************************* + lxt_close + - close lxt file + ************************************************/ +static void lxt_close() +{ + lxt_timemarker(); +#if DEBUG + io_printf( "lxt_close: %p\n", lxt.t ); +#endif + lt_close( lxt.t ); + lxt.inited = 0; + if( lxt.filename ) { + free( lxt.filename ); + lxt.filename = 0; + } + if( lxt.design ) { + free( lxt.design ); + lxt.design = 0; + } + while( lxt.objectList ) { + info_p next; + next = lxt.objectList->next; + free( lxt.objectList->name ); + free( lxt.objectList ); + lxt.objectList = next; + } +} +/************************************************* + lxt_enable + - turn on/off variable change collection + ************************************************/ +static void lxt_enable( int on ) +{ + if( on == lxt.enabled ) { + return; + } + lxt.enabled = on; + if( on ) { + info_p info; + lxt_timemarker(); + for( info = lxt.objectList; info; info = info->next ) { + lxt_dump( info, 1 ); + } + } else { + info_p info; + lxt_timemarker(); + for( info = lxt.objectList; info; info = info->next ) { + if( !info->real ) { + lt_emit_value_bit_string( lxt.t, info->symbol, 0, "-" ); + } + } + } +} +/************************************************* + lxt_option + - set a option + ************************************************/ +static void lxt_option( char* str ) +{ + char* eq = index( str, '=' ); + int len = strlen( str ); + if( eq ) { + len -= strlen( eq ); + } else if( !strncmp( str, "incsize", len ) ) { + lxt.incSize = atoi( eq+1 ); + } else if( !strncmp( str, "sequence", len ) ) { + lxt.sequence = 1; + } else if( !strncmp( str, "nosequence", len ) ) { + lxt.sequence = 0; + } else if( !strncmp( str, "design", len ) ) { + lxt.design = strdup( eq+1 ); + } else if( !strncmp( str, "depth", len ) ) { + lxt.depth = atoi( eq+1 ); + } else { + tf_error( "option %s not supported", str ); + tf_dofinish(); + } +} +/************************************************* + lxt_add + - add object to file + ************************************************/ +static void lxt_add( handle object, int depth ) +{ + int real = 0; + int event = 0; + int flags; + int msb; + int lsb; + info_p info; + handle block; + handle term; + static int filter[] = { + accIntegerVar, + accNamedEvent, + accNet, + accRealVar, + accRegister, + accTimeVar, + 0 + }; + + switch( acc_fetch_type(object) ) { + case accNamedEvent: + flags = LT_SYM_F_BITS; + event = 1; + break; + case accRealVar: + flags = LT_SYM_F_DOUBLE; + real = 1; + break; + case accIntegerVar: + case accNet: + case accPort: + case accReg: + case accTimeVar: + case accParameter: + flags = LT_SYM_F_BITS; + break; + case accStatement: + case accTask: + case accModule: + term = null; + while(1) { + term = acc_next( filter, object, term ); + if( term == null ) { + break; + } + lxt_add( term, depth ); + } + if( depth == 1 ) { + return; + } + block = null; + while(1) { + block = acc_next_child( object, block ); + if( block == null ) { + break; + } + lxt_add( block, (depth==0) ? 0 : depth-1 ); + } + return; + default: + return; + } + info = (info_p)malloc( sizeof(info_t) ); + if( !info ) { + tf_error( "cannot allocate memory" ); + tf_dofinish(); + return; + } + info->object = object; + info->name = strdup( acc_fetch_fullname(object) ); + info->next = lxt.objectList; + lxt.objectList = info; + info->sequence = lxt.sequence; + info->event = event; + info->real = real; + info->updateNext = 0; + + if( real ) { + info->symbol = lt_symbol_add( lxt.t, info->name, 0, 0, 0, flags ); + } else if( event ) { + info->symbol = lt_symbol_add( lxt.t, info->name, 0, 0, 0, flags ); + } else { + acc_fetch_range( object, &msb, &lsb ); +#if DEBUG + io_printf( "lxt_add: %s [ %d : %d ]\n", + info->name, msb, lsb ); +#endif + info->symbol = lt_symbol_add( lxt.t, info->name, 0, msb, lsb, flags ); + } + lxt_dump( info, 1 ); + acc_vcl_add( object, lxt_changed, (char*)info, vcl_verilog_logic ); +#if DEBUG + io_printf( "lxt_recordvars: adding %p %s\n", info->symbol, info->name ); +#endif +} +/************************************************* + lxt_nexttimemarker + - record next time + ************************************************/ +static void lxt_nexttimemarker() +{ + int high; + int low; + lxttime_t time; + + tf_getnextlongtime( &low, &high ); + time = (((lxttime_t)(unsigned)high) << 32) + (unsigned)low; + lt_set_time64( lxt.t, time ); +#if DEBUG + io_printf( "lxt_nexttimemarker: %u %d\n", (unsigned)time, ftell(lxt.t->handle) ); +#endif +} +/************************************************* + lxt_timemarker + - record current time + ************************************************/ +static void lxt_timemarker() +{ + int high; + lxttime_t time; + + time = (unsigned)tf_igetlongtime( &high, ginstance ); + time += ((lxttime_t)(unsigned)high) << 32; + lt_set_time64( lxt.t, time ); +} +/************************************************* + lxt_timemarkerp1 + - record current time plus 1 tick + ************************************************/ +static void lxt_timemarkerp1() +{ + int high; + lxttime_t time; + + time = (unsigned)tf_igetlongtime( &high, ginstance ); + time += ((lxttime_t)(unsigned)high) << 32; + lt_set_time64( lxt.t, time+1 ); +} +/************************************************* + lxt_dump + - dump symbol value + ************************************************/ +static void lxt_dump( info_p info, int init ) +{ + if( info->real ) { + s_acc_value value; + value.format = accRealVal; + acc_fetch_value( info->object, "%%", &value ); + lt_emit_value_double( lxt.t, info->symbol, 0, value.value.real ); + } else if( info->event ) { + if( init ) { + lt_emit_value_bit_string( lxt.t, info->symbol, 0, "0" ); + } else { + lt_emit_value_bit_string( lxt.t, info->symbol, 0, "1" ); + info->updateNext = lxt.eventList; + lxt.eventList = info; + } + } else { + lt_emit_value_bit_string( lxt.t, info->symbol, 0, + acc_fetch_value( info->object, "%b", null ) ); +#if DEBUG + io_printf( "lxt_dump: %s %s\n", info->name, acc_fetch_value( info->object, + "%b", null ) ); +#endif + } +} +/************************************************* + lxt_changed + - record variable change + ************************************************/ +static int lxt_changed( p_vc_record vc_record ) +{ + info_p info = (info_p)vc_record->user_data; + if( !lxt.enabled ) { + return 0; + } + lxt_timemarker(); + if( info->sequence || info->event ) { + lxt_dump( info, 0 ); + } else { + if( !info->updateNext ) { + info->updateNext = lxt.updateList; + lxt.updateList = info; + } + } + tf_irosynchronize(ginstance); + return 0; +} +/************************************************* + lxt_init + - Open lxt file and enable collection + ************************************************/ +static void lxt_init() +{ + char* filename; + if( lxt.inited ) { + tf_error( "recording has alreay begun" ); + tf_dofinish(); + return; + } + if( lxt.filename ) { + filename = lxt.filename; + } else if( lxt.design ) { + filename = (char*)malloc( strlen(lxt.design)+4+1 ); + if( !filename ) { + tf_error( "could not allocate memory" ); + tf_dofinish(); + return; + } + sprintf( filename, "%s.lxt", lxt.design ); + lxt.filename = filename; + } else { + char* top = acc_fetch_name( acc_next_topmod(null) ); + filename = (char*)malloc( strlen(top)+3+1 ); + sprintf( filename, "%s.lxt", top ); + lxt.filename = filename; + } + lxt.t = lt_init( filename ); +#if DEBUG + io_printf( "lxt_init: %p\n", lxt.t ); +#endif + if( !lxt.t ) { + tf_error( "could not create file '%s'", filename ); + tf_dofinish(); + return; + } + lt_set_clock_compress( lxt.t ); + lt_set_chg_compress( lxt.t ); + lxt.inited = 1; + lxt.sequence = 0; + lxt.enabled = 1; + lxt.updateList = 0; + lxt.eventList = 0; + lxt.incSize = 100*1024*1024; + lxt.hunk = 0; + + lt_set_initial_value( lxt.t, 'x' ); + lt_symbol_bracket_stripping( lxt.t, 1 ); + lt_set_timescale( lxt.t, acc_fetch_precision() ); + lxt_timemarker(); +} +/************************************************* + lxt_incinit + - close current file and open a new one + maintaining the same trace info + ************************************************/ +static void lxt_incinit() +{ + char* filename; + char* dot; + info_p info; +#if DEBUG + io_printf( "lxt_incinit: %p\n", lxt.t ); +#endif + /* + * pinch off old file + */ + lxt_timemarker(); + lt_close( lxt.t ); + + /* + * create new filename + */ + lxt.hunk++; + filename = (char*)malloc( strlen(lxt.filename)+10+1 ); + dot = rindex( lxt.filename, '.' ); + *dot = 0; + if( lxt.hunk > 1 ) { + dot = rindex( lxt.filename, '-' ); + *dot = 0; + } + sprintf( filename, "%s-%d.lxt", lxt.filename, lxt.hunk ); + free( lxt.filename ); + lxt.filename = filename; + + /* + * open new wave file + */ + lxt.t = lt_init( filename ); + if( !lxt.t ) { + tf_error( "could not create file '%s'", filename ); + tf_dofinish(); + return; + } + lt_set_clock_compress( lxt.t ); + lt_set_chg_compress( lxt.t ); + lxt.updateList = 0; + lxt.eventList = 0; + lt_set_initial_value( lxt.t, 'x' ); + lt_symbol_bracket_stripping( lxt.t, 1 ); + lt_set_timescale( lxt.t, acc_fetch_precision() ); + lxt_timemarker(); + + /* + * add existing objects to new file + */ + info = lxt.objectList; + while( info ) { + int flags; + int msb; + int lsb; + if( info->real ) { + flags = LT_SYM_F_DOUBLE; + } else { + flags = LT_SYM_F_BITS; + } + if( info->real ) { + info->symbol = lt_symbol_add( lxt.t, info->name, 0, 0, 0, flags ); + } else if( info->event ) { + info->symbol = lt_symbol_add( lxt.t, info->name, 0, 0, 0, flags ); + } else { + acc_fetch_range( info->object, &msb, &lsb ); + info->symbol = lt_symbol_add( lxt.t, info->name, 0, msb, lsb, flags ); + } + lxt_dump( info, 1 ); + info = info->next; + } +} + + + + diff --git a/lxt/lxt.tab b/lxt/lxt.tab new file mode 100644 index 0000000..615bd54 --- /dev/null +++ b/lxt/lxt.tab @@ -0,0 +1,6 @@ +$lxt_recordvars call=lxt_recordvars misc=lxt_recordvars check=lxt_recordvars acc+=rw,cbk,frc:* +$lxt_recordon call=lxt_recordon misc=lxt_recordon check=lxt_recordon acc+=rw,cbk,frc:* +$lxt_recordoff call=lxt_recordoff misc=lxt_recordoff check=lxt_recordoff acc+=rw,cbk,frc:* +$lxt_recordclose call=lxt_recordclose misc=lxt_recordclose check=lxt_recordclose acc+=rw,cbk,frc:* +$lxt_recordfile call=lxt_recordfile misc=lxt_recordfile check=lxt_recordfile acc+=rw,cbk,frc:* +$lxt_recordsetup call=lxt_recordsetup misc=lxt_recordsetup check=lxt_recordsetup acc+=rw,cbk,frc:* diff --git a/lxt/lxt_write.c b/lxt/lxt_write.c new file mode 100644 index 0000000..0fc5db9 --- /dev/null +++ b/lxt/lxt_write.c @@ -0,0 +1,2057 @@ +/* + * Copyright (c) 2001 Tony Bybell. + * + * Permission is hereby granted, free of charge, to any person obtaining a + * copy of this software and associated documentation files (the "Software"), + * to deal in the Software without restriction, including without limitation + * the rights to use, copy, modify, merge, publish, distribute, sublicense, + * and/or sell copies of the Software, and to permit persons to whom the + * Software is furnished to do so, subject to the following conditions: + * + * The above copyright notice and this permission notice shall be included in + * all copies or substantial portions of the Software. + * + * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR + * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, + * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL + * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER + * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING + * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER + * DEALINGS IN THE SOFTWARE. + */ + +#include "lxt_write.h" + +/* + * functions which emit various big endian + * data to a file + */ +static int lt_emit_u8(struct lt_trace *lt, int value) +{ +unsigned char buf[1]; +int nmemb; + +buf[0] = value & 0xff; +nmemb=fwrite(buf, sizeof(char), 1, lt->handle); +lt->position+=nmemb; +return(nmemb); +} + + +static int lt_emit_u16(struct lt_trace *lt, int value) +{ +unsigned char buf[2]; +int nmemb; + +buf[0] = (value>>8) & 0xff; +buf[1] = value & 0xff; +nmemb = fwrite(buf, sizeof(char), 2, lt->handle); +lt->position+=nmemb; +return(nmemb); +} + + +static int lt_emit_u24(struct lt_trace *lt, int value) +{ +unsigned char buf[3]; +int nmemb; + +buf[0] = (value>>16) & 0xff; +buf[1] = (value>>8) & 0xff; +buf[2] = value & 0xff; +nmemb=fwrite(buf, sizeof(char), 3, lt->handle); +lt->position+=nmemb; +return(nmemb); +} + + +static int lt_emit_u32(struct lt_trace *lt, int value) +{ +unsigned char buf[4]; +int nmemb; + +buf[0] = (value>>24) & 0xff; +buf[1] = (value>>16) & 0xff; +buf[2] = (value>>8) & 0xff; +buf[3] = value & 0xff; +nmemb=fwrite(buf, sizeof(char), 4, lt->handle); +lt->position+=nmemb; +return(nmemb); +} + + +static int lt_emit_u64(struct lt_trace *lt, int valueh, int valuel) +{ +int rc; + +if((rc=lt_emit_u32(lt, valueh))) + { + rc=lt_emit_u32(lt, valuel); + } + +return(rc); +} + + +static int lt_emit_double(struct lt_trace *lt, double value) +{ +int nmemb; + +nmemb=fwrite(&value, sizeof(char), sizeof(double)/sizeof(char), lt->handle); +lt->position+=nmemb; +return(nmemb); +} + + +static int lt_emit_string(struct lt_trace *lt, char *value) +{ +int rc=1; +do + { + rc&=lt_emit_u8(lt, *value); + } while(*(value++)); +return(rc); +} + + +/* + * gzfunctions which emit various big endian + * data to a file. (lt->position needs to be + * fixed up on gzclose so the tables don't + * get out of sync!) + */ +static int lt_emit_u8z(struct lt_trace *lt, int value) +{ +unsigned char buf[1]; +int nmemb; + +buf[0] = value & 0xff; +nmemb=gzwrite(lt->zhandle, buf, 1); +lt->zpackcount++; +lt->position++; +return(nmemb); +} + + +static int lt_emit_u16z(struct lt_trace *lt, int value) +{ +unsigned char buf[2]; +int nmemb; + +buf[0] = (value>>8) & 0xff; +buf[1] = value & 0xff; +nmemb = gzwrite(lt->zhandle, buf, 2); +lt->zpackcount+=2; +lt->position+=2; +return(nmemb); +} + + +static int lt_emit_u24z(struct lt_trace *lt, int value) +{ +unsigned char buf[3]; +int nmemb; + +buf[0] = (value>>16) & 0xff; +buf[1] = (value>>8) & 0xff; +buf[2] = value & 0xff; +nmemb=gzwrite(lt->zhandle, buf, 3); +lt->zpackcount+=3; +lt->position+=3; +return(nmemb); +} + + +static int lt_emit_u32z(struct lt_trace *lt, int value) +{ +unsigned char buf[4]; +int nmemb; + +buf[0] = (value>>24) & 0xff; +buf[1] = (value>>16) & 0xff; +buf[2] = (value>>8) & 0xff; +buf[3] = value & 0xff; +nmemb=gzwrite(lt->zhandle, buf, 4); + +lt->zpackcount+=4; +lt->position+=4; +return(nmemb); +} + + +static int lt_emit_u64z(struct lt_trace *lt, int valueh, int valuel) +{ +int rc; + +if((rc=lt_emit_u32z(lt, valueh))) + { + rc=lt_emit_u32z(lt, valuel); + } + +return(rc); +} + + +static int lt_emit_doublez(struct lt_trace *lt, double value) +{ +int nmemb; + +nmemb=gzwrite(lt->zhandle, &value, sizeof(double)/sizeof(char)); +lt->zpackcount+=(sizeof(double)/sizeof(char)); +lt->position+=(sizeof(double)/sizeof(char));; +return(nmemb); +} + + +static int lt_emit_stringz(struct lt_trace *lt, char *value) +{ +int rc=1; +do + { + rc&=lt_emit_u8z(lt, *value); + } while(*(value++)); +return(rc); +} + + +/* + * switch between compression modes above + */ +static void lt_set_zmode(struct lt_trace *lt, int mode) +{ +if(!mode) + { + lt->lt_emit_u8 = lt_emit_u8; + lt->lt_emit_u16 = lt_emit_u16; + lt->lt_emit_u24 = lt_emit_u24; + lt->lt_emit_u32 = lt_emit_u32; + lt->lt_emit_u64 = lt_emit_u64; + lt->lt_emit_double = lt_emit_double; + lt->lt_emit_string = lt_emit_string; + } + else + { + lt->lt_emit_u8 = lt_emit_u8z; + lt->lt_emit_u16 = lt_emit_u16z; + lt->lt_emit_u24 = lt_emit_u24z; + lt->lt_emit_u32 = lt_emit_u32z; + lt->lt_emit_u64 = lt_emit_u64z; + lt->lt_emit_double = lt_emit_doublez; + lt->lt_emit_string = lt_emit_stringz; + } +} + + +/* + * hash/symtable manipulation + */ +static int lt_hash(const char *s) +{ +const char *p; +char ch; +unsigned int h=0, h2=0, pos=0, g; +for(p=s;*p;p++) + { + ch=*p; + h2<<=3; + h2-=((unsigned int)ch+(pos++)); /* this handles stranded vectors quite well.. */ + + h=(h<<4)+ch; + if((g=h&0xf0000000)) + { + h=h^(g>>24); + h=h^g; + } + } + +h^=h2; /* combine the two hashes */ +return(h%LT_SYMPRIME); +} + + +static struct lt_symbol *lt_symadd(struct lt_trace *lt, const char *name, int hv) +{ +struct lt_symbol *s; + +s=(struct lt_symbol *)calloc(1,sizeof(struct lt_symbol)); +strcpy(s->name=(char *)malloc((s->namlen=strlen(name))+1),name); +s->next=lt->sym[hv]; +lt->sym[hv]=s; +return(s); +} + + +static struct lt_symbol *lt_symfind(struct lt_trace *lt, const char *s) +{ +int hv; +struct lt_symbol *temp; + +hv=lt_hash(s); +if(!(temp=lt->sym[hv])) return(NULL); /* no hash entry, add here wanted to add */ + +while(temp) + { + if(!strcmp(temp->name,s)) + { + return(temp); /* in table already */ + } + if(!temp->next) break; + temp=temp->next; + } + +return(NULL); /* not found, add here if you want to add*/ +} + + +/* + * compress facs to a prefix count + string + 0x00 + */ +static void lt_compress_fac(struct lt_trace *lt, char *str) +{ +int i; +int len = strlen(str); +int minlen = (lencompress_fac_len) ? len : lt->compress_fac_len; + +if(minlen>65535) minlen=65535; /* keep in printable range--most hierarchies won't be this big anyway */ + +if(lt->compress_fac_str) + { + for(i=0;icompress_fac_str[i]!=str[i]) break; + } + lt_emit_u16z(lt, i); + lt_emit_stringz(lt, str+i); + free(lt->compress_fac_str); + } + else + { + lt_emit_u16z(lt, 0); + lt_emit_stringz(lt, str); + } + +lt->compress_fac_str = (char *) malloc((lt->compress_fac_len=len)+1); +strcpy(lt->compress_fac_str, str); +} + + +/* + * emit facs in sorted order along with geometry + * and sync table info + */ +static int lt_compare(const void *v1, const void *v2) +{ +struct lt_symbol *s1 = *(struct lt_symbol **)v1; +struct lt_symbol *s2 = *(struct lt_symbol **)v2; +int rc = strcmp(s1->name, s2->name); +if(rc) + { + return(rc); + } + else + { + return(s1->msb - s2->msb); + } +} + + +static void strip_brack(struct lt_symbol *s) +{ +char *lastch = s->name+s->namlen - 1; +if(*lastch!=']') return; +if(s->namlen<3) return; +lastch--; +while(lastch!=s->name) + { + if(*lastch=='[') + { + *lastch=0x00; + return; + } + lastch--; + } +return; +} + + +static void lt_emitfacs(struct lt_trace *lt) +{ +int i; + +if((lt)&&(lt->numfacs)) + { + struct lt_symbol *s = lt->symchain; + if((lt->sorted_facs = (struct lt_symbol **)calloc(lt->numfacs, sizeof(struct lt_symbol *)))) + { + if(lt->do_strip_brackets) + for(i=0;inumfacs;i++) + { + lt->sorted_facs[i] = s; + strip_brack(s); + s=s->symchain; + } + else + for(i=0;inumfacs;i++) + { + lt->sorted_facs[i] = s; + s=s->symchain; + } + qsort((void *)lt->sorted_facs, lt->numfacs, sizeof(struct lt_symbol *), lt_compare); + lt->facname_offset=lt->position; + + lt_emit_u32(lt, lt->numfacs); /* uncompressed */ + lt_emit_u32(lt, lt->numfacbytes); /* uncompressed */ + fflush(lt->handle); + lt->zfacname_size = lt->position; + lt->zhandle = gzdopen(dup(fileno(lt->handle)), "wb9"); + + lt->zpackcount = 0; + for(i=0;inumfacs;i++) + { + lt->sorted_facs[i]->facnum = i; + lt_compress_fac(lt, lt->sorted_facs[i]->name); + } + free(lt->compress_fac_str); lt->compress_fac_str=NULL; + lt->compress_fac_len=0; + lt->zfacname_predec_size = lt->zpackcount; + + gzclose(lt->zhandle); + fseek(lt->handle, 0L, SEEK_END); + lt->position=ftell(lt->handle); + lt->zfacname_size = lt->position - lt->zfacname_size; + + lt->zhandle = gzdopen(dup(fileno(lt->handle)), "wb9"); + + lt->facgeometry_offset = lt->position; + for(i=0;inumfacs;i++) + { + if((lt->sorted_facs[i]->flags<_SYM_F_ALIAS)==0) + { + lt_emit_u32z(lt, lt->sorted_facs[i]->rows); + lt_emit_u32z(lt, lt->sorted_facs[i]->msb); + lt_emit_u32z(lt, lt->sorted_facs[i]->lsb); + lt_emit_u32z(lt, lt->sorted_facs[i]->flags); + } + else + { + lt_emit_u32z(lt, lt->sorted_facs[i]->aliased_to->facnum); + lt_emit_u32z(lt, lt->sorted_facs[i]->msb); + lt_emit_u32z(lt, lt->sorted_facs[i]->lsb); + lt_emit_u32z(lt, LT_SYM_F_ALIAS); + } + } + + gzclose(lt->zhandle); + fseek(lt->handle, 0L, SEEK_END); + lt->position=ftell(lt->handle); + lt->zfacgeometry_size = lt->position - lt->facgeometry_offset; + lt->zhandle = gzdopen(dup(fileno(lt->handle)), "wb9"); + + lt->sync_table_offset = lt->position; + for(i=0;inumfacs;i++) + { + lt_emit_u32z(lt, lt->sorted_facs[i]->last_change); + } + + gzclose(lt->zhandle); lt->zhandle = NULL; + fseek(lt->handle, 0L, SEEK_END); + lt->position=ftell(lt->handle); + lt->zsync_table_size = lt->position - lt->sync_table_offset; + } + } +} + + +/* + * initialize the trace and get back and lt context + */ +struct lt_trace *lt_init(const char *name) +{ +struct lt_trace *lt=(struct lt_trace *)calloc(1, sizeof(struct lt_trace)); + +if(!(lt->handle=fopen(name, "wb"))) + { + free(lt); + lt=NULL; + } + else + { + lt_emit_u16(lt, LT_HDRID); + lt_emit_u16(lt, LT_VERSION); + lt->change_field_offset = lt->position; + lt->initial_value = -1; /* if a user sets this it will have a different POSITIVE val */ + lt->timescale = -256; /* will be in range of -128<=x<=127 if set */ + + lt_set_zmode(lt, 0); + + lt->mintime=ULLDescriptor(1); + lt->maxtime=ULLDescriptor(0); + } + +return(lt); +} + +/* + * clock flushing.. + */ +static void lt_flushclock(struct lt_trace *lt, struct lt_symbol *s) +{ +unsigned int last_change_delta = lt->position - s->last_change - 2; +unsigned int start_position = lt->position; +int tag; +int numbytes, numbytes_trans; +int numtrans = s->clk_numtrans - LT_CLKPACK - 1; + +if(numtrans<0) + { + /* it never got around to caching */ + fprintf(stderr, "Possible Problem with %s with %d?\n", s->name, s->clk_numtrans); + return; + } + +if(last_change_delta >= 256*65536) + { + numbytes = 3; + } +else +if(last_change_delta >= 65536) + { + numbytes = 2; + } +else +if(last_change_delta >= 256) + { + numbytes = 1; + } +else + { + numbytes = 0; + } + +if(numtrans >= 256*65536) + { + numbytes_trans = 3; + } +else +if(numtrans >= 65536) + { + numbytes_trans = 2; + } +else +if(numtrans >= 256) + { + numbytes_trans = 1; + } +else + { + numbytes_trans = 0; + } + +tag = (numbytes<<4) + 0xC + numbytes_trans; /* yields xC..xF */ + +lt->lt_emit_u8(lt, tag); +switch(numbytes&3) + { + case 0: lt->lt_emit_u8(lt, last_change_delta); break; + case 1: lt->lt_emit_u16(lt, last_change_delta); break; + case 2: lt->lt_emit_u24(lt, last_change_delta); break; + case 3: lt->lt_emit_u32(lt, last_change_delta); break; + } + +s->last_change = start_position; + +/* s->clk_prevval CAN BE INFERRED! */ +/* s->clk_prevtrans CAN BE INFERRED! */ +/* s->clk_delta CAN BE INFERRED! */ + +switch(numbytes_trans&3) + { + case 0: lt->lt_emit_u8(lt, numtrans); break; + case 1: lt->lt_emit_u16(lt, numtrans); break; + case 2: lt->lt_emit_u24(lt, numtrans); break; + case 3: lt->lt_emit_u32(lt, numtrans); break; + } + +/* printf("Clock finish for '%s' at %Ld ending with '%c' for %d repeats over a switch delta of %d\n", + s->name, lt->timeval, s->clk_prevval, s->clk_numtrans - LT_CLKPACK, s->clk_delta); */ +s->clk_prevtrans = ULLDescriptor(~0); +s->clk_numtrans = 0; +} + +static void lt_flushclock_m(struct lt_trace *lt, struct lt_symbol *s) +{ +unsigned int last_change_delta = lt->position - s->last_change - 2; +unsigned int start_position = lt->position; +int tag; +int numbytes, numbytes_trans; +int numtrans = s->clk_numtrans - LT_CLKPACK_M - 1; + +if(numtrans<0) + { + /* it never got around to caching */ + fprintf(stderr, "Possible Problem with %s with %d?\n", s->name, s->clk_numtrans); + return; + } + +if(last_change_delta >= 256*65536) + { + numbytes = 3; + } +else +if(last_change_delta >= 65536) + { + numbytes = 2; + } +else +if(last_change_delta >= 256) + { + numbytes = 1; + } +else + { + numbytes = 0; + } + +if(numtrans >= 256*65536) + { + numbytes_trans = 3; + } +else +if(numtrans >= 65536) + { + numbytes_trans = 2; + } +else +if(numtrans >= 256) + { + numbytes_trans = 1; + } +else + { + numbytes_trans = 0; + } + +tag = (numbytes<<4) + 0xC + numbytes_trans; /* yields xC..xF */ + +lt->lt_emit_u8(lt, tag); +switch(numbytes&3) + { + case 0: lt->lt_emit_u8(lt, last_change_delta); break; + case 1: lt->lt_emit_u16(lt, last_change_delta); break; + case 2: lt->lt_emit_u24(lt, last_change_delta); break; + case 3: lt->lt_emit_u32(lt, last_change_delta); break; + } + +s->last_change = start_position; + +/* s->clk_prevval CAN BE INFERRED! */ +/* s->clk_prevtrans CAN BE INFERRED! */ +/* s->clk_delta CAN BE INFERRED! */ + +switch(numbytes_trans&3) + { + case 0: lt->lt_emit_u8(lt, numtrans); break; + case 1: lt->lt_emit_u16(lt, numtrans); break; + case 2: lt->lt_emit_u24(lt, numtrans); break; + case 3: lt->lt_emit_u32(lt, numtrans); break; + } + +/* printf("Clock finish for '%s' at %Ld ending with '%08x' for %d repeats over a switch delta of %Ld\n", + s->name, lt->timeval, s->clk_prevval, s->clk_numtrans - LT_CLKPACK_M, s->clk_delta); */ +s->clk_prevtrans = ULLDescriptor(~0); +s->clk_numtrans = 0; +} + + +/* + * close out the trace and fixate it + */ +void lt_close(struct lt_trace *lt) +{ +lxttime_t lasttime=ULLDescriptor(0); +int lastposition=0; +char is64=0; + +if(lt) + { + struct lt_symbol *s = lt->symchain; + + if(lt->clock_compress) + while(s) + { + if(s->clk_prevtrans!=ULLDescriptor(~0)) + { + int len = ((s->flags)<_SYM_F_INTEGER) ? 32 : s->len; + if(len>1) + { + if(s->clk_numtrans > LT_CLKPACK_M) lt_flushclock_m(lt, s); + } + else + { + if(s->clk_numtrans > LT_CLKPACK) lt_flushclock(lt, s); + } + } + + s=s->symchain; + } + + if(lt->zmode) + { + lt->chg_table_size = lt->position - lt->change_field_offset; + gzclose(lt->zhandle); lt->zhandle = NULL; + fseek(lt->handle, 0L, SEEK_END); + lt->position=ftell(lt->handle); + + lt_set_zmode(lt, 0); + lt->zchg_table_size = lt->position - lt->change_field_offset; + } + + lt_emitfacs(lt); + + if(lt->timebuff) + { + free(lt->timebuff); + lt->timebuff=NULL; + } + if(lt->timehead) + { + struct lt_timetrail *t=lt->timehead; + struct lt_timetrail *t2; + + lt->time_table_offset = lt->position; + + lt_emit_u32(lt, lt->timechangecount); /* this is uncompressed! */ + + fflush(lt->handle); + lt->zhandle = gzdopen(dup(fileno(lt->handle)), "wb9"); + lt->ztime_table_size = lt->position; + + is64=(lt->maxtime > ULLDescriptor(0xFFFFFFFF)); + + if(is64) + { + lt_emit_u64z(lt, (int)((lt->mintime)>>32), (int)lt->mintime); + lt_emit_u64z(lt, (int)((lt->maxtime)>>32), (int)lt->maxtime); + } + else + { + lt_emit_u32z(lt, (int)lt->mintime); + lt_emit_u32z(lt, (int)lt->maxtime); + } + + while(t) + { + lt_emit_u32z(lt, t->position - lastposition); lastposition = t->position; + t=t->next; + } + + t=lt->timehead; + if(is64) + { + while(t) + { + lxttime_t delta = t->timeval - lasttime; + lt_emit_u64z(lt, (int)(delta>>32), (int)delta); lasttime = t->timeval; + + t2=t->next; + free(t); + t=t2; + } + } + else + { + while(t) + { + lt_emit_u32z(lt, (int)(t->timeval - lasttime)); lasttime = t->timeval; + + t2=t->next; + free(t); + t=t2; + } + + lt->timehead = lt->timecurr = NULL; + } + + gzclose(lt->zhandle); lt->zhandle = NULL; + fseek(lt->handle, 0L, SEEK_END); + lt->position=ftell(lt->handle); + lt->ztime_table_size = lt->position - lt->ztime_table_size; + } + + if(lt->initial_value>=0) + { + lt->initial_value_offset = lt->position; + lt_emit_u8(lt, lt->initial_value); + } + + if((lt->timescale>-129)&(lt->timescale<128)) + { + lt->timescale_offset = lt->position; + lt_emit_u8(lt, lt->timescale); + } + + if(lt->double_used) + { + lt->double_test_offset = lt->position; + lt_emit_double(lt, 3.14159); + } + + lt_emit_u8(lt, LT_SECTION_END); + if(lt->change_field_offset) { lt_emit_u32(lt, lt->change_field_offset); lt_emit_u8(lt, LT_SECTION_CHG); } + if(lt->sync_table_offset) { lt_emit_u32(lt, lt->sync_table_offset); lt_emit_u8(lt, LT_SECTION_SYNC_TABLE); } + if(lt->facname_offset) { lt_emit_u32(lt, lt->facname_offset); lt_emit_u8(lt, LT_SECTION_FACNAME); } + if(lt->facgeometry_offset) { lt_emit_u32(lt, lt->facgeometry_offset); lt_emit_u8(lt, LT_SECTION_FACNAME_GEOMETRY); } + if(lt->timescale_offset) { lt_emit_u32(lt, lt->timescale_offset); lt_emit_u8(lt, LT_SECTION_TIMESCALE); } + if(lt->time_table_offset) { lt_emit_u32(lt, lt->time_table_offset); lt_emit_u8(lt, is64 ? LT_SECTION_TIME_TABLE64 : LT_SECTION_TIME_TABLE); } + if(lt->initial_value_offset) { lt_emit_u32(lt, lt->initial_value_offset); lt_emit_u8(lt, LT_SECTION_INITIAL_VALUE); } + if(lt->double_test_offset) { lt_emit_u32(lt, lt->double_test_offset); lt_emit_u8(lt, LT_SECTION_DOUBLE_TEST); } + + /* Version 2 adds */ + if(lt->zfacname_predec_size) { lt_emit_u32(lt, lt->zfacname_predec_size); lt_emit_u8(lt, LT_SECTION_ZFACNAME_PREDEC_SIZE); } + if(lt->zfacname_size) { lt_emit_u32(lt, lt->zfacname_size); lt_emit_u8(lt, LT_SECTION_ZFACNAME_SIZE); } + if(lt->zfacgeometry_size) { lt_emit_u32(lt, lt->zfacgeometry_size); lt_emit_u8(lt, LT_SECTION_ZFACNAME_GEOMETRY_SIZE); } + if(lt->zsync_table_size) { lt_emit_u32(lt, lt->zsync_table_size); lt_emit_u8(lt, LT_SECTION_ZSYNC_SIZE); } + if(lt->ztime_table_size) { lt_emit_u32(lt, lt->ztime_table_size); lt_emit_u8(lt, LT_SECTION_ZTIME_TABLE_SIZE); } + if(lt->chg_table_size) { lt_emit_u32(lt, lt->chg_table_size); lt_emit_u8(lt, LT_SECTION_ZCHG_PREDEC_SIZE); } + if(lt->zchg_table_size) { lt_emit_u32(lt, lt->zchg_table_size); lt_emit_u8(lt, LT_SECTION_ZCHG_SIZE); } + + lt_emit_u8(lt, LT_TRLID); + + if(lt->symchain) + { + struct lt_symbol *s = lt->symchain; + struct lt_symbol *s2; + + while(s) + { + free(s->name); + s2=s->next; + free(s); + s=s2; + } + } + + fclose(lt->handle); + free(lt); + } + +} + + +/* + * maint function for finding a symbol if it exists + */ +struct lt_symbol *lt_symbol_find(struct lt_trace *lt, const char *name) +{ +struct lt_symbol *s=NULL; + +if((lt)&&(name)) s=lt_symfind(lt, name); +return(s); +} + + +/* + * add a trace (if it doesn't exist already) + */ +struct lt_symbol *lt_symbol_add(struct lt_trace *lt, const char *name, unsigned int rows, int msb, int lsb, int flags) +{ +struct lt_symbol *s; +int len; +int flagcnt; + +flagcnt = ((flags<_SYM_F_INTEGER)!=0) + ((flags<_SYM_F_DOUBLE)!=0) + ((flags<_SYM_F_STRING)!=0); + +if((flagcnt>1)||(!lt)||(!name)||(lt_symfind(lt, name))) return (NULL); + +if(flags<_SYM_F_DOUBLE) lt->double_used = 1; + +s=lt_symadd(lt, name, lt_hash(name)); +s->rows = rows; +s->flags = flags&(~LT_SYM_F_ALIAS); /* aliasing makes no sense here.. */ + +if(!flagcnt) + { + s->msb = msb; + s->lsb = lsb; + s->len = (msblen==1)&&(s->rows==0)) s->clk_prevtrans = ULLDescriptor(~0); + } + +s->symchain = lt->symchain; +lt->symchain = s; +lt->numfacs++; +if((len=strlen(name)) > lt->longestname) lt->longestname = len; +lt->numfacbytes += (len+1); + +return(s); +} + +/* + * add an alias trace (if it doesn't exist already and orig is found) + */ +struct lt_symbol *lt_symbol_alias(struct lt_trace *lt, const char *existing_name, const char *alias, int msb, int lsb) +{ +struct lt_symbol *s, *sa; +int len; +int bitlen; +int flagcnt; + +if((!lt)||(!existing_name)||(!alias)||(!(s=lt_symfind(lt, existing_name)))||(lt_symfind(lt, alias))) return (NULL); + +while(s->aliased_to) /* find root alias */ + { + s=s->aliased_to; + } + +flagcnt = ((s->flags<_SYM_F_INTEGER)!=0) + ((s->flags<_SYM_F_DOUBLE)!=0) + ((s->flags<_SYM_F_STRING)!=0); +bitlen = (msblen)) return(NULL); + +sa=lt_symadd(lt, alias, lt_hash(alias)); +sa->flags = LT_SYM_F_ALIAS; /* only point this can get set */ +sa->aliased_to = s; + +if(!flagcnt) + { + sa->msb = msb; + sa->lsb = lsb; + sa->len = bitlen; + } + +sa->symchain = lt->symchain; +lt->symchain = sa; +lt->numfacs++; +if((len=strlen(alias)) > lt->longestname) lt->longestname = len; +lt->numfacbytes += (len+1); + +return(sa); +} + + +/* + * set current time + */ +int lt_inc_time_by_delta(struct lt_trace *lt, unsigned int timeval) +{ +return(lt_set_time64(lt, lt->maxtime + (lxttime_t)timeval)); +} + +int lt_set_time(struct lt_trace *lt, unsigned int timeval) +{ +return(lt_set_time64(lt, (lxttime_t)timeval)); +} + +int lt_inc_time_by_delta64(struct lt_trace *lt, lxttime_t timeval) +{ +return(lt_set_time64(lt, lt->maxtime + timeval)); +} + +int lt_set_time64(struct lt_trace *lt, lxttime_t timeval) +{ +int rc=0; + +if(lt) + { + struct lt_timetrail *trl=(struct lt_timetrail *)calloc(1, sizeof(struct lt_timetrail)); + if(trl) + { + trl->timeval = timeval; + trl->position = lt->position; + + if((lt->timecurr)||(lt->timebuff)) + { + if(((timeval>lt->mintime)&&(timeval>lt->maxtime))||((lt->mintime==ULLDescriptor(1))&&(lt->maxtime==ULLDescriptor(0)))) + { + lt->maxtime = timeval; + } + else + { + free(trl); + goto bail; + } + } + else + { + lt->mintime = lt->maxtime = timeval; + } + + if(lt->timebuff) + { + free(lt->timebuff); + } + lt->timebuff = trl; + lt->timeval = timeval; + rc=1; + } + } + +bail: +return(rc); +} + + +/* + * sets trace timescale as 10**x seconds + */ +void lt_set_timescale(struct lt_trace *lt, int timescale) +{ +if(lt) + { + lt->timescale = timescale; + } +} + + +/* + * sets clock compression heuristic + */ +void lt_set_clock_compress(struct lt_trace *lt) +{ +if(lt) + { + lt->clock_compress = 1; + } +} + + +/* + * sets change dump compression + */ +void lt_set_chg_compress(struct lt_trace *lt) +{ +if(lt) + { + if((!lt->zmode)&&(!lt->emitted)) + { + lt_set_zmode(lt, lt->zmode = 1); + fflush(lt->handle); + lt->zhandle = gzdopen(dup(fileno(lt->handle)), "wb9"); + } + } +} + + + + +/* + * sets trace initial value + */ +void lt_set_initial_value(struct lt_trace *lt, char value) +{ +if(lt) + { + int tag; + switch(value) + { + case '0': tag = 0; break; + case '1': tag = 1; break; + case 'Z': + case 'z': tag = 2; break; + case 'X': + case 'x': tag = 3; break; + case 'H': + case 'h': tag = 4; break; + case 'U': + case 'u': tag = 5; break; + case 'W': + case 'w': tag = 6; break; + case 'L': + case 'l': tag = 0x7; break; + case '-': tag = 0x8; break; + default: tag = -1; break; + } + lt->initial_value = tag; + } +} + + +/* + * Sets bracket stripping (useful for VCD conversions of + * bitblasted nets) + */ +void lt_symbol_bracket_stripping(struct lt_trace *lt, int doit) +{ +if(lt) + { + lt->do_strip_brackets = (doit!=0); + } +} + + +/* + * emission for trace values.. + */ +static int lt_optimask[]= +{ +0x00000000, + +0x00000001, +0x00000003, +0x00000007, +0x0000000f, + +0x0000001f, +0x0000003f, +0x0000007f, +0x000000ff, + +0x000001ff, +0x000003ff, +0x000007ff, +0x00000fff, + +0x00001fff, +0x00003fff, +0x00007fff, +0x0000ffff, + +0x0001ffff, +0x0003ffff, +0x0007ffff, +0x000fffff, + +0x001fffff, +0x003fffff, +0x007fffff, +0x00ffffff, + +0x01ffffff, +0x03ffffff, +0x07ffffff, +0x0fffffff, + +0x1fffffff, +0x3fffffff, +0x7fffffff, +0xffffffff +}; + + +int lt_emit_value_int(struct lt_trace *lt, struct lt_symbol *s, unsigned int row, int value) +{ +int rc=0; + +if((!lt)||(!s)) return(rc); + +if(!lt->emitted) lt->emitted = 1; + +while(s->aliased_to) /* find root alias if exists */ + { + s=s->aliased_to; + } + +if(!(s->flags&(LT_SYM_F_DOUBLE|LT_SYM_F_STRING))) + { + int numbytes; /* number of bytes to store value minus one */ + int len = ((s->flags)<_SYM_F_INTEGER) ? 32 : s->len; + unsigned int last_change_delta; + + if((lt->clock_compress)&&(s->rows==0)) + if((len>1)&&(len<=32)) + { + int ivalue = value; + s->clk_mask <<= 1; + s->clk_mask |= 1; + + if(((s->clk_mask&0x1f)==0x1f) && ((ivalue - s->clk_prevval1)==(s->clk_prevval1 - s->clk_prevval3)) && + ((s->clk_prevval - s->clk_prevval2)==(s->clk_prevval2 - s->clk_prevval4))) + { + if(s->clk_prevtrans==ULLDescriptor(~0)) + { + s->clk_prevtrans = lt->timeval; + s->clk_numtrans = 0; + } + else + if(s->clk_numtrans == 0) + { + s->clk_delta = lt->timeval - s->clk_prevtrans; + s->clk_prevtrans = lt->timeval; + s->clk_numtrans++; + } + else + { + if(s->clk_delta == (lt->timeval - s->clk_prevtrans)) + { + s->clk_numtrans++; + s->clk_prevtrans = lt->timeval; + if(s->clk_numtrans > LT_CLKPACK_M) + { + s->clk_prevval4 = s->clk_prevval3; + s->clk_prevval3 = s->clk_prevval2; + s->clk_prevval2 = s->clk_prevval1; + s->clk_prevval1 = s->clk_prevval; + s->clk_prevval = ivalue; + + /* printf("Clock value '%08x' for '%s' at %Ld (#%d)\n", ivalue, s->name, lt->timeval, s->clk_numtrans); */ + return(1); + } + } + else + { + if(s->clk_numtrans > LT_CLKPACK_M) + { + lt_flushclock_m(lt, s); + /* flush clock then continue below! */ + } + else + { + s->clk_prevtrans=ULLDescriptor(~0); + } + } + } + + } + else + { + if(s->clk_numtrans > LT_CLKPACK_M) + { + lt_flushclock_m(lt, s); + /* flush clock then continue below! */ + } + else + { + s->clk_prevtrans=ULLDescriptor(~0); + } + } + + s->clk_prevval4 = s->clk_prevval3; + s->clk_prevval3 = s->clk_prevval2; + s->clk_prevval2 = s->clk_prevval1; + s->clk_prevval1 = s->clk_prevval; + s->clk_prevval = ivalue; + } + else + if(len==1) /* possible clock handling */ + { + int ivalue = value&1; + + if(((s->clk_prevval == '1') && (ivalue==0)) || ((s->clk_prevval == '0') && (ivalue==1))) + { + if(s->clk_prevtrans==ULLDescriptor(~0)) + { + s->clk_prevtrans = lt->timeval; + s->clk_numtrans = 0; + } + else + if(s->clk_numtrans == 0) + { + s->clk_delta = lt->timeval - s->clk_prevtrans; + s->clk_prevtrans = lt->timeval; + s->clk_numtrans++; + } + else + { + if(s->clk_delta == (lt->timeval - s->clk_prevtrans)) + { + s->clk_numtrans++; + s->clk_prevtrans = lt->timeval; + if(s->clk_numtrans > LT_CLKPACK) + { + s->clk_prevval = ivalue + '0'; + + /* printf("Clock value '%d' for '%s' at %d (#%d)\n", ivalue, s->name, lt->timeval, s->clk_numtrans); */ + return(1); + } + } + else + { + if(s->clk_numtrans > LT_CLKPACK) + { + lt_flushclock(lt, s); + /* flush clock then continue below! */ + } + else + { + s->clk_prevtrans=ULLDescriptor(~0); + } + } + } + + } + else + { + if(s->clk_numtrans > LT_CLKPACK) + { + lt_flushclock(lt, s); + /* flush clock then continue below! */ + } + else + { + s->clk_prevtrans=ULLDescriptor(~0); + } + } + + s->clk_prevval = ivalue + '0'; + } + + /* normal trace handling */ + + last_change_delta = lt->position - s->last_change - 2; + + if(last_change_delta >= 256*65536) + { + numbytes = 3; + } + else + if(last_change_delta >= 65536) + { + numbytes = 2; + } + else + if(last_change_delta >= 256) + { + numbytes = 1; + } + else + { + numbytes = 0; + } + + if(len<=32) + { + int start_position = lt->position; + int tag; + int optimized0 = ((value<_optimask[len])==0); + int optimized1 = ((value<_optimask[len])==lt_optimask[len]); + int optimized = optimized0|optimized1; + + if(optimized) + { + tag = (numbytes<<4) | (3+optimized1); /* for x3 and x4 cases */ + } + else + { + tag = (numbytes<<4); + } + + lt->lt_emit_u8(lt, tag); + switch(numbytes&3) + { + case 0: lt->lt_emit_u8(lt, last_change_delta); break; + case 1: lt->lt_emit_u16(lt, last_change_delta); break; + case 2: lt->lt_emit_u24(lt, last_change_delta); break; + case 3: lt->lt_emit_u32(lt, last_change_delta); break; + } + + s->last_change = start_position; + + if(s->rows>0) + { + if(s->rows >= 256*65536) + { + numbytes = 3; + } + else + if(s->rows >= 65536) + { + numbytes = 2; + } + else + if(s->rows >= 256) + { + numbytes = 1; + } + else + { + numbytes = 0; + } + + switch(numbytes&3) + { + case 0: lt->lt_emit_u8(lt, row); break; + case 1: lt->lt_emit_u16(lt, row); break; + case 2: lt->lt_emit_u24(lt, row); break; + case 3: lt->lt_emit_u32(lt, row); break; + } + } + + if(!optimized) + { + if(len<9) + { + value <<= (8-len); + rc=lt->lt_emit_u8(lt, value); + } + else + if(len<17) + { + value <<= (16-len); + rc=lt->lt_emit_u16(lt, value); + } + else + if(len<25) + { + value <<= (24-len); + rc=lt->lt_emit_u24(lt, value); + } + else + { + value <<= (32-len); + rc=lt->lt_emit_u32(lt, value); + } + } + } + + if(lt->timebuff) + { + lt->timechangecount++; + if(lt->timecurr) + { + lt->timecurr->next = lt->timebuff; + lt->timecurr = lt->timebuff; + } + else + { + lt->timehead = lt->timecurr = lt->timebuff; + } + + lt->timebuff=NULL; + } + } + +return(rc); +} + + +int lt_emit_value_double(struct lt_trace *lt, struct lt_symbol *s, unsigned int row, double value) +{ +int rc=0; +int start_position; +int tag; + +if((!lt)||(!s)) return(rc); + +if(!lt->emitted) lt->emitted = 1; + +while(s->aliased_to) /* find root alias if exists */ + { + s=s->aliased_to; + } + +if((s->flags)<_SYM_F_DOUBLE) + { + int numbytes; /* number of bytes to store value minus one */ + unsigned int last_change_delta = lt->position - s->last_change - 2; + + if(last_change_delta >= 256*65536) + { + numbytes = 3; + } + else + if(last_change_delta >= 65536) + { + numbytes = 2; + } + else + if(last_change_delta >= 256) + { + numbytes = 1; + } + else + { + numbytes = 0; + } + + start_position = lt->position; + tag = (numbytes<<4); + lt->lt_emit_u8(lt, tag); + switch(numbytes&3) + { + case 0: lt->lt_emit_u8(lt, last_change_delta); break; + case 1: lt->lt_emit_u16(lt, last_change_delta); break; + case 2: lt->lt_emit_u24(lt, last_change_delta); break; + case 3: lt->lt_emit_u32(lt, last_change_delta); break; + } + + s->last_change = start_position; + + if(s->rows>0) + { + if(s->rows >= 256*65536) + { + numbytes = 3; + } + else + if(s->rows >= 65536) + { + numbytes = 2; + } + else + if(s->rows >= 256) + { + numbytes = 1; + } + else + { + numbytes = 0; + } + + switch(numbytes&3) + { + case 0: lt->lt_emit_u8(lt, row); break; + case 1: lt->lt_emit_u16(lt, row); break; + case 2: lt->lt_emit_u24(lt, row); break; + case 3: lt->lt_emit_u32(lt, row); break; + } + } + + rc=lt->lt_emit_double(lt, value); + + if(lt->timebuff) + { + lt->timechangecount++; + if(lt->timecurr) + { + lt->timecurr->next = lt->timebuff; + lt->timecurr = lt->timebuff; + } + else + { + lt->timehead = lt->timecurr = lt->timebuff; + } + + lt->timebuff=NULL; + } + } + +return(rc); +} + + +int lt_emit_value_string(struct lt_trace *lt, struct lt_symbol *s, unsigned int row, char *value) +{ +int rc=0; +int start_position; +int tag; + +if((!lt)||(!s)||(!value)) return(rc); + +if(!lt->emitted) lt->emitted = 1; + +while(s->aliased_to) /* find root alias if exists */ + { + s=s->aliased_to; + } + +if((s->flags)<_SYM_F_STRING) + { + int numbytes; /* number of bytes to store value minus one */ + unsigned int last_change_delta = lt->position - s->last_change - 2; + + if(last_change_delta >= 256*65536) + { + numbytes = 3; + } + else + if(last_change_delta >= 65536) + { + numbytes = 2; + } + else + if(last_change_delta >= 256) + { + numbytes = 1; + } + else + { + numbytes = 0; + } + + start_position = lt->position; + tag = (numbytes<<4); + lt->lt_emit_u8(lt, tag); + switch(numbytes&3) + { + case 0: lt->lt_emit_u8(lt, last_change_delta); break; + case 1: lt->lt_emit_u16(lt, last_change_delta); break; + case 2: lt->lt_emit_u24(lt, last_change_delta); break; + case 3: lt->lt_emit_u32(lt, last_change_delta); break; + } + + s->last_change = start_position; + + if(s->rows>0) + { + if(s->rows >= 256*65536) + { + numbytes = 3; + } + else + if(s->rows >= 65536) + { + numbytes = 2; + } + else + if(s->rows >= 256) + { + numbytes = 1; + } + else + { + numbytes = 0; + } + + switch(numbytes&3) + { + case 0: lt->lt_emit_u8(lt, row); break; + case 1: lt->lt_emit_u16(lt, row); break; + case 2: lt->lt_emit_u24(lt, row); break; + case 3: lt->lt_emit_u32(lt, row); break; + } + } + + rc=lt->lt_emit_string(lt, value); + + if(lt->timebuff) + { + lt->timechangecount++; + if(lt->timecurr) + { + lt->timecurr->next = lt->timebuff; + lt->timecurr = lt->timebuff; + } + else + { + lt->timehead = lt->timecurr = lt->timebuff; + } + + lt->timebuff=NULL; + } + } + +return(rc); +} + + +int lt_emit_value_bit_string(struct lt_trace *lt, struct lt_symbol *s, unsigned int row, char *value) +{ +int rc=0; +int start_position; +int tag, tagadd; + +if((!lt)||(!s)||(!value)||(!*value)) return(rc); + +if(!lt->emitted) lt->emitted = 1; + +while(s->aliased_to) /* find root alias if exists */ + { + s=s->aliased_to; + } + +if(!(s->flags&(LT_SYM_F_DOUBLE|LT_SYM_F_STRING))) + { + int numbytes; /* number of bytes to store value minus one */ + char *pnt; + int mvl=0; + char ch; + char prevch; + unsigned int last_change_delta; + + int len = ((s->flags)<_SYM_F_INTEGER) ? 32 : s->len; + + if((lt->clock_compress)&&(s->rows==0)) + if((len>1)&&(len<=32)) + { + int legal = 0; + int ivalue = 0; + int i; + char *pnt = value; + + for(i=0;i0)) + { + pnt--; + } + else + { + legal = 0; + break; + } + } + + ivalue = (((unsigned int)ivalue) << 1); + ivalue |= (*pnt & 1); + legal = 1; + pnt++; + } + s->clk_mask <<= 1; + s->clk_mask |= legal; + + if(((s->clk_mask&0x1f)==0x1f) && ((ivalue - s->clk_prevval1)==(s->clk_prevval1 - s->clk_prevval3)) && + ((s->clk_prevval - s->clk_prevval2)==(s->clk_prevval2 - s->clk_prevval4))) + { + if(s->clk_prevtrans==ULLDescriptor(~0)) + { + s->clk_prevtrans = lt->timeval; + s->clk_numtrans = 0; + } + else + if(s->clk_numtrans == 0) + { + s->clk_delta = lt->timeval - s->clk_prevtrans; + s->clk_prevtrans = lt->timeval; + s->clk_numtrans++; + } + else + { + if(s->clk_delta == (lt->timeval - s->clk_prevtrans)) + { + s->clk_numtrans++; + s->clk_prevtrans = lt->timeval; + if(s->clk_numtrans > LT_CLKPACK_M) + { + s->clk_prevval4 = s->clk_prevval3; + s->clk_prevval3 = s->clk_prevval2; + s->clk_prevval2 = s->clk_prevval1; + s->clk_prevval1 = s->clk_prevval; + s->clk_prevval = ivalue; + + /* printf("Clock value '%08x' for '%s' [len=%d] at %Ld (#%d)\n", + ivalue, s->name, len, lt->timeval, s->clk_numtrans); */ + return(1); + } + } + else + { + if(s->clk_numtrans > LT_CLKPACK_M) + { + lt_flushclock_m(lt, s); + /* flush clock then continue below! */ + } + else + { + s->clk_prevtrans=ULLDescriptor(~0); + } + } + } + + } + else + { + if(s->clk_numtrans > LT_CLKPACK_M) + { + lt_flushclock_m(lt, s); + /* flush clock then continue below! */ + } + else + { + s->clk_prevtrans=ULLDescriptor(~0); + } + } + + s->clk_prevval4 = s->clk_prevval3; + s->clk_prevval3 = s->clk_prevval2; + s->clk_prevval2 = s->clk_prevval1; + s->clk_prevval1 = s->clk_prevval; + s->clk_prevval = ivalue; + } + else + if(len==1) /* possible clock handling */ + { + if(((s->clk_prevval == '1') && (value[0]=='0')) || ((s->clk_prevval == '0') && (value[0]=='1'))) + { + if(s->clk_prevtrans==ULLDescriptor(~0)) + { + s->clk_prevtrans = lt->timeval; + s->clk_numtrans = 0; + } + else + if(s->clk_numtrans == 0) + { + s->clk_delta = lt->timeval - s->clk_prevtrans; + s->clk_prevtrans = lt->timeval; + s->clk_numtrans++; + } + else + { + if(s->clk_delta == (lt->timeval - s->clk_prevtrans)) + { + s->clk_numtrans++; + s->clk_prevtrans = lt->timeval; + if(s->clk_numtrans > LT_CLKPACK) + { + s->clk_prevval = value[0]; + + /* printf("Clock value '%c' for '%s' at %Ld (#%d)\n", value[0], s->name, lt->timeval, s->clk_numtrans); */ + return(1); + } + } + else + { + if(s->clk_numtrans > LT_CLKPACK) + { + lt_flushclock(lt, s); + /* flush clock then continue below! */ + } + else + { + s->clk_prevtrans=ULLDescriptor(~0); + } + } + } + + } + else + { + if(s->clk_numtrans > LT_CLKPACK) + { + lt_flushclock(lt, s); + /* flush clock then continue below! */ + } + else + { + s->clk_prevtrans=ULLDescriptor(~0); + } + } + + s->clk_prevval = value[0]; + } + + /* normal trace handling */ + + last_change_delta = lt->position - s->last_change - 2; + + if(last_change_delta >= 256*65536) + { + numbytes = 3; + } + else + if(last_change_delta >= 65536) + { + numbytes = 2; + } + else + if(last_change_delta >= 256) + { + numbytes = 1; + } + else + { + numbytes = 0; + } + + pnt = value; + prevch = *pnt; + while((ch=*(pnt++))) + { + switch(ch) + { + case '0': + case '1': mvl|=LT_MVL_2; break; + case 'Z': + case 'z': + case 'X': + case 'x': mvl|=LT_MVL_4; break; + default: mvl|=LT_MVL_9; break; + } + + if(prevch!=ch) prevch = 0; + } + + switch(prevch) + { + case 0x00: tagadd = 0; break; + case '0': tagadd = 3; break; + case '1': tagadd = 4; break; + case 'Z': + case 'z': tagadd = 5; break; + case 'X': + case 'x': tagadd = 6; break; + case 'H': + case 'h': tagadd = 7; break; + case 'U': + case 'u': tagadd = 8; break; + case 'W': + case 'w': tagadd = 9; break; + case 'L': + case 'l': tagadd = 0xa; break; + default: tagadd = 0xb; break; + } + + if(mvl) + { + start_position = lt->position; + if(tagadd) + { + tag = (numbytes<<4) + tagadd; + } + else + { + tag = (numbytes<<4) + ((mvl<_MVL_9)? 2 : ((mvl<_MVL_4)? 1 : 0)); + } + lt->lt_emit_u8(lt, tag); + switch(numbytes&3) + { + case 0: lt->lt_emit_u8(lt, last_change_delta); break; + case 1: lt->lt_emit_u16(lt, last_change_delta); break; + case 2: lt->lt_emit_u24(lt, last_change_delta); break; + case 3: lt->lt_emit_u32(lt, last_change_delta); break; + } + + s->last_change = start_position; + + if(s->rows>0) + { + if(s->rows >= 256*65536) + { + numbytes = 3; + } + else + if(s->rows >= 65536) + { + numbytes = 2; + } + else + if(s->rows >= 256) + { + numbytes = 1; + } + else + { + numbytes = 0; + } + + switch(numbytes&3) + { + case 0: lt->lt_emit_u8(lt, row); break; + case 1: lt->lt_emit_u16(lt, row); break; + case 2: lt->lt_emit_u24(lt, row); break; + case 3: lt->lt_emit_u32(lt, row); break; + } + } + + if(!tagadd) + { + int len = ((s->flags)<_SYM_F_INTEGER) ? 32 : s->len; + if((mvl & (LT_MVL_2|LT_MVL_4|LT_MVL_9)) == LT_MVL_2) + { + int i; + int bitpos = 7; + int outval = 0; + int thisval= 0; + + pnt = value; + + for(i=0;ilt_emit_u8(lt, outval); + outval = 0; + bitpos = 7; + } + } + } + else + if((mvl & (LT_MVL_4|LT_MVL_9)) == LT_MVL_4) + { + int i; + int bitpos = 6; + int outval = 0; + int thisval= 0; + + pnt = value; + + for(i=0;ilt_emit_u8(lt, outval); + outval = 0; + bitpos = 6; + } + } + } + else + /* if(mvl & LT_MVL_9) */ + { + int i; + int bitpos = 4; + int outval = 0; + int thisval= 0; + + pnt = value; + + for(i=0;ilt_emit_u8(lt, outval); + outval = 0; + bitpos = 4; + } + } + } + } + + rc=1; + } + + if(lt->timebuff) + { + lt->timechangecount++; + if(lt->timecurr) + { + lt->timecurr->next = lt->timebuff; + lt->timecurr = lt->timebuff; + } + else + { + lt->timehead = lt->timecurr = lt->timebuff; + } + + lt->timebuff=NULL; + } + } + +return(rc); +} diff --git a/lxt/lxt_write.h b/lxt/lxt_write.h new file mode 100644 index 0000000..43d6a9f --- /dev/null +++ b/lxt/lxt_write.h @@ -0,0 +1,196 @@ +/* + * Copyright (c) 2001 Tony Bybell. + * + * Permission is hereby granted, free of charge, to any person obtaining a + * copy of this software and associated documentation files (the "Software"), + * to deal in the Software without restriction, including without limitation + * the rights to use, copy, modify, merge, publish, distribute, sublicense, + * and/or sell copies of the Software, and to permit persons to whom the + * Software is furnished to do so, subject to the following conditions: + * + * The above copyright notice and this permission notice shall be included in + * all copies or substantial portions of the Software. + * + * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR + * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, + * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL + * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER + * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING + * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER + * DEALINGS IN THE SOFTWARE. + */ + +#ifndef DEFS_LXT_H +#define DEFS_LXT_H + +#include +#include +#include +#include +#include +#include +#include + +#define LT_HDRID (0x0138) +#define LT_VERSION (0x0003) +#define LT_TRLID (0xB4) + +#define LT_CLKPACK (4) +#define LT_CLKPACK_M (2) + +#define LT_MVL_2 (1<<0) +#define LT_MVL_4 (1<<1) +#define LT_MVL_9 (1<<2) + +typedef unsigned long long lxttime_t; +#define ULLDescriptor(x) x##ULL + +struct lt_timetrail +{ +struct lt_timetrail *next; +lxttime_t timeval; +unsigned int position; +}; + + +#define LT_SYMPRIME 65519 + +#define LT_SECTION_END (0) +#define LT_SECTION_CHG (1) +#define LT_SECTION_SYNC_TABLE (2) +#define LT_SECTION_FACNAME (3) +#define LT_SECTION_FACNAME_GEOMETRY (4) +#define LT_SECTION_TIMESCALE (5) +#define LT_SECTION_TIME_TABLE (6) +#define LT_SECTION_INITIAL_VALUE (7) +#define LT_SECTION_DOUBLE_TEST (8) +#define LT_SECTION_TIME_TABLE64 (9) +#define LT_SECTION_ZFACNAME_PREDEC_SIZE (10) +#define LT_SECTION_ZFACNAME_SIZE (11) +#define LT_SECTION_ZFACNAME_GEOMETRY_SIZE (12) +#define LT_SECTION_ZSYNC_SIZE (13) +#define LT_SECTION_ZTIME_TABLE_SIZE (14) +#define LT_SECTION_ZCHG_PREDEC_SIZE (15) +#define LT_SECTION_ZCHG_SIZE (16) + + +struct lt_trace +{ +FILE *handle; +gzFile zhandle; + +int (*lt_emit_u8)(struct lt_trace *lt, int value); +int (*lt_emit_u16)(struct lt_trace *lt, int value); +int (*lt_emit_u24)(struct lt_trace *lt, int value); +int (*lt_emit_u32)(struct lt_trace *lt, int value); +int (*lt_emit_u64)(struct lt_trace *lt, int valueh, int valuel); +int (*lt_emit_double)(struct lt_trace *lt, double value); +int (*lt_emit_string)(struct lt_trace *lt, char *value); + +unsigned int position; +unsigned int zfacname_predec_size, zfacname_size, zfacgeometry_size, zsync_table_size, ztime_table_size; +unsigned int zpackcount, zchg_table_size, chg_table_size; + +struct lt_symbol *sym[LT_SYMPRIME]; +struct lt_symbol **sorted_facs; +struct lt_symbol *symchain; +int numfacs; +int numfacbytes; +int longestname; +lxttime_t mintime, maxtime; +int timescale; +int initial_value; + +struct lt_timetrail *timehead, *timecurr, *timebuff; +int timechangecount; + +unsigned int change_field_offset; +unsigned int facname_offset; +unsigned int facgeometry_offset; +unsigned int time_table_offset; +unsigned int sync_table_offset; +unsigned int initial_value_offset; +unsigned int timescale_offset; +unsigned int double_test_offset; + +char *compress_fac_str; +int compress_fac_len; + +lxttime_t timeval; /* for clock induction, current time */ + +unsigned double_used : 1; +unsigned do_strip_brackets : 1; +unsigned clock_compress : 1; +unsigned zmode : 1; /* for value changes */ +unsigned emitted : 1; /* gate off change field zmode changes when set */ +}; + + +struct lt_symbol +{ +struct lt_symbol *next; +struct lt_symbol *symchain; +char *name; +int namlen; + +int facnum; +struct lt_symbol *aliased_to; + +unsigned int rows; +int msb, lsb; +int len; +int flags; + +unsigned int last_change; + +lxttime_t clk_delta; +lxttime_t clk_prevtrans; +int clk_numtrans; +int clk_prevval; +int clk_prevval1; +int clk_prevval2; +int clk_prevval3; +int clk_prevval4; +unsigned char clk_mask; +}; + +#define LT_SYM_F_BITS (0) +#define LT_SYM_F_INTEGER (1<<0) +#define LT_SYM_F_DOUBLE (1<<1) +#define LT_SYM_F_STRING (1<<2) +#define LT_SYM_F_ALIAS (1<<3) + + +struct lt_trace * lt_init(const char *name); +void lt_close(struct lt_trace *lt); + +struct lt_symbol * lt_symbol_find(struct lt_trace *lt, const char *name); +struct lt_symbol * lt_symbol_add(struct lt_trace *lt, const char *name, unsigned int rows, int msb, int lsb, int flags); +struct lt_symbol * lt_symbol_alias(struct lt_trace *lt, const char *existing_name, const char *alias, int msb, int lsb); +void lt_symbol_bracket_stripping(struct lt_trace *lt, int doit); + +void lt_set_chg_compress(struct lt_trace *lt); +void lt_set_clock_compress(struct lt_trace *lt); +void lt_set_initial_value(struct lt_trace *lt, char value); +void lt_set_timescale(struct lt_trace *lt, int timescale); + +int lt_set_time(struct lt_trace *lt, unsigned int timeval); +int lt_inc_time_by_delta(struct lt_trace *lt, unsigned int timeval); +int lt_set_time64(struct lt_trace *lt, lxttime_t timeval); +int lt_inc_time_by_delta64(struct lt_trace *lt, lxttime_t timeval); + +/* + * value change functions..note that if the value string len for + * lt_emit_value_bit_string() is shorter than the symbol length + * it will be left justified with the rightmost character used as + * a repeat value that will be propagated to pad the value string out: + * + * "10x" for 8 bits becomes "10xxxxxx" + * "z" for 8 bits becomes "zzzzzzzz" + */ +int lt_emit_value_int(struct lt_trace *lt, struct lt_symbol *s, unsigned int row, int value); +int lt_emit_value_double(struct lt_trace *lt, struct lt_symbol *s, unsigned int row, double value); +int lt_emit_value_string(struct lt_trace *lt, struct lt_symbol *s, unsigned int row, char *value); +int lt_emit_value_bit_string(struct lt_trace *lt, struct lt_symbol *s, unsigned int row, char *value); + +#endif diff --git a/lxt/test.v b/lxt/test.v new file mode 100644 index 0000000..80cd390 --- /dev/null +++ b/lxt/test.v @@ -0,0 +1,66 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +`timescale 1 ns /1 ps +module inv(o,i); +input i; +output o; + +assign o = ~i; + +endmodule + +module test; +reg clk; +wire clk1; +wire clk2; +wire clk3; +integer count; +time t1; +event xevent; +real xyz; + +initial begin + $lxt_recordvars(); + xyz = 0.0001; + #1 + clk = 0; + count = 0; + #10000000 $finish; +end + +always begin + clk = 0; + clk <= #5 1; + #10; +end + +always @(posedge clk) begin + t1 = $time; + count = count+1; + xyz = xyz + xyz; + -> xevent; +end + +inv i0(clk1,clk); +inv i1(clk2,clk1); +inv i2(clk3,clk2); + +endmodule + diff --git a/replace/Makefile.am b/replace/Makefile.am new file mode 100644 index 0000000..f7a4e9c --- /dev/null +++ b/replace/Makefile.am @@ -0,0 +1,6 @@ +INCLUDES = -I$(top_builddir) -I$(top_srcdir) + +noinst_LTLIBRARIES = libreplace.la +libreplace_la_SOURCES = +libreplace_la_LIBADD = $(LTLIBOBJS) + diff --git a/replace/Makefile.in b/replace/Makefile.in new file mode 100644 index 0000000..00ddc2f --- /dev/null +++ b/replace/Makefile.in @@ -0,0 +1,431 @@ +# Makefile.in generated by automake 1.9.5 from Makefile.am. +# @configure_input@ + +# Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, +# 2003, 2004, 2005 Free Software Foundation, Inc. +# This Makefile.in is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY, to the extent permitted by law; without +# even the implied warranty of MERCHANTABILITY or FITNESS FOR A +# PARTICULAR PURPOSE. + +@SET_MAKE@ + +SOURCES = $(libreplace_la_SOURCES) + +srcdir = @srcdir@ +top_srcdir = @top_srcdir@ +VPATH = @srcdir@ +pkgdatadir = $(datadir)/@PACKAGE@ +pkglibdir = $(libdir)/@PACKAGE@ +pkgincludedir = $(includedir)/@PACKAGE@ +top_builddir = .. +am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd +INSTALL = @INSTALL@ +install_sh_DATA = $(install_sh) -c -m 644 +install_sh_PROGRAM = $(install_sh) -c +install_sh_SCRIPT = $(install_sh) -c +INSTALL_HEADER = $(INSTALL_DATA) +transform = $(program_transform_name) +NORMAL_INSTALL = : +PRE_INSTALL = : +POST_INSTALL = : +NORMAL_UNINSTALL = : +PRE_UNINSTALL = : +POST_UNINSTALL = : +build_triplet = @build@ +host_triplet = @host@ +subdir = replace +DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in malloc.c \ + readline.c vfscanf.c +ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 +am__aclocal_m4_deps = $(top_srcdir)/acinclude.m4 \ + $(top_srcdir)/configure.in +am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ + $(ACLOCAL_M4) +mkinstalldirs = $(install_sh) -d +CONFIG_HEADER = $(top_builddir)/config.h +CONFIG_CLEAN_FILES = +LTLIBRARIES = $(noinst_LTLIBRARIES) +am__DEPENDENCIES_1 = @LTLIBOBJS@ +libreplace_la_DEPENDENCIES = $(am__DEPENDENCIES_1) +am_libreplace_la_OBJECTS = +libreplace_la_OBJECTS = $(am_libreplace_la_OBJECTS) +DEFAULT_INCLUDES = -I. -I$(srcdir) -I$(top_builddir) +depcomp = $(SHELL) $(top_srcdir)/config/depcomp +am__depfiles_maybe = depfiles +COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ + $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) +LTCOMPILE = $(LIBTOOL) --tag=CC --mode=compile $(CC) $(DEFS) \ + $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) \ + $(AM_CFLAGS) $(CFLAGS) +CCLD = $(CC) +LINK = $(LIBTOOL) --tag=CC --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) \ + $(AM_LDFLAGS) $(LDFLAGS) -o $@ +SOURCES = $(libreplace_la_SOURCES) +DIST_SOURCES = $(libreplace_la_SOURCES) +ETAGS = etags +CTAGS = ctags +DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) +ACLOCAL = @ACLOCAL@ +AMDEP_FALSE = @AMDEP_FALSE@ +AMDEP_TRUE = @AMDEP_TRUE@ +AMTAR = @AMTAR@ +AR = @AR@ +AUTOCONF = @AUTOCONF@ +AUTOHEADER = @AUTOHEADER@ +AUTOMAKE = @AUTOMAKE@ +AWK = @AWK@ +CC = @CC@ +CCDEPMODE = @CCDEPMODE@ +CFLAGS = @CFLAGS@ +CPP = @CPP@ +CPPFLAGS = @CPPFLAGS@ +CXX = @CXX@ +CXXCPP = @CXXCPP@ +CXXDEPMODE = @CXXDEPMODE@ +CXXFLAGS = @CXXFLAGS@ +CYGPATH_W = @CYGPATH_W@ +DEFS = @DEFS@ +DEPDIR = @DEPDIR@ +ECHO = @ECHO@ +ECHO_C = @ECHO_C@ +ECHO_N = @ECHO_N@ +ECHO_T = @ECHO_T@ +EGREP = @EGREP@ +EXEEXT = @EXEEXT@ +F77 = @F77@ +FFLAGS = @FFLAGS@ +INSTALL_DATA = @INSTALL_DATA@ +INSTALL_PROGRAM = @INSTALL_PROGRAM@ +INSTALL_SCRIPT = @INSTALL_SCRIPT@ +INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ +LDFLAGS = @LDFLAGS@ +LIBOBJS = @LIBOBJS@ +LIBS = @LIBS@ +LIBTOOL = @LIBTOOL@ +LN_S = @LN_S@ +LTLIBOBJS = @LTLIBOBJS@ +MAKEINFO = @MAKEINFO@ +OBJEXT = @OBJEXT@ +PACKAGE = @PACKAGE@ +PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ +PACKAGE_NAME = @PACKAGE_NAME@ +PACKAGE_STRING = @PACKAGE_STRING@ +PACKAGE_TARNAME = @PACKAGE_TARNAME@ +PACKAGE_VERSION = @PACKAGE_VERSION@ +PATH_SEPARATOR = @PATH_SEPARATOR@ +RANLIB = @RANLIB@ +SET_MAKE = @SET_MAKE@ +SHELL = @SHELL@ +STRIP = @STRIP@ +USE_LXT_FALSE = @USE_LXT_FALSE@ +USE_LXT_TRUE = @USE_LXT_TRUE@ +VERSION = @VERSION@ +XGPERF = @XGPERF@ +YACC = @YACC@ +ac_ct_AR = @ac_ct_AR@ +ac_ct_CC = @ac_ct_CC@ +ac_ct_CXX = @ac_ct_CXX@ +ac_ct_F77 = @ac_ct_F77@ +ac_ct_RANLIB = @ac_ct_RANLIB@ +ac_ct_STRIP = @ac_ct_STRIP@ +am__fastdepCC_FALSE = @am__fastdepCC_FALSE@ +am__fastdepCC_TRUE = @am__fastdepCC_TRUE@ +am__fastdepCXX_FALSE = @am__fastdepCXX_FALSE@ +am__fastdepCXX_TRUE = @am__fastdepCXX_TRUE@ +am__include = @am__include@ +am__leading_dot = @am__leading_dot@ +am__quote = @am__quote@ +am__tar = @am__tar@ +am__untar = @am__untar@ +bindir = @bindir@ +build = @build@ +build_alias = @build_alias@ +build_cpu = @build_cpu@ +build_os = @build_os@ +build_vendor = @build_vendor@ +datadir = @datadir@ +exec_prefix = @exec_prefix@ +host = @host@ +host_alias = @host_alias@ +host_cpu = @host_cpu@ +host_os = @host_os@ +host_vendor = @host_vendor@ +includedir = @includedir@ +infodir = @infodir@ +install_sh = @install_sh@ +libdir = @libdir@ +libexecdir = @libexecdir@ +localstatedir = @localstatedir@ +mandir = @mandir@ +mkdir_p = @mkdir_p@ +oldincludedir = @oldincludedir@ +prefix = @prefix@ +program_transform_name = @program_transform_name@ +sbindir = @sbindir@ +sharedstatedir = @sharedstatedir@ +sysconfdir = @sysconfdir@ +target_alias = @target_alias@ +INCLUDES = -I$(top_builddir) -I$(top_srcdir) +noinst_LTLIBRARIES = libreplace.la +libreplace_la_SOURCES = +libreplace_la_LIBADD = $(LTLIBOBJS) +all: all-am + +.SUFFIXES: +.SUFFIXES: .c .lo .o .obj +$(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps) + @for dep in $?; do \ + case '$(am__configure_deps)' in \ + *$$dep*) \ + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh \ + && exit 0; \ + exit 1;; \ + esac; \ + done; \ + echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu replace/Makefile'; \ + cd $(top_srcdir) && \ + $(AUTOMAKE) --gnu replace/Makefile +.PRECIOUS: Makefile +Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status + @case '$?' in \ + *config.status*) \ + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ + *) \ + echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ + cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ + esac; + +$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh + +$(top_srcdir)/configure: $(am__configure_deps) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh +$(ACLOCAL_M4): $(am__aclocal_m4_deps) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh + +clean-noinstLTLIBRARIES: + -test -z "$(noinst_LTLIBRARIES)" || rm -f $(noinst_LTLIBRARIES) + @list='$(noinst_LTLIBRARIES)'; for p in $$list; do \ + dir="`echo $$p | sed -e 's|/[^/]*$$||'`"; \ + test "$$dir" != "$$p" || dir=.; \ + echo "rm -f \"$${dir}/so_locations\""; \ + rm -f "$${dir}/so_locations"; \ + done +libreplace.la: $(libreplace_la_OBJECTS) $(libreplace_la_DEPENDENCIES) + $(LINK) $(libreplace_la_LDFLAGS) $(libreplace_la_OBJECTS) $(libreplace_la_LIBADD) $(LIBS) + +mostlyclean-compile: + -rm -f *.$(OBJEXT) + +distclean-compile: + -rm -f *.tab.c + +@AMDEP_TRUE@@am__include@ @am__quote@$(DEPDIR)/malloc.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@$(DEPDIR)/readline.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@$(DEPDIR)/vfscanf.Plo@am__quote@ + +.c.o: +@am__fastdepCC_TRUE@ if $(COMPILE) -MT $@ -MD -MP -MF "$(DEPDIR)/$*.Tpo" -c -o $@ $<; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/$*.Tpo" "$(DEPDIR)/$*.Po"; else rm -f "$(DEPDIR)/$*.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(COMPILE) -c $< + +.c.obj: +@am__fastdepCC_TRUE@ if $(COMPILE) -MT $@ -MD -MP -MF "$(DEPDIR)/$*.Tpo" -c -o $@ `$(CYGPATH_W) '$<'`; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/$*.Tpo" "$(DEPDIR)/$*.Po"; else rm -f "$(DEPDIR)/$*.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(COMPILE) -c `$(CYGPATH_W) '$<'` + +.c.lo: +@am__fastdepCC_TRUE@ if $(LTCOMPILE) -MT $@ -MD -MP -MF "$(DEPDIR)/$*.Tpo" -c -o $@ $<; \ +@am__fastdepCC_TRUE@ then mv -f "$(DEPDIR)/$*.Tpo" "$(DEPDIR)/$*.Plo"; else rm -f "$(DEPDIR)/$*.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(LTCOMPILE) -c -o $@ $< + +mostlyclean-libtool: + -rm -f *.lo + +clean-libtool: + -rm -rf .libs _libs + +distclean-libtool: + -rm -f libtool +uninstall-info-am: + +ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) + list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ + unique=`for i in $$list; do \ + if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ + done | \ + $(AWK) ' { files[$$0] = 1; } \ + END { for (i in files) print i; }'`; \ + mkid -fID $$unique +tags: TAGS + +TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ + $(TAGS_FILES) $(LISP) + tags=; \ + here=`pwd`; \ + list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ + unique=`for i in $$list; do \ + if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ + done | \ + $(AWK) ' { files[$$0] = 1; } \ + END { for (i in files) print i; }'`; \ + if test -z "$(ETAGS_ARGS)$$tags$$unique"; then :; else \ + test -n "$$unique" || unique=$$empty_fix; \ + $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ + $$tags $$unique; \ + fi +ctags: CTAGS +CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ + $(TAGS_FILES) $(LISP) + tags=; \ + here=`pwd`; \ + list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ + unique=`for i in $$list; do \ + if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ + done | \ + $(AWK) ' { files[$$0] = 1; } \ + END { for (i in files) print i; }'`; \ + test -z "$(CTAGS_ARGS)$$tags$$unique" \ + || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ + $$tags $$unique + +GTAGS: + here=`$(am__cd) $(top_builddir) && pwd` \ + && cd $(top_srcdir) \ + && gtags -i $(GTAGS_ARGS) $$here + +distclean-tags: + -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags + +distdir: $(DISTFILES) + @srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; \ + topsrcdirstrip=`echo "$(top_srcdir)" | sed 's|.|.|g'`; \ + list='$(DISTFILES)'; for file in $$list; do \ + case $$file in \ + $(srcdir)/*) file=`echo "$$file" | sed "s|^$$srcdirstrip/||"`;; \ + $(top_srcdir)/*) file=`echo "$$file" | sed "s|^$$topsrcdirstrip/|$(top_builddir)/|"`;; \ + esac; \ + if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ + dir=`echo "$$file" | sed -e 's,/[^/]*$$,,'`; \ + if test "$$dir" != "$$file" && test "$$dir" != "."; then \ + dir="/$$dir"; \ + $(mkdir_p) "$(distdir)$$dir"; \ + else \ + dir=''; \ + fi; \ + if test -d $$d/$$file; then \ + if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ + cp -pR $(srcdir)/$$file $(distdir)$$dir || exit 1; \ + fi; \ + cp -pR $$d/$$file $(distdir)$$dir || exit 1; \ + else \ + test -f $(distdir)/$$file \ + || cp -p $$d/$$file $(distdir)/$$file \ + || exit 1; \ + fi; \ + done +check-am: all-am +check: check-am +all-am: Makefile $(LTLIBRARIES) +installdirs: +install: install-am +install-exec: install-exec-am +install-data: install-data-am +uninstall: uninstall-am + +install-am: all-am + @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am + +installcheck: installcheck-am +install-strip: + $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ + install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ + `test -z '$(STRIP)' || \ + echo "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'"` install +mostlyclean-generic: + +clean-generic: + +distclean-generic: + -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) + +maintainer-clean-generic: + @echo "This command is intended for maintainers to use" + @echo "it deletes files that may require special tools to rebuild." +clean: clean-am + +clean-am: clean-generic clean-libtool clean-noinstLTLIBRARIES \ + mostlyclean-am + +distclean: distclean-am + -rm -rf $(DEPDIR) + -rm -f Makefile +distclean-am: clean-am distclean-compile distclean-generic \ + distclean-libtool distclean-tags + +dvi: dvi-am + +dvi-am: + +html: html-am + +info: info-am + +info-am: + +install-data-am: + +install-exec-am: + +install-info: install-info-am + +install-man: + +installcheck-am: + +maintainer-clean: maintainer-clean-am + -rm -rf $(DEPDIR) + -rm -f Makefile +maintainer-clean-am: distclean-am maintainer-clean-generic + +mostlyclean: mostlyclean-am + +mostlyclean-am: mostlyclean-compile mostlyclean-generic \ + mostlyclean-libtool + +pdf: pdf-am + +pdf-am: + +ps: ps-am + +ps-am: + +uninstall-am: uninstall-info-am + +.PHONY: CTAGS GTAGS all all-am check check-am clean clean-generic \ + clean-libtool clean-noinstLTLIBRARIES ctags distclean \ + distclean-compile distclean-generic distclean-libtool \ + distclean-tags distdir dvi dvi-am html html-am info info-am \ + install install-am install-data install-data-am install-exec \ + install-exec-am install-info install-info-am install-man \ + install-strip installcheck installcheck-am installdirs \ + maintainer-clean maintainer-clean-generic mostlyclean \ + mostlyclean-compile mostlyclean-generic mostlyclean-libtool \ + pdf pdf-am ps ps-am tags uninstall uninstall-am \ + uninstall-info-am + +# Tell versions [3.59,3.63) of GNU make to not export all variables. +# Otherwise a system limit (for SysV at least) may be exceeded. +.NOEXPORT: diff --git a/replace/malloc.c b/replace/malloc.c new file mode 100644 index 0000000..13fb2ec --- /dev/null +++ b/replace/malloc.c @@ -0,0 +1,13 @@ +#if HAVE_CONFIG_H +# include +#endif +#undef malloc + +#include + +void *malloc (); + +/* Allocate an N-byte block of memory from the heap. If N is zero, allocate a 1-byte block. */ + +void * rpl_malloc (size_t n) { if (n == 0) n = 1; return malloc (n); } + diff --git a/replace/readline.c b/replace/readline.c new file mode 100644 index 0000000..1e746b8 --- /dev/null +++ b/replace/readline.c @@ -0,0 +1,39 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/************************************************************** + readline replacment functions + **************************************************************/ + +#include +#include + +char *readline( char* prompt ) +{ + char buffer[256]; + char* result; + if( prompt ) { + printf( "%s ", prompt ); + } + result = fgets( buffer, sizeof(buffer), stdin ); + if( result ) { + result = strdup( result ); + } + return result; +} diff --git a/replace/vfscanf.c b/replace/vfscanf.c new file mode 100644 index 0000000..a696e51 --- /dev/null +++ b/replace/vfscanf.c @@ -0,0 +1,40 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/************************************************************** + vfscanf replacment functions + **************************************************************/ + +#include +#include + +int vfscanf(FILE *stream, const char *format, va_list ap) +{ + + if( !strcmp( format, "%s" ) ) { + char* p = va_arg(ap,char*); + fscanf( stream, format, p ); + } else if( !strcmp( format, "%lx" ) ) { + long* p = va_arg(ap,long*); + fscanf( stream, format, p ); + } else { + fprintf( stderr, "FIXME: format '%s' is currently unsupported in replacement vfscanf\n", format ); + abort(); + } +} diff --git a/src/Makefile.am b/src/Makefile.am new file mode 100644 index 0000000..c79bacf --- /dev/null +++ b/src/Makefile.am @@ -0,0 +1,44 @@ +if USE_LXT + LXTLIB=../lxt/liblxt.la + ZLIB=-lz +endif +libveriwell_la_CPPFLAGS = -DBINDIR=\"$(bindir)\" \ + -DLIBDIR=\"$(libdir)\" \ + -DINCLUDEDIR=\"$(includedir)\" \ + -DCFLAGS="\"$(CFLAGS)\"" \ + -DLDFLAGS="\"$(LDFLAGS)\"" \ + -DLIBS="\"$(LIBS) $(ZLIB)\"" +nobase_include_HEADERS = veriuser.h acc_user.h veriuser.c + +bin_PROGRAMS = veriwell +veriwell_SOURCES = defaultveriuser.cc +veriwell_LDADD = $(vl_cv_lib_readline) libveriwell.la $(ZLIB) + +AM_GPEFLAGS= -L C++ -a -p -j1 -i 1 -g -o -t -N is_reserved_word +EXTRA_DIST = v.h +GPE = gperf +.gpe.h: + $(GPE) $(GPEFLAGS) $(AM_GPEFLAGS) $< > $@ + + +lib_LTLIBRARIES = libveriwell.la +libveriwell_la_SOURCES = parse.yy multdiv.cc print.cc usertask.cc flags.cc store.cc \ + nsched.cc verisys.cc check.cc gates.cc schedule.cc \ + strobe.cc glue.cc obstack.cc scope.cc \ + systask.cc copy.cc veriwell.cc pass2.cc sdf.cc timescal.cc \ + sdfclex.cc decl.cc io.cc pass3.cc trace.cc dumpvar.cc \ + lex.cc pli.cc tree.cc sdflex.cc eval.cc macro.cc plihacks.cc \ + udp.cc exec.cc specify.cc sdfcpars.yy sdfparse.yy v.gpe \ + acc_user.h check.h copy.h decl.h dumpvar.h eval.h \ + exec.h flags.h gates.h glue.h io.h lex.h macro.h multdiv.h \ + nsched.h obstack.h parse.h pass2.h pass3.h pli.h plihacks.h \ + print.h runtime.h schedule.h scope.h sdfclex.h sdfcpars.h \ + sdf.h sdflex.h sdfparse.h specify.h store.h strobe.h \ + systask.h timescal.h trace.h tree.h udp.h usertask.h \ + verisys.h veriuser.h veriwell.h v.h vtypes.h tree.def +libveriwell_la_LDFLAGS = -version-info 0:0:0 +libveriwell_la_LIBADD = $(LXTLIB) ../replace/libreplace.la + +AM_YFLAGS = -y -d + + diff --git a/src/Makefile.in b/src/Makefile.in new file mode 100644 index 0000000..b90c761 --- /dev/null +++ b/src/Makefile.in @@ -0,0 +1,927 @@ +# Makefile.in generated by automake 1.9.5 from Makefile.am. +# @configure_input@ + +# Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, +# 2003, 2004, 2005 Free Software Foundation, Inc. +# This Makefile.in is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY, to the extent permitted by law; without +# even the implied warranty of MERCHANTABILITY or FITNESS FOR A +# PARTICULAR PURPOSE. + +@SET_MAKE@ + + + +SOURCES = $(libveriwell_la_SOURCES) $(veriwell_SOURCES) + +srcdir = @srcdir@ +top_srcdir = @top_srcdir@ +VPATH = @srcdir@ +pkgdatadir = $(datadir)/@PACKAGE@ +pkglibdir = $(libdir)/@PACKAGE@ +pkgincludedir = $(includedir)/@PACKAGE@ +top_builddir = .. +am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd +INSTALL = @INSTALL@ +install_sh_DATA = $(install_sh) -c -m 644 +install_sh_PROGRAM = $(install_sh) -c +install_sh_SCRIPT = $(install_sh) -c +INSTALL_HEADER = $(INSTALL_DATA) +transform = $(program_transform_name) +NORMAL_INSTALL = : +PRE_INSTALL = : +POST_INSTALL = : +NORMAL_UNINSTALL = : +PRE_UNINSTALL = : +POST_UNINSTALL = : +build_triplet = @build@ +host_triplet = @host@ +bin_PROGRAMS = veriwell$(EXEEXT) +subdir = src +DIST_COMMON = $(nobase_include_HEADERS) $(srcdir)/Makefile.am \ + $(srcdir)/Makefile.in parse.cc parse.h sdfcpars.cc sdfcpars.h \ + sdfparse.cc sdfparse.h +ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 +am__aclocal_m4_deps = $(top_srcdir)/acinclude.m4 \ + $(top_srcdir)/configure.in +am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ + $(ACLOCAL_M4) +mkinstalldirs = $(install_sh) -d +CONFIG_HEADER = $(top_builddir)/config.h +CONFIG_CLEAN_FILES = +am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; +am__vpath_adj = case $$p in \ + $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ + *) f=$$p;; \ + esac; +am__strip_dir = `echo $$p | sed -e 's|^.*/||'`; +am__installdirs = "$(DESTDIR)$(libdir)" "$(DESTDIR)$(bindir)" \ + "$(DESTDIR)$(includedir)" +libLTLIBRARIES_INSTALL = $(INSTALL) +LTLIBRARIES = $(lib_LTLIBRARIES) +@USE_LXT_TRUE@am__DEPENDENCIES_1 = ../lxt/liblxt.la +libveriwell_la_DEPENDENCIES = $(am__DEPENDENCIES_1) \ + ../replace/libreplace.la +am_libveriwell_la_OBJECTS = libveriwell_la-parse.lo \ + libveriwell_la-multdiv.lo libveriwell_la-print.lo \ + libveriwell_la-usertask.lo libveriwell_la-flags.lo \ + libveriwell_la-store.lo libveriwell_la-nsched.lo \ + libveriwell_la-verisys.lo libveriwell_la-check.lo \ + libveriwell_la-gates.lo libveriwell_la-schedule.lo \ + libveriwell_la-strobe.lo libveriwell_la-glue.lo \ + libveriwell_la-obstack.lo libveriwell_la-scope.lo \ + libveriwell_la-systask.lo libveriwell_la-copy.lo \ + libveriwell_la-veriwell.lo libveriwell_la-pass2.lo \ + libveriwell_la-sdf.lo libveriwell_la-timescal.lo \ + libveriwell_la-sdfclex.lo libveriwell_la-decl.lo \ + libveriwell_la-io.lo libveriwell_la-pass3.lo \ + libveriwell_la-trace.lo libveriwell_la-dumpvar.lo \ + libveriwell_la-lex.lo libveriwell_la-pli.lo \ + libveriwell_la-tree.lo libveriwell_la-sdflex.lo \ + libveriwell_la-eval.lo libveriwell_la-macro.lo \ + libveriwell_la-plihacks.lo libveriwell_la-udp.lo \ + libveriwell_la-exec.lo libveriwell_la-specify.lo \ + libveriwell_la-sdfcpars.lo libveriwell_la-sdfparse.lo +libveriwell_la_OBJECTS = $(am_libveriwell_la_OBJECTS) +binPROGRAMS_INSTALL = $(INSTALL_PROGRAM) +PROGRAMS = $(bin_PROGRAMS) +am_veriwell_OBJECTS = defaultveriuser.$(OBJEXT) +veriwell_OBJECTS = $(am_veriwell_OBJECTS) +am__DEPENDENCIES_2 = +veriwell_DEPENDENCIES = libveriwell.la $(am__DEPENDENCIES_2) +DEFAULT_INCLUDES = -I. -I$(srcdir) -I$(top_builddir) +depcomp = $(SHELL) $(top_srcdir)/config/depcomp +am__depfiles_maybe = depfiles +CXXCOMPILE = $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \ + $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) +LTCXXCOMPILE = $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) \ + $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) \ + $(AM_CXXFLAGS) $(CXXFLAGS) +CXXLD = $(CXX) +CXXLINK = $(LIBTOOL) --tag=CXX --mode=link $(CXXLD) $(AM_CXXFLAGS) \ + $(CXXFLAGS) $(AM_LDFLAGS) $(LDFLAGS) -o $@ +YACCCOMPILE = $(YACC) $(YFLAGS) $(AM_YFLAGS) +LTYACCCOMPILE = $(LIBTOOL) --mode=compile $(YACC) $(YFLAGS) \ + $(AM_YFLAGS) +YLWRAP = $(top_srcdir)/config/ylwrap +COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ + $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) +LTCOMPILE = $(LIBTOOL) --tag=CC --mode=compile $(CC) $(DEFS) \ + $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) \ + $(AM_CFLAGS) $(CFLAGS) +CCLD = $(CC) +LINK = $(LIBTOOL) --tag=CC --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) \ + $(AM_LDFLAGS) $(LDFLAGS) -o $@ +SOURCES = $(libveriwell_la_SOURCES) $(veriwell_SOURCES) +DIST_SOURCES = $(libveriwell_la_SOURCES) $(veriwell_SOURCES) +nobase_includeHEADERS_INSTALL = $(install_sh_DATA) +HEADERS = $(nobase_include_HEADERS) +ETAGS = etags +CTAGS = ctags +DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) +ACLOCAL = @ACLOCAL@ +AMDEP_FALSE = @AMDEP_FALSE@ +AMDEP_TRUE = @AMDEP_TRUE@ +AMTAR = @AMTAR@ +AR = @AR@ +AUTOCONF = @AUTOCONF@ +AUTOHEADER = @AUTOHEADER@ +AUTOMAKE = @AUTOMAKE@ +AWK = @AWK@ +CC = @CC@ +CCDEPMODE = @CCDEPMODE@ +CFLAGS = @CFLAGS@ +CPP = @CPP@ +CPPFLAGS = @CPPFLAGS@ +CXX = @CXX@ +CXXCPP = @CXXCPP@ +CXXDEPMODE = @CXXDEPMODE@ +CXXFLAGS = @CXXFLAGS@ +CYGPATH_W = @CYGPATH_W@ +DEFS = @DEFS@ +DEPDIR = @DEPDIR@ +ECHO = @ECHO@ +ECHO_C = @ECHO_C@ +ECHO_N = @ECHO_N@ +ECHO_T = @ECHO_T@ +EGREP = @EGREP@ +EXEEXT = @EXEEXT@ +F77 = @F77@ +FFLAGS = @FFLAGS@ +INSTALL_DATA = @INSTALL_DATA@ +INSTALL_PROGRAM = @INSTALL_PROGRAM@ +INSTALL_SCRIPT = @INSTALL_SCRIPT@ +INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ +LDFLAGS = @LDFLAGS@ +LIBOBJS = @LIBOBJS@ +LIBS = @LIBS@ +LIBTOOL = @LIBTOOL@ +LN_S = @LN_S@ +LTLIBOBJS = @LTLIBOBJS@ +MAKEINFO = @MAKEINFO@ +OBJEXT = @OBJEXT@ +PACKAGE = @PACKAGE@ +PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ +PACKAGE_NAME = @PACKAGE_NAME@ +PACKAGE_STRING = @PACKAGE_STRING@ +PACKAGE_TARNAME = @PACKAGE_TARNAME@ +PACKAGE_VERSION = @PACKAGE_VERSION@ +PATH_SEPARATOR = @PATH_SEPARATOR@ +RANLIB = @RANLIB@ +SET_MAKE = @SET_MAKE@ +SHELL = @SHELL@ +STRIP = @STRIP@ +USE_LXT_FALSE = @USE_LXT_FALSE@ +USE_LXT_TRUE = @USE_LXT_TRUE@ +VERSION = @VERSION@ +XGPERF = @XGPERF@ +YACC = @YACC@ +ac_ct_AR = @ac_ct_AR@ +ac_ct_CC = @ac_ct_CC@ +ac_ct_CXX = @ac_ct_CXX@ +ac_ct_F77 = @ac_ct_F77@ +ac_ct_RANLIB = @ac_ct_RANLIB@ +ac_ct_STRIP = @ac_ct_STRIP@ +am__fastdepCC_FALSE = @am__fastdepCC_FALSE@ +am__fastdepCC_TRUE = @am__fastdepCC_TRUE@ +am__fastdepCXX_FALSE = @am__fastdepCXX_FALSE@ +am__fastdepCXX_TRUE = @am__fastdepCXX_TRUE@ +am__include = @am__include@ +am__leading_dot = @am__leading_dot@ +am__quote = @am__quote@ +am__tar = @am__tar@ +am__untar = @am__untar@ +bindir = @bindir@ +build = @build@ +build_alias = @build_alias@ +build_cpu = @build_cpu@ +build_os = @build_os@ +build_vendor = @build_vendor@ +datadir = @datadir@ +exec_prefix = @exec_prefix@ +host = @host@ +host_alias = @host_alias@ +host_cpu = @host_cpu@ +host_os = @host_os@ +host_vendor = @host_vendor@ +includedir = @includedir@ +infodir = @infodir@ +install_sh = @install_sh@ +libdir = @libdir@ +libexecdir = @libexecdir@ +localstatedir = @localstatedir@ +mandir = @mandir@ +mkdir_p = @mkdir_p@ +oldincludedir = @oldincludedir@ +prefix = @prefix@ +program_transform_name = @program_transform_name@ +sbindir = @sbindir@ +sharedstatedir = @sharedstatedir@ +sysconfdir = @sysconfdir@ +target_alias = @target_alias@ +@USE_LXT_TRUE@LXTLIB = ../lxt/liblxt.la +@USE_LXT_TRUE@ZLIB = -lz +libveriwell_la_CPPFLAGS = -DBINDIR=\"$(bindir)\" \ + -DLIBDIR=\"$(libdir)\" \ + -DINCLUDEDIR=\"$(includedir)\" \ + -DCFLAGS="\"$(CFLAGS)\"" \ + -DLDFLAGS="\"$(LDFLAGS)\"" \ + -DLIBS="\"$(LIBS) $(ZLIB)\"" + +nobase_include_HEADERS = veriuser.h acc_user.h veriuser.c +veriwell_SOURCES = defaultveriuser.cc +veriwell_LDADD = $(vl_cv_lib_readline) libveriwell.la $(ZLIB) +AM_GPEFLAGS = -L C++ -a -p -j1 -i 1 -g -o -t -N is_reserved_word +EXTRA_DIST = v.h +GPE = gperf +lib_LTLIBRARIES = libveriwell.la +libveriwell_la_SOURCES = parse.yy multdiv.cc print.cc usertask.cc flags.cc store.cc \ + nsched.cc verisys.cc check.cc gates.cc schedule.cc \ + strobe.cc glue.cc obstack.cc scope.cc \ + systask.cc copy.cc veriwell.cc pass2.cc sdf.cc timescal.cc \ + sdfclex.cc decl.cc io.cc pass3.cc trace.cc dumpvar.cc \ + lex.cc pli.cc tree.cc sdflex.cc eval.cc macro.cc plihacks.cc \ + udp.cc exec.cc specify.cc sdfcpars.yy sdfparse.yy v.gpe \ + acc_user.h check.h copy.h decl.h dumpvar.h eval.h \ + exec.h flags.h gates.h glue.h io.h lex.h macro.h multdiv.h \ + nsched.h obstack.h parse.h pass2.h pass3.h pli.h plihacks.h \ + print.h runtime.h schedule.h scope.h sdfclex.h sdfcpars.h \ + sdf.h sdflex.h sdfparse.h specify.h store.h strobe.h \ + systask.h timescal.h trace.h tree.h udp.h usertask.h \ + verisys.h veriuser.h veriwell.h v.h vtypes.h tree.def + +libveriwell_la_LDFLAGS = -version-info 0:0:0 +libveriwell_la_LIBADD = $(LXTLIB) ../replace/libreplace.la +AM_YFLAGS = -y -d +all: all-am + +.SUFFIXES: +.SUFFIXES: .cc .gpe .h .lo .o .obj .yy +$(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps) + @for dep in $?; do \ + case '$(am__configure_deps)' in \ + *$$dep*) \ + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh \ + && exit 0; \ + exit 1;; \ + esac; \ + done; \ + echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu src/Makefile'; \ + cd $(top_srcdir) && \ + $(AUTOMAKE) --gnu src/Makefile +.PRECIOUS: Makefile +Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status + @case '$?' in \ + *config.status*) \ + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ + *) \ + echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ + cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ + esac; + +$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh + +$(top_srcdir)/configure: $(am__configure_deps) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh +$(ACLOCAL_M4): $(am__aclocal_m4_deps) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh +install-libLTLIBRARIES: $(lib_LTLIBRARIES) + @$(NORMAL_INSTALL) + test -z "$(libdir)" || $(mkdir_p) "$(DESTDIR)$(libdir)" + @list='$(lib_LTLIBRARIES)'; for p in $$list; do \ + if test -f $$p; then \ + f=$(am__strip_dir) \ + echo " $(LIBTOOL) --mode=install $(libLTLIBRARIES_INSTALL) $(INSTALL_STRIP_FLAG) '$$p' '$(DESTDIR)$(libdir)/$$f'"; \ + $(LIBTOOL) --mode=install $(libLTLIBRARIES_INSTALL) $(INSTALL_STRIP_FLAG) "$$p" "$(DESTDIR)$(libdir)/$$f"; \ + else :; fi; \ + done + +uninstall-libLTLIBRARIES: + @$(NORMAL_UNINSTALL) + @set -x; list='$(lib_LTLIBRARIES)'; for p in $$list; do \ + p=$(am__strip_dir) \ + echo " $(LIBTOOL) --mode=uninstall rm -f '$(DESTDIR)$(libdir)/$$p'"; \ + $(LIBTOOL) --mode=uninstall rm -f "$(DESTDIR)$(libdir)/$$p"; \ + done + +clean-libLTLIBRARIES: + -test -z "$(lib_LTLIBRARIES)" || rm -f $(lib_LTLIBRARIES) + @list='$(lib_LTLIBRARIES)'; for p in $$list; do \ + dir="`echo $$p | sed -e 's|/[^/]*$$||'`"; \ + test "$$dir" != "$$p" || dir=.; \ + echo "rm -f \"$${dir}/so_locations\""; \ + rm -f "$${dir}/so_locations"; \ + done +parse.h: parse.cc + @if test ! -f $@; then \ + rm -f parse.cc; \ + $(MAKE) parse.cc; \ + else :; fi +sdfcpars.h: sdfcpars.cc + @if test ! -f $@; then \ + rm -f sdfcpars.cc; \ + $(MAKE) sdfcpars.cc; \ + else :; fi +sdfparse.h: sdfparse.cc + @if test ! -f $@; then \ + rm -f sdfparse.cc; \ + $(MAKE) sdfparse.cc; \ + else :; fi +libveriwell.la: $(libveriwell_la_OBJECTS) $(libveriwell_la_DEPENDENCIES) + $(CXXLINK) -rpath $(libdir) $(libveriwell_la_LDFLAGS) $(libveriwell_la_OBJECTS) $(libveriwell_la_LIBADD) $(LIBS) +install-binPROGRAMS: $(bin_PROGRAMS) + @$(NORMAL_INSTALL) + test -z "$(bindir)" || $(mkdir_p) "$(DESTDIR)$(bindir)" + @list='$(bin_PROGRAMS)'; for p in $$list; do \ + p1=`echo $$p|sed 's/$(EXEEXT)$$//'`; \ + if test -f $$p \ + || test -f $$p1 \ + ; then \ + f=`echo "$$p1" | sed 's,^.*/,,;$(transform);s/$$/$(EXEEXT)/'`; \ + echo " $(INSTALL_PROGRAM_ENV) $(LIBTOOL) --mode=install $(binPROGRAMS_INSTALL) '$$p' '$(DESTDIR)$(bindir)/$$f'"; \ + $(INSTALL_PROGRAM_ENV) $(LIBTOOL) --mode=install $(binPROGRAMS_INSTALL) "$$p" "$(DESTDIR)$(bindir)/$$f" || exit 1; \ + else :; fi; \ + done + +uninstall-binPROGRAMS: + @$(NORMAL_UNINSTALL) + @list='$(bin_PROGRAMS)'; for p in $$list; do \ + f=`echo "$$p" | sed 's,^.*/,,;s/$(EXEEXT)$$//;$(transform);s/$$/$(EXEEXT)/'`; \ + echo " rm -f '$(DESTDIR)$(bindir)/$$f'"; \ + rm -f "$(DESTDIR)$(bindir)/$$f"; \ + done + +clean-binPROGRAMS: + @list='$(bin_PROGRAMS)'; for p in $$list; do \ + f=`echo $$p|sed 's/$(EXEEXT)$$//'`; \ + echo " rm -f $$p $$f"; \ + rm -f $$p $$f ; \ + done +veriwell$(EXEEXT): $(veriwell_OBJECTS) $(veriwell_DEPENDENCIES) + @rm -f veriwell$(EXEEXT) + $(CXXLINK) $(veriwell_LDFLAGS) $(veriwell_OBJECTS) $(veriwell_LDADD) $(LIBS) + +mostlyclean-compile: + -rm -f *.$(OBJEXT) + +distclean-compile: + -rm -f *.tab.c + +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/defaultveriuser.Po@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libveriwell_la-check.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libveriwell_la-copy.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libveriwell_la-decl.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libveriwell_la-dumpvar.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libveriwell_la-eval.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libveriwell_la-exec.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libveriwell_la-flags.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libveriwell_la-gates.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libveriwell_la-glue.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libveriwell_la-io.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libveriwell_la-lex.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libveriwell_la-macro.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libveriwell_la-multdiv.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libveriwell_la-nsched.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libveriwell_la-obstack.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libveriwell_la-parse.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libveriwell_la-pass2.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libveriwell_la-pass3.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libveriwell_la-pli.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libveriwell_la-plihacks.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libveriwell_la-print.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libveriwell_la-schedule.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libveriwell_la-scope.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libveriwell_la-sdf.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libveriwell_la-sdfclex.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libveriwell_la-sdfcpars.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libveriwell_la-sdflex.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libveriwell_la-sdfparse.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libveriwell_la-specify.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libveriwell_la-store.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libveriwell_la-strobe.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libveriwell_la-systask.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libveriwell_la-timescal.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libveriwell_la-trace.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libveriwell_la-tree.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libveriwell_la-udp.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libveriwell_la-usertask.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libveriwell_la-verisys.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libveriwell_la-veriwell.Plo@am__quote@ + +.cc.o: +@am__fastdepCXX_TRUE@ if $(CXXCOMPILE) -MT $@ -MD -MP -MF "$(DEPDIR)/$*.Tpo" -c -o $@ $<; \ +@am__fastdepCXX_TRUE@ then mv -f "$(DEPDIR)/$*.Tpo" "$(DEPDIR)/$*.Po"; else rm -f "$(DEPDIR)/$*.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCXX_FALSE@ $(CXXCOMPILE) -c -o $@ $< + +.cc.obj: +@am__fastdepCXX_TRUE@ if $(CXXCOMPILE) -MT $@ -MD -MP -MF "$(DEPDIR)/$*.Tpo" -c -o $@ `$(CYGPATH_W) '$<'`; \ +@am__fastdepCXX_TRUE@ then mv -f "$(DEPDIR)/$*.Tpo" "$(DEPDIR)/$*.Po"; else rm -f "$(DEPDIR)/$*.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCXX_FALSE@ $(CXXCOMPILE) -c -o $@ `$(CYGPATH_W) '$<'` + +.cc.lo: +@am__fastdepCXX_TRUE@ if $(LTCXXCOMPILE) -MT $@ -MD -MP -MF "$(DEPDIR)/$*.Tpo" -c -o $@ $<; \ +@am__fastdepCXX_TRUE@ then mv -f "$(DEPDIR)/$*.Tpo" "$(DEPDIR)/$*.Plo"; else rm -f "$(DEPDIR)/$*.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCXX_FALSE@ $(LTCXXCOMPILE) -c -o $@ $< + +libveriwell_la-parse.lo: parse.cc +@am__fastdepCXX_TRUE@ if $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -MT libveriwell_la-parse.lo -MD -MP -MF "$(DEPDIR)/libveriwell_la-parse.Tpo" -c -o libveriwell_la-parse.lo `test -f 'parse.cc' || echo '$(srcdir)/'`parse.cc; \ +@am__fastdepCXX_TRUE@ then mv -f "$(DEPDIR)/libveriwell_la-parse.Tpo" "$(DEPDIR)/libveriwell_la-parse.Plo"; else rm -f "$(DEPDIR)/libveriwell_la-parse.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='parse.cc' object='libveriwell_la-parse.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCXX_FALSE@ $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -c -o libveriwell_la-parse.lo `test -f 'parse.cc' || echo '$(srcdir)/'`parse.cc + +libveriwell_la-multdiv.lo: multdiv.cc +@am__fastdepCXX_TRUE@ if $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -MT libveriwell_la-multdiv.lo -MD -MP -MF "$(DEPDIR)/libveriwell_la-multdiv.Tpo" -c -o libveriwell_la-multdiv.lo `test -f 'multdiv.cc' || echo '$(srcdir)/'`multdiv.cc; \ +@am__fastdepCXX_TRUE@ then mv -f "$(DEPDIR)/libveriwell_la-multdiv.Tpo" "$(DEPDIR)/libveriwell_la-multdiv.Plo"; else rm -f "$(DEPDIR)/libveriwell_la-multdiv.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='multdiv.cc' object='libveriwell_la-multdiv.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCXX_FALSE@ $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -c -o libveriwell_la-multdiv.lo `test -f 'multdiv.cc' || echo '$(srcdir)/'`multdiv.cc + +libveriwell_la-print.lo: print.cc +@am__fastdepCXX_TRUE@ if $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -MT libveriwell_la-print.lo -MD -MP -MF "$(DEPDIR)/libveriwell_la-print.Tpo" -c -o libveriwell_la-print.lo `test -f 'print.cc' || echo '$(srcdir)/'`print.cc; \ +@am__fastdepCXX_TRUE@ then mv -f "$(DEPDIR)/libveriwell_la-print.Tpo" "$(DEPDIR)/libveriwell_la-print.Plo"; else rm -f "$(DEPDIR)/libveriwell_la-print.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='print.cc' object='libveriwell_la-print.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCXX_FALSE@ $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -c -o libveriwell_la-print.lo `test -f 'print.cc' || echo '$(srcdir)/'`print.cc + +libveriwell_la-usertask.lo: usertask.cc +@am__fastdepCXX_TRUE@ if $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -MT libveriwell_la-usertask.lo -MD -MP -MF "$(DEPDIR)/libveriwell_la-usertask.Tpo" -c -o libveriwell_la-usertask.lo `test -f 'usertask.cc' || echo '$(srcdir)/'`usertask.cc; \ +@am__fastdepCXX_TRUE@ then mv -f "$(DEPDIR)/libveriwell_la-usertask.Tpo" "$(DEPDIR)/libveriwell_la-usertask.Plo"; else rm -f "$(DEPDIR)/libveriwell_la-usertask.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='usertask.cc' object='libveriwell_la-usertask.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCXX_FALSE@ $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -c -o libveriwell_la-usertask.lo `test -f 'usertask.cc' || echo '$(srcdir)/'`usertask.cc + +libveriwell_la-flags.lo: flags.cc +@am__fastdepCXX_TRUE@ if $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -MT libveriwell_la-flags.lo -MD -MP -MF "$(DEPDIR)/libveriwell_la-flags.Tpo" -c -o libveriwell_la-flags.lo `test -f 'flags.cc' || echo '$(srcdir)/'`flags.cc; \ +@am__fastdepCXX_TRUE@ then mv -f "$(DEPDIR)/libveriwell_la-flags.Tpo" "$(DEPDIR)/libveriwell_la-flags.Plo"; else rm -f "$(DEPDIR)/libveriwell_la-flags.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='flags.cc' object='libveriwell_la-flags.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCXX_FALSE@ $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -c -o libveriwell_la-flags.lo `test -f 'flags.cc' || echo '$(srcdir)/'`flags.cc + +libveriwell_la-store.lo: store.cc +@am__fastdepCXX_TRUE@ if $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -MT libveriwell_la-store.lo -MD -MP -MF "$(DEPDIR)/libveriwell_la-store.Tpo" -c -o libveriwell_la-store.lo `test -f 'store.cc' || echo '$(srcdir)/'`store.cc; \ +@am__fastdepCXX_TRUE@ then mv -f "$(DEPDIR)/libveriwell_la-store.Tpo" "$(DEPDIR)/libveriwell_la-store.Plo"; else rm -f "$(DEPDIR)/libveriwell_la-store.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='store.cc' object='libveriwell_la-store.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCXX_FALSE@ $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -c -o libveriwell_la-store.lo `test -f 'store.cc' || echo '$(srcdir)/'`store.cc + +libveriwell_la-nsched.lo: nsched.cc +@am__fastdepCXX_TRUE@ if $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -MT libveriwell_la-nsched.lo -MD -MP -MF "$(DEPDIR)/libveriwell_la-nsched.Tpo" -c -o libveriwell_la-nsched.lo `test -f 'nsched.cc' || echo '$(srcdir)/'`nsched.cc; \ +@am__fastdepCXX_TRUE@ then mv -f "$(DEPDIR)/libveriwell_la-nsched.Tpo" "$(DEPDIR)/libveriwell_la-nsched.Plo"; else rm -f "$(DEPDIR)/libveriwell_la-nsched.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='nsched.cc' object='libveriwell_la-nsched.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCXX_FALSE@ $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -c -o libveriwell_la-nsched.lo `test -f 'nsched.cc' || echo '$(srcdir)/'`nsched.cc + +libveriwell_la-verisys.lo: verisys.cc +@am__fastdepCXX_TRUE@ if $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -MT libveriwell_la-verisys.lo -MD -MP -MF "$(DEPDIR)/libveriwell_la-verisys.Tpo" -c -o libveriwell_la-verisys.lo `test -f 'verisys.cc' || echo '$(srcdir)/'`verisys.cc; \ +@am__fastdepCXX_TRUE@ then mv -f "$(DEPDIR)/libveriwell_la-verisys.Tpo" "$(DEPDIR)/libveriwell_la-verisys.Plo"; else rm -f "$(DEPDIR)/libveriwell_la-verisys.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='verisys.cc' object='libveriwell_la-verisys.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCXX_FALSE@ $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -c -o libveriwell_la-verisys.lo `test -f 'verisys.cc' || echo '$(srcdir)/'`verisys.cc + +libveriwell_la-check.lo: check.cc +@am__fastdepCXX_TRUE@ if $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -MT libveriwell_la-check.lo -MD -MP -MF "$(DEPDIR)/libveriwell_la-check.Tpo" -c -o libveriwell_la-check.lo `test -f 'check.cc' || echo '$(srcdir)/'`check.cc; \ +@am__fastdepCXX_TRUE@ then mv -f "$(DEPDIR)/libveriwell_la-check.Tpo" "$(DEPDIR)/libveriwell_la-check.Plo"; else rm -f "$(DEPDIR)/libveriwell_la-check.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='check.cc' object='libveriwell_la-check.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCXX_FALSE@ $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -c -o libveriwell_la-check.lo `test -f 'check.cc' || echo '$(srcdir)/'`check.cc + +libveriwell_la-gates.lo: gates.cc +@am__fastdepCXX_TRUE@ if $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -MT libveriwell_la-gates.lo -MD -MP -MF "$(DEPDIR)/libveriwell_la-gates.Tpo" -c -o libveriwell_la-gates.lo `test -f 'gates.cc' || echo '$(srcdir)/'`gates.cc; \ +@am__fastdepCXX_TRUE@ then mv -f "$(DEPDIR)/libveriwell_la-gates.Tpo" "$(DEPDIR)/libveriwell_la-gates.Plo"; else rm -f "$(DEPDIR)/libveriwell_la-gates.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='gates.cc' object='libveriwell_la-gates.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCXX_FALSE@ $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -c -o libveriwell_la-gates.lo `test -f 'gates.cc' || echo '$(srcdir)/'`gates.cc + +libveriwell_la-schedule.lo: schedule.cc +@am__fastdepCXX_TRUE@ if $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -MT libveriwell_la-schedule.lo -MD -MP -MF "$(DEPDIR)/libveriwell_la-schedule.Tpo" -c -o libveriwell_la-schedule.lo `test -f 'schedule.cc' || echo '$(srcdir)/'`schedule.cc; \ +@am__fastdepCXX_TRUE@ then mv -f "$(DEPDIR)/libveriwell_la-schedule.Tpo" "$(DEPDIR)/libveriwell_la-schedule.Plo"; else rm -f "$(DEPDIR)/libveriwell_la-schedule.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='schedule.cc' object='libveriwell_la-schedule.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCXX_FALSE@ $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -c -o libveriwell_la-schedule.lo `test -f 'schedule.cc' || echo '$(srcdir)/'`schedule.cc + +libveriwell_la-strobe.lo: strobe.cc +@am__fastdepCXX_TRUE@ if $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -MT libveriwell_la-strobe.lo -MD -MP -MF "$(DEPDIR)/libveriwell_la-strobe.Tpo" -c -o libveriwell_la-strobe.lo `test -f 'strobe.cc' || echo '$(srcdir)/'`strobe.cc; \ +@am__fastdepCXX_TRUE@ then mv -f "$(DEPDIR)/libveriwell_la-strobe.Tpo" "$(DEPDIR)/libveriwell_la-strobe.Plo"; else rm -f "$(DEPDIR)/libveriwell_la-strobe.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='strobe.cc' object='libveriwell_la-strobe.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCXX_FALSE@ $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -c -o libveriwell_la-strobe.lo `test -f 'strobe.cc' || echo '$(srcdir)/'`strobe.cc + +libveriwell_la-glue.lo: glue.cc +@am__fastdepCXX_TRUE@ if $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -MT libveriwell_la-glue.lo -MD -MP -MF "$(DEPDIR)/libveriwell_la-glue.Tpo" -c -o libveriwell_la-glue.lo `test -f 'glue.cc' || echo '$(srcdir)/'`glue.cc; \ +@am__fastdepCXX_TRUE@ then mv -f "$(DEPDIR)/libveriwell_la-glue.Tpo" "$(DEPDIR)/libveriwell_la-glue.Plo"; else rm -f "$(DEPDIR)/libveriwell_la-glue.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='glue.cc' object='libveriwell_la-glue.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCXX_FALSE@ $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -c -o libveriwell_la-glue.lo `test -f 'glue.cc' || echo '$(srcdir)/'`glue.cc + +libveriwell_la-obstack.lo: obstack.cc +@am__fastdepCXX_TRUE@ if $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -MT libveriwell_la-obstack.lo -MD -MP -MF "$(DEPDIR)/libveriwell_la-obstack.Tpo" -c -o libveriwell_la-obstack.lo `test -f 'obstack.cc' || echo '$(srcdir)/'`obstack.cc; \ +@am__fastdepCXX_TRUE@ then mv -f "$(DEPDIR)/libveriwell_la-obstack.Tpo" "$(DEPDIR)/libveriwell_la-obstack.Plo"; else rm -f "$(DEPDIR)/libveriwell_la-obstack.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='obstack.cc' object='libveriwell_la-obstack.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCXX_FALSE@ $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -c -o libveriwell_la-obstack.lo `test -f 'obstack.cc' || echo '$(srcdir)/'`obstack.cc + +libveriwell_la-scope.lo: scope.cc +@am__fastdepCXX_TRUE@ if $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -MT libveriwell_la-scope.lo -MD -MP -MF "$(DEPDIR)/libveriwell_la-scope.Tpo" -c -o libveriwell_la-scope.lo `test -f 'scope.cc' || echo '$(srcdir)/'`scope.cc; \ +@am__fastdepCXX_TRUE@ then mv -f "$(DEPDIR)/libveriwell_la-scope.Tpo" "$(DEPDIR)/libveriwell_la-scope.Plo"; else rm -f "$(DEPDIR)/libveriwell_la-scope.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='scope.cc' object='libveriwell_la-scope.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCXX_FALSE@ $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -c -o libveriwell_la-scope.lo `test -f 'scope.cc' || echo '$(srcdir)/'`scope.cc + +libveriwell_la-systask.lo: systask.cc +@am__fastdepCXX_TRUE@ if $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -MT libveriwell_la-systask.lo -MD -MP -MF "$(DEPDIR)/libveriwell_la-systask.Tpo" -c -o libveriwell_la-systask.lo `test -f 'systask.cc' || echo '$(srcdir)/'`systask.cc; \ +@am__fastdepCXX_TRUE@ then mv -f "$(DEPDIR)/libveriwell_la-systask.Tpo" "$(DEPDIR)/libveriwell_la-systask.Plo"; else rm -f "$(DEPDIR)/libveriwell_la-systask.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='systask.cc' object='libveriwell_la-systask.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCXX_FALSE@ $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -c -o libveriwell_la-systask.lo `test -f 'systask.cc' || echo '$(srcdir)/'`systask.cc + +libveriwell_la-copy.lo: copy.cc +@am__fastdepCXX_TRUE@ if $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -MT libveriwell_la-copy.lo -MD -MP -MF "$(DEPDIR)/libveriwell_la-copy.Tpo" -c -o libveriwell_la-copy.lo `test -f 'copy.cc' || echo '$(srcdir)/'`copy.cc; \ +@am__fastdepCXX_TRUE@ then mv -f "$(DEPDIR)/libveriwell_la-copy.Tpo" "$(DEPDIR)/libveriwell_la-copy.Plo"; else rm -f "$(DEPDIR)/libveriwell_la-copy.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='copy.cc' object='libveriwell_la-copy.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCXX_FALSE@ $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -c -o libveriwell_la-copy.lo `test -f 'copy.cc' || echo '$(srcdir)/'`copy.cc + +libveriwell_la-veriwell.lo: veriwell.cc +@am__fastdepCXX_TRUE@ if $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -MT libveriwell_la-veriwell.lo -MD -MP -MF "$(DEPDIR)/libveriwell_la-veriwell.Tpo" -c -o libveriwell_la-veriwell.lo `test -f 'veriwell.cc' || echo '$(srcdir)/'`veriwell.cc; \ +@am__fastdepCXX_TRUE@ then mv -f "$(DEPDIR)/libveriwell_la-veriwell.Tpo" "$(DEPDIR)/libveriwell_la-veriwell.Plo"; else rm -f "$(DEPDIR)/libveriwell_la-veriwell.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='veriwell.cc' object='libveriwell_la-veriwell.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCXX_FALSE@ $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -c -o libveriwell_la-veriwell.lo `test -f 'veriwell.cc' || echo '$(srcdir)/'`veriwell.cc + +libveriwell_la-pass2.lo: pass2.cc +@am__fastdepCXX_TRUE@ if $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -MT libveriwell_la-pass2.lo -MD -MP -MF "$(DEPDIR)/libveriwell_la-pass2.Tpo" -c -o libveriwell_la-pass2.lo `test -f 'pass2.cc' || echo '$(srcdir)/'`pass2.cc; \ +@am__fastdepCXX_TRUE@ then mv -f "$(DEPDIR)/libveriwell_la-pass2.Tpo" "$(DEPDIR)/libveriwell_la-pass2.Plo"; else rm -f "$(DEPDIR)/libveriwell_la-pass2.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='pass2.cc' object='libveriwell_la-pass2.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCXX_FALSE@ $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -c -o libveriwell_la-pass2.lo `test -f 'pass2.cc' || echo '$(srcdir)/'`pass2.cc + +libveriwell_la-sdf.lo: sdf.cc +@am__fastdepCXX_TRUE@ if $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -MT libveriwell_la-sdf.lo -MD -MP -MF "$(DEPDIR)/libveriwell_la-sdf.Tpo" -c -o libveriwell_la-sdf.lo `test -f 'sdf.cc' || echo '$(srcdir)/'`sdf.cc; \ +@am__fastdepCXX_TRUE@ then mv -f "$(DEPDIR)/libveriwell_la-sdf.Tpo" "$(DEPDIR)/libveriwell_la-sdf.Plo"; else rm -f "$(DEPDIR)/libveriwell_la-sdf.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='sdf.cc' object='libveriwell_la-sdf.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCXX_FALSE@ $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -c -o libveriwell_la-sdf.lo `test -f 'sdf.cc' || echo '$(srcdir)/'`sdf.cc + +libveriwell_la-timescal.lo: timescal.cc +@am__fastdepCXX_TRUE@ if $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -MT libveriwell_la-timescal.lo -MD -MP -MF "$(DEPDIR)/libveriwell_la-timescal.Tpo" -c -o libveriwell_la-timescal.lo `test -f 'timescal.cc' || echo '$(srcdir)/'`timescal.cc; \ +@am__fastdepCXX_TRUE@ then mv -f "$(DEPDIR)/libveriwell_la-timescal.Tpo" "$(DEPDIR)/libveriwell_la-timescal.Plo"; else rm -f "$(DEPDIR)/libveriwell_la-timescal.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='timescal.cc' object='libveriwell_la-timescal.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCXX_FALSE@ $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -c -o libveriwell_la-timescal.lo `test -f 'timescal.cc' || echo '$(srcdir)/'`timescal.cc + +libveriwell_la-sdfclex.lo: sdfclex.cc +@am__fastdepCXX_TRUE@ if $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -MT libveriwell_la-sdfclex.lo -MD -MP -MF "$(DEPDIR)/libveriwell_la-sdfclex.Tpo" -c -o libveriwell_la-sdfclex.lo `test -f 'sdfclex.cc' || echo '$(srcdir)/'`sdfclex.cc; \ +@am__fastdepCXX_TRUE@ then mv -f "$(DEPDIR)/libveriwell_la-sdfclex.Tpo" "$(DEPDIR)/libveriwell_la-sdfclex.Plo"; else rm -f "$(DEPDIR)/libveriwell_la-sdfclex.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='sdfclex.cc' object='libveriwell_la-sdfclex.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCXX_FALSE@ $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -c -o libveriwell_la-sdfclex.lo `test -f 'sdfclex.cc' || echo '$(srcdir)/'`sdfclex.cc + +libveriwell_la-decl.lo: decl.cc +@am__fastdepCXX_TRUE@ if $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -MT libveriwell_la-decl.lo -MD -MP -MF "$(DEPDIR)/libveriwell_la-decl.Tpo" -c -o libveriwell_la-decl.lo `test -f 'decl.cc' || echo '$(srcdir)/'`decl.cc; \ +@am__fastdepCXX_TRUE@ then mv -f "$(DEPDIR)/libveriwell_la-decl.Tpo" "$(DEPDIR)/libveriwell_la-decl.Plo"; else rm -f "$(DEPDIR)/libveriwell_la-decl.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='decl.cc' object='libveriwell_la-decl.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCXX_FALSE@ $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -c -o libveriwell_la-decl.lo `test -f 'decl.cc' || echo '$(srcdir)/'`decl.cc + +libveriwell_la-io.lo: io.cc +@am__fastdepCXX_TRUE@ if $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -MT libveriwell_la-io.lo -MD -MP -MF "$(DEPDIR)/libveriwell_la-io.Tpo" -c -o libveriwell_la-io.lo `test -f 'io.cc' || echo '$(srcdir)/'`io.cc; \ +@am__fastdepCXX_TRUE@ then mv -f "$(DEPDIR)/libveriwell_la-io.Tpo" "$(DEPDIR)/libveriwell_la-io.Plo"; else rm -f "$(DEPDIR)/libveriwell_la-io.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='io.cc' object='libveriwell_la-io.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCXX_FALSE@ $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -c -o libveriwell_la-io.lo `test -f 'io.cc' || echo '$(srcdir)/'`io.cc + +libveriwell_la-pass3.lo: pass3.cc +@am__fastdepCXX_TRUE@ if $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -MT libveriwell_la-pass3.lo -MD -MP -MF "$(DEPDIR)/libveriwell_la-pass3.Tpo" -c -o libveriwell_la-pass3.lo `test -f 'pass3.cc' || echo '$(srcdir)/'`pass3.cc; \ +@am__fastdepCXX_TRUE@ then mv -f "$(DEPDIR)/libveriwell_la-pass3.Tpo" "$(DEPDIR)/libveriwell_la-pass3.Plo"; else rm -f "$(DEPDIR)/libveriwell_la-pass3.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='pass3.cc' object='libveriwell_la-pass3.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCXX_FALSE@ $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -c -o libveriwell_la-pass3.lo `test -f 'pass3.cc' || echo '$(srcdir)/'`pass3.cc + +libveriwell_la-trace.lo: trace.cc +@am__fastdepCXX_TRUE@ if $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -MT libveriwell_la-trace.lo -MD -MP -MF "$(DEPDIR)/libveriwell_la-trace.Tpo" -c -o libveriwell_la-trace.lo `test -f 'trace.cc' || echo '$(srcdir)/'`trace.cc; \ +@am__fastdepCXX_TRUE@ then mv -f "$(DEPDIR)/libveriwell_la-trace.Tpo" "$(DEPDIR)/libveriwell_la-trace.Plo"; else rm -f "$(DEPDIR)/libveriwell_la-trace.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='trace.cc' object='libveriwell_la-trace.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCXX_FALSE@ $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -c -o libveriwell_la-trace.lo `test -f 'trace.cc' || echo '$(srcdir)/'`trace.cc + +libveriwell_la-dumpvar.lo: dumpvar.cc +@am__fastdepCXX_TRUE@ if $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -MT libveriwell_la-dumpvar.lo -MD -MP -MF "$(DEPDIR)/libveriwell_la-dumpvar.Tpo" -c -o libveriwell_la-dumpvar.lo `test -f 'dumpvar.cc' || echo '$(srcdir)/'`dumpvar.cc; \ +@am__fastdepCXX_TRUE@ then mv -f "$(DEPDIR)/libveriwell_la-dumpvar.Tpo" "$(DEPDIR)/libveriwell_la-dumpvar.Plo"; else rm -f "$(DEPDIR)/libveriwell_la-dumpvar.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='dumpvar.cc' object='libveriwell_la-dumpvar.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCXX_FALSE@ $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -c -o libveriwell_la-dumpvar.lo `test -f 'dumpvar.cc' || echo '$(srcdir)/'`dumpvar.cc + +libveriwell_la-lex.lo: lex.cc +@am__fastdepCXX_TRUE@ if $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -MT libveriwell_la-lex.lo -MD -MP -MF "$(DEPDIR)/libveriwell_la-lex.Tpo" -c -o libveriwell_la-lex.lo `test -f 'lex.cc' || echo '$(srcdir)/'`lex.cc; \ +@am__fastdepCXX_TRUE@ then mv -f "$(DEPDIR)/libveriwell_la-lex.Tpo" "$(DEPDIR)/libveriwell_la-lex.Plo"; else rm -f "$(DEPDIR)/libveriwell_la-lex.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='lex.cc' object='libveriwell_la-lex.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCXX_FALSE@ $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -c -o libveriwell_la-lex.lo `test -f 'lex.cc' || echo '$(srcdir)/'`lex.cc + +libveriwell_la-pli.lo: pli.cc +@am__fastdepCXX_TRUE@ if $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -MT libveriwell_la-pli.lo -MD -MP -MF "$(DEPDIR)/libveriwell_la-pli.Tpo" -c -o libveriwell_la-pli.lo `test -f 'pli.cc' || echo '$(srcdir)/'`pli.cc; \ +@am__fastdepCXX_TRUE@ then mv -f "$(DEPDIR)/libveriwell_la-pli.Tpo" "$(DEPDIR)/libveriwell_la-pli.Plo"; else rm -f "$(DEPDIR)/libveriwell_la-pli.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='pli.cc' object='libveriwell_la-pli.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCXX_FALSE@ $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -c -o libveriwell_la-pli.lo `test -f 'pli.cc' || echo '$(srcdir)/'`pli.cc + +libveriwell_la-tree.lo: tree.cc +@am__fastdepCXX_TRUE@ if $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -MT libveriwell_la-tree.lo -MD -MP -MF "$(DEPDIR)/libveriwell_la-tree.Tpo" -c -o libveriwell_la-tree.lo `test -f 'tree.cc' || echo '$(srcdir)/'`tree.cc; \ +@am__fastdepCXX_TRUE@ then mv -f "$(DEPDIR)/libveriwell_la-tree.Tpo" "$(DEPDIR)/libveriwell_la-tree.Plo"; else rm -f "$(DEPDIR)/libveriwell_la-tree.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='tree.cc' object='libveriwell_la-tree.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCXX_FALSE@ $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -c -o libveriwell_la-tree.lo `test -f 'tree.cc' || echo '$(srcdir)/'`tree.cc + +libveriwell_la-sdflex.lo: sdflex.cc +@am__fastdepCXX_TRUE@ if $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -MT libveriwell_la-sdflex.lo -MD -MP -MF "$(DEPDIR)/libveriwell_la-sdflex.Tpo" -c -o libveriwell_la-sdflex.lo `test -f 'sdflex.cc' || echo '$(srcdir)/'`sdflex.cc; \ +@am__fastdepCXX_TRUE@ then mv -f "$(DEPDIR)/libveriwell_la-sdflex.Tpo" "$(DEPDIR)/libveriwell_la-sdflex.Plo"; else rm -f "$(DEPDIR)/libveriwell_la-sdflex.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='sdflex.cc' object='libveriwell_la-sdflex.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCXX_FALSE@ $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -c -o libveriwell_la-sdflex.lo `test -f 'sdflex.cc' || echo '$(srcdir)/'`sdflex.cc + +libveriwell_la-eval.lo: eval.cc +@am__fastdepCXX_TRUE@ if $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -MT libveriwell_la-eval.lo -MD -MP -MF "$(DEPDIR)/libveriwell_la-eval.Tpo" -c -o libveriwell_la-eval.lo `test -f 'eval.cc' || echo '$(srcdir)/'`eval.cc; \ +@am__fastdepCXX_TRUE@ then mv -f "$(DEPDIR)/libveriwell_la-eval.Tpo" "$(DEPDIR)/libveriwell_la-eval.Plo"; else rm -f "$(DEPDIR)/libveriwell_la-eval.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='eval.cc' object='libveriwell_la-eval.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCXX_FALSE@ $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -c -o libveriwell_la-eval.lo `test -f 'eval.cc' || echo '$(srcdir)/'`eval.cc + +libveriwell_la-macro.lo: macro.cc +@am__fastdepCXX_TRUE@ if $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -MT libveriwell_la-macro.lo -MD -MP -MF "$(DEPDIR)/libveriwell_la-macro.Tpo" -c -o libveriwell_la-macro.lo `test -f 'macro.cc' || echo '$(srcdir)/'`macro.cc; \ +@am__fastdepCXX_TRUE@ then mv -f "$(DEPDIR)/libveriwell_la-macro.Tpo" "$(DEPDIR)/libveriwell_la-macro.Plo"; else rm -f "$(DEPDIR)/libveriwell_la-macro.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='macro.cc' object='libveriwell_la-macro.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCXX_FALSE@ $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -c -o libveriwell_la-macro.lo `test -f 'macro.cc' || echo '$(srcdir)/'`macro.cc + +libveriwell_la-plihacks.lo: plihacks.cc +@am__fastdepCXX_TRUE@ if $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -MT libveriwell_la-plihacks.lo -MD -MP -MF "$(DEPDIR)/libveriwell_la-plihacks.Tpo" -c -o libveriwell_la-plihacks.lo `test -f 'plihacks.cc' || echo '$(srcdir)/'`plihacks.cc; \ +@am__fastdepCXX_TRUE@ then mv -f "$(DEPDIR)/libveriwell_la-plihacks.Tpo" "$(DEPDIR)/libveriwell_la-plihacks.Plo"; else rm -f "$(DEPDIR)/libveriwell_la-plihacks.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='plihacks.cc' object='libveriwell_la-plihacks.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCXX_FALSE@ $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -c -o libveriwell_la-plihacks.lo `test -f 'plihacks.cc' || echo '$(srcdir)/'`plihacks.cc + +libveriwell_la-udp.lo: udp.cc +@am__fastdepCXX_TRUE@ if $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -MT libveriwell_la-udp.lo -MD -MP -MF "$(DEPDIR)/libveriwell_la-udp.Tpo" -c -o libveriwell_la-udp.lo `test -f 'udp.cc' || echo '$(srcdir)/'`udp.cc; \ +@am__fastdepCXX_TRUE@ then mv -f "$(DEPDIR)/libveriwell_la-udp.Tpo" "$(DEPDIR)/libveriwell_la-udp.Plo"; else rm -f "$(DEPDIR)/libveriwell_la-udp.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='udp.cc' object='libveriwell_la-udp.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCXX_FALSE@ $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -c -o libveriwell_la-udp.lo `test -f 'udp.cc' || echo '$(srcdir)/'`udp.cc + +libveriwell_la-exec.lo: exec.cc +@am__fastdepCXX_TRUE@ if $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -MT libveriwell_la-exec.lo -MD -MP -MF "$(DEPDIR)/libveriwell_la-exec.Tpo" -c -o libveriwell_la-exec.lo `test -f 'exec.cc' || echo '$(srcdir)/'`exec.cc; \ +@am__fastdepCXX_TRUE@ then mv -f "$(DEPDIR)/libveriwell_la-exec.Tpo" "$(DEPDIR)/libveriwell_la-exec.Plo"; else rm -f "$(DEPDIR)/libveriwell_la-exec.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='exec.cc' object='libveriwell_la-exec.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCXX_FALSE@ $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -c -o libveriwell_la-exec.lo `test -f 'exec.cc' || echo '$(srcdir)/'`exec.cc + +libveriwell_la-specify.lo: specify.cc +@am__fastdepCXX_TRUE@ if $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -MT libveriwell_la-specify.lo -MD -MP -MF "$(DEPDIR)/libveriwell_la-specify.Tpo" -c -o libveriwell_la-specify.lo `test -f 'specify.cc' || echo '$(srcdir)/'`specify.cc; \ +@am__fastdepCXX_TRUE@ then mv -f "$(DEPDIR)/libveriwell_la-specify.Tpo" "$(DEPDIR)/libveriwell_la-specify.Plo"; else rm -f "$(DEPDIR)/libveriwell_la-specify.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='specify.cc' object='libveriwell_la-specify.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCXX_FALSE@ $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -c -o libveriwell_la-specify.lo `test -f 'specify.cc' || echo '$(srcdir)/'`specify.cc + +libveriwell_la-sdfcpars.lo: sdfcpars.cc +@am__fastdepCXX_TRUE@ if $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -MT libveriwell_la-sdfcpars.lo -MD -MP -MF "$(DEPDIR)/libveriwell_la-sdfcpars.Tpo" -c -o libveriwell_la-sdfcpars.lo `test -f 'sdfcpars.cc' || echo '$(srcdir)/'`sdfcpars.cc; \ +@am__fastdepCXX_TRUE@ then mv -f "$(DEPDIR)/libveriwell_la-sdfcpars.Tpo" "$(DEPDIR)/libveriwell_la-sdfcpars.Plo"; else rm -f "$(DEPDIR)/libveriwell_la-sdfcpars.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='sdfcpars.cc' object='libveriwell_la-sdfcpars.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCXX_FALSE@ $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -c -o libveriwell_la-sdfcpars.lo `test -f 'sdfcpars.cc' || echo '$(srcdir)/'`sdfcpars.cc + +libveriwell_la-sdfparse.lo: sdfparse.cc +@am__fastdepCXX_TRUE@ if $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -MT libveriwell_la-sdfparse.lo -MD -MP -MF "$(DEPDIR)/libveriwell_la-sdfparse.Tpo" -c -o libveriwell_la-sdfparse.lo `test -f 'sdfparse.cc' || echo '$(srcdir)/'`sdfparse.cc; \ +@am__fastdepCXX_TRUE@ then mv -f "$(DEPDIR)/libveriwell_la-sdfparse.Tpo" "$(DEPDIR)/libveriwell_la-sdfparse.Plo"; else rm -f "$(DEPDIR)/libveriwell_la-sdfparse.Tpo"; exit 1; fi +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ source='sdfparse.cc' object='libveriwell_la-sdfparse.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCXX_FALSE@ DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCXX_FALSE@ $(LIBTOOL) --tag=CXX --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libveriwell_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -c -o libveriwell_la-sdfparse.lo `test -f 'sdfparse.cc' || echo '$(srcdir)/'`sdfparse.cc + +.yy.cc: + $(SHELL) $(YLWRAP) $< y.tab.c $@ y.tab.h $*.h y.output $*.output -- $(YACCCOMPILE) + +mostlyclean-libtool: + -rm -f *.lo + +clean-libtool: + -rm -rf .libs _libs + +distclean-libtool: + -rm -f libtool +uninstall-info-am: +install-nobase_includeHEADERS: $(nobase_include_HEADERS) + @$(NORMAL_INSTALL) + test -z "$(includedir)" || $(mkdir_p) "$(DESTDIR)$(includedir)" + @$(am__vpath_adj_setup) \ + list='$(nobase_include_HEADERS)'; for p in $$list; do \ + if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ + $(am__vpath_adj) \ + echo " $(nobase_includeHEADERS_INSTALL) '$$d$$p' '$(DESTDIR)$(includedir)/$$f'"; \ + $(nobase_includeHEADERS_INSTALL) "$$d$$p" "$(DESTDIR)$(includedir)/$$f"; \ + done + +uninstall-nobase_includeHEADERS: + @$(NORMAL_UNINSTALL) + @$(am__vpath_adj_setup) \ + list='$(nobase_include_HEADERS)'; for p in $$list; do \ + $(am__vpath_adj) \ + echo " rm -f '$(DESTDIR)$(includedir)/$$f'"; \ + rm -f "$(DESTDIR)$(includedir)/$$f"; \ + done + +ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) + list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ + unique=`for i in $$list; do \ + if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ + done | \ + $(AWK) ' { files[$$0] = 1; } \ + END { for (i in files) print i; }'`; \ + mkid -fID $$unique +tags: TAGS + +TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ + $(TAGS_FILES) $(LISP) + tags=; \ + here=`pwd`; \ + list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ + unique=`for i in $$list; do \ + if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ + done | \ + $(AWK) ' { files[$$0] = 1; } \ + END { for (i in files) print i; }'`; \ + if test -z "$(ETAGS_ARGS)$$tags$$unique"; then :; else \ + test -n "$$unique" || unique=$$empty_fix; \ + $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ + $$tags $$unique; \ + fi +ctags: CTAGS +CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ + $(TAGS_FILES) $(LISP) + tags=; \ + here=`pwd`; \ + list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ + unique=`for i in $$list; do \ + if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ + done | \ + $(AWK) ' { files[$$0] = 1; } \ + END { for (i in files) print i; }'`; \ + test -z "$(CTAGS_ARGS)$$tags$$unique" \ + || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ + $$tags $$unique + +GTAGS: + here=`$(am__cd) $(top_builddir) && pwd` \ + && cd $(top_srcdir) \ + && gtags -i $(GTAGS_ARGS) $$here + +distclean-tags: + -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags + +distdir: $(DISTFILES) + @srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; \ + topsrcdirstrip=`echo "$(top_srcdir)" | sed 's|.|.|g'`; \ + list='$(DISTFILES)'; for file in $$list; do \ + case $$file in \ + $(srcdir)/*) file=`echo "$$file" | sed "s|^$$srcdirstrip/||"`;; \ + $(top_srcdir)/*) file=`echo "$$file" | sed "s|^$$topsrcdirstrip/|$(top_builddir)/|"`;; \ + esac; \ + if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ + dir=`echo "$$file" | sed -e 's,/[^/]*$$,,'`; \ + if test "$$dir" != "$$file" && test "$$dir" != "."; then \ + dir="/$$dir"; \ + $(mkdir_p) "$(distdir)$$dir"; \ + else \ + dir=''; \ + fi; \ + if test -d $$d/$$file; then \ + if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ + cp -pR $(srcdir)/$$file $(distdir)$$dir || exit 1; \ + fi; \ + cp -pR $$d/$$file $(distdir)$$dir || exit 1; \ + else \ + test -f $(distdir)/$$file \ + || cp -p $$d/$$file $(distdir)/$$file \ + || exit 1; \ + fi; \ + done +check-am: all-am +check: check-am +all-am: Makefile $(LTLIBRARIES) $(PROGRAMS) $(HEADERS) +install-binPROGRAMS: install-libLTLIBRARIES + +installdirs: + for dir in "$(DESTDIR)$(libdir)" "$(DESTDIR)$(bindir)" "$(DESTDIR)$(includedir)"; do \ + test -z "$$dir" || $(mkdir_p) "$$dir"; \ + done +install: install-am +install-exec: install-exec-am +install-data: install-data-am +uninstall: uninstall-am + +install-am: all-am + @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am + +installcheck: installcheck-am +install-strip: + $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ + install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ + `test -z '$(STRIP)' || \ + echo "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'"` install +mostlyclean-generic: + +clean-generic: + +distclean-generic: + -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) + +maintainer-clean-generic: + @echo "This command is intended for maintainers to use" + @echo "it deletes files that may require special tools to rebuild." + -rm -f parse.cc + -rm -f parse.h + -rm -f sdfcpars.cc + -rm -f sdfcpars.h + -rm -f sdfparse.cc + -rm -f sdfparse.h +clean: clean-am + +clean-am: clean-binPROGRAMS clean-generic clean-libLTLIBRARIES \ + clean-libtool mostlyclean-am + +distclean: distclean-am + -rm -rf ./$(DEPDIR) + -rm -f Makefile +distclean-am: clean-am distclean-compile distclean-generic \ + distclean-libtool distclean-tags + +dvi: dvi-am + +dvi-am: + +html: html-am + +info: info-am + +info-am: + +install-data-am: install-nobase_includeHEADERS + +install-exec-am: install-binPROGRAMS install-libLTLIBRARIES + +install-info: install-info-am + +install-man: + +installcheck-am: + +maintainer-clean: maintainer-clean-am + -rm -rf ./$(DEPDIR) + -rm -f Makefile +maintainer-clean-am: distclean-am maintainer-clean-generic + +mostlyclean: mostlyclean-am + +mostlyclean-am: mostlyclean-compile mostlyclean-generic \ + mostlyclean-libtool + +pdf: pdf-am + +pdf-am: + +ps: ps-am + +ps-am: + +uninstall-am: uninstall-binPROGRAMS uninstall-info-am \ + uninstall-libLTLIBRARIES uninstall-nobase_includeHEADERS + +.PHONY: CTAGS GTAGS all all-am check check-am clean clean-binPROGRAMS \ + clean-generic clean-libLTLIBRARIES clean-libtool ctags \ + distclean distclean-compile distclean-generic \ + distclean-libtool distclean-tags distdir dvi dvi-am html \ + html-am info info-am install install-am install-binPROGRAMS \ + install-data install-data-am install-exec install-exec-am \ + install-info install-info-am install-libLTLIBRARIES \ + install-man install-nobase_includeHEADERS install-strip \ + installcheck installcheck-am installdirs maintainer-clean \ + maintainer-clean-generic mostlyclean mostlyclean-compile \ + mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ + tags uninstall uninstall-am uninstall-binPROGRAMS \ + uninstall-info-am uninstall-libLTLIBRARIES \ + uninstall-nobase_includeHEADERS + +.gpe.h: + $(GPE) $(GPEFLAGS) $(AM_GPEFLAGS) $< > $@ +# Tell versions [3.59,3.63) of GNU make to not export all variables. +# Otherwise a system limit (for SysV at least) may be exceeded. +.NOEXPORT: diff --git a/src/acc_user.h b/src/acc_user.h new file mode 100644 index 0000000..bf88e52 --- /dev/null +++ b/src/acc_user.h @@ -0,0 +1,661 @@ +/**************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* ACC_USER.C - PLI access routine header */ + +#ifndef ACC_USER_H +#define ACC_USER_H + + + +/**********************************************************************/ +/*** General constant definitions ***/ + + +typedef int *handle; + +#define bool int +#define true 1 +#define TRUE 1 +#define false 0 +#define FALSE 0 + +#define global extern +#define exfunc +#define local static +#define null 0L + +extern bool acc_error_flag; + + +/**********************************************************************/ +/*** Type and configuration constant definitions ***/ + +#define accModule 20 +#define accScope 21 +#define accNet 25 +#define accReg 30 +#define accRegister 30 +#define accPort 35 +#define accTerminal 45 +#define accInputTerminal 46 +#define accOutputTerminal 47 +#define accInoutTerminal 48 +#define accCombPrim 140 +#define accSeqPrim 142 +#define accAndGate 144 +#define accNandGate 146 +#define accNorGate 148 +#define accOrGate 150 +#define accXorGate 152 +#define accXnorGate 154 +#define accBufGate 156 +#define accNotGate 158 +#define accBufif0Gate 160 +#define accBufif1Gate 162 +#define accNotif0Gate 164 +#define accNotif1Gate 166 +#define accNmosGate 168 +#define accPmosGate 170 +#define accCmosGate 172 +#define accRnmosGate 174 +#define accRpmosGate 176 +#define accRcmosGate 178 +#define accRtranGate 180 +#define accRtranif0Gate 182 +#define accRtranif1Gate 184 +#define accTranGate 186 +#define accTranif0Gate 188 +#define accTranif1Gate 190 +#define accPullupGate 192 +#define accPulldownGate 194 +#define accIntegerParam 200 +#define accIntParam 200 +#define accRealParam 202 +#define accStringParam 204 +#define accPath 206 +#define accTchk 208 +#define accPrimitive 210 +#define accBit 212 +#define accPortBit 214 +#define accNetBit 216 +#define accRegBit 218 +#define accParameter 220 +#define accSpecparam 222 +#define accTopModule 224 +#define accModuleInstance 226 +#define accCellInstance 228 +#define accModPath 230 +#define accPrimPath 232 +#define accWirePath 234 +#define accModNetPath 236 /*alias for accInterModPath */ +#define accInterModPath 236 +#define accTermPath 238 +#define accModTermPath 240 +#define accTermModPath 242 +#define accScalarPort 250 +#define accBitSelectPort 252 +#define accPartSelectPort 254 +#define accVectorPort 256 +#define accConcatPort 258 +#define accWire 260 +#define accWand 261 +#define accWor 262 +#define accTri 263 +#define accTriand 264 +#define accTrior 265 +#define accTri0 266 +#define accTri1 267 +#define accTrireg 268 +#define accSupply0 269 +#define accSupply1 270 +#define accNamedEvent 280 +#define accEventVar 280 +#define accIntegerVar 281 +#define accIntVar 281 +#define accRealVar 282 +#define accTimeVar 283 +#define accScalar 300 +#define accVector 302 +#define accCollapsedNet 304 +#define accExpandedVector 306 +#define accUnexpandedVector 307 +#define accProtected 308 +#define accVlogSimPath 310 +#define accExpandedPath 312 +#define accModPathHasIfnone 313 +#define accSwXlInvisibleNet 314 +#define accAcceleratedNet 316 +#define accSetup 366 +#define accHold 367 +#define accWidth 368 +#define accPeriod 369 +#define accRecovery 370 +#define accSkew 371 +#define accNochange 376 +#define accNoChange 376 +#define accSetuphold 377 +#define accInput 402 +#define accOutput 404 +#define accInout 406 +#define accMixedIo 407 +#define accPositive 408 +#define accNegative 410 +#define accUnknown 412 +#define accPathTerminal 420 +#define accPathInput 422 +#define accPathOutput 424 +#define accDataPath 426 +#define accTchkTerminal 428 +#define accBitSelect 500 +#define accPartSelect 502 +#define accTask 504 +#define accFunction 506 +#define accStatement 508 +#define accTaskCall 510 +#define accFunctionCall 512 +#define accSystemTask 514 +#define accSystemFunction 516 +#define accSystemRealFunction 518 +#define accUserTask 520 +#define accUserFunction 522 +#define accUserRealFunction 524 +#define accAssignmentStat 526 +#define accContAssignStat 527 +#define accNullStat 528 +#define accDelayStat 530 +#define accAssignDelayStat 532 +#define accRtlDelayStat 534 +#define accAssignEventStat 536 +#define accAssignMultiStat 537 +#define accRtlEventStat 538 +#define accRtlMultiStat 539 +#define accGenEventStat 540 +#define accDisableStat 542 +#define accAssignStat 544 +#define accDeassignStat 546 +#define accForceStat 548 +#define accReleaseStat 550 +#define accInitialStat 552 +#define accAlwaysStat 554 +#define accAtEventStat 556 +#define accUnnamedBeginStat 558 +#define accNamedBeginStat 560 +#define accUnnamedForkStat 562 +#define accNamedForkStat 564 +#define accIfStat 566 +#define accCaseStat 568 +#define accCaseZStat 570 +#define accCaseXStat 572 +#define accForeverStat 574 +#define accRepeatStat 576 +#define accWhileStat 578 +#define accForStat 580 +#define accWaitStat 582 +#define accConstant 600 +#define accConcat 610 +#define accOperator 620 + +/* acc_configure() parameters */ +#define accPathDelayCount 1 +#define accPathDelimStr 2 +#define accDisplayErrors 3 +#define accDefaultAttr0 4 +#define accToHiZDelay 5 +#define accEnableArgs 6 +#define accSpecitemScope 7 +#define accDisplayWarnings 8 +#define accWarnNestedLoconn 9 +#define accWarnNestedHiconn 10 +#define accDevelopmentVersion 11 +#define accMinMultiplier 12 +#define accTypMultiplier 13 +#define accMaxMultiplier 14 +#define accAttrDelimStr 15 +#define accDelayCount 16 +#define accMapToMipd 17 +#define accDelayArrays 18 +#define accMinTypMaxDelays 19 +#define accUserErrorString 20 +#define accTwoLimitChecks 21 + +/* Edge information used by acc_handle_tchk, etc. */ +#define accNoedge 0 +#define accNoEdge 0 +#define accEdge01 1 +#define accEdge10 2 +#define accEdge0x 4 +#define accEdgex1 8 +#define accEdge1x 16 +#define accEdgex0 32 +#define accPosedge 13 /* accEdge01 & accEdge0x & accEdgex1 */ +#define accPosEdge 13 /* accEdge01 & accEdge0x & accEdgex1 */ +#define accNegedge 50 /* accEdge10 & accEdge1x & accEdgex0 */ +#define accNegEdge 50 /* accEdge10 & accEdge1x & accEdgex0 */ + +/* Product types */ +#define accVerilog 1 +#define accVeritime 2 +#define accVerifault 3 + +/* Version defines */ +#define accVersion15Beta 1 +#define accVersion15a 2 +#define accVersion15b 3 +#define accVersion15b1 4 +#define accVersion15b2Beta 5 +#define accVersion15b2 6 +#define accVersion15b3 7 +#define accVersion15b4 8 +#define accVersion15b5 9 +#define accVersion15cBeta 12 +#define accVersion15c 16 +#define accVersion15c03 20 +#define accVersion15c04 21 +#define accVersion15c10 24 +#define accVersion15c30 28 +#define accVersion15c40 32 +#define accVersion15c41 33 +#define accVersion16Beta 36 +#define accVersion16Beta2 37 +#define accVersion16Beta3 38 +#define accVersion16Beta4 39 +#define accVersion16 40 +#define accVersion161 41 +#define accVersion16aBeta 42 +#define accVersion16aBeta3 43 +#define accVersion16aBeta5 44 +#define accVersion16a 45 +#define accVersion16a1 46 +#define accVersion16a3 47 +#define accVersion16a4 48 +#define accVersion16a5 49 +#define accVersionLatest accVersion16a5 + +/* Delay modes */ +#define accDelayModeNone 0 +#define accDelayModePath 1 +#define accDelayModeDistrib 2 +#define accDelayModeUnit 3 +#define accDelayModeZero 4 +#define accDelayModeVeritime 5 +#define accDelayModeMTM 6 + + +/***************************** +** typedefs for time structure +*/ + +typedef struct t_acc_time { + int type; /* one of accTime accSimTime accRealTime */ + int low, high; /* for accTime and accSimTime */ + double real; /* for accRealTime */ +} s_acc_time, *p_acc_time; + +/* t_acc_time types */ +#define accTime 1 /* timescaled time */ +#define accSimTime 2 /* internal simulation time */ +#define accRealTime 3 /* timescaled real time */ + +/* **************************************** +** typedef for fetch_timescale_info +*/ + +typedef struct t_timescale_info { + short unit; + short precision; +} s_timescale_info, *p_timescale_info; + + +/****************************************** +** typedefs and defines for acc_set_value() +*/ + +typedef struct t_setval_delay { + s_acc_time time; + int model; + /* accNoDelay */ + /* accInertialDelay */ + /* accTransportDelay */ + /* accPureTransportDelay */ +} s_setval_delay, *p_setval_delay; + + +/* t_setval_delay types */ +#define accNoDelay 0 +#define accInertialDelay 1 +#define accTransportDelay 2 +#define accPureTransportDelay 3 +#define accAssignFlag 4 +#define accDeassignFlag 5 +#define accForceFlag 6 +#define accReleaseFlag 7 + +typedef struct t_acc_vecval { + int aval; /* bit-coding for each bit of vector: */ + int bval; /* ab: 00=0, 10=1, 11=X, 01=Z */ +} s_acc_vecval, *p_acc_vecval; + +typedef struct t_setval_value { + int format; /* acc[[Bin,Oct,Dec,Hex]Str,Scalar,Int,Real,Vector]Val */ + union { + char *str; + int scalar; /* acc[0,1,X,Z] */ + int integer; + double real; + p_acc_vecval vector; + } value; +} s_setval_value, *p_setval_value, s_acc_value, *p_acc_value; + +/* t_setval_value fromats */ +#define accBinStrVal 1 +#define accOctStrVal 2 +#define accDecStrVal 3 +#define accHexStrVal 4 +#define accScalarVal 5 +#define accIntVal 6 +#define accRealVal 7 +#define accStringVal 8 +#define accCompactVal 9 +#define accVectorVal 10 + +/* scalar values */ +#define acc0 0 +#define acc1 1 +#define accX 2 +#define accZ 3 + + +/**********************************************************************/ +/* + * includes for Value Change Link + */ + +#define logic_value_change 1 +#define strength_value_change 2 +#define real_value_change 3 +#define vector_value_change 4 +#define event_value_change 5 +#define integer_value_change 6 +#define time_value_change 7 +#define sregister_value_change 8 +#define vregister_value_change 9 +#define realtime_value_change 10 +#define compact_value_change 11 + + +typedef void (*consumer_function) (); + +/* structure that stores strengths */ +typedef struct t_strengths { + unsigned char logic_value; + unsigned char strength1; + unsigned char strength2; +} s_strengths, *p_strengths; + + +typedef struct t_vc_record { + int vc_reason; + unsigned int vc_hightime; + unsigned int vc_lowtime; + char *user_data; + union { + unsigned char logic_value; + double real_value; + handle vector_handle; + s_strengths strengths_s; + } out_value; +} s_vc_record, *p_vc_record; + +/* logic values */ +#define vcl0 acc0 +#define vcl1 acc1 +#define vclX accX +#define vclZ accZ + +/* VCL strength values */ +#define vclSupply 7 +#define vclStrong 6 +#define vclPull 5 +#define vclLarge 4 +#define vclWeak 3 +#define vclMedium 2 +#define vclSmall 1 +#define vclHighZ 0 + +/* vcl bit flag definitions */ +#define vcl_strength_flag 1 +#define vcl_verilog_flag 2 +#define vcl_veritime_flag 4 +#define vcl_compact_flag 8 + + +/* flags used with acc_vcl_add */ +#define vcl_verilog_logic (vcl_verilog_flag) +#define VCL_VERILOG_LOGIC (vcl_verilog_flag) + +#define vcl_verilog_strength (vcl_verilog_flag + vcl_strength_flag) +#define VCL_VERILOG_STRENGTH (vcl_verilog_flag + vcl_strength_flag) + +/* flags used with acc_vcl_delete */ +#define vcl_verilog (vcl_verilog_flag) +#define VCL_VERILOG (vcl_verilog_flag) + +/* test whether strength information is requested for vcl */ +#define vcl_setstr_m(flags_) ( flags_ |= vcl_strength_flag ) +#define vcl_clearstr_m(flags_) ( flags_ &= ~vcl_strength_flag ) +#define vcl_isstr_m(flags_) ( flags_ & vcl_strength_flag ) + +/* test whether Verilog information is requested for vcl */ +#define vcl_setvl_m(flags_) ( flags_ |= vcl_verilog_flag ) +#define vcl_clearvl_m(flags_) ( flags_ &= ~vcl_verilog_flag ) +#define vcl_isvl_m(flags_) ( flags_ & vcl_verilog_flag ) + +/* test whether Veritime information is requested for vcl */ +#define vcl_setvt_m(flags_) ( flags_ |= vcl_veritime_flag ) +#define vcl_clearvt_m(flags_) ( flags_ &= ~vcl_veritime_flag ) +#define vcl_isvt_m(flags_) ( flags_ & vcl_veritime_flag ) + +/* test whether vcl trigger is compact or normal */ +#define vcl_setcompact_m(flags_) ( flags_ |= vcl_compact_flag ) +#define vcl_clearcompact_m(flags_) ( flags_ &= ~vcl_compact_flag ) +#define vcl_iscompact_m(flags_) ( flags_ & vcl_compact_flag ) + +/* constants for acc_product_type */ +#define accSimulator 1 +#define accTimingAnalyser 2 +#define accFaultSimulator 3 +#define accOther 4 + + +/**********************************************************************/ +/*** includes for the location structure ***/ +/* structure that stores location */ +typedef struct t_location { + int line_no; + char *filename; +} s_location, *p_location; + +/**********************************************************************/ +/*** includes for the time callbacks ***/ +#define reason_begin_of_simtime 1 +#define reason_end_of_simtime 2 + +/**********************************************************************/ +/* + * include information for stability checks + */ +#define accTaskFuncStable 0x0001 +#define accSystfStable 0x0002 +#define accPrimStable 0x0004 +#define accContAssignStable 0x0008 +#define accBehavStable 0x0010 +#define accNetRegVarStable 0x0020 +#define acc_taskfunc_stable accTaskFuncStable +#define acc_systf_stable accSystfStable +#define acc_primitive_stable accPrimStable +#define acc_contassign_stable accContAssignStable +#define acc_behav_stable accBehavStable +#define acc_netreg_stable accNetRegVarStable +#define acc_setstabflags_m(_flags,_pos) (_flags |= _pos) +#define acc_clearstabflags_m(_flags,_pos) (_flags &= ~_pos) +#define acc_isstabflags_m(_flags,_pos) (_flags & _pos) + + +/**********************************************************************/ +/*** Routine declarations ***/ + + +#ifdef __cplusplus +extern "C" { +#endif + +/* Handle routines */ + void acc_vcl_add(handle, int (*)(s_vc_record *), char *, int); + void acc_vcl_delete(handle, int (*)(s_vc_record *), char *, int); + handle acc_next_topmod(handle); + handle acc_handle_tfarg(int); + handle acc_next_scope(handle, handle); + int acc_fetch_size(handle); + char *acc_fetch_value(handle, char *, ...); + char *acc_fetch_name(handle); + int acc_set_value(handle, p_setval_value, p_setval_delay); + int acc_fetch_type(handle); + int acc_configure(int, char *); + int acc_initialize(void); + void acc_close(void); + handle acc_handle_object(char *); + handle acc_handle_tchkarg1(handle); + handle acc_handle_tchkarg2(handle); + handle acc_handle_parent(handle); + char *acc_fetch_fullname(handle); + int acc_fetch_fulltype(handle); + handle acc_handle_by_name(char *, handle); + handle acc_next_child(handle, handle); + handle acc_next_port(handle, handle); + char *acc_fetch_defname(handle); + handle acc_next_modpath(handle, handle); + handle acc_handle_pathin(handle); + handle acc_handle_pathout(handle); + handle acc_handle_modpath(handle, char *, char *, ...); + handle acc_next_primitive(handle, handle); + bool acc_fetch_delays(handle object, ...); + bool acc_replace_delays(handle object, ...); + bool acc_append_delays(handle object, ...); + + handle acc_handle_simulated_net(handle collapsed_net_handle); + + + bool acc_append_pulsere(handle path, double f1, double e1, double f2, + double e2, double f3, double e3, double f4, + double e4, double f5, double e5, double f6, + double e6); + bool acc_replace_pulsere(handle path, double f1, double e1, double f2, + double e2, double f3, double e3, double f4, + double e4, double f5, double e5, double f6, + double e6); + bool acc_set_pulsere(handle path, double reject_percentage, + double e_percentage); + bool acc_fetch_pulsere(handle path, double *f1, double *e1, double *f2, + double *e2, double *f3, double *e3, double *f4, + double *e4, double *f5, double *e5, double *f6, + double *e6); + + int acc_fetch_direction(handle); + handle acc_handle_conn(handle); + handle acc_next_terminal(handle, handle); + handle acc_next_driver(handle, handle); + handle acc_next_tchk(handle, handle); + handle acc_handle_tchkarg1(handle); + handle acc_handle_tchkarg2(handle); + handle acc_handle_tchk(handle, int, char *, int, char *, int, ...); + char *acc_fetch_type_str(int); + handle *acc_collect(handle(*nextFunction) (handle, handle), + handle reference, int *numberOfObjects); + bool acc_object_in_typelist(handle object, int *typeList); + int acc_product_type(void); + char *acc_product_version(void); + char *acc_version(void); + handle acc_next_cell(handle reference, handle cell); + handle acc_next_cell_load(handle reference, handle load); + handle acc_next_load(handle reference, handle load); + handle acc_next_bit(handle reference, handle bit); + handle acc_handle_port(handle module, int argumentNumber); + handle acc_handle_interactive_scope(void); + handle acc_handle_tfinst(void); + handle acc_handle_scope(handle object); + char *acc_set_scope(handle module, char *name); + void acc_reset_buffer(void); + handle acc_set_interactive_scope(void); + double acc_fetch_tfarg(int argumentNumber); + int acc_fetch_tfarg_int(int argumentNumber); + char *acc_fetch_tfarg_str(int argumentNumber); + handle acc_next_parameter(handle reference, handle param); + handle acc_next_specparam(handle reference, handle param); + int acc_fetch_delay_mode(handle module); + int acc_fetch_paramtype(handle param); + double acc_fetch_paramval(handle param); + handle acc_next_portout(handle reference, handle port); + int acc_fetch_argc(void); + char **acc_fetch_argv(void); + + void acc_free(handle * list); + int acc_count(handle(*nextFunction) (handle, handle), + handle reference); + + void acc_fetch_timescale_info(handle, p_timescale_info); + int acc_fetch_precision(void); + int acc_release_object(handle); + + handle acc_next_net(handle, handle); + handle acc_next(int *, handle, handle); + int acc_fetch_range(handle, int *, int *); + handle acc_handle_loconn(handle); + bool acc_object_of_type(handle object, int type); + handle acc_next_input(handle, handle); + handle acc_next_output(handle, handle); + void acc_mod_lcb_add(handle, void (*)(char *, unsigned int, char *), + char *); + void acc_mod_lcb_delete(handle, void (*)(char *, unsigned int, char *), + char *); + void acc_fetch_location(p_location loc_p, handle object); + bool acc_compare_handles(handle object1, handle object2); + int acc_fetch_index(handle object); + handle acc_handle_path(handle port_output_handle, + handle port_input_handle); + handle acc_handle_terminal(handle primitive_handle, + int terminal_index); + handle acc_handle_datapath(handle modpath); + handle acc_next_loconn(handle port, handle bit); + int acc_fetch_polarity(handle object); + handle acc_next_hiconn(handle port, handle bit); + int acc_fetch_edge(handle object); + handle acc_handle_index(handle object); + handle acc_handle_notifier(handle object); + double acc_fetch_attribute(handle object, char *string, double def); + handle acc_handle_hiconn(handle terminal); + handle acc_handle_calling_mod_m(void); + handle acc_handle_condition(handle); + int acc_fetch_attribute_int(handle object, char *string, int def); + char *acc_fetch_attribute_str(handle object, char *string, char *def); + +#ifdef __cplusplus +} +#endif +#endif diff --git a/src/check.cc b/src/check.cc new file mode 100644 index 0000000..9f6d839 --- /dev/null +++ b/src/check.cc @@ -0,0 +1,815 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* CHECK.C - Compile-time semantic checking */ + +#include +#include "vtypes.h" +#include "tree.h" +#include "decl.h" +#include "check.h" +#include "veriwell.h" + +extern tree current_scope; +extern int in_tf; +extern int in_systask; /* defined in parse.y */ +extern int in_event; + +unsigned int big_label = 0; + + +static void fixup_labels(tree t, tree op1, tree op2) +{ + unsigned int label1, label2, sub_label1, sub_label2; + enum tree_code code_op1 = TREE_CODE(op1); + enum tree_code code_op2 = TREE_CODE(op2); + char *type_ptr = tree_code_type[code_op1]; + + if (*type_ptr == 'e' || + code_op1 == BIT_REF || code_op1 == ARRAY_REF + || code_op1 == CONCAT_REF) { + label1 = TREE_LABEL(op1); + /* cond or reduction */ + if (*++type_ptr == '1' || *type_ptr == 'r') { + sub_label1 = 1; + } else { + sub_label1 = TREE_SUB_LABEL(op1); + } + } else { + label1 = 1; + sub_label1 = 1; + } + + type_ptr = tree_code_type[TREE_CODE(op2)]; + if (*type_ptr == 'e' + || code_op2 == BIT_REF + || code_op2 == ARRAY_REF || code_op2 == CONCAT_REF) { + label2 = TREE_LABEL(op2); + /* cond or reduction */ + if (*++type_ptr == '1' || *type_ptr == 'r') { + sub_label2 = 0; + } else { + sub_label2 = TREE_SUB_LABEL(op2); + } + } else { + label2 = 0; + sub_label2 = 0; + } + + if (label1 == label2) { + TREE_LABEL(t) = label1 + 1; + } else { + TREE_LABEL(t) = max(label1, label2); + } + if (sub_label1 == sub_label2) { + TREE_SUB_LABEL(t) = sub_label1 + 1; + } else { + TREE_SUB_LABEL(t) = max(sub_label1, sub_label2); + } + + if (TREE_LABEL(t) > big_label) { + big_label = TREE_LABEL(t); + } + if (TREE_LABEL(t) == 0) { + error("Expression has too many subexpressions", NULL_CHAR, + NULL_CHAR); + } +} + +/* Build a binary operation. Also determine if this operation will + require another stack entry. Later, we'll try to be smart about + applying associativity and stack swapping to reduce the number of + stack levels required (and speed up operation). Also determine + depth of stack for a subexpression using the same expression + bit lengths (self-determining operators, like conditionals will + cause a possible bit-length change). +*/ + +tree build_binary_op(enum tree_code code, tree op1, tree op2) +{ + tree t = build_nt(code, op1, op2); + + fixup_labels(t, op1, op2); + + /* Handle default conversion when going from REAL to any other type; + that is, convert to real type if another real is there */ + if (TREE_REAL_ATTR(op1) ^ TREE_REAL_ATTR(op2)) { + if (TREE_REAL_ATTR(op1)) { + TREE_OPERAND(t, 1) = build_unary_op(REAL_CONV_EXPR, op2); + } else { + TREE_OPERAND(t, 0) = build_unary_op(REAL_CONV_EXPR, op1); + } + } + + TREE_CONSTANT_ATTR(t) = TREE_CONSTANT_ATTR(op1) & + TREE_CONSTANT_ATTR(op2); + TREE_INTEGER_ATTR(t) = TREE_INTEGER_ATTR(op1) & TREE_INTEGER_ATTR(op2); + TREE_REAL_ATTR(t) = TREE_REAL_ATTR(op1) | TREE_REAL_ATTR(op2); + if (tree_code_type[code][0] == 'e' && tree_code_type[code][1] == '1') { + TREE_INTEGER_ATTR(t) = 0; + TREE_REAL_ATTR(t) = 0; + } + + return t; +} + +tree build_unary_op(enum tree_code code, tree op) +{ + tree t = build_nt(code, op); + + TREE_LABEL(t) = TREE_LABEL(op); + TREE_SUB_LABEL(t) = TREE_SUB_LABEL(op); + TREE_CONSTANT_ATTR(t) = TREE_CONSTANT_ATTR(op); + TREE_INTEGER_ATTR(t) = TREE_INTEGER_ATTR(op); + TREE_REAL_ATTR(t) = TREE_REAL_ATTR(op); + + /* force type changes for conversion */ + if (TREE_CODE(t) == INT_CONV_EXPR) { + TREE_REAL_ATTR(t) = 0; + TREE_INTEGER_ATTR(t) = 1; + } else if (TREE_CODE(t) == REAL_CONV_EXPR) { + TREE_REAL_ATTR(t) = 1; + TREE_INTEGER_ATTR(t) = 0; + } + return t; +} + +tree build_cond_expr(tree op1, tree op2, tree op3) +{ + tree t = make_node(COND_EXPR); + + COND_EXPR(t) = op1; + COND_TRUE(t) = op2; + COND_FALSE(t) = op3; + TREE_CONSTANT_ATTR(t) = TREE_CONSTANT_ATTR(op1) & + TREE_CONSTANT_ATTR(op2) & TREE_CONSTANT_ATTR(op3); + TREE_INTEGER_ATTR(t) = TREE_INTEGER_ATTR(op2) & TREE_INTEGER_ATTR(op3); + TREE_REAL_ATTR(t) = TREE_REAL_ATTR(op2) | TREE_REAL_ATTR(op3); + + /* Handle default conversion when going from REAL to any other type */ + if (TREE_REAL_ATTR(op2) ^ TREE_REAL_ATTR(op3)) { + if (TREE_REAL_ATTR(op2)) { + op3 = build_unary_op(REAL_CONV_EXPR, op3); + } else { + op2 = build_unary_op(REAL_CONV_EXPR, op2); + } + } + TREE_LABEL(t) = 1 + max(TREE_LABEL(op2), TREE_LABEL(op3)); + TREE_SUB_LABEL(t) = 1 + max(TREE_SUB_LABEL(op2), TREE_SUB_LABEL(op3)); + if (TREE_LABEL(t) > big_label) { + big_label = TREE_LABEL(t); + } + if (TREE_LABEL(t) == 0) { + error("Expression has too many subexpressions", NULL_CHAR, + NULL_CHAR); + } + return t; +} + +/* Make the label of a concat ref the highest of he labels of its + components. Also, if all of its components are constant, then make + the reference constant. */ + +void concat_labels(tree node) +{ + tree t; + tree t1; + + TREE_CONSTANT_ATTR(node) = 1; + for (t = CONCAT_LIST(node); t; t = TREE_CHAIN(t)) { + t1 = TREE_PURPOSE(t); + if (TREE_LABEL(node) < TREE_LABEL(t1)) { + TREE_LABEL(node) = TREE_LABEL(t1); + } + if (TREE_SUB_LABEL(node) < TREE_SUB_LABEL(t1)) { + TREE_SUB_LABEL(node) = TREE_SUB_LABEL(t1); + } + if (!TREE_CONSTANT_ATTR(t1)) { + TREE_CONSTANT_ATTR(t) = 0; + } + } +} + +/* Determine if this is a legal lval, return decl node */ + +tree check_lval(tree node, enum lval_type lval_type, tree spec) +{ + tree t = IDENT_CURRENT_DECL(node); + + if (node) { + if ((t = IDENT_CURRENT_DECL(node)) != 0) { + if (TREE_CODE(t) == ARRAY_DECL) { + error("Illegal reference to array '%s'", + IDENT(node), NULL_CHAR); + return error_mark_node; + } + } + } + return check_lval_nocheck(node, lval_type, spec); +} + +tree check_lval_nocheck(tree node, enum lval_type lval_type, tree spec) +{ + tree t = IDENT_CURRENT_DECL(node); + enum tree_code code; + char *type; + tree tmp; + + if (lval_type == LVAL_GATE) { // for gates + t = node; + } else { + t = IDENT_CURRENT_DECL(node); + } + + if (!t && lval_type != LVAL_NEW_NET && lval_type != LVAL_GATE) { + if (HIERARCHICAL_ATTR(node)) { + return node; + } else { + error("'%s' not declared", IDENT(node), NULL_CHAR); + return error_mark_node; + } + } else if (t == error_mark_node) { + return error_mark_node; + /* Continuous assignment inside net declaration (ex: "wire foo = bar;") */ + } else if (lval_type == LVAL_NEW_NET) { /* net decl with con't assignment */ + if (check_net(node) == error_mark_node) { + error("'%s' previously declared", IDENT(node), NULL_CHAR); + } else { /* make net */ + t = make_decl(node, spec, NULL_TREE, NULL_TREE); + BLOCK_DECL(current_scope) = + chainon(t, BLOCK_DECL(current_scope)); + NET_DELAY(t) = NULL_TREE; + if (TREE_CODE(t) == NET_SCALAR_DECL) { + tmp = make_node(NET_SCALAR_DECL); + } else { + tmp = make_node(NET_VECTOR_DECL); + } + DECL_NAME(tmp) = DECL_NAME(t); /* Do this for trace */ + TREE_TYPE(tmp) = TREE_TYPE(t); + STMT_SURROGATE_ATTR(tmp) = 1; + NET_ASSIGN_ATTR(tmp) = 1; + DECL_SOURCE_LINE(tmp) = lineno; + DECL_SOURCE_FILE(tmp) = input_filename; + PORT_OUTPUT_ATTR(tmp) = 0; + PORT_INPUT_ATTR(tmp) = 0; + PORT_COLLAPSED_ATTR(tmp) = 0; + + NET_SOURCE(tmp) = NET_SOURCE(t); /* thread me into source list */ + NET_SOURCE(t) = tmp; + TREE_CHAIN(tmp) = t; /* point back to original net */ + return tmp; + } + } + + code = TREE_CODE(t); + type = tree_code_type[code]; + + if (*type == 'e' || *type == 'c' || *type == 'b') { + error("Illegal Lvalue", NULL_CHAR, NULL_CHAR); + return error_mark_node; + /* This is an OK non-net, non-continuous assignment */ + } else if (lval_type == LVAL_REG && + code != NET_VECTOR_DECL && code != NET_SCALAR_DECL) { + return t; + } else if (lval_type == LVAL_REG_NET) { /* All types allowed (FORCE stmt) */ + return t; + /* Net, but not continuous */ + } else if (lval_type == LVAL_REG) { + error("Lval '%s' cannot be a net", IDENT(node), NULL_CHAR); + return error_mark_node; + /* Continuous assignment (ex: "assign foo = bar;") */ + } else if (lval_type == LVAL_NET || /* continuous assignment */ + lval_type == LVAL_GATE) { /* gates assignment */ + if (code == NET_VECTOR_DECL) { + tmp = make_node(NET_VECTOR_DECL); + } else if (code == NET_SCALAR_DECL) { + tmp = make_node(NET_SCALAR_DECL); + } else { + error("Continuous assignment lval '%s' not a net", + IDENT(node), NULL_CHAR); + return error_mark_node; + } + DECL_NAME(tmp) = DECL_NAME(t); + TREE_TYPE(tmp) = 0; + STMT_SURROGATE_ATTR(tmp) = 1; + DECL_SOURCE_LINE(tmp) = lineno; + DECL_SOURCE_FILE(tmp) = input_filename; + PORT_OUTPUT_ATTR(tmp) = 0; + PORT_INPUT_ATTR(tmp) = 0; + PORT_COLLAPSED_ATTR(tmp) = 0; + NET_SOURCE(tmp) = NET_SOURCE(t); /* thread me into source list */ + NET_SOURCE(t) = tmp; + TREE_CHAIN(tmp) = t; /* point back to original net */ + REFERENCED_ATTR(t) = 1; + return tmp; + } else { /* Port connections */ + fatal("Shouldn't here for port connections", NULL); + tmp = copy_node(spec); + DECL_NAME(tmp) = DECL_NAME(spec); + TREE_TYPE(tmp) = 0; + STMT_SURROGATE_ATTR(tmp) = 1; + DECL_SOURCE_LINE(tmp) = lineno; + DECL_SOURCE_FILE(tmp) = input_filename; + PORT_OUTPUT_ATTR(tmp) = 0; + PORT_INPUT_ATTR(tmp) = 0; + PORT_COLLAPSED_ATTR(tmp) = 0; + NET_SOURCE(tmp) = NET_SOURCE(spec); /* thread me into source list */ + NET_SOURCE(spec) = tmp; + TREE_CHAIN(tmp) = spec; /* point back to original net */ + return tmp; + } +} + +/* Add a source to a net. It should be already qualified as a decl node. */ + +tree make_net_source(tree decl) +{ + tree tmp = copy_node(decl); + DECL_NAME(tmp) = DECL_NAME(decl); + TREE_TYPE(tmp) = 0; + STMT_SURROGATE_ATTR(tmp) = 1; + DECL_SOURCE_LINE(tmp) = lineno; + DECL_SOURCE_FILE(tmp) = input_filename; + PORT_OUTPUT_ATTR(tmp) = 0; + PORT_INPUT_ATTR(tmp) = 0; + PORT_COLLAPSED_ATTR(tmp) = 0; + NET_SOURCE(tmp) = NET_SOURCE(decl); /* thread me into source list */ + NET_SOURCE(decl) = tmp; + TREE_CHAIN(tmp) = decl; /* point back to original net */ + return tmp; +} + +/* Port might be a bit or part select. Since this is lval, it must be + a net, so it can't be an array ref. It is assumed that the port + is already tested for net-ness. */ + +tree check_lval_port(tree port) +{ + tree new_t; + tree t; + tree t1; + tree prev; + tree first; + + switch (TREE_CODE(port)) { + case BIT_REF: + new_t = copy_node(port); + BIT_REF_DECL(new_t) = make_net_source(BIT_REF_DECL(port)); + break; + + case PART_REF: + new_t = copy_node(port); + PART_DECL(new_t) = make_net_source(PART_DECL(port)); + break; + + /* If this is a concat, then each component needs to be copied */ + case CONCAT_REF: + new_t = copy_node(port); + prev = NULL_TREE; + first = NULL_TREE; + for (t = CONCAT_LIST(port); t; t = TREE_CHAIN(t)) { + t1 = build_tree_list(check_lval_port + (TREE_PURPOSE(t)), NULL_TREE); + if (first) { + TREE_CHAIN(prev) = t1; + } else { + first = t1; + } + prev = t1; + } + CONCAT_LIST(new_t) = first; + break; + + default: + new_t = make_net_source(port); + break; + } + return new_t; +} + +/* This is to support pass2; set the immediate attr in the right place */ + +void set_immediate_attr(tree port, int attr) +{ + tree t; + + switch (TREE_CODE(port)) { + case BIT_REF: + PORT_IMMEDIATE_ATTR(BIT_REF_DECL(port)) = attr; + break; + + case PART_REF: + PORT_IMMEDIATE_ATTR(PART_DECL(port)) = attr; + break; + + /* If this is a concat, then each component needs to be copied */ + case CONCAT_REF: + for (t = CONCAT_LIST(port); t; t = TREE_CHAIN(t)) { + set_immediate_attr(TREE_PURPOSE(t), attr); + } + break; + + default: + PORT_IMMEDIATE_ATTR(port) = attr; + break; + } +} + +tree check_rval(tree ident) +{ + extern int in_instantiation; /* defined in parse.y */ + tree decl = IDENT_CURRENT_DECL(ident); + enum tree_code code; + char *type; + + + if (!decl) { + /* There is no decl node if this is hierachical; also, don't complain + for systasks -- let them test it themselves in case of forward decls + that will not be resolved 'till pass3, like module names */ + if (HIERARCHICAL_ATTR(ident) || in_systask) { + return ident; + } else if (in_instantiation) { + return make_default_net(ident); + } else { + error("'%s' not declared", IDENT(ident), NULL_CHAR); + return error_mark_node; + } + } else if (decl == error_mark_node) { + return error_mark_node; + } else if (*tree_code_type[TREE_CODE(decl)] == 'b' && !in_systask) { /* module block */ + error("'%s' is a module type and is being usd illegally", + IDENT(ident), NULL_CHAR); + return error_mark_node; + } else if (TREE_CODE(decl) == EVENT_DECL && !in_event) { + error("'%s' is an EVENT type and is being used illegally", + IDENT(ident), NULL_CHAR); + return error_mark_node; + } else if (TREE_CODE(decl) == ARRAY_DECL && !in_systask) { + error("Illegal array reference: '%s'", IDENT(ident), NULL_CHAR); + + } else { + REFERENCED_ATTR(decl) = 1; + return decl; + } + + return error_mark_node; +} + +tree check_rval_nocheck(tree ident) +{ + tree decl = IDENT_CURRENT_DECL(ident); + + if (!decl) { + if (HIERARCHICAL_ATTR(ident)) { + return ident; + } else { + error("'%s' not declared", IDENT(ident), NULL_CHAR); + return error_mark_node; + } + } else if (decl == error_mark_node) { + return error_mark_node; + } else if (TREE_CODE(decl) == EVENT_DECL && !in_event) { + error("'%s' is an EVENT type and is being used illegally", + IDENT(ident), NULL_CHAR); + return error_mark_node; + } else { + REFERENCED_ATTR(decl) = 1; + return decl; + } +} + +tree check_block(tree ident) +{ + tree t = IDENT_CURRENT_DECL(ident); + + if (t) { + error("Block '%s' previously declared", IDENT(ident), NULL_CHAR); + return error_mark_node; + } + return ident; +} + +/* Bit reference (foo [i]) may be a bit select of a reg or net vector or + may be an array reference. */ + +tree build_bit_ref(tree decl, tree index) +{ + tree ident = DECL_NAME(decl); + tree node; + + if (decl == error_mark_node) { + return error_mark_node; + } + switch (TREE_CODE(decl)) { + case REG_SCALAR_DECL: + case NET_SCALAR_DECL: + case REG_VECTOR_DECL: + case NET_VECTOR_DECL: + case INTEGER_DECL: + case PARAM_DECL: + node = build_nt(BIT_REF, decl, index, NULL_TREE, ident); + TREE_LABEL(node) = TREE_LABEL(index); + TREE_SUB_LABEL(node) = TREE_SUB_LABEL(index); + return node; + case (ARRAY_DECL): + node = build_nt(ARRAY_REF, decl, index, NULL_TREE, ident); + TREE_LABEL(node) = TREE_LABEL(index); + TREE_SUB_LABEL(node) = TREE_SUB_LABEL(index); + TREE_INTEGER_ATTR(node) = TREE_INTEGER_ATTR(decl); + TREE_REAL_ATTR(node) = TREE_REAL_ATTR(decl); + return node; + case IDENTIFIER_NODE: /* for hierarchical reference. */ + node = build_nt(BIT_REF, decl, index, NULL_TREE, decl); + HIERARCHICAL_ATTR(node) = 1; + TREE_LABEL(node) = TREE_LABEL(index); + TREE_SUB_LABEL(node) = TREE_SUB_LABEL(index); + return node; + default: + error("'%s' is not of a type that supports bit indexing", + IDENT(ident), NULL_CHAR); + } + return error_mark_node; +} + +/* Part reference (foo [2:5]) must be a reg or a net vector. May also work + with integers, reals, and parameter, but this needs further investigation. + msb and lsb trees will already have been tested for constant expressions. */ + +tree build_part_ref(tree decl, tree msb, tree lsb) +{ + tree tmp; + tree ident = DECL_NAME(decl); + if (decl == error_mark_node) { + return error_mark_node; + } + + switch (TREE_CODE(decl)) { + case (REG_VECTOR_DECL): + case (NET_VECTOR_DECL): + case INTEGER_DECL: + case PARAM_DECL: + tmp = make_node(PART_REF); + PART_MSB_(tmp) = msb; + PART_LSB_(tmp) = lsb; + PART_NAME(tmp) = PART_DECL(tmp) = decl; + return tmp; + case (REG_SCALAR_DECL): + case (NET_SCALAR_DECL): + error("'%s' is not a vector", IDENT(ident), NULL_CHAR); + return error_mark_node; + case (ARRAY_DECL): + error + ("'%s' is an array; it cannot be be referenced as a part-select", + IDENT(ident), NULL_CHAR); + break; + case IDENTIFIER_NODE: /* for hierarchical reference */ + tmp = make_node(PART_REF); + PART_MSB_(tmp) = msb; + PART_LSB_(tmp) = lsb; + PART_NAME(tmp) = PART_DECL(tmp) = decl; + HIERARCHICAL_ATTR(tmp) = 1; + return tmp; + default: + error("'%s' is not of a type that supports part-selects", + IDENT(ident), NULL_CHAR); + } + return error_mark_node; +} + +tree build_function_call(tree ident, tree args) +{ + tree t = IDENT_CURRENT_DECL(ident), tmp; + + if (t) { + if (DECL_CONTEXT(t) == current_scope && + !(TREE_CODE(t) == BLOCK_DECL && + TREE_CODE(DECL_THREAD(t)) == FUNCTION_BLOCK)) { + error("The name '%s' is already used", IDENT(ident), + NULL_CHAR); + return error_mark_node; + } else if (t == error_mark_node) { + return error_mark_node; + } + } + tmp = build_nt(FUNCTION_REF, IDENTIFIER_POINTER(ident), args, + NULL_TREE, NULL_TREE, lineno, input_filename, + current_scope); + TREE_NBITS(tmp) = 1; /* default; if function not defined */ + return tmp; +} + +tree check_task(tree node) +{ + tree t = IDENT_CURRENT_DECL(node); + + if (t && DECL_CONTEXT(t) == current_scope) { + error("The name '%s' is previously declared", IDENT(node), + NULL_CHAR); + return error_mark_node; + } else if (t == error_mark_node) { + return error_mark_node; + } else { + return node; + } +} + +tree check_function(tree node) +{ + tree t = IDENT_CURRENT_DECL(node); + + if (t && DECL_CONTEXT(t) == current_scope) { + error("The name '%s' is already used", IDENT(node), NULL_CHAR); + return error_mark_node; + } else if (t == error_mark_node) { + return error_mark_node; + } else { + return node; + } +} + +tree check_reg(tree node) +{ + tree t = IDENT_CURRENT_DECL(node); + + if (t && (DECL_CONTEXT(t) == current_scope)) { + if (!PORT_INPUT_ATTR(t) && !PORT_OUTPUT_ATTR(t)) { + error("The name '%s' has already been declared", + IDENT(node), NULL_CHAR); + return error_mark_node; + } else if (PORT_REDEFINED_ATTR(t)) { + error("The port '%s' has already been redefined", + IDENT(node), NULL_CHAR); + return error_mark_node; + } else if (PORT_INPUT_ATTR(t) && + TREE_CODE(current_scope) == MODULE_BLOCK) { + error("Input port '%s' cannot be redefined as a REG", + IDENT(node), NULL_CHAR); + return error_mark_node; + } else if (t == error_mark_node) { + return error_mark_node; + } + } + return node; +} + +tree check_non_reg(tree node) +{ + tree t = IDENT_CURRENT_DECL(node); + + if (t && (DECL_CONTEXT(t) == current_scope)) { + error("The name '%s' has already been declared", + IDENT(node), NULL_CHAR); + return error_mark_node; + } else if (t == error_mark_node) { + return error_mark_node; + } else { + return node; + } +} + +tree check_net(tree node) +{ + tree t = IDENT_CURRENT_DECL(node); + + if (t && !PORT_INPUT_ATTR(t) && !PORT_OUTPUT_ATTR(t)) { + error("The name '%s' has already been declared", + IDENT(node), NULL_CHAR); + return error_mark_node; + } else if (t && PORT_REDEFINED_ATTR(t)) { + error("The port '%s' has already been redefined", + IDENT(node), NULL_CHAR); + return error_mark_node; + } else if (t == error_mark_node) { + return error_mark_node; + } else { + return node; + } +} + +/* Make sure INPUT/OUTPUT/INOUT identifier is legal. The critera is slighty + different for modules than for tasks and functions. */ + +tree check_port(tree node) +{ + tree t = IDENT_CURRENT_DECL(node); + + if (in_tf) { + if (t && (DECL_CONTEXT(t) == current_scope)) { + error("Port '%s' has already been declared", IDENT(node), + NULL_CHAR); + return error_mark_node; + } + /* If this is a module port, search the port + * list to make sure its in there. + */ + } else { + /* If the ident is listed in the port list, + * then it will either point + * to itself or point to a ref to itself. + */ + if (!t) { + error("'%s' is not in the port list", IDENT(node), NULL_CHAR); + return error_mark_node; + } else if (root_port_decl(t) != node) { + error("'%s' is not in the port list", IDENT(node), NULL_CHAR); + return error_mark_node; + } + return t; + } + + return node; +} + +tree check_named_event(tree ident) +{ + tree decl = IDENT_CURRENT_DECL(ident); + + if (HIERARCHICAL_ATTR(ident)) { + return ident; + } else if (!decl) { + error("Event '%s' is not defined\n", IDENT(ident), NULL_CHAR); + return error_mark_node; + } else if (TREE_CODE(decl) != EVENT_DECL) { + error("'%s' is not an EVENT type.\n", IDENT(ident), NULL_CHAR); + return error_mark_node; + } else { + return decl; + } +} + +tree double_check_named_event(tree decl) +{ + tree ident = DECL_NAME(decl); + + if (decl == error_mark_node) { + return decl; + } + + if (TREE_CODE(decl) != EVENT_DECL) { + error("'%s' is not an EVENT type", IDENT(ident), NULL_CHAR); + return error_mark_node; + } else { + return decl; + } +} + +/* In pass3, make sure that the referenced ident node points to a block_decl. + This cannot be checked at parse time because it may be a forward reference. + Return the pointed-to block if ok, else return error (note that + if NULL were returned on an error, a second error would be printed + about the scope not being found.) */ + +tree double_check_block(tree ident) +{ + tree decl = IDENT_CURRENT_DECL(ident); + + if (TREE_CODE(decl) != BLOCK_DECL) { + error("Illegal block reference '%s'", IDENT(ident), NULL_CHAR); + return error_mark_node; + } + return DECL_THREAD(decl); +} + +/* Insert type conversion instructions if necessary, return new rval tree */ + +tree implicit_conversion(tree lval, tree rval) +{ + /* test if rval is real but lval is not; convert to integer (bits) */ + if (!TREE_REAL_ATTR(lval) && TREE_REAL_ATTR(rval)) { + return build_unary_op(INT_CONV_EXPR, rval); + /* test if rval is not real, but lval is; convert to real */ + } else if (TREE_REAL_ATTR(lval) && !TREE_REAL_ATTR(rval)) { + return build_unary_op(REAL_CONV_EXPR, rval); + } else { + return rval; + } +} + +/************************************************************* + * + * init_check + * - initializes global and static variables for check.c + * + ************************************************************* + */ +void init_check() +{ + big_label = 0; +} diff --git a/src/check.h b/src/check.h new file mode 100644 index 0000000..a39f92b --- /dev/null +++ b/src/check.h @@ -0,0 +1,54 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* CHECK.H - CHECK.c routine prototypes */ + +#ifndef CHECK_H +#define CHECK_H + + +tree build_binary_op(enum tree_code code, tree op1, tree op2); +tree build_unary_op(enum tree_code code, tree op); +tree build_cond_expr(tree op1, tree op2, tree op3); +void concat_labels(tree node); +tree check_lval(tree node, enum lval_type lval_type, tree spec); +tree check_lval_nocheck(tree node, enum lval_type lval_type, tree spec); +tree make_net_source(tree decl); +tree check_lval_port(tree port); +void set_immediate_attr(tree port, int attr); +tree check_rval(tree ident); +tree check_rval_nocheck(tree ident); +tree check_block(tree ident); +tree build_bit_ref(tree decl, tree index); +tree build_part_ref(tree decl, tree msb, tree lsb); +tree build_function_call(tree ident, tree args); +tree check_task(tree node); +tree check_function(tree node); +tree check_reg(tree node); +tree check_non_reg(tree node); +tree check_net(tree node); +tree check_port(tree node); +tree check_named_event(tree ident); +tree double_check_named_event(tree decl); +tree double_check_block(tree ident); +tree implicit_conversion(tree lval, tree rval); +void init_check(void); + + +#endif // CHECK_H diff --git a/src/copy.cc b/src/copy.cc new file mode 100644 index 0000000..5a29f2b --- /dev/null +++ b/src/copy.cc @@ -0,0 +1,705 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* COPY.C - Copy structures for multiple module instances */ + +#include +#include "vtypes.h" +#include "tree.h" +#include "obstack.h" +#include "decl.h" +#include "schedule.h" +#include "scope.h" +#include "io.h" +#include "copy.h" +#include "veriwell.h" + +static void copy_assignment(tree dest_node, tree source_node); +static tree copy_delay(tree node); +static tree copy_cont_assigns(tree node); +static tree copy_instances(tree node); +static tree copy_decl(tree t); +static tree copy_decl_chain(tree node, int parameter); +static void copy_decl_defs(tree dest_scope, tree source_scope); +static tree substitute_new_decl(tree old_decl); +static tree copy_list(tree node); +static tree copy_tree(tree node); + + +extern tree current_scope; +static int in_lval = 0; +static tree current_gate; +static tree current_treelist; + +static void copy_assignment(tree dest_node, tree source_node) +{ + enum tree_code code = TREE_CODE(source_node); + + if (code != ASSIGN_CONT_STMT) { + STMT_ASSIGN_LVAL(dest_node) = + copy_tree(STMT_ASSIGN_LVAL(source_node)); + STMT_ASSIGN_RVAL(dest_node) = + copy_tree(STMT_ASSIGN_RVAL(source_node)); + } +} + +/* Copy delay expressions */ + +static tree copy_delay(tree node) +{ + tree new_node; + unsigned int i; + + if (!node) { + return NULL_TREE; + } + + new_node = copy_node(node); + for (i = 0; i < TREE_LABEL(new_node); i++) { + if (TREE_OPERAND(node, i)) { + TREE_OPERAND(new_node, i) = copy_tree(TREE_OPERAND(node, i)); + } + } + return new_node; +} + +/* Copy continuous assignments. NOTE: This does not distiguish between + continuous assignments and net assignments. */ + +static tree copy_cont_assigns(tree node) +{ + tree t; + tree t1; + tree new_node; + tree new_node_tree; + tree first = NULL_TREE; + tree prev = NULL_TREE; + tree new_lval; + + for (t1 = node; t1; t1 = TREE_CHAIN(t1)) { + t = TREE_PURPOSE(t1); + in_lval = 1; + if (TREE_CHAIN(t)) { + new_lval = copy_tree(STMT_ASSIGN_LVAL(TREE_CHAIN(t))); + NET_ASSIGN_ATTR(new_lval) = + NET_ASSIGN_ATTR(STMT_ASSIGN_LVAL(TREE_CHAIN(t))); + TREE_SET_TYPE(new_lval, TREE_TYPE + (STMT_ASSIGN_LVAL(TREE_CHAIN(t)))); + } else { + new_lval = copy_tree(STMT_ASSIGN_LVAL(t)); + NET_ASSIGN_ATTR(new_lval) = + NET_ASSIGN_ATTR(STMT_ASSIGN_LVAL(t)); + TREE_SET_TYPE(new_lval, TREE_TYPE(STMT_ASSIGN_LVAL(t))); + } + in_lval = 0; + new_node = build_cont_assign(new_lval, + copy_tree(STMT_ASSIGN_RVAL(t)), + STMT_SOURCE_LINE(t), + copy_delay(STMT_ASSIGN_DELAY(t)), + STMT_ASSIGN_DELAY(t) != NULL_TREE); + new_node_tree = build_tree_list(new_node, NULL_TREE); + if (!first) { + first = new_node_tree; + } else { + TREE_CHAIN(prev) = new_node_tree; + } + prev = new_node_tree; + } + return first; +} + +/* Copy INSTANCE_NODEs */ + +static tree copy_instances(tree node) +{ + tree t; + tree new_node; + tree first = NULL_TREE; + tree prev = NULL_TREE; + + for (t = node; t; t = TREE_CHAIN(t)) { + new_node = copy_node(t); + INSTANCE_PORTS(new_node) = copy_tree(INSTANCE_PORTS(t)); + INSTANCE_PARAMS(new_node) = copy_tree(INSTANCE_PORTS(t)); + if (!first) { + first = new_node; + } else { + TREE_CHAIN(prev) = new_node; + } + TREE_CHAIN(new_node) = NULL_TREE; + prev = new_node; + } + return first; +} + +static tree copy_decl(tree t) +{ + tree new_decl; + enum tree_code new_code; + + new_decl = copy_node(t); + new_code = TREE_CODE(new_decl); + if (TREE_CODE(t) == ARRAY_DECL) { + ARRAY_HI_EXPR(new_decl) = copy_tree(ARRAY_HI_EXPR(t)); + ARRAY_LO_EXPR(new_decl) = copy_tree(ARRAY_LO_EXPR(t)); + if (ARRAY_CODE(new_decl) == REG_VECTOR_DECL) { + DECL_MSB(new_decl) = copy_tree(DECL_MSB(t)); + DECL_LSB(new_decl) = copy_tree(DECL_LSB(t)); + } + } + DECL_CONTEXT(new_decl) = current_scope; + DECL_THREAD(new_decl) = DECL_THREAD(t); + if (new_code == NET_VECTOR_DECL || new_code == REG_VECTOR_DECL) { + DECL_MSB(new_decl) = copy_tree(DECL_MSB(t)); + DECL_LSB(new_decl) = copy_tree(DECL_LSB(t)); + } + + if (new_code == NET_VECTOR_DECL || new_code == NET_SCALAR_DECL) { + NET_SOURCE(new_decl) = NULL_TREE; + NET_DELAY(new_decl) = copy_tree(NET_DELAY(t)); + } else if (new_code == PARAM_DECL) { + DECL_PARAM_REDIRECT(new_decl) = NULL_TREE; + DECL_PARAM_RVAL(new_decl) = copy_tree(DECL_PARAM_RVAL(t)); + } + + set_decl(DECL_NAME(new_decl), new_decl); + return new_decl; +} + +/* scan a chain of decl nodes, make a copy, and set the ident node + to the new current decl */ + +static tree copy_decl_chain(tree node, int parameter) +{ + tree t; + tree new_decl; + tree prev_decl = NULL_TREE; + tree first_decl = NULL_TREE; + + for (t = node; t; t = TREE_CHAIN(t)) { + if (TREE_CODE(t) == BLOCK_DECL) { /* Don't copy block_decls */ + continue; + } + /* Either copy only parameters or no parameters */ + if (parameter) { + if (TREE_CODE(t) != PARAM_DECL) { + continue; + } + + } else { + if (TREE_CODE(t) == PARAM_DECL) { + continue; + } + } + new_decl = copy_decl(t); + if (!first_decl) { + first_decl = new_decl; + } else { + TREE_CHAIN(prev_decl) = new_decl; + } + TREE_CHAIN(new_decl) = NULL_TREE; + prev_decl = new_decl; + } + return first_decl; +} + +/* For the given block, copy the port list and the decl list. Then + go back and update the threads, since they are forward pointers + and must be updated in a second pass. */ + +static void copy_decl_defs(tree dest_scope, tree source_scope) +{ + tree t; + + /* First copy parameters */ + BLOCK_DECL(dest_scope) = NULL_TREE; + BLOCK_DECL(dest_scope) = copy_decl_chain(BLOCK_DECL(source_scope), 1); + + /* Copy ports first, since some ports are redefined as regs; we want + IDENT_CURRENT_DECL to reflect this */ + BLOCK_PORTS(dest_scope) = + copy_decl_chain(BLOCK_PORTS(source_scope), 0); + BLOCK_DECL(dest_scope) = + chainon(BLOCK_DECL(dest_scope), + copy_decl_chain(BLOCK_DECL(source_scope), 0)); + for (t = BLOCK_PORTS(dest_scope); t; t = TREE_CHAIN(t)) { + if (DECL_THREAD(t)) { + DECL_THREAD(t) = substitute_new_decl(DECL_THREAD(t)); + } + } + for (t = BLOCK_DECL(dest_scope); t; t = TREE_CHAIN(t)) { + if (DECL_THREAD(t)) { + DECL_THREAD(t) = substitute_new_decl(DECL_THREAD(t)); + } + } +} + +/* Given a reference to a decl of the module to be copied, return the + pointer of the newly copied decl. This is accomplished by looking at + the name of the decl and seeing what the new current decl is, since + the new current decl is set when the decl was copied. +*/ + +static tree substitute_new_decl(tree old_decl) +{ + if (!old_decl) { + return NULL_TREE; + } + if (IDENT_CURRENT_DECL(DECL_NAME(old_decl))) { + return (IDENT_CURRENT_DECL(DECL_NAME(old_decl))); + } else { + fatal + ("Attempting to copy a decl reference that does not exist: %s", + IDENT(DECL_NAME(old_decl))); + } + return NULL_TREE; /* won't get here (put here to avoid warnings */ +} + +static tree copy_list(tree node) +{ + tree t; + tree new_t; + tree first = NULL_TREE; + tree prev = NULL_TREE; + + for (t = node; t; t = TREE_CHAIN(t)) { + if (TREE_CODE(t) == TREE_LIST) { + new_t = build_tree_list(copy_tree + (TREE_PURPOSE(t)), + copy_tree(TREE_VALUE(t))); + } else { + new_t = copy_tree(t); + } + if (!first) { + first = new_t; + } else { + TREE_CHAIN(prev) = new_t; + } + prev = new_t; + } + return first; +} + +tree copy_block(tree node) +{ + enum tree_code code = TREE_CODE(node); + tree new_node; + tree up_scope; + + new_node = copy_node(node); + + /* Copy common block stuff */ + BLOCK_UP(new_node) = current_scope; + BLOCK_NAME(new_node) = BLOCK_NAME(node); + BLOCK_SOURCE_LINE(new_node) = BLOCK_SOURCE_LINE(node); + BLOCK_SOURCE_FILE(new_node) = BLOCK_SOURCE_FILE(node); + make_block_decl(BLOCK_NAME(new_node), current_scope, new_node); + up_scope = current_scope; + current_scope = new_node; + + /* Scan Module */ + + if (code == MODULE_BLOCK) { + INITIALIZED_ATTR(new_node) = 0; /* Allow pass2 to scan this */ + push_scope(); + MODULE_SPECINST(new_node) = NULL_TREE; + BLOCK_PARAM(new_node) = copy_tree(BLOCK_PARAM(node)); + copy_decl_defs(new_node, node); + BLOCK_DOWN(new_node) = NULL_TREE; + BLOCK_BODY(new_node) = copy_tree(BLOCK_BODY(node)); + BLOCK_DOWN(new_node) = chainon(BLOCK_DOWN(new_node), + copy_tree(BLOCK_DOWN(node))); + MODULE_ASSIGNMENTS(new_node) = copy_cont_assigns + (MODULE_ASSIGNMENTS(node)); + MODULE_PORT_LIST(new_node) = copy_tree(MODULE_PORT_LIST(node)); + BLOCK_UP(new_node) = NULL_TREE; + } else if (code == TASK_BLOCK || code == FUNCTION_BLOCK) { + /* Thread new sub block in */ + push_scope(); + copy_decl_defs(new_node, node); + DECL_THREAD(IDENT_CURRENT_DECL(BLOCK_NAME(new_node))) = new_node; + + if (code == FUNCTION_BLOCK) + FUNCT_DECL(current_scope) = copy_decl(FUNCT_DECL(node)); + + BLOCK_BODY(new_node) = copy_tree(BLOCK_BODY(node)); + BLOCK_DOWN(new_node) = copy_tree(BLOCK_DOWN(node)); + BLOCK_PARAM(new_node) = copy_tree(BLOCK_PARAM(node)); + } else if (code == NAMED_BLOCK) { + tree ident = BLOCK_NAME(new_node); + + /* Thread new sub block in */ + TREE_CHAIN(new_node) = BLOCK_DOWN(up_scope); + BLOCK_DOWN(up_scope) = new_node; + push_scope(); + /* Points BLOCK_DECL to block */ + copy_decl_defs(new_node, node); + DECL_THREAD(IDENT_CURRENT_DECL(ident)) = new_node; + BLOCK_BODY(new_node) = copy_tree(BLOCK_BODY(node)); + BLOCK_DOWN(new_node) = copy_tree(BLOCK_DOWN(node)); + BLOCK_PARAM(new_node) = copy_tree(BLOCK_PARAM(node)); + } + + current_scope = pop_scope(); + return new_node; +} + +/* Make a copy of a TREE LIST and everything under it. Return a pointer + to the head of the list. Note that although a TREE_LIST has three + operands, the third is always used to store generated code, so it is not + copied (generated code always occurs in pass3, after the module copy). +*/ + +static tree copy_tree(tree node) +{ + return copy_tree_with_stuff(node, NULL_TREE); +} + +/* recursively copy a node and everything under it. Return a pointer to + the head of the newly copied tree. */ + +tree copy_tree_with_stuff(tree node, tree stuff) +{ + enum tree_code code; // = TREE_CODE (node); + char *tree_type_ptr; // = tree_code_type [TREE_CODE (node)]; + tree new_node; + tree prev; + tree first; + int lval_save; + + if (!node) { + return NULL_TREE; + } + if ((unsigned long) node == 1) { + return (tree) 1; + } + code = TREE_CODE(node); + tree_type_ptr = tree_code_type[code]; + + switch (*tree_code_type[code]) { + case 'b': + /* Only copy one module; don't do sub modules and don't do + named blocks (named statement will generate one) */ + prev = first = NULL_TREE; + for (; node; node = TREE_CHAIN(node)) { + code = TREE_CODE(node); + if (code != MODULE_BLOCK && code != NAMED_BLOCK) { + new_node = copy_block(node); + if (prev) { + TREE_CHAIN(prev) = new_node; + } else { + first = new_node; + } + prev = new_node; + } + } + return first; + + case 'e': + new_node = copy_node(node); + switch (*++tree_type_ptr) { + case '3': + COND_EXPR(new_node) = copy_tree(COND_EXPR(node)); + COND_TRUE(new_node) = copy_tree(COND_TRUE(node)); + COND_FALSE(new_node) = copy_tree(COND_FALSE(node)); + break; + case 'x': + case '1': + case 's': + TREE_OPERAND(new_node, 1) = copy_tree(TREE_OPERAND(node, 1)); + case 'u': + case 'r': + default: + TREE_OPERAND(new_node, 0) = copy_tree(TREE_OPERAND(node, 0)); + break; + } /* switch 'e' */ + break; + + case 'r': + new_node = copy_node(node); + lval_save = in_lval; + switch (TREE_CODE(new_node)) { + case BIT_REF: + in_lval = 0; + BIT_EXPR(new_node) = copy_tree(BIT_EXPR(node)); + BIT_REF_NAME(new_node) = copy_tree(BIT_REF_NAME(node)); + in_lval = lval_save; + BIT_REF_DECL(new_node) = copy_tree(BIT_REF_DECL(node)); + break; + case ARRAY_REF: + in_lval = 0; + ARRAY_EXPR(new_node) = copy_tree(ARRAY_EXPR(node)); + ARRAY_REF_NAME(new_node) = copy_tree(ARRAY_REF_NAME(node)); + in_lval = lval_save; + ARRAY_REF_DECL(new_node) = copy_tree(ARRAY_REF_DECL(node)); + break; + case CONCAT_REP_REF: + CONCAT_EXPR(new_node) = copy_tree(CONCAT_EXPR(node)); + case CONCAT_REF: + CONCAT_LIST(new_node) = copy_tree(CONCAT_LIST(node)); + break; + case PART_REF: + in_lval = 0; + PART_MSB_(new_node) = copy_tree(PART_MSB_(node)); + PART_LSB_(new_node) = copy_tree(PART_LSB_(node)); + PART_NAME(new_node) = copy_tree(PART_NAME(node)); + in_lval = lval_save; + PART_DECL(new_node) = copy_tree(PART_DECL(node)); + break; + case SYSFUNCTION_REF: + case FUNCTION_REF: + FUNC_REF_ARGS(new_node) = copy_tree(FUNC_REF_ARGS(node)); + FUNC_REF_CONTEXT(new_node) = current_scope; + break; + } /* switch reference code */ + break; + + case 'd': + if (code == TMP_DECL) { + new_node = copy_node(node); + } else { + new_node = substitute_new_decl(node); + if (in_lval) { + /* Build a new driver for the continuous assignment. The parent + net has already been copied. Note that net assignments go + through here too, but that the NET_ASSIGN_ATTR was already set + in substitute_decl_node, as was the type. */ + new_node = check_lval(DECL_NAME(new_node), + LVAL_NET, new_node); + if (current_gate != NULL_TREE) { +// NET_ASSIGNMENT( new_node ) = current_gate; + NET_ASSIGNMENT(new_node) = current_treelist; + } + } + } + break; + + case 'c': + case 'x': + if (code == IDENTIFIER_NODE) { + new_node = node; + } else { + new_node = copy_node(node); + } + if (TREE_CODE(new_node) == TREE_LIST) { + current_treelist = new_node; + TREE_PURPOSE(new_node) = copy_tree(TREE_PURPOSE(node)); + if (current_gate != NULL) { + GATE_TERMINAL_GATE(new_node) = current_gate; + } else { + TREE_VALUE(new_node) = copy_tree(TREE_VALUE(node)); + } + TREE_CHAIN(new_node) = copy_tree(TREE_CHAIN(node)); + } + break; + + + case 'g': + case 's': + prev = first = NULL_TREE; + for (; node; node = TREE_CHAIN(node)) { + code = TREE_CODE(node); + /* Always and initials are headed by TREE_LISTs; get here if + INSTANCE_NODEs are first, otherwise TREE_LIST gets copied + somewhere else. */ + new_node = copy_node(node); + if (prev) { + TREE_CHAIN(prev) = new_node; + } + if (!first) { + first = new_node; + } + prev = new_node; + + if (TREE_CODE(node) == TREE_LIST) { + TREE_PURPOSE(new_node) = copy_tree(TREE_PURPOSE(node)); + TREE_VALUE(new_node) = copy_tree(TREE_VALUE(node)); + continue; + } else if (*tree_code_type[TREE_CODE(node)] != 's' && + *tree_code_type[TREE_CODE(node)] != 'g') { + printf_V("coping non-statement in statement chain"); + } + + if (*tree_code_type[TREE_CODE(node)] == 'g') { + GATE_SCOPE(new_node) = current_scope; + } else { + STMT_SCOPE(new_node) = current_scope; + } + switch (TREE_CODE(new_node)) { + case ALWAYS_BLOCK: + case INITIAL_BLOCK: + case BEGIN_STMT: + case FOREVER_STMT: + case DEASSIGN_STMT: + case RELEASE_STMT: + case ARROW_STMT: + STMT_BODY(new_node) = copy_tree(STMT_BODY(node)); + break; + case BEGIN_NAMED_STMT: + case FORK_NAMED_STMT: + STMT_BLOCK(new_node) = copy_block(STMT_BLOCK(node)); + /* decls have already been copied */ + set_scope(STMT_BLOCK(new_node)); + STMT_BODY(new_node) = copy_tree(STMT_BODY(node)); + current_scope = pop_scope(); + break; + case FORK_STMT: + STMT_BODY(new_node) = copy_tree(STMT_BODY(node)); + break; + case END_STMT: + case END_NAMED_STMT: + case JOIN_STMT: + case JOIN_NAMED_STMT: + break; + case ASSIGN_PROC_STMT: + case ASSIGN_STMT: + copy_assignment(new_node, node); + break; + case ASSIGN_DELAY_STMT: + case ASSIGN_NONBLK_DELAY_STMT: + copy_assignment(new_node, node); + STMT_ASSIGN_DELAY(new_node) = + copy_delay(STMT_ASSIGN_DELAY(node)); + break; + case ASSIGN_EVENT_STMT: + case ASSIGN_NONBLK_EVENT_STMT: + copy_assignment(new_node, node); + STMT_ASSIGN_EVENT(new_node) = + copy_tree(STMT_ASSIGN_DELAY(node)); + break; + case IF_STMT: + STMT_COND(new_node) = copy_tree(STMT_COND(node)); + STMT_THEN(new_node) = copy_tree(STMT_THEN(node)); + STMT_ELSE(new_node) = copy_tree(STMT_ELSE(node)); + break; + case WHILE_STMT: + STMT_BODY(new_node) = copy_tree(STMT_BODY(node)); + STMT_WHILE_COND(new_node) = + copy_tree(STMT_WHILE_COND(node)); + break; + case REPEAT_INIT_STMT: + STMT_REPEAT_EXPR(new_node) = + copy_tree(STMT_REPEAT_EXPR(node)); + STMT_BODY(new_node) = + copy_tree_with_stuff(STMT_BODY(node), new_node); + break; + case REPEAT_STMT: + STMT_REPEAT_EXPR(new_node) = + copy_tree(STMT_REPEAT_EXPR(node)); + STMT_BODY(new_node) = stuff; + break; + case FOR_STMT: + if (!STMT_SURROGATE_ATTR(node)) { + STMT_FOR_ASSIGN(new_node) = + copy_tree(STMT_FOR_ASSIGN(node)); + STMT_FOR_COND(new_node) = + copy_tree(STMT_FOR_COND(node)); + STMT_BODY(new_node) = + copy_tree_with_stuff(STMT_BODY(node), new_node); + } else { + STMT_FOR_ASSIGN(new_node) = + copy_tree(STMT_FOR_ASSIGN(node)); + STMT_FOR_COND(new_node) = STMT_FOR_COND(stuff); + STMT_BODY(new_node) = STMT_BODY(stuff); + TREE_CHAIN(new_node) = stuff; + return first; + } + break; + case CASE_STMT: + case CASEX_STMT: + case CASEZ_STMT: + STMT_CASE_EXPR(new_node) = copy_tree(STMT_CASE_EXPR(node)); + STMT_CASE_LIST(new_node) = copy_tree(STMT_CASE_LIST(node)); + STMT_CASE_DEFAULT(new_node) = + copy_tree(STMT_CASE_DEFAULT(node)); + break; + case DELAY_STMT: + STMT_DELAY_EXPR(new_node) = + copy_tree(STMT_DELAY_EXPR(node)); + STMT_BODY(new_node) = copy_tree(STMT_BODY(node)); + break; + case WAIT_STMT: + STMT_WAIT_EXPR(new_node) = copy_tree(STMT_WAIT_EXPR(node)); + STMT_BODY(new_node) = copy_tree(STMT_BODY(node)); + break; + case EVENT_STMT: + STMT_EVENT_EXPR_LIST(new_node) = + copy_tree(STMT_EVENT_EXPR_LIST(node)); + STMT_BODY(new_node) = copy_tree(STMT_BODY(node)); + STMT_EVENT_MARKER(new_node) = NULL; + break; + case FORCE_STMT: + copy_assignment(new_node, node); + break; + case DISABLE_STMT: + break; /* STMT_DISABLE_NAME copied by default */ + case TASK_STMT: + case SYSTASK_STMT: + STMT_TASK_ARGS(new_node) = copy_tree(STMT_TASK_ARGS(node)); + break; + case NULL_STMT: + break; + case INSTANCE_NODE: + INSTANCE_PORTS(new_node) = copy_tree(INSTANCE_PORTS(node)); + INSTANCE_PARAMS(new_node) = + copy_tree(INSTANCE_PARAMS(node)); + break; + case GATE_INSTANCE: + in_lval = 1; + current_gate = new_node; + GATE_OUTPUT_LIST(new_node) = + copy_tree(GATE_OUTPUT_LIST(node)); + in_lval = 0; + GATE_INPUT_LIST(new_node) = + copy_tree(GATE_INPUT_LIST(node)); + current_gate = NULL; + GATE_DELAY(new_node) = copy_tree(GATE_DELAY(node)); + break; + default: + fatal("Fatal error: Attempt to copy unknown statement", + NULL); + } + + } /* for */ + return first; + break; + + default: + if (node == (tree) ALWAYS_CODE) { + return (tree) ALWAYS_CODE; + } + fatal("Fatal: Unexpected structure encountered" + " during module copy", NULL); + } + return new_node; +} + +/**************************************************************** + * + * init_copy + * - initialize global and static variables for copy.c + * + **************************************************************** + */ + +void init_copy() +{ + in_lval = 0; + current_gate = NULL; +} diff --git a/src/copy.h b/src/copy.h new file mode 100644 index 0000000..d522a7c --- /dev/null +++ b/src/copy.h @@ -0,0 +1,30 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* COPY.H - Copy.c routine prototypes */ + +#ifndef COPY_H +#define COPY_H + + +tree copy_block(tree node); +tree copy_tree_with_stuff(tree node, tree stuff); +void init_copy(void); + +#endif // COPY_H diff --git a/src/decl.cc b/src/decl.cc new file mode 100644 index 0000000..725e4a3 --- /dev/null +++ b/src/decl.cc @@ -0,0 +1,403 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* DECL.C - Declaration node generation and utilities */ + + +#include "glue.h" +#include +#include "vtypes.h" +#include "tree.h" +#include "decl.h" +#include "flags.h" /* needed for "default_net_type" */ +#include "scope.h" +#include "schedule.h" +#include "pass2.h" + +/* Node for the integer constant 0 */ +tree integer_zero_node; + +/* Node for the integer constant 1 */ +tree integer_one_node; + +/* Node for the single-bit 0 */ +tree bit_zero_node; + +/* Node for the single-bit 1 */ +tree bit_one_node; + +/* Node to mark an error */ +tree error_mark_node; + +static void replace_port(tree here, tree ident, tree node) +{ + switch (TREE_CODE(TREE_PURPOSE(here))) { + case IDENTIFIER_NODE: + if (TREE_PURPOSE(here) == ident) { + TREE_PURPOSE(here) = node; + } + break; + case REG_SCALAR_DECL: + case REG_VECTOR_DECL: + case NET_SCALAR_DECL: + case NET_VECTOR_DECL: + if (DECL_NAME(TREE_PURPOSE(here)) == ident) { + PORT_OUTPUT_ATTR(node) = PORT_OUTPUT_ATTR(TREE_PURPOSE(here)); + PORT_INPUT_ATTR(node) = PORT_INPUT_ATTR(TREE_PURPOSE(here)); + TREE_PURPOSE(here) = node; + } + break; + case PART_REF: + if (TREE_PURPOSE(here) == ident) { + PART_DECL(TREE_PURPOSE(here)) = node; + PORT_OUTPUT_ATTR(TREE_PURPOSE(here)) = PORT_OUTPUT_ATTR(node); + PORT_INPUT_ATTR(TREE_PURPOSE(here)) = PORT_INPUT_ATTR(node); + HIERARCHICAL_ATTR(TREE_PURPOSE(here)) = 0; /* set in check */ + } + break; + case BIT_REF: + if (TREE_PURPOSE(here) == ident) { + BIT_REF_DECL(TREE_PURPOSE(here)) = node; + PORT_OUTPUT_ATTR(node) = PORT_OUTPUT_ATTR(TREE_PURPOSE(here)); + PORT_INPUT_ATTR(node) = PORT_INPUT_ATTR(TREE_PURPOSE(here)); + HIERARCHICAL_ATTR(TREE_PURPOSE(here)) = 0; /* set in check */ + } + break; + } +} + +/* Search list of ports, find IDENT, and replace with NODE. Ident may + been replaced once before with a NET. */ + +void redirect_port(tree ident, tree node) +{ + tree t; + tree t1; + + for (t = MODULE_PORT_LIST(current_scope); t; t = TREE_CHAIN(t)) { + if (TREE_CODE(TREE_PURPOSE(t)) == TREE_LIST) { + for (t1 = TREE_PURPOSE(t); t1; t1 = TREE_CHAIN(t1)) { + replace_port(t1, ident, node); + } + } else { + replace_port(t, ident, node); + } + } +} + +tree make_net_spec(enum tree_type net_type, tree range, tree delay) +{ + tree node; + + if (range == NULL) { + node = make_node(NET_SCALAR_DECL); + } else { + node = make_node(NET_VECTOR_DECL); + DECL_MSB(node) = TREE_OPERAND(range, 0); + DECL_LSB(node) = TREE_OPERAND(range, 1); + } + DECL_CONTEXT(node) = current_scope; + NET_DELAY(node) = delay; + TREE_TYPE(node) = net_type; + NET_SOURCE(node) = NULL_TREE; + return node; +} + +tree make_reg_spec(tree range) +{ + tree node; + + if (range == NULL) { + node = make_node(REG_SCALAR_DECL); + } else { + node = make_node(REG_VECTOR_DECL); + DECL_MSB(node) = TREE_OPERAND(range, 0); + DECL_LSB(node) = TREE_OPERAND(range, 1); + } + DECL_CONTEXT(node) = current_scope; + return node; +} + +tree make_integer_spec(tree range) +{ + tree node; + + node = make_node(INTEGER_DECL); + if (range == NULL) { + DECL_MSB(node) = NULL_TREE; + DECL_LSB(node) = NULL_TREE; + } else { + DECL_MSB(node) = TREE_OPERAND(range, 0); + DECL_LSB(node) = TREE_OPERAND(range, 1); + } + DECL_CONTEXT(node) = current_scope; + TREE_INTEGER_ATTR(node) = 1; + return node; +} + +tree make_real_spec(tree range) +{ + tree node; + + node = make_node(REAL_DECL); + if (range == NULL) { + DECL_MSB(node) = NULL_TREE; + DECL_LSB(node) = NULL_TREE; + } else { + DECL_MSB(node) = TREE_OPERAND(range, 0); + DECL_LSB(node) = TREE_OPERAND(range, 1); + } + DECL_CONTEXT(node) = current_scope; + TREE_REAL_ATTR(node) = 1; + return node; +} + +tree make_time_spec(tree range) +{ + tree node; + + node = make_node(TIME_DECL); + if (range == NULL) { + DECL_MSB(node) = NULL_TREE; + DECL_LSB(node) = NULL_TREE; + } else { + DECL_MSB(node) = TREE_OPERAND(range, 0); + DECL_LSB(node) = TREE_OPERAND(range, 1); + } + DECL_CONTEXT(node) = current_scope; + return node; +} + +tree make_event_spec() +{ + tree node = make_node(EVENT_DECL); + DECL_CONTEXT(node) = current_scope; + return node; +} + +tree make_param_spec(tree range) +{ + tree node = make_node(PARAM_DECL); + + TREE_CONSTANT_ATTR(node) = 1; /* treat parameter as a constant */ + if (range == NULL) { + DECL_MSB(node) = NULL_TREE; + DECL_LSB(node) = NULL_TREE; + } else { + DECL_MSB(node) = TREE_OPERAND(range, 0); + DECL_LSB(node) = TREE_OPERAND(range, 1); + } + DECL_CONTEXT(node) = current_scope; + return node; +} + +/* Take a declaration and assign a name to it and possible array bounds. + If more than one name associated with a declarations (reg [31:0] a, b, c) + copy the original node. */ + +tree make_decl(tree ident, tree spec, tree hibounds, tree lobounds) +{ + tree node = spec; + tree decl; + + if (ident == error_mark_node) { + return copy_node(error_mark_node); + } + + /* + * if no name associated with declaration, + * use this node, else make a copy + */ + if (DECL_NAME(node) != NULL_TREE) { + node = copy_node(node); + } + DECL_NAME(node) = root_port_name(ident); /* Give it a name */ + + if (TREE_CODE(node) == NET_SCALAR_DECL || + TREE_CODE(node) == NET_VECTOR_DECL) { + NET_SOURCE(node) = NULL_TREE; + /* Make sure TRI1 and TRI0 get scheduled to be eval'ed in time 0, + * Do this by making a dummy driver; con't assgn initialization + * will know what to do. + */ + if (TREE_TYPE(node) == NET_TRI1_TYPE || + TREE_TYPE(node) == NET_TRI0_TYPE || + TREE_TYPE(node) == NET_SUPPLY0_TYPE || + TREE_TYPE(node) == NET_SUPPLY1_TYPE) { + add_cont_assign_list(make_net_source(node)); + } + } + + /* If this is an array, build a new node with array bounds */ + if (hibounds) { /* implies both hi and lo are non-null */ + node = build_array(ident, node, hibounds, lobounds); + } + + /* If current_decl of ident is non-NULL, then it is either a port + being declared for the first time (with INPUT, OUTPUT, INOUT), + or it is a redeclaration of a declared port (to qualify the net type, + the size, or to turn it into a REG). */ + + /* If this is a redeclaration of a port, go back to the port list and + make it point to the new DECL node. */ + + decl = IDENT_CURRENT_DECL(ident); + + if (decl) { + /* Case 1, we are at the INPUT, OUTPUT, or INOUT decl; + * search for the port and redeclare as a net with the + * proper width, etc. + */ + if (TREE_CODE(root_port_decl(ident)) == IDENTIFIER_NODE) { + redirect_port(ident, node); + /* Case 2: previously declared as a port, + * this is the explicit declaration (WIRE, REG, etc.) + */ + } else if (TREE_CODE(decl) != BLOCK_DECL && DECL_CONTEXT(decl) == DECL_CONTEXT(node)) { /* 2nd time decl */ + if (REFERENCED_ATTR(decl)) { + error("Redeclared port '%s' has already been referenced", + IDENT(ident), NULL_CHAR); + } + DECL_THREAD(decl) = node; + PORT_REDEFINED_ATTR(decl) = 1; + PORT_INPUT_ATTR(node) = PORT_INPUT_ATTR(decl); + PORT_OUTPUT_ATTR(node) = PORT_OUTPUT_ATTR(decl); + } + } + set_decl(root_port_name(ident), node); + return node; +} + +tree make_param_decl(tree ident, tree spec, tree rval) +{ + tree node = spec; + /* + * if no name associated with declaration, + * use this node, else make a copy + */ + if (DECL_NAME(node) != NULL_TREE) { + node = copy_node(node); + } + DECL_NAME(node) = ident; /* Give it a name */ + set_decl(ident, node); + DECL_PARAM_RVAL(node) = rval; + DECL_PARAM_REDIRECT(node) = NULL_TREE; + TREE_CONSTANT_ATTR(node) = 1; + return node; +} + +/* make a decl for a named BLOCK or task or function */ + +tree make_block_decl(tree ident, tree context, tree block) +{ + tree decl = make_node(BLOCK_DECL); + + if (ident == error_mark_node) { + return ident; + } + DECL_CONTEXT(decl) = context; + DECL_THREAD(decl) = block; + DECL_NAME(decl) = ident; + set_decl(ident, decl); + TREE_CHAIN(decl) = BLOCK_DECL(context); + BLOCK_DECL(context) = decl; + return ident; +} + +/* Used for implied declarations of nets */ + +tree make_default_net(tree ident) +{ + tree spec = make_net_spec(default_net_type, NULL_TREE, NULL_TREE); + tree decl = make_decl(ident, spec, NULL_TREE, NULL_TREE); + + BLOCK_DECL(current_scope) = chainon(decl, BLOCK_DECL(current_scope)); + REFERENCED_ATTR(decl) = 1; + return decl; +} + +/* Make a TMP_DECL node for statements that use intermediate values */ + +static tree tmp_decl_free = NULL; + +tree make_tmp_decl(tree lval) +{ + tree tmp; + if (tmp_decl_free) { + tmp = tmp_decl_free; + tmp_decl_free = DECL_THREAD(tmp_decl_free); + DECL_THREAD(tmp) = NULL; + } else { + tmp = make_node(TMP_DECL); + } + TREE_CHAIN(tmp) = lval; + pass3_decl(tmp); + return tmp; +} + +void free_tmp_decl(tree tmp) +{ + free(DECL_STORAGE(tmp)); + DECL_THREAD(tmp) = tmp_decl_free; + tmp_decl_free = tmp; +} + +tree root_port_decl(tree node) +{ + switch (TREE_CODE(node)) { + case PART_REF: + return PART_DECL(node); + case BIT_REF: + return BIT_REF_DECL(node); + case IDENTIFIER_NODE: + return IDENT_CURRENT_DECL(node); + } + return node; +} + +tree root_port_name(tree node) +{ + switch (TREE_CODE(node)) { + case PART_REF: + return PART_NAME(node); + case BIT_REF: + return BIT_REF_NAME(node); + case IDENTIFIER_NODE: + return node; + } + return node; +} + +/************************************************************** + * + * init_decl + * - initialize global and static variables in decl.c + * + ************************************************************** + */ + +void init_decl() +{ + tmp_decl_free = NULL; + integer_zero_node = NULL_TREE; + integer_one_node = NULL_TREE; + bit_zero_node = NULL_TREE; + bit_one_node = NULL_TREE; + error_mark_node = NULL_TREE; +} diff --git a/src/decl.h b/src/decl.h new file mode 100644 index 0000000..293a645 --- /dev/null +++ b/src/decl.h @@ -0,0 +1,49 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* DECL.H - Decl and Check routine prototypes */ + +#ifndef DECL_H +#define DECL_H + +extern tree integer_zero_node; +extern tree integer_one_node; +extern tree current_scope; + +void set_decl(tree, tree); +tree make_net_spec(enum tree_type, tree, tree); +tree make_reg_spec(tree); +tree make_integer_spec(tree); +tree make_real_spec(tree); +tree make_time_spec(tree); +tree make_event_spec(void); +tree make_decl(tree, tree, tree, tree); +tree make_param_spec(tree); +tree make_param_decl(tree, tree, tree); +tree make_block_decl(tree, tree, tree); +tree make_default_net(tree); +void init_decl(void); +tree root_port_decl(tree); +tree root_port_name(tree); +void redirect_port(tree ident, tree node); +tree make_tmp_decl(tree lval); +void free_tmp_decl(tree tmp); + + +#endif // DECL_H diff --git a/src/defaultveriuser.cc b/src/defaultveriuser.cc new file mode 100644 index 0000000..7b81c3e --- /dev/null +++ b/src/defaultveriuser.cc @@ -0,0 +1,60 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* VERIUSER.C - PLI user routine hooks */ + +/* Filename: veriuser.c */ +#define VERIUSER_C + +#if HAVE_CONFIG_H +# include +#endif +#include "veriuser.h" +#include "acc_user.h" + +extern "C" { + int lxt_recordvars( int data, int reason ); + int lxt_recordon( int data, int reason ); + int lxt_recordoff( int data, int reason ); + int lxt_recordclose( int data, int reason ); + int lxt_recordfile( int data, int reason ); + int lxt_recordsetup( int data, int reason ); +} + +char *veriuser_version_str = "" +#ifdef HAVE_LXT + "lxt support compiled in\n\n" +#endif +; + int (*endofcompile_routines[]) () = { + /*** my_eoc_routine, ***/ + 0 /*** final entry must be 0 ***/ +}; + +s_tfcell veriusertfs[] = { +#ifdef HAVE_LXT + { usertask, 0, lxt_recordvars, 0, lxt_recordvars, lxt_recordvars, "$lxt_recordvars" }, + { usertask, 0, lxt_recordon, 0, lxt_recordon, lxt_recordon, "$lxt_recordon" }, + { usertask, 0, lxt_recordoff, 0, lxt_recordoff, lxt_recordoff, "$lxt_recordoff" }, + { usertask, 0, lxt_recordclose, 0, lxt_recordclose, lxt_recordclose, "$lxt_recordclose" }, + { usertask, 0, lxt_recordfile, 0, lxt_recordfile, lxt_recordfile, "$lxt_recordfile" }, + { usertask, 0, lxt_recordsetup, 0, lxt_recordsetup, lxt_recordsetup, "$lxt_recordsetup" }, +#endif + {0} +}; diff --git a/src/dumpvar.cc b/src/dumpvar.cc new file mode 100644 index 0000000..3f596fd --- /dev/null +++ b/src/dumpvar.cc @@ -0,0 +1,477 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* DUMPVAR.C - Value change dump file routines ($dumpvars, etc.) */ + +#include +#include +#include "glue.h" +#include "vtypes.h" +#include "tree.h" +#include "schedule.h" +#include "print.h" +#include "dumpvar.h" +#include "veriwell.h" +#include "timescal.h" + +struct Dump dumpvar; +static FILE *dumpfile; + + +static void dumpvars_scope(tree scope); +static char *dumpvars_xlate(int index); +static void dumpvars_printscope(tree scope); +static void dumpvars_printscopes(tree scope, int level); +static void dumpvars_printvar(Marker * marker, Marker * prev); +static int dumpvars_inside_scopes(tree scope, int scan_only); +static int dumpvars_printvars(tree scope, int level); +static void dumpvars_time(void); +static void dumpvars_print_val(tree decl, int index); +static void dumpvars_dump_all(void); + + + +/* Build a VCD marker on a qualified decl node */ + +void dumpvars_mark(tree node) +{ + struct Marker_info marker_info; + + marker_info.first = dumpvar.markers_first; + marker_info.last = dumpvar.markers_last; + marker_info.delay = NULL; + marker_info.current_scb = readylist; + marker_info.flags = M_VCD; + BuildMarker(node, &marker_info); + dumpvar.markers_first = marker_info.first; + dumpvar.markers_last = marker_info.last; +} + +/* Mark all of the dump-able vars in a scope */ + +static void dumpvars_scope(tree scope) +{ + tree decl; + tree dummy; + + for (decl = BLOCK_PORTS(scope); decl; decl = TREE_CHAIN(decl)) { + if (!PORT_REDEFINED_ATTR(decl)) { + if (is_var(decl, &dummy)) { + dumpvars_mark(decl); + } + } + } + + for (decl = BLOCK_DECL(scope); decl; decl = TREE_CHAIN(decl)) { + if (is_var(decl, &dummy)) { + dumpvars_mark(decl); + } + } +} + +/* recursively traverse hierarchy to "level" levels and marks all the decls + in each scope */ + +void dumpvars_scope_down(tree scope, int level) +{ + tree s; + + dumpvars_scope(scope); + /* Do tasks, functions, and named block w/out regard for level */ + for (s = BLOCK_DOWN(scope); s; s = TREE_CHAIN(s)) { + if (*tree_code_type[TREE_CODE(s)] == 'b') { + if (TREE_CODE(s) != MODULE_BLOCK) { + dumpvars_scope_down(s, level); + } + } + } + + if (!--level) { + return; + } + + /* Go down to instantiated blocks */ + for (s = BLOCK_DOWN(scope); s; s = TREE_CHAIN(s)) { + if (*tree_code_type[TREE_CODE(s)] == 'b') { + if (TREE_CODE(s) == MODULE_BLOCK) { + dumpvars_scope_down(s, level); + } + } + } +} + + +void dumpvars_all(void) +{ + tree s; + + for (s = top_level; s; s = TREE_CHAIN(s)) { + dumpvars_scope_down(s, 4000); + } +} + +void dumpvars_enable(void) +{ + Marker *marker; + + dumpvar.enabled = 1; + for (marker = dumpvar.printed; marker; marker = marker->link) { + thread_marker(marker); + } +} + +void dumpvars_disable(void) +{ + Marker *marker; + + dumpvar.enabled = 0; + for (marker = dumpvar.printed; marker; marker = marker->link) { + REMOVE_LIST(marker); + } +} + +/* translate the index into ascii characters from the legal char set + (33-126) */ + +#define XLATE_START 33 +#define XLATE_END 126 + +static char *dumpvars_xlate(int index) +{ + int num_ascii = XLATE_END - XLATE_START + 1; + int i = 0; + int accum = index; + int offset; + static char buffer[5]; + + do { + offset = accum % num_ascii; + buffer[i++] = offset + XLATE_START; + accum /= num_ascii; + } + while (accum > 0); + buffer[i] = '\0'; + return buffer; +} + +/* Print a $scope line */ + +static void dumpvars_printscope(tree scope) +{ + enum tree_code code = TREE_CODE(scope); + + fprintf(dumpfile, "\n$scope "); + switch (code) { + case MODULE_BLOCK: + fprintf(dumpfile, "module"); + break; + case NAMED_BLOCK: + fprintf(dumpfile, "begin"); + break; + case TASK_BLOCK: + fprintf(dumpfile, "task"); + break; + case FUNCTION_BLOCK: + fprintf(dumpfile, "function"); + break; + } + fprintf(dumpfile, " %s $end\n", IDENT(BLOCK_NAME(scope))); +} + +/* Print one or more $scope lines. Go up "level" levels + and start from there. */ + +static void dumpvars_printscopes(tree scope, int level) +{ + int i; + int j; + tree s; + + for (i = level; i; i--) { + s = scope; + for (j = i; j; j--) { + s = BLOCK_UP(s); + } + dumpvars_printscope(s); + } + dumpvars_printscope(scope); +} + +static void dumpvars_printvar(Marker * marker, Marker * prev) +{ + tree decl = marker->decl; + int index = marker->expr.vcd_id; + enum tree_code code = TREE_CODE(decl); + Marker *tmp; + + fprintf(dumpfile, "$var %-5s %5ld %-4s %s ", + decl_type(decl), TREE_NBITS(decl), dumpvars_xlate(index), + IDENT(DECL_NAME(decl))); + if (code == REG_VECTOR_DECL || code == NET_VECTOR_DECL) { + fprintf(dumpfile, "[%d:%d]", MSB(decl), LSB(decl)); + } + fprintf(dumpfile, " $end\n"); + + /* Thread onto "printed" list */ + tmp = marker->link; + marker->link = dumpvar.printed; + dumpvar.printed = marker; + /* Take off of unprinted list */ + if (prev) { + prev->link = tmp; + } else { + dumpvar.unprinted = tmp; /* head of the list case */ + } +} + +static int dumpvars_inside_scopes(tree scope, int scan_only) +{ + Marker *marker; + Marker *prev; + Marker *next; + tree s; + int printed_something = 0; + int printed_scope = 0; + + for (s = BLOCK_DOWN(scope); s; s = TREE_CHAIN(s)) { + if (TREE_CODE(s) != MODULE_BLOCK) { + if (!scan_only) { + dumpvars_printscope(s); + printed_scope = 1; + } + + prev = NULL; + for (marker = dumpvar.unprinted; marker; marker = next) { + next = marker->link; /* do now,since printvar will change link */ + if (DECL_CONTEXT(marker->decl) == s) { + printed_something = 1; + if (!scan_only) { + dumpvars_printvar(marker, prev); + } + } else { + prev = marker; /* previous marker not printed out */ + } + } + + printed_something |= dumpvars_inside_scopes(s, scan_only); + if (printed_scope) { + fprintf(dumpfile, "$upscope $end\n\n"); + } + } + } + return printed_something; +} + +/* Recursively print the scopes and vars to "level" levels */ + +static int dumpvars_printvars(tree scope, int level) +{ + Marker *marker; + Marker *prev = NULL; + Marker *next; + tree s; + int printed_something = 0; + + for (marker = dumpvar.unprinted; marker; marker = next) { + next = marker->link; /* Do now; printvar will change link */ + if (DECL_CONTEXT(marker->decl) == scope) { + if (!printed_something) { + dumpvars_printscopes(scope, level); + printed_something = 1; + } + dumpvars_printvar(marker, prev); + } else { + prev = marker; + } + } + /* This keeps track of what scopes have been printed */ + if (printed_something) { + level = 0; + } else { + level++; + } + + /* Go down to child modules; do lower scopes later */ + for (s = BLOCK_DOWN(scope); s; s = TREE_CHAIN(s)) { + if (TREE_CODE(s) == MODULE_BLOCK) { + printed_something |= dumpvars_printvars(s, level); + } + } + + /* If something in this module or a lower has been printed (dumped) + then go ahead and print all of the lower scopes, + regardless of whether there is something to be printed */ + + if (printed_something) { + dumpvars_inside_scopes(scope, 0); + } else { + if (dumpvars_inside_scopes(scope, 1)) { + printed_something = 1; + dumpvars_inside_scopes(scope, 0); + } + } + if (printed_something) { + fprintf(dumpfile, "$upscope $end\n\n"); + } + return printed_something; +} + +int dumpvars_header(tree node) +{ + tree scope; + Marker *marker; + int id = 0; + time_t t = time(NULL); + int units; + int prec; /* for timescale for header */ + char timebuf[100]; + + for (marker = dumpvar.unprinted; marker; marker = marker->link) { + marker->expr.vcd_id = id++; + } + dumpvar.total = id; + + dumpfile = shell_fopen(dumpvar.file_name, "w"); + if (!dumpfile) { + runtime_error(node); + warning("Cannot open dump file '%s'; skipping $dumpvars", + dumpvar.file_name, NULL); + return 0; + } + fprintf(dumpfile, "$date\n"); + fprintf(dumpfile, " %s\n", ctime(&t)); + fprintf(dumpfile, "$end\n"); + fprintf(dumpfile, "$version\n"); + fprintf(dumpfile, " %s %s\n", VERIWELL, VERSION); + fprintf(dumpfile, "$end\n"); + + timescale_get(STMT_SCOPE(node), &units, &prec); + fprintf(dumpfile, "$timescale\n %s\n$end\n\n", + timescale_string(prec, timebuf)); + for (scope = top_level; scope; scope = TREE_CHAIN(scope)) { + dumpvars_printvars(scope, 0); + } + fprintf(dumpfile, "$enddefinitions $end\n"); + return 1; +} + +static void dumpvars_time(void) +{ + if (dumpvar.new_time) { + dumpvar.new_time = 0; + fprintf(dumpfile, "#%s\n", time_string(&CurrentTime)); + } +} + +/* Print a single value */ + +static void dumpvars_print_val(tree decl, int index) +{ + if (TREE_NBITS(decl) == 1) { + switch (DECL_STATE(decl)) { + case ZERO: + fprintf(dumpfile, "0"); + break; + case ONE: + fprintf(dumpfile, "1"); + break; + case X: + fprintf(dumpfile, "x"); + break; + case Z: + fprintf(dumpfile, "z"); + break; + } + } else { + fprintf(dumpfile, "b"); + print_binary_file(dumpfile, DECL_STORAGE(decl), TREE_NBITS(decl)); + fprintf(dumpfile, " "); + } + fprintf(dumpfile, "%s", dumpvars_xlate(index)); +} + +/* Print the current values of all dumped vars */ + +static void dumpvars_dump_all(void) +{ + Marker *marker; + + for (marker = dumpvar.printed; marker; marker = marker->link) { + dumpvars_print_val(marker->decl, marker->expr.vcd_id); + fprintf(dumpfile, "\n"); + } +} + +/* Print a variable change; print the time first if needed; + Called from sched.c */ + +void dumpvars_dump(tree decl, int index) +{ + dumpvars_time(); + dumpvars_print_val(decl, index); + fprintf(dumpfile, "\n"); +} + +/* Print first line of dump */ + +void dumpvars_checkpoint(char *which) +{ + dumpvars_time(); + fprintf(dumpfile, "%s\n", which); + dumpvars_dump_all(); + fprintf(dumpfile, "$end\n"); +} + +void dumpvars_x(char *which) +{ + Marker *marker; + + dumpvars_time(); + fprintf(dumpfile, "%s ", which); + + for (marker = dumpvar.printed; marker; marker = marker->link) { + tree decl = marker->decl; + int index = marker->expr.vcd_id; + + if (TREE_NBITS(decl) == 1) { + fprintf(dumpfile, "x"); + } else { + fprintf(dumpfile, "bx"); + } + fprintf(dumpfile, " "); + + fprintf(dumpfile, "%s\n", dumpvars_xlate(index)); + } + fprintf(dumpfile, "$end\n\n"); +} + +/* Flush the dumpfile */ + +void dumpvars_flush() +{ + if (dumpfile) { + fflush(dumpfile); + } +} + +void init_dumpvar(void) +{ + dumpvar.file_name = "veriwell.dmp"; + dumpfile = NULL; +} diff --git a/src/dumpvar.h b/src/dumpvar.h new file mode 100644 index 0000000..59b9b3a --- /dev/null +++ b/src/dumpvar.h @@ -0,0 +1,53 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* DUMPVAR.H - VCD structures and prototypes */ + +#ifndef DUMPVAR_H +#define DUMPVAR_H + + +struct Dump { + Marker *markers_first; + Marker *markers_last; + Marker *unprinted; /* Before printin header, links are here */ + Marker *printed; /* When printed, move to here */ + unsigned disallow_dumpvars:1; /* Too late, dumpvars already processed */ + unsigned first_dumpvars:1; /* First call to $dumpvars */ + unsigned enabled:1; /* Enable/disabled */ + unsigned new_time:1; /* Time changed; print time */ + int total; + char *file_name; +}; + +extern struct Dump dumpvar; + +void dumpvars_all(void); /* Dump all vars in a simulation */ +void dumpvars_scope_down(tree, int); /* Dump all in a scope and down */ +void dumpvars_mark(tree); /* Dump a single qualified var */ +int dumpvars_header(tree); /* Print the VCD header */ +void dumpvars_enable(void); /* Turn on dumpvars */ +void dumpvars_disable(void); /* Turn off dumpvars */ +void dumpvars_checkpoint(char *); /* Print current values of all */ +void dumpvars_x(char *); /* Print Xs for all */ +void dumpvars_flush(void); /* flush dumpfile */ +void dumpvars_dump(tree decl, int index); +void init_dumpvar(void); + +#endif // DUMPVAR_H diff --git a/src/eval.cc b/src/eval.cc new file mode 100644 index 0000000..fc636e4 --- /dev/null +++ b/src/eval.cc @@ -0,0 +1,2337 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* EVAL.C - Interpretively evaluate operands and operators */ + +#include +#include +#include +#include +#include "vtypes.h" +#include "tree.h" +#include "acc_user.h" +#include "pli.h" +#include "schedule.h" +#include "runtime.h" +#include "systask.h" +#include "flags.h" +#include "io.h" +#include "eval.h" +#include "glue.h" +#include "multdiv.h" +#include "store.h" +#include "eval.h" +#include "exec.h" +#include "veriwell.h" + +static int xor_reduce(Bit a, int l); +static void copy_left(nbits_t size, nbits_t multiplier, Group * g); +static void load_fill(Group * g, int ngroups, Bit aval, Bit bval); +static void load_1bit(Group * g, int ngroups, int bit); +static void eval_and_retain_flags(tree * pc); + +/* Array of virtual accumulator registers. "r" is the register at the + top of the stack, that is, the register to be used next. The size + of the register is dynamically set, depending on the operation. */ +Group **R_base; +Group **R; +int current_area = 0; +int current_regs = 0; +nbits_t R_nbits = 0; +ngroups_t R_ngroups = 0; +Bit R_mask; +tree global_shadow; /* Used for eval_nbits */ +double x32; /* This is set to 2^32 */ + +/* Convert a reg type to a double */ +double reg_to_real(Group * g, nbits_t nbits) +{ + double x = 0; + ngroups_t ngroups = bits_to_groups(nbits); + Group *g1 = g + ngroups; + + x = AVAL(g1) & mask_right1[R_nbits & NBITS_MASK]; + for (int i = ngroups; i > 0; i--) { + g1--; + x = ldexp(x, sizeof(Bit) * 8); + x += AVAL(g1); + } + return x; +} + +void real_to_reg(double x, Group * g, ngroups_t ngroups) +{ + x += 0.5; /* round up */ + for (int i = 0; i <= ngroups; i++, g++) { + AVAL(g) = (Bit) fmod(x, x32); + BVAL(g) = 0; + x = ldexp(x, -(sizeof(Bit) * 8)); + } +} + +static int xor_reduce(Bit a, int l) +{ + int result = 0; + + for (int i = 0; i < l; i++) { + if (((a >> i) & 1) == 1) { + result = !result; + } + } + return result; +} + +int part_lref(Group * g1, Group * g2, struct part_info *info) +{ + Bit lshift = PART_SHIFT(info); + Bit lmask1 = PART_LMASK1(info); + Bit aval; + Bit bval; + ngroups_t ngroups = PART_NGROUPS(info); + ngroups_t i; + int changed = 0; + + if (!ngroups) { + if (PART_ALIGNED(info)) { + /* case 1: reference within one group without crossing a boundary */ + aval = AVAL(g1); + bval = BVAL(g1); + AVAL(g1) = ((AVAL(g2) << lshift) & ~lmask1) | (aval & lmask1); + BVAL(g1) = ((BVAL(g2) << lshift) & ~lmask1) | (bval & lmask1); + changed = aval != AVAL(g1) || bval != BVAL(g1); + } else { + /* case 2: reference within one group on stack, + * but crosses boundary in dest + */ + Bit lmask2 = PART_LMASK2(info); + Bit rshift = sizeof(Bit) * 8 - lshift; + + aval = AVAL(g1); + bval = BVAL(g1); + AVAL(g1) = (AVAL(g2) << lshift) | (aval & lmask1); + BVAL(g1) = (BVAL(g2) << lshift) | (bval & lmask1); + changed = aval != AVAL(g1) || bval != BVAL(g1); + g1++; + /* if lshift is 0, then rshift is 32 which is an undefined + shift count for most compilers */ + if (lshift) { + aval = AVAL(g1); + bval = BVAL(g1); + AVAL(g1) = + ((AVAL(g2) >> rshift) & ~lmask2) | (aval & lmask2); + BVAL(g1) = + ((BVAL(g2) >> rshift) & ~lmask2) | (bval & lmask2); + changed = changed || aval != AVAL(g1) || bval != BVAL(g1); + } + } + } else { + /* case 3 & 4: reference more than one group */ + Bit rshift = sizeof(Bit) * 8 - lshift; + Bit lmask2 = PART_LMASK2(info); + aval = AVAL(g1); + bval = BVAL(g1); + for (i = 0; i < ngroups; i++) { + AVAL(g1) = ((AVAL(g2) << lshift) & ~lmask1) | (aval & lmask1); + BVAL(g1) = ((BVAL(g2) << lshift) & ~lmask1) | (bval & lmask1); + changed = changed || aval != AVAL(g1) || bval != BVAL(g1); + g1++; + aval = AVAL(g1); + bval = BVAL(g1); + if (lshift) { + AVAL(g1) = + ((AVAL(g2) >> rshift) & lmask1) | (aval & ~lmask1); + BVAL(g1) = + ((BVAL(g2) >> rshift) & lmask1) | (bval & ~lmask1); + } + aval = AVAL(g1); + bval = BVAL(g1); + g2++; + } + + if (lmask2 || !lshift) { /* make sure that there is more stuff to copy */ + if (PART_ALIGNED(info)) { + AVAL(g1) = + ((AVAL(g2) << lshift) & ~lmask2) | (aval & lmask2); + BVAL(g1) = + ((BVAL(g2) << lshift) & ~lmask2) | (bval & lmask2); + changed = changed || aval != AVAL(g1) || bval != BVAL(g1); + } else { + AVAL(g1) = (AVAL(g2) << lshift) | (aval & lmask1); + BVAL(g1) = (BVAL(g2) << lshift) | (bval & lmask1); + changed = changed || aval != AVAL(g1) || bval != BVAL(g1); + g1++; + aval = AVAL(g1); + bval = BVAL(g1); + AVAL(g1) = (AVAL(g2) >> rshift) | (aval & lmask2); + BVAL(g1) = (BVAL(g2) >> rshift) | (bval & lmask2); + changed = changed || aval != AVAL(g1) || bval != BVAL(g1); + } + } + } + return changed; +} + +static void copy_left(nbits_t size, nbits_t multiplier, Group * g) +{ + ngroups_t i; + ngroups_t ngroups = bits_to_groups(size); + ngroups_t shift_groups; + nbits_t shift_bits; + Group *g1; + Group *g2; + Bit mask; + + shift_bits = size * (multiplier - 1); + shift_groups = bits_to_groups(shift_bits + 1); + shift_bits %= BITS_IN_GROUP; + if (shift_groups <= 0) { + shift_groups = 0; + } + + if (shift_bits + size > BITS_IN_GROUP) { + ngroups++; + } + + g1 = g + ngroups + shift_groups; /* msb of dest */ + g2 = g1 - shift_groups; /* msb of source */ + mask = mask_right1[size & NBITS_MASK]; + + if (shift_groups <= R_ngroups) { + AVAL(g1) |= ((AVAL(g2) & mask) << shift_bits); // | AVAL (g1); + BVAL(g1) |= ((BVAL(g2) & mask) << shift_bits); // | BVAL (g1); + for (i = 0; i < ngroups; i++) { + g2--; + AVAL(g1) |= AVAL(g2) >> (BITS_IN_GROUP - shift_bits); + BVAL(g1) |= BVAL(g2) >> (BITS_IN_GROUP - shift_bits); + g1--; + AVAL(g1) |= (AVAL(g2) << shift_bits); // | tmp; + BVAL(g1) |= (BVAL(g2) << shift_bits); // | tmp2b; + } + g1--; + } +} + +/* Return 0 if result is zero, else return 1 */ +/* TREE_NBITS has the size of the current subexpression, that is, it + is the size of the accumulator. This is not to be confused with the + size of a constant being loaded wiich may have to be zero filled to + the size of the accumulator. Note that the size of a constant will + never be larger than the size of the accumulator since the size of the + accumulator is determined at parse time to be the max of the sizes of + the subexpression. Operators that are context-determined (arithmetic) + don't change the accumulator size; its size is set at the beginning + of an expression (when constants, decls, or refs are loaded) and on self- + determined operators (conditionals and reductions). */ + +/* fill the datum with all of one value (0, 1, X, Z) */ + +static void load_fill(Group * g, int ngroups, Bit aval, Bit bval) +{ + int i; + + AVAL(g) = aval; + BVAL(g) = bval; + for (i = 1; i <= ngroups; i++) { + g++; + AVAL(g) = aval; + BVAL(g) = bval; + } +} + +static void load_1bit(Group * g, int ngroups, int bit) +{ + int i; + Bit aval; + Bit bval; + + switch (bit) { + case (0): + aval = 0; + bval = 0; + break; + case (1): + aval = 1; + bval = 0; + break; + case ('x'): + aval = 1; + bval = 1; + break; + case ('z'): + aval = 0; + bval = 1; + break; + } + AVAL(g) = aval; + BVAL(g) = bval; + for (i = 1; i <= ngroups; i++) { + g++; + AVAL(g) = 0; + BVAL(g) = 0; + } +} + +ngroups_t part_rref(Group * g1, Group * g2, struct part_info *info) +{ + Bit mask1 = ~PART_LMASK1(info); + Bit mask2 = ~PART_LMASK2(info); + int rshift = PART_SHIFT(info); + Bit rmask = PART_RMASK(info); + ngroups_t ngroups = PART_NGROUPS(info); + ngroups_t i; + + if (!rshift) { /* Aligned */ + if (R_ngroups) { + for (i = 0; i < ngroups; i++, g1++, g2++) { + AVAL(g1) = AVAL(g2); + BVAL(g1) = BVAL(g2); + } + } + AVAL(g1) = AVAL(g2) & rmask; //mask1;//rmask; + BVAL(g1) = BVAL(g2) & rmask; //mask1;//rmask; + } else { /* there is an offset */ + /* Unaligned, but can be moved with one copy, i.e. no boundary cross */ + if (!ngroups && PART_ALIGNED(info)) { + AVAL(g1) = ((AVAL(g2) /*& mask1 */ ) >> rshift) & rmask; + BVAL(g1) = ((BVAL(g2) /*& mask1 */ ) >> rshift) & rmask; + /* worst case: unaligned and crosses boundary */ + } else { + int lshift = sizeof(Bit) * 8 - rshift; + /* it takes two copies to move one unaligned group. Do the + copies in pairs so that each pair will form one aligned + group on the stack. Note that we may copy too much, but this + will be masked. */ + for (i = 0; i <= ngroups; i++) { + AVAL(g1) = AVAL(g2) >> rshift; + BVAL(g1) = BVAL(g2) >> rshift; + g2++; + /* if rshift is 0, then lshift is 32 which is undefined */ + if (rshift) { + AVAL(g1) |= AVAL(g2) << lshift; + BVAL(g1) |= BVAL(g2) << lshift; + } else { + AVAL(g1) = AVAL(g2); + BVAL(g1) = BVAL(g2); + } + g1++; + } + + /* Did we copy too much? If so mask off the stuff we don't want */ + if (PART_ALIGNED(info)) { + g1--; + AVAL(g1) &= rmask; + BVAL(g1) &= rmask; + /* we have to make one more copy to the stack */ + } else { + AVAL(g1) = (AVAL(g2) >> rshift) /* & mask2 */ ; + BVAL(g1) = (BVAL(g2) >> rshift) /* & mask2 */ ; + } + } /* else (crosses boundary) */ + } /* else (offset) */ + return PART_NEXT(info); +} + +int in_cond = 0; +int is_integer = 0; +int is_real = 0; + +Group *eval_(tree * pc, nbits_t * nbits) +{ + eval(pc); + *nbits = R_nbits; + return *--R; +} + +/* eval a single decl node */ + +void eval_1(tree decl) +{ + tree pc[2]; + + pc[0] = decl; + pc[1] = NULL_TREE; + eval(pc); +} + +static void eval_and_retain_flags(tree * pc) +{ + int saved_integer_flag = is_integer; + int saved_real_flag = is_real; + + eval(pc); + is_integer = saved_integer_flag; + is_real = saved_real_flag; +} + +void eval(tree * pc) +{ + tree t; + tree t1; + tree t2; + enum tree_code code; + enum logical_value cond; + enum logical_value cond1; + int tmpint; + Group *g; + Group *g1; + Group *g2; + ngroups_t i; + ngroups_t ngroups; + ngroups_t shift_groups; + nbits_t shift_bits; + nbits_t nbits; + Bit tmp1; + Bit tmp2; + + /* Test if this should use integer operations. Note that eval can be + called recursively from the conditional operator (?:), so the + integer flag must be preserved [pathological case: (1 ? -12/3 : 1'b1) + is NOT an integer, so the -12/3 must be evaluated as unsigned]. */ + if (!in_cond) { + is_integer = TREE_INTEGER_ATTR(*pc); + is_real = TREE_REAL_ATTR(*pc); + } + if (!pc) { + printf_error_V("NULL pc in EVAL, aborting.\n"); + shell_abort(); + } + + while ((t = *pc) != 0) { + code = TREE_CODE(t); + switch (code) { + +/***************************************************************************/ +/* Value loading */ +/***************************************************************************/ + + case INTEGER_DECL: + R_nbits = TREE_NBITS(t); + R_ngroups = bits_to_groups(R_nbits); + R_mask = mask_right1[R_nbits & (nbits_t) NBITS_MASK]; + g1 = *R; + g2 = DECL_STORAGE(t); + AVAL(g1) = AVAL(g2); + BVAL(g1) = BVAL(g2); + if (R_ngroups > 0) { + for (i = 1; i <= R_ngroups; i++) { + g1++; + g2++; + AVAL(g1) = 0; + BVAL(g1) = 0; + } + } + *++R = g1 + 1; + break; + + case REG_VECTOR_DECL: + case NET_VECTOR_DECL: + case TMP_DECL: + case TIME_DECL: + case PARAM_DECL: + case SPECPARAM_DECL: + R_nbits = TREE_NBITS(t); + R_ngroups = bits_to_groups(R_nbits); + R_mask = mask_right1[R_nbits & NBITS_MASK]; + g1 = *R; + g2 = DECL_STORAGE(t); + AVAL(g1) = AVAL(g2); + BVAL(g1) = BVAL(g2); + if (R_ngroups > 0) { + for (i = 1; i <= R_ngroups; i++) { + g1++; + g2++; + AVAL(g1) = AVAL(g2); + BVAL(g1) = BVAL(g2); + } + } + *++R = g1 + 1; + break; + + case EVENT_DECL: + g1 = *R; + AVAL(g1) = 1; /* Stuff "true" for evaluation purposes (ignored) */ + BVAL(g1) = 0; + *++R = g1 + 1; + break; + + case REG_SCALAR_DECL: + case NET_SCALAR_DECL: + R_nbits = TREE_NBITS(t); + R_ngroups = bits_to_groups(R_nbits); + R_mask = mask_right1[R_nbits & NBITS_MASK]; + g1 = *R; + g2 = DECL_STORAGE(t); + AVAL(g1) = AVAL(g2); + BVAL(g1) = BVAL(g2); + if (R_ngroups > 0) { + for (i = 1; i <= R_ngroups; i++) { + g1++; + g2++; + AVAL(g1) = 0; + BVAL(g1) = 0; + } + } + *++R = g1 + 1; + break; + + case REAL_DECL: + R_nbits = TREE_NBITS(t); + R_ngroups = bits_to_groups(R_nbits); + R_mask = mask_right1[R_nbits & (nbits_t) NBITS_MASK]; + g1 = *R; + g2 = DECL_STORAGE(t); + REAL_(g1) = REAL_(g2); + *++R = g1 + 1; + break; + + case SHADOW_REF: /* This works for vect and scalared types */ + R_nbits = TREE_NBITS(t); + R_ngroups = bits_to_groups(R_nbits); + R_mask = mask_right1[R_nbits & NBITS_MASK]; + t = TREE_CHAIN(t); /* point to original decl */ + g1 = *R; + if (TREE_CODE(t) == EVENT_DECL) { + AVAL(g1) = 1; /* true */ + BVAL(g1) = 0; + for (i = 1; i <= R_ngroups; i++) { + g1++; + AVAL(g1) = 0; + BVAL(g1) = 0; + } + *++R = g1 + 1; + break; + } + + g2 = DECL_STORAGE(t); + nbits = TREE_NBITS(t); + ngroups = bits_to_groups(nbits); + + /* Load low full groups */ + for (i = 0; i < ngroups; i++, g1++, g2++) { + AVAL(g1) = AVAL(g2); + BVAL(g1) = BVAL(g2); + } + /* Load highest, possibly partial, group */ + AVAL(g1) = AVAL(g2) & mask_right1[nbits & NBITS_MASK]; + BVAL(g1) = BVAL(g2) & mask_right1[nbits & NBITS_MASK]; + + /* Fill remainder with 0's if necessary, since decl could be + smaller than stack size */ + for (i++; i <= R_ngroups; i++) { + g1++; + AVAL(g1) = 0; + BVAL(g1) = 0; + } + *++R = g1 + 1; + break; + + case ARRAY_REF: + /* evaluate the index (guarranteed to be >= 32 bits) */ + eval_and_retain_flags(BIT_EXPR_CODE(t)); + cond = ZERO; + g1 = *--R; + if (BVAL(g1) & R_mask) { + cond = X; + } + { + tree decl = ARRAY_REF_DECL(t); + ngroups_t array_hi = ARRAY_HI(decl); + ngroups_t array_lo = ARRAY_LO(decl); + ngroups_t ngroups = 1 + bits_to_groups(TREE_NBITS(decl)); + Bit aval = AVAL(g1) & R_mask; + ngroups_t offset; + + if (VECTOR_DIRECTION_ATTR(decl)) { + if (aval < array_lo || aval > array_hi) { + cond = X; + } else { + offset = (aval - array_lo) * ngroups; + } + } else { + if (aval < array_hi || aval > array_lo) { + cond = X; + } else { + offset = (aval - array_hi) * ngroups; + } + } + + R_nbits = TREE_NBITS(t); + R_ngroups = bits_to_groups(R_nbits); + R_mask = mask_right1[R_nbits & NBITS_MASK]; + + g1 = *R; + if (cond != X) { + g2 = DECL_STORAGE(decl) + offset; + } + + ngroups = bits_to_groups(TREE_NBITS(decl)); + if (cond != X) { + AVAL(g1) = AVAL(g2); + BVAL(g1) = BVAL(g2); + } else { + AVAL(g1) = (Bit) - 1; + BVAL(g1) = (Bit) - 1; + } + for (i = 1; i <= ngroups; i++) { + g1++; + g2++; + if (cond != X) { + AVAL(g1) = AVAL(g2); + BVAL(g1) = BVAL(g2); + } else { + AVAL(g1) = (Bit) - 1; + BVAL(g1) = (Bit) - 1; + } + } + for (; i <= R_ngroups; i++) { + g1++; + AVAL(g1) = 0; + BVAL(g1) = 0; + } + *++R = g1 + 1; + } + break; + + case BIT_REF: + /* evaluate the index */ + eval_and_retain_flags(BIT_EXPR_CODE(t)); + g2 = DECL_STORAGE(BIT_REF_DECL(t)); + cond = ZERO; + g1 = *--R; + if (BVAL(g1)) { + cond = X; + goto condition_done; + } + { + tree decl = BIT_REF_DECL(t); + nbits_t decl_lsb = LSB(decl); + nbits_t decl_msb = MSB(decl); + Bit aval = AVAL(g1); + nbits_t bit_offset; + ngroups_t group_offset; + + if (VECTOR_DIRECTION_ATTR(decl)) { + if (aval < decl_lsb || aval > decl_msb) { + cond = X; + goto condition_done; + } else { + bit_offset = (aval - decl_lsb) % BITS_IN_GROUP; + group_offset = bits_to_groups(aval - decl_lsb + 1); + } + } else { + if (aval < decl_msb || aval > decl_lsb) { + cond = X; + goto condition_done; + } else { + bit_offset = (decl_lsb - aval) % BITS_IN_GROUP; + group_offset = bits_to_groups(decl_lsb - aval + 1); + } + } + cond = ((AVAL(g2 + group_offset) & + ((Bit) 1 << bit_offset)) != 0) ? ONE : ZERO; + if (BVAL(g2 + group_offset) & ((Bit) 1 << bit_offset)) { + if (cond) { + cond = X; + } else { + cond = Z; + } + } + } + goto condition_done; + + case PART_REF: + { + struct part_info *info = PART_INFO(t); + R_nbits = TREE_NBITS(t); + R_ngroups = bits_to_groups(R_nbits); + R_mask = mask_right1[R_nbits & NBITS_MASK]; + g1 = *R; + g2 = PART_STORAGE(t); + part_rref(g1, g2, info); + + /* Fill high order with zeros */ + for (i = PART_NGROUPS(info) + 1; i <= R_ngroups; i++) { + AVAL(g1 + i) = 0; + BVAL(g1 + 1) = 0; + } + *++R = g1 + 1 + R_ngroups; + break; + } + + case INTEGER_CST: + R_nbits = TREE_NBITS(t); + R_ngroups = bits_to_groups(R_nbits); + R_mask = mask_right1[R_nbits & NBITS_MASK]; + g = *R; + AVAL(g) = (unsigned_32_t) INT_CST_DATA(t); + BVAL(g) = 0; + if (R_ngroups > 0) { + for (i = 1; i <= R_ngroups; i++) { + g++; + AVAL(g) = 0; + BVAL(g) = 0; + } + } + *++R = g + 1; + break; + + case REAL_CST: + R_nbits = TREE_NBITS(t); + R_ngroups = bits_to_groups(R_nbits); + R_mask = mask_right1[R_nbits & NBITS_MASK]; + g = *R; + REAL_(g) = REAL_CST_DATA(t); + *++R = g + 1; + break; + + case BIT_CST: + R_nbits = TREE_NBITS(t); + R_ngroups = bits_to_groups(R_nbits); + R_mask = mask_right1[R_nbits & NBITS_MASK]; + g = *R; + g1 = BIT_CST_GROUP(t); + /* always copy one group */ + AVAL(g) = AVAL(g1); + BVAL(g) = BVAL(g1); + { + ngroups_t j = bits_to_groups(BIT_CST_NBITS(t)); + i = 1; + /* If more than one group to copy, copy them all */ + if (j >= 1) { + for (i = 1; i <= j; i++) { + g++; + g1++; + AVAL(g) = AVAL(g1); + BVAL(g) = BVAL(g1); + } + } + /* If virtual register is larger than constant, zero fill */ + if (R_ngroups > j) { + for (; i <= R_ngroups; i++) { + g++; + AVAL(g) = 0; + BVAL(g) = 0; + } + } + } + *++R = g + 1; + break; + + case CONCAT_REF: + case CONCAT_REP_REF: + R_nbits = TREE_NBITS(t); + R_ngroups = bits_to_groups(R_nbits); + R_mask = mask_right1[R_nbits & NBITS_MASK]; + g1 = *R; + g = *R; + ngroups = 0; + *++R = g2 = g1 + R_ngroups + 1; + for (i = 0; i <= R_ngroups; i++, g1++) { + AVAL(g1) = 0; + BVAL(g1) = 0; + } + g1 = g; + for (t1 = CONCAT_LIST(t); t1; t1 = TREE_CHAIN(t1)) { + eval((tree *) TREE_PURPOSE(TREE_VALUE(t1))); + R--; + part_lref(g1, g2, (struct part_info *) + TREE_VALUE(TREE_VALUE(t1))); + g1 += PART_NEXT((struct part_info *) + TREE_VALUE(TREE_VALUE(t1))); + } + R_nbits = TREE_NBITS(t); + R_ngroups = bits_to_groups(R_nbits); + R_mask = mask_right1[R_nbits & NBITS_MASK]; + if (code == CONCAT_REP_REF) { + ngroups = bits_to_groups(CONCAT_NBITS(t)); + g1 = g + ngroups + 1; + for (i = ngroups + 1; i <= R_ngroups; i++, g1++) { + AVAL(g1) = BVAL(g1) = 0; + } + for (i = CONCAT_COUNT(t); i > 1; i--) { + copy_left(CONCAT_NBITS(t), i, g); + } + } + break; + + case FUNCTION_REF: + { + Group **R_save; + Group **R_base_save; + nbits_t R_nbits_save; + ngroups_t R_ngroups_save; + Bit R_mask_save; + + R_nbits = TREE_NBITS(t); + R_ngroups = bits_to_groups(R_nbits); + R_mask = mask_right1[R_nbits & NBITS_MASK]; + + t2 = FUNCT_INPUT(FUNC_REF_FUNC(t)); + for (t1 = FUNC_REF_INASSIGN(t); t1; + t1 = TREE_CHAIN(t1), t2 = TREE_CHAIN(t2)) { + eval((tree *) TREE_PURPOSE(t1)); + store(TREE_PURPOSE(t2), FUNC_REF_FUNC(t)); + } + R_save = R; + R_base_save = R_base; + R_nbits_save = R_nbits; + R_ngroups_save = R_ngroups; + R_mask_save = R_mask; + R_base = (union group **) xmalloc + (TREE_LABEL(FUNC_REF_FUNC(t)) * + sizeof(union group **)); + R = R_base; + *R = (union group *) + xmalloc(FUNCT_AREA(FUNC_REF_FUNC(t)) + * sizeof(Group)); + if (!R || !*R) { + printf_error_V("Out of memory at function call (%s)\n", + FUNC_REF_NAME(t)); + shell_abort(); + } + exec_(t); + free(*R_base); + free(R); + R = R_save; + R_base = R_base_save; + R_nbits = R_nbits_save; + R_ngroups = R_ngroups_save; + R_mask = R_mask_save; + R_nbits = TREE_NBITS(t); + R_ngroups = bits_to_groups(R_nbits); + R_mask = mask_right1[R_nbits & NBITS_MASK]; + eval_nbits(FUNCT_DECL(FUNC_REF_FUNC(t)), R_nbits); + } + break; + + case SYSFUNCTION_REF: + R_nbits = TREE_NBITS(t); + R_ngroups = bits_to_groups(R_nbits); + R_mask = mask_right1[R_nbits & NBITS_MASK]; + exec_sysfunc(t, R_nbits); + break; + + +/***************************************************************************/ +/* Bitwise operators: ~ & | ^ ~^ */ +/***************************************************************************/ + + case BIT_NOT_EXPR: + g1 = *--R; + AVAL(g1) = ~AVAL(g1) | BVAL(g1); /* ~X,~Z -> X */ + for (i = 1; i <= R_ngroups; i++) { + g1++; + AVAL(g1) = ~AVAL(g1) | BVAL(g1); /* ~X,~Z -> X */ + } + R++; + break; + + case BIT_AND_EXPR: + g2 = *--R; + g1 = *--R; + if (!BVAL(g1) && !BVAL(g2)) { + AVAL(g1) &= AVAL(g2); + } else { + tmp1 = AVAL(g1) | BVAL(g1); + tmp2 = AVAL(g2) | BVAL(g2); + AVAL(g1) = tmp1 & tmp2; /* if aval is 1, could be 1 or X */ + BVAL(g1) = AVAL(g1) & (BVAL(g1) | BVAL(g2)); + } + for (i = 1; i <= R_ngroups; i++) { + g1++; + g2++; + if (!BVAL(g1) && !BVAL(g2)) { + AVAL(g1) &= AVAL(g2); + } else { + tmp1 = AVAL(g1) | BVAL(g1); + tmp2 = AVAL(g2) | BVAL(g2); + AVAL(g1) = tmp1 & tmp2; /* if aval is 1, could be 1 or X */ + BVAL(g1) = AVAL(g1) & (BVAL(g1) | BVAL(g2)); + } + } + R++; + break; + + case BIT_OR_EXPR: + g2 = *--R; + g1 = *--R; + if (!BVAL(g1) && !BVAL(g2)) { + AVAL(g1) |= AVAL(g2); + } else { /* 1|z->x, 0|anything->0 */ + /* All must be zero */ + tmp1 = AVAL(g1); + AVAL(g1) |= AVAL(g2) | BVAL(g1) | BVAL(g2); + BVAL(g1) = (~tmp1 & BVAL(g2)) + | (~AVAL(g2) & BVAL(g1)) | (BVAL(g1) & BVAL(g2)); + } + for (i = 1; i <= R_ngroups; i++) { + g1++; + g2++; + if (!BVAL(g1) && !BVAL(g2)) { + AVAL(g1) |= AVAL(g2); + } else { + tmp1 = AVAL(g1); + AVAL(g1) |= AVAL(g2) | BVAL(g1) | BVAL(g2); + BVAL(g1) = (~tmp1 & BVAL(g2)) + | (~AVAL(g2) & BVAL(g1)) | (BVAL(g1) & BVAL(g2)); + } + } + R++; + break; + + case BIT_XOR_EXPR: + g2 = *--R; + g1 = *--R; + if (!BVAL(g1) && !BVAL(g2)) { + AVAL(g1) ^= AVAL(g2); + } else { + /* Z or Z XORed with anything is X */ + BVAL(g1) = BVAL(g1) | BVAL(g2); + AVAL(g1) = (AVAL(g1) ^ AVAL(g2)) | BVAL(g1); + } + for (i = 1; i <= R_ngroups; i++) { + g1++; + g2++; + if (!BVAL(g1) && !BVAL(g2)) { + AVAL(g1) ^= AVAL(g2); + } else { + /* Z or Z XORed with anything is X */ + BVAL(g1) = BVAL(g1) | BVAL(g2); + AVAL(g1) = (AVAL(g1) ^ AVAL(g2)) | BVAL(g1); + } + } + R++; + break; + + case BIT_XNOR_EXPR: + g2 = *--R; + g1 = *--R; + if (!BVAL(g1) && !BVAL(g2)) { + AVAL(g1) ^= ~AVAL(g2); + } else { + /* Z or Z XORed with anything is X */ + BVAL(g1) = BVAL(g1) | BVAL(g2); + AVAL(g1) = ~(AVAL(g1) ^ AVAL(g2)) | BVAL(g1); + } + for (i = 1; i <= R_ngroups; i++) { + g1++; + g2++; + if (!BVAL(g1) && !BVAL(g2)) { + AVAL(g1) ^= ~AVAL(g2); + } else { + /* Z or Z XORed with anything is X */ + BVAL(g1) = BVAL(g1) | BVAL(g2); + AVAL(g1) = ~(AVAL(g1) ^ AVAL(g2)) | BVAL(g1); + } + } + R++; + break; + +/***************************************************************************/ +/* Event operators: ANYEDGE, POSEDGE, NEGEDGE */ +/***************************************************************************/ + + case ANYEDGE_EXPR: + --R; + cond = ONE; + goto condition_done; + + case POSEDGE_EXPR: + --R; + cond = (enum logical_value) ((AVAL(*R) & 1) | + ((BVAL(*R) & 1) << 1)); + cond1 = + (enum logical_value) (unsigned long) TREE_OPERAND(t, 1); + tmpint = cond; + TREE_OPERAND(t, 1) = (tree) tmpint; + + if ((cond == ONE || cond1 == ZERO) && cond1 != cond) { + cond = ONE; + } else { + cond = ZERO; + } + goto condition_done; + + case NEGEDGE_EXPR: + --R; + cond = (enum logical_value) ((AVAL(*R) & 1) | + ((BVAL(*R) & 1) << 1)); + cond1 = + (enum logical_value) (unsigned long) TREE_OPERAND(t, 1); + tmpint = cond; + TREE_OPERAND(t, 1) = (tree) tmpint; + if ((cond == ZERO || cond1 == ONE) && cond1 != cond) { + cond = ONE; + } else { + cond = ZERO; + } + goto condition_done; + +/***************************************************************************/ +/* Reduction operators: & ~& | ~| ^ ~^ */ +/***************************************************************************/ + + case AND_REDUCE_EXPR: + g1 = *--R; + cond = ONE; + for (i = 0; i < R_ngroups; i++, g1++) { + /* if there are any zeros, we are done */ + if (~AVAL(g1) & ~BVAL(g1)) { + cond = ZERO; + break; + /* (X or Z) and 1 -> X */ + } else if (BVAL(g1)) { + cond = X; + } + } + /* last group (most significant) need to be masked */ + if (~AVAL(g1) & ~BVAL(g1) & R_mask) { + cond = ZERO; + /* (X or Z) and 1 -> X */ + } else if (BVAL(g1) & R_mask) { + cond = X; + } + goto condition_done; + + case NAND_REDUCE_EXPR: + g1 = *--R; + cond = ZERO; + for (i = 0; i < R_ngroups; i++, g1++) { + /* if there are any zeros, we are done */ + if (~AVAL(g1) & ~BVAL(g1)) { + cond = ONE; + break; + /* (X or Z) and 1 -> X */ + } else if (BVAL(g1)) { + cond = X; + } + } + /* last group (most significant) need to be masked */ + if (~AVAL(g1) & ~BVAL(g1) & R_mask) { + cond = ONE; + /* (X or Z) and 1 -> X */ + } else if (BVAL(g1) & R_mask) { + cond = X; + } + goto condition_done; + + case OR_REDUCE_EXPR: + g1 = *--R; + cond = ZERO; + for (i = 0; i < R_ngroups; i++, g1++) { + /* if there are any ones, we are done */ + if (AVAL(g1) & ~BVAL(g1)) { + cond = ONE; + break; + /* (X or Z) and 1 -> X */ + } else if (BVAL(g1)) { + cond = X; + } + } + /* last group (most significant) need to be masked */ + if (AVAL(g1) & ~BVAL(g1) & R_mask) { + cond = ONE; + /* (X or Z) and 1 -> X */ + } else if (BVAL(g1) & R_mask) { + cond = X; + } + goto condition_done; + + case NOR_REDUCE_EXPR: + g1 = *--R; + cond = ONE; + for (i = 0; i < R_ngroups; i++, g1++) { + /* if there are any ones, we are done */ + if (AVAL(g1) & ~BVAL(g1)) { + cond = ZERO; + break; + /* (X or Z) and 1 -> X */ + } else if (BVAL(g1)) { + cond = X; + } + } + /* last group (most significant) need to be masked */ + if (AVAL(g1) & ~BVAL(g1) & R_mask) { + cond = ZERO; + /* (X or Z) and 1 -> X */ + } else if (BVAL(g1) & R_mask) { + cond = X; + } + goto condition_done; + + case TRUTH_NOT_EXPR: + DETERMINE_TRUE_COND(g1); + if (cond == ONE) { + cond = ZERO; + } else if (cond == ZERO) { + cond = ONE; + } + goto condition_done; + + case XOR_REDUCE_EXPR: + cond = ZERO; + goto xor_common; + + case XNOR_REDUCE_EXPR: + cond = ONE; + xor_common: + g1 = *--R; + for (i = 0; i < R_ngroups; i++, g1++) { + if (BVAL(g1)) { + cond = X; + break; + } else if (xor_reduce(AVAL(g1), BITS_IN_GROUP)) { + if (cond == ZERO) { + cond = ONE; + } else { + cond = ZERO; + } + } + } + /* last group (most significant) need to be masked */ + if (cond != X) { + if (BVAL(g1) & R_mask) { + cond = X; + } else if (xor_reduce(AVAL(g1) & R_mask, + (R_nbits - 1) % BITS_IN_GROUP + 1)) { + if (cond == ZERO) { + cond = ONE; + } else { + cond = ZERO; + } + } + } + goto condition_done; + +/***************************************************************************/ +/* Logical operators: ! && || */ +/***************************************************************************/ + +/* case TRUTH_NOT_EXPR: (see NOR_REDUCE_EXPR) */ + case TRUTH_ORIF_EXPR: + DETERMINE_TRUE_COND(g1); + /* if left operand is one, then the right + operand is not evaluated */ + if (cond != ONE) { + cond1 = cond; + TEST(TRUTH_EXPR_CODE(t), g2); + if (cond == ZERO) { + /* if right operand is zero, pass the left op */ + cond = cond1; + } + } + goto condition_done; + + case TRUTH_ANDIF_EXPR: + DETERMINE_TRUE_COND(g1); + /* if left operand is zero, then the right + operand is not evaluated */ + if (cond != ZERO) { + cond1 = cond; + TEST(TRUTH_EXPR_CODE(t), g2); + if (cond == ONE) { + /* if right operand is one, pass the left op */ + cond = cond1; + } + } + goto condition_done; + +/***************************************************************************/ +/* Equality operators: == != === !== */ +/***************************************************************************/ + + case EQ_EXPR: + if (is_real) { + g2 = *--R; + g1 = *--R; + AVAL(g1) = (REAL_(g1) == REAL_(g2)); + BVAL(g1) = 0; + R++; + break; + } + g2 = *--R; + g1 = *--R; + + cond = ONE; + for (i = 0; i < R_ngroups; i++, g1++, g2++) { + if (BVAL(g1) || BVAL(g2)) { + cond = X; + } else if (AVAL(g1) != AVAL(g2)) { + cond = ZERO; + break; + } + } + /* last group (most significant) need to be masked */ + if (cond == ONE) { + if ((BVAL(g1) | BVAL(g2)) & R_mask) { + cond = X; + } else if ((AVAL(g1) ^ AVAL(g2)) & R_mask) { + cond = ZERO; + } + } + goto condition_done; + + case NE_EXPR: + if (is_real) { + g2 = *--R; + g1 = *--R; + AVAL(g1) = (REAL_(g1) != REAL_(g2)); + BVAL(g1) = 0; + R++; + break; + } + { + /* + * x's do not automatically result + * in a x result if non-x value prove + * inequality + */ + int hasX = FALSE; + g2 = *--R; + g1 = *--R; + + cond = ZERO; + for (i = 0; i < R_ngroups; i++, g1++, g2++) { + if (BVAL(g1) || BVAL(g2)) { + hasX = 1; + } + if ((AVAL(g1) & ~BVAL(g1)) != (AVAL(g2) & ~BVAL(g2))) { + cond = ONE; + break; + } + } + /* last group (most significant) need to be masked */ + if (cond == ZERO) { + if ((BVAL(g1) | BVAL(g2)) & R_mask) { + hasX = X; + } else if (((AVAL(g1) & ~BVAL(g1)) ^ + (AVAL(g2) & ~BVAL(g2))) & R_mask) { + cond = ONE; + } + } + if (cond == ZERO && hasX) { + cond = X; + } + + goto condition_done; + } + + case EQ_CASE_EXPR: + g2 = *--R; + g1 = *--R; + cond = ONE; + for (i = 0; i < R_ngroups; i++, g1++, g2++) { + if ((AVAL(g1) != AVAL(g2)) || (BVAL(g1) != BVAL(g2))) { + cond = ZERO; + break; + } + } + /* last group (most significant) need to be masked */ + if (cond == ONE) { + if (((AVAL(g1) ^ AVAL(g2)) | + (BVAL(g1) ^ BVAL(g2))) & R_mask) { + cond = ZERO; + } + } + goto condition_done; + + case NE_CASE_EXPR: + g2 = *--R; + g1 = *--R; + cond = ZERO; + for (i = 0; i < R_ngroups; i++, g1++, g2++) { + if ((AVAL(g1) != AVAL(g2)) || (BVAL(g1) != BVAL(g2))) { + cond = ONE; + break; + } + } + /* last group (most significant) need to be masked */ + if (cond == ZERO) { + if (((AVAL(g1) ^ AVAL(g2)) | + (BVAL(g1) ^ BVAL(g2))) & R_mask) { + cond = ONE; + } + } + goto condition_done; + +/***************************************************************************/ +/* Relational operators: < > <= >= */ +/***************************************************************************/ + + case LT_EXPR: + if (is_integer) { + g2 = *--R; + g1 = *--R; + if (BVAL(g1) || BVAL(g2)) { + AVAL(g1) = (Bit) - 1; + BVAL(g1) = (Bit) - 1; + } else { + AVAL(g1) = (signed_32_t) AVAL(g1) < + (signed_32_t) AVAL(g2); + BVAL(g1) = 0; + } + R++; + break; + } else if (is_real) { + g2 = *--R; + g1 = *--R; + AVAL(g1) = (REAL_(g1) < REAL_(g2)); + BVAL(g1) = 0; + R++; + break; + } + + /* evaluate from left-to-right */ + g2 = (*R--) - 1; + g1 = (*R--) - 1; + /* first group (most significant) need to be masked */ + if ((BVAL(g1) | BVAL(g2)) & R_mask) { + cond = X; + goto condition_done; + } else if ((tmp1 = (AVAL(g1) & R_mask)) + > (tmp2 = AVAL(g2) & R_mask)) { + cond = ZERO; + goto condition_done; + } else if (tmp1 < tmp2) { + cond = ONE; + goto condition_done; + } + + /* keep doing if equal */ + for (i = 1, cond = ZERO; i <= R_ngroups; i++) { + g1--; + g2--; + if (BVAL(g1) || BVAL(g2)) { + cond = X; + break; + } else if ((tmp1 = AVAL(g1)) > (tmp2 = AVAL(g2))) { + cond = ZERO; + break; + } else if (tmp1 < tmp2) { + cond = ONE; + break; + } + } + goto condition_done; + + case LE_EXPR: + if (is_integer) { + g2 = *--R; + g1 = *--R; + if (BVAL(g1) || BVAL(g2)) { + AVAL(g1) = (Bit) - 1; + BVAL(g1) = (Bit) - 1; + } else { + AVAL(g1) = (signed_32_t) AVAL(g1) <= + (signed_32_t) AVAL(g2); + BVAL(g1) = 0; + } + R++; + break; + } else if (is_real) { + g2 = *--R; + g1 = *--R; + AVAL(g1) = (REAL_(g1) <= REAL_(g2)); + BVAL(g1) = 0; + R++; + break; + } + + /* evaluate from left-to-right */ + g2 = (*R--) - 1; + g1 = (*R--) - 1; + /* first group (most significant) need to be masked */ + if ((BVAL(g1) | BVAL(g2)) & R_mask) { + cond = X; + goto condition_done; + } else if ((tmp1 = (AVAL(g1) & R_mask)) + > (tmp2 = AVAL(g2) & R_mask)) { + cond = ZERO; + goto condition_done; + } else if (tmp1 < tmp2) { + cond = ONE; + goto condition_done; + } + + /* keep doing if equal */ + for (i = 1, cond = ONE; i <= R_ngroups; i++) { + g1--; + g2--; + if (BVAL(g1) || BVAL(g2)) { + cond = X; + break; + } else if ((tmp1 = AVAL(g1)) > (tmp2 = AVAL(g2))) { + cond = ZERO; + break; + } else if (tmp1 < tmp2) { + cond = ONE; + break; + } + } + goto condition_done; + + case GT_EXPR: + if (is_integer) { + g2 = *--R; + g1 = *--R; + if (BVAL(g1) || BVAL(g2)) { + AVAL(g1) = (Bit) - 1; + BVAL(g1) = (Bit) - 1; + } else { + AVAL(g1) = (signed_32_t) AVAL(g1) > + (signed_32_t) AVAL(g2); + BVAL(g1) = 0; + } + R++; + break; + } else if (is_real) { + g2 = *--R; + g1 = *--R; + AVAL(g1) = (REAL_(g1) > REAL_(g2)); + BVAL(g1) = 0; + R++; + break; + } + + /* evaluate from left-to-right */ + g2 = (*R--) - 1; + g1 = (*R--) - 1; + /* first group (most significant) need to be masked */ + if ((BVAL(g1) | BVAL(g2)) & R_mask) { + cond = X; + goto condition_done; + } else if ((tmp1 = (AVAL(g1) & R_mask)) + < (tmp2 = AVAL(g2) & R_mask)) { + cond = ZERO; + goto condition_done; + } else if (tmp1 > tmp2) { + cond = ONE; + goto condition_done; + } + + /* keep doing if equal */ + for (i = 1, cond = ZERO; i <= R_ngroups; i++) { + g1--; + g2--; + if (BVAL(g1) || BVAL(g2)) { + cond = X; + break; + } else if ((tmp1 = AVAL(g1)) < (tmp2 = AVAL(g2))) { + cond = ZERO; + break; + } else if (tmp1 > tmp2) { + cond = ONE; + break; + } + } + goto condition_done; + + case GE_EXPR: + if (is_integer) { + g2 = *--R; + g1 = *--R; + if (BVAL(g1) || BVAL(g2)) { + AVAL(g1) = (Bit) - 1; + BVAL(g1) = (Bit) - 1; + } else { + AVAL(g1) = (signed_32_t) AVAL(g1) >= + (signed_32_t) AVAL(g2); + BVAL(g1) = 0; + } + R++; + break; + } else if (is_real) { + g2 = *--R; + g1 = *--R; + AVAL(g1) = (REAL_(g1) >= REAL_(g2)); + BVAL(g1) = 0; + R++; + break; + } + + /* evaluate from left-to-right */ + g2 = (*R--) - 1; + g1 = (*R--) - 1; + /* first group (most significant) need to be masked */ + if ((BVAL(g1) | BVAL(g2)) & R_mask) { + cond = X; + goto condition_done; + } else if ((tmp1 = (AVAL(g1) & R_mask)) + < (tmp2 = AVAL(g2) & R_mask)) { + cond = ZERO; + goto condition_done; + } else if (tmp1 > tmp2) { + cond = ONE; + goto condition_done; + } + + /* keep doing if equal */ + for (i = 1, cond = ONE; i <= R_ngroups; i++) { + g1--; + g2--; + if (BVAL(g1) || BVAL(g2)) { + cond = X; + break; + } else if ((tmp1 = AVAL(g1)) < (tmp2 = AVAL(g2))) { + cond = ZERO; + break; + } else if (tmp1 > tmp2) { + cond = ONE; + break; + } + } + goto condition_done; + + + condition_done: + R_nbits = TREE_NBITS(t); + R_ngroups = bits_to_groups(R_nbits); + R_mask = mask_right1[R_nbits & NBITS_MASK]; + g1 = *R; + if (is_real) { + REAL_(g1) = (cond == ONE); + } else { + AVAL(g1) = (cond == ZERO || cond == Z) ? 0 : 1; + BVAL(g1) = (cond == X || cond == Z) ? 1 : 0; + } + if (R_ngroups > 0) { + for (i = 1; i <= R_ngroups; i++) { + g1++; + AVAL(g1) = 0; + BVAL(g1) = 0; + } + } + *++R = g1 + 1; + break; + +/***************************************************************************/ +/* Arithmetic operators: + - * / % */ +/***************************************************************************/ + + case PLUS_EXPR: + g2 = *--R; + g1 = *--R; + { + register unsigned int carry; + if (is_real) { + REAL_(g1) += REAL_(g2); + R++; + break; + } + cond = ZERO; + carry = 0; + + for (i = 0; i < R_ngroups; i++, g1++, g2++) { + AVAL(g1) += carry; + carry = !AVAL(g1) && carry; /* if wrap around to 0 */ + carry |= AVAL(g1) > ~AVAL(g2); + AVAL(g1) += AVAL(g2); + /* If there are any Xs of Zs, make the result unknown */ + if (BVAL(g1) | BVAL(g2)) { + cond = X; + } + } + + /* Don't need to prop caary on last group */ + AVAL(g1) += AVAL(g2) + carry; + if ((BVAL(g1) | BVAL(g2)) & R_mask) { + cond = X; + } + + if (cond == X) { + load_fill(*R, R_ngroups, (Bit) - 1, (Bit) - 1); + } + } + R++; + break; + + case MINUS_EXPR: + g2 = *--R; + g1 = *--R; + { + register unsigned int carry; + + if (is_real) { + REAL_(g1) -= REAL_(g2); + R++; + break; + } + cond = ZERO; + carry = 1; + + for (i = 0; i < R_ngroups; i++, g1++, g2++) { + AVAL(g1) += carry; + carry = !AVAL(g1) && carry; /* if wrap around to 0 */ + carry |= AVAL(g1) > AVAL(g2); + AVAL(g1) += ~AVAL(g2); + /* If there are any Xs of Zs, make the result unknown */ + if (BVAL(g1) | BVAL(g2)) { + cond = X; + } + } + + /* Don't need to prop caary on last group */ + AVAL(g1) += ~AVAL(g2) + carry; + if ((BVAL(g1) | BVAL(g2)) & R_mask) { + cond = X; + } + if (cond == X) { + load_fill(*R, R_ngroups, (Bit) - 1, (Bit) - 1); + } + } + R++; + break; + + +#define HIGH16(ptr) (((struct split_32 *)&(ptr))->high) +#define LOW16(ptr) (((struct split_32 *)&(ptr))->low) + + case MULT_EXPR: + g2 = *--R; + g1 = *--R; + + + if (!R_ngroups) { + if (is_real) { + REAL_(g1) *= REAL_(g2); + R++; + break; + } + + if (BVAL(g1) || BVAL(g2)) { + AVAL(g1) = (Bit) - 1; + BVAL(g1) = (Bit) - 1; + } else { + AVAL(g1) *= AVAL(g2); + } + R++; + break; + } + + cond = ZERO; + for (i = 0; i <= R_ngroups; i++) { + /* If there are any Xs of Zs, make the result unknown */ + if (BVAL(g1 + i) | BVAL(g2 + i)) { + cond = X; + } + } + if (cond == X) { + load_fill(*R, R_ngroups, (Bit) - 1, (Bit) - 1); + } else { + GroupMult(g1, g1, g2, R_ngroups + 1); + } + R++; + break; + + case DIV_EXPR: + { + int zeroDivisor = 0; + g2 = *--R; + g1 = *--R; + /* + * check for zero divisor + */ + if (!is_real) { + zeroDivisor = 1; + for (i = 0; i <= R_ngroups; i++) { + if (AVAL(g2 + i)) { + zeroDivisor = 0; + } + } + } + + cond = ZERO; + for (i = 0; i <= R_ngroups; i++) { + /* If there are any Xs of Zs, make the result unknown */ + if (BVAL(g1 + i) | BVAL(g2 + i)) { + cond = X; + } + } + + if (!is_real && zeroDivisor) { + load_fill(*R, R_ngroups, (Bit) - 1, (Bit) - 1); + } else if (is_integer) { + AVAL(g1) = (signed) AVAL(g1) / (signed) AVAL(g2); + } else if (is_real) { + REAL_(g1) /= REAL_(g2); + } else if (!R_ngroups) { + AVAL(g1) /= AVAL(g2); + } else { + GroupDiv(g1, g1, g1, g2, R_ngroups + 1, 0); + } + + if (cond == X && !is_real) { + load_fill(*R, R_ngroups, (Bit) - 1, (Bit) - 1); + } + R++; + } + break; + + case MOD_EXPR: + { + int zeroDivisor = 0; + g2 = *--R; + g1 = *--R; + /* + * check for zero divisor + */ + if (!is_real) { + zeroDivisor = 1; + for (i = 0; i <= R_ngroups; i++) { + if (AVAL(g2 + i)) { + zeroDivisor = 0; + } + } + } + + cond = ZERO; + for (i = 0; i <= R_ngroups; i++) { + /* If there are any Xs of Zs, make the result unknown */ + if (BVAL(g1 + i) | BVAL(g2 + i)) { + cond = X; + } + } + + if (!is_real && zeroDivisor) { + load_fill(*R, R_ngroups, (Bit) - 1, (Bit) - 1); + } else if (is_integer) { + AVAL(g1) = (signed) AVAL(g1) % (signed) AVAL(g2); + } else if (!R_ngroups) { + AVAL(g1) %= AVAL(g2); + } else { + GroupDiv(g1, g1, g1, g2, R_ngroups + 1, 1); + } + if (cond == X && !is_real) { + load_fill(*R, R_ngroups, (Bit) - 1, (Bit) - 1); + } + R++; + } + break; + +/***************************************************************************/ +/* Unary Arithmetic operators: - */ +/***************************************************************************/ + + case NEGATE_EXPR: + g1 = *--R; + if (is_real) { + REAL_(g1) = -REAL_(g1); + R++; + break; + } + if (BVAL(g1)) { + goto fill_x; + } + if (!R_ngroups) { + AVAL(g1) = (~AVAL(g1) + 1) & R_mask; + } else { + tmp1 = AVAL(g1) = ~AVAL(g1) + 1; + for (i = 1, g1++; i < R_ngroups; i++, g1++) { + if (BVAL(g1)) { + goto fill_x; + } + tmp1 = AVAL(g1) = ~AVAL(g1) + (tmp1 == 0); + } + tmp1 = AVAL(g1) = (~AVAL(g1) + (tmp1 == 0)) & R_mask; + } + R++; + break; + +/***************************************************************************/ +/* Unary real-to-integer conversion */ +/***************************************************************************/ + + case INT_CONV_EXPR: + g1 = *--R; + real_to_reg(REAL_(g1), g1, R_ngroups); + is_real = 0; + R++; + break; + +/***************************************************************************/ +/* Unary integer-to-real conversion */ +/***************************************************************************/ + + case REAL_CONV_EXPR: + g1 = *--R; + REAL_(g1) = reg_to_real(g1, R_nbits); + is_real = 1; + is_integer = 0; + R++; + break; + +/***************************************************************************/ +/* Shift operators: << >> */ +/***************************************************************************/ + + case LSHIFT_EXPR: + /* evaluate from left-to-right */ + g = *--R; /* shift count */ + g1 = (*R--) - 1; /* high end of stuff to be shifted */ + R_nbits = TREE_NBITS(t); + R_ngroups = bits_to_groups(R_nbits); + R_mask = mask_right1[R_nbits & NBITS_MASK]; + shift_bits = AVAL(g); + if (shift_bits < 0) { + shift_bits = -shift_bits; + goto right_shift_instead; + } + left_shift_instead: + shift_groups = bits_to_groups(shift_bits + 1); + shift_bits %= BITS_IN_GROUP; + if (shift_groups <= 0) { + shift_groups = 0; + } + + /* make sure shift count is ok */ + if (BVAL(g)) { + goto fill_x; + } + g2 = g1 - shift_groups; + + if (shift_groups <= R_ngroups) { + AVAL(g1) = (AVAL(g2) << shift_bits); // | tmp2; + BVAL(g1) = (BVAL(g2) << shift_bits); // | tmp2b; + for (i = 0; i < R_ngroups - shift_groups; i++) { + g2--; + if (shift_bits) { + AVAL(g1) |= + AVAL(g2) >> (BITS_IN_GROUP - shift_bits); + BVAL(g1) |= + BVAL(g2) >> (BITS_IN_GROUP - shift_bits); + } + g1--; + AVAL(g1) = (AVAL(g2) << shift_bits); // | tmp2; + BVAL(g1) = (BVAL(g2) << shift_bits); // | tmp2b; + + } + g1--; + } + for (i = 0; i < shift_groups; i++, g1--) { + AVAL(g1) = 0; + BVAL(g1) = 0; + tmp2 = 0; + } + R++; + break; + + case RSHIFT_EXPR: + /* evaluate from right-to-left */ + g = *--R; /* shift count */ + g1 = *--R; /* stuff to be shifted */ + R_nbits = TREE_NBITS(t); + R_ngroups = bits_to_groups(R_nbits); + R_mask = mask_right1[R_nbits & NBITS_MASK]; + shift_bits = AVAL(g); + if (shift_bits < 0) { + shift_bits = -shift_bits; + goto left_shift_instead; + } + right_shift_instead: + shift_groups = bits_to_groups(shift_bits + 1); + shift_bits %= BITS_IN_GROUP; + if (shift_groups <= 0) { + shift_groups = 0; + } + + /* make sure shift count is ok */ + if (BVAL(g)) { + goto fill_x; + } + g2 = g1 + shift_groups; + for (i = 0; i < R_ngroups - shift_groups; i++, g1++, g2++) { + if (shift_bits) { + AVAL(g1) = (AVAL(g2) >> shift_bits) | + (AVAL(g2 + 1) << (BITS_IN_GROUP - shift_bits)); + BVAL(g1) = (BVAL(g2) >> shift_bits) | + (BVAL(g2 + 1) << (BITS_IN_GROUP - shift_bits)); + } else { + AVAL(g1) = AVAL(g2); + BVAL(g1) = BVAL(g2); + } + } + AVAL(g1) = (AVAL(g2) & R_mask) >> shift_bits; + BVAL(g1) = (BVAL(g2) & R_mask) >> shift_bits; + for (i = 0; i < shift_groups; i++) { + g1++; + AVAL(g1) = 0; + BVAL(g1) = 0; + tmp2 = 0; + } + R++; + break; + + fill_x: + tmp1 = (Bit) - 1; + tmp2 = (Bit) - 1; + g = *R; + for (i = 0; i <= R_ngroups; i++, g++) { + AVAL(g) = tmp1; + BVAL(g) = tmp2; + } + R++; + break; + +/***************************************************************************/ +/* Conditional operator: ?: */ +/***************************************************************************/ + + case COND_EXPR: + eval(COND_EXPR_CODE(t)); + g1 = *--R; + cond = ZERO; + for (i = 0; i < R_ngroups; i++, g1++) { + if (BVAL(g1)) { + cond = X; + goto cond_continue; + } else if (AVAL(g1)) { + cond = ONE; + goto cond_continue; + } + } + + if (BVAL(g1) & R_mask) { + cond = X; + /* R_mask is set by 1st call to eval */ + } else if (AVAL(g1) & R_mask) { + cond = ONE; + } + cond_continue: + in_cond = ONE; /* hack to preserve integer bit */ + if (cond == ONE) { + eval(COND_TRUE_CODE(t)); + } else if (cond == ZERO) { + eval(COND_FALSE_CODE(t)); + } else { + eval(COND_TRUE_CODE(t)); + eval(COND_FALSE_CODE(t)); + g2 = *--R; + g1 = *(R - 1); + for (i = 0; i <= R_ngroups; i++, g1++, g2++) { + tmp1 = AVAL(g1); + AVAL(g1) |= AVAL(g2) | BVAL(g1) | BVAL(g2); + BVAL(g1) |= BVAL(g2) | (tmp1 ^ AVAL(g2)); + } + } + in_cond = 0; + break; + + default: + printf_error_V("Unimplemented expression: %s\n", + tree_code_name[TREE_CODE(t)]); + shell_abort(); + break; + + } /* switch */ + pc++; + } /* while */ + return; +} + + +delay_t eval_delay(tree delay_node, enum logical_value state) +{ + delay_t delay; + + if (!delay_node) { + return 0; + } + + /* TREE_LABEL has the number of delays given: 1, 2 or 3 */ + if (TREE_LABEL(delay_node) == 1) { + eval((tree *) TREE_OPERAND(delay_node, 3)); + ASSERT(R_ngroups == 0 || AVAL(*(R - 1) + 1) == 0); + delay = AVAL(*--R); + /* Other cases assume two or tree delays given */ + } else if (state == ONE) { + eval((tree *) TREE_OPERAND(delay_node, 3)); + ASSERT(R_ngroups == 0 || AVAL(*(R - 1) + 1) == 0); + delay = AVAL(*--R); + } else if (state == ZERO) { + eval((tree *) TREE_OPERAND(delay_node, 4)); + ASSERT(R_ngroups == 0 || AVAL(*(R - 1) + 1) == 0); + delay = AVAL(*--R); + } else if (state == Z) + if (TREE_LABEL(delay_node) == 3) { + eval((tree *) TREE_OPERAND(delay_node, 5)); + ASSERT(R_ngroups == 0 || AVAL(*(R - 1) + 1) == 0); + delay = AVAL(*--R); + } else { /* 2 values given, get the min */ + eval((tree *) TREE_OPERAND(delay_node, 3)); + ASSERT(R_ngroups == 0 || AVAL(*(R - 1) + 1) == 0); + delay = AVAL(*--R); + eval((tree *) TREE_OPERAND(delay_node, 4)); + ASSERT(R_ngroups == 0 || AVAL(*(R - 1) + 1) == 0); + if (AVAL(*--R) < delay) { + delay = AVAL(*R); + } + if (BVAL(*R)) { + return 0; + } + /* if X, find MIN of delays */ + } else { + eval((tree *) TREE_OPERAND(delay_node, 3)); + ASSERT(R_ngroups == 0 || AVAL(*(R - 1) + 1) == 0); + delay = AVAL(*--R); + if (BVAL(*R)) { + return 0; + } + eval((tree *) TREE_OPERAND(delay_node, 4)); + ASSERT(R_ngroups == 0 || AVAL(*(R - 1) + 1) == 0); + if (AVAL(*--R) < delay) { + delay = AVAL(*R); + } + if (BVAL(*R)) { + return 0; + } + if (TREE_LABEL(delay_node) == 3) { + eval((tree *) TREE_OPERAND(delay_node, 5)); + ASSERT(R_ngroups == 0 || AVAL(*(R - 1) + 1) == 0); + if (AVAL(*--R) < delay) { + delay = AVAL(*R); + } + if (BVAL(*R)) { + return 0; + } + } + } + if (BVAL(*R)) { + return 0; + } + return delay; +} + +/* Evaluate nets; if exclude_inout is set, don't use the inout port + (if there is one) in the evaluation. This prevents a lockup + situation in which a net that has drivers on both sides of + an inout port will lock to X since that X is "driving" both sides + of the port. */ +/* exclude_tree is used to exclude a node from the net calculation for + bi-directional gates */ + + +void do_net_eval(tree node, int exclude_inout, tree exclude_tree) +{ + tree t; + ngroups_t i; + Group *g1; + Group *g2; + Bit z1; + Bit z2; + Bit aval1; + Bit aval2; + Bit bval1; + Bit bval2; + enum tree_type type = (enum tree_type) TREE_TYPE(node); + + R_nbits = TREE_NBITS(node); + R_ngroups = bits_to_groups(R_nbits); + R_mask = mask_right1[R_nbits & NBITS_MASK]; + g1 = *R; + /* First, initialize net to Z */ + for (i = 0; i <= R_ngroups; i++, g1++) { + AVAL(g1) = 0; + BVAL(g1) = (unsigned int) -1; + } + + switch (type) { + /* Z combined with anything is the anything, 1 combined with 0 is X */ + case NET_WIRE_TYPE: + case NET_TRI_TYPE: + for (t = NET_SOURCE(node); t; t = NET_SOURCE(t)) { + if (exclude_tree == t) { + continue; + } + if (exclude_inout) { + if (PORT_OUTPUT_ATTR(t) || PORT_COLLAPSED_ATTR(t)) { + continue; + } + } + g1 = *R; + g2 = DECL_STORAGE(t); + for (i = 0; i <= R_ngroups; i++, g1++, g2++) { + aval1 = AVAL(g1); + aval2 = AVAL(g2); + bval1 = BVAL(g1); + bval2 = BVAL(g2); + z1 = ~aval1 & bval1; /* where the Z's are */ + z2 = ~aval2 & bval2; + BVAL(g1) = ~((z1 & ~bval2) | (z2 & ~bval1) | + (~bval1 & ~bval2 & ~(aval1 ^ aval2))); + AVAL(g1) = aval1 | aval2; + } + } + break; + + /* These are the same as WIRE/TRI, exept replace Z by 0/1 after eval */ + case NET_TRI0_TYPE: + case NET_TRI1_TYPE: + /* Don't eval last source; it's there for initialization only */ + for (t = NET_SOURCE(node); NET_SOURCE(t); t = NET_SOURCE(t)) { + if (exclude_tree == t) { + continue; + + } + if (exclude_inout) { + if (PORT_OUTPUT_ATTR(t) || PORT_COLLAPSED_ATTR(t)) { + continue; + } + } + g1 = *R; + g2 = DECL_STORAGE(t); + for (i = 0; i <= R_ngroups; i++, g1++, g2++) { + aval1 = AVAL(g1); + aval2 = AVAL(g2); + bval1 = BVAL(g1); + bval2 = BVAL(g2); + z1 = ~aval1 & bval1; /* where the Z's are */ + z2 = ~aval2 & bval2; + BVAL(g1) = ~((z1 & ~bval2) | (z2 & ~bval1) | + (~bval1 & ~bval2 & ~(aval1 ^ aval2))); + AVAL(g1) = aval1 | aval2; + } + } + + /* Now, replace all Zs by 0 (for TRI0) or 1 (for TRI1) */ + if (type == NET_TRI0_TYPE) { + g1 = *R; + for (i = 0; i <= R_ngroups; i++, g1++) { + BVAL(g1) = AVAL(g1) & BVAL(g1); /* stay set only if X */ + } + } else { + g1 = *R; + for (i = 0; i <= R_ngroups; i++, g1++) { + aval1 = AVAL(g1); + bval1 = BVAL(g1); + BVAL(g1) = aval1 & bval1; + AVAL(g1) = aval1 | bval1; + } + } + break; + + case NET_SUPPLY1_TYPE: + g1 = *R; + AVAL(g1) = 1; + BVAL(g1) = 0; + for (i = 1, g1++; i <= R_ngroups; i++, g1++) { + AVAL(g1) = 0; + BVAL(g1) = 0; + } + break; + + + case NET_SUPPLY0_TYPE: + g1 = *R; + AVAL(g1) = 0; + BVAL(g1) = 0; + for (i = 1, g1++; i <= R_ngroups; i++, g1++) { + AVAL(g1) = 0; + BVAL(g1) = 0; + } + break; + + /* 1 combined with 0 yields 0, Z combined with anything is still anything */ + case NET_WAND_TYPE: + case NET_TRIAND_TYPE: + for (t = NET_SOURCE(node); t; t = NET_SOURCE(t)) { + if (exclude_tree == t) { + continue; + } + + if (exclude_inout) { + if (PORT_OUTPUT_ATTR(t) || PORT_COLLAPSED_ATTR(t)) { + continue; + } + } + g1 = *R; + g2 = DECL_STORAGE(t); + for (i = 0; i <= R_ngroups; i++, g1++, g2++) { + aval1 = AVAL(g1); + aval2 = AVAL(g2); + bval1 = BVAL(g1); + bval2 = BVAL(g2); + AVAL(g1) = + (aval1 & aval2) | (aval1 & bval2) | (aval2 & bval1); + BVAL(g1) = (bval1 & bval2) | (aval1 & bval1 & aval2) + | (aval2 & bval2 & aval1); + } + } + break; + + /* 1 combined with 0 yields 1, Z combined with anything is still anything */ + case NET_WOR_TYPE: + case NET_TRIOR_TYPE: + for (t = NET_SOURCE(node); t; t = NET_SOURCE(t)) { + if (exclude_tree == t) { + continue; + } + if (exclude_inout) { + if (PORT_OUTPUT_ATTR(t) || PORT_COLLAPSED_ATTR(t)) { + continue; + } + } + g1 = *R; + g2 = DECL_STORAGE(t); + for (i = 0; i <= R_ngroups; i++, g1++, g2++) { + aval1 = AVAL(g1); + aval2 = AVAL(g2); + bval1 = BVAL(g1); + bval2 = BVAL(g2); + BVAL(g1) = (bval1 & bval2) | (aval1 & bval1) & + (~aval2 & ~bval2) | (~aval1 & ~bval1 & aval2 & bval2); + AVAL(g1) = aval1 | aval2; + } + } + break; + + default: + fatal("Eval of unknown net type", NULL); + } /* end switch (type) */ + *++R = g1; // + 1; +} + +/* Allocate virtual registers */ + +int R_alloc(int number, int area) +{ + number++; /* account for the zeroth register */ + number++; /* account for the zeroth register */ + number++; /* account for the zeroth register */ + number++; /* account for the zeroth register */ + if (number > current_regs) { + if (current_regs == 0) { + R_base = (union group **) xmalloc + (number * sizeof(union group **)); + } else { + R_base = (union group **) xrealloc + ((char*)R, number * sizeof(union group **)); + } + current_regs = number; + } + if (!R_base) { + return 0; + } + R = R_base; + area++; + area++; + area++; + area++; + if (area > current_area) { + if (current_area == 0) { + *R = (union group *) xmalloc(area * sizeof(Group)); + } else { + *R = (union group *) xrealloc((char*)*R, area * sizeof(Group)); + } + current_area = area; + } + if (!*R) { + return 0; + } + return 1; +} + +/* Evaluate a decl node but use a different number of nbits. Do this + by using a shadow_decl and setting the nbits. This is used for function + and sysfunction return values. Note that REAL and INTEGER attr bits + are valid in the passed-in decl. +*/ + +void eval_nbits(tree decl, nbits_t nbits) +{ + if (!global_shadow) { + global_shadow = make_node(SHADOW_REF); + } + TREE_NBITS(global_shadow) = nbits; + TREE_CHAIN(global_shadow) = decl; + TREE_REAL_ATTR(global_shadow) = TREE_REAL_ATTR(decl); + TREE_INTEGER_ATTR(global_shadow) = TREE_INTEGER_ATTR(decl); + eval_1(global_shadow); +} + +nbits_t eval_range(tree * inst, char *ident) +{ + Group *g; + nbits_t val; + + eval(inst); + + g = *--R; + if (BVAL(g)) { + error("Index in '%s' resloves to 'z' or 'x'", ident, NULL_CHAR); + } else { + val = AVAL(g); + } + return val; +} + +/* Evaluate the expression and return the low 32 bits */ + +Bit eval_const(tree * inst) +{ + Group *g; + Bit const_; + + eval(inst); + + g = *--R; + if (BVAL(g)) { + const_ = 0; + } else { + const_ = AVAL(g); + } + return const_; +} + +/* Evaluate an expression; return an integer non-zero if the top + of stack is non-zero. Then pop the stack. */ + +enum logical_value test(tree * expr) +{ + enum logical_value cond; + ngroups_t i; + Group *g; + + eval(expr); + DETERMINE_TRUE_COND(g); + return cond; +} + +/*********************************************************************** + * + * init_eval + * - initializes all global and static variables for eval.c + * + *********************************************************************** + */ + +void init_eval() +{ + R_nbits = 0; + R_ngroups = 0; + in_cond = 0; + is_integer = 0; + is_real = 0; + current_area = 0; + current_regs = 0; + x32 = ldexp((double) 1, 32); + memset(&R_base, 0, sizeof(R_base)); + memset(&R, 0, sizeof(R)); + memset(&R_mask, 0, sizeof(R_mask)); + global_shadow = NULL_TREE; +} diff --git a/src/eval.h b/src/eval.h new file mode 100644 index 0000000..6252c40 --- /dev/null +++ b/src/eval.h @@ -0,0 +1,79 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* EVAL.H - Macros and prototypes for Eval */ + +#ifndef EVAL_H +#define EVAL_H + +// public methods + +/* This macro determines if the value point to by G is 0, 1, or X/Z */ +/* (THIS MACRO ALSO APPEARS IN EXEC.C) */ + +#define DETERMINE_TRUE_COND(G) \ + {G = *--R; \ + cond = ZERO; \ + for (i = 0; i < R_ngroups; i++, (G)++) { \ + if (BVAL (G)) { \ + cond = X; \ + G = *R + R_ngroups; \ + break; \ + } \ + else if (AVAL (G)) \ + cond = ONE; \ + } \ + if (BVAL (G) & R_mask) \ + cond = X; \ + else if (AVAL (G) & R_mask) \ + cond = ONE;} + +#define SET_STATE(G) \ + { \ + if (DECL_STATE (lval) != X) { \ + if (BVAL (G) & AVAL (G)) \ + SET_DECL_STATE (lval, X); \ + else if (DECL_STATE (lval) != Z) { \ + if (BVAL (G)) \ + SET_DECL_STATE (lval, Z); \ + else if (AVAL (G)) \ + SET_DECL_STATE (lval, ONE); \ + } \ + } \ + } + +#define TEST(EXPR, G) eval (EXPR); DETERMINE_TRUE_COND (G) + +int part_lref(Group * g1, Group * g2, struct part_info *info); +ngroups_t part_rref(Group * g1, Group * g2, struct part_info *info); +Group *eval_(tree * pc, nbits_t * nbits); +void eval_1(tree decl); +void eval(tree * pc); +delay_t eval_delay(tree delay_node, enum logical_value state); +void do_net_eval(tree node, int exclude_inout, tree exclude_tree); +int R_alloc(int number, int area); +nbits_t eval_range(tree * inst, char *ident); +Bit eval_const(tree * inst); +void eval_nbits(tree, nbits_t); +enum logical_value test(tree * expr); +void init_eval(); +double reg_to_real(Group * g, nbits_t nbits); +void real_to_reg(double x, Group * g, ngroups_t ngroups); + +#endif // EVAL_H diff --git a/src/exec.cc b/src/exec.cc new file mode 100644 index 0000000..6310fb1 --- /dev/null +++ b/src/exec.cc @@ -0,0 +1,1467 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + + + + +#include +#include +#include +#include +#include "vtypes.h" +#include "tree.h" +#include "schedule.h" +#include "runtime.h" +#include "flags.h" +#include "io.h" +#include "macro.h" +#include "glue.h" +#include "strobe.h" +#include "store.h" +#include "exec.h" +#include "print.h" +#include "eval.h" +#include "decl.h" +#include "specify.h" +#include "veriuser.h" +#include "acc_user.h" +#include "pli.h" +#include "systask.h" +#include "veriwell.h" +#include "lex.h" +#include "pass3.h" +#include "trace.h" + +#ifdef HAVE_LIBREADLINE +# if defined(HAVE_READLINE_READLINE_H) +# include +# elif defined(HAVE_READLINE_H) +# include +# else /* !defined(HAVE_READLINE_H) */ +extern char *readline (); +# endif /* !defined(HAVE_READLINE_H) */ +char *cmdline = NULL; +#else /* !defined(HAVE_READLINE_READLINE_H) */ + /* no readline */ +extern "C" char* readline(char*); +#endif /* HAVE_LIBREADLINE */ + +#ifdef HAVE_READLINE_HISTORY +# if defined(HAVE_READLINE_HISTORY_H) +# include +# elif defined(HAVE_HISTORY_H) +# include +# else /* !defined(HAVE_HISTORY_H) */ +# endif /* defined(HAVE_READLINE_HISTORY_H) */ + /* no history */ +#else /* !HAVE_READLINE_HISTORY */ +#endif /* HAVE_READLINE_HISTORY */ + + + +#define NULL_GROUP (Group *) NULL + +#define TRACE(CURRENT, NEXT, G, SKIP, VAL) \ +{ \ + if( lcbCount != 0 && !normal_flag ) { \ + handleLcb( CURRENT ); \ + } \ + if (!normal_flag) { \ + pc = go_interactive (CURRENT, NEXT, G, SKIP, VAL); \ + } else { \ + if ((NEXT) != NULL_TREE) { \ + pc = NEXT; \ + } \ + } \ +} + + +extern int in_simulation; + +int exit_flag = 0; +int in_disable; /* set while processing the disable statement */ + +extern SCB *readylist; + +static unsigned char brk_check = 0; + + +void Group2Time(int ngroup, Group * g, struct Time64 *t) +{ + int i; + // convert X/Z -> 0 + for (i = 0; i < ngroup + 1; ++i) { + if (BVAL(g + i)) { + t->timeh = 0; + t->timel = 0; + return; + } + } + t->timel = AVAL(g); + if (ngroup > 0) { + t->timeh = AVAL(g + 1); + } else { + t->timeh = 0; + } +} + +void set_simulation_time(time64 * newtime_p) +{ + ASSIGNTIME64(&CurrentTime, newtime_p); + if (trace_flag || single_trace_flag) { + printf_V("SIMULATION TIME IS "); + print_time(&CurrentTime); + printf_V("\n"); + } +} + +struct context_member *free_context; + +struct context_member *make_context(void) +{ + struct context_member *new_t; + + if (free_context) { + new_t = free_context; + REMOVE_LIST(new_t); + return new_t; + } else { + return (struct context_member *) xmalloc + (sizeof(struct context_member)); + } +} + +void enter_context(SCB * scb, tree scope, tree pc) +{ + struct context_member *tmp; + struct context_member *new_context; + + if (!scope) { /* If scb is build w/out context, don't bother */ + return; + } + new_context = make_context(); + ADD_LIST(BLOCK_CONTEXT_LIST(scope), new_context); + new_context->shadow = scb->context; + scb->context = new_context; + new_context->scb = scb; + new_context->scope = scope; + new_context->pc = pc; +} + + +tree exit_context(SCB * scb) +{ + struct context_member *tmp; + struct context_member *context = scb->context; + + scb->context = context->shadow; + REMOVE_LIST(context); + ADD_LIST(free_context, context); + return context->pc; +} + + +/* Starting with the innermost context, unwind until past the given + context. Return the outermost PC. */ + +tree unwind_context(struct context_member * context) +{ + while (context->scb->context != context) { + exit_context(context->scb); + free_context->pc = NULL; + } + return exit_context(context->scb); +} + +void disable_context(struct context_member *context) +{ + SCB *scb; + SCB *tmp; + tree next_pc; + tree current_pc; + int me; + + /* First, get the SCB. */ + scb = context->scb; + current_pc = scb->pc; + me = readylist == scb; + + /* The context being disabled is in one of the following states: waiting + for a time or event, the beginning of a fork, or at the head of the + readylist (me). Do the right thing for each case. */ + + if (me) { + next_pc = unwind_context(context); + } else { + switch (TREE_CODE(current_pc)) { + case EVENT_STMT: + event_undo(STMT_EVENT_MARKER(current_pc)); + next_pc = unwind_context(context); + break; + + case WAIT_STMT: + event_undo(STMT_WAIT_MARKER(current_pc)); + next_pc = unwind_context(context); + break; + + case ASSIGN_DELAY_STMT: + case DELAY_STMT: + next_pc = unwind_context(context); + break; + + case JOIN_STMT: + case JOIN_NAMED_STMT: + while (context->next) { + disable_context(context->next); + } + next_pc = context->pc; + break; + + /* If the disable came from within a named fork, let join handle it */ + case FORK_NAMED_STMT: + next_pc = STMT_BODY(current_pc); /* points to join */ + break; + } + } + + ASSIGNTIME64(&(scb->time), &CurrentTime); + + scb->mode = RUN; + + if (!next_pc) /* must be a fork member */ + if (me) { + /* + * I am one of the fork members and if I kill the SCB, then ... + * ... I have to put the fork's SCB at the front of the ready list + */ + SCB *fork_scb = scb->fork; + ASSERT(fork_scb); + ASSERT(fork_scb->fork_count > 0); + FreeSCB(scb); + REMOVE_LIST_SCB(fork_scb); + ADD_LIST_SCB(READY_LIST, &readylist, fork_scb); + readylist->mode = WAIT; + } else { + FreeSCB(scb); + } + + else { + int save_normal_flag; + // ??? mdh - not sure why this matters but it does + int onReadyList = (scb->list == READY_LIST); + + in_disable = 1; + REMOVE_LIST_SCB(scb); + ADD_LIST_SCB(READY_LIST, &readylist, scb); + scb->pc = next_pc; + save_normal_flag = normal_flag; + normal_flag = 0; + + exec_(scb->pc); + + in_disable = 0; + normal_flag = save_normal_flag; + +/* Put the disabled process next of the readylist. + In some cases, after exec-ing, the scb could have been taken off + the ready list. If so, don't bother putting at the end. + Eg: disabling a named begin inside a fork-join -- this will + exec the join stmt which calls dump_current_process. + Also, if I am disabling myself, then there could be only + my SCB on the readylist, so don't bother moving it */ + + if (!me && onReadyList && scb->list == READY_LIST + && readylist->next) { + SCB *last; + REMOVE_LIST_SCB(scb); + last = LAST_SCB(READY_LIST); + if (last) { + ADD_LIST_SCB(READY_LIST, &last->next, scb); + } else { + ADD_LIST_SCB(READY_LIST, &readylist, scb); + } + } + } +} + +/* process deassign statement; find matching assignment and unthread + the markers. Return pc of ASSIGN or FORCE if something was actually + released. Note that the deassign will not happen under certain + circumstances. Specifically, if it was requested by a assign or deassign + but was generated by a force, it will not happen. */ + +tree deassign(tree lval_arg, enum tree_code code) +{ + Marker *marker; + tree pc; + tree lval; + + /* if lval is hierarchical, it will be a "shadow" lval". Point to the real + lval. */ + lval = the_lval(lval_arg); + + for (marker = DECL_EVENT_CHAIN(lval); marker; marker = marker->next) { + /* marker must be for continuous assignment, then it must point to + procedual cont assignment, then lvals must match */ + if (marker->flags & M_CONT && + (TREE_CODE(marker->expr.tree) == ASSIGN_PROC_STMT || + TREE_CODE(marker->expr.tree) == FORCE_STMT) && + the_lval(STMT_ASSIGN_LVAL(marker->expr.tree)) == lval) { + pc = marker->expr.tree; + if (TREE_CODE(pc) == FORCE_STMT && + (code == ASSIGN_PROC_STMT || code == DEASSIGN_STMT)) { + return NULL_TREE; + } + event_undo(STMT_ASSIGN_EVENT_LIST(pc)); + return pc; + } + } + return NULL_TREE; +} + +int first_time_exec = 1; + +tree exec_(tree pc) +{ + Group *g1, *g2; + enum logical_value cond; + ngroups_t i; + int found; + enum tree_code code; + tree t, t1, new_pc, old_pc; + tree scope; // for fork + + if (!is_interactive && first_time_exec && in_simulation) { + first_time_exec = 0; + if (s_flag) { + single_step_flag = 1; + /* enter command line mode w/no trace */ + pc = go_interactive(NULL_TREE, pc, NULL_GROUP, 0, 0); + } + } else { + if (in_disable) { + pc = go_interactive(NULL_TREE, pc, NULL_GROUP, 1, 0); + } + } + + for (;;) { + + +// if (!brk_check++) /* interrupt the process every so often to */ +// ftell (stdout); /* guarentee that a break will be detected */ + + code = TREE_CODE(pc); + + switch (code) { + case BEGIN_STMT: + TRACE(pc, STMT_BODY(pc), NULL_GROUP, 0, 0); + break; + + case BEGIN_NAMED_STMT: + enter_context(readylist, STMT_BLOCK(pc), TREE_CHAIN(pc)); + TRACE(pc, STMT_BODY(pc), NULL_GROUP, 0, 0); + break; + + case END_NAMED_STMT: + exit_context(readylist); + TRACE(pc, TREE_CHAIN(pc), NULL_GROUP, 0, 0) break; + + case FORK_NAMED_STMT: + /* Point to PAST Join in case of disable */ + scope = STMT_BLOCK(pc); + enter_context(readylist, STMT_BLOCK(pc), + TREE_CHAIN(TREE_CHAIN(pc))); + goto fork_common; + case FORK_STMT: + scope = STMT_SCOPE(pc); + enter_context(readylist, STMT_SCOPE(pc), + TREE_CHAIN(TREE_CHAIN(pc))); + fork_common: + { + SCB *fork = readylist; + SCB *scb; + SCB *tmp; + SCB *where = readylist; + + fork->fork_count = 0; + for (t = STMT_BODY(pc); t; t = TREE_CHAIN(t)) { + /* SCBs are built dynamically instead of at compile time. This + is because in tasks, more than one process could enter an + SCB at one time. */ + /* we will use the SCB's make_context to point to the innermost + scope, which may be the named fork scope */ + tree saved_scope = current_scope; + current_scope = scope; + scb = BuildSCB(TREE_PURPOSE(t), NOLIST); + current_scope = saved_scope; + /* Each member has its own context. This way, disable + will work because there is a binding between the + fork and all its branches */ + REMOVE_LIST_SCB(scb); + /* thread in order */ + ADD_LIST_SCB(READY_LIST, &where->next, scb); + fork->fork_count++; /* Keep count of concurrent stmts */ + scb->fork = fork; /* point back to "main" SCB */ + where = scb; + } + } + readylist->pc = TREE_CHAIN(pc); + readylist->mode = WAIT; + new_pc = dispatch_pc(EVENT_LIST); + readylist->pc = NULL; /* Don't trigger event stmt */ + TRACE(pc, new_pc, NULL_GROUP, 0, 0); + break; + + case JOIN_STMT: + case JOIN_NAMED_STMT: + /* If this is the last fork member, get fork control back on the + ready list and go. Note that exit_context frees up + context_member but subsequent code assumes the pointers + are valid (freed context_members go on a free list and + are not freed in memory). */ + /* Get here if FORK is disabled */ + if (readylist->mode == WAIT) { + readylist->mode = RUN; + TRACE(pc, TREE_CHAIN(pc), NULL_GROUP, 0, 0); + } else { + /* One of the members exited; get rid of it */ + SCB *fork_scb = readylist->fork; + tree scope = readylist->context->scope; + ASSERT(fork_scb); + ASSERT(fork_scb->fork_count > 0); + fork_scb->fork_count--; + /* if all branches are finished, then scope will point to the + fork context; if there are some to finish, then scope + will point to all the contexts still to run */ + if (fork_scb->fork_count == 0) { + SCB *tmp; + /* put mother fork next on ready lest */ + REMOVE_LIST_SCB(fork_scb); + ADD_LIST_SCB(READY_LIST, &readylist->next, fork_scb); + readylist->next->mode = RUN; + exit_context(readylist); // for the last branch + exit_context(readylist->next); // for the fork + pc = dump_current_process(); + TRACE(pc, TREE_CHAIN(pc), NULL_GROUP, 1, 0); + } else { + exit_context(readylist); + new_pc = dump_current_process(); + TRACE(pc, new_pc, NULL_GROUP, 0, 0); + } + } + break; + + case ALWAYS_BLOCK: + INITIALIZED_ATTR(pc) = 1; /* make trace consistant w/XL */ + case INITIAL_BLOCK: + TRACE(pc, STMT_BODY(pc), NULL_GROUP, 0, 0); + break; + + case IF_STMT: + if (test(STMT_COND_CODE(pc)) == ONE) { + TRACE(pc, STMT_THEN(pc), NULL_GROUP, 0, 0); + } else if (STMT_ELSE(pc)) { + TRACE(pc, STMT_ELSE(pc), NULL_GROUP, 1, 0); + } else { + TRACE(pc, TREE_CHAIN(pc), NULL_GROUP, 1, 0); + } + break; + + case ASSIGN_STMT: + eval(STMT_ASSIGN_RVAL_CODE(pc)); + TRACE(pc, pc, *(R - 1), 1, 1); + store(STMT_ASSIGN_LVAL(pc), pc); + TRACE(pc, TREE_CHAIN(pc), NULL_GROUP, 0, 0); + break; + + case ASSIGN_PROC_STMT: + case FORCE_STMT: + broadcast_tf(reason_force); + /* Make sure we start over */ + t = deassign(STMT_ASSIGN_LVAL(pc), code); + /* save pc of assign that we are overriding */ + if (code == FORCE_STMT) { + if (t && TREE_CODE(t) == ASSIGN_PROC_STMT) { + STMT_ASSIGN_TMP(pc) = t; + } else { + STMT_ASSIGN_TMP(pc) = NULL_TREE; + } + } + thread_all_markers(STMT_ASSIGN_EVENT_LIST(pc)); + eval(STMT_ASSIGN_RVAL_CODE(pc)); + TRACE(pc, pc, *(R - 1), 1, 1); + store(STMT_ASSIGN_LVAL(pc), pc); + TRACE(pc, TREE_CHAIN(pc), NULL_GROUP, 0, 0); + break; + + case DEASSIGN_STMT: + case RELEASE_STMT: + broadcast_tf(reason_release); + t = deassign(the_lval(STMT_BODY(pc)), code); + /* If was we are releasing still has an ASSIGN on it, + reactivate the assign */ + if (t && code == RELEASE_STMT && STMT_ASSIGN_TMP(t)) { + thread_all_markers(STMT_ASSIGN_EVENT_LIST + (STMT_ASSIGN_TMP(t))); + do_net_assignment(STMT_ASSIGN_TMP(t)); + /* if net, reevaluate */ + } else if (is_all_net(the_lval(STMT_BODY(pc)))) { + /* if part or bit */ + t1 = root_port_decl(the_lval(STMT_BODY(pc))); + do_net_eval(t1, 0, NULL_TREE); /* evaluate it */ + store(t1, pc); /* and store it */ + } + + TRACE(pc, TREE_CHAIN(pc), NULL_GROUP, 0, 0) break; + + case ASSIGN_CONT_STMT: + if (CMPTIME64(&CurrentTime, &(readylist->time))) { + set_simulation_time(&(readylist->time)); + } + eval(STMT_ASSIGN_RVAL_CODE(pc)); + TRACE(pc, pc, *(R - 1), 1, 1); + store(STMT_ASSIGN_LVAL(pc), pc); + if (NET_ASSIGN_ATTR(STMT_ASSIGN_LVAL(pc)) && + !PORT_COLLAPSED_ATTR(TREE_CHAIN(STMT_ASSIGN_LVAL(pc)))) { + tree net = TREE_CHAIN(STMT_ASSIGN_LVAL(pc)); + do_net_eval(net, 0, NULL_TREE); + TRACE(net, net, *(R - 1), 1, 1); + store(net, net); + } + new_pc = suspend_current_process(); + TRACE(pc, new_pc, *R, 0, 0); + break; + + case NET_SCALAR_DECL: + case NET_VECTOR_DECL: + DEBUGPRINT("Doing net exec\n"); + if (CMPTIME64(&CurrentTime, &(readylist->time))) { + set_simulation_time(&(readylist->time)); + } + do_net_eval(pc, 0, NULL_TREE); + TRACE(pc, pc, *(R - 1), 1, 1); + store(pc, pc); + /* Calculate output port seperately and only if connected */ + if ((PORT_OUTPUT_ATTR(pc) || + PORT_COLLAPSED_ATTR(pc)) && DECL_THREAD(pc)) { + do_net_eval(pc, 1, NULL_TREE); + store(DECL_THREAD(pc), pc); + } + if (!readylist) { + fatal("Caught it!", NULL_CHAR); + } + new_pc = suspend_current_process(); + TRACE(pc, new_pc, NULL_GROUP, 0, 0); + break; + + case FOR_STMT: + eval(STMT_ASSIGN_RVAL_CODE(STMT_FOR_ASSIGN(pc))); + TRACE(pc, pc, *(R - 1), 0, 1); + store(STMT_ASSIGN_LVAL(STMT_FOR_ASSIGN(pc)), pc); + eval(STMT_FOR_COND_CODE(pc)); + DETERMINE_TRUE_COND(g1); + if (cond == ONE) { + TRACE(pc, STMT_BODY(pc), NULL_GROUP, 1, 0); + } else { + TRACE(pc, TREE_CHAIN(pc), NULL_GROUP, 0, 0); + } + break; + + case WHILE_STMT: + if (test(STMT_WHILE_COND_CODE(pc)) == ONE) { + TRACE(pc, STMT_BODY(pc), NULL_GROUP, 0, 0); + } else { + TRACE(pc, TREE_CHAIN(pc), (Group *) TREE_CHAIN(pc), 1, 0); + } + break; + + case REPEAT_INIT_STMT: + eval(STMT_REPEAT_EXPR_CODE(pc)); + AVAL(STMT_REPEAT_VAR(pc)) = AVAL(*--R); + BVAL(STMT_REPEAT_VAR(pc)) = BVAL(*R); + + t = pc; + if (BVAL(STMT_REPEAT_VAR(pc))) { + AVAL(STMT_REPEAT_VAR(pc)) = (unsigned int) -1; + BVAL(STMT_REPEAT_VAR(pc)) = (unsigned int) -1; + pc = TREE_CHAIN(pc); + } else if (AVAL(STMT_REPEAT_VAR(pc))) { + pc = STMT_BODY(pc); + } else { + pc = TREE_CHAIN(pc); + } + TRACE(t, pc, STMT_REPEAT_VAR(t), 1, 0); + break; + + case REPEAT_STMT: + t = pc; + if (BVAL(STMT_REPEAT_VAR(pc))) { + AVAL(STMT_REPEAT_VAR(pc)) = (unsigned int) -1; + BVAL(STMT_REPEAT_VAR(pc)) = (unsigned int) -1; + pc = TREE_CHAIN(pc); + } else if (--AVAL(STMT_REPEAT_VAR(pc))) { + pc = STMT_BODY(pc); + } else { + pc = TREE_CHAIN(pc); + } + TRACE(t, pc, STMT_REPEAT_VAR(t), 1, 0); + break; + + case CASE_STMT: + case CASEZ_STMT: + case CASEX_STMT: + /* evaluate the case expression and leave on stack. Eval + choices until match. If no match, go to default, if there + is one. */ + eval(STMT_CASE_EXPR_CODE(pc)); + if (!INTERRUPT_FLAG_ATTR(pc)) { + old_pc = pc; + TRACE(pc, pc, *(R - 1), 0, 0); + if (pc != old_pc) { /* A new statement has been entered... */ + --R; /* unwind the stack... */ + /* abd remember that this happened. */ + INTERRUPT_FLAG_ATTR(old_pc) = 1; + break; + } + } else { + INTERRUPT_FLAG_ATTR(pc) = 0; + } + found = 0; + for (t = STMT_CASE_LIST(pc); !found && t; t = TREE_CHAIN(t)) { + for (t1 = TREE_EXPR(t); !found && t1; t1 = TREE_CHAIN(t1)) { + eval(TREE_EXPR_CODE(t1)); + found = 1; + g2 = *--R; + g1 = *(R - 1); + if (code == CASE_STMT) { + for (i = 0; i < R_ngroups; i++, g1++, g2++) { + if ((AVAL(g1) != AVAL(g2)) + || (BVAL(g1) != BVAL(g2))) { + found = 0; + break; + } + } + + found = found && !(((AVAL(g1) ^ AVAL(g2)) & R_mask) /* all zeros if equal */ + ||((BVAL(g1) ^ BVAL(g2)) & + R_mask)); + } else if (code == CASEZ_STMT) { + Bit aval1; + Bit bval1; + Bit aval2; + Bit bval2; + for (i = 0; i < R_ngroups; i++, g1++, g2++) { + aval1 = AVAL(g1); + bval1 = BVAL(g1); + aval2 = AVAL(g2); + bval2 = BVAL(g2); + /* All ones if equal (Z is don't care) */ + if (((aval1 ^ aval2) | (bval1 ^ bval2)) + & (~bval1 | aval1) & (~bval2 | aval2)) { + found = 0; + break; + } + } + + aval1 = AVAL(g1); + bval1 = BVAL(g1); + aval2 = AVAL(g2); + bval2 = BVAL(g2); + /* If equal, then all zeros. Zs force zeros. */ + found = found + && !(((aval1 ^ aval2) | (bval1 ^ bval2)) + & (~bval1 | aval1) & (~bval2 | aval2) + & R_mask); + } else if (code == CASEX_STMT) { + Bit aval1; + Bit bval1; + Bit aval2; + Bit bval2; + for (i = 0; i < R_ngroups; i++, g1++, g2++) { + aval1 = AVAL(g1); + bval1 = BVAL(g1); + aval2 = AVAL(g2); + bval2 = BVAL(g2); + /* All zeros if equal (Z and X are don't care) */ + if (((aval1 ^ aval2) | (bval1 ^ bval2)) + & ~bval1 & ~bval2) { + found = 0; + break; + } + } + + aval1 = AVAL(g1); + bval1 = BVAL(g1); + aval2 = AVAL(g2); + bval2 = BVAL(g2); + found = found + && !(((aval1 ^ aval2) | (bval1 ^ bval2)) + & ~bval1 & ~bval2 & R_mask); + } else { + fatal("Bad CASE Exec", NULL_CHAR); + } + + if (found) { + pc = TREE_STMT(t); + } + } + } + if (!found) { + if (STMT_CASE_DEFAULT(pc)) { + pc = STMT_CASE_DEFAULT(pc); + } else { + pc = TREE_CHAIN(pc); + } + } + R--; + break; + + case ASSIGN_DELAY_STMT: + if (readylist->mode == RUN) { + eval(STMT_ASSIGN_RVAL_CODE(pc)); + store(STMT_ASSIGN_TMP(pc), pc); + eval(STMT_DELAY_EXPR_CODE(STMT_ASSIGN_DELAY(pc))); + struct Time64 t; + Group2Time(R_ngroups, *--R, &t); + new_pc = WaitOnTime64(&t, pc); + TRACE(pc, pc, *R, 1, 1); + TRACE(pc, new_pc, NULL_GROUP, 0, 1); + } else { + readylist->mode = RUN; + if (CMPTIME64(&CurrentTime, &(readylist->time))) { + set_simulation_time(&(readylist->time)); + } + eval(STMT_ASSIGN_TMPCODE(pc)); + TRACE(pc, pc, *(R - 1), 1, 0); + store(STMT_ASSIGN_LVAL(pc), pc); + TRACE(pc, TREE_CHAIN(pc), NULL_GROUP, 0, 0); + } + break; + + case ASSIGN_NONBLK_DELAY_STMT: + if (readylist->mode == RUN) { + SCB *scb; + scb = BuildSCB(pc, NOLIST); + enter_context(scb, readylist->context->scope, NULL_TREE); + /* each execution of nonblocking + delay requires new temp var */ + scb->here.decl = make_tmp_decl(STMT_ASSIGN_LVAL(pc)); + STMT_ASSIGN_TMP(pc) = (tree) scb; /* save for trace */ + eval(STMT_ASSIGN_RVAL_CODE(pc)); + store(scb->here.decl, pc); + store_computeOnly = 1; + store_scb = scb; + store(STMT_ASSIGN_LVAL(pc), pc); + store_computeOnly = 0; + if (STMT_ASSIGN_DELAY(pc)) { + eval(STMT_DELAY_EXPR_CODE(STMT_ASSIGN_DELAY(pc))); + struct Time64 t; + Group2Time(R_ngroups, *--R, &t); + ScheduleDelta64(&t, scb, 0); + } else { + Schedule((delay_t) 0, scb, 0); + } + scb->pc = pc; + TRACE(pc, pc, *R, 1, 1); + TRACE(pc, TREE_CHAIN(pc), NULL_GROUP, 0, 1); + } else { + readylist->mode = RUN; + if (CMPTIME64(&CurrentTime, &(readylist->time)) != 0) { + set_simulation_time(&(readylist->time)); + } + eval_1(readylist->here.decl); + TRACE(pc, pc, *(R - 1), 1, 0); + store_useCached = 1; + store(STMT_ASSIGN_LVAL(pc), pc); + store_useCached = 0; + free_tmp_decl(readylist->here.decl); + exit_context(readylist); + new_pc = dump_current_process(); + TRACE(pc, new_pc, NULL_GROUP, 0, 0); + } + break; + + case PATH_OUTPUT: + if (CMPTIME64(&CurrentTime, &(readylist->time)) != 0) { + set_simulation_time(&(readylist->time)); + } + propagate_specify_path(pc); + new_pc = suspend_current_process(); + TRACE(pc, new_pc, NULL_GROUP, 0, 0); + break; + + case DELAY_STMT: + if (readylist->mode == RUN) { + eval(STMT_DELAY_EXPR_CODE(pc)); + struct Time64 t; + Group2Time(R_ngroups, *--R, &t); + new_pc = WaitOnTime64(&t, pc); + TRACE(pc, new_pc, *R, 0, 1); + } else { + readylist->mode = RUN; + if (CMPTIME64(&CurrentTime, &(readylist->time)) != 0) { + set_simulation_time(&(readylist->time)); + } + TRACE(pc, STMT_BODY(pc), NULL_GROUP, 1, 0); + } + break; + + case WAIT_STMT: + if (test(STMT_WAIT_EXPR_CODE(pc)) == ONE) { + readylist->mode = RUN; + TRACE(pc, STMT_BODY(pc), NULL_GROUP, 1, 0); + } else { + new_pc = WaitOnEventAll(STMT_WAIT_MARKER(pc), pc); + TRACE(pc, new_pc, NULL_GROUP, 0, 0); + /* Make it so WAIT_STMT will be reexecuted when notified */ + } + break; + + case ASSIGN_EVENT_STMT: + if (readylist->mode == RUN) { + eval(STMT_ASSIGN_RVAL_CODE(pc)); + store(STMT_ASSIGN_TMP(pc), pc); + /* Set the state from which to detect edge */ + for (t = STMT_EVENT_EXPR_LIST(STMT_ASSIGN_EVENT(pc)); t; + t = TREE_CHAIN(t)) { + if (TREE_EXPR_CODE(t)) { + eval(TREE_EXPR_CODE(t)); + --R; + } + } + new_pc = WaitOnEventAll(STMT_EVENT_MARKER + (STMT_ASSIGN_EVENT(pc)), pc); + TRACE(pc, pc, *R, 1, 1); + TRACE(pc, new_pc, NULL_GROUP, 0, 1); + } else { + readylist->mode = RUN; + eval(STMT_ASSIGN_TMPCODE(pc)); + TRACE(pc, pc, *(R - 1), 1, 0); + store(STMT_ASSIGN_LVAL(pc), pc); + TRACE(pc, TREE_CHAIN(pc), NULL_GROUP, 0, 0); + } + break; + + case ASSIGN_NONBLK_EVENT_STMT: + if (readylist->mode == RUN) { + eval(STMT_ASSIGN_RVAL_CODE(pc)); + store(STMT_ASSIGN_TMP(pc), pc); + /* Set the state from which to detect edge */ + for (t = STMT_EVENT_EXPR_LIST(STMT_ASSIGN_EVENT(pc)); t; + t = TREE_CHAIN(t)) { + if (TREE_EXPR_CODE(t)) { + eval(TREE_EXPR_CODE(t)); + --R; + } + } + + WaitOnEventOther(STMT_ASSIGN_SCB(pc), + STMT_EVENT_MARKER(STMT_ASSIGN_EVENT(pc)), + pc); + TRACE(pc, pc, *R, 1, 1); + TRACE(pc, TREE_CHAIN(pc), NULL_GROUP, 0, 1); + } else { + readylist->mode = RUN; + eval(STMT_ASSIGN_TMPCODE(pc)); + TRACE(pc, pc, *(R - 1), 1, 0); + store(STMT_ASSIGN_LVAL(pc), pc); + new_pc = dispatch_pc(EVENT_LIST); + TRACE(pc, new_pc, NULL_GROUP, 0, 0); + } + break; + + case EVENT_STMT: + if (readylist->mode == RUN) { + /* Set the state from which to detect edge */ + for (t = STMT_EVENT_EXPR_LIST(pc); t; t = TREE_CHAIN(t)) { + if (TREE_EXPR_CODE(t)) { + eval(TREE_EXPR_CODE(t)); + --R; + } + } + new_pc = WaitOnEventAll(STMT_EVENT_MARKER(pc), pc); + TRACE(pc, new_pc, NULL_GROUP, 0, 0); + } else { + readylist->mode = RUN; + TRACE(pc, STMT_BODY(pc), NULL_GROUP, 1, 0); + } + break; + + case ARROW_STMT: + if (DECL_EVENT_CHAIN(STMT_ARROW_EVENT(pc))) { + NotifyEvent(DECL_EVENT_CHAIN(STMT_ARROW_EVENT(pc)), + ZERO, (int) 0); + } + TRACE(pc, TREE_CHAIN(pc), NULL_GROUP, 0, 0); + break; + + case FOREVER_STMT: + TRACE(pc, STMT_BODY(pc), NULL_GROUP, 0, 0); + break; + + case TASK_STMT: + if (!free_context || free_context->pc != pc) { + t1 = TASK_INPUT(STMT_TASK_TASK(pc)); + for (t = STMT_TASK_INASSIGN(pc); t; + t = TREE_CHAIN(t), t1 = TREE_CHAIN(t1)) { + eval((tree *) TREE_PURPOSE(t)); + store(TREE_PURPOSE(t1), STMT_TASK_TASK(pc)); + } + enter_context(readylist, STMT_TASK_TASK(pc), pc); + TRACE(pc, BLOCK_BODY(STMT_TASK_TASK(pc)), NULL_GROUP, 0, + 0); + } else { + /* Get here on DISABLE */ + free_context->pc = NULL; + pc = TREE_CHAIN(pc); + } + break; + + case TASK_BLOCK: + new_pc = exit_context(readylist); + free_context->pc = NULL; + t1 = TASK_OUTPUT(STMT_TASK_TASK(new_pc)); + for (t = STMT_TASK_OUTASSIGN(new_pc); t; + t = TREE_CHAIN(t), t1 = TREE_CHAIN(t1)) { + eval((tree *) TREE_PURPOSE(t1)); + store(TREE_PURPOSE(t), new_pc); + } + TRACE(pc, TREE_CHAIN(new_pc), NULL_GROUP, 0, 0); + break; + + case SYSTASK_STMT: + TRACE(pc, pc, NULL_GROUP, 1, 0); + exec_systask(pc); + TRACE(pc, TREE_CHAIN(pc), NULL_GROUP, 0, 0); + break; + + case FUNCTION_REF: + TRACE(pc, BLOCK_BODY(FUNC_REF_FUNC(pc)), NULL_GROUP, 0, 0); + break; + + case FUNCTION_BLOCK: + TRACE(pc, pc, NULL_GROUP, 0, 0); + return pc; + + case DISABLE_STMT: + broadcast_tf(reason_disable); + { + tree scope = STMT_DISABLE_SCOPE(pc); + TRACE(pc, pc, NULL_GROUP, 1, 0); + readylist->pc = TREE_CHAIN(pc); + while (BLOCK_CONTEXT_LIST(scope)) { + disable_context(BLOCK_CONTEXT_LIST(scope)); + } + } + TRACE(pc, readylist->pc, NULL_GROUP, 0, 0); + break; + + case DUMMY_RETURN_STMT: + return pc; + + case NULL_STMT: + TRACE(pc, TREE_CHAIN(pc), NULL_GROUP, 0, 0); + break; + + case LOOPBACK_STMT: + pc = STMT_BODY(pc); + break; + + case DUMP_STMT: /* removes INITIAL blocks and interactive stmts */ + pc = dump_current_process(); + break; + + case FINISH_STMT: + print_info(); + finish(); + + case END_STMT: + TRACE(pc, TREE_CHAIN(pc), NULL_GROUP, 0, 0); + break; + + case PLI_DELAY: + { + struct SCB *scb; + tree task; + + if (CMPTIME64(&CurrentTime, &(readylist->time))) { + set_simulation_time(&(readylist->time)); + } + scb = readylist; + if (PLI_DELAY_LVAL(pc) == NULL) { + scb->pc = PLI_DELAY_NEXT(pc); + task = PLI_DELAY_NODE(pc); + systaskDoDelay(pc); + freePliDelayNode(pc); + if (scb->pc == NULL) { + switch (TREE_CODE(task)) { + case SYSTASK_STMT: + FUNC_REF_DELAYSCB(task) = NULL; + break; + case SYSFUNCTION_REF: + STMT_SYSTASK_DELAYSCB(task) = NULL; + break; + } + pc = dump_current_process(); + } else { + scb->time = PLI_DELAY_TIME(scb->pc); + pc = dispatch_pc(TIME_LIST); + } + } else { + freePliDelayNode(pc); + *R++ = PLI_DELAY_STORAGE(pc); + store(PLI_DELAY_LVAL(pc), pc); + pc = dump_current_process(); + } + } + break; + + case 0: + printf_error_V("Attempt to execute NULL instruction!\n"); + abort(); + break; + + default: + printf_error_V("Unimplemented instruction: %s\n", + tree_code_name[TREE_CODE(pc)]); + abort(); + break; + + } /* switch */ + } /* while */ +} + +/* Used by continuous assignments from the scheduler. PC points to + a assign_cont_stmt node. If there is a delay in the sourced net, + put its SCB onto the time list. */ + +void do_net_assignment(tree pc) +{ + tree net; + + eval(STMT_ASSIGN_RVAL_CODE(pc)); + if (in_simulation && (trace_flag || single_trace_flag)) { + printf_V("** Triggering Continuous Assignment:\n"); + trace_stmt(pc, *(R - 1), 1, 0); + } + store(STMT_ASSIGN_LVAL(pc), pc); + + /* If continuous assignment is actually a net assignment (wire foo = bar;) + then go ahead and evaluate it now. This is here for compatibility; + presumably, XL does this naturally. */ + + if (NET_ASSIGN_ATTR(STMT_ASSIGN_LVAL(pc)) && + !PORT_COLLAPSED_ATTR(TREE_CHAIN(STMT_ASSIGN_LVAL(pc)))) { + net = TREE_CHAIN(STMT_ASSIGN_LVAL(pc)); + do_net_eval(net, 0, NULL_TREE); + TRACE(net, net, *(R - 1), 1, 1); + store(net, net); + } +} + +int in_initial = 0; + +/* Called by verilog.c to initialize nets before execution */ +void initialize_cont_assignments() +{ + tree t, pc; + int i = 0; + + in_initial = 1; + for (t = nreverse(continuous_assignments); t; t = TREE_CHAIN(t), i++) { + pc = TREE_PURPOSE(t); + if (TREE_CODE(pc) == NET_SCALAR_DECL + || TREE_CODE(pc) == NET_VECTOR_DECL) { + ScheduleNet(DECL_EVENT_CHAIN(pc), ZERO); + continue; + } + eval(STMT_ASSIGN_RVAL_CODE(pc)); + store(STMT_ASSIGN_LVAL(pc), pc); + if (NET_ASSIGN_ATTR(STMT_ASSIGN_LVAL(pc))) { + tree net = TREE_CHAIN(STMT_ASSIGN_LVAL(pc)); + do_net_eval(net, 0, NULL_TREE); + TRACE(net, net, *(R - 1), 1, 1); + store(net, net); + } + } + in_initial = 0; +} + +/* During net initialization, sched will call this */ +void net_exec(tree pc) +{ + DEBUGPRINT("Doing net exec\n"); + do_net_eval(pc, 0, NULL_TREE); + TRACE(pc, pc, *(R - 1), 1, 0); + store(pc, pc); + if ((PORT_OUTPUT_ATTR(pc) || PORT_COLLAPSED_ATTR(pc)) + && DECL_THREAD(pc)) { + do_net_eval(pc, 1, NULL_TREE); + store(DECL_THREAD(pc), pc); + } +} + +void exec_history() +{ + sorry("Command history not supported in this version"); +} + +void exec_remove_history() +{ + sorry("Command history not supported in this version"); +} + +int new_cmd_level = 1; +int cmd_level; +int prompt_flag = 1; +static int save_char = 0; + +tree +go_interactive(tree current_pc, tree next_pc, Group * g, int skip, int val) +{ + int c; + int ignore_cr = 0; + int fail; + extern tree interactive_statement; + extern int errorcount; /* from verilog.c */ + int tmp_error; + extern tree dummy_return; /* def'd in pass3.c; used for disable stmt */ + extern clock_t clock_pause; /* def'd in verilog.c */ + clock_t clk_pause; /* pause timer during interaction */ + + if ((trace_flag || single_trace_flag) && current_pc) { + switch (TREE_CODE(current_pc)) { + case SYSTASK_STMT: + case DISABLE_STMT: + case ASSIGN_STMT: + case ASSIGN_DELAY_STMT: + case ASSIGN_EVENT_STMT: + case ASSIGN_NONBLK_DELAY_STMT: + case ASSIGN_NONBLK_EVENT_STMT: + case ASSIGN_CONT_STMT: + case ASSIGN_PROC_STMT: + case FORCE_STMT: + case NET_VECTOR_DECL: + case NET_SCALAR_DECL: + case JOIN_STMT: + case JOIN_NAMED_STMT: + if (skip) { + trace_stmt(current_pc, g, skip, val); + return next_pc; + } + break; + default: + trace_stmt(current_pc, g, skip, val); + } + } + + if (!single_step_flag && !break_flag && !in_disable) { + /* Don't go interactive */ + return next_pc; + } + + /* Certain statements should stop after, not before */ + if (current_pc) { + switch (TREE_CODE(current_pc)) { + case SYSTASK_STMT: + case DISABLE_STMT: + case ASSIGN_STMT: + case ASSIGN_DELAY_STMT: + case ASSIGN_EVENT_STMT: + case ASSIGN_NONBLK_DELAY_STMT: + case ASSIGN_NONBLK_EVENT_STMT: + case ASSIGN_CONT_STMT: + case ASSIGN_PROC_STMT: + case FORCE_STMT: + case NET_VECTOR_DECL: + case NET_SCALAR_DECL: + if (skip) { + return next_pc; + } + break; + } + + + switch (TREE_CODE(next_pc)) { + case FOR_STMT: + if (STMT_SURROGATE_ATTR(next_pc) || val) { + return next_pc; + } + break; + case END_STMT: + case END_NAMED_STMT: + case JOIN_STMT: + case JOIN_NAMED_STMT: + case REPEAT_STMT: + case TASK_BLOCK: + case FUNCTION_BLOCK: + return next_pc; + case ALWAYS_BLOCK: + if (INITIALIZED_ATTR(next_pc)) { + return next_pc; + } + } + } + + if (break_flag) { /* we got here on a break, now exit */ + printf_V("Interrupt at time "); + print_time(&CurrentTime); + printf_V("\n"); + fin = File::Stdin(); + } + + if (in_disable) { + readylist->pc = next_pc; + return dummy_return; + } + + break_flag = 0; + normal_flag = !trace_flag; + single_step_flag = 0; + single_trace_flag = 0; + + cmd_level = new_cmd_level; + + for (;;) { + int endOfInput = 0; + clk_pause = clock(); /* start counting time away from simulation */ + if (prompt_flag) { + flush_files(); /* make sure that log and waves file are flushed */ + char prompt[256]; + snprintf(prompt, sizeof(prompt), "C%i> ", cmd_level); + char *line; + if (fin == NULL || fin == File::Stdin()) { + line = readline(prompt); +#ifdef HAVE_READLINE_HISTORY + if (line && line[0]) { + add_history(line); + } +#endif // HAVE_READLINE_HISTORY + } else { + char buffer[1024]; + if (fin->fgets(buffer, sizeof(buffer))) { + if (buffer[strlen(buffer) - 1] == '\n') { + buffer[strlen(buffer) - 1] = 0; + } else { + printf_error_V("lines in input file must be" + " less than %d characters\n", + sizeof(buffer)); + } + line = strdup(buffer); + } else { + line = 0; + } + } + if (line) { + printf_V_log("%s", prompt); + printf_V_key("%s\n", line); + push_stream(fin, 2); + fin = new File(line, strlen(line), 1); + } else { + endOfInput = 1; + } + } + + /* if there are no characters in the buffer, this is where + we'll wait for user input. Some compilers add the + '\n' at the end of the line. We'll watch for that + and strip it out. */ + + if (endOfInput) { + c = EOF; + } else { + do { + c = fin->fgetc(); + } + while (c == ' ' || c == '\t'); + } + + clock_pause += clock() - clk_pause; + + /* get here either at end of macro (if a macro was + entered at the command line), or end of input + file (-i or $input). */ + + if (c == EOF) { + File *savefin = fin; + fin = pop_stream(); /* This was either an input file or macro */ + if (!fin) { /* if Ctl-D is pressed under Unix, EOF is */ + print_info(); /* is returned from getc so fin is NULL */ + finish(); + } + prompt_flag = 1; + continue; + } + + /* Normal case: print what was in the I/O buffer to the log file */ + + if (c == '\n') { + prompt_flag = 1; + continue; + } else { + prompt_flag = 0; + } + + switch (c) { + case ',': + single_trace_flag = 1; + + case ';': + normal_flag = 0; + single_step_flag = 1; + + case '.': + is_interactive = 0; + return next_pc; + + case ':': + printf_V("Current position: line %d\n", + STMT_SOURCE_LINE(current_pc)); + break; + + case '-': + break; + + case ' ': + break; + + /* ^D: exit immediately */ + case (4): + print_info(); + finish(); + + /* Command history */ + case ('0'): + case ('1'): + case ('2'): + case ('3'): + case ('4'): + case ('5'): + case ('6'): + case ('7'): + case ('8'): + case ('9'): + exec_history(); + break; + + case '!': + { + char cmd[128]; + int i; + + fin->fgets(cmd, 128); + if (cmd[0] == '\n') { + strcpy(cmd, getenv("COMSPEC")); + if (cmd == NULL) { + strcpy(cmd, "command"); + } + printf("Type EXIT to return to VeriWell...\n"); + } + i = system(cmd); + if (i) { + perror("Command error\n"); + } + } + prompt_flag = 1; + break; + + default: + fin->fungetc(c); + is_interactive = 1; + reinit_lex(); + tmp_error = errorcount; + fail = prog_parse(); + if (!fail && tmp_error == errorcount) { + extern struct Marker_info marker_info; + marker_info.current_scb->pc = interactive_statement; + ASSIGNTIME64(&(marker_info.current_scb->time), + &CurrentTime); + tmp_error = errorcount; + new_cmd_level = cmd_level + 1; + pass3_interactive((tree) interactive_statement); + if (tmp_error == errorcount) { + stack_allocate(); + interject_readylist(marker_info.current_scb, next_pc); + /* for next time */ + marker_info.current_scb = BuildSCB(NULL_TREE, NOLIST); + single_step_flag = 1; + normal_flag = 0; + return interactive_statement; + } + } + prompt_flag = 1; + } + } +} + +/*********************************************************************** + * + * handle_gate + * - gate is ready to execute + * + *********************************************************************** + */ +void handle_gate(tree gate) +{ + tree pc; /* dummy for TRACE macro */ + + ASSERT(gate != NULL_TREE); + ASSERT(TREE_CODE(gate) == GATE_INSTANCE); + + + if (GATE_PATH_OUTPUT(gate) != NULL_TREE) { + if (handle_specify_path(gate)) { + return; + } + } + TRACE(gate, gate, 0, 0, 0); + (*GATE_PROPAGATE_ROUTINE(gate)) (gate); +} + +void print_prompt() +{ + printf_V("> "); +} + +void init_interactive() +{ + extern struct Marker_info marker_info; + marker_info.current_scb = BuildSCB(NULL_TREE, NOLIST); +} + +/***************************************************************** + * + * init_exec + * - initialize all global and static variables for exec.c + * + ***************************************************************** + */ + +void init_exec() +{ + exit_flag = 0; + brk_check = 0; + first_time_exec = 1; + in_initial = 0; + new_cmd_level = 1; + prompt_flag = 1; + save_char = 0; + in_disable = 0; + free_context = NULL; +} diff --git a/src/exec.h b/src/exec.h new file mode 100644 index 0000000..48425d0 --- /dev/null +++ b/src/exec.h @@ -0,0 +1,45 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* EXEC.H - Macros and prototypes for Exec */ + +#ifndef EXEC_H +#define EXEC_H + +void print_prompt(void); +tree exec_(tree pc); +void set_simulation_time(time64 * newtime_p); +struct context_member *make_context(void); +void enter_context(struct SCB *scb, tree scope, tree pc); +tree exit_context(struct SCB *scb); +tree unwind_context(struct context_member *context); +void disable_context(struct context_member *context); +tree deassign(tree lval, enum tree_code code); +void do_net_assignment(tree pc); +void initialize_cont_assignments(void); +void net_exec(tree pc); +void exec_history(); +void exec_remove_history(); +tree go_interactive(tree current_pc, tree next_pc, Group * g, + int skip, int val); +void handle_gate(tree gate); +void init_interactive(void); +void init_exec(void); + +#endif // EXEC_H diff --git a/src/flags.cc b/src/flags.cc new file mode 100644 index 0000000..d75fd96 --- /dev/null +++ b/src/flags.cc @@ -0,0 +1,118 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* FLAGS.C - Global storage for command line options */ + +#include "vtypes.h" +#include "tree.h" +#include "flags.h" + +/* For internal debugging: */ +int program = 0; /* displays program */ +int debug = 0; /* turns on internal trace */ +#if VDEBUG != 0 +int vdebug = 0; +#endif + +/* if 0, parse only */ +int simulate = 1; + +/* Read more command line options from file */ +int f_flag = 0; + +/* Enter interactive mode before running */ +int s_flag = 0; + +/* Read commands from file */ +int i_flag = 0; + +/* Set log file */ +int l_flag = 0; + +/* Set key file */ +int k_flag = 0; + +/* Set library search path */ +int y_flag = 0; + +/* Set to enable synopsys 2.0 conformance warnings */ +int synopsys_flag = 0; + +/* Suppress warnings */ +int inhibit_warnings = 0; + +/* Enter trace mode upon entry. Also used when $settrace is enabled. */ +int trace_flag = 0; + +/* Turn on variable debugging (default on) */ +int var_debug_flag = 1; + +/* Runtime state bits */ +/* (trace_flag is in both flags.h and runtime.h) */ +/* This is set if not trace nor single-step */ +int normal_flag = 1; + +/* set after ctl-c is pressed */ +int break_flag = 0; + +/* Set for either of the single-step commands: comma and semicolon */ +int single_step_flag = 0; + +/* set if comma (single-step with trace) */ +int single_trace_flag = 0; + +/* Capture all the user-defined plus args in a TREE_LIST */ +union tree_node *plusargs = 0; + +/* Print memory during pass 2 */ +int MemTrace; + +/*************************************************************** + * + * init_flags + * - initialize all global and static variables in flags.c + * + *************************************************************** + */ + +void init_flags() +{ + program = 0; + debug = 0; +#if VDEBUG != 0 + vdebug = 0; +#endif + y_flag = 0; + simulate = 1; + f_flag = 0; + s_flag = 0; + i_flag = 0; + l_flag = 0; + k_flag = 0; + synopsys_flag = 0; + inhibit_warnings = 0; + trace_flag = 0; + var_debug_flag = 1; + normal_flag = 1; + break_flag = 0; + single_step_flag = 0; + single_trace_flag = 0; + plusargs = 0; + MemTrace = 0; +} diff --git a/src/flags.h b/src/flags.h new file mode 100644 index 0000000..dec64f7 --- /dev/null +++ b/src/flags.h @@ -0,0 +1,53 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* FLAGS.H - Global access to command line options */ + +#ifndef FLAGS_H +#define FLAGS_H + +extern int program; +extern int debug; +#if VDEBUG != 0 +extern int vdebug; +#endif +extern int y_flag; +extern int simulate; +extern int f_flag; +extern int s_flag; +extern int i_flag; +extern int l_flag; +extern int k_flag; +extern int y_flag; +extern int trace_flag; +extern int synopsys_flag; +extern int var_debug_flag; +extern int inhibit_warnings; +extern int MemTrace; + +extern enum delay_type delay_type; +extern enum tree_type default_net_type; + +/* all the user-defined plusargs in a TREE_LIST */ +extern tree plusargs; + +void init_flags(void); + + +#endif // FLAGS_H diff --git a/src/gates.cc b/src/gates.cc new file mode 100644 index 0000000..818c0b7 --- /dev/null +++ b/src/gates.cc @@ -0,0 +1,3150 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/*************************************************************************** + * + * gates.c + * - gate building and execution code + * + * Things not implemented: + * 1) bit selects on pullup,pulldown, tran, rtran gates + * 2) pullup, pulldown, tran, and rtran need strengths to work + * 3) trireg not supported + ************************************************************************** + */ + +#include "glue.h" +#include +#include "vtypes.h" +#include "tree.h" +#include "schedule.h" +#include "runtime.h" +#include "gates.h" +#include "specify.h" +#include "udp.h" +#include "store.h" +#include "pass3.h" +#include "veriwell.h" +#include "eval.h" +#include "scope.h" +#include "nsched.h" + + + +void and_exec(struct Marker *marker); +void nand_exec(struct Marker *marker); +void or_exec(struct Marker *marker); +void nor_exec(struct Marker *marker); +void xor_exec(struct Marker *marker); +void xnor_exec(struct Marker *marker); +void buf_exec(struct Marker *marker); +void not_exec(struct Marker *marker); +void bufif0_exec(struct Marker *marker); +void bufif1_exec(struct Marker *marker); +void notif0_exec(struct Marker *marker); +void notif1_exec(struct Marker *marker); +void nmos_exec(struct Marker *marker); +void pmos_exec(struct Marker *marker); +void rnmos_exec(struct Marker *marker); +void rpmos_exec(struct Marker *marker); +void cmos_exec(struct Marker *marker); +void rcmos_exec(struct Marker *marker); +void tranif0_exec(struct Marker *marker); +void rtranif0_exec(struct Marker *marker); +void tranif1_exec(struct Marker *marker); +void rtranif1_exec(struct Marker *marker); +void tran_exec(struct Marker *marker); +void rtran_exec(struct Marker *marker); +void pull_exec(struct Marker *marker); + + + +/************************************************************************ + * + * build_gate_instance + * - create and initialize a gate structure + * + ************************************************************************ + */ +tree +build_gate_instance(enum tree_type type, char *filename, lineno_t lineno, + tree ident, tree arg_list, tree delay, tree udp_def) +{ + tree node; + int i; + tree t; + tree last; + int numberOfArgs; + int numberOfOutputs; + + + node = make_node(GATE_INSTANCE); + TREE_TYPE(node) = type; + GATE_FILE(node) = filename; + GATE_LINE(node) = lineno; + if (ident == NULL_TREE) { + GATE_NAME(node) = NULL; + } else { + GATE_NAME(node) = IDENT(ident); + } + GATE_DELAY(node) = delay; + + GATE_OUTPUT(node) = X; + GATE_FIRED_INPUTS(node) = 0; + GATE_PATH_OUTPUT(node) = NULL_TREE; + + numberOfArgs = list_length(arg_list); + switch ((int) type) { + case GATE_UDP_TYPE: + ASSERT(udp_def != NULL_TREE); + ASSERT(TREE_CODE(udp_def) == MODULE_BLOCK); + ASSERT(UDP_ATTR(udp_def)); + GATE_UDP_DEF(node) = udp_def; + if (list_length(UDP_PORT_LIST(udp_def)) != list_length(arg_list)) { + error("Incorrect number of arguments specified for primitive", + NULL, NULL); + return (error_mark_node); + } + numberOfOutputs = 1; + break; + case GATE_AND_TYPE: + case GATE_NAND_TYPE: + case GATE_OR_TYPE: + case GATE_NOR_TYPE: + case GATE_XOR_TYPE: + case GATE_XNOR_TYPE: + if (numberOfArgs < 2) { + error("Not enough arguments specified for primitive", NULL, + NULL); + return (error_mark_node); + } else if (numberOfArgs > 64) { + error("Too many arguments specified for primitive", NULL, + NULL); + return (error_mark_node); + } + numberOfOutputs = 1; + break; + case GATE_BUFIF0_TYPE: + case GATE_BUFIF1_TYPE: + case GATE_NOTIF0_TYPE: + case GATE_NOTIF1_TYPE: + case GATE_NMOS_TYPE: + case GATE_PMOS_TYPE: + case GATE_RNMOS_TYPE: + case GATE_RPMOS_TYPE: + if (numberOfArgs < 3) { + error("Not enough arguments specified for primitive", NULL, + NULL); + return (error_mark_node); + } else if (numberOfArgs > 3) { + error("To many arguments specified for primitive", NULL, NULL); + return (error_mark_node); + } + numberOfOutputs = 1; + break; + case GATE_BUF_TYPE: + case GATE_NOT_TYPE: + if (numberOfArgs < 2) { + error("Not enough arguments specified for primitive", NULL, + NULL); + return (error_mark_node); + } else if (numberOfArgs > 9) { + error("To many arguments specified for primitive", NULL, NULL); + return (error_mark_node); + } + numberOfOutputs = numberOfArgs - 1; + break; + case GATE_CMOS_TYPE: + case GATE_RCMOS_TYPE: + if (numberOfArgs < 4) { + error("Not enough arguments specified for primitive", NULL, + NULL); + return (error_mark_node); + } else if (numberOfArgs > 4) { + error("To many arguments specified for primitive", NULL, NULL); + return (error_mark_node); + } + numberOfOutputs = 1; + break; + case GATE_PULLUP_TYPE: + case GATE_PULLDN_TYPE: + if (numberOfArgs < 1) { + error("Not enough arguments specified for primitive", NULL, + NULL); + return (error_mark_node); + } else if (numberOfArgs > 1) { + error("To many arguments specified for primitive", NULL, NULL); + return (error_mark_node); + } + numberOfOutputs = 1; + break; + case GATE_TRAN_TYPE: + case GATE_RTRAN_TYPE: + if (numberOfArgs < 2) { + error("Not enough arguments specified for primitive", NULL, + NULL); + return (error_mark_node); + } else if (numberOfArgs > 2) { + error("To many arguments specified for primitive", NULL, NULL); + return (error_mark_node); + } + numberOfOutputs = 2; + t = arg_list; + arg_list = tree_cons(TREE_PURPOSE(t), NULL_TREE, arg_list); + t = TREE_CHAIN(t); + arg_list = tree_cons(TREE_PURPOSE(t), NULL_TREE, arg_list); + break; + case GATE_TRANIF0_TYPE: + case GATE_TRANIF1_TYPE: + case GATE_RTRANIF0_TYPE: + case GATE_RTRANIF1_TYPE: + if (numberOfArgs < 3) { + error("Not enough arguments specified for primitive", NULL, + NULL); + return (error_mark_node); + } else if (numberOfArgs > 3) { + error("To many arguments specified for primitive", NULL, NULL); + return (error_mark_node); + } + numberOfOutputs = 2; + t = arg_list; + arg_list = tree_cons(TREE_PURPOSE(t), NULL_TREE, arg_list); + t = TREE_CHAIN(t); + arg_list = tree_cons(TREE_PURPOSE(t), NULL_TREE, arg_list); + break; + default: + ASSERT(FALSE); + } + + last = NULL_TREE; + for (t = arg_list, i = numberOfOutputs; i; i--, t = TREE_CHAIN(t)) { + TREE_EXPR(t) = check_lval_port(TREE_EXPR(t)); + GATE_TERMINAL_GATE(t) = node; + switch (TREE_CODE(TREE_EXPR(t))) { + case NET_SCALAR_DECL: + NET_ASSIGNMENT(TREE_EXPR(t)) = t; + break; + case BIT_REF: + NET_ASSIGNMENT(BIT_REF_DECL(TREE_EXPR(t))) = t; + break; + } + + last = t; + } + ASSERT(last != NULL_TREE); + TREE_CHAIN(last) = NULL_TREE; + + GATE_OUTPUT_LIST(node) = arg_list; + GATE_INPUT_LIST(node) = t; + GATE_INPUTS(node) = list_length(GATE_INPUT_LIST(node)); + GATE_SCOPE(node) = current_scope; + + for (t = GATE_INPUT_LIST(node); t; t = TREE_CHAIN(t)) { + GATE_TERMINAL_GATE(t) = node; + } + return node; +} + + + +/************************************************************************ + * + * initializeGates + * - propagate gate outputs at initialization + * + ************************************************************************ + */ +void initialize_gates(void) +{ + tree gate; + enum logical_value was_output; + + + for (gate = PeekGate(); gate; gate = PeekGate()) { + ASSERT(TREE_CODE(gate) == GATE_INSTANCE); + RemoveGate(gate); + was_output = GATE_OUTPUT(gate); + GATE_OUTPUT(gate) = X; + (*GATE_PROPAGATE_ROUTINE(gate)) (gate); + GATE_OUTPUT(gate) = was_output; + if (was_output != X) { + handle_gate(gate); + } + } +} + +/************************************************************************ + * + * gate_check_delay + * - validate gate delays + * + ************************************************************************ + */ + +void gate_check_delay(tree gate, unsigned int max_delays) +{ + ASSERT(TREE_CODE(gate) == GATE_INSTANCE); + ASSERT(max_delays >= 0); + + if (!GATE_DELAY(gate)) { + return; + } + if (!max_delays) { + error("Delays are not allowed in this type of primitive", NULL, + NULL); + } + + if (TREE_LABEL(GATE_DELAY(gate)) > max_delays) { + error("Too many delays specified for this type of primitive", + NULL, NULL); + } + pass3_delay(GATE_DELAY(gate)); +} + +/************************************************************************ + * + * gate_ok_input + * - validate gate input + * + ************************************************************************ + */ + +int gate_ok_input(tree port) +{ + ASSERT(port != NULL_TREE); + + /* Any port is an ok input */ + return TRUE; +} + + +/************************************************************************ + * + * gate_ok_output + * - validate gate output + * + ************************************************************************ + */ + + +int gate_ok_output(tree port) +{ + ASSERT(port != NULL_TREE); + + /* Gate outputs must be a net and one bit */ + + if (is_all_net(port)) { + if (TREE_NBITS(port) != 1 && TREE_CODE(port) != BIT_REF) { + error("Primitive output must be scalar", NULL, NULL); + return (FALSE); + } + return TRUE; + } + error("Primitive output must be a net", NULL, NULL); + return FALSE; +} + +/************************************************************************ + * + * gate_check_ports + * - validate gate ports + * + ************************************************************************ + */ + +void gate_check_ports(tree gate, enum gate_style style) +{ + tree port; + tree inputPortList = NULL; + tree outputPortList = NULL; + tree t; + int port_count = 0; + int terminalNumber = 0; + extern struct Marker_info marker_info; /* in pass3.c */ + struct Marker *marker = NULL, *mark; + int first; + + ASSERT(TREE_CODE(gate) == GATE_INSTANCE); + inputPortList = GATE_INPUT_LIST(gate); + outputPortList = GATE_OUTPUT_LIST(gate); + ASSERT(outputPortList); + runtime_error(gate); + + for (t = outputPortList; t; t = TREE_CHAIN(t)) { + port = TREE_EXPR(t); + ASSERT(port != NULL_TREE); + gate_ok_output(port); + TREE_EXPR_CODE(t) = pass3_expr(port); + GATE_TERMINAL_GATE(t) = gate; + PORT_OUTPUT_ATTR(t) = 1; + if (style == PRIM_TRAN) { + PORT_INPUT_ATTR(t) = 1; + } + GATE_TERMINAL_NUMBER(t) = terminalNumber++; + } + + for (t = GATE_INPUT_LIST(gate); t; t = TREE_CHAIN(t)) { + GATE_TERMINAL_GATE(t) = gate; + if (style != PRIM_TRAN) { + PORT_INPUT_ATTR(t) = 1; + } + GATE_TERMINAL_NUMBER(t) = terminalNumber++; + port = TREE_EXPR(t); + // this is for pli only + PORT_INPUT_ATTR(t) = 1; + if (gate_ok_input(port)) { + extern struct Marker_info marker_info; + SCB *save_scb = marker_info.current_scb; + marker_info.current_scb = (SCB *) gate; + /* Scan port and generate markers; + make sure makers point back to ports */ + marker = NULL; + GATE_INPUT_NUMBER(t) = port_count; + TREE_EXPR_CODE(t) = pass3_expr_marker(port, + &marker, + (enum + marker_flags) (M_PRIM + + M_FIXED), + NULL_TREE, NULL_TREE); + SET_GATE_IN(t, X); + marker_info.current_scb = save_scb; + + /* This is a circular list, so make sure we only go + around once; constants have no markers */ + for (mark = marker, first = 1; + mark && (mark != marker || first == 1); + mark = mark->link, first = 0) { + mark->expr.arg = t; + /* if single var, no expr, then this can be fast */ + if (port == mark->decl + && TREE_CODE(port) == NET_SCALAR_DECL) { + mark->flags = + (enum marker_flags) (M_PRIM_FAST | mark->flags); + } + } + } + port_count++; + } + GATE_INPUTS(gate) = port_count; +} + +/************************************************************************ + * + * pass3_gate + * - link and initialize gate + * + ************************************************************************ + */ + +void pass3_gate(tree gate) +{ + Group *g; + tree t, arg; + nbits_t nbits; /* Used only for _eval call */ + + switch (TREE_TYPE(gate)) { + case GATE_UDP_TYPE: + GATE_ROUTINE(gate) = &udp_exec; + gate_check_delay(gate, 2); + gate_check_ports(gate, PRIM_LOGIC); + ASSERT(GATE_UDP_DEF(gate) != NULL_TREE); + ASSERT(TREE_CODE(GATE_UDP_DEF(gate)) == MODULE_BLOCK); + ASSERT(UDP_ATTR(GATE_UDP_DEF(gate))); + t = UDP_INITIAL_VALUE(GATE_UDP_DEF(gate)); + if (t && TREE_CODE(t) == INTEGER_CST) { + ASSERT((INT_CST_DATA(t) & ~1) == 0); + GATE_OUTPUT(gate) = (enum logical_value) (INT_CST_DATA(t) & 1); + } else if (t && TREE_CODE(t) == BIT_CST) { + g = BIT_CST_GROUP(t); + GATE_OUTPUT(gate) = VAL_TO_STATE(g); + } else if (t == NULL_TREE) { + GATE_OUTPUT(gate) = X; + } else { + ASSERT(FALSE); + } + GATE_PROPAGATE_ROUTINE(gate) = &propagate_unigate_output; + { + int i; + int count; + int state; + + state = 0; + if (UDP_REG_NAME(GATE_UDP_DEF(gate)) != NULL_TREE) { + switch (GATE_OUTPUT(gate)) { + case ZERO: + state = int_power(3, GATE_INPUTS(gate)) * 0; + break; + case ONE: + state = int_power(3, GATE_INPUTS(gate)) * 1; + break; + case X: + case Z: + state = int_power(3, GATE_INPUTS(gate)) * 2; + break; + } + } + + /* Evaluate each argument for inital condition; + there may be a constant in + one or more of the inputs, so don't assume X. */ + stack_allocate(); /* Let eval_ work */ + for (arg = GATE_INPUT_LIST(gate); arg; arg = TREE_CHAIN(arg)) { + g = eval_(TREE_EXPR_CODE(arg), &nbits); /* need to re-eval */ + switch (VAL_TO_STATE(g)) { + case ZERO: + break; + case ONE: + state += int_power(3, GATE_INPUT_NUMBER(arg)) * 1; + break; + case X: + case Z: + state += int_power(3, GATE_INPUT_NUMBER(arg)) * 2; + break; + } + } + GATE_STATE(gate) = state; + } + break; + + case GATE_AND_TYPE: + GATE_ROUTINE(gate) = &and_exec; + goto logic_common; + + case GATE_NAND_TYPE: + GATE_ROUTINE(gate) = &nand_exec; + goto logic_common; + + case GATE_OR_TYPE: + GATE_ROUTINE(gate) = &or_exec; + goto logic_common; + + case GATE_NOR_TYPE: + GATE_ROUTINE(gate) = &nor_exec; + goto logic_common; + + case GATE_XOR_TYPE: + GATE_ROUTINE(gate) = &xor_exec; + goto logic_common; + + case GATE_XNOR_TYPE: + GATE_ROUTINE(gate) = &xnor_exec; + goto logic_common; + + + logic_common: + gate_check_delay(gate, 2); + gate_check_ports(gate, PRIM_LOGIC); + GATE_X(gate) = GATE_INPUTS(gate); + GATE_FIRED_INPUTS(gate) = 0; + GATE_PROPAGATE_ROUTINE(gate) = &propagate_unigate_output; + break; + + case GATE_BUF_TYPE: + GATE_ROUTINE(gate) = &buf_exec; + goto buf_common; + + case GATE_NOT_TYPE: + GATE_ROUTINE(gate) = ¬_exec; + goto buf_common; + + buf_common: + gate_check_delay(gate, 2); + gate_check_ports(gate, PRIM_BUF); + GATE_PROPAGATE_ROUTINE(gate) = &propagate_unigate_output; + break; + + case GATE_BUFIF0_TYPE: + GATE_ROUTINE(gate) = &bufif0_exec; + goto tri_common; + + case GATE_BUFIF1_TYPE: + GATE_ROUTINE(gate) = &bufif1_exec; + goto tri_common; + + case GATE_NOTIF0_TYPE: + GATE_ROUTINE(gate) = ¬if0_exec; + goto tri_common; + + case GATE_NOTIF1_TYPE: + GATE_ROUTINE(gate) = ¬if1_exec; + goto tri_common; + + case GATE_NMOS_TYPE: + GATE_ROUTINE(gate) = &nmos_exec; + goto tri_common; + + case GATE_PMOS_TYPE: + GATE_ROUTINE(gate) = &pmos_exec; + goto tri_common; + + case GATE_RNMOS_TYPE: + GATE_ROUTINE(gate) = &rnmos_exec; + goto tri_common; + + case GATE_RPMOS_TYPE: + GATE_ROUTINE(gate) = &rpmos_exec; + goto tri_common; + + tri_common: + gate_check_delay(gate, 3); + gate_check_ports(gate, PRIM_TRI); + GATE_PROPAGATE_ROUTINE(gate) = &propagate_unigate_output; + break; + + case GATE_CMOS_TYPE: + GATE_ROUTINE(gate) = &cmos_exec; + goto cmos_common; + + case GATE_RCMOS_TYPE: + GATE_ROUTINE(gate) = &rcmos_exec; + goto cmos_common; + + cmos_common: + gate_check_delay(gate, 3); + gate_check_ports(gate, PRIM_CMOS); + GATE_PROPAGATE_ROUTINE(gate) = &propagate_unigate_output; + break; + + case GATE_TRAN_TYPE: + GATE_ROUTINE(gate) = &tran_exec; + gate_check_delay(gate, 0); + GATE_CONTROL(gate) = ONE; + goto tran_common; + + case GATE_RTRAN_TYPE: + GATE_ROUTINE(gate) = &rtran_exec; + gate_check_delay(gate, 0); + GATE_CONTROL(gate) = ONE; + goto tran_common; + + case GATE_TRANIF0_TYPE: + gate_check_delay(gate, 2); + GATE_ROUTINE(gate) = &tranif0_exec; + GATE_CONTROL(gate) = ZERO; + goto tran_common; + + case GATE_TRANIF1_TYPE: + gate_check_delay(gate, 2); + GATE_ROUTINE(gate) = &tranif1_exec; + GATE_CONTROL(gate) = ZERO; + goto tran_common; + + case GATE_RTRANIF0_TYPE: + gate_check_delay(gate, 2); + GATE_ROUTINE(gate) = &rtranif0_exec; + GATE_CONTROL(gate) = ZERO; + goto tran_common; + + case GATE_RTRANIF1_TYPE: + gate_check_delay(gate, 2); + GATE_ROUTINE(gate) = &rtranif1_exec; + GATE_CONTROL(gate) = ZERO; + goto tran_common; + + + tran_common: + gate_check_ports(gate, PRIM_TRAN); + GATE_PROPAGATE_ROUTINE(gate) = &propagate_bigate_output; + break; + + case GATE_PULLUP_TYPE: + GATE_INPUTS(gate) = 0; + GATE_ROUTINE(gate) = NULL; + GATE_OUTPUT(gate) = ONE; + goto pull_common; + + case GATE_PULLDN_TYPE: + GATE_INPUTS(gate) = 0; + GATE_ROUTINE(gate) = NULL; + GATE_OUTPUT(gate) = ZERO; + goto pull_common; + + pull_common: + gate_check_delay(gate, 0); + gate_check_ports(gate, PRIM_PULL); + GATE_PROPAGATE_ROUTINE(gate) = propagate_unigate_output; + break; + + default: + ASSERT(FALSE); + } + + + /* build bit ref lval if needed */ + + for (t = GATE_OUTPUT_LIST(gate); t != NULL_TREE; t = TREE_CHAIN(t)) { + ASSERT(TREE_CODE(t) == TREE_LIST); + if (TREE_CODE(TREE_PURPOSE(t)) == BIT_REF) { + pass3_lval(&TREE_PURPOSE(t)); + } + } + + /* propagate the gate output at beginning of simulation */ + + ScheduleGate(gate, 0); +} + +/* Evaluate the gates in the following manner: + 1) Determine the value of the input and whether it changed... + case 1: input is a net; new value is propigated through marker + case 2: input is expression; evaluate expression and determine if + input changed. + 2) Update ONE(ZERO) count and X count + 3) Determine new output + 4) If input has not changed or output has not changed, exit. +*/ + +/*********************************************************************** + * + * and_exec + * - execution routine for and gates + * + *********************************************************************** + */ + +void and_exec(struct Marker *marker) +{ + tree gate = (tree) marker->scb; + tree arg; + enum logical_value in_new, in_old, out_new, out_old; + nbits_t nbits; + ASSERT(marker != NULL); + ASSERT(gate != NULL); + + /* This is the arg expression, code, and last value */ + + arg = marker->expr.arg; + ASSERT(arg != NULL_TREE); + + /* save old input and output values */ + + in_old = GATE_IN(arg); + out_old = GATE_OUTPUT(gate); + + /* First, evaluate the active input, if necessary. If the following is + true, then decl is the only argument and no need + reevaluate arg expression. If is isn't true, then decl is only + one component of the argument expression, so arg needs to be + evaluated. + */ + + if (marker->flags & M_PRIM_FAST) { + in_new = DECL_STATE(marker->decl); /* Value is xfer'd in marker */ + } else { + Group *g = eval_(TREE_EXPR_CODE(arg), &nbits); /* need to re-eval */ + in_new = VAL_TO_STATE(g); + } + + if (in_old == in_new) /* if input didn't change, */ + return; /* ...return. */ + + SET_GATE_IN(arg, in_new); /* Input changed; remember */ + + /* update value counts */ + + switch (in_old) { + case X: + case Z: + GATE_X(gate)--; + break; + case ZERO: + GATE_ZEROS(gate)--; + break; + default: + break; + } + + switch (in_new) { + case X: + case Z: + GATE_X(gate)++; + break; + case ZERO: + GATE_ZEROS(gate)++; + break; + default: + break; + } + + if (GATE_ZEROS(gate) == 0) { + if (GATE_X(gate) == 0) { + out_new = ONE; + } else { + out_new = X; + } + } else { + out_new = ZERO; + } + + if (out_new != out_old) { + delay_t delay; + + GATE_OUTPUT(gate) = out_new; + if (GATE_DELAY(gate) && !in_initial) { + delay = eval_delay(GATE_DELAY(gate), GATE_OUTPUT(gate)); + } else { + delay = 0; + } + + ScheduleGate(gate, delay); + } +} + +/*********************************************************************** + * + * nand_exec + * - execution routine for nand gates + * + *********************************************************************** + */ + +void nand_exec(struct Marker *marker) +{ + tree gate = (tree) marker->scb; + tree arg; + enum logical_value in_new, in_old, out_new, out_old; + nbits_t nbits; + ASSERT(marker != NULL); + ASSERT(gate != NULL); + +/* This is the arg expression, code, and last value */ + + arg = marker->expr.arg; + ASSERT(arg != NULL_TREE); + +/* save old input and output values */ + + in_old = GATE_IN(arg); + out_old = GATE_OUTPUT(gate); + +/* First, evaluate the active input, if necessary. If the following is + true, then decl is the only argument and no need + reevaluate arg expression. If is isn't true, then decl is only + one component of the argument expression, so arg needs to be + evaluated. +*/ + + if (marker->flags & M_PRIM_FAST) { + in_new = DECL_STATE(marker->decl); /* Value is xfer'd in marker */ + } else { + Group *g = eval_(TREE_EXPR_CODE(arg), &nbits); /* need to re-eval */ + in_new = VAL_TO_STATE(g); + } + + if (in_old == in_new) /* if input didn't change, */ + return; /* ...return. */ + + SET_GATE_IN(arg, in_new); /* Input changed; remember */ + + /* update value counts */ + + switch (in_old) { + case X: + case Z: + GATE_X(gate)--; + break; + case ZERO: + GATE_ZEROS(gate)--; + break; + default: + break; + } + + switch (in_new) { + case X: + case Z: + GATE_X(gate)++; + break; + case ZERO: + GATE_ZEROS(gate)++; + break; + default: + break; + } + + if (GATE_ZEROS(gate) == 0) { + if (GATE_X(gate) == 0) { + out_new = ZERO; + } else { + out_new = X; + } + } else { + out_new = ONE; + } + + if (out_new != out_old) { + delay_t delay; + + GATE_OUTPUT(gate) = out_new; + if (GATE_DELAY(gate) && !in_initial) { + delay = eval_delay(GATE_DELAY(gate), GATE_OUTPUT(gate)); + } else { + delay = 0; + } + + ScheduleGate(gate, delay); + } +} + +/*********************************************************************** + * + * or_exec + * - execution routine for or gates + * + *********************************************************************** + */ + +void or_exec(struct Marker *marker) +{ + tree gate = (tree) marker->scb; + tree arg; + enum logical_value in_new, in_old, out_new, out_old; + nbits_t nbits; + + ASSERT(marker != NULL); + ASSERT(gate != NULL); + +/* This is the arg expression, code, and last value */ + + arg = marker->expr.arg; + ASSERT(arg != NULL_TREE); + +/* save old input and output values */ + + in_old = GATE_IN(arg); + out_old = GATE_OUTPUT(gate); + +/* First, evaluate the active input, if necessary. If the following is + true, then decl is the only argument and no need + reevaluate arg expression. If is isn't true, then decl is only + one component of the argument expression, so arg needs to be + evaluated. +*/ + + if (marker->flags & M_PRIM_FAST) { + in_new = DECL_STATE(marker->decl); /* Value is xfer'd in marker */ + } else { + Group *g = eval_(TREE_EXPR_CODE(arg), &nbits); /* need to re-eval */ + in_new = VAL_TO_STATE(g); + } + + if (in_old == in_new) /* if input didn't change, */ + return; /* ...return. */ + + SET_GATE_IN(arg, in_new); /* Input changed; remember */ + + /* update value counts */ + + switch (in_old) { + case X: + case Z: + GATE_X(gate)--; + break; + case ONE: + GATE_ONES(gate)--; + break; + default: + break; + } + + switch (in_new) { + case X: + case Z: + GATE_X(gate)++; + break; + case ONE: + GATE_ONES(gate)++; + break; + default: + break; + } + + if (GATE_ONES(gate) == 0) { + if (GATE_X(gate) == 0) { + out_new = ZERO; + } else { + out_new = X; + } + } else { + out_new = ONE; + } + + if (out_new != out_old) { + delay_t delay; + + GATE_OUTPUT(gate) = out_new; + if (GATE_DELAY(gate) && !in_initial) { + delay = eval_delay(GATE_DELAY(gate), GATE_OUTPUT(gate)); + } else { + delay = 0; + } + + ScheduleGate(gate, delay); + } +} + +/*********************************************************************** + * + * nor_exec + * - execution routine for nor gates + * + *********************************************************************** + */ + +void nor_exec(struct Marker *marker) +{ + tree gate = (tree) marker->scb; + tree arg; + enum logical_value in_new, in_old, out_new, out_old; + nbits_t nbits; + + ASSERT(marker != NULL); + ASSERT(gate != NULL); + +/* This is the arg expression, code, and last value */ + + arg = marker->expr.arg; + ASSERT(arg != NULL_TREE); + +/* save old input and output values */ + + in_old = GATE_IN(arg); + out_old = GATE_OUTPUT(gate); + +/* First, evaluate the active input, if necessary. If the following is + true, then decl is the only argument and no need + reevaluate arg expression. If is isn't true, then decl is only + one component of the argument expression, so arg needs to be + evaluated. +*/ + + if (marker->flags & M_PRIM_FAST) { + in_new = DECL_STATE(marker->decl); /* Value is xfer'd in marker */ + } else { + Group *g = eval_(TREE_EXPR_CODE(arg), &nbits); /* need to re-eval */ + in_new = VAL_TO_STATE(g); + } + + if (in_old == in_new) /* if input didn't change, */ + return; /* ...return. */ + + SET_GATE_IN(arg, in_new); /* Input changed; remember */ + + /* update value counts */ + + switch (in_old) { + case X: + case Z: + GATE_X(gate)--; + break; + case ONE: + GATE_ONES(gate)--; + break; + default: + break; + } + + switch (in_new) { + case X: + case Z: + GATE_X(gate)++; + break; + case ONE: + GATE_ONES(gate)++; + break; + default: + break; + } + + if (GATE_ONES(gate) == 0) { + if (GATE_X(gate) == 0) { + out_new = ONE; + } else { + out_new = X; + } + } else { + out_new = ZERO; + } + + if (out_new != out_old) { + delay_t delay; + + GATE_OUTPUT(gate) = out_new; + if (GATE_DELAY(gate) && !in_initial) { + delay = eval_delay(GATE_DELAY(gate), GATE_OUTPUT(gate)); + } else { + delay = 0; + } + + ScheduleGate(gate, delay); + } +} + +/*********************************************************************** + * + * xor_exec + * - execution routine for xor gates + * + *********************************************************************** + */ + +void xor_exec(struct Marker *marker) +{ + tree gate = (tree) marker->scb; + tree arg; + enum logical_value in_new, in_old, out_new, out_old; + nbits_t nbits; + + ASSERT(marker != NULL); + ASSERT(gate != NULL); + +/* This is the arg expression, code, and last value */ + + arg = marker->expr.arg; + ASSERT(arg != NULL_TREE); + +/* save old input and output values */ + + in_old = GATE_IN(arg); + out_old = GATE_OUTPUT(gate); + +/* First, evaluate the active input, if necessary. If the following is + true, then decl is the only argument and no need + reevaluate arg expression. If is isn't true, then decl is only + one component of the argument expression, so arg needs to be + evaluated. +*/ + + if (marker->flags & M_PRIM_FAST) { + in_new = DECL_STATE(marker->decl); /* Value is xfer'd in marker */ + } else { + Group *g = eval_(TREE_EXPR_CODE(arg), &nbits); /* need to re-eval */ + in_new = VAL_TO_STATE(g); + } + + if (in_old == in_new) /* if input didn't change, */ + return; /* ...return. */ + + SET_GATE_IN(arg, in_new); /* Input changed; remember */ + + /* update value counts */ + + switch (in_old) { + case X: + case Z: + GATE_X(gate)--; + break; + case ONE: + GATE_ONES(gate)--; + break; + default: + break; + } + + switch (in_new) { + case X: + case Z: + GATE_X(gate)++; + break; + case ONE: + GATE_ONES(gate)++; + break; + default: + break; + } + + if (GATE_X(gate) == 0) { + if (GATE_ONES(gate) & 1) { + out_new = ONE; + } else { + out_new = ZERO; + } + } else { + out_new = X; + } + + if (out_new != out_old) { + delay_t delay; + + GATE_OUTPUT(gate) = out_new; + if (GATE_DELAY(gate) && !in_initial) { + delay = eval_delay(GATE_DELAY(gate), GATE_OUTPUT(gate)); + } else { + delay = 0; + } + + ScheduleGate(gate, delay); + } +} + +/*********************************************************************** + * + * xnor_exec + * - execution routine for xnor gates + * + *********************************************************************** + */ + +void xnor_exec(struct Marker *marker) +{ + tree gate = (tree) marker->scb; + tree arg; + enum logical_value in_new, in_old, out_new, out_old; + nbits_t nbits; + + ASSERT(marker != NULL); + ASSERT(gate != NULL); + +/* This is the arg expression, code, and last value */ + + arg = marker->expr.arg; + ASSERT(arg != NULL_TREE); + +/* save old input and output values */ + + in_old = GATE_IN(arg); + out_old = GATE_OUTPUT(gate); + +/* First, evaluate the active input, if necessary. If the following is + true, then decl is the only argument and no need + reevaluate arg expression. If is isn't true, then decl is only + one component of the argument expression, so arg needs to be + evaluated. +*/ + + if (marker->flags & M_PRIM_FAST) { + in_new = DECL_STATE(marker->decl); /* Value is xfer'd in marker */ + } else { + Group *g = eval_(TREE_EXPR_CODE(arg), &nbits); /* need to re-eval */ + in_new = VAL_TO_STATE(g); + } + + if (in_old == in_new) /* if input didn't change, */ + return; /* ...return. */ + + SET_GATE_IN(arg, in_new); /* Input changed; remember */ + + /* update value counts */ + + switch (in_old) { + case X: + case Z: + GATE_X(gate)--; + break; + case ONE: + GATE_ONES(gate)--; + break; + default: + break; + } + + switch (in_new) { + case X: + case Z: + GATE_X(gate)++; + break; + case ONE: + GATE_ONES(gate)++; + break; + default: + break; + } + + if (GATE_X(gate) == 0) { + if (GATE_ONES(gate) & 1) { + out_new = ZERO; + } else { + out_new = ONE; + } + } else { + out_new = X; + } + + if (out_new != out_old) { + delay_t delay; + + GATE_OUTPUT(gate) = out_new; + if (GATE_DELAY(gate) && !in_initial) { + delay = eval_delay(GATE_DELAY(gate), GATE_OUTPUT(gate)); + } else { + delay = 0; + } + + ScheduleGate(gate, delay); + } +} + +/*********************************************************************** + * + * buf_exec + * - execution routine for buf gates + * + *********************************************************************** + */ + +void buf_exec(struct Marker *marker) +{ + tree gate = (tree) marker->scb; + tree arg; + enum logical_value in_new, in_old, out_new, out_old; + nbits_t nbits; + + ASSERT(marker != NULL); + ASSERT(gate != NULL); + +/* This is the arg expression, code, and last value */ + + arg = marker->expr.arg; + ASSERT(arg != NULL_TREE); + +/* save old input and output values */ + + in_old = GATE_IN(arg); + out_old = GATE_OUTPUT(gate); + +/* First, evaluate the active input, if necessary. If the following is + true, then decl is the only argument and no need + reevaluate arg expression. If is isn't true, then decl is only + one component of the argument expression, so arg needs to be + evaluated. +*/ + + if (marker->flags & M_PRIM_FAST) { + in_new = DECL_STATE(marker->decl); /* Value is xfer'd in marker */ + } else { + Group *g = eval_(TREE_EXPR_CODE(arg), &nbits); /* need to re-eval */ + in_new = VAL_TO_STATE(g); + } + + if (in_old == in_new) /* if input didn't change, */ + return; /* ...return. */ + + SET_GATE_IN(arg, in_new); /* Input changed; remember */ + + + switch (in_new) { + case X: + case Z: + out_new = X; + break; + case ZERO: + out_new = ZERO; + break; + case ONE: + out_new = ONE; + break; + default: + break; + } + + + if (out_new != out_old) { + delay_t delay; + + GATE_OUTPUT(gate) = out_new; + if (GATE_DELAY(gate) && !in_initial) { + delay = eval_delay(GATE_DELAY(gate), GATE_OUTPUT(gate)); + } else { + delay = 0; + } + + ScheduleGate(gate, delay); + } +} + +/*********************************************************************** + * + * not_exec + * - execution routine for not gates + * + *********************************************************************** + */ + +void not_exec(struct Marker *marker) +{ + tree gate = (tree) marker->scb; + tree arg; + enum logical_value in_new, in_old, out_new, out_old; + nbits_t nbits; + + ASSERT(marker != NULL); + ASSERT(gate != NULL); + +/* This is the arg expression, code, and last value */ + + arg = marker->expr.arg; + ASSERT(arg != NULL_TREE); + +/* save old input and output values */ + + in_old = GATE_IN(arg); + out_old = GATE_OUTPUT(gate); + +/* First, evaluate the active input, if necessary. If the following is + true, then decl is the only argument and no need + reevaluate arg expression. If is isn't true, then decl is only + one component of the argument expression, so arg needs to be + evaluated. +*/ + + if (marker->flags & M_PRIM_FAST) { + in_new = DECL_STATE(marker->decl); /* Value is xfer'd in marker */ + } else { + Group *g = eval_(TREE_EXPR_CODE(arg), &nbits); /* need to re-eval */ + in_new = VAL_TO_STATE(g); + } + + if (in_old == in_new) /* if input didn't change, */ + return; /* ...return. */ + + SET_GATE_IN(arg, in_new); /* Input changed; remember */ + + + switch (in_new) { + case X: + case Z: + out_new = X; + break; + case ZERO: + out_new = ONE; + break; + case ONE: + out_new = ZERO; + break; + default: + break; + } + + + if (out_new != out_old) { + delay_t delay; + + GATE_OUTPUT(gate) = out_new; + if (GATE_DELAY(gate) && !in_initial) { + delay = eval_delay(GATE_DELAY(gate), GATE_OUTPUT(gate)); + } else { + delay = 0; + } + + ScheduleGate(gate, delay); + } +} + +/*********************************************************************** + * + * bufif0_exec + * - execution routine for bufif0 gates + * + *********************************************************************** + */ + +void bufif0_exec(struct Marker *marker) +{ + tree gate = (tree) marker->scb; + tree arg; + enum logical_value in_new, in_old, out_new, out_old; + enum logical_value control_value, input_value; + int strengthChange = FALSE; + nbits_t nbits; + + ASSERT(marker != NULL); + ASSERT(gate != NULL); + +/* This is the arg expression, code, and last value */ + + arg = marker->expr.arg; + ASSERT(arg != NULL_TREE); + ASSERT(TREE_CODE(arg) == TREE_LIST); + +/* save old input and output values */ + + in_old = GATE_IN(arg); + out_old = GATE_OUTPUT(gate); + +/* First, evaluate the active input, if necessary. If the following is + true, then decl is the only argument and no need + reevaluate arg expression. If is isn't true, then decl is only + one component of the argument expression, so arg needs to be + evaluated. +*/ + + if (marker->flags & M_PRIM_FAST) { + in_new = DECL_STATE(marker->decl); /* Value is xfer'd in marker */ + } else { + Group *g = eval_(TREE_EXPR_CODE(arg), &nbits); /* need to re-eval */ + in_new = VAL_TO_STATE(g); + } + + if (in_old == in_new) /* if input didn't change, */ + return; /* ...return. */ + + SET_GATE_IN(arg, in_new); /* Input changed; remember */ + + /* check if this is a control input */ + + if (GATE_INPUT_LIST(gate) == arg) { // data input has changed + input_value = in_new; + ASSERT(TREE_CHAIN(arg) != NULL_TREE); + ASSERT(TREE_CODE(TREE_CHAIN(arg)) == TREE_LIST); + control_value = GATE_IN(TREE_CHAIN(arg)); + + /* this is a kludge until strengths are supported */ + if ((in_new == ONE || in_new == ZERO || in_old == ONE + || in_old == ZERO) + && (control_value == X || control_value == Z)) { + strengthChange = TRUE; + } + } else { // control input has changed + control_value = in_new; + ASSERT(GATE_INPUT_LIST(gate) != NULL_TREE); + ASSERT(TREE_CODE(GATE_INPUT_LIST(gate)) == TREE_LIST); + input_value = GATE_IN(GATE_INPUT_LIST(gate)); + } + + + switch (control_value) { + case X: + case Z: + out_new = X; + break; + case ONE: + out_new = Z; + break; + case ZERO: + if (input_value == Z) { + out_new = X; + } else { + out_new = input_value; + } + break; + default: + ASSERT(FALSE); + } + + if (out_new != out_old || strengthChange) { + delay_t delay; + + GATE_OUTPUT(gate) = out_new; + if (GATE_DELAY(gate) && !in_initial) { + delay = eval_delay(GATE_DELAY(gate), GATE_OUTPUT(gate)); + } else { + delay = 0; + } + + ScheduleGate(gate, delay); + } +} + +/*********************************************************************** + * + * bufif1_exec + * - execution routine for bufif1 gates + * + *********************************************************************** + */ + +void bufif1_exec(struct Marker *marker) +{ + tree gate = (tree) marker->scb; + tree arg; + enum logical_value in_new, in_old, out_new, out_old; + enum logical_value control_value, input_value; + int strengthChange = FALSE; + nbits_t nbits; + + ASSERT(marker != NULL); + ASSERT(gate != NULL); + +/* This is the arg expression, code, and last value */ + + arg = marker->expr.arg; + ASSERT(arg != NULL_TREE); + ASSERT(TREE_CODE(arg) == TREE_LIST); + +/* save old input and output values */ + + in_old = GATE_IN(arg); + out_old = GATE_OUTPUT(gate); + +/* First, evaluate the active input, if necessary. If the following is + true, then decl is the only argument and no need + reevaluate arg expression. If is isn't true, then decl is only + one component of the argument expression, so arg needs to be + evaluated. +*/ + + if (marker->flags & M_PRIM_FAST) { + in_new = DECL_STATE(marker->decl); /* Value is xfer'd in marker */ + } else { + Group *g = eval_(TREE_EXPR_CODE(arg), &nbits); /* need to re-eval */ + in_new = VAL_TO_STATE(g); + } + + if (in_old == in_new) /* if input didn't change, */ + return; /* ...return. */ + + SET_GATE_IN(arg, in_new); /* Input changed; remember */ + + /* check if this is a control input */ + + if (GATE_INPUT_LIST(gate) == arg) { // data input has changed + input_value = in_new; + ASSERT(TREE_CHAIN(arg) != NULL_TREE); + ASSERT(TREE_CODE(TREE_CHAIN(arg)) == TREE_LIST); + control_value = GATE_IN(TREE_CHAIN(arg)); + + /* this is a kludge until strengths are supported */ + if ((in_new == ONE || in_new == ZERO || in_old == ONE + || in_old == ZERO) + && (control_value == X || control_value == Z)) { + strengthChange = TRUE; + } + } else { // control input has changed + control_value = in_new; + ASSERT(GATE_INPUT_LIST(gate) != NULL_TREE); + ASSERT(TREE_CODE(GATE_INPUT_LIST(gate)) == TREE_LIST); + input_value = GATE_IN(GATE_INPUT_LIST(gate)); + } + + + switch (control_value) { + case X: + case Z: + out_new = X; + break; + case ZERO: + out_new = Z; + break; + case ONE: + if (input_value == Z) { + out_new = X; + } else { + out_new = input_value; + } + break; + default: + ASSERT(FALSE); + } + + if (out_new != out_old || strengthChange) { + delay_t delay; + + GATE_OUTPUT(gate) = out_new; + if (GATE_DELAY(gate) && !in_initial) { + delay = eval_delay(GATE_DELAY(gate), GATE_OUTPUT(gate)); + } else { + delay = 0; + } + + ScheduleGate(gate, delay); + } +} + +/*********************************************************************** + * + * notif0_exec + * - execution routine for notif0 gates + * + *********************************************************************** + */ + +void notif0_exec(struct Marker *marker) +{ + tree gate = (tree) marker->scb; + tree arg; + enum logical_value in_new, in_old, out_new, out_old; + enum logical_value control_value, input_value; + int strengthChange = FALSE; + nbits_t nbits; + ASSERT(marker != NULL); + ASSERT(gate != NULL); + +/* This is the arg expression, code, and last value */ + + arg = marker->expr.arg; + ASSERT(arg != NULL_TREE); + ASSERT(TREE_CODE(arg) == TREE_LIST); + +/* save old input and output values */ + + in_old = GATE_IN(arg); + out_old = GATE_OUTPUT(gate); + +/* First, evaluate the active input, if necessary. If the following is + true, then decl is the only argument and no need + reevaluate arg expression. If is isn't true, then decl is only + one component of the argument expression, so arg needs to be + evaluated. +*/ + + if (marker->flags & M_PRIM_FAST) { + in_new = DECL_STATE(marker->decl); /* Value is xfer'd in marker */ + } else { + Group *g = eval_(TREE_EXPR_CODE(arg), &nbits); /* need to re-eval */ + in_new = VAL_TO_STATE(g); + } + + if (in_old == in_new) /* if input didn't change, */ + return; /* ...return. */ + + SET_GATE_IN(arg, in_new); /* Input changed; remember */ + + /* check if this is a control input */ + + if (GATE_INPUT_LIST(gate) == arg) { // data input has changed + input_value = in_new; + ASSERT(TREE_CHAIN(arg) != NULL_TREE); + ASSERT(TREE_CODE(TREE_CHAIN(arg)) == TREE_LIST); + control_value = GATE_IN(TREE_CHAIN(arg)); + + /* this is a kludge until strengths are supported */ + if ((in_new == ONE || in_new == ZERO || in_old == ONE + || in_old == ZERO) + && (control_value == X || control_value == Z)) { + strengthChange = TRUE; + } + } else { // control input has changed + control_value = in_new; + ASSERT(GATE_INPUT_LIST(gate) != NULL_TREE); + ASSERT(TREE_CODE(GATE_INPUT_LIST(gate)) == TREE_LIST); + input_value = GATE_IN(GATE_INPUT_LIST(gate)); + } + + + switch (control_value) { + case X: + case Z: + out_new = X; + break; + case ONE: + out_new = Z; + break; + case ZERO: + switch (input_value) { + case X: + case Z: + out_new = X; + break; + case ONE: + out_new = ZERO; + break; + case ZERO: + out_new = ONE; + break; + default: + ASSERT(FALSE); + } + break; + default: + ASSERT(FALSE); + } + + if (out_new != out_old || strengthChange) { + delay_t delay; + + GATE_OUTPUT(gate) = out_new; + if (GATE_DELAY(gate) && !in_initial) { + delay = eval_delay(GATE_DELAY(gate), GATE_OUTPUT(gate)); + } else { + delay = 0; + } + + ScheduleGate(gate, delay); + } +} + +/*********************************************************************** + * + * notif1_exec + * - execution routine for notif1 gates + * + *********************************************************************** + */ + +void notif1_exec(struct Marker *marker) +{ + tree gate = (tree) marker->scb; + tree arg; + enum logical_value in_new, in_old, out_new, out_old; + enum logical_value control_value, input_value; + int strengthChange = FALSE; + nbits_t nbits; + + ASSERT(marker != NULL); + ASSERT(gate != NULL); + +/* This is the arg expression, code, and last value */ + + arg = marker->expr.arg; + ASSERT(arg != NULL_TREE); + ASSERT(TREE_CODE(arg) == TREE_LIST); + +/* save old input and output values */ + + in_old = GATE_IN(arg); + out_old = GATE_OUTPUT(gate); + +/* First, evaluate the active input, if necessary. If the following is + true, then decl is the only argument and no need + reevaluate arg expression. If is isn't true, then decl is only + one component of the argument expression, so arg needs to be + evaluated. +*/ + + if (marker->flags & M_PRIM_FAST) { + in_new = DECL_STATE(marker->decl); /* Value is xfer'd in marker */ + } else { + Group *g = eval_(TREE_EXPR_CODE(arg), &nbits); /* need to re-eval */ + in_new = VAL_TO_STATE(g); + } + + if (in_old == in_new) /* if input didn't change, */ + return; /* ...return. */ + + SET_GATE_IN(arg, in_new); /* Input changed; remember */ + + /* check if this is a control input */ + + if (GATE_INPUT_LIST(gate) == arg) { // data input has changed + input_value = in_new; + ASSERT(TREE_CHAIN(arg) != NULL_TREE); + ASSERT(TREE_CODE(TREE_CHAIN(arg)) == TREE_LIST); + control_value = GATE_IN(TREE_CHAIN(arg)); + + /* this is a kludge until strengths are supported */ + if ((in_new == ONE || in_new == ZERO || in_old == ONE + || in_old == ZERO) + && (control_value == X || control_value == Z)) { + strengthChange = TRUE; + } + } else { // control input has changed + control_value = in_new; + ASSERT(GATE_INPUT_LIST(gate) != NULL_TREE); + ASSERT(TREE_CODE(GATE_INPUT_LIST(gate)) == TREE_LIST); + input_value = GATE_IN(GATE_INPUT_LIST(gate)); + } + + + switch (control_value) { + case X: + case Z: + out_new = X; + break; + case ZERO: + out_new = Z; + break; + case ONE: + switch (input_value) { + case X: + case Z: + out_new = X; + break; + case ONE: + out_new = ZERO; + break; + case ZERO: + out_new = ONE; + break; + default: + ASSERT(FALSE); + } + break; + default: + ASSERT(FALSE); + } + + if (out_new != out_old || strengthChange) { + delay_t delay; + + GATE_OUTPUT(gate) = out_new; + if (GATE_DELAY(gate) && !in_initial) { + delay = eval_delay(GATE_DELAY(gate), GATE_OUTPUT(gate)); + } else { + delay = 0; + } + + ScheduleGate(gate, delay); + } +} + +/*********************************************************************** + * + * pmos_exec + * - execution routine for pmos gates + * + *********************************************************************** + */ + +void pmos_exec(struct Marker *marker) +{ + tree gate = (tree) marker->scb; + tree arg; + enum logical_value in_new, in_old, out_new, out_old; + enum logical_value control_value, input_value; + nbits_t nbits; + + ASSERT(marker != NULL); + ASSERT(gate != NULL); + +/* This is the arg expression, code, and last value */ + + arg = marker->expr.arg; + ASSERT(arg != NULL_TREE); + ASSERT(TREE_CODE(arg) == TREE_LIST); + +/* save old input and output values */ + + in_old = GATE_IN(arg); + out_old = GATE_OUTPUT(gate); + +/* First, evaluate the active input, if necessary. If the following is + true, then decl is the only argument and no need + reevaluate arg expression. If is isn't true, then decl is only + one component of the argument expression, so arg needs to be + evaluated. +*/ + + if (marker->flags & M_PRIM_FAST) { + in_new = DECL_STATE(marker->decl); /* Value is xfer'd in marker */ + } else { + Group *g = eval_(TREE_EXPR_CODE(arg), &nbits); /* need to re-eval */ + in_new = VAL_TO_STATE(g); + } + + if (in_old == in_new) /* if input didn't change, */ + return; /* ...return. */ + + SET_GATE_IN(arg, in_new); /* Input changed; remember */ + + /* check if this is a control input */ + + if (GATE_INPUT_LIST(gate) == arg) { // data input has changed + input_value = in_new; + ASSERT(TREE_CHAIN(arg) != NULL_TREE); + ASSERT(TREE_CODE(TREE_CHAIN(arg)) == TREE_LIST); + control_value = GATE_IN(TREE_CHAIN(arg)); + } else { // control input has changed + control_value = in_new; + ASSERT(GATE_INPUT_LIST(gate) != NULL_TREE); + ASSERT(TREE_CODE(GATE_INPUT_LIST(gate)) == TREE_LIST); + input_value = GATE_IN(GATE_INPUT_LIST(gate)); + } + + + switch (control_value) { + case X: + case Z: + switch (input_value) { + case X: + case ONE: + case ZERO: + out_new = X; + break; + case Z: + out_new = Z; + break; + default: + ASSERT(FALSE); + } + break; + case ONE: + out_new = Z; + break; + case ZERO: + out_new = input_value; + break; + default: + ASSERT(FALSE); + } + + if (out_new != out_old + || (out_new == X && arg == GATE_INPUT_LIST(gate))) { + delay_t delay; + + GATE_OUTPUT(gate) = out_new; + if (GATE_DELAY(gate) && !in_initial) { + delay = eval_delay(GATE_DELAY(gate), GATE_OUTPUT(gate)); + } else { + delay = 0; + } + + ScheduleGate(gate, delay); + } +} + +/*********************************************************************** + * + * nmos_exec + * - execution routine for nmos gates + * + *********************************************************************** + */ + +void nmos_exec(struct Marker *marker) +{ + tree gate = (tree) marker->scb; + tree arg; + enum logical_value in_new, in_old, out_new, out_old; + enum logical_value control_value, input_value; + nbits_t nbits; + + ASSERT(marker != NULL); + ASSERT(gate != NULL); + +/* This is the arg expression, code, and last value */ + + arg = marker->expr.arg; + ASSERT(arg != NULL_TREE); + ASSERT(TREE_CODE(arg) == TREE_LIST); + +/* save old input and output values */ + + in_old = GATE_IN(arg); + out_old = GATE_OUTPUT(gate); + +/* First, evaluate the active input, if necessary. If the following is + true, then decl is the only argument and no need + reevaluate arg expression. If is isn't true, then decl is only + one component of the argument expression, so arg needs to be + evaluated. +*/ + + if (marker->flags & M_PRIM_FAST) { + in_new = DECL_STATE(marker->decl); /* Value is xfer'd in marker */ + } else { + Group *g = eval_(TREE_EXPR_CODE(arg), &nbits); /* need to re-eval */ + in_new = VAL_TO_STATE(g); + } + + if (in_old == in_new) /* if input didn't change, */ + return; /* ...return. */ + + SET_GATE_IN(arg, in_new); /* Input changed; remember */ + + /* check if this is a control input */ + + if (GATE_INPUT_LIST(gate) == arg) { // data input has changed + input_value = in_new; + ASSERT(TREE_CHAIN(arg) != NULL_TREE); + ASSERT(TREE_CODE(TREE_CHAIN(arg)) == TREE_LIST); + control_value = GATE_IN(TREE_CHAIN(arg)); + } else { // control input has changed + control_value = in_new; + ASSERT(GATE_INPUT_LIST(gate) != NULL_TREE); + ASSERT(TREE_CODE(GATE_INPUT_LIST(gate)) == TREE_LIST); + input_value = GATE_IN(GATE_INPUT_LIST(gate)); + } + + + switch (control_value) { + case X: + case Z: + switch (input_value) { + case X: + case ONE: + case ZERO: + out_new = X; + break; + case Z: + out_new = Z; + break; + default: + ASSERT(FALSE); + } + break; + case ZERO: + out_new = Z; + break; + case ONE: + out_new = input_value; + break; + default: + ASSERT(FALSE); + } + + if (out_new != out_old + || (out_new == X && arg == GATE_INPUT_LIST(gate))) { + delay_t delay; + + GATE_OUTPUT(gate) = out_new; + if (GATE_DELAY(gate) && !in_initial) { + delay = eval_delay(GATE_DELAY(gate), GATE_OUTPUT(gate)); + } else { + delay = 0; + } + + ScheduleGate(gate, delay); + } +} + +/*********************************************************************** + * + * rpmos_exec + * - execution routine for rpmos gates + * + *********************************************************************** + */ + +void rpmos_exec(struct Marker *marker) +{ + tree gate = (tree) marker->scb; + tree arg; + enum logical_value in_new, in_old, out_new, out_old; + enum logical_value control_value, input_value; + nbits_t nbits; + + ASSERT(marker != NULL); + ASSERT(gate != NULL); + +/* This is the arg expression, code, and last value */ + + arg = marker->expr.arg; + ASSERT(arg != NULL_TREE); + ASSERT(TREE_CODE(arg) == TREE_LIST); + +/* save old input and output values */ + + in_old = GATE_IN(arg); + out_old = GATE_OUTPUT(gate); + +/* First, evaluate the active input, if necessary. If the following is + true, then decl is the only argument and no need + reevaluate arg expression. If is isn't true, then decl is only + one component of the argument expression, so arg needs to be + evaluated. +*/ + + if (marker->flags & M_PRIM_FAST) { + in_new = DECL_STATE(marker->decl); /* Value is xfer'd in marker */ + } else { + Group *g = eval_(TREE_EXPR_CODE(arg), &nbits); /* need to re-eval */ + in_new = VAL_TO_STATE(g); + } + + if (in_old == in_new) /* if input didn't change, */ + return; /* ...return. */ + + SET_GATE_IN(arg, in_new); /* Input changed; remember */ + + /* check if this is a control input */ + + if (GATE_INPUT_LIST(gate) == arg) { // data input has changed + input_value = in_new; + ASSERT(TREE_CHAIN(arg) != NULL_TREE); + ASSERT(TREE_CODE(TREE_CHAIN(arg)) == TREE_LIST); + control_value = GATE_IN(TREE_CHAIN(arg)); + } else { // control input has changed + control_value = in_new; + ASSERT(GATE_INPUT_LIST(gate) != NULL_TREE); + ASSERT(TREE_CODE(GATE_INPUT_LIST(gate)) == TREE_LIST); + input_value = GATE_IN(GATE_INPUT_LIST(gate)); + } + + + switch (control_value) { + case X: + case Z: + switch (input_value) { + case X: + case ONE: + case ZERO: + out_new = X; + break; + case Z: + out_new = Z; + break; + default: + ASSERT(FALSE); + } + break; + case ONE: + out_new = Z; + break; + case ZERO: + out_new = input_value; + break; + default: + ASSERT(FALSE); + } + + if (out_new != out_old + || (out_new == X && arg == GATE_INPUT_LIST(gate))) { + delay_t delay; + + GATE_OUTPUT(gate) = out_new; + if (GATE_DELAY(gate) && !in_initial) { + delay = eval_delay(GATE_DELAY(gate), GATE_OUTPUT(gate)); + } else { + delay = 0; + } + + ScheduleGate(gate, delay); + } +} + +/*********************************************************************** + * + * rnmos_exec + * - execution routine for rnmos gates + * + *********************************************************************** + */ + +void rnmos_exec(struct Marker *marker) +{ + tree gate = (tree) marker->scb; + tree arg; + enum logical_value in_new, in_old, out_new, out_old; + enum logical_value control_value, input_value; + nbits_t nbits; + + ASSERT(marker != NULL); + ASSERT(gate != NULL); + +/* This is the arg expression, code, and last value */ + + arg = marker->expr.arg; + ASSERT(arg != NULL_TREE); + ASSERT(TREE_CODE(arg) == TREE_LIST); + +/* save old input and output values */ + + in_old = GATE_IN(arg); + out_old = GATE_OUTPUT(gate); + +/* First, evaluate the active input, if necessary. If the following is + true, then decl is the only argument and no need + reevaluate arg expression. If is isn't true, then decl is only + one component of the argument expression, so arg needs to be + evaluated. +*/ + + if (marker->flags & M_PRIM_FAST) { + in_new = DECL_STATE(marker->decl); /* Value is xfer'd in marker */ + } else { + Group *g = eval_(TREE_EXPR_CODE(arg), &nbits); /* need to re-eval */ + in_new = VAL_TO_STATE(g); + } + + if (in_old == in_new) /* if input didn't change, */ + return; /* ...return. */ + + SET_GATE_IN(arg, in_new); /* Input changed; remember */ + + /* check if this is a control input */ + + if (GATE_INPUT_LIST(gate) == arg) { // data input has changed + input_value = in_new; + ASSERT(TREE_CHAIN(arg) != NULL_TREE); + ASSERT(TREE_CODE(TREE_CHAIN(arg)) == TREE_LIST); + control_value = GATE_IN(TREE_CHAIN(arg)); + } else { // control input has changed + control_value = in_new; + ASSERT(GATE_INPUT_LIST(gate) != NULL_TREE); + ASSERT(TREE_CODE(GATE_INPUT_LIST(gate)) == TREE_LIST); + input_value = GATE_IN(GATE_INPUT_LIST(gate)); + } + + + switch (control_value) { + case X: + case Z: + switch (input_value) { + case X: + case ONE: + case ZERO: + out_new = X; + break; + case Z: + out_new = Z; + break; + default: + ASSERT(FALSE); + } + break; + case ZERO: + out_new = Z; + break; + case ONE: + out_new = input_value; + break; + default: + ASSERT(FALSE); + } + + if (out_new != out_old + || (out_new == X && arg == GATE_INPUT_LIST(gate))) { + delay_t delay; + + GATE_OUTPUT(gate) = out_new; + if (GATE_DELAY(gate) && !in_initial) { + delay = eval_delay(GATE_DELAY(gate), GATE_OUTPUT(gate)); + } else { + delay = 0; + } + + ScheduleGate(gate, delay); + } +} + +/*********************************************************************** + * + * cmos_exec + * - execution routine for cmos gates + * + *********************************************************************** + */ + +void cmos_exec(struct Marker *marker) +{ + tree gate = (tree) marker->scb; + tree arg; + tree arg1; + tree arg2; + enum logical_value in_new, in_old, out_new, out_old; + enum logical_value control1_value, control2_value, input_value; + nbits_t nbits; + + ASSERT(marker != NULL); + ASSERT(gate != NULL); + +/* This is the arg expression, code, and last value */ + + arg = marker->expr.arg; + ASSERT(arg != NULL_TREE); + ASSERT(TREE_CODE(arg) == TREE_LIST); + +/* save old input and output values */ + + in_old = GATE_IN(arg); + out_old = GATE_OUTPUT(gate); + +/* First, evaluate the active input, if necessary. If the following is + true, then decl is the only argument and no need + reevaluate arg expression. If is isn't true, then decl is only + one component of the argument expression, so arg needs to be + evaluated. +*/ + + if (marker->flags & M_PRIM_FAST) { + in_new = DECL_STATE(marker->decl); /* Value is xfer'd in marker */ + } else { + Group *g = eval_(TREE_EXPR_CODE(arg), &nbits); /* need to re-eval */ + in_new = VAL_TO_STATE(g); + } + + if (in_old == in_new) /* if input didn't change, */ + return; /* ...return. */ + + SET_GATE_IN(arg, in_new); /* Input changed; remember */ + + ASSERT(GATE_INPUT_LIST(gate)); + input_value = GATE_IN(GATE_INPUT_LIST(gate)); + arg1 = TREE_CHAIN(GATE_INPUT_LIST(gate)); + ASSERT(arg1 != NULL_TREE); + ASSERT(TREE_CODE(arg1) == TREE_LIST); + control1_value = GATE_IN(arg1); + arg2 = TREE_CHAIN(arg1); + ASSERT(arg2 != NULL_TREE); + ASSERT(TREE_CODE(arg2) == TREE_LIST); + control2_value = GATE_IN(arg2); + + switch (input_value) { + case X: + if (control1_value == ZERO && control2_value == ONE) { + out_new = Z; + } else { + out_new = X; + } + break; + case ZERO: + if (control1_value != ONE && control2_value != ZERO) { + if (control1_value == ZERO && control2_value == ONE) { + out_new = Z; + } else { + out_new = X; + } + } else { + out_new = ZERO; + } + break; + case ONE: + if (control1_value != ONE && control2_value != ZERO) { + if (control1_value == ZERO && control2_value == ONE) { + out_new = Z; + } else { + out_new = X; + } + } else { + out_new = ONE; + } + break; + case Z: + out_new = Z; + break; + default: + ASSERT(FALSE); + } + + if (out_new != out_old + || (out_new == X && arg == GATE_INPUT_LIST(gate))) { + delay_t delay; + + GATE_OUTPUT(gate) = out_new; + if (GATE_DELAY(gate) && !in_initial) { + delay = eval_delay(GATE_DELAY(gate), GATE_OUTPUT(gate)); + } else { + delay = 0; + } + + ScheduleGate(gate, delay); + } +} + +/*********************************************************************** + * + * rcmos_exec + * - execution routine for rcmos gates + * + *********************************************************************** + */ + +void rcmos_exec(struct Marker *marker) +{ + tree gate = (tree) marker->scb; + tree arg; + tree arg1; + tree arg2; + enum logical_value in_new, in_old, out_new, out_old; + enum logical_value control1_value, control2_value, input_value; + nbits_t nbits; + + ASSERT(marker != NULL); + ASSERT(gate != NULL); + +/* This is the arg expression, code, and last value */ + + arg = marker->expr.arg; + ASSERT(arg != NULL_TREE); + ASSERT(TREE_CODE(arg) == TREE_LIST); + +/* save old input and output values */ + + in_old = GATE_IN(arg); + out_old = GATE_OUTPUT(gate); + +/* First, evaluate the active input, if necessary. If the following is + true, then decl is the only argument and no need + reevaluate arg expression. If is isn't true, then decl is only + one component of the argument expression, so arg needs to be + evaluated. +*/ + + if (marker->flags & M_PRIM_FAST) { + in_new = DECL_STATE(marker->decl); /* Value is xfer'd in marker */ + } else { + Group *g = eval_(TREE_EXPR_CODE(arg), &nbits); /* need to re-eval */ + in_new = VAL_TO_STATE(g); + } + + if (in_old == in_new) /* if input didn't change, */ + return; /* ...return. */ + + SET_GATE_IN(arg, in_new); /* Input changed; remember */ + + /* check if this is a control input */ + + ASSERT(GATE_INPUT_LIST(gate)); + input_value = GATE_IN(GATE_INPUT_LIST(gate)); + arg1 = TREE_CHAIN(GATE_INPUT_LIST(gate)); + ASSERT(arg1 != NULL_TREE); + ASSERT(TREE_CODE(arg1) == TREE_LIST); + control1_value = GATE_IN(arg1); + arg2 = TREE_CHAIN(arg1); + ASSERT(arg2 != NULL_TREE); + ASSERT(TREE_CODE(arg2) == TREE_LIST); + control2_value = GATE_IN(arg2); + + switch (input_value) { + case X: + if (control1_value == ZERO && control2_value == ONE) { + out_new = Z; + } else { + out_new = X; + } + break; + case ZERO: + if (control1_value != ONE && control2_value != ZERO) { + if (control1_value == ZERO && control2_value == ONE) { + out_new = Z; + } else { + out_new = X; + } + } else { + out_new = ZERO; + } + break; + case ONE: + if (control1_value != ONE && control2_value != ZERO) { + if (control1_value == ZERO && control2_value == ONE) { + out_new = Z; + } else { + out_new = X; + } + } else { + out_new = ONE; + } + break; + case Z: + out_new = Z; + break; + default: + ASSERT(FALSE); + } + + if (out_new != out_old + || (out_new == X && arg == GATE_INPUT_LIST(gate))) { + delay_t delay; + + GATE_OUTPUT(gate) = out_new; + if (GATE_DELAY(gate) && !in_initial) { + delay = eval_delay(GATE_DELAY(gate), GATE_OUTPUT(gate)); + } else { + delay = 0; + } + + ScheduleGate(gate, delay); + } +} + +/*********************************************************************** + * + * tranif0_exec + * - execution routine for tranif0 gates + * + *********************************************************************** + */ + +void tranif0_exec(struct Marker *marker) +{ + tree gate = (tree) marker->scb; + tree arg; + enum logical_value in_new, in_old; + nbits_t nbits; + + ASSERT(marker != NULL); + ASSERT(gate != NULL); + +/* This is the arg expression, code, and last value */ + + arg = marker->expr.arg; + ASSERT(arg != NULL_TREE); + ASSERT(TREE_CODE(arg) == TREE_LIST); + +/* save old input and output values */ + + in_old = GATE_IN(arg); + +/* First, evaluate the active input, if necessary. If the following is + true, then decl is the only argument and no need + reevaluate arg expression. If is isn't true, then decl is only + one component of the argument expression, so arg needs to be + evaluated. +*/ + + if (marker->flags & M_PRIM_FAST) { + in_new = DECL_STATE(marker->decl); /* Value is xfer'd in marker */ + } else { + Group *g = eval_(TREE_EXPR_CODE(arg), &nbits); /* need to re-eval */ + in_new = VAL_TO_STATE(g); + } + + if (in_old == in_new) /* if input didn't change, */ + return; /* ...return. */ + + SET_GATE_IN(arg, in_new); /* Input changed; remember */ + + /* not a control input, schedule immediately if gate is enabled */ + + if (TREE_CHAIN(arg) != NULL_TREE) { + if (GATE_CONTROL(gate) == ONE) { + ScheduleGate(gate, 0); + } + return; + } + + /* a control input has changed nets must be reevaluated */ + + if (in_new == ZERO) { + GATE_CONTROL(gate) = ONE; + } else { + GATE_CONTROL(gate) = ZERO; + } + + { + delay_t delay; + + // no delay if data input has changed + + if (GATE_DELAY(gate) && !in_initial) { + delay = eval_delay(GATE_DELAY(gate), GATE_OUTPUT(gate)); + } else { + delay = 0; + } + + ScheduleGate(gate, delay); + } +} + +/*********************************************************************** + * + * rtranif0_exec + * - execution routine for rtranif0 gates + * + *********************************************************************** + */ + +void rtranif0_exec(struct Marker *marker) +{ + tree gate = (tree) marker->scb; + tree arg; + enum logical_value in_new, in_old; + nbits_t nbits; + + ASSERT(marker != NULL); + ASSERT(gate != NULL); + +/* This is the arg expression, code, and last value */ + + arg = marker->expr.arg; + ASSERT(arg != NULL_TREE); + ASSERT(TREE_CODE(arg) == TREE_LIST); + +/* save old input and output values */ + + in_old = GATE_IN(arg); + +/* First, evaluate the active input, if necessary. If the following is + true, then decl is the only argument and no need + reevaluate arg expression. If is isn't true, then decl is only + one component of the argument expression, so arg needs to be + evaluated. +*/ + + if (marker->flags & M_PRIM_FAST) { + in_new = DECL_STATE(marker->decl); /* Value is xfer'd in marker */ + } else { + Group *g = eval_(TREE_EXPR_CODE(arg), &nbits); /* need to re-eval */ + in_new = VAL_TO_STATE(g); + } + + if (in_old == in_new) /* if input didn't change, */ + return; /* ...return. */ + + SET_GATE_IN(arg, in_new); /* Input changed; remember */ + + /* not a control input, schedule immediately if gate is enabled */ + + if (TREE_CHAIN(arg) != NULL_TREE) { + if (GATE_CONTROL(gate) == ONE) { + ScheduleGate(gate, 0); + } + return; + } + + /* a control input has changed nets must be reevaluated */ + + if (in_new == ZERO) { + GATE_CONTROL(gate) = ONE; + } else { + GATE_CONTROL(gate) = ZERO; + } + + { + delay_t delay; + + // no delay if data input has changed + + if (GATE_DELAY(gate) && !in_initial) { + delay = eval_delay(GATE_DELAY(gate), GATE_OUTPUT(gate)); + } else { + delay = 0; + } + + ScheduleGate(gate, delay); + } +} + +/*********************************************************************** + * + * tranif1_exec + * - execution routine for tranif1 gates + * + *********************************************************************** + */ + +void tranif1_exec(struct Marker *marker) +{ + tree gate = (tree) marker->scb; + tree arg; + enum logical_value in_new, in_old; + nbits_t nbits; + + ASSERT(marker != NULL); + ASSERT(gate != NULL); + +/* This is the arg expression, code, and last value */ + + arg = marker->expr.arg; + ASSERT(arg != NULL_TREE); + ASSERT(TREE_CODE(arg) == TREE_LIST); + +/* save old input and output values */ + + in_old = GATE_IN(arg); + +/* First, evaluate the active input, if necessary. If the following is + true, then decl is the only argument and no need + reevaluate arg expression. If is isn't true, then decl is only + one component of the argument expression, so arg needs to be + evaluated. +*/ + + if (marker->flags & M_PRIM_FAST) { + in_new = DECL_STATE(marker->decl); /* Value is xfer'd in marker */ + } else { + Group *g = eval_(TREE_EXPR_CODE(arg), &nbits); /* need to re-eval */ + in_new = VAL_TO_STATE(g); + } + + if (in_old == in_new) /* if input didn't change, */ + return; /* ...return. */ + + SET_GATE_IN(arg, in_new); /* Input changed; remember */ + + /* not a control input, schedule immediately if gate is enabled */ + + if (TREE_CHAIN(arg) != NULL_TREE) { + if (GATE_CONTROL(gate) == ONE) { + ScheduleGate(gate, 0); + } + return; + } + + /* a control input has changed nets must be reevaluated */ + + if (in_new == ONE) { + GATE_CONTROL(gate) = ONE; + } else { + GATE_CONTROL(gate) = ZERO; + } + + { + delay_t delay; + + // no delay if data input has changed + + if (GATE_DELAY(gate) && !in_initial) { + delay = eval_delay(GATE_DELAY(gate), GATE_OUTPUT(gate)); + } else { + delay = 0; + } + + ScheduleGate(gate, delay); + } +} + +/*********************************************************************** + * + * rtranif1_exec + * - execution routine for rtranif1 gates + * + *********************************************************************** + */ + +void rtranif1_exec(struct Marker *marker) +{ + tree gate = (tree) marker->scb; + tree arg; + enum logical_value in_new, in_old; + nbits_t nbits; + + ASSERT(marker != NULL); + ASSERT(gate != NULL); + +/* This is the arg expression, code, and last value */ + + arg = marker->expr.arg; + ASSERT(arg != NULL_TREE); + ASSERT(TREE_CODE(arg) == TREE_LIST); + +/* save old input and output values */ + + in_old = GATE_IN(arg); + +/* First, evaluate the active input, if necessary. If the following is + true, then decl is the only argument and no need + reevaluate arg expression. If is isn't true, then decl is only + one component of the argument expression, so arg needs to be + evaluated. +*/ + + if (marker->flags & M_PRIM_FAST) { + in_new = DECL_STATE(marker->decl); /* Value is xfer'd in marker */ + } else { + Group *g = eval_(TREE_EXPR_CODE(arg), &nbits); /* need to re-eval */ + in_new = VAL_TO_STATE(g); + } + + if (in_old == in_new) /* if input didn't change, */ + return; /* ...return. */ + + SET_GATE_IN(arg, in_new); /* Input changed; remember */ + + /* not a control input, schedule immediately if gate is enabled */ + + if (TREE_CHAIN(arg) != NULL_TREE) { + if (GATE_CONTROL(gate) == ONE) { + ScheduleGate(gate, 0); + } + return; + } + + /* a control input has changed nets must be reevaluated */ + + if (in_new == ONE) { + GATE_CONTROL(gate) = ONE; + } else { + GATE_CONTROL(gate) = ZERO; + } + + { + delay_t delay; + + // no delay if data input has changed + + if (GATE_DELAY(gate) && !in_initial) { + delay = eval_delay(GATE_DELAY(gate), GATE_OUTPUT(gate)); + } else { + delay = 0; + } + + ScheduleGate(gate, delay); + } +} + +/*********************************************************************** + * + * tran_exec + * - execution routine for tran gates + * + *********************************************************************** + */ + +void tran_exec(struct Marker *marker) +{ + tree gate = (tree) marker->scb; + tree arg; + enum logical_value in_new, in_old; + nbits_t nbits; + + ASSERT(marker != NULL); + ASSERT(gate != NULL); + +/* This is the arg expression, code, and last value */ + + arg = marker->expr.arg; + ASSERT(arg != NULL_TREE); + ASSERT(TREE_CODE(arg) == TREE_LIST); + +/* save old input and output values */ + + in_old = GATE_IN(arg); + +/* First, evaluate the active input, if necessary. If the following is + true, then decl is the only argument and no need + reevaluate arg expression. If is isn't true, then decl is only + one component of the argument expression, so arg needs to be + evaluated. +*/ + + if (marker->flags & M_PRIM_FAST) { + in_new = DECL_STATE(marker->decl); /* Value is xfer'd in marker */ + } else { + Group *g = eval_(TREE_EXPR_CODE(arg), &nbits); /* need to re-eval */ + in_new = VAL_TO_STATE(g); + } + + if (in_old == in_new) /* if input didn't change, */ + return; /* ...return. */ + + SET_GATE_IN(arg, in_new); /* Input changed; remember */ + + /* always schedule immediately */ + + ScheduleGate(gate, 0); +} + +/*********************************************************************** + * + * rtran_exec + * - execution routine for rtran gates + * + *********************************************************************** + */ + +void rtran_exec(struct Marker *marker) +{ + tree gate = (tree) marker->scb; + tree arg; + enum logical_value in_new, in_old; + nbits_t nbits; + + ASSERT(marker != NULL); + ASSERT(gate != NULL); + +/* This is the arg expression, code, and last value */ + + arg = marker->expr.arg; + ASSERT(arg != NULL_TREE); + ASSERT(TREE_CODE(arg) == TREE_LIST); + +/* save old input and output values */ + + in_old = GATE_IN(arg); + +/* First, evaluate the active input, if necessary. If the following is + true, then decl is the only argument and no need + reevaluate arg expression. If is isn't true, then decl is only + one component of the argument expression, so arg needs to be + evaluated. +*/ + + if (marker->flags & M_PRIM_FAST) { + in_new = DECL_STATE(marker->decl); /* Value is xfer'd in marker */ + } else { + Group *g = eval_(TREE_EXPR_CODE(arg), &nbits); /* need to re-eval */ + in_new = VAL_TO_STATE(g); + } + + if (in_old == in_new) /* if input didn't change, */ + return; /* ...return. */ + + SET_GATE_IN(arg, in_new); /* Input changed; remember */ + + /* always schedule immediately */ + + ScheduleGate(gate, 0); +} + +/*********************************************************************** + * + * handle_gate + * - gate is ready to execute + * + *********************************************************************** + */ +/* MOVE TO EXEC to handle trace +void handle_gate(tree gate) +{ + + + ASSERT( gate!=NULL_TREE ); + ASSERT( TREE_CODE(gate)==GATE_INSTANCE ); + + + if( GATE_PATH_OUTPUT(gate)!=NULL_TREE ) { + if( handle_specify_path(gate) ) { + return; + } + } + (*GATE_PROPAGATE_ROUTINE(gate))( gate ); +} +*/ +/*********************************************************************** + * + * propagate_specify_output + * - pass unidirectional gate output to rest of the world + * + *********************************************************************** + */ + +void propagate_specify_output(tree gate, enum logical_value v) +{ + Group *g1; + tree port; + tree t; + + + ASSERT(gate != NULL_TREE); + ASSERT(TREE_CODE(gate) == GATE_INSTANCE); + ASSERT(GATE_OUTPUT_LIST(gate) != NULL_TREE); + + for (t = GATE_OUTPUT_LIST(gate); t; t = TREE_CHAIN(t)) { + ASSERT(TREE_CODE(t) == TREE_LIST); + g1 = *R++; + switch (v) { + case ONE: + AVAL(g1) = 1; + BVAL(g1) = 0; + break; + + case ZERO: + AVAL(g1) = 0; + BVAL(g1) = 0; + break; + + case X: + AVAL(g1) = 1; + BVAL(g1) = 1; + break; + + case Z: + AVAL(g1) = 0; + BVAL(g1) = 1; + break; + + default: + ASSERT(FALSE); + } + + port = TREE_PURPOSE(t); + ASSERT(port != NULL_TREE); +// ASSERT( TREE_CODE(port)==NET_SCALAR_DECL ); + store(port, gate); + } +} + +/*********************************************************************** + * + * propagate_unigate_output + * - pass unidirectional gate output to rest of the world + * + *********************************************************************** + */ + +void propagate_unigate_output(tree gate) +{ + Group *g1; + tree port; + tree t; + enum logical_value v; + + + ASSERT(gate != NULL_TREE); + ASSERT(TREE_CODE(gate) == GATE_INSTANCE); + ASSERT(GATE_OUTPUT_LIST(gate) != NULL_TREE); + v = GATE_OUTPUT(gate); + + for (t = GATE_OUTPUT_LIST(gate); t; t = TREE_CHAIN(t)) { + ASSERT(TREE_CODE(t) == TREE_LIST); + g1 = *R++; + switch (v) { + case ONE: + AVAL(g1) = 1; + BVAL(g1) = 0; + break; + + case ZERO: + AVAL(g1) = 0; + BVAL(g1) = 0; + break; + + case X: + AVAL(g1) = 1; + BVAL(g1) = 1; + break; + + case Z: + AVAL(g1) = 0; + BVAL(g1) = 1; + break; + + default: + ASSERT(FALSE); + } + + port = TREE_PURPOSE(t); + ASSERT(port != NULL_TREE); +// ASSERT( TREE_CODE(port)==NET_SCALAR_DECL ); + store(port, gate); + } +} + +/*********************************************************************** + * + * propagate_bigate_output + * - pass bidirectional gate output to rest of the world + * + *********************************************************************** + */ + +void propagate_bigate_output(tree gate) +{ + tree port1_in; + tree port1_out; + tree port2_in; + tree port2_out; + tree t_in; + tree t_out; + Group *g1; + + + ASSERT(gate != NULL_TREE); + ASSERT(TREE_CODE(gate) == GATE_INSTANCE); + + t_in = GATE_INPUT_LIST(gate); + t_out = GATE_OUTPUT_LIST(gate); + ASSERT(t_in != NULL_TREE); + ASSERT(t_out != NULL_TREE); + port2_out = TREE_PURPOSE(t_out); + port1_in = TREE_PURPOSE(t_in); + t_in = TREE_CHAIN(t_in); + t_out = TREE_CHAIN(t_out); + ASSERT(t_in != NULL_TREE); + ASSERT(t_out != NULL_TREE); + port1_out = TREE_PURPOSE(t_out); + port2_in = TREE_PURPOSE(t_in); + ASSERT(port1_in != NULL_TREE); + ASSERT(TREE_CODE(port1_in) == NET_SCALAR_DECL); + ASSERT(port2_in != NULL_TREE); + ASSERT(TREE_CODE(port2_in) == NET_SCALAR_DECL); + ASSERT(port1_out != NULL_TREE); + ASSERT(TREE_CODE(port1_out) == NET_SCALAR_DECL); + ASSERT(port2_out != NULL_TREE); + ASSERT(TREE_CODE(port2_out) == NET_SCALAR_DECL); + + if (GATE_CONTROL(gate) == ONE) { + do_net_eval(TREE_CHAIN(port1_out), 0, port1_out); + } else { + g1 = *R++; + AVAL(g1) = 0; + BVAL(g1) = 1; + } + store(port2_out, gate); + + if (GATE_CONTROL(gate) == ONE) { + do_net_eval(TREE_CHAIN(port2_out), 0, port2_out); + } else { + g1 = *R++; + AVAL(g1) = 0; + BVAL(g1) = 1; + } + store(port1_out, gate); +} diff --git a/src/gates.h b/src/gates.h new file mode 100644 index 0000000..191ee14 --- /dev/null +++ b/src/gates.h @@ -0,0 +1,61 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/******************************************************************* + * + * gates.h + * - header file for gates.c + * + * + ******************************************************************* + */ + +#ifndef GATES_H +#define GATES_H + + +#define VAL_TO_STATE(g) ((enum logical_value)(((BVAL (g) & 1) << 1) | (AVAL (g) & 1))) + +enum gate_style { + PRIM_LOGIC = 1, + PRIM_BUF, + PRIM_TRI, + PRIM_CMOS, + PRIM_TRAN, + PRIM_PULL +}; + +tree build_gate_instance(enum tree_type type, char *filename, + lineno_t lineno, tree ident, tree arg_list, + tree delay, tree udp_def); +void initialize_gates(void); +void gate_check_delay(tree gate, unsigned int max_delays); +int gate_ok_input(tree port); +int gate_ok_output(tree port); +tree next_gate_port(tree gate, tree * port_list); +void gate_check_ports(tree gate, enum gate_style style); +void pass3_gate(tree gate); +void handle_gate(tree gate); +void propagate_unigate_output(tree gate); +void propagate_bigate_output(tree gate); +void propagate_specify_output(tree gate, enum logical_value v); +void propagate_pull_output(tree gate); + + +#endif // GATES_H diff --git a/src/glue.cc b/src/glue.cc new file mode 100644 index 0000000..7df5b60 --- /dev/null +++ b/src/glue.cc @@ -0,0 +1,258 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* GLUE.C - Dummy stubs for easy interface into other environments */ + +/****************************************************************************** + Glue.c + + This file contains dummy stubs for the glue routines to interface the shell + to the back end. + + + ******************************************************************************/ + +#include +#include +#include "vtypes.h" +#include "tree.h" +#include "glue.h" +#include +#include +#include +#include "copy.h" +#include "eval.h" +#include "exec.h" +#include "lex.h" +#include "macro.h" +#include "multdiv.h" +#include "acc_user.h" +#include "pli.h" +#include "schedule.h" +#include "pass3.h" +#include "pass2.h" +#include "print.h" +#include "scope.h" +#include "store.h" +#include "strobe.h" +#include "systask.h" +#include "timescal.h" +#include "trace.h" +#include "udp.h" +#include "check.h" +#include "decl.h" +#include "flags.h" +#include "io.h" +#include "parse.h" +#include "dumpvar.h" +#include "verisys.h" +#include "veriwell.h" +#include "nsched.h" +#include "usertask.h" + + + + + +File *File::stdin_ = new File(stdin); +static long totalAllocated; + +typedef struct mem_header_tag { + struct mem_header_tag *next; + struct mem_header_tag *prev; + unsigned long size; + char signature[4]; +} MemHeader, *MemHeaderPtr; + +MemHeader memList; +/****************************************************************************** + shellinit + + This routine will setup the inteface between the shell and the back end. + + + ******************************************************************************/ + +void shellinit() +{ + totalAllocated = 0; + memList.next = &memList; + memList.prev = &memList; +} + +/****************************************************************************** + shell_fopen + + This is the emulation routine for openning a file using the search list. + + + ******************************************************************************/ +FILE *shell_fopen(char *name, char *mode) +{ + return (fopen(name, mode)); +} + +/****************************************************************************** + shell_close + + This is the emulation routine for a file. + + + ******************************************************************************/ +void shell_fclose(FILE * file) +{ +#undef fclose + fclose(file); +} + +/****************************************************************************** + shell_exit + + extended exit handler + + + ******************************************************************************/ +void shell_exit(int reason) +{ + exit(reason); +} + +/****************************************************************************** + shell_abort + + Extended abort handler + + + ******************************************************************************/ +void shell_abort(void) +{ + abort(); +} + +/****************************************************************************** + main + + This routine will be called to start the back end. + + + ******************************************************************************/ + +int main(int argc, char **argv) +{ + // initialize verwell module in case of reentry + + shellinit(); + init_check(); + init_copy(); + init_decl(); + init_flags(); + init_io(); + init_macro_1(); + init_print(); + init_sched(); + init_tree_1(); + init_parse(); + init_eval(); + init_pass3(); + init_exec(); + init_store(); + init_lex_1(); + init_pass2(); + Usertask_Init(argc, argv); + init_systask_1(); + init_verilog(); + init_trace(); + init_multdiv(); + init_dumpvar(); + init_strobe(); + init_scope(); + init_udp(); + init_timescale(); + InitNSched(); + init_verisys(); + init_pli(); + __main_v(argc, argv); +} + + +/****************************************************************************** + shell_process + + This routine is called periodically to give the shell time. + + + ******************************************************************************/ +void shell_process() +{ + ftell(stdin); +} + +/****************************************************************************** + shell_signal + + This routine intervenes in signal handling. + + + ******************************************************************************/ +sig_handler shell_signal(int sig, void (*func) (int)) +{ + return (signal(sig, func)); +} + +int shell_getchar(void) +{ +#undef getchar + return (getchar()); +} + +int shell_vprintf(const char *format, va_list argptr) +{ +#undef vprintf + return (vprintf(format, argptr)); +} + +int shell_vfprintf(FILE * fp, const char *format, va_list argptr) +{ +#undef vfprintf + return (vfprintf(fp, format, argptr)); +} + +void shell_ungetc(int c, FILE * f) +{ +#undef ungetc + ungetc(c, f); +} + +void shell_fflush(FILE * f) +{ +#undef fflush + fflush(f); +} + +int shell_printf(const char *fmt, ...) +{ + va_list args; + int result; + +#undef vprintf + va_start(args, fmt); + result = vprintf(fmt, args); + va_end(args); + return (result); +} diff --git a/src/glue.h b/src/glue.h new file mode 100644 index 0000000..9c90b9a --- /dev/null +++ b/src/glue.h @@ -0,0 +1,171 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/****************************************************************************** + Glue.hpp + + This file contains the headers for glue routines to interface the shell + to the back end. + + + ******************************************************************************/ + +#ifndef GLUE_H +#define GLUE_H + +#include +#include +#include +#include +#include +#include "vtypes.h" + +#ifndef HAVE_VFSCANF +extern "C" int vfscanf( FILE*, char*, ... ); +#endif + +BEGIN_C_DECLS + + typedef void (*sig_handler) (int); + + FILE *shell_fopen(char *name, char *mode); + void shell_abort(void); + void shell_exit(int status); + void shell_process(void); + sig_handler shell_signal(int sig, sig_handler func); + void shell_assert(char *file, int line); + void shell_fclose(FILE * file); + int shell_getchar(void); + int shell_printf(const char *format, ...); + int shell_vprintf(const char *format, va_list argptr); + int shell_vfprintf(FILE * fp, const char *format, va_list argptr); + void shell_ungetc(int c, FILE * f); + void GetProgramPath(char *string); + void SetProgramPath(); + FILE *shell_fopenbuf(char *buffer, int len); + void shell_fflush(FILE * f); + + + +END_C_DECLS + +void error(char *s, char *v, char *v2); +void printf_V_key(char *, ...); +char *xmalloc(unsigned); +/* + * file class + */ +class File { + FILE *f; + int isBuffer; + int len; + char *buffer; + int offset; + int own; + public: + static File *stdin_; + File(FILE * f):f(f), isBuffer(0), buffer(0), len(0), offset(0), own(0) { + } File(char *buffer, int len, int own = 0):f(0), isBuffer(1), + buffer(buffer), len(len), offset(0), + own(own) { + } + static File *fopen(char *name, char *mode) { + FILE* fin = shell_fopen(name, mode); + if( !fin ) { + return NULL; + } + return new File(fin); + } + static File* Stdin() { return stdin_; } + void fclose() { + if (!isBuffer) { + shell_fclose(f); + } else if (own) { + free(buffer); + } + delete this; + } + int isatty() { + return !isBuffer &&::isatty(fileno(f)); + } + static File *fopenbuf(char *buffer, int len) { + return new File(buffer, len); + } + int fgetc() { + int result = EOF; + if (isBuffer) { + if (offset < len) { + result = buffer[offset++]; + } + } else { + result = getc(f); + } + return result; + } + int fscanf(char *format, ...) { + int result; + va_list args; + va_start(args, format); + if (isBuffer) { + /* fscanf not support on in memory buffers */ + error("Internal error", NULL, NULL); + result = 0; + } else { + result = vfscanf(f, format, args); + } + va_end(args); + return result; + } + int fungetc(int c) { + if (isBuffer) { + if (offset != 0 && c != EOF) { + buffer[--offset] = c; + return c; + } else { + return EOF; + } + } else { + return ungetc(c, f); + } + } + char *fgets(char *s, int size) { + if (isBuffer) { + int i; + for (i = 0; i < size - 1; ++i) { + s[i] = fgetc(); + if (s[i] == EOF) { + if (i == 0) { + return NULL; + } else { + break; + } + } else if (s[i] == '\n') { + i++; + break; + } + } + s[i] = 0; + return s; + } else { + return::fgets(s, size, f); + } + } +}; + +#endif // GLUE_H diff --git a/src/io.cc b/src/io.cc new file mode 100644 index 0000000..e9d7ab2 --- /dev/null +++ b/src/io.cc @@ -0,0 +1,304 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* IO.C - Compiler-dependent input/output routines */ + +/* fbufopen "opens" a buffer so that getc will read from it as if it + were a file */ + +#define IO_C + +#include +#include +#include +#include +#include +#include +#include +#include +#include "vtypes.h" +#include "tree.h" +#include "macro.h" +#include "io.h" +#include "glue.h" +#include "lex.h" +#include "veriwell.h" + +File *fin; /* current input file */ +char *input_filename; +char *filename; + +int global_print_override; +char *global_print_buffer; +char *global_print_p; + +FILE *log_file; +FILE *key_file; +char *log_file_name; +char *key_file_name; +int log_enable = 1; +int log_available = 0; +int key_enable = 1; +int key_available = 0; + +LibPath_t *ypathList; +char *ylibext; +char *incdir; + +FILE *file_handles[NHANDLES]; +int file_used[NHANDLES]; +char print_buffer[2000]; + + +void fclose_V(handle_t handle) +{ + int i; + handle_t tmp_handle; + + if (handle & 1) + warning("Cannot close standard output", NULL_CHAR, NULL_CHAR); + + if (handle - 1) { + tmp_handle = handle >> 1; + for (i = 0; i < NHANDLES; i++) + if (tmp_handle >> i & 1) { + fclose(file_handles[i]); + file_used[i] = 0; + } + } +} + +/* Open a file, assign one of 31 bits to the handle of the file */ + +handle_t fopen_V(char *file) +{ + int i; + FILE *f_handle; + + /* find an available handle */ + for (i = 0; i < NHANDLES; i++) + if (!file_used[i]) + break; + if (i >= NHANDLES) { + warning("Exeeded limit on number of open files", NULL_CHAR, + NULL_CHAR); + return 0; + } + f_handle = shell_fopen(file, "w+t"); + if (!f_handle) { + warning("Cannot open file '%s'", file, NULL_CHAR); + return 0; + } + file_handles[i] = f_handle; + file_used[i] = 1; + return 1 << (i + 1); +} + +/* Given a handle, test to make sure each handle is valid; filter + out invalid handles and give warnings if necessary */ + +handle_t check_handle(handle_t handle) +{ + int i; + handle_t tmp_handle; + + /* Only check for file handles */ + if (handle - 1) { + tmp_handle = handle >> 1; + for (i = 0; i < NHANDLES; i++) + if (tmp_handle >> i & 1) + if (!file_used[i]) { + warning("File not open", NULL_CHAR, NULL_CHAR); + handle &= ~((handle_t) 1 << (i + 1)); + } + } + return handle; +} + +void fflush_V(handle_t handle) +{ + int i; + handle_t tmp_handle; + + /* First, flush stdout (and log file) */ + if (handle & 1) { + fflush(stdout); + if (log_enable) + fflush(log_file); + } + /* If there is some file output, flush it */ + if (handle - 1) { + tmp_handle = handle >> 1; + for (i = 0; i < NHANDLES; i++) + if (tmp_handle >> i & 1) + if (file_used[i]) + fflush(file_handles[i]); + else + warning("File not open", NULL_CHAR, NULL_CHAR); + } +} + +void vfprintf_V(handle_t handle, char *fmt, va_list args) +{ + int i; + handle_t tmp_handle; + + if (global_print_override) { + /* Watcom chokes on this... */ + global_print_p += vsprintf(global_print_p, fmt, args); + return; + } + + /* Do this because some compilers (and ANSI?) don't like to use "args" + more than once */ + + vsprintf(print_buffer, fmt, args); + + /* First, do output to stdout (and to log file) */ + if (handle & 1) { + printf(print_buffer); + if (log_enable) + fprintf(log_file, print_buffer); + } + /* If there is some file output to do, do it */ + if (handle - 1) { + tmp_handle = handle >> 1; + for (i = 0; i < NHANDLES; i++) + if (tmp_handle >> i & 1) + if (file_used[i]) + fprintf(file_handles[i], print_buffer); + else + warning("File not open", NULL_CHAR, NULL_CHAR); + } +} + +void fprintf_V(handle_t handle, char *fmt, ...) +{ + va_list args; + + va_start(args, fmt); + vfprintf_V(handle, fmt, args); + va_end(args); +} + +void vprintf_V(char *fmt, va_list args) +{ + if (global_print_override) { + global_print_p += vsprintf(global_print_p, fmt, args); + return; + } else + /* Do this because some compilers (and ANSI?) don't like to use "args" + more than once */ + + vsprintf(print_buffer, fmt, args); + + printf(print_buffer); + + if (log_enable) + fprintf(log_file, print_buffer); +} + +void printf_V(char *fmt, ...) +{ + va_list args; + + va_start(args, fmt); + vprintf_V(fmt, args); + va_end(args); +} + +void vprintf_V_log(char *fmt, va_list args) +{ + + vsprintf(print_buffer, fmt, args); + + if (log_enable) + fprintf(log_file, print_buffer); +} + +void printf_V_log(char *fmt, ...) +{ + va_list args; + + va_start(args, fmt); + vprintf_V_log(fmt, args); + va_end(args); +} + +void printf_error_V(char *fmt, ...) +{ + va_list args; + + va_start(args, fmt); + vfprintf(stderr, fmt, args); + va_end(args); + if (log_enable) { + va_start(args, fmt); + vfprintf(log_file, fmt, args); + va_end(args); + } +} + +void printf_V_key(char *fmt, ...) +{ + va_list args; + + if (!fin->isatty()) { + va_start(args, fmt); + vprintf(fmt, args); + va_end(args); + } + if (log_enable) { + va_start(args, fmt); + vfprintf(log_file, fmt, args); + va_end(args); + } + if (key_enable) { + va_start(args, fmt); + vfprintf(key_file, fmt, args); + va_end(args); + } +} + +void init_io() +{ + incdir = xmalloc(1); + incdir[0] = 0; + log_enable = 0; + log_available = 0; + key_enable = 0; + key_available = 0; + global_print_override = 0; + global_print_buffer = 0; + global_print_p = 0; + ypathList = (LibPath_t *) malloc(sizeof(LibPath_t)); + ypathList->path = "."; + ypathList->next = NULL; + + memset(&fin, 0, sizeof(fin)); + memset(&input_filename, 0, sizeof(input_filename)); + memset(&filename, 0, sizeof(filename)); + memset(&log_file, 0, sizeof(log_file)); + memset(&key_file, 0, sizeof(key_file)); + memset(&log_file_name, 0, sizeof(log_file_name)); + memset(&file_handles, 0, sizeof(file_handles)); + memset(&file_used, 0, sizeof(file_used)); + memset(&ylibext, 0, sizeof(ylibext)); + +} diff --git a/src/io.h b/src/io.h new file mode 100644 index 0000000..96cc22f --- /dev/null +++ b/src/io.h @@ -0,0 +1,90 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* IO.H - IO prototypes */ + +#ifndef IO_H +#define IO_H + +#include + +// public methods + +/* + * LibPath_t + * - structure to maintain linked list of library paths + */ + +typedef struct LibPath_t { + struct LibPath_t *next; + char *path; +} LibPath_t; + + +#define NHANDLES 31 +//static FILE *file_handles [NHANDLES]; +//static int file_used [NHANDLES]; + +void printf_V_log(char *, ...); +void printf_V(char *, ...); +void printf_error_V(char *, ...); +void printf_V_key(char *, ...); +void fprintf_V(handle_t, char *, ...); +//void vprintf_V (char *, void *); +//void vfprintf_V (handle_t, char *, void *); +void vprintf_V_log(char *, va_list); +void vprintf_V(char *, va_list); +void vfprintf_V(handle_t, char *, va_list); +handle_t fopen_V(char *); +handle_t check_handle(handle_t); +void fclose_V(handle_t); +//tree check_library (char *, int); +void fflush_V(handle_t); + +FILE *fopenbuf(char *, int); + +void init_io(void); +//tree check_library (char *name, int numargs); + +class File; +extern File *fin; +extern char *input_filename; +extern char *filename; + +extern FILE *log_file; +extern FILE *key_file; +extern char *log_file_name; +extern char *key_file_name; +extern int log_enable; +extern int log_available; +extern int key_enable; +extern int key_available; +extern char *ypath; +extern char *ylibext; +extern char *incdir; +extern int global_print_override; +extern char *global_print_buffer; +extern char *global_print_p; + +// private methods + +#ifdef IO_C +#endif //IO_C + +#endif //IO_H diff --git a/src/lex.cc b/src/lex.cc new file mode 100644 index 0000000..2bfce9e --- /dev/null +++ b/src/lex.cc @@ -0,0 +1,1371 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* LEX.C - Read tokens for Verilog grammer */ + +#define LEX_C + +#include +#include +#include +#include +#include + +#include "vtypes.h" +#include "tree.h" + +#include "parse.h" +#include "macro.h" +#include "glue.h" +#include "lex.h" +#include "veriwell.h" +#include "timescal.h" +#include "exec.h" +#include "io.h" + +#define follow(EXPECT, YES, NO) \ + (nextchar == EXPECT) ? \ + (token_buffer[2] = '\0', nextchar = -1, YES) : \ + (token_buffer[1] = '\0', NO) + +#define eatline(c) while (c != '\n' && c != EOF) c = fin->fgetc() + +//extern void * xmalloc(); +//extern void * xrealloc(); + +void yyerror(); +void parse_base_const1(enum radii, char *, nbits_t, nbits_t, tree); +int yylex(YYSTYPE *); +lineno_t lineno; +lineno_t stmt_lineno; +lineno_t keywd_lineno; +static int maxtoken; /* the current length of token buffer */ +char *token_buffer; /* the actual token buffer */ +int enable_edge_digit; +int enable_udp_parse; + + +static int nextchar = -1; +int is_interactive = 0; + +int second_eof = 0; /* Send EOF twice: 1st as token, 2nd as 0 */ + +// Bit value, *v = &value; +int i; + +File *fin__; /* temp for debugging */ + + +#include "v.h" + +/* let syntax coloring tap into lexer */ +int IsReservedWord(char *string, int len) +{ + struct keywords *ptr; + char buffer[32]; + + if (len > sizeof(buffer) - 1) { + return (FALSE); + } + strncpy(buffer, string, len); + buffer[len] = 0; + ptr = (struct keywords *) Perfect_Hash::is_reserved_word(buffer, len); + return (ptr != NULL); +} + +/* Make the token buffer longer, preserving the data in it. + P should point to just beyond the last valid character in the old buffer. + The value we return is a pointer to the new buffer + at a place corresponding to P. */ + +void init_lex() +{ + lineno = 1; + nextchar = -1; + maxtoken = 40; + token_buffer = (char *) xmalloc(maxtoken + 2); + enable_edge_digit = FALSE; + enable_udp_parse = FALSE; +} + +void reinit_lex() +{ + nextchar = -1; +} + +int convert_edge_digit(int c) +{ + ASSERT(X >= 0 && Z >= 0 && ZERO >= 0 && ONE >= 0); + switch (c) { + case 'x': + case 'X': + return (X); + case '0': + return (ZERO); + case '1': + return (ONE); + } + return (-1); +} + +static char *extend_token_buffer(char *p) +{ + int offset = p - token_buffer; + + maxtoken = maxtoken * 2 + 10; + token_buffer = (char *) xrealloc(token_buffer, maxtoken + 2); + + return token_buffer + offset; +} + +void eatnum(void) +{ + char c; + for (c = fin->fgetc(); isalnum(c); c = fin->fgetc()); + fin->fungetc(c); +} + +static char *p; + +/* Read a macro name for `define and `ifdef; report error if necessary */ + +static void read_macro_name() +{ + int c; + c = fin->fgetc(); + p = token_buffer; +// c = skip_white_space (getc (fin)); + +/* Read the rest of the line */ + + for (; c == ' ' || c == '\t'; c = fin->fgetc()); + + if (c == '\n') { + error("Missing macro name in compiler directive", NULL_CHAR, + NULL_CHAR); + nextchar = c; + } + + if (isalnum(c) || c == '_' || c == '$') { + do { + if (p >= token_buffer + maxtoken - 1) + p = extend_token_buffer(p); + *p++ = c; + c = fin->fgetc(); + } + while (isalnum(c) || c == '_' || c == '$'); + + *p = 0; + fin->fungetc(c); + } else { + yyerror("Illegal macro name"); + eatline(c); + nextchar = c; + return; + } +} + +static int if_nesting_level = 0; +//static int if_enable_level = 0; +static int if_disable_level = 0; +//static int if_enable = 1; + +/* Return zero if lex should just return after processing macro + (in most cases, lex shoudl read another token before going back to + the parser) +*/ + +static int compiler_directive_or_macro(char *token) +{ + char c; + tree macro_name_node; + tree macro_string_node; + YYSTYPE yyval; + int depth; + int commentCount; + + if (strcmp(token, "ifdef") == 0) { + if_nesting_level++; + if (if_disable_level) { + if_disable_level++; + return 1; + } + + read_macro_name(); + + if (!lookup_macro(token_buffer)) { + if_disable_level = 1; /* doesn't exist, eat until `else or `endif */ + for (yylex(&yyval); if_disable_level; yylex(&yyval)); + } + } + + else if (strcmp(token, "endif") == 0) { + if (!if_nesting_level) { + error("Unbalanced ifdef/endif pairs", NULL_CHAR, NULL_CHAR); + return 0; + } + + --if_nesting_level; + if (if_disable_level) { + --if_disable_level; + if (!if_disable_level) + return 0; /* Fprce lex to return */ + } +// eatline(c); +// nextchar = c; + + } + + else if (strcmp(token, "else") == 0) { + if (!if_nesting_level) + error("`else not paired with `ifdef", NULL_CHAR, NULL_CHAR); + /* currently enabled, now disable */ + else if (!if_disable_level) { + if_disable_level = 1; + for (yylex(&yyval); if_disable_level; yylex(&yyval)); + } + /* currently disabled at one level; enable */ + else if (if_disable_level == 1) { + if_disable_level = 0; + return 0; + } +// eatline(c); +// nextchar = c; + } else if (if_disable_level) + return 1; + +/* `define: Process the macro directive */ + else if (strcmp(token, "undef") == 0) { + read_macro_name(); + delete_macro(strlen(token_buffer), token_buffer); + } else if (strcmp(token, "define") == 0) { + read_macro_name(); + + macro_name_node = build_string(strlen(token_buffer), token_buffer); + + p = token_buffer; +// c = skip_white_space (c); + +/* Read the rest of the line */ + + for (c = fin->fgetc(); c == ' ' || c == '\t'; c = fin->fgetc()); + +// elliot: defines containing other definitions don't work +// this is my attempt to fix +// for (*p = c; *p != '\n' && *p != EOF; *p = getc (fin)) +// if (p++ >= token_buffer + maxtoken - 1) +// p = extend_token_buffer (p); + + depth = 0; + commentCount = 0; + for (*p = c; *p != '\n' && (depth != 0 || *p != EOF); + *p = fin->fgetc()) { + if (*p == EOF) { + depth--; + fin = pop_stream(); + continue; + } else if (commentCount == 2) { + continue; + } else if (*p == '/') { + commentCount++; + if (commentCount == 2) { + p -= 2; + } + } else if (commentCount == 1) { + commentCount = 0; + } + if (*p == '`') { + char *definition = p; + for (*p = fin->fgetc(); + isalnum(*p) || *p == '_' || *p == '$'; + *p = fin->fgetc()) { + if (p++ >= token_buffer + maxtoken - 1) { + p = extend_token_buffer(p); + } + } + fin->fungetc(*p); + *p = 0; + expand_macro(definition); +/*fin__ = fin; */ + depth++; + p = definition; + continue; + } + if (p++ >= token_buffer + maxtoken - 1) { + p = extend_token_buffer(p); + } + } + + nextchar = *p; + *p = 0; + + macro_string_node = + build_string(strlen(token_buffer), token_buffer); + define_macro(macro_name_node, macro_string_node); + + + } + /* end if "define" */ + else if (strcmp(token, "include") == 0) { + c = fin->fgetc(); + p = token_buffer; + c = skip_white_space(fin->fgetc()); + +/* Read the rest of the line */ + + if (c != '"') { + error("String expected after `include", NULL_CHAR, NULL_CHAR); + return 1; + } else { + do { + if (p >= token_buffer + maxtoken - 1) + p = extend_token_buffer(p); + *p++ = c; + c = fin->fgetc(); + } + while (c != EOF && c != '\n' && c != '"'); + + *p = 0; + eatline(c); + lineno++; + + open_include(token_buffer); + + } + } /* end if "include" */ + else if (strcmp(token, "timescale") == 0) { + if (!process_timescale()) + eatline(c); + } + + else if (strcmp(token, "accelerate") == 0 + || strcmp(token, "expand_vectornets") == 0 + || strcmp(token, "noremove_netnames") == 0 + || strcmp(token, "resetall") == 0 + || strcmp(token, "unconnected_drive") == 0 + || strcmp(token, "celldefine") == 0 + || strcmp(token, "endcelldefine") == 0 + || strcmp(token, "noaccelerate") == 0 + || strcmp(token, "nounconnected_drive") == 0 + || strcmp(token, "protect") == 0 + || strcmp(token, "default_nettype") == 0 + || strcmp(token, "endprotect") == 0 + || strcmp(token, "noexpand_vectornets") == 0 + || strcmp(token, "remove_netnames") == 0 + || strcmp(token, "timescale") == 0) { + c = fin->fgetc(); + eatline(c); + nextchar = c; + } +/* It is not a compiler directive, must be a macro */ + else { + expand_macro(token); +/*fin__ = fin;*/ + } + + + return 1; +} + +int read_num_token(char *p) +{ + int numchars; + int c; + + c = skip_white_space(fin->fgetc()); + + for (numchars = 0; isalnum(c) || c == '?' || c == '_'; + c = fin->fgetc()) + if (c != '_') { + if (p >= token_buffer + maxtoken - 3) + p = extend_token_buffer(p); + *p++ = c; + numchars++; + } +// --numchars; + *p = '\0'; +// nextchar = c; + fin->fungetc(c); + nextchar = -1; + + return numchars; +} + +static tree parse_base_const(nbits_t length) +{ + int c; + char *p1; + int offset; + tree t; + nbits_t numchars; + enum radii base; + + HEAPTEST("Heap Corrupted (in Lex 2)"); + *(p + 1) = '\0'; + switch (c = *p++ = fin->fgetc()) { + case 'b': + case 'B': + base = BIN; + break; + case 'h': + case 'H': + base = HEX; + break; + case 'o': + case 'O': + base = OCT; + break; + case 'd': + case 'D': + base = DEC; + break; + default: + { + char c1[2]; + c1[0] = c; + c1[1] = '\0'; + error("Illegal radix ", (char *) c1, NULL_CHAR); + base = HEX; /* read the number anyway */ + } + } + offset = p - token_buffer; /* token_buffer may move if number is large */ + numchars = read_num_token(p); + +// p1 = p - 1; + p1 = token_buffer + offset + numchars - 1; + + t = build_bit_cst(length, base); + + parse_base_const1(base, p1, length, numchars, t); + HEAPTEST("Heap Corrupted (in Lex 1)"); + return t; +} + +void +parse_base_const1(enum radii base, char *p1, nbits_t length, + nbits_t numchars, tree t) +{ + parse_base_const1g(base, p1, length, numchars, BIT_CST_GROUP(t)); +} + +void +parse_base_const1g(enum radii base, char *p1, nbits_t length, + nbits_t numchars, Group * g) +{ + int c, i, numerror, fillchar; + Bit aval, bval, bit_mask; + nbits_t j, numbits; + int start_bit = 0; + int numgroups = bits_to_groups(length) + 1; + int overflow; + int carry; + + numerror = 0; + switch (base) { + case BIN: + if (numchars > length) + warning("Extra digits in binary number", NULL_CHAR, NULL_CHAR); + numbits = min(numchars, length); /* prevents reading too many chars */ + /* i + j is bit offset; j increments by 8, i wraps at 7 */ + for (j = 0; !numerror && j < length; j += sizeof(Bit) * 8) { + aval = 0; + bval = 0; + for (i = 0; !numerror && i < sizeof(Bit) * 8; i++, p1--) { + if (i + j < numbits) /* normal case; read each char in the buffer */ + c = *p1; + else if (i + j < length) /* all chars read, fill to length */ + c = fillchar; + else /* past length, stop doing */ + break; + + switch (c) { + case '0': + fillchar = '0'; + break; + case '1': + aval = aval + ((Bit) 1 << i); + fillchar = '0'; + break; + case 'x': + case 'X': + aval = aval + ((Bit) 1 << i); + bval = bval + ((Bit) 1 << i); + fillchar = 'x'; + break; + case 'z': + case 'Z': + case '?': + bval = bval + ((Bit) 1 << i); + fillchar = 'z'; + break; + default: + yyerror("Illegal digit in binary number"); + numerror = 1; + } + } + HEAPTEST("Heap Corrupted (in Lex 1)"); + AVAL(g) = aval; + BVAL(g) = bval; + HEAPTEST("Heap Corrupted (in Lex 1)"); + g++; + } + break; + + case HEX: + if ((numchars - 1) * 4 >= length) + warning("Extra digits in hexidecimal number", NULL_CHAR, + NULL_CHAR); + numbits = min(numchars * 4, length); /* prevents reading too many chars */ + /* i + j is bit offset; j increments by 8, i wraps at 7 */ + for (j = 0; !numerror && j < length; j += sizeof(Bit) * 8) { + if ((j + (sizeof(Bit) * 8)) > length) + bit_mask = mask_right[length % (sizeof(Bit) * 8)]; + else + bit_mask = (Bit) - 1; + aval = 0; + bval = 0; + for (i = 0; !numerror && i < sizeof(Bit) * 8; i = i + 4, p1--) { + if (i + j < numbits) /* normal case; read each char in the buffer */ + c = *p1; + else if (i + j < length) /* all chars read, fill to length */ + c = fillchar; + else /* past length, stop doing */ + break; + + switch (c) { + case '0': + fillchar = '0'; + break; + case '1': + case '2': + case '3': + case '4': + case '5': + case '6': + case '7': + case '8': + case '9': + aval = aval + ((c - '0' + (Bit) 0) << i); + fillchar = '0'; + break; + case 'a': + case 'A': + case 'b': + case 'B': + case 'c': + case 'C': + case 'd': + case 'D': + case 'e': + case 'E': + case 'f': + case 'F': + aval = aval + ((toupper(c) - 'A' + (Bit) 10) << i); + fillchar = '0'; + break; + + case 'x': + case 'X': + aval = aval + ((Bit) 15 << i); + bval = bval + ((Bit) 15 << i); + fillchar = 'x'; + break; + case 'z': + case 'Z': + case '?': + bval = bval + ((Bit) 15 << i); + fillchar = 'z'; + break; + default: + yyerror("Illegal digit in hexidecimal number"); + numerror = 1; + } + } + AVAL(g) = aval & bit_mask; + BVAL(g) = bval & bit_mask; + g++; + } + break; + + case OCT: + if ((numchars - 1) * 3 > length) + warning("Extra digits in octal number", NULL_CHAR, NULL_CHAR); + numbits = min(numchars * 3, length); /* prevents reading too many chars */ + start_bit = 0; + /* i + j is bit offset; j increments by 8, i wraps at 7 */ + for (j = 0; !numerror && j < length; j += sizeof(Bit) * 8) { + aval = 0; + bval = 0; + for (i = start_bit; !numerror && i < (signed) sizeof(Bit) * 8; + i = i + 3, p1--) { + if (i + j < numbits) /* normal case; read each char in the buffer */ + c = *p1; + else if (i + j < length) /* all chars read, fill to length */ + c = fillchar; + else /* past length, stop doing */ + break; + + switch (c) { + case '0': + fillchar = '0'; + break; + case '1': + case '2': + case '3': + case '4': + case '5': + case '6': + case '7': + if (i >= 0) + aval |= (((Bit) c - '0' + (Bit) 0) << i); + else + aval |= (((Bit) c - '0' + (Bit) 0) >> -i); + fillchar = '0'; + break; + + case 'x': + case 'X': + aval = aval + ((Bit) 7 << i); + bval = bval + ((Bit) 7 << i); + fillchar = 'x'; + break; + case 'z': + case 'Z': + case '?': + bval = bval + ((Bit) 7 << i); + fillchar = 'z'; + break; + default: + error("Illegal digit in octal number: '%c'", + (char *) c, NULL_CHAR); + numerror = 1; + } + } + AVAL(g) = aval; + BVAL(g) = bval; + start_bit = i - BITS_IN_GROUP - 3; + if (start_bit > -3) + p1++; + else + start_bit = 0; + g++; + } + break; + + case DEC: + /* + * clear aval and bval + */ + for (i = 0; i < numgroups; ++i) { + AVAL(g + i) = 0; + BVAL(g + i) = 0; + } + overflow = 0; + carry = 0; + for (i = 0; i < numchars; ++i) { + char c = *p++; + unsigned carry = 0; + unsigned x2l; + unsigned x4l; + unsigned x2h = 0; + unsigned x4h = 0; + if (!isdigit(c)) { + error("Illegal digit in decimal number", NULL_CHAR, + NULL_CHAR); + } + /* + * multiply aval by 10 + */ + for (j = 0; j < numgroups; ++j) { + x2l = (AVAL(g + j) << 1) + x2h; + x4l = (AVAL(g + j) << 3) + x4h; + x2h = AVAL(g + j) >> (32 - 1); + x4h = AVAL(g + j) >> (32 - 3); + AVAL(g + j) = x2l + carry; + if (AVAL(g + j) < carry) { + AVAL(g + j) = x4l; + continue; + } + AVAL(g + j) += x4l; + carry = (AVAL(g + j) < x4l); + } + overflow = (carry != 0) || (x2h != 0) || (x4h != 0); + AVAL(g) += c - '0' + (Bit) 0; + } + if (length % (sizeof(Bit) * 8) == 0) { + bit_mask = ~0; + } else { + bit_mask = mask_right[length % (sizeof(Bit) * 8)]; + } + if (AVAL(g + numgroups - 1) & ~bit_mask) { + overflow = 1; + } + AVAL(g + numgroups - 1) = AVAL(g + numgroups - 1) & bit_mask; + if (overflow) { + warning("Extra digits in decimal number", NULL_CHAR, + NULL_CHAR); + } + break; + } +} + +int yylex(YYSTYPE * lvalp) +{ + int c; + int value; + + start_lex: + HEAPTEST("Heap Corrupted (in Lex)"); + + fin__ = fin; + + + if (nextchar >= 0) + c = nextchar, nextchar = -1; + else { + if (second_eof) { + second_eof = 0; + return 0; + } else if (!fin) + c = EOF; + + else + c = fin->fgetc(); + } + + if (!c) + c = EOF; /* I hate to do this, but CodeWarrior returns + a 0 at the end of a macro forsome reason. */ + + while (1) { +// if (!fin) +// c = EOF; /* gets here if last line doesn't have newline */ + + switch (c) { + case ' ': /* whitespace */ + case '\t': + case '\f': + case '\r': + case '\v': +/* case '\\': */ + case '\b': + c = fin->fgetc(); + break; + + case '\n': /* special whitespace */ + c = skip_white_space(c); + break; + + case '/': /* comments */ + c = skip_white_space(c); + + default: + goto found_nonwhite; + } + } + + found_nonwhite: + + if (enable_edge_digit) { + if (convert_edge_digit(c) >= 0) { + int c1; + + c1 = fin->fgetc(); + if (convert_edge_digit(c1) >= 0) { + lvalp->double_digit[0] = convert_edge_digit(c); + lvalp->double_digit[1] = convert_edge_digit(c1); + return (DOUBLE_DIGIT); + } + fin->fungetc(c1); + } + } + if (enable_udp_parse) { + switch (c) { + case '0': + lvalp->c = c; + return (UDP_ZERO); + case '1': + lvalp->c = c; + return (UDP_ONE); + case 'x': + case 'X': + lvalp->c = 'x'; + return (UDP_X); + case '?': + lvalp->c = '?'; + return (UDP_HOOK); + case '-': + case '*': + case ':': + lvalp->c = c; + return (UDP_CHAR); + case 'b': + case 'B': + lvalp->c = 'b'; + return (UDP_B); + case 'r': + case 'R': + lvalp->c = 'r'; + return (UDP_CHAR); + case 'f': + case 'F': + lvalp->c = 'f'; + return (UDP_CHAR); + case 'p': + case 'P': + lvalp->c = 'p'; + return (UDP_CHAR); + case 'n': + case 'N': + lvalp->c = 'n'; + return (UDP_CHAR); + case 'E': + case 'e': + enable_udp_parse = FALSE; + break; + } + } + + + if (isdigit(c)) { /* number */ + unsigned_32_t d = 0; + short overflow = 0; + short realnum = 0; + short after_decimal = 0; + + p = token_buffer; + realnum = 0; + + do { + if (p >= token_buffer + maxtoken - 3) + p = extend_token_buffer(p); + *p++ = c; + if (c == '_'); + + else if (c == '.') { + realnum = 1; + if (after_decimal) + error + ("Too many decimal points in floating point constant", + NULL, NULL); + else + after_decimal = 1; + } else { + c = c - '0'; + if (d > d * 10) + overflow = 1; + d *= 10; + d += c; +// if (d < 0) +// overflow = 1; + } + c = fin->fgetc(); + } + while (c >= '0' && c <= '9' || c == '.' || c == '_'); + + if (c == 'e' || c == 'E') { + realnum = 1; + *p++ = c; + for (c = fin->fgetc(); isdigit(c) || c == '-'; + c = fin->fgetc()) { + if (p >= token_buffer + maxtoken - 3) + p = extend_token_buffer(p); + *p++ = c; + } + + } + + /* See if this is a bit-constant (5'b1001...) */ + if (!realnum && (c = skip_white_space(c)) == '\'') { /* single quote? */ + if (d > MAX_BITS || overflow || d <= 0) { + yyerror("Illegal length in constant"); + d = 0L; /* but continue parsing */ + } + *p++ = '\''; + lvalp->ttype = parse_base_const(d); +/* + if (d == 1 && v->bval == 0) + if (v->aval == 0) + lvalp->ttype = bit_zero_node; + else + lvalp->ttype = bit_one_node; + else + lvalp->ttype = build_nt (BIT_CST, d, v); +*/ + return BASE_NUMBER; + } else { /* Must be an integer constant */ + nextchar = c; + *p = 0; + if (overflow) + yyerror("Decimal constant larger than 32 bits"); + + if (!realnum) + lvalp->ttype = build_int_cst(d); + else + lvalp->ttype = build_real_cst(token_buffer); + +// switch (d) +// { +// case 0: lvalp->ttype = integer_zero_node; break; +// case 1: lvalp->ttype = integer_one_node; break; +// default: +// lvalp->ttype = build_int_cst (d); +// } + return NUMBER; + } + } + + /* Bit-constant without length (make assumptions from value) */ + if (c == '\'') { + unsigned_32_t d; + + p = token_buffer; + *p++ = '\''; + + lvalp->ttype = + parse_base_const((unsigned_32_t) sizeof(unsigned_32_t) * 8); +/* if (d == 1 && v->bval == 0) + if (v->aval == 0) + lvalp->ttype = bit_zero_node; + else + lvalp->ttype = bit_zero_node; + else + lvalp->ttype = build_nt (BIT_CST, d, v); +*/ + return BASE_NUMBER; + } + + /* Identifier or keyword */ + if (isalpha(c) || c == '_' || c == '$' || c == '`') { + + p = token_buffer; + value = IDENTIFIER; + + do { + if (p >= token_buffer + maxtoken - 1) + p = extend_token_buffer(p); + + if (c == '.') + if (token_buffer[0] != '$' && token_buffer[0] != '`') + value = HIERARCHY_IDENTIFIER; + else + break; /* System tasks or compiler directive can't have periods */ + + *p++ = c; + c = fin->fgetc(); + + + /* if we were in a macro, EOF is also end of macro. + pop the stream stack (i.e. the macro stack) and + read another character. If this is truly an EOF, + the another will be read and the right thing will happen */ + + if (c == EOF) { + fin = pop_stream(); +// c = getc (fin); +// c = '\n'; +// c = ' '; /* Any harmless seperator */ + if (fin) + c = fin->fgetc(); + else + c = EOF; /* this is a real EOF */ + } + } + while (isalnum(c) || c == '_' || c == '$' || c == '.'); + + *p = 0; + + if (token_buffer[0] == '$') + value = SYSTEM_IDENTIFIER; + + else if (token_buffer[0] == '`') { + fin->fungetc(c); /* don't save latest character */ + nextchar = -1; + if (compiler_directive_or_macro(&token_buffer[1])) + goto start_lex; /* Read another token */ + else + return value; + } + nextchar = c; + lvalp->ttype = NULL_TREE; + +/* Is it a keyword? */ + + { + register const struct keywords *ptr; + + if ((ptr = + Perfect_Hash::is_reserved_word(token_buffer, + p - token_buffer)) != 0) { + lvalp->gtype = (enum tree_type) ptr->type; + value = ptr->kval; + stmt_lineno = lineno; /* save line number for trace info */ + } + + /* Did not find a keyword, treat it as an identifier */ + else + lvalp->ttype = get_identifier(token_buffer); + + return value; + } + } + + if (c == '\\') { /* escaped identifier */ + p = token_buffer; + for (;; c = fin->fgetc()) + switch (c) { + case '\t': + case '\f': + case '\r': + case '\v': + case '\b': + case '\n': + case ' ': + *p = 0; + nextchar = c; + lvalp->ttype = get_identifier(token_buffer); + return IDENTIFIER; + default: + if (p >= token_buffer + maxtoken - 1) + p = extend_token_buffer(p); + *p++ = c; + } + } + + if (c == '"') { /* quoted string */ + char *p1; + int len; + tree t; + ngroups_t ngroups; + Group *g; + int ii; + + for (p = token_buffer; (c = fin->fgetc()) != '"';) { + + if (c == '\n' || c == EOF) { + yyerror("Missing quote"); + nextchar = c; + break; + } + + if (c == '\\') + switch (c = fin->fgetc()) { + case 'n': + c = '\n'; + break; + case 't': + c = '\t'; + break; + case '\\': + c = '\\'; + break; + case '"': + c = '"'; + break; + case '0': + case '1': + case '2': + case '3': + case '4': + case '5': + case '6': + case '7': + { + int c2, c3; + c2 = fin->fgetc(); + if (c2 < '0' || c2 > '7') { + c = c - '0'; + fin->fungetc(c2); + break; + } else { + c3 = fin->fgetc(); + if (c3 < '0' || c3 > '7') { + c = (c - '0') * 8 + (c2 - '0'); + fin->fungetc(c3); + break; + } + } + c = (c - '0') * 64 + (c2 - '0') * 8 + (c3 - '0'); + break; + } + } + + if (p >= token_buffer + maxtoken - 1) + p = extend_token_buffer(p); + + *p++ = c; + } + *p = 0; + p1 = token_buffer; + len = p - p1; + if (len == 0) + len = 1; +// lvalp->ttype = build_string (p - token_buffer + 1, token_buffer); + + t = build_bit_cst((nbits_t) (len * 8), STRING_); + ngroups = chars_to_groups(len); + g = BIT_CST_GROUP(t) + ngroups; + + i = ((len - 1) % sizeof(Bit)) + 1; /* num chars at beginning */ + AVAL(g) = 0; + for (ii = i - 1; ii >= 0; ii--) +#ifdef WORDS_BIGENDIAN //Endianness problem + *(((char *) (&AVAL(g))) + sizeof(Bit) - 1 - ii) = *p1++; +#else + *(((char *) (&AVAL(g))) + ii) = *p1++; +#endif + BVAL(g) = 0; + --g; + for (i = 1; i <= ngroups; i++, g--) { + for (ii = sizeof(Bit) - 1; ii >= 0; ii--) +#ifdef WORDS_BIGENDIAN //Endianness problem + *(((char *) (&AVAL(g))) + sizeof(Bit) - 1 - ii) = *p1++; +#else + *(((char *) (&AVAL(g))) + ii) = *p1++; +#endif + +// memcpy (((char *)(&AVAL (g))), p1, sizeof (Bit)); + BVAL(g) = 0; + } + lvalp->ttype = t; + +/* lvalp->ttype = build_string (/* p - * /token_buffer, token_buffer + 1); */ + return STRING; + } + token_buffer[0] = c; + if (c != EOF) + token_buffer[1] = nextchar = fin->fgetc(); + else + nextchar = -1; + + switch (c) { + case '*': + return follow('>', STARARROW, '*'); + case '>': + return follow('=', GE, follow('>', RIGHT_SHIFT, GT)); + case '<': + return follow('=', LE, follow('<', LEFT_SHIFT, LT)); + case '=': + if (nextchar == '=') { + nextchar = fin->fgetc(); + return follow('=', CASE_EQUALITY, LOGICAL_EQUALITY); + } else if (nextchar == '>') { + nextchar = -1; + token_buffer[2] = 0; + return EQUALARROW; + } else { + token_buffer[1] = 0; + return '='; + } + case '!': + if (nextchar == '=') { + nextchar = fin->fgetc(); + return follow('=', CASE_INEQUALITY, LOGICAL_INEQUALITY); + } else { + token_buffer[1] = 0; + return '!'; + } + case '|': + return follow('|', OROR, '|'); + case '&': + if (nextchar == '&') { + nextchar = fin->fgetc(); + return follow('&', ANDANDAND, ANDAND); + } else { + token_buffer[1] = 0; + return '&'; + } + + case '-': + return follow('>', ARROW_, '-'); + case '~': + return follow('^', XNOR, + follow('&', REDUCTION_NAND, + follow('|', REDUCTION_NOR, '~'))); + case '^': + return follow('~', XNOR, '^'); + +/* There are two EOFs so that "EOF" shows up in the list + of possible tokens when there is a syntax error */ + + case EOF: + if (second_eof) { + second_eof = 0; + return 0; /* send EOF as known by BISON */ + } else { + +/* EOFs are generated at the end of a macro substitution. + Pop the stream pointer, an continue. If the stream stack + is empty, then it was a real EOF */ + + if ((fin = pop_stream()) != 0) + goto start_lex; /* End of macro, read another char */ + + second_eof = 1; /* next time around, do above */ + return EOF_; /* return tokenized version */ + } + default: + token_buffer[1] = '\0'; + if (isprint(c)) { + return c; + } else { + warning("Unprintable character ignored: 0x%03x", (char *) c, + NULL_CHAR); + goto start_lex; + } + } +} + +/* + SKIP_WHITE_SPACE: + This routine will help you parse through the more difficult "white space" + characters including single & multi-line comments. This routine excepts a + starting character & returns the first non-white_space character. + */ + +int skip_white_space(int c) +{ + int c1; + + for (;;) + switch (c) { + case ' ': /* whitespace */ + case '\t': + case '\f': + case '\r': + case '\v': +/* case '\\': */ + case '\b': + c = fin->fgetc(); + break; + + case '\n': /* special whitespace */ + lineno++; + if (is_interactive) + print_prompt(); + c = fin->fgetc(); + break; + + case EOF: + if ((fin = pop_stream()) == 0) + return c; /* bonafide EOF */ + c = fin->fgetc(); /* Macro or `include EOF */ + break; + + case '/': /* comments */ + c = fin->fgetc(); + if (c == '/') /* Handle "//" */ + eatline(c); + + else if (c == '*') { /* Handle "/*" */ + c1 = 0; + do { + c = c1; + switch (c1 = fin->fgetc()) { + case '*': + if (c == '/') + yyerror("/* found in comment"); + break; + case '\n': + lineno++; + if (is_interactive) + print_prompt(); + break; + case EOF: + yyerror("unterminated comment block"); + return (0); + } + } + while (!(c == '*' && c1 == '/')); + c = fin->fgetc(); + } else { + fin->fungetc(c); + return '/'; + } + break; + + default: + return c; + } +} + +static int backslash(int c) +{ /* get next char with /'s interpreted */ +// char *strchr(); /* `strchr()' in some systems */ + static char transtab[] = "b\bf\fn\nr\rt\t"; + if (c != '\\') + return c; + c = fin->fgetc(); + if (islower(c) && strchr(transtab, c)) + return strchr(transtab, c)[1]; + return c; +} + +/* follow(expect, ifyes, ifno) /* look ahead for >=, etc. */ +/*{ + int c = getc(fin); + token[1] = c; + token[2] = '\0'; + if (c == expect) + return ifyes; + ungetc(c, fin); + token[1] = '\0'; + return ifno; +} */ + +/* Report syntax errors */ + +void yyerror(char *s) +{ +// char buf[200]; + +// strcpy (buf, s); +// strcat (buf, " before '%s'"); +// error (s, token_buffer); + error(s, NULL_CHAR, NULL_CHAR); +} + +void fix_lastchar(void) +{ + fin->fungetc(nextchar); + nextchar = -1; +} + +/******************************************************************* + * + * init_lex_1 + * - initialize global and static variables for lex.c + * + ******************************************************************* + */ + +void init_lex_1() +{ + nextchar = -1; + is_interactive = 0; + second_eof = 0; /* Send EOF twice: 1st as token, 2nd as 0 */ + if_nesting_level = 0; + if_disable_level = 0; + memset(&lineno, 0, sizeof(lineno)); + memset(&stmt_lineno, 0, sizeof(stmt_lineno)); + memset(&keywd_lineno, 0, sizeof(keywd_lineno)); + maxtoken = 0; + token_buffer = NULL; + i = 0; +} diff --git a/src/lex.h b/src/lex.h new file mode 100644 index 0000000..8e0dbac --- /dev/null +++ b/src/lex.h @@ -0,0 +1,42 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +#ifndef LEX_H +#define LEX_H +// public definitions +void fix_lastchar(void); +void init_lex(void); +void reinit_lex(void); +void eatnum(void); +int read_num_token(char *); +void parse_base_const1(enum radii, char *, nbits_t, nbits_t, tree); +void parse_base_const1g(enum radii, char *, nbits_t, nbits_t, Group *); +int skip_white_space(int); +void yyerror(char *); +int prog_parse(void); // this really belongs with the parser +int IsReservedWord(char *, int); +int convert_edge_digit(int c); +void init_parse(void); +void init_lex_1(void); +#ifdef LEX_C // private definitions +static unsigned int hash(register const char *str, + register unsigned int len); +#endif // LEX_C + +#endif // LEX_H diff --git a/src/macro.cc b/src/macro.cc new file mode 100644 index 0000000..7b4ec95 --- /dev/null +++ b/src/macro.cc @@ -0,0 +1,237 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* MACRO.C - Macro definitions and expansion; push/pop streams */ +#define MACRO_C + +#include +#include +#include "vtypes.h" +#include "tree.h" +#include "obstack.h" +#include "io.h" +#include "macro.h" +#include "glue.h" +#include "lex.h" +#include "veriwell.h" + +#define obstack_chunk_alloc xmalloc +#define obstack_chunk_free free + + +/* Macros are stored (for now) as a chained tree list of string nodes */ +static tree macro_chain = NULL_TREE; + +void define_macro(tree name, tree rest) +{ + tree new_t; +/* look for same name */ + + if (rest && ((new_t = lookup_macro(IDENTIFIER_POINTER(name))) != 0)) { + +// Elliot: verilog does not warn about this +// warning ("Macro %s previously defined, overriding\n", IDENT (name), NULL_CHAR); + TREE_VALUE(new_t) = rest; /* replace old definition */ + } else + macro_chain = tree_cons(name, rest, macro_chain); +} + +tree lookup_macro(char *name) +{ + tree p; + +//printf_V ("Macro name: '%s':\n", name); + for (p = macro_chain; + p && strcmp(name, IDENTIFIER_POINTER(TREE_PURPOSE(p))) != 0; + p = TREE_CHAIN(p)); +// printf_V (" '%s'\n", IDENT (TREE_PURPOSE (p))); +// printf_V ("Returning %p\n\n", p); + return p; +} + +void delete_macro(int len, char *name) +{ + tree p; + tree *parent; + parent = ¯o_chain; + for (p = *parent; + p && strncmp(name, IDENTIFIER_POINTER(TREE_PURPOSE(p)), len) != 0 + && strlen(IDENTIFIER_POINTER(TREE_PURPOSE(p))) == len; + parent = &p, p = TREE_CHAIN(p)); + + // ??? mdh - note this is wasteful, object is left dangling + // on obstack. + if (p) { + *parent = TREE_CHAIN(p); + } else { + *parent = 0; + } + +} + +void expand_macro(char *name) +{ + tree found = lookup_macro(name); + + // IEEE spec say expandition of undefined macros is NULL + if (found) { + push_stream(fin, 0); + fin = File::fopenbuf(TREE_STRING_POINTER(TREE_VALUE(found)), + TREE_STRING_LENGTH(TREE_VALUE(found))); + } +} + +void open_include(char *filename) +{ + File *include; + char *include_name; + + if (incdir) { + char *p; + char *tmpdir; + + tmpdir = (char *) xmalloc(strlen(incdir) + 1); + strcpy(tmpdir, incdir); + for (p = strtok(tmpdir, "+"); p; p = strtok(NULL, "+")) { + include_name = + (char *) xmalloc(strlen(filename) + strlen(p) + 1); + strcpy(include_name, p); + strcat(include_name, PATHSEP); + strcat(include_name, &filename[1]); + + include = File::fopen(include_name, "rt"); + if (include) + break; + free(include_name); + } + } else { + include_name = (char *) xmalloc(strlen(filename) + 1); + strcpy(include_name, &filename[1]); /* strip leading " */ + + include = File::fopen(include_name, "rt"); + } + if (!include) + error("Could not open include file '%s'", &filename[1], NULL_CHAR); + else { + printf_V("Compiling included source file '%s'\n", include_name); + push_stream(fin, 1); + lineno = 1; + fin = include; + input_filename = include_name; + } +} + +static struct obstack macro_obstack; + +struct macro_level { + struct macro_level *prev; /* where to pop to */ + File *file; /* FILE structure within stack */ + char *filename; /* filename (if pushing `include file) */ + lineno_t lineno; /* Linenumber to pop to */ + int include; /* Non-zero if this is include file */ +}; + +static struct macro_level *macro_stack; + +void init_macro() +{ + tree name, rest; + + obstack_init(¯o_obstack); + macro_stack = 0; + + name = build_string(12, "__VERIWELL__"); + rest = build_string(0, ""); + define_macro(name, rest); +} + +/* include == 0: Macro + include == 1: included file (`include) + include == 2: library or pushed file that needs to be closed +*/ + +void push_stream(File * file, int include) +{ + struct macro_level *tem + = (struct macro_level *) obstack_alloc(¯o_obstack, + sizeof(struct macro_level)); + tem->prev = macro_stack; + tem->file = file; /* Copy entire FILE structure onto stack */ + tem->filename = input_filename; + tem->lineno = lineno; + tem->include = include; + macro_stack = tem; +} + +File *pop_stream(void) +{ + struct macro_level *tem = macro_stack; + File *tempfile; + + if (macro_stack == 0) { + if (fin) + fin->fclose(); + return 0; + } + + input_filename = tem->filename; + if (tem->include) { + if (tem->include == 1) + printf_V("Continuing compilation of source file '%s'\n", + input_filename); + fin->fclose(); + } + macro_stack = tem->prev; + tempfile = tem->file; + lineno = tem->lineno; + obstack_free(¯o_obstack, (POINTER) tem); + return tempfile; +} + +static struct obstack input_obstack; + +struct input_level { + struct input_level *prev; /* where to pop to */ + FILE *file; /* FILE structure within stack */ +}; + +static struct input_level *input_stack; + +void init_input() +{ + obstack_init(&input_obstack); + input_stack = 0; +} + +/***************************************************************** + * + * init_macro_1 + * - initializes global and static variables for macro.c + * + ***************************************************************** + */ + +void init_macro_1() +{ + macro_chain = NULL_TREE; + memset(¯o_obstack, 0, sizeof(macro_obstack)); + memset(¯o_stack, 0, sizeof(macro_stack)); + memset(&input_obstack, 0, sizeof(input_obstack)); + memset(&input_stack, 0, sizeof(input_stack)); +} diff --git a/src/macro.h b/src/macro.h new file mode 100644 index 0000000..118664f --- /dev/null +++ b/src/macro.h @@ -0,0 +1,45 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* MACRO.H - Macro routine prototypes */ + +#ifndef MACRO_H +#define MACRO_H + +// public methods + +class File; +void push_stream(File *, int); +File *pop_stream(void); +void define_macro(tree, tree); +tree lookup_macro(char *); +void delete_macro(int len, char *data); +void expand_macro(char *); +void open_include(char *); +void init_macro(void); +void init_input(void); +void open_include(char *filename); +void init_macro_1(void); + +// private methods + +#ifdef MACRO_C +#endif // MACRO_C + +#endif // MACRO_H diff --git a/src/multdiv.cc b/src/multdiv.cc new file mode 100644 index 0000000..4eb075e --- /dev/null +++ b/src/multdiv.cc @@ -0,0 +1,481 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* MULTDIV.C - Arbitrary-length multiply, divide, and modulo arithmetic +*/ + +#include +#include "vtypes.h" +#include "tree.h" +#include "multdiv.h" +#include "veriwell.h" + + +static unsigned NZGroups(Group * ag, unsigned groups); +static unsigned NZBits(Bit a); +static Bit GroupRShift(Group * a, Bit * b, unsigned c, unsigned groups); +static Bit GroupLShift(Bit * a, Group * bg, unsigned c, unsigned groups); +static int BitCmp(Bit * a, Bit * b, unsigned bits); +static void Mult32x32(Bit a[2], Bit b, Bit c); +static void AllocAccs(unsigned words); + +static Bit *cc = 0; +static Bit *dd = 0; +static ngroups_t cc_size = 0; +static ngroups_t dd_size = 0; + +/* + * a=b+c. Returns carry. + */ +Bit BitAdd(Bit * a, Bit * b, Bit * c, unsigned bits) +{ + Bit acc; + Bit carry; + + carry = 0; + for (int i = 0; i < bits; i++) { + if ((acc = b[i] + carry) < carry) { + acc = c[i]; + } else if ((acc += c[i]) < c[i]) { + carry = 1; + } else { + carry = 0; + } + a[i] = acc; + } + return (carry); +} + + +/* + * a=b-c. Returns borrow + */ +Bit BitSub(Bit * a, Bit * b, Bit * c, unsigned bits) +{ + Bit acc; + Bit borrow; + + borrow = 0; + for (int i = 0; i < bits; i++) { + if ((acc = b[i] - borrow) > (~((Bit) 0) - borrow)) { + acc = (~(Bit) 0) - c[i]; + } else if ((acc -= c[i]) > ((~(Bit) 0) - c[i])) { + borrow = 1; + } else { + borrow = 0; + } + a[i] = acc; + } + return (borrow); +} + + +/* + * Returns the number of non-zero groups. + */ +static unsigned NZGroups(Group * ag, unsigned groups) +{ + int i; + for (i = groups - 1; i >= 0; i--) { + if (ag[i].bit.aval) { + break; + } + } + return (i + 1); +} + + +/* + * return the number of significant bits in word + */ +static unsigned NZBits(Bit a) +{ + unsigned i; + for (i = 0; i < sizeof(Bit) * 8; i++, a >>= 1) { + if (a == 0) { + break; + } + } + return (i); +} + +/* + * a = b >> c + * where c is less than number of bits in 'Bit' + */ +static Bit GroupRShift(Group * a, Bit * b, unsigned c, unsigned groups) +{ + Bit bi; + Bit carry; + int i; + unsigned int t; + + if (c >= sizeof(Bit) * 8) { + return 0; + } + t = sizeof(Bit) * 8 - c; + carry = 0; + for (i = groups - 1; i >= 0; i--) { + bi = b[i]; + a[i].bit.aval = (bi >> c) | carry; + carry = c ? (bi << t) : 0; + } + return (carry); +} + +/* + * a = b << c; + * where c is less than number of bits in 'Bit' + */ +static Bit GroupLShift(Bit * a, Group * bg, unsigned c, unsigned groups) +{ + Bit bi; + Bit carry; + unsigned int t; + + if (c >= sizeof(Bit) * 8) { + return (0); + } + t = sizeof(Bit) * 8 - c; + carry = 0; + for (int i = 0; i < groups; i++) { + bi = bg[i].bit.aval; + a[i] = (bi << c) | carry; + carry = c ? (bi >> t) : 0; + } + return (carry); +} + +/* + * compare a to b. returns: + * -1 if a < b, + * 0 if a == b + * 1 if a > b + */ +static int BitCmp(Bit * a, Bit * b, unsigned bits) +{ + for (int i = bits - 1; i >= 0; i--) { + if (a[i] > b[i]) { + return (1); + } + if (a[i] < b[i]) { + return (-1); + } + } + return (0); +} + +/* + * 32 bit by 32 bit multiply + */ +static void Mult32x32(Bit a[2], Bit b, Bit c) +{ + Bit t; + Bit u; + Bit bHigh = b >> 16; + Bit bLow = b & 0xffff; + Bit cHigh = c >> 16; + Bit cLow = c & 0xffff; + + a[0] = bLow * cLow; + t = bLow * cHigh; + u = bHigh * cLow; + a[1] = bHigh * cHigh; + + if ((t += u) < u) { + a[1] += 0x10000; + } + u = t << 16; + + if ((a[0] += u) < u) { + a[1]++; + } + a[1] += t >> 16; +} + + + +/* + * a=b+c*d, where c is a single word + * return carry word + */ +static Bit Mult32Acc(Bit * a, Bit * b, Bit c, Group * dg, unsigned words) +{ + Bit carry; + Bit t[2]; + unsigned i; + + carry = 0; + for (i = 0; i < words; i++) { + Mult32x32(t, c, dg[i].bit.aval); + if ((a[i] = b[i] + carry) < carry) { + carry = 1; + } else { + carry = 0; + } + if ((a[i] += t[0]) < t[0]) { + carry++; + } + carry += t[1]; + } + return (carry); +} + + +/* + * a=b*c + */ +void GroupMult(Group * ag, Group * bg, Group * cg, unsigned groups) +{ + unsigned bGroups; + unsigned cGroups; + + AllocAccs(groups); + /* + * set cc to 0 + */ + for (int i = 0; i < 2 * groups; i++) { + cc[i] = 0; + } + + /* + * calculate number if significant words in each group + */ + bGroups = NZGroups(bg, groups); + cGroups = NZGroups(cg, groups); + + /* + * multiply and accumulate a group at a time + */ + for (int i = 0; i < bGroups; i++) { + cc[i + cGroups] += Mult32Acc(&cc[i], &cc[i], + bg[i].bit.aval, cg, cGroups); + } + /* + * copy result to destination + */ + for (int i = 0; i < groups; i++) { + ag[i].bit.aval = cc[i]; + ag[i].bit.bval = 0; + } +} + +/* + * a=b-c*d, where c is a single word. + * returns borrow + */ +Bit Mult32Sub(Bit * a, Bit * b, Bit c, Bit * d, unsigned words) +{ + Bit borrow; + Bit t[2]; + + borrow = 0; + for (int i = 0; i < words; i++) { + Mult32x32(t, c, d[i]); + if ((a[i] = b[i] - borrow) > ((~(Bit) 0) - borrow)) { + borrow = 1; + } else { + borrow = 0; + } + if ((a[i] -= t[0]) > (~((Bit) 0) - t[0])) { + borrow++; + } + borrow += t[1]; + } + return (borrow); +} + + +/* + * a=b/c, a and c are single words, b is a double word. + * assumptions: b[1] < c and c>>16 > 0. + */ +void Div64by32(Bit * a, Bit b[2], Bit c) +{ + Bit t[2]; + Bit u; + Bit v; + Bit aHigh; + Bit aLow; + Bit cHigh = c >> 16; + Bit cLow = c & 0xffff; + + t[0] = b[0]; + t[1] = b[1]; + + /* + * Underestimate high half of quotient and + * subtract product of estimate and divisor + * from dividend. + */ + if (cHigh == 0xffff) { + aHigh = t[1] >> 16; + } else { + aHigh = (t[1] / (cHigh + 1)) & 0xffff; + } + u = aHigh * cLow; + v = aHigh * cHigh; + if ((t[0] -= (u << 16)) > ((~(Bit) 0) - (u << 16))) { + t[1]--; + } + t[1] -= u >> 16; + t[1] -= v; + + /* Correct estimate. */ + while ((t[1] > cHigh) || ((t[1] == cHigh) && (t[0] >= (cLow << 16)))) { + if ((t[0] -= (cLow << 16)) > (~(Bit) 0) - (cLow << 16)) { + t[1]--; + } + t[1] -= cHigh; + aHigh++; + } + /* + * Underestimate low half of quotient and + * subtract product of estimate and divisor + * from what remains of dividend. + */ + if (cHigh == 0xffff) { + aLow = t[1] >> 16; + } else { + aLow = (((t[1] << 16) + (t[0] >> 16)) / (cHigh + 1)) & 0xffff; + } + u = aLow * cLow; + v = aLow * cHigh; + if ((t[0] -= u) > ((~(Bit) 0) - u)) { + t[1]--; + } + if ((t[0] -= (v << 16)) > ((~(Bit) 0) - (v << 16))) { + t[1]--; + } + t[1] -= v >> 16; + + /* Correct estimate. */ + while ((t[1] > 0) || ((t[1] == 0) && t[0] >= c)) { + if ((t[0] -= c) > ((~(Bit) 0) - c)) { + t[1]--; + } + aLow++; + } + + *a = (aHigh << 16) + aLow; +} + + +/* + * a=c/d and b=c%d. + * d must be > 0 + */ +void +GroupDiv(Group * ag, Group * bg, Group * cg, Group * dg, + unsigned words, int do_mod) +{ + Bit ai; + Bit t; + unsigned dWords; + unsigned shift; + + /* + * calculate number of significant words in divisor + */ + dWords = NZGroups(dg, words); + if (dWords == 0) { + return; + } + + AllocAccs(words); + + /* Normalize operands. */ + shift = sizeof(Bit) * 8 - NZBits(dg[dWords - 1].bit.aval); + /* + * set cc to 0 + */ + for (int i = 0; i < dWords; i++) { + cc[i] = 0; + } + cc[words] = GroupLShift(cc, cg, shift, words); + GroupLShift(dd, dg, shift, dWords); + t = dd[dWords - 1]; + + /* + * set ag to 0 + */ + for (int i = 0; i < words; i++) { + ag[i].bit.aval = 0; + ag[i].bit.bval = 0; + } + + for (int i = words - dWords; i >= 0; i--) { + /* Underestimate quotient digit and subtract. */ + if (t == (~(Bit) 0)) { + ai = cc[i + dWords]; + } else { + Div64by32(&ai, &cc[i + dWords - 1], t + 1); + } + cc[i + dWords] -= Mult32Sub(&cc[i], &cc[i], ai, dd, dWords); + /* Correct estimate. */ + while (cc[i + dWords] || (BitCmp(&cc[i], dd, dWords) >= 0)) { + ai++; + cc[i + dWords] -= BitSub(&cc[i], &cc[i], dd, dWords); + } + ag[i].bit.aval = ai; + } + /* Restore result. */ + if (do_mod) { + /* + * zero out bg + */ + for (int i = 0; i < words; i++) { + bg[i].bit.aval = 0; + bg[i].bit.bval = 0; + } + GroupRShift(bg, cc, shift, dWords); + } +} + +static void AllocAccs(unsigned words) +{ + /* + * used shared accumulators when calculating results + */ + if (!cc || cc_size <= words) { + if (cc) { + cc = (Bit *) xrealloc((char *) cc, + (2 * (words + 1) + 1) * sizeof(Bit)); + } else { + cc = (Bit *) xmalloc((2 * (words + 1) + 1) * sizeof(Bit)); + } + cc_size = words + 1; + } + if (!dd || dd_size <= words) { + if (dd) { + dd = (Bit *) xrealloc((char *) dd, (words + 1) * sizeof(Bit)); + } else { + dd = (Bit *) xmalloc((words + 1) * sizeof(Bit)); + } + dd_size = words + 1; + } +} + +void init_multdiv() +{ + cc = 0; + dd = 0; + cc_size = 0; + dd_size = 0; +} diff --git a/src/multdiv.h b/src/multdiv.h new file mode 100644 index 0000000..b669ac4 --- /dev/null +++ b/src/multdiv.h @@ -0,0 +1,36 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* MULTDIV.H - Multdiv routine prototypes */ + + +#ifndef MULTDIV_H +#define MULTDIV_H + +// public methods + +void init_multdiv(void); + +Bit BitAdd(Bit * a, Bit * b, Bit * c, unsigned bits); +Bit BitSub(Bit * a, Bit * b, Bit * c, unsigned bits); +void GroupMult(Group * ag, Group * bg, Group * cg, unsigned groups); +void GroupDiv(Group * ag, Group * bg, Group * cg, Group * dg, + unsigned words, int do_mod); + +#endif // MULTDIV_H diff --git a/src/nsched.cc b/src/nsched.cc new file mode 100644 index 0000000..61ba685 --- /dev/null +++ b/src/nsched.cc @@ -0,0 +1,321 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/************************************************************************ + * + * nsched.c + * - experimental framework for new scheduler for gates + * + *********************************************************************** + */ + + +#define NSCHED_C + +#include +#include "vtypes.h" +#include "tree.h" +#include "glue.h" +#include "nsched.h" +#include "veriwell.h" + +static timeq_t *gateList = (timeq_t *) BADPTR; +static timeq_t *nodeFreeList = (timeq_t *) BADPTR; + +extern time64 CurrentTime; + + +/************************************************************************** + + ScheduleGate + - add gate to list of gates ready to fire + + **************************************************************************/ + +void ScheduleGate(tree gate, delay_t delay) +{ + time64 timeIndex; + timeq_t *newNode; + tree head; + timeq_t *node; + int cmpResult; + + ASSERT(gate != NULL); + ASSERT(TREE_CODE(gate) == GATE_INSTANCE); + ASSERT(gateList != BADPTR); + ASSERT(nodeFreeList != BADPTR); + + ADDTIME6432(&timeIndex, &CurrentTime, delay); + + /* this is a hack to attempt to match Cadence */ + /* (also, reschedule if new input before delay is up */ + + if (IsGateScheduled(gate) && + !CMPTIME64(&(GATE_TIMEQ(gate)->timeIndex), &timeIndex) && + !(TREE_TYPE(gate) == GATE_UDP_TYPE + && GATE_PATH_OUTPUT(gate) == NULL_TREE) + && !(TREE_TYPE(gate) == GATE_NOT_TYPE + && TREE_CHAIN(GATE_OUTPUT_LIST(gate)) != NULL_TREE) + && !(TREE_TYPE(gate) == GATE_BUF_TYPE + && TREE_CHAIN(GATE_OUTPUT_LIST(gate)) != NULL_TREE)) { + return; + } + + + if (IsGateScheduled(gate)) { + RemoveGate(gate); + } + + if (gateList == NULL) { + // insert a new node at the beginning of list + + if (nodeFreeList != NULL) { + newNode = nodeFreeList; + nodeFreeList = nodeFreeList->next; + } else { + newNode = (timeq_t *) xmalloc(sizeof(timeq_t)); + } + + newNode->gate = gate; + GATE_NEXT(gate) = gate; + GATE_PREV(gate) = gate; + GATE_TIMEQ(gate) = newNode; + newNode->next = newNode; + newNode->prev = newNode; + ASSIGNTIME64(&newNode->timeIndex, &timeIndex); + gateList = newNode; + return; + } + + node = gateList; + while (TRUE) { + cmpResult = CMPTIME64(&timeIndex, &node->timeIndex); + if (cmpResult == 0) { + // add to this node + head = node->gate; + GATE_NEXT(gate) = head; + GATE_PREV(gate) = GATE_PREV(head); + GATE_NEXT(GATE_PREV(head)) = gate; + GATE_PREV(head) = gate; + GATE_TIMEQ(gate) = node; + return; + } else if (cmpResult < 0) { + // insert a new node before this node + if (nodeFreeList != NULL) { + newNode = nodeFreeList; + nodeFreeList = nodeFreeList->next; + } else { + newNode = (timeq_t *) xmalloc(sizeof(timeq_t)); + } + + newNode->gate = gate; + ASSIGNTIME64(&newNode->timeIndex, &timeIndex); + GATE_TIMEQ(gate) = newNode; + GATE_NEXT(gate) = gate; + GATE_PREV(gate) = gate; + newNode->next = node; + newNode->prev = node->prev; + node->prev->next = newNode; + node->prev = newNode; + if (node == gateList) { + gateList = newNode; + } + return; + } else if (node->next == gateList) { + // insert a new node at the end of queue + if (nodeFreeList != NULL) { + newNode = nodeFreeList; + nodeFreeList = nodeFreeList->next; + } else { + newNode = (timeq_t *) xmalloc(sizeof(timeq_t)); + } + + newNode->gate = gate; + ASSIGNTIME64(&newNode->timeIndex, &timeIndex); + GATE_TIMEQ(gate) = newNode; + GATE_NEXT(gate) = gate; + GATE_PREV(gate) = gate; + newNode->next = gateList; + newNode->prev = gateList->prev; + gateList->prev->next = newNode; + gateList->prev = newNode; + return; + } + node = node->next; + } + ASSERT(FALSE); + return; +} + +/************************************************************************** + + PeekGate + - return pointer to next gate ready to fire + + **************************************************************************/ + +tree PeekGate(void) +{ + + if (gateList) { + return (gateList->gate); + } else { + return (NULL_TREE); + } +} + +/************************************************************************** + + RemoveNextReadyGate + - return pointer to next gate ready to fire and remove it from list + + **************************************************************************/ + +tree RemoveNextReadyGate(void) +{ + tree next; + + next = PeekGate(); + if (next != NULL_TREE && + CMPTIME64(&(GATE_TIMEQ(next)->timeIndex), &CurrentTime) == 0) { + RemoveGate(next); + return (next); + } + return (NULL_TREE); +} + +/************************************************************************** + + RemoveGate + - remove the given gate from the gatelist + + **************************************************************************/ + +void RemoveGate(tree gate) +{ + timeq_t *head; + + + ASSERT(gate != NULL_TREE); + ASSERT(TREE_CODE(gate) == GATE_INSTANCE); + + head = GATE_TIMEQ(gate); + + if (GATE_NEXT(gate) == gate) { + // last gate for this time so remove node + GATE_TIMEQ(gate) = NULL; + if (head->next == head) { + // gatelist is now empty + gateList = NULL; + head->next = nodeFreeList; + nodeFreeList = head; + return; + } + // unlink node + if (head == gateList) { + gateList = head->next; + } + head->next->prev = head->prev; + head->prev->next = head->next; + return; + } + // unlink gate only + if (head->gate == gate) { + head->gate = GATE_NEXT(gate); + } + GATE_NEXT(GATE_PREV(gate)) = GATE_NEXT(gate); + GATE_PREV(GATE_NEXT(gate)) = GATE_PREV(gate); + GATE_TIMEQ(gate) = NULL; + +} + +/************************************************************************** + + IsGateScheduled + - returns TRUE if gate is currently scheduled + + **************************************************************************/ + +int IsGateScheduled(tree gate) +{ + ASSERT(gate != NULL_TREE); + ASSERT(TREE_CODE(gate) == GATE_INSTANCE); + return (GATE_TIMEQ(gate) != NULL); +} + +/************************************************************************** + + IsGateReady + - returns TRUE if gate is currently ready to fire + + **************************************************************************/ + +int IsGateReady() +{ + tree gate; + + gate = PeekGate(); + + if (gate == NULL_TREE) { + return (FALSE); + } + + ASSERT(TREE_CODE(gate) == GATE_INSTANCE); + return (CMPTIME64(&(GATE_TIMEQ(gate)->timeIndex), &CurrentTime) == 0); +} + +/************************************************************************** + + GateConditionalAdvanceTime + - advance time if it is less than or equal to given time + return TRUE if time advanced + + **************************************************************************/ + +int GateConditionalAdvanceTime(time64 * timePtr) +{ + extern void set_simulation_time(time64 *); /* in exec.c */ + tree gate; + + gate = PeekGate(); + + if (gate == NULL_TREE) { + return (FALSE); + } + + ASSERT(TREE_CODE(gate) == GATE_INSTANCE); + if (CMPTIME64(&(GATE_TIMEQ(gate)->timeIndex), timePtr) >= 0) { + return (FALSE); + } +// ASSIGNTIME64( &CurrentTime, &(GATE_TIMEQ(gate)->timeIndex) ); + set_simulation_time(&(GATE_TIMEQ(gate)->timeIndex)); + return (TRUE); +} + +/************************************************************************** + + InitNSched + - initialize module global data + + **************************************************************************/ +void InitNSched() +{ + gateList = NULL; + nodeFreeList = NULL; +} diff --git a/src/nsched.h b/src/nsched.h new file mode 100644 index 0000000..01eff69 --- /dev/null +++ b/src/nsched.h @@ -0,0 +1,56 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/**************************************************************************** + * + * nsched.h + * - header for nsched.c + * + *************************************************************************** + */ + + +#ifndef NSCHED_H +#define NSCHED_H + +// public definitions + +typedef struct timeq_tag { + struct timeq_tag *next; + struct timeq_tag *prev; + time64 timeIndex; + tree gate; +} timeq_t; + +void ScheduleGate(tree gate, delay_t delay); +tree PeekGate(void); +tree RemoveNextReadyGate(void); +void RemoveGate(tree); +int IsGateScheduled(tree); +int IsGateReady(void); +int GateConditionalAdvanceTime(time64 * time); +void InitNSched(void); + + + +#ifdef NSCHED_C + +#endif // NSCHED_C + +#endif // NSCHED_H diff --git a/src/obstack.cc b/src/obstack.cc new file mode 100644 index 0000000..0c70590 --- /dev/null +++ b/src/obstack.cc @@ -0,0 +1,286 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ +#define OBSTACK_C + +#include "glue.h" +#include "obstack.h" +#include "vtypes.h" +#include "tree.h" +#include "veriwell.h" +#include +/************************************************************************************** + obstack_init + - initialize obstack +**************************************************************************************/ +void obstack_init(obstack_t * ostack) +{ + chunk_t *chunk; + ASSERT(ostack != NULL); + chunk = (chunk_t *) xmalloc(OBSTACK_DEFAULT_BLOCK_SIZE); + chunk->next = NULL; + chunk->freeOffset = 0; + chunk->objectOffset = 0; + chunk->size = OBSTACK_DEFAULT_BLOCK_SIZE - (sizeof(chunk_t) - 4); + ostack->defaultSize = chunk->size; + ostack->alignment = 8; /* Sparcs like 8 */ + ostack->next = chunk; +} + +/************************************************************************************** + obstack_next_free + - return next free byte +**************************************************************************************/ +void *obstack_next_free(obstack_t * ostack) +{ + chunk_t *chunk; + ASSERT(ostack != NULL); + ASSERT(ostack->next != NULL); + + chunk = ostack->next; + ASSERT(chunk->freeOffset <= chunk->size); + ASSERT(chunk->objectOffset <= chunk->size); + ASSERT(chunk->freeOffset >= 0); + ASSERT(chunk->objectOffset >= 0); + return (&chunk->data[chunk->freeOffset]); +} + +/************************************************************************************** + obstack_base + - return base of current object +**************************************************************************************/ +void *obstack_base(obstack_t * ostack) +{ + chunk_t *chunk; + ASSERT(ostack != NULL); + ASSERT(ostack->next != NULL); + chunk = ostack->next; + ASSERT(chunk->freeOffset <= chunk->size); + ASSERT(chunk->objectOffset <= chunk->size); + ASSERT(chunk->freeOffset >= 0); + ASSERT(chunk->objectOffset >= 0); + return (&chunk->data[chunk->objectOffset]); +} + +/************************************************************************************** + obstack_set_base + - force current object base +**************************************************************************************/ +void obstack_set_base(obstack_t * ostack, void *object) +{ + chunk_t *chunk; + ASSERT(ostack != NULL); + ASSERT(ostack->next != NULL); + + chunk = ostack->next; + ASSERT(chunk->freeOffset <= chunk->size); + ASSERT(chunk->objectOffset <= chunk->size); + ASSERT(chunk->freeOffset >= 0); + ASSERT(chunk->objectOffset >= 0); + ASSERT(&chunk->data[0] <= (char *) object); + ASSERT(&chunk->data[chunk->size] >= (char *) object); + + chunk->objectOffset = ((char *) object) - &chunk->data[0]; +} + +/************************************************************************************** + obstack_ptr_grow + - grow obstack by one pointer and copy object ptr into it +**************************************************************************************/ +void obstack_ptr_grow(obstack_t * ostack, void *object) +{ + obstack_grow(ostack, &object, sizeof(object)); +} + +/************************************************************************************** + obstack_object_size + - return size of current object +**************************************************************************************/ +int obstack_object_size(obstack_t * ostack) +{ + chunk_t *chunk; + ASSERT(ostack != NULL); + ASSERT(ostack->next != NULL); + + chunk = ostack->next; + ASSERT(chunk->freeOffset <= chunk->size); + ASSERT(chunk->objectOffset <= chunk->size); + ASSERT(chunk->freeOffset >= 0); + ASSERT(chunk->objectOffset >= 0); + return (chunk->freeOffset - chunk->objectOffset); +} + +/************************************************************************************** + obstack_copy + - copy object into obstack, returns ptr to data in obstack +**************************************************************************************/ +void *obstack_copy(obstack_t * ostack, void *object, int size) +{ + void *ptr; + ptr = obstack_alloc(ostack, size); + memcpy(ptr, object, size); + return (ptr); +} + +/************************************************************************************** + obstack_copy0 + - copy object into obstack with null terminator, returns ptr to data in obstack +**************************************************************************************/ +void *obstack_copy0(obstack_t * ostack, void *object, int size) +{ + void *ptr; + ptr = obstack_alloc(ostack, size + 1); + memcpy(ptr, object, size); + ((char *) ptr)[size] = 0; + return (ptr); +} + +/************************************************************************************** + obstack_finish + - finalize object by advance object base to next free spot(aligned) +**************************************************************************************/ +void *obstack_finish(obstack_t * ostack) +{ + chunk_t *chunk; + int offset; + int startOffset; + ASSERT(ostack != NULL); + ASSERT(ostack->next != NULL); + + chunk = ostack->next; + ASSERT(chunk->freeOffset <= chunk->size); + ASSERT(chunk->objectOffset <= chunk->size); + ASSERT(chunk->freeOffset >= 0); + ASSERT(chunk->objectOffset >= 0); + offset = chunk->freeOffset; + startOffset = chunk->objectOffset; + offset = + ((offset + ostack->alignment - + 1) / ostack->alignment) * ostack->alignment; + if (offset > chunk->size) { + offset = chunk->size; + } + chunk->freeOffset = offset; + chunk->objectOffset = offset; + return (&chunk->data[startOffset]); +} + +/************************************************************************************** + obstack_alloc + - allocate space and advance object. return start of object +**************************************************************************************/ +void *obstack_alloc(obstack_t * ostack, int size) +{ + void *ptr; + chunk_t *chunk; + + ptr = grow_chunk(ostack, size); + ASSERT(ptr == obstack_base(ostack)); + + return (obstack_finish(ostack)); +} + +/************************************************************************************** + obstack_grow + - append data to current object +**************************************************************************************/ +void obstack_grow(obstack_t * ostack, void *data, int size) +{ + void *ptr; + + ptr = grow_chunk(ostack, size); + memcpy(ptr, data, size); +} + +/************************************************************************************** + obstack_free + - free all storage after object + if object is 0, free all +**************************************************************************************/ +void obstack_free(obstack_t * ostack, void *object) +{ + chunk_t *chunk; + ASSERT(ostack != NULL); + ASSERT(ostack->next != NULL); + + chunk = ostack->next; + while (chunk && chunk->next) { + ASSERT(chunk->freeOffset >= 0); + ASSERT(chunk->objectOffset >= 0); + ASSERT(chunk->freeOffset <= chunk->size); + ASSERT(chunk->objectOffset <= chunk->size); + if ((char *) object >= &chunk->data[0] + && ((char *) object <= (&chunk->data[0] + chunk->size))) { + break; + } + ostack->next = chunk->next; + free(chunk); + chunk = ostack->next; + } + if (object == 0) { + chunk->freeOffset = 0; + chunk->objectOffset = 0; + } else { + ASSERT((char *) object >= &chunk->data[0] + && ((char *) object <= (&chunk->data[0] + chunk->size))); + chunk->objectOffset = (char *) object - &chunk->data[0]; + chunk->freeOffset = chunk->objectOffset; + } + +} + +/************************************************************************************** + grow_chunk + - make room for data, allocate new hunk if needed +**************************************************************************************/ +static void *grow_chunk(obstack_t * ostack, int size) +{ + chunk_t *chunk; + chunk_t *newChunk; + int currentSize; + int newSize; + void *ptr; + ASSERT(ostack != NULL); + ASSERT(ostack->next != NULL); + chunk = ostack->next; + ASSERT(chunk->freeOffset <= chunk->size); + ASSERT(chunk->objectOffset <= chunk->size); + ASSERT(chunk->freeOffset >= 0); + ASSERT(chunk->objectOffset >= 0); + if (chunk->size - chunk->freeOffset < size) { + newSize = OBSTACK_DEFAULT_BLOCK_SIZE - (sizeof(chunk_t) - 4); + if (newSize < size) { + newSize = size; + } + currentSize = chunk->freeOffset - chunk->objectOffset; + newChunk = (chunk_t *) xmalloc(newSize + (sizeof(chunk_t) - 4)); + newChunk->next = chunk; + newChunk->freeOffset = currentSize; + newChunk->objectOffset = 0; + newChunk->size = newSize; + memcpy(&newChunk->data[0], &chunk->data[chunk->objectOffset], + currentSize); + ostack->next = newChunk; + chunk = newChunk; + } + + ptr = &chunk->data[chunk->freeOffset]; + chunk->freeOffset += size; + return (ptr); + +} diff --git a/src/obstack.h b/src/obstack.h new file mode 100644 index 0000000..69bc2bf --- /dev/null +++ b/src/obstack.h @@ -0,0 +1,59 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* obstack.h - obstack memory management routines */ + +#ifndef OBSTACK_H +#define OBSTACK_H +// public definitions +// generic pointer definition +typedef void *POINTER; +// obstack chunk definition +typedef struct obstackChunk_tag { + struct obstackChunk_tag *next; // pointer to next allocated chunk + int size; // data size of this chunk + int objectOffset; // offset of current object + int freeOffset; // offset of next free byte + char data[4]; // start of data area +} chunk_t; +// obstack header definition +typedef struct obstack { + chunk_t *next; // pointer to next allocated chunk + int alignment; // number of byte to align to + int defaultSize; // number of data byte to allocate by default +} obstack_t; +// prototypes +void obstack_init(obstack_t *); +void *obstack_alloc(obstack_t *, int); +void obstack_free(obstack_t *, void *); +void obstack_set_base(obstack_t *, void *); +void *obstack_base(obstack_t *); +void *obstack_next_free(obstack_t *); +void *obstack_finish(obstack_t *); +void *obstack_copy(obstack_t *, void *, int); +void *obstack_copy0(obstack_t *, void *, int); +int obstack_object_size(obstack_t *); +void obstack_grow(obstack_t *, void *, int); +void obstack_ptr_grow(obstack_t *, void *); +#ifdef OBSTACK_C +// private definitions +#define OBSTACK_DEFAULT_BLOCK_SIZE (4096) +static void *grow_chunk(obstack_t *, int); +#endif // OBSTACK_C +#endif // OBSTACK_H diff --git a/src/parse.cc b/src/parse.cc new file mode 100644 index 0000000..0023202 --- /dev/null +++ b/src/parse.cc @@ -0,0 +1,5509 @@ +/* A Bison parser, made by GNU Bison 2.0. */ + +/* Skeleton parser for Yacc-like parsing with Bison, + Copyright (C) 1984, 1989, 1990, 2000, 2001, 2002, 2003, 2004 Free Software Foundation, Inc. + + This program 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, 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. */ + +/* As a special exception, when this file is copied by Bison into a + Bison output file, you may use that output file without restriction. + This special exception was added by the Free Software Foundation + in version 1.24 of Bison. */ + +/* Written by Richard Stallman by simplifying the original so called + ``semantic'' parser. */ + +/* All symbols defined below should begin with yy or YY, to avoid + infringing on user name space. This should be done even for local + variables, as they might otherwise be expanded by user macros. + There are some unavoidable exceptions within include files to + define necessary library symbols; they are noted "INFRINGES ON + USER NAME SPACE" below. */ + +/* Identify Bison output. */ +#define YYBISON 1 + +/* Skeleton name. */ +#define YYSKELETON_NAME "yacc.c" + +/* Pure parsers. */ +#define YYPURE 1 + +/* Using locations. */ +#define YYLSP_NEEDED 0 + + + +/* Tokens. */ +#ifndef YYTOKENTYPE +# define YYTOKENTYPE + /* Put the tokens into the symbol table, so that GDB and other debuggers + know about them. */ + enum yytokentype { + LOWEST = 258, + IF = 259, + ELSE = 260, + OROR = 261, + ANDAND = 262, + ANDANDAND = 263, + XNOR = 264, + CASE_INEQUALITY = 265, + CASE_EQUALITY = 266, + LOGICAL_INEQUALITY = 267, + LOGICAL_EQUALITY = 268, + GE = 269, + GT = 270, + LE = 271, + LT = 272, + RIGHT_SHIFT = 273, + LEFT_SHIFT = 274, + REDUCTION_NOR = 275, + REDUCTION_NAND = 276, + UNARY = 277, + IDENTIFIER = 278, + HIERARCHY_IDENTIFIER = 279, + STARARROW = 280, + EQUALARROW = 281, + SPECPARAM = 282, + SETUP = 283, + HOLD = 284, + PERIOD = 285, + WIDTH = 286, + SKEW = 287, + RECOVERY = 288, + SETUPHOLD = 289, + NOCHANGE = 290, + MODULE = 291, + MACROMODULE = 292, + ENDMODULE = 293, + SPECIFY = 294, + ENDSPECIFY = 295, + PRIMITIVE = 296, + ENDPRIMITIVE = 297, + TABLE = 298, + ENDTABLE = 299, + TASK = 300, + ENDTASK = 301, + FUNCTION = 302, + ENDFUNCTION = 303, + PARAMETER = 304, + INPUT = 305, + OUTPUT = 306, + INOUT = 307, + NETTYPE = 308, + TRIREG = 309, + SCALARED = 310, + VECTORED = 311, + REG = 312, + TIME = 313, + INTEGER = 314, + REAL = 315, + EVENT = 316, + ASSIGN = 317, + DEFPARAM = 318, + STRENGTH0 = 319, + STRENGTH1 = 320, + SUPPLY0 = 321, + SUPPLY1 = 322, + LOGIC = 323, + BUFFER = 324, + BUFIF = 325, + CMOS = 326, + PULL = 327, + TRAN = 328, + INITIAL = 329, + ALWAYS = 330, + CASE = 331, + CASEZ = 332, + CASEX = 333, + ENDCASE = 334, + FOREVER = 335, + REPEAT = 336, + WHILE = 337, + FOR = 338, + WAIT_ = 339, + ARROW_ = 340, + DISABLE = 341, + DEASSIGN = 342, + FORCE = 343, + RELEASE = 344, + DEFAULT = 345, + BEGIN = 346, + END = 347, + FORK = 348, + JOIN = 349, + SYSTEM_IDENTIFIER = 350, + STRING = 351, + NUMBER = 352, + BASE_NUMBER = 353, + POSEDGE = 354, + NEGEDGE = 355, + OR = 356, + SMALL = 357, + MEDIUM = 358, + LARGE = 359, + EDGE = 360, + DOUBLE_DIGIT = 361, + UDP_CHAR = 362, + UDP_ONE = 363, + UDP_ZERO = 364, + UDP_X = 365, + UDP_B = 366, + UDP_HOOK = 367, + EOF_ = 368 + }; +#endif +#define LOWEST 258 +#define IF 259 +#define ELSE 260 +#define OROR 261 +#define ANDAND 262 +#define ANDANDAND 263 +#define XNOR 264 +#define CASE_INEQUALITY 265 +#define CASE_EQUALITY 266 +#define LOGICAL_INEQUALITY 267 +#define LOGICAL_EQUALITY 268 +#define GE 269 +#define GT 270 +#define LE 271 +#define LT 272 +#define RIGHT_SHIFT 273 +#define LEFT_SHIFT 274 +#define REDUCTION_NOR 275 +#define REDUCTION_NAND 276 +#define UNARY 277 +#define IDENTIFIER 278 +#define HIERARCHY_IDENTIFIER 279 +#define STARARROW 280 +#define EQUALARROW 281 +#define SPECPARAM 282 +#define SETUP 283 +#define HOLD 284 +#define PERIOD 285 +#define WIDTH 286 +#define SKEW 287 +#define RECOVERY 288 +#define SETUPHOLD 289 +#define NOCHANGE 290 +#define MODULE 291 +#define MACROMODULE 292 +#define ENDMODULE 293 +#define SPECIFY 294 +#define ENDSPECIFY 295 +#define PRIMITIVE 296 +#define ENDPRIMITIVE 297 +#define TABLE 298 +#define ENDTABLE 299 +#define TASK 300 +#define ENDTASK 301 +#define FUNCTION 302 +#define ENDFUNCTION 303 +#define PARAMETER 304 +#define INPUT 305 +#define OUTPUT 306 +#define INOUT 307 +#define NETTYPE 308 +#define TRIREG 309 +#define SCALARED 310 +#define VECTORED 311 +#define REG 312 +#define TIME 313 +#define INTEGER 314 +#define REAL 315 +#define EVENT 316 +#define ASSIGN 317 +#define DEFPARAM 318 +#define STRENGTH0 319 +#define STRENGTH1 320 +#define SUPPLY0 321 +#define SUPPLY1 322 +#define LOGIC 323 +#define BUFFER 324 +#define BUFIF 325 +#define CMOS 326 +#define PULL 327 +#define TRAN 328 +#define INITIAL 329 +#define ALWAYS 330 +#define CASE 331 +#define CASEZ 332 +#define CASEX 333 +#define ENDCASE 334 +#define FOREVER 335 +#define REPEAT 336 +#define WHILE 337 +#define FOR 338 +#define WAIT_ 339 +#define ARROW_ 340 +#define DISABLE 341 +#define DEASSIGN 342 +#define FORCE 343 +#define RELEASE 344 +#define DEFAULT 345 +#define BEGIN 346 +#define END 347 +#define FORK 348 +#define JOIN 349 +#define SYSTEM_IDENTIFIER 350 +#define STRING 351 +#define NUMBER 352 +#define BASE_NUMBER 353 +#define POSEDGE 354 +#define NEGEDGE 355 +#define OR 356 +#define SMALL 357 +#define MEDIUM 358 +#define LARGE 359 +#define EDGE 360 +#define DOUBLE_DIGIT 361 +#define UDP_CHAR 362 +#define UDP_ONE 363 +#define UDP_ZERO 364 +#define UDP_X 365 +#define UDP_B 366 +#define UDP_HOOK 367 +#define EOF_ 368 + + + + +/* Copy the first part of user declarations. */ +#line 22 "parse.yy" + +#define yyparse prog_parse +#define YYERROR_VERBOSE +#define YYDEBUG 2 + +#include +#include +#include +#include +#include +#include "glue.h" +#include "vtypes.h" +#include "tree.h" +#include "decl.h" +#include "flags.h" +#include "io.h" +#include "specify.h" +#include "gates.h" +#include "udp.h" +#include "lex.h" +#include "scope.h" +#include "veriwell.h" + + +#define syn_warning(TEXT) \ + if (synopsys_flag) \ + synopsys_warn(TEXT); + +#define function_error \ + if (in_function) \ + error ("Statement not allowed in a function", NULL_CHAR, NULL_CHAR) + +/* Used in BISON.SIM */ +extern char *token_buffer; + +void eat_block (short token); + +#ifdef __cplusplus + union YYSTYPE; + int yylex (YYSTYPE *); +#endif // __cplusplus + +/* list of parsed modules (exported in tree.h) */ +tree module_list = NULL_TREE; + +/* tree list of hierarchical references to be resolved at pass3 */ +tree hierarchical_list; + +/* The spec of the current declaration */ +tree current_spec; + +tree current_module; +tree current_case; +tree current_delay; +enum tree_type current_gatetype; + + +tree current_instance_module = NULL_TREE; +tree current_instance_param = NULL_TREE; +tree current_udp_string = NULL_TREE; + +tree interactive_statement; + +tree tmp_tree; + +/* Defined in decl.c */ +extern tree current_scope; + +/* Defined in verilog.c */ +extern int is_interactive; + + +/* Certain constructs are not allowed while inside a function. Also, ports + are treated differently in functions and tasks than for modules. */ +int in_function = 0; +int in_tf = 0; +int in_systask = 0; + +/* If inside continuous assignment, handle lval differently */ +enum lval_type lval_type = LVAL_REG; + +/* If inside instantiation port list, allow implicit net declarations. */ +int in_instantiation = 0; + +/* If inside event statement, accept event types. */ +int in_event = 0; + +void init_parse() +{ + current_instance_module = NULL_TREE; + current_instance_param = NULL_TREE; + current_udp_string = NULL_TREE; + in_function = 0; + in_tf = 0; + in_systask = 0; + lval_type = LVAL_REG; + in_instantiation = 0; + module_list = NULL_TREE; + hierarchical_list = NULL_TREE; + current_spec = NULL_TREE; + current_module = NULL_TREE; + current_case = NULL_TREE; + current_delay = NULL_TREE; + interactive_statement = NULL_TREE; + tmp_tree = NULL_TREE; +} + + + +/* Enabling traces. */ +#ifndef YYDEBUG +# define YYDEBUG 0 +#endif + +/* Enabling verbose error messages. */ +#ifdef YYERROR_VERBOSE +# undef YYERROR_VERBOSE +# define YYERROR_VERBOSE 1 +#else +# define YYERROR_VERBOSE 0 +#endif + +#if ! defined (YYSTYPE) && ! defined (YYSTYPE_IS_DECLARED) +#line 132 "parse.yy" +typedef union YYSTYPE { + tree ttype; /* pointer to a tree node */ + int integer; /* used for integers */ +// inst ctype; /* pointer to an instruction node (code) */ +// Datum *dtype; /* pointer to a bit string for returning NUMBERs */ + lineno_t ltype; /* for passing line numbers */ + enum tree_code code; /* for operators */ + enum tree_type gtype; /* for gates */ + enum tree_type ntype; /* for nets (same as gtype, buy more readable) */ + char double_digit[2]; /* structure for parsing edges */ + char c; /* char used in udp parsing */ +} YYSTYPE; +/* Line 190 of yacc.c. */ +#line 424 "parse.cc" +# define yystype YYSTYPE /* obsolescent; will be withdrawn */ +# define YYSTYPE_IS_DECLARED 1 +# define YYSTYPE_IS_TRIVIAL 1 +#endif + + + +/* Copy the second part of user declarations. */ + + +/* Line 213 of yacc.c. */ +#line 436 "parse.cc" + +#if ! defined (yyoverflow) || YYERROR_VERBOSE + +# ifndef YYFREE +# define YYFREE free +# endif +# ifndef YYMALLOC +# define YYMALLOC malloc +# endif + +/* The parser invokes alloca or malloc; define the necessary symbols. */ + +# ifdef YYSTACK_USE_ALLOCA +# if YYSTACK_USE_ALLOCA +# ifdef __GNUC__ +# define YYSTACK_ALLOC __builtin_alloca +# else +# define YYSTACK_ALLOC alloca +# endif +# endif +# endif + +# ifdef YYSTACK_ALLOC + /* Pacify GCC's `empty if-body' warning. */ +# define YYSTACK_FREE(Ptr) do { /* empty */; } while (0) +# else +# if defined (__STDC__) || defined (__cplusplus) +# include /* INFRINGES ON USER NAME SPACE */ +# define YYSIZE_T size_t +# endif +# define YYSTACK_ALLOC YYMALLOC +# define YYSTACK_FREE YYFREE +# endif +#endif /* ! defined (yyoverflow) || YYERROR_VERBOSE */ + + +#if (! defined (yyoverflow) \ + && (! defined (__cplusplus) \ + || (defined (YYSTYPE_IS_TRIVIAL) && YYSTYPE_IS_TRIVIAL))) + +/* A type that is properly aligned for any stack member. */ +union yyalloc +{ + short int yyss; + YYSTYPE yyvs; + }; + +/* The size of the maximum gap between one aligned stack and the next. */ +# define YYSTACK_GAP_MAXIMUM (sizeof (union yyalloc) - 1) + +/* The size of an array large to enough to hold all stacks, each with + N elements. */ +# define YYSTACK_BYTES(N) \ + ((N) * (sizeof (short int) + sizeof (YYSTYPE)) \ + + YYSTACK_GAP_MAXIMUM) + +/* Copy COUNT objects from FROM to TO. The source and destination do + not overlap. */ +# ifndef YYCOPY +# if defined (__GNUC__) && 1 < __GNUC__ +# define YYCOPY(To, From, Count) \ + __builtin_memcpy (To, From, (Count) * sizeof (*(From))) +# else +# define YYCOPY(To, From, Count) \ + do \ + { \ + register YYSIZE_T yyi; \ + for (yyi = 0; yyi < (Count); yyi++) \ + (To)[yyi] = (From)[yyi]; \ + } \ + while (0) +# endif +# endif + +/* Relocate STACK from its old location to the new one. The + local variables YYSIZE and YYSTACKSIZE give the old and new number of + elements in the stack, and YYPTR gives the new location of the + stack. Advance YYPTR to a properly aligned location for the next + stack. */ +# define YYSTACK_RELOCATE(Stack) \ + do \ + { \ + YYSIZE_T yynewbytes; \ + YYCOPY (&yyptr->Stack, Stack, yysize); \ + Stack = &yyptr->Stack; \ + yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \ + yyptr += yynewbytes / sizeof (*yyptr); \ + } \ + while (0) + +#endif + +#if defined (__STDC__) || defined (__cplusplus) + typedef signed char yysigned_char; +#else + typedef short int yysigned_char; +#endif + +/* YYFINAL -- State number of the termination state. */ +#define YYFINAL 74 +/* YYLAST -- Last index in YYTABLE. */ +#define YYLAST 2571 + +/* YYNTOKENS -- Number of terminals. */ +#define YYNTOKENS 138 +/* YYNNTS -- Number of nonterminals. */ +#define YYNNTS 212 +/* YYNRULES -- Number of rules. */ +#define YYNRULES 519 +/* YYNRULES -- Number of states. */ +#define YYNSTATES 998 + +/* YYTRANSLATE(YYLEX) -- Bison symbol number corresponding to YYLEX. */ +#define YYUNDEFTOK 2 +#define YYMAXUTOK 368 + +#define YYTRANSLATE(YYX) \ + ((unsigned int) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK) + +/* YYTRANSLATE[YYLEX] -- Bison symbol number corresponding to YYLEX. */ +static const unsigned char yytranslate[] = +{ + 0, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 32, 2, 134, 2, 29, 14, 2, + 30, 135, 27, 25, 128, 26, 129, 28, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 7, 137, + 2, 133, 2, 6, 136, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 31, 2, 132, 12, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 130, 11, 131, 33, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 1, 2, 3, 4, + 5, 8, 9, 10, 13, 15, 16, 17, 18, 19, + 20, 21, 22, 23, 24, 34, 35, 36, 37, 38, + 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, + 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, + 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, + 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, + 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, + 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, + 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, + 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, + 119, 120, 121, 122, 123, 124, 125, 126, 127 +}; + +#if YYDEBUG +/* YYPRHS[YYN] -- Index of the first RHS symbol of rule number YYN in + YYRHS. */ +static const unsigned short int yyprhs[] = +{ + 0, 0, 3, 5, 8, 10, 12, 14, 17, 19, + 21, 22, 23, 24, 34, 35, 38, 41, 45, 46, + 48, 52, 54, 58, 60, 66, 68, 72, 73, 75, + 79, 81, 86, 93, 95, 97, 99, 101, 103, 105, + 107, 109, 111, 113, 115, 117, 119, 120, 121, 122, + 134, 135, 138, 141, 143, 145, 149, 150, 156, 157, + 162, 164, 167, 170, 171, 174, 176, 178, 180, 182, + 184, 186, 191, 193, 195, 197, 199, 201, 202, 210, + 211, 220, 221, 223, 225, 227, 228, 231, 233, 235, + 237, 238, 244, 246, 250, 252, 256, 260, 264, 268, + 269, 274, 279, 284, 289, 292, 295, 298, 300, 304, + 306, 309, 313, 317, 320, 323, 326, 328, 330, 331, + 336, 341, 346, 350, 351, 357, 359, 361, 363, 365, + 368, 371, 372, 373, 379, 383, 385, 389, 391, 394, + 398, 402, 403, 408, 410, 414, 416, 419, 423, 427, + 428, 433, 437, 441, 447, 449, 453, 455, 458, 462, + 466, 468, 475, 477, 481, 483, 487, 488, 492, 496, + 500, 501, 503, 509, 515, 517, 519, 521, 523, 524, + 526, 532, 533, 537, 539, 541, 543, 545, 547, 549, + 551, 552, 556, 557, 562, 564, 568, 573, 577, 578, + 584, 585, 588, 593, 598, 605, 614, 616, 620, 622, + 626, 628, 631, 635, 639, 641, 645, 647, 650, 654, + 658, 663, 667, 669, 671, 673, 677, 679, 683, 685, + 686, 688, 692, 698, 703, 704, 708, 709, 713, 715, + 717, 720, 721, 729, 730, 731, 740, 741, 745, 746, + 753, 754, 761, 762, 773, 774, 778, 779, 783, 784, + 791, 792, 799, 800, 806, 807, 814, 815, 822, 823, + 830, 831, 836, 838, 840, 842, 844, 845, 850, 851, + 858, 859, 864, 865, 872, 873, 878, 879, 882, 884, + 886, 888, 889, 894, 896, 899, 901, 904, 908, 912, + 915, 917, 921, 923, 927, 929, 933, 934, 936, 937, + 942, 943, 951, 952, 957, 958, 966, 967, 970, 973, + 974, 977, 980, 981, 984, 986, 988, 991, 997, 1000, + 1001, 1008, 1010, 1012, 1014, 1019, 1026, 1027, 1031, 1034, + 1035, 1038, 1041, 1043, 1045, 1047, 1048, 1053, 1059, 1069, + 1080, 1091, 1103, 1109, 1116, 1118, 1122, 1124, 1128, 1132, + 1134, 1138, 1140, 1144, 1148, 1150, 1155, 1162, 1164, 1169, + 1176, 1178, 1184, 1192, 1206, 1208, 1210, 1212, 1214, 1216, + 1218, 1220, 1222, 1224, 1225, 1230, 1241, 1252, 1261, 1269, + 1280, 1291, 1302, 1315, 1327, 1328, 1331, 1333, 1336, 1341, + 1344, 1349, 1350, 1352, 1354, 1355, 1361, 1363, 1365, 1366, + 1372, 1374, 1378, 1380, 1382, 1386, 1389, 1393, 1397, 1401, + 1405, 1407, 1409, 1411, 1413, 1418, 1425, 1429, 1431, 1433, + 1437, 1441, 1443, 1446, 1450, 1454, 1458, 1460, 1462, 1464, + 1470, 1476, 1478, 1481, 1484, 1487, 1490, 1493, 1496, 1499, + 1502, 1505, 1508, 1512, 1516, 1520, 1521, 1526, 1527, 1532, + 1536, 1540, 1541, 1546, 1547, 1552, 1556, 1560, 1564, 1568, + 1572, 1576, 1580, 1584, 1588, 1592, 1596, 1600, 1606, 1608, + 1610, 1612, 1614, 1619, 1626, 1628, 1630, 1634, 1638, 1642, + 1649, 1654, 1659, 1661, 1663, 1665, 1667, 1669, 1670, 1672, + 1675, 1678, 1683, 1685, 1689, 1695, 1698, 1701, 1706, 1707, + 1711, 1712, 1718, 1720, 1723, 1726, 1730, 1732, 1734, 1736 +}; + +/* YYRHS -- A `-1'-separated list of the rules' RHS. */ +static const short int yyrhs[] = +{ + 139, 0, -1, 242, -1, 140, 127, -1, 1, -1, + 127, -1, 141, -1, 140, 141, -1, 142, -1, 154, + -1, -1, -1, -1, 50, 143, 338, 144, 147, 349, + 145, 146, 52, -1, -1, 146, 153, -1, 146, 1, + -1, 30, 148, 347, -1, -1, 149, -1, 148, 128, + 149, -1, 1, -1, 148, 128, 1, -1, 150, -1, + 129, 37, 30, 150, 347, -1, 152, -1, 130, 151, + 131, -1, -1, 152, -1, 151, 128, 152, -1, 37, + -1, 37, 31, 326, 132, -1, 37, 31, 326, 7, + 326, 132, -1, 176, -1, 182, -1, 189, -1, 181, + -1, 217, -1, 225, -1, 204, -1, 195, -1, 288, + -1, 237, -1, 239, -1, 169, -1, 171, -1, -1, + -1, -1, 55, 155, 37, 156, 147, 349, 157, 158, + 161, 162, 56, -1, -1, 158, 159, -1, 158, 1, + -1, 182, -1, 160, -1, 71, 37, 349, -1, -1, + 88, 37, 133, 321, 349, -1, -1, 57, 163, 164, + 58, -1, 165, -1, 164, 165, -1, 166, 349, -1, + -1, 166, 167, -1, 121, -1, 126, -1, 123, -1, + 122, -1, 125, -1, 124, -1, 30, 168, 168, 347, + -1, 124, -1, 123, -1, 122, -1, 125, -1, 126, + -1, -1, 59, 37, 349, 170, 174, 241, 60, -1, + -1, 61, 173, 37, 349, 172, 174, 241, 62, -1, + -1, 216, -1, 73, -1, 74, -1, -1, 174, 175, + -1, 176, -1, 182, -1, 181, -1, -1, 63, 215, + 177, 178, 349, -1, 179, -1, 178, 128, 179, -1, + 1, -1, 178, 1, 179, -1, 178, 128, 1, -1, + 37, 133, 326, -1, 37, 133, 328, -1, -1, 185, + 180, 206, 349, -1, 187, 180, 208, 349, -1, 186, + 180, 209, 349, -1, 183, 180, 184, 349, -1, 64, + 215, -1, 65, 215, -1, 66, 215, -1, 37, -1, + 184, 128, 37, -1, 1, -1, 184, 1, -1, 184, + 1, 37, -1, 184, 128, 1, -1, 71, 215, -1, + 73, 215, -1, 72, 215, -1, 74, -1, 75, -1, + -1, 190, 188, 209, 349, -1, 191, 180, 209, 349, + -1, 190, 188, 198, 349, -1, 193, 194, 339, -1, + -1, 68, 192, 210, 194, 339, -1, 67, -1, 80, + -1, 81, -1, 216, -1, 69, 216, -1, 70, 216, + -1, -1, -1, 197, 180, 196, 201, 349, -1, 76, + 211, 339, -1, 199, -1, 198, 128, 199, -1, 1, + -1, 198, 1, -1, 198, 1, 199, -1, 198, 128, + 1, -1, -1, 37, 133, 200, 329, -1, 202, -1, + 201, 128, 202, -1, 1, -1, 201, 1, -1, 201, + 1, 202, -1, 201, 128, 1, -1, -1, 286, 133, + 203, 329, -1, 77, 205, 349, -1, 337, 133, 326, + -1, 205, 128, 337, 133, 326, -1, 207, -1, 206, + 128, 207, -1, 1, -1, 206, 1, -1, 206, 1, + 207, -1, 206, 128, 1, -1, 37, -1, 37, 31, + 326, 7, 326, 132, -1, 37, -1, 208, 128, 37, + -1, 37, -1, 209, 128, 37, -1, -1, 30, 116, + 347, -1, 30, 117, 347, -1, 30, 118, 347, -1, + -1, 212, -1, 30, 213, 128, 214, 347, -1, 30, + 214, 128, 213, 347, -1, 78, -1, 80, -1, 79, + -1, 81, -1, -1, 216, -1, 31, 326, 7, 326, + 348, -1, -1, 219, 218, 220, -1, 82, -1, 115, + -1, 83, -1, 84, -1, 85, -1, 86, -1, 87, + -1, -1, 221, 223, 349, -1, -1, 340, 222, 223, + 349, -1, 224, -1, 223, 128, 224, -1, 37, 30, + 229, 347, -1, 30, 229, 347, -1, -1, 37, 227, + 226, 230, 349, -1, -1, 134, 326, -1, 134, 30, + 228, 135, -1, 134, 30, 327, 135, -1, 134, 30, + 327, 128, 327, 135, -1, 134, 30, 327, 128, 327, + 128, 327, 135, -1, 326, -1, 228, 128, 326, -1, + 329, -1, 229, 128, 329, -1, 1, -1, 229, 1, + -1, 229, 1, 329, -1, 229, 128, 1, -1, 231, + -1, 230, 128, 231, -1, 1, -1, 230, 1, -1, + 230, 1, 231, -1, 230, 128, 1, -1, 37, 30, + 232, 347, -1, 30, 232, 347, -1, 233, -1, 235, + -1, 234, -1, 233, 128, 234, -1, 1, -1, 233, + 128, 1, -1, 329, -1, -1, 236, -1, 235, 128, + 236, -1, 129, 37, 30, 329, 347, -1, 129, 37, + 30, 347, -1, -1, 88, 238, 242, -1, -1, 89, + 240, 242, -1, 242, -1, 349, -1, 266, 349, -1, + -1, 4, 243, 30, 329, 347, 241, 264, -1, -1, + -1, 244, 265, 245, 30, 329, 347, 268, 93, -1, + -1, 94, 246, 242, -1, -1, 95, 247, 30, 329, + 347, 242, -1, -1, 96, 248, 30, 329, 347, 242, + -1, -1, 97, 249, 30, 266, 349, 329, 349, 266, + 347, 242, -1, -1, 342, 250, 241, -1, -1, 343, + 251, 241, -1, -1, 286, 133, 252, 342, 329, 349, + -1, -1, 286, 133, 253, 343, 329, 349, -1, -1, + 286, 21, 254, 329, 349, -1, -1, 286, 21, 255, + 342, 329, 349, -1, -1, 286, 21, 256, 343, 329, + 349, -1, -1, 98, 257, 30, 325, 347, 241, -1, + -1, 99, 258, 337, 349, -1, 273, -1, 276, -1, + 283, -1, 284, -1, -1, 100, 259, 337, 349, -1, + -1, 76, 260, 286, 133, 329, 349, -1, -1, 101, + 261, 286, 349, -1, -1, 102, 262, 286, 133, 329, + 349, -1, -1, 103, 263, 286, 349, -1, -1, 5, + 241, -1, 90, -1, 91, -1, 92, -1, -1, 286, + 133, 267, 329, -1, 269, -1, 268, 269, -1, 1, + -1, 268, 1, -1, 270, 7, 241, -1, 104, 7, + 241, -1, 104, 241, -1, 329, -1, 270, 128, 329, + -1, 1, -1, 270, 128, 1, -1, 272, -1, 271, + 128, 272, -1, -1, 329, -1, -1, 105, 274, 279, + 106, -1, -1, 105, 7, 37, 275, 281, 279, 106, + -1, -1, 107, 277, 280, 108, -1, -1, 107, 7, + 37, 278, 281, 280, 108, -1, -1, 279, 242, -1, + 279, 1, -1, -1, 280, 242, -1, 280, 1, -1, + -1, 281, 282, -1, 176, -1, 181, -1, 337, 349, + -1, 337, 30, 270, 347, 349, -1, 109, 349, -1, + -1, 109, 285, 30, 271, 347, 349, -1, 287, -1, + 323, -1, 337, -1, 337, 31, 329, 132, -1, 337, + 31, 329, 7, 329, 132, -1, -1, 53, 289, 290, + -1, 291, 54, -1, -1, 291, 292, -1, 291, 1, + -1, 293, -1, 295, -1, 309, -1, -1, 41, 294, + 178, 349, -1, 308, 296, 133, 301, 349, -1, 30, + 297, 304, 30, 298, 7, 306, 347, 347, -1, 30, + 307, 297, 304, 30, 298, 7, 306, 347, 347, -1, + 30, 297, 304, 30, 298, 303, 7, 306, 347, 347, + -1, 30, 307, 297, 304, 30, 298, 303, 7, 306, + 347, 347, -1, 30, 297, 304, 298, 347, -1, 30, + 297, 303, 304, 298, 347, -1, 299, -1, 297, 128, + 299, -1, 1, -1, 297, 1, 299, -1, 297, 128, + 1, -1, 300, -1, 298, 128, 300, -1, 1, -1, + 298, 1, 300, -1, 298, 128, 1, -1, 37, -1, + 37, 31, 326, 348, -1, 37, 31, 326, 7, 326, + 348, -1, 37, -1, 37, 31, 326, 348, -1, 37, + 31, 326, 7, 326, 348, -1, 302, -1, 30, 302, + 128, 302, 347, -1, 30, 302, 128, 302, 128, 302, + 347, -1, 30, 302, 128, 302, 128, 302, 128, 302, + 128, 302, 128, 302, 347, -1, 327, -1, 25, -1, + 26, -1, 39, -1, 40, -1, 329, -1, 329, -1, + 113, -1, 114, -1, -1, 4, 30, 305, 347, -1, + 42, 30, 312, 128, 312, 128, 329, 310, 347, 349, + -1, 43, 30, 312, 128, 312, 128, 329, 310, 347, + 349, -1, 44, 30, 313, 128, 329, 310, 347, 349, + -1, 45, 30, 313, 128, 329, 347, 349, -1, 45, + 30, 313, 128, 329, 128, 329, 310, 347, 349, -1, + 46, 30, 312, 128, 312, 128, 329, 310, 347, 349, + -1, 47, 30, 313, 128, 312, 128, 329, 310, 347, + 349, -1, 48, 30, 312, 128, 312, 128, 329, 128, + 329, 310, 347, 349, -1, 49, 30, 313, 128, 312, + 128, 329, 128, 329, 347, 349, -1, -1, 128, 311, + -1, 37, -1, 314, 322, -1, 314, 322, 10, 319, + -1, 316, 322, -1, 316, 322, 10, 319, -1, -1, + 113, -1, 114, -1, -1, 119, 31, 315, 318, 348, + -1, 113, -1, 114, -1, -1, 119, 31, 317, 318, + 348, -1, 120, -1, 120, 128, 318, -1, 1, -1, + 320, -1, 30, 319, 135, -1, 33, 320, -1, 320, + 18, 321, -1, 320, 16, 321, -1, 320, 15, 321, + -1, 320, 17, 321, -1, 37, -1, 112, -1, 111, + -1, 337, -1, 337, 31, 329, 132, -1, 337, 31, + 326, 7, 326, 132, -1, 130, 324, 131, -1, 287, + -1, 323, -1, 324, 128, 287, -1, 324, 128, 323, + -1, 1, -1, 324, 1, -1, 324, 1, 287, -1, + 324, 1, 323, -1, 324, 128, 1, -1, 329, -1, + 329, -1, 329, -1, 329, 7, 329, 7, 329, -1, + 329, 7, 329, 7, 329, -1, 334, -1, 25, 334, + -1, 26, 334, -1, 32, 334, -1, 33, 334, -1, + 14, 334, -1, 35, 334, -1, 11, 334, -1, 34, + 334, -1, 12, 334, -1, 13, 334, -1, 329, 25, + 329, -1, 329, 26, 329, -1, 329, 27, 329, -1, + -1, 329, 28, 330, 329, -1, -1, 329, 29, 331, + 329, -1, 329, 18, 329, -1, 329, 17, 329, -1, + -1, 329, 16, 332, 329, -1, -1, 329, 15, 333, + 329, -1, 329, 9, 329, -1, 329, 8, 329, -1, + 329, 22, 329, -1, 329, 21, 329, -1, 329, 20, + 329, -1, 329, 19, 329, -1, 329, 14, 329, -1, + 329, 11, 329, -1, 329, 12, 329, -1, 329, 13, + 329, -1, 329, 24, 329, -1, 329, 23, 329, -1, + 329, 6, 329, 7, 329, -1, 110, -1, 111, -1, + 112, -1, 337, -1, 337, 31, 329, 132, -1, 337, + 31, 326, 7, 326, 132, -1, 335, -1, 336, -1, + 30, 327, 347, -1, 30, 1, 347, -1, 130, 270, + 131, -1, 130, 326, 130, 270, 131, 131, -1, 337, + 30, 271, 347, -1, 109, 30, 271, 347, -1, 109, + -1, 38, -1, 37, -1, 37, -1, 115, -1, -1, + 340, -1, 134, 111, -1, 134, 337, -1, 134, 30, + 341, 347, -1, 327, -1, 327, 128, 327, -1, 327, + 128, 327, 128, 327, -1, 134, 111, -1, 134, 337, + -1, 134, 30, 327, 347, -1, -1, 136, 344, 337, + -1, -1, 136, 30, 345, 346, 347, -1, 329, -1, + 113, 329, -1, 114, 329, -1, 346, 115, 346, -1, + 135, -1, 132, -1, 1, -1, 137, -1 +}; + +/* YYRLINE[YYN] -- source line where rule number YYN was defined. */ +static const unsigned short int yyrline[] = +{ + 0, 425, 425, 434, 435, 444, 453, 454, 466, 467, + 472, 477, 486, 471, 498, 500, 502, 506, 509, 513, + 514, 518, 524, 528, 534, 539, 540, 545, 549, 551, + 556, 558, 563, 571, 572, 573, 574, 575, 576, 579, + 580, 581, 582, 586, 590, 591, 606, 611, 618, 605, + 628, 629, 631, 635, 636, 640, 654, 655, 674, 673, + 685, 686, 692, 701, 702, 706, 711, 716, 721, 726, + 731, 736, 751, 752, 753, 754, 755, 760, 759, 780, + 779, 799, 800, 802, 804, 810, 811, 815, 816, 817, + 826, 825, 834, 835, 839, 840, 842, 846, 849, 856, + 860, 863, 866, 873, 881, 888, 896, 908, 910, 914, + 915, 916, 918, 922, 924, 929, 936, 941, 948, 952, + 958, 959, 968, 976, 975, 984, 985, 987, 999, 1000, + 1005, 1011, 1016, 1015, 1025, 1032, 1034, 1038, 1039, 1040, + 1042, 1046, 1046, 1056, 1058, 1062, 1063, 1064, 1066, 1070, + 1070, 1076, 1081, 1086, 1095, 1096, 1100, 1101, 1102, 1104, + 1108, 1110, 1117, 1119, 1124, 1126, 1132, 1133, 1135, 1137, + 1143, 1144, 1152, 1154, 1159, 1160, 1164, 1165, 1179, 1180, + 1184, 1201, 1200, 1211, 1213, 1215, 1217, 1219, 1221, 1223, + 1237, 1237, 1243, 1242, 1248, 1249, 1253, 1259, 1271, 1270, + 1307, 1308, 1310, 1312, 1314, 1318, 1326, 1328, 1355, 1357, + 1360, 1361, 1362, 1364, 1374, 1375, 1377, 1378, 1379, 1381, + 1385, 1393, 1403, 1404, 1408, 1409, 1413, 1414, 1418, 1421, + 1425, 1426, 1431, 1434, 1442, 1441, 1449, 1449, 1455, 1456, + 1461, 1464, 1464, 1468, 1470, 1468, 1479, 1478, 1485, 1484, + 1494, 1493, 1499, 1499, 1510, 1509, 1518, 1517, 1527, 1526, + 1538, 1537, 1548, 1547, 1559, 1558, 1570, 1569, 1586, 1585, + 1594, 1593, 1601, 1602, 1603, 1604, 1605, 1605, 1612, 1611, + 1618, 1617, 1622, 1622, 1631, 1631, 1643, 1645, 1650, 1652, + 1654, 1666, 1666, 1673, 1674, 1678, 1679, 1683, 1686, 1691, + 1699, 1701, 1703, 1704, 1708, 1715, 1725, 1726, 1731, 1730, + 1738, 1737, 1762, 1761, 1770, 1769, 1793, 1794, 1798, 1803, + 1804, 1808, 1813, 1814, 1818, 1819, 1823, 1829, 1837, 1840, + 1839, 1848, 1850, 1855, 1857, 1860, 1871, 1870, 1879, 1885, + 1886, 1891, 1894, 1895, 1896, 1915, 1914, 1923, 1934, 1942, + 1950, 1958, 1966, 1972, 1980, 1981, 1985, 1986, 1988, 1991, + 1992, 1996, 1997, 1999, 2002, 2006, 2010, 2016, 2020, 2024, + 2030, 2031, 2035, 2042, 2055, 2061, 2065, 2071, 2075, 2081, + 2086, 2089, 2093, 2100, 2103, 2110, 2115, 2120, 2125, 2130, + 2135, 2140, 2145, 2150, 2158, 2161, 2167, 2170, 2174, 2181, + 2185, 2193, 2197, 2202, 2208, 2207, 2219, 2224, 2230, 2229, + 2241, 2246, 2251, 2257, 2258, 2260, 2262, 2264, 2266, 2268, + 2272, 2276, 2280, 2287, 2292, 2297, 2310, 2318, 2320, 2322, + 2324, 2326, 2327, 2328, 2329, 2330, 2334, 2338, 2349, 2350, + 2360, 2370, 2371, 2373, 2375, 2377, 2379, 2381, 2383, 2385, + 2387, 2389, 2391, 2393, 2395, 2398, 2397, 2402, 2401, 2405, + 2407, 2410, 2409, 2414, 2413, 2417, 2419, 2421, 2423, 2425, + 2427, 2429, 2431, 2433, 2435, 2437, 2439, 2441, 2443, 2463, + 2464, 2465, 2467, 2469, 2471, 2472, 2473, 2475, 2508, 2513, + 2522, 2527, 2531, 2542, 2551, 2555, 2556, 2576, 2577, 2581, + 2585, 2590, 2599, 2603, 2607, 2614, 2616, 2618, 2623, 2623, + 2635, 2635, 2642, 2649, 2652, 2655, 2664, 2669, 2671, 2676 +}; +#endif + +#if YYDEBUG || YYERROR_VERBOSE +/* YYTNME[SYMBOL-NUM] -- String name of the symbol SYMBOL-NUM. + First, the terminals, then, starting at YYNTOKENS, nonterminals. */ +static const char *const yytname[] = +{ + "$end", "error", "$undefined", "LOWEST", "IF", "ELSE", "'?'", "':'", + "OROR", "ANDAND", "ANDANDAND", "'|'", "'^'", "XNOR", "'&'", + "CASE_INEQUALITY", "CASE_EQUALITY", "LOGICAL_INEQUALITY", + "LOGICAL_EQUALITY", "GE", "GT", "LE", "LT", "RIGHT_SHIFT", "LEFT_SHIFT", + "'+'", "'-'", "'*'", "'/'", "'%'", "'('", "'['", "'!'", "'~'", + "REDUCTION_NOR", "REDUCTION_NAND", "UNARY", "IDENTIFIER", + "HIERARCHY_IDENTIFIER", "STARARROW", "EQUALARROW", "SPECPARAM", "SETUP", + "HOLD", "PERIOD", "WIDTH", "SKEW", "RECOVERY", "SETUPHOLD", "NOCHANGE", + "MODULE", "MACROMODULE", "ENDMODULE", "SPECIFY", "ENDSPECIFY", + "PRIMITIVE", "ENDPRIMITIVE", "TABLE", "ENDTABLE", "TASK", "ENDTASK", + "FUNCTION", "ENDFUNCTION", "PARAMETER", "INPUT", "OUTPUT", "INOUT", + "NETTYPE", "TRIREG", "SCALARED", "VECTORED", "REG", "TIME", "INTEGER", + "REAL", "EVENT", "ASSIGN", "DEFPARAM", "STRENGTH0", "STRENGTH1", + "SUPPLY0", "SUPPLY1", "LOGIC", "BUFFER", "BUFIF", "CMOS", "PULL", "TRAN", + "INITIAL", "ALWAYS", "CASE", "CASEZ", "CASEX", "ENDCASE", "FOREVER", + "REPEAT", "WHILE", "FOR", "WAIT_", "ARROW_", "DISABLE", "DEASSIGN", + "FORCE", "RELEASE", "DEFAULT", "BEGIN", "END", "FORK", "JOIN", + "SYSTEM_IDENTIFIER", "STRING", "NUMBER", "BASE_NUMBER", "POSEDGE", + "NEGEDGE", "OR", "SMALL", "MEDIUM", "LARGE", "EDGE", "DOUBLE_DIGIT", + "UDP_CHAR", "UDP_ONE", "UDP_ZERO", "UDP_X", "UDP_B", "UDP_HOOK", "EOF_", + "','", "'.'", "'{'", "'}'", "']'", "'='", "'#'", "')'", "'@'", "';'", + "$accept", "source_text", "description_list", "description", "module", + "@1", "@2", "@3", "module_item_list", "list_of_ports_o", "port_clist", + "port", "port_expression_o", "port_reference_clist", "port_reference", + "module_item", "UDP", "@4", "@5", "@6", "UDP_declarations", + "UDP_declaration", "UDP_reg_statement", "UDP_initial_statement", + "UDP_table_definition", "@7", "table_entry_list", "table_entry", + "table_digit_list", "table_digit", "table_digit1", "task", "@8", + "function", "@9", "function_type", "tf_declaration_list", + "tf_declaration", "parameter_declaration", "@10", + "list_of_param_assignments", "param_assignment", "setspec", + "static_declaration", "port_declaration", "port_spec", + "port_decl_identifiers", "reg_spec", "real_spec", "event_spec", + "setnetspec", "net_declaration", "net_spec", "trireg_spec", "@11", + "nettype", "expandrange_o", "continuous_assign", "@12", "assign_spec", + "list_of_net_assignments", "net_assignment", "@13", + "list_of_assignments", "cont_assignment", "@14", "parameter_override", + "list_of_param_overrides", "reg_decl_identifiers", "reg_decl_identifier", + "non_reg_decl_identifiers", "decl_identifiers", "charge_strength_o", + "drive_strength_o", "drive_strength", "strength0", "strength1", "xrange", + "range", "gate_declaration", "@15", "gatetype", "gate_description", + "@16", "@17", "gate_instance_clist", "gate_instance", + "UDP_or_module_instantiation", "@18", "xparameter_value_assignment", + "constant_expression_clist", "terminal_clist", "module_instance_clist", + "module_instance", "list_of_module_connections_o", + "module_port_connection_clist", "module_port_connection", + "named_port_connection_clist", "named_port_connection", + "initial_statement", "@19", "always_statement", "@20", + "statement_or_null", "statement", "@21", "@22", "@23", "@24", "@25", + "@26", "@27", "@28", "@29", "@30", "@31", "@32", "@33", "@34", "@35", + "@36", "@37", "@38", "@39", "@40", "@41", "elsepart", "case", + "assignment", "@42", "case_item_plist", "case_expr", "expression_clist", + "xexpression_clist", "xexpression", "seq_block", "@43", "@44", + "par_block", "@45", "@46", "statement_list", "statement_tree_list", + "block_declaration_list", "block_declaration", "task_enable", + "system_task_enable", "@47", "lvalue", "lval_normal", "specify_block", + "@48", "specify_stuff", "specify_items", "specify_item", + "specparam_declaration", "@49", "path_declaration", "path_description", + "list_of_path_inputs", "list_of_path_outputs", + "specify_input_terminal_descriptor", + "specify_output_terminal_descriptor", "path_delay_value", + "path_delay_expression", "polarity_operator", "path_operator", + "conditional_port_expression", "data_source_expression", + "edge_identifier", "specify_if_clause", "system_timing_check", + "notify_clause", "notify_register", "timing_check_event", + "controlled_timing_check_event", "timing_check_event_control", "@50", + "timing_check_event_control_no_empty", "@51", "edge_list", + "timing_check_condition", "scalar_expression", "scalar_constant", + "timing_input_terminal_descriptor", "lval_concat", "lval_clist", + "conditional_expression", "constant_expression", "mintypmax_expression", + "mintypmax_expression_triplet", "expression", "@52", "@53", "@54", "@55", + "primary", "concatenation", "function_call", "identifier", + "IDENTIFIER_or_OR", "delay_o", "delay", "mintypmax_clist", + "delay_control", "event_control", "@56", "@57", "event_expression", "rp", + "rb", "sc", 0 +}; +#endif + +# ifdef YYPRINT +/* YYTOKNUM[YYLEX-NUM] -- Internal token number corresponding to + token YYLEX-NUM. */ +static const unsigned short int yytoknum[] = +{ + 0, 256, 257, 258, 259, 260, 63, 58, 261, 262, + 263, 124, 94, 264, 38, 265, 266, 267, 268, 269, + 270, 271, 272, 273, 274, 43, 45, 42, 47, 37, + 40, 91, 33, 126, 275, 276, 277, 278, 279, 280, + 281, 282, 283, 284, 285, 286, 287, 288, 289, 290, + 291, 292, 293, 294, 295, 296, 297, 298, 299, 300, + 301, 302, 303, 304, 305, 306, 307, 308, 309, 310, + 311, 312, 313, 314, 315, 316, 317, 318, 319, 320, + 321, 322, 323, 324, 325, 326, 327, 328, 329, 330, + 331, 332, 333, 334, 335, 336, 337, 338, 339, 340, + 341, 342, 343, 344, 345, 346, 347, 348, 349, 350, + 351, 352, 353, 354, 355, 356, 357, 358, 359, 360, + 361, 362, 363, 364, 365, 366, 367, 368, 44, 46, + 123, 125, 93, 61, 35, 41, 64, 59 +}; +# endif + +/* YYR1[YYN] -- Symbol number of symbol that rule YYN derives. */ +static const unsigned short int yyr1[] = +{ + 0, 138, 139, 139, 139, 139, 140, 140, 141, 141, + 143, 144, 145, 142, 146, 146, 146, 147, 147, 148, + 148, 148, 148, 149, 149, 150, 150, 150, 151, 151, + 152, 152, 152, 153, 153, 153, 153, 153, 153, 153, + 153, 153, 153, 153, 153, 153, 155, 156, 157, 154, + 158, 158, 158, 159, 159, 160, 161, 161, 163, 162, + 164, 164, 165, 166, 166, 167, 167, 167, 167, 167, + 167, 167, 168, 168, 168, 168, 168, 170, 169, 172, + 171, 173, 173, 173, 173, 174, 174, 175, 175, 175, + 177, 176, 178, 178, 178, 178, 178, 179, 179, 180, + 181, 181, 181, 182, 183, 183, 183, 184, 184, 184, + 184, 184, 184, 185, 185, 185, 186, 187, 188, 189, + 189, 189, 190, 192, 191, 193, 193, 193, 194, 194, + 194, 194, 196, 195, 197, 198, 198, 198, 198, 198, + 198, 200, 199, 201, 201, 201, 201, 201, 201, 203, + 202, 204, 205, 205, 206, 206, 206, 206, 206, 206, + 207, 207, 208, 208, 209, 209, 210, 210, 210, 210, + 211, 211, 212, 212, 213, 213, 214, 214, 215, 215, + 216, 218, 217, 219, 219, 219, 219, 219, 219, 219, + 221, 220, 222, 220, 223, 223, 224, 224, 226, 225, + 227, 227, 227, 227, 227, 227, 228, 228, 229, 229, + 229, 229, 229, 229, 230, 230, 230, 230, 230, 230, + 231, 231, 232, 232, 233, 233, 233, 233, 234, 234, + 235, 235, 236, 236, 238, 237, 240, 239, 241, 241, + 242, 243, 242, 244, 245, 242, 246, 242, 247, 242, + 248, 242, 249, 242, 250, 242, 251, 242, 252, 242, + 253, 242, 254, 242, 255, 242, 256, 242, 257, 242, + 258, 242, 242, 242, 242, 242, 259, 242, 260, 242, + 261, 242, 262, 242, 263, 242, 264, 264, 265, 265, + 265, 267, 266, 268, 268, 268, 268, 269, 269, 269, + 270, 270, 270, 270, 271, 271, 272, 272, 274, 273, + 275, 273, 277, 276, 278, 276, 279, 279, 279, 280, + 280, 280, 281, 281, 282, 282, 283, 283, 284, 285, + 284, 286, 286, 287, 287, 287, 289, 288, 290, 291, + 291, 291, 292, 292, 292, 294, 293, 295, 296, 296, + 296, 296, 296, 296, 297, 297, 297, 297, 297, 298, + 298, 298, 298, 298, 299, 299, 299, 300, 300, 300, + 301, 301, 301, 301, 302, 303, 303, 304, 304, 305, + 306, 307, 307, 308, 308, 309, 309, 309, 309, 309, + 309, 309, 309, 309, 310, 310, 311, 312, 312, 313, + 313, 314, 314, 314, 315, 314, 316, 316, 317, 316, + 318, 318, 318, 319, 319, 319, 319, 319, 319, 319, + 320, 321, 321, 322, 322, 322, 323, 324, 324, 324, + 324, 324, 324, 324, 324, 324, 325, 326, 327, 327, + 328, 329, 329, 329, 329, 329, 329, 329, 329, 329, + 329, 329, 329, 329, 329, 330, 329, 331, 329, 329, + 329, 332, 329, 333, 329, 329, 329, 329, 329, 329, + 329, 329, 329, 329, 329, 329, 329, 329, 329, 334, + 334, 334, 334, 334, 334, 334, 334, 334, 335, 335, + 336, 336, 336, 337, 337, 338, 338, 339, 339, 340, + 340, 340, 341, 341, 341, 342, 342, 342, 344, 343, + 345, 343, 346, 346, 346, 346, 347, 348, 348, 349 +}; + +/* YYR2[YYN] -- Number of symbols composing right hand side of rule YYN. */ +static const unsigned char yyr2[] = +{ + 0, 2, 1, 2, 1, 1, 1, 2, 1, 1, + 0, 0, 0, 9, 0, 2, 2, 3, 0, 1, + 3, 1, 3, 1, 5, 1, 3, 0, 1, 3, + 1, 4, 6, 1, 1, 1, 1, 1, 1, 1, + 1, 1, 1, 1, 1, 1, 0, 0, 0, 11, + 0, 2, 2, 1, 1, 3, 0, 5, 0, 4, + 1, 2, 2, 0, 2, 1, 1, 1, 1, 1, + 1, 4, 1, 1, 1, 1, 1, 0, 7, 0, + 8, 0, 1, 1, 1, 0, 2, 1, 1, 1, + 0, 5, 1, 3, 1, 3, 3, 3, 3, 0, + 4, 4, 4, 4, 2, 2, 2, 1, 3, 1, + 2, 3, 3, 2, 2, 2, 1, 1, 0, 4, + 4, 4, 3, 0, 5, 1, 1, 1, 1, 2, + 2, 0, 0, 5, 3, 1, 3, 1, 2, 3, + 3, 0, 4, 1, 3, 1, 2, 3, 3, 0, + 4, 3, 3, 5, 1, 3, 1, 2, 3, 3, + 1, 6, 1, 3, 1, 3, 0, 3, 3, 3, + 0, 1, 5, 5, 1, 1, 1, 1, 0, 1, + 5, 0, 3, 1, 1, 1, 1, 1, 1, 1, + 0, 3, 0, 4, 1, 3, 4, 3, 0, 5, + 0, 2, 4, 4, 6, 8, 1, 3, 1, 3, + 1, 2, 3, 3, 1, 3, 1, 2, 3, 3, + 4, 3, 1, 1, 1, 3, 1, 3, 1, 0, + 1, 3, 5, 4, 0, 3, 0, 3, 1, 1, + 2, 0, 7, 0, 0, 8, 0, 3, 0, 6, + 0, 6, 0, 10, 0, 3, 0, 3, 0, 6, + 0, 6, 0, 5, 0, 6, 0, 6, 0, 6, + 0, 4, 1, 1, 1, 1, 0, 4, 0, 6, + 0, 4, 0, 6, 0, 4, 0, 2, 1, 1, + 1, 0, 4, 1, 2, 1, 2, 3, 3, 2, + 1, 3, 1, 3, 1, 3, 0, 1, 0, 4, + 0, 7, 0, 4, 0, 7, 0, 2, 2, 0, + 2, 2, 0, 2, 1, 1, 2, 5, 2, 0, + 6, 1, 1, 1, 4, 6, 0, 3, 2, 0, + 2, 2, 1, 1, 1, 0, 4, 5, 9, 10, + 10, 11, 5, 6, 1, 3, 1, 3, 3, 1, + 3, 1, 3, 3, 1, 4, 6, 1, 4, 6, + 1, 5, 7, 13, 1, 1, 1, 1, 1, 1, + 1, 1, 1, 0, 4, 10, 10, 8, 7, 10, + 10, 10, 12, 11, 0, 2, 1, 2, 4, 2, + 4, 0, 1, 1, 0, 5, 1, 1, 0, 5, + 1, 3, 1, 1, 3, 2, 3, 3, 3, 3, + 1, 1, 1, 1, 4, 6, 3, 1, 1, 3, + 3, 1, 2, 3, 3, 3, 1, 1, 1, 5, + 5, 1, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 3, 3, 3, 0, 4, 0, 4, 3, + 3, 0, 4, 0, 4, 3, 3, 3, 3, 3, + 3, 3, 3, 3, 3, 3, 3, 5, 1, 1, + 1, 1, 4, 6, 1, 1, 3, 3, 3, 6, + 4, 4, 1, 1, 1, 1, 1, 0, 1, 2, + 2, 4, 1, 3, 5, 2, 2, 4, 0, 3, + 0, 5, 1, 2, 2, 3, 1, 1, 1, 1 +}; + +/* YYDEFACT[STATE-NAME] -- Default rule to reduce with in state + STATE-NUM when YYTABLE doesn't specify something else to do. Zero + means the default is an error. */ +static const unsigned short int yydefact[] = +{ + 0, 4, 241, 494, 493, 10, 46, 278, 246, 248, + 250, 252, 268, 270, 276, 280, 282, 284, 308, 312, + 329, 5, 0, 0, 508, 0, 0, 6, 8, 9, + 2, 0, 0, 272, 273, 274, 275, 0, 331, 332, + 333, 254, 256, 0, 0, 0, 0, 243, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 316, 0, + 319, 519, 0, 328, 431, 427, 428, 0, 333, 0, + 505, 506, 510, 0, 1, 3, 7, 288, 289, 290, + 244, 240, 262, 291, 0, 0, 326, 243, 243, 0, + 495, 496, 11, 47, 0, 247, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 310, 0, 314, 0, 306, + 432, 0, 426, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 492, 478, 479, 480, 0, 0, + 438, 441, 484, 485, 481, 0, 509, 0, 0, 0, + 0, 0, 0, 0, 302, 0, 300, 0, 255, 238, + 239, 257, 0, 18, 18, 0, 0, 0, 0, 0, + 0, 436, 271, 277, 281, 0, 285, 322, 318, 309, + 317, 322, 321, 313, 320, 0, 304, 307, 433, 434, + 435, 429, 430, 448, 450, 451, 446, 442, 443, 0, + 0, 444, 445, 449, 447, 306, 0, 0, 300, 516, + 507, 0, 0, 0, 0, 0, 0, 0, 0, 463, + 461, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 455, 457, 306, 0, 0, 0, 512, 0, + 0, 0, 0, 0, 0, 0, 292, 0, 0, 0, + 334, 243, 0, 0, 0, 0, 243, 243, 0, 291, + 243, 0, 316, 319, 306, 0, 487, 486, 0, 488, + 0, 0, 0, 466, 465, 472, 473, 474, 471, 0, + 0, 460, 459, 470, 469, 468, 467, 476, 475, 452, + 453, 454, 0, 0, 0, 0, 437, 513, 514, 0, + 511, 0, 263, 0, 0, 0, 0, 303, 301, 327, + 0, 286, 21, 30, 0, 0, 0, 19, 23, 25, + 12, 48, 279, 249, 251, 0, 269, 283, 178, 178, + 178, 178, 116, 117, 324, 325, 99, 99, 99, 0, + 323, 0, 305, 330, 491, 0, 0, 0, 464, 462, + 456, 458, 490, 0, 482, 515, 0, 265, 267, 259, + 261, 335, 243, 242, 0, 0, 0, 28, 0, 17, + 14, 50, 0, 0, 90, 179, 113, 115, 114, 0, + 0, 0, 311, 315, 0, 477, 439, 0, 437, 295, + 243, 0, 293, 0, 287, 0, 27, 0, 26, 22, + 20, 0, 0, 0, 0, 0, 156, 160, 0, 154, + 164, 0, 162, 0, 489, 483, 243, 299, 296, 245, + 294, 243, 0, 31, 0, 29, 16, 200, 13, 336, + 0, 81, 178, 178, 178, 125, 123, 170, 0, 126, + 127, 183, 185, 186, 187, 188, 189, 234, 236, 184, + 15, 44, 45, 33, 36, 34, 99, 35, 118, 99, + 131, 40, 99, 39, 37, 181, 38, 42, 43, 41, + 52, 0, 0, 51, 54, 0, 53, 243, 0, 94, + 0, 0, 92, 0, 157, 0, 100, 0, 102, 0, + 101, 298, 297, 0, 24, 0, 198, 339, 0, 83, + 84, 0, 82, 104, 105, 106, 166, 0, 497, 171, + 0, 0, 243, 243, 0, 0, 0, 0, 0, 497, + 128, 132, 190, 0, 0, 58, 0, 253, 0, 0, + 0, 0, 91, 0, 158, 159, 155, 165, 163, 32, + 0, 201, 0, 337, 0, 77, 0, 0, 131, 174, + 176, 175, 177, 0, 0, 0, 134, 498, 0, 151, + 0, 235, 237, 109, 107, 0, 137, 164, 0, 135, + 0, 0, 129, 130, 122, 0, 182, 0, 192, 55, + 0, 63, 49, 518, 517, 180, 97, 98, 437, 95, + 96, 93, 0, 0, 206, 0, 437, 216, 0, 0, + 0, 214, 341, 0, 345, 0, 0, 0, 0, 0, + 0, 0, 0, 338, 340, 342, 343, 0, 344, 85, + 79, 0, 0, 0, 497, 0, 0, 0, 499, 500, + 0, 152, 110, 0, 103, 141, 138, 0, 121, 119, + 120, 145, 0, 143, 0, 0, 0, 0, 194, 0, + 422, 421, 0, 63, 60, 0, 0, 0, 0, 202, + 0, 516, 226, 0, 0, 222, 224, 223, 230, 228, + 0, 217, 0, 199, 0, 0, 401, 401, 0, 0, + 401, 0, 401, 0, 0, 0, 243, 85, 167, 168, + 169, 124, 0, 0, 502, 0, 0, 111, 112, 108, + 0, 0, 139, 140, 136, 146, 0, 133, 149, 210, + 0, 208, 0, 0, 191, 0, 57, 59, 61, 0, + 65, 68, 67, 70, 69, 66, 64, 62, 0, 161, + 207, 0, 0, 221, 0, 0, 0, 218, 219, 215, + 0, 379, 0, 402, 403, 0, 0, 0, 0, 406, + 407, 0, 0, 0, 0, 0, 0, 0, 0, 356, + 364, 381, 382, 0, 354, 0, 0, 86, 87, 89, + 88, 0, 243, 172, 173, 0, 501, 153, 142, 147, + 148, 144, 0, 211, 0, 197, 0, 195, 193, 74, + 73, 72, 75, 76, 0, 0, 0, 204, 0, 227, + 225, 231, 220, 384, 346, 404, 401, 397, 423, 401, + 408, 0, 399, 0, 401, 401, 401, 401, 0, 0, + 375, 376, 377, 378, 0, 0, 0, 0, 0, 0, + 370, 374, 78, 0, 503, 150, 212, 213, 209, 196, + 0, 440, 0, 0, 233, 0, 0, 0, 0, 0, + 0, 394, 0, 0, 0, 0, 0, 0, 0, 357, + 358, 355, 0, 361, 0, 367, 0, 359, 0, 0, + 374, 347, 80, 0, 71, 205, 232, 412, 410, 0, + 0, 0, 0, 420, 398, 413, 0, 437, 0, 0, + 0, 0, 400, 0, 0, 0, 0, 0, 0, 0, + 365, 0, 0, 0, 0, 0, 352, 0, 0, 504, + 0, 405, 394, 0, 415, 0, 0, 0, 0, 0, + 424, 394, 409, 396, 395, 0, 394, 388, 394, 394, + 0, 0, 0, 353, 0, 0, 0, 362, 363, 360, + 0, 0, 411, 0, 414, 418, 417, 419, 416, 0, + 0, 387, 0, 0, 0, 0, 0, 366, 0, 380, + 0, 0, 368, 0, 0, 0, 371, 0, 425, 0, + 0, 0, 0, 394, 0, 0, 0, 0, 0, 0, + 0, 385, 386, 389, 390, 391, 0, 0, 348, 0, + 369, 0, 0, 0, 372, 0, 393, 350, 349, 0, + 0, 392, 351, 0, 0, 0, 0, 373 +}; + +/* YYDEFGOTO[NTERM-NUM]. */ +static const short int yydefgoto[] = +{ + -1, 25, 26, 27, 28, 44, 153, 360, 391, 243, + 306, 307, 308, 356, 309, 440, 29, 45, 154, 361, + 392, 463, 464, 465, 516, 571, 643, 644, 645, 716, + 784, 441, 609, 442, 677, 491, 676, 757, 324, 395, + 471, 472, 369, 325, 760, 446, 555, 326, 327, 328, + 505, 447, 448, 449, 496, 450, 509, 451, 565, 452, + 558, 559, 690, 632, 633, 772, 453, 500, 398, 399, + 403, 401, 538, 498, 499, 543, 544, 364, 365, 454, + 512, 455, 566, 567, 639, 637, 638, 456, 532, 486, + 583, 700, 590, 591, 654, 655, 656, 657, 658, 457, + 502, 458, 503, 148, 149, 43, 31, 137, 47, 48, + 49, 50, 87, 88, 141, 142, 138, 139, 140, 51, + 52, 53, 46, 54, 55, 56, 353, 80, 32, 143, + 381, 382, 383, 175, 176, 33, 58, 167, 34, 60, + 171, 106, 108, 252, 330, 35, 36, 62, 37, 38, + 459, 487, 533, 534, 604, 605, 665, 606, 675, 753, + 856, 754, 857, 819, 820, 815, 816, 730, 948, 755, + 607, 608, 881, 914, 736, 742, 737, 835, 743, 840, + 869, 874, 875, 642, 797, 39, 67, 160, 197, 821, + 577, 378, 282, 283, 270, 269, 131, 132, 133, 134, + 92, 546, 547, 685, 41, 42, 73, 135, 229, 257, + 575, 150 +}; + +/* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing + STATE-NUM. */ +#define YYPACT_NINF -826 +static const short int yypact[] = +{ + 538, -826, -826, -826, -826, -826, -826, -826, -826, -826, + -826, -826, -826, -826, -826, -826, -826, -826, 58, 117, + 51, -826, 53, 10, 107, 237, -19, -826, -826, -826, + -826, 513, 51, -826, -826, -826, -826, 1, -826, -826, + 80, -826, -826, 239, -9, 248, 245, 1349, 280, 301, + 309, 392, 184, 184, 245, 245, 245, 257, -826, 397, + -826, -826, 398, -826, -826, -826, -826, 4, 416, 2182, + -826, -826, -826, 184, -826, -826, -826, -826, -826, -826, + -826, -826, -51, -16, 1643, 2182, -826, 1305, 1305, 2182, + -826, -826, -826, -826, 356, -826, 2182, 2182, 245, 2182, + 51, 51, 51, 359, 51, -826, 926, -826, 1065, 2182, + 245, 85, -826, 361, 361, 361, 361, 361, 361, 1682, + 361, 361, 361, 361, 470, -826, -826, -826, 1643, 380, + 2383, -826, -826, -826, 296, 676, -826, 504, 2182, 424, + 407, 424, 407, 2182, -826, 244, 2505, 1890, -826, -826, + -826, -826, 1526, 521, 521, 2182, 1526, 1526, 51, 430, + 380, 2505, -826, -826, -826, 2182, -826, -826, -826, -826, + -826, -826, -826, -826, -826, 303, -826, 2505, -826, -826, + -826, -826, -826, -826, -826, -826, -826, -826, -826, 380, + 380, -826, -826, -826, -826, 2182, 153, 443, 2012, -826, + -826, 2182, 2182, 2182, 2182, 2182, 2182, 2182, 2182, -826, + -826, 2182, 2182, 2182, 2182, 2182, 2182, 2182, 2182, 2182, + 2182, 2182, -826, -826, 2182, 2182, 2182, 2182, 2505, -63, + 2182, 1478, 2182, 2182, 2182, 2182, 2505, 1731, 51, 2182, + -826, 1305, 24, 51, 51, 1478, 1349, 1349, 2182, -826, + 1305, 1478, 411, 411, 2182, 51, -826, -826, 303, -826, + 1643, 2409, 2433, 1448, 2524, 2542, 1848, 1848, 2059, 2182, + 2182, 483, 483, 712, 712, 712, 712, 558, 558, 468, + 468, -826, 2182, 2182, 303, 582, 1939, 2505, 2505, 676, + -826, 1526, -826, 1478, 1478, 1478, 1478, -826, 2505, -826, + 1963, 586, -826, 570, 574, 576, 324, -826, -826, -826, + -826, -826, -826, -826, -826, 1478, -826, -826, 590, 590, + 590, 590, -826, -826, -826, -826, -826, -826, -826, 1112, + -826, 1185, -826, -826, -826, 259, 2182, 2182, 483, 483, + -826, -826, -826, 2182, -826, -826, 1594, -826, -826, -826, + -826, -826, 1305, -826, 2182, 593, 276, -826, 132, -826, + -826, -826, 245, 2182, -826, -826, -826, -826, -826, 36, + 594, 605, -826, -826, 530, 2505, 2505, 531, 2505, 0, + 423, 1555, -826, 28, -826, 12, -14, 576, -826, -826, + -826, 2299, 379, 380, 657, 41, -826, 635, 8, -826, + -826, -82, -826, -41, -826, -826, 1305, -826, 0, -826, + -826, 1305, 2182, -826, 380, -826, -826, 535, -826, -826, + 633, 40, 590, 590, 590, -826, -826, 641, 184, -826, + -826, -826, -826, -826, -826, -826, -826, -826, -826, -826, + -826, -826, -826, -826, -826, -826, -826, -826, -826, -826, + 290, -826, -826, -826, -826, -826, -826, -826, -826, -826, + -826, 638, 639, -826, -826, 616, -826, 1349, 2182, -826, + 545, 23, -826, 2182, 642, 52, -826, 643, -826, 645, + -826, -826, -826, 551, -826, 2210, -826, -826, 51, -826, + -826, 649, -826, -826, -826, -826, 666, 500, 564, -826, + 216, 566, 1349, 1349, 204, 279, 594, 590, 590, 564, + -826, -826, 564, 51, 567, -826, 647, -826, 38, 2182, + 667, 298, -826, 698, -826, -826, -826, -826, -826, -826, + 1682, -826, 67, -826, 855, -826, 51, 491, 290, -826, + -826, -826, -826, 579, 587, 282, -826, -826, 184, -826, + 2182, -826, -826, -826, -826, 61, -826, 584, 73, -826, + -82, -82, -826, -826, -826, 195, -826, 434, -826, -826, + 265, -826, -826, -826, -826, -826, -826, -826, 2457, -826, + -826, -826, 2182, 341, -826, 353, 2383, -826, 840, 689, + 75, -826, -826, 690, -826, 692, 693, 697, 699, 700, + 701, 714, 717, -826, -826, -826, -826, 719, -826, -826, + -826, 380, 380, 380, 564, 219, 278, 2182, -826, -826, + 595, -826, 705, 317, -826, -826, 715, 363, -826, -826, + -826, -826, 76, -826, 618, 1770, 723, 277, -826, 434, + -826, -826, 51, 702, -826, 226, 2182, 623, 2182, -826, + 2182, 271, -826, 720, 380, 628, -826, 630, -826, 2505, + 840, 457, 306, -826, 2182, 41, 453, 453, 455, 455, + 453, 455, 453, 455, 190, 626, 1261, -826, -826, -826, + -826, -826, 380, 380, 634, 380, 2182, -826, -826, -826, + 2182, 584, -826, -826, -826, 245, 215, -826, -826, -826, + 74, 2505, 1770, 434, -826, 277, -826, -826, -826, 474, + -826, -826, -826, -826, -826, -826, -826, -826, 2481, -826, + -826, 401, 734, -826, 1219, 637, 380, -826, -826, -826, + 380, 2505, 23, -826, -826, 740, 644, 184, 646, -826, + -826, 742, 648, 184, 651, 652, 653, 655, 656, -826, + 744, -826, -826, 238, -826, 381, 2238, -826, -826, -826, + -826, 731, 1261, -826, -826, 2182, -826, -826, 2505, -826, + -826, -826, 2182, 2182, 1819, -826, 74, -826, -826, -826, + -826, -826, -826, -826, 474, 2182, 2182, -826, 2035, -826, + -826, -826, -826, -826, -826, -826, 453, 755, 746, 453, + -826, 2182, 782, 2182, 453, 453, 453, 453, 2182, 756, + -826, -826, -826, -826, 396, 370, 428, 205, 1682, 51, + -826, -826, -826, 732, 668, 2505, 2505, -826, 2505, -826, + 380, 2505, 662, 1526, -826, 20, 672, 387, 2182, 673, + 20, 2085, 387, 1502, 674, 675, 679, 680, 25, -826, + -826, -826, 405, -826, 405, 773, 91, -826, 780, 684, + 380, -826, -826, 2182, -826, -826, -826, -826, 685, 38, + 2182, 387, 777, -826, -826, 636, 808, 1987, 2182, 38, + 779, 380, -826, 2182, 51, 2182, 2182, 2182, 2182, 2182, + -826, 91, 264, 2182, 783, 418, -826, 405, 2182, -826, + 20, -826, 2085, 686, -826, 265, 265, 265, 265, 2182, + -826, 2085, -826, -826, -826, 51, 2085, -826, 2085, 2085, + 2109, 2160, 38, -826, 2182, 812, 26, -826, -826, -826, + 304, 409, -826, 380, -826, -826, -826, -826, -826, 694, + 380, -826, 380, 380, 380, 2182, 2182, -826, 380, 2505, + 2182, 2182, -826, 2182, 815, 2182, -826, 51, -826, 51, + 51, 51, 51, 2085, 1526, 380, 380, 38, 380, 2182, + 417, -826, -826, -826, -826, -826, 380, 51, -826, 380, + -826, 380, 380, 2182, -826, 51, -826, -826, -826, 380, + 696, -826, -826, 2182, 703, 2182, 380, -826 +}; + +/* YYPGOTO[NTERM-NUM]. */ +static const short int yypgoto[] = +{ + -826, -826, -826, 801, -826, -826, -826, -826, -826, 678, + -826, 471, 442, -826, -275, -826, -826, -826, -826, -826, + -826, -826, -826, -826, -826, -826, -826, 191, -826, -826, + 49, -826, -826, -826, -826, -826, 158, -826, -389, -826, + 171, 34, -198, -388, 155, -826, -826, -826, -826, -826, + -826, -826, -826, -826, -826, -826, 299, -826, -826, -826, + -826, -11, -826, -826, -77, -826, -826, -826, -826, 152, + -826, 143, -826, -826, -826, 228, 234, -28, -407, -826, + -826, -826, -826, -826, -826, 211, 159, -826, -826, -826, + -826, 166, -826, -6, 201, -826, 131, -826, 144, -826, + -826, -826, -826, 5, 11, -826, -826, -826, -826, -826, + -826, -826, -826, -826, -826, -826, -826, -826, -826, -826, + -826, -826, -826, -826, -826, -826, -826, -826, -94, -826, + -826, 490, -78, -125, 622, -826, -826, -826, -826, -826, + -826, 627, 629, 710, -826, -826, -826, -826, -38, 16, + -826, -826, -826, -826, -826, -826, -826, -826, -826, 133, + -788, -707, -235, -826, -755, -825, -378, -826, -703, -826, + -826, -826, -462, -826, -657, -79, -826, -826, -826, -826, + -806, -635, 14, -214, 146, 212, -826, -826, -84, -68, + -826, -40, -826, -826, -826, -826, 803, -826, -826, 315, + -826, -468, 378, -826, 336, 391, -826, -826, 602, 157, + -514, -20 +}; + +/* YYTABLE[YYPACT[STATE-NUM]]. What to do in state STATE-NUM. If + positive, shift that token. If negative, reduce the rule which + number is the opposite. If zero, do what YYDEFACT says. + If YYTABLE_NINF, syntax error. */ +#define YYTABLE_NINF -438 +static const short int yytable[] = +{ + 63, 129, 443, 444, 158, 110, 145, -302, 94, 474, + 738, 30, 81, 745, 492, 747, 102, 103, 104, 412, + 86, 867, 82, 303, 520, 302, 573, 573, 90, 130, + 357, 5, 889, 951, 879, 411, 6, 396, 65, 573, + 69, 564, 469, 510, 146, 147, 477, 3, 4, 152, + 196, 190, 289, 525, 64, 61, 156, 157, 95, 161, + 159, 303, 622, 859, 891, 57, 892, 925, 587, 177, + 258, 363, 199, 397, 626, 773, 661, 695, 470, 130, + 162, 163, 164, -264, 166, -266, 180, 479, 198, 397, + 3, 4, 894, 151, 932, 228, 61, 588, 231, 284, + 562, 563, 849, 236, 589, 954, 91, 851, 75, 930, + 84, 85, 415, 489, 490, 245, 305, 170, -258, 174, + -260, 70, 3, 4, 59, 251, 178, 181, -302, 370, + 371, 510, 111, 389, 83, 112, 475, 72, 248, 836, + 868, 285, 839, 931, 413, 61, 681, 844, 845, 846, + 847, 521, -27, 304, 305, 177, 237, 574, 574, -27, + 61, 261, 262, 263, 264, 265, 266, 267, 268, 303, + 574, 271, 272, 273, 274, 275, 276, 277, 278, 279, + 280, 281, 335, 22, 177, 286, 287, 288, 61, 623, + 291, 749, 293, 294, 295, 296, 631, 298, 61, 300, + 970, 627, 774, 662, 696, 553, 809, 882, 315, 199, + 61, 292, 61, 61, 177, 22, 770, 61, 299, 895, + 146, 3, 4, 310, 311, 312, 199, 750, 990, 338, + 339, 317, 3, 4, 66, 333, 903, 74, 994, 809, + 996, 554, 340, 341, 812, 813, 301, 966, 504, 228, + 968, 506, 3, 4, 511, 316, 709, 313, 314, 377, + -27, 304, 305, 810, 811, 894, 982, -27, 393, 89, + 385, 924, -203, 347, 348, 349, 350, 812, 813, 394, + 556, 237, 3, 4, 259, 93, 200, 758, 759, 810, + 811, 366, 367, 368, 105, 362, 375, 376, 540, 580, + 542, -203, 238, 751, 752, 894, 146, 728, -203, 241, + 96, 953, 617, 246, 247, 40, 557, 250, 688, 3, + 4, 363, 179, 182, 159, 22, 224, 225, 483, 810, + 811, 97, 255, 814, 890, 470, 588, 68, 71, 98, + 170, 146, 174, 589, 548, 22, 256, 710, 711, 712, + 713, 714, 715, 61, 689, 901, 539, 384, 541, 507, + 508, 68, 40, 61, 693, 912, 814, 100, 101, 68, + 68, 68, 237, 758, 759, 22, 640, 641, 476, 199, + 460, 478, 749, 480, 518, 407, 290, 237, 136, 523, + 374, 119, 895, 618, 493, 494, 495, 850, 3, 4, + 691, 531, 40, 40, 387, 703, 853, 388, 947, 812, + 813, 481, 952, 68, 61, 334, 482, 871, 750, 928, + 872, 40, 99, 40, 873, 68, 68, 2, 109, 853, + 406, 254, 895, 750, 107, 576, -56, 852, 199, 858, + 933, 342, 855, 422, 423, 424, 584, 85, 346, 940, + 461, 522, 358, 980, 942, 855, 943, 944, 854, 199, + 3, 4, 585, 359, 635, 855, 621, 462, 535, 648, + 124, 636, 126, 127, 318, 232, 649, 234, 517, 578, + 549, 650, 319, 320, 321, 322, 323, 588, 651, 155, + 586, 128, 165, 569, 589, 221, 222, 223, 647, 7, + 195, 976, 213, 214, 215, 216, 217, 218, 219, 220, + 221, 222, 223, 551, 552, 199, 610, 8, 9, 10, + 11, 12, 13, 14, 15, 16, 17, 634, 18, 786, + 19, 233, 20, 235, 230, 624, 787, 955, 628, 1, + 629, 630, 2, 24, 199, 983, 445, 466, 659, 684, + 467, 242, 199, 22, 579, 581, 40, 23, 23, 24, + 61, 40, 40, 249, 720, 40, 733, 734, 739, 740, + 663, 484, 735, 260, 741, 3, 4, 130, 539, 540, + 541, 542, 721, 219, 220, 221, 222, 223, 5, 343, + 744, 352, 746, 6, 748, 701, 779, 780, 781, 782, + 783, 354, 767, 77, 78, 79, 718, 611, 612, 613, + 130, 355, 697, 303, 7, 692, 694, 704, 769, 771, + 659, 363, 706, 386, 731, 717, 524, 526, -243, -243, + -243, 400, 8, 9, 10, 11, 12, 13, 14, 15, + 16, 17, 402, 18, 40, 19, 40, 20, 560, 561, + 768, 905, 906, 907, 908, 727, 729, 634, 634, 927, + 929, 404, 701, 405, 468, 21, 473, 40, 22, 485, + 488, 497, 23, 515, 24, 513, 514, 68, 519, 397, + 527, 761, 528, 529, 659, 778, 536, 113, 114, 115, + 116, 935, 936, 937, 938, 40, 537, 824, 545, 550, + 570, 117, 118, 572, 470, 582, 119, 615, 120, 121, + 122, 123, 794, 3, 4, 616, 130, 625, 832, 660, + 664, 40, 666, 667, 848, 130, 40, 668, 686, 669, + 670, 671, 825, 826, 828, 217, 218, 219, 220, 221, + 222, 223, 687, 501, 672, 831, 130, 673, 833, 674, + 860, 698, 691, 702, 876, 719, 724, 722, 725, 756, + 707, 841, 765, 843, 788, 837, 653, 823, 678, 679, + 680, 795, 796, 800, 799, 808, 801, 838, 130, 803, + 804, 805, 40, 806, 807, 124, 125, 126, 127, 226, + 227, 822, 842, 750, 862, 899, 863, 865, 877, 861, + 870, 878, 885, 886, 893, 922, 128, 887, 888, 926, + 897, 723, 898, 900, 873, 909, 913, 40, 40, 950, + 855, 934, 969, 130, 993, 939, 958, 76, 414, 390, + 902, 995, 244, 830, 708, 762, 732, 614, 911, 763, + 764, 652, 766, 916, 683, 918, 919, 920, 921, 682, + 705, 113, 114, 115, 116, 790, 592, 775, 130, 593, + 619, 726, 777, 620, 917, 117, 118, 967, 776, 791, + 119, 410, 120, 121, 122, 123, 332, 3, 4, 329, + 68, 253, 331, 792, 949, -383, 904, 793, 817, 802, + 568, 345, 0, 0, 0, 941, 594, 595, 596, 597, + 598, 599, 600, 601, 602, 963, 964, 0, 0, 603, + 949, 0, 0, 949, 0, 130, 183, 184, 185, 186, + 187, 188, 0, 191, 192, 193, 194, 168, 0, 949, + 2, 0, 0, 829, 0, 0, 0, 971, 0, 972, + 973, 974, 975, 130, 0, 834, 0, 0, 0, 124, + 125, 126, 127, 130, 0, 130, 0, 986, 0, 0, + 0, 0, 0, 3, 4, 991, 0, 0, -229, 653, + 128, 0, 0, 0, 0, -229, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 864, 0, 0, + 866, 40, 0, 0, 0, 0, 0, 0, 0, 0, + 884, 0, 7, 0, 0, 0, 0, 0, 0, 0, + 68, 68, 0, 896, 0, 0, -243, -243, -243, 0, + 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, + 0, 18, 169, 19, 0, 20, 0, 0, 915, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 923, 0, + 0, 0, 798, 0, 0, 0, 22, 0, 798, 0, + 23, 0, 24, 0, 0, 0, 172, 0, 0, 2, + 0, 0, 0, 0, 0, 0, 0, 40, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 956, 0, + 957, 0, 0, 0, 0, 0, 0, 959, 0, 960, + 961, 962, 3, 4, 0, 965, 0, 0, 0, 0, + 0, 0, 0, 168, 0, 0, 2, 0, 0, 0, + 0, 977, 978, 979, 0, 981, 0, 984, 0, 0, + 0, 0, 0, 985, 0, 0, 987, 0, 988, 989, + 0, 7, 0, 0, 0, 0, 992, 0, 0, 3, + 4, 0, 0, 997, 0, -243, -243, -243, 0, 8, + 9, 10, 11, 12, 13, 14, 15, 16, 17, 0, + 18, 0, 19, 173, 20, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 172, 0, 7, 2, + 0, 0, 0, 0, 0, 22, 0, 0, 0, 23, + 0, 24, -243, -243, -243, 0, 8, 9, 10, 11, + 12, 13, 14, 15, 16, 17, 0, 18, 372, 19, + 789, 20, 3, 4, 0, 0, 0, 0, 0, 0, + 113, 114, 115, 116, 0, 0, 0, 0, 0, 0, + 0, 0, 22, 0, 117, 118, 23, 0, 24, 119, + 0, 120, 121, 122, 123, 0, 3, 4, 0, 0, + 0, 7, 0, 0, 0, 2, 0, 0, 0, 0, + 0, 0, 0, 0, 0, -243, -243, -243, 0, 8, + 9, 10, 11, 12, 13, 14, 15, 16, 17, 0, + 18, 0, 19, 373, 20, 0, 0, 0, 3, 4, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, + 0, 0, 0, 0, 0, 22, 0, 0, 0, 23, + 0, 24, 0, 0, 318, 422, 423, 424, 124, 125, + 126, 127, 319, 320, 321, 322, 323, 7, 0, 0, + 0, 0, 3, 4, 0, 0, 0, -229, 0, 128, + 0, 0, 0, 2, -229, 8, 9, 10, 11, 12, + 13, 14, 15, 16, 17, 0, 18, 0, 19, 0, + 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 7, 0, 0, 0, 0, 3, 4, 0, 0, + 0, 22, 0, 0, 0, 23, 0, 24, 61, 8, + 9, 10, 11, 12, 13, 14, 15, 16, 17, 0, + 18, 0, 19, 0, 20, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 7, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 22, 0, 0, 0, 23, + 0, 24, 61, 8, 9, 10, 11, 12, 13, 14, + 15, 16, 17, 0, 18, 0, 19, 204, 20, 205, + 206, 207, 208, 209, 210, 211, 212, 213, 214, 215, + 216, 217, 218, 219, 220, 221, 222, 223, 0, 22, + 0, 0, 0, 23, 201, 24, 203, 204, 0, 205, + 206, 207, 208, 209, 210, 211, 212, 213, 214, 215, + 216, 217, 218, 219, 220, 221, 222, 223, 201, 0, + 203, 204, 0, 205, 206, 207, 208, 209, 210, 211, + 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, + 222, 223, 201, 0, 203, 204, 0, 205, 206, 207, + 208, 209, 210, 211, 212, 213, 214, 215, 216, 217, + 218, 219, 220, 221, 222, 223, 408, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 113, 114, 115, 116, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 117, 118, 0, 0, 0, 119, 0, 120, 121, 122, + 123, 0, 3, 4, 0, 379, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 113, 114, 115, 116, 0, + 0, 0, 0, 0, 0, 61, 0, 0, 0, 117, + 118, 0, 0, 0, 119, 0, 120, 121, 122, 123, + 883, 3, 4, 0, 0, 0, 0, 199, 0, 0, + 0, 0, 0, 0, 144, 0, 0, 0, 409, 0, + 0, 0, 0, 0, 113, 114, 115, 116, 0, 380, + 0, 199, 0, 0, 124, 125, 126, 127, 117, 118, + 0, 0, 0, 119, 0, 120, 121, 122, 123, 0, + 3, 4, 0, 189, 0, 128, 0, 0, 0, 0, + 0, 0, 0, 113, 114, 115, 116, 0, 380, 0, + 0, 0, 0, 124, 125, 126, 127, 117, 118, 0, + 0, 0, 119, 0, 120, 121, 122, 123, 0, 3, + 4, 0, 0, 0, 128, 0, 0, 0, 0, 0, + 0, 0, 297, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 113, 114, 115, 116, 0, 0, 0, 0, + 0, 0, 124, 125, 126, 127, 117, 118, 0, 0, + 0, 119, 0, 120, 121, 122, 123, 0, 3, 4, + 0, 699, 0, 128, 0, 0, 0, 0, 0, 0, + 0, 113, 114, 115, 116, 0, 0, 0, 0, 0, + 0, 124, 125, 126, 127, 117, 118, 0, 0, 0, + 119, 0, 120, 121, 122, 123, 0, 3, 4, 0, + 0, 0, 128, 0, 0, 0, 0, 0, 0, 0, + 827, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 113, 114, 115, 116, 0, 0, 0, 0, 0, 0, + 124, 125, 126, 127, 117, 118, 0, 0, 0, 119, + 0, 120, 121, 122, 123, 0, 3, 4, 0, 0, + 0, 128, 208, 209, 210, 211, 212, 213, 214, 215, + 216, 217, 218, 219, 220, 221, 222, 223, 0, 124, + 125, 126, 127, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 201, 239, 203, 204, + 128, 205, 206, 207, 208, 209, 210, 211, 212, 213, + 214, 215, 216, 217, 218, 219, 220, 221, 222, 223, + 0, 0, 0, 0, 0, 0, 0, 0, 124, 125, + 126, 127, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 201, 0, 203, 204, 128, + 205, 206, 207, 208, 209, 210, 211, 212, 213, 214, + 215, 216, 217, 218, 219, 220, 221, 222, 223, 201, + 0, 203, 204, 0, 205, 206, 207, 208, 209, 210, + 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, + 221, 222, 223, 201, 0, 203, 204, 0, 205, 206, + 207, 208, 209, 210, 211, 212, 213, 214, 215, 216, + 217, 218, 219, 220, 221, 222, 223, 0, 201, 0, + 203, 204, 240, 205, 206, 207, 208, 209, 210, 211, + 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, + 222, 223, 0, 0, 0, 0, 113, 114, 115, 116, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 117, 118, 0, 0, 0, 119, 0, 120, 121, 122, + 123, 344, 3, 4, 209, 210, 211, 212, 213, 214, + 215, 216, 217, 218, 219, 220, 221, 222, 223, 0, + 0, 201, 0, 203, 204, 351, 205, 206, 207, 208, + 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, + 219, 220, 221, 222, 223, 201, 0, 203, 204, 910, + 205, 206, 207, 208, 209, 210, 211, 212, 213, 214, + 215, 216, 217, 218, 219, 220, 221, 222, 223, 0, + 0, 0, -437, 0, 124, 125, 126, 127, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 128, 201, 0, 203, 204, + 199, 205, 206, 207, 208, 209, 210, 211, 212, 213, + 214, 215, 216, 217, 218, 219, 220, 221, 222, 223, + 0, 0, 0, 113, 114, 115, 116, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 117, 118, 0, + 0, 0, 119, 880, 120, 121, 122, 123, 0, 3, + 4, 113, 114, 115, 116, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 117, 118, 945, 0, 0, + 530, 0, 120, 121, 122, 123, 0, 3, 4, 113, + 114, 115, 116, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 117, 118, 0, 0, 0, 818, 0, + 120, 121, 122, 123, 0, 3, 4, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 946, 0, + 0, 124, 125, 126, 127, 0, 0, 0, 0, 0, + 416, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 128, 0, 0, 0, 0, 0, 0, 124, + 125, 126, 127, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 417, 0, 0, 0, + 128, 0, 0, 0, 0, 0, 0, 124, 125, 126, + 127, 418, 419, 0, 0, 0, 0, 0, 420, 0, + 421, 0, 318, 422, 423, 424, 425, 426, 128, 0, + 319, 320, 321, 322, 323, 427, 428, 0, 0, 429, + 430, 431, 432, 433, 434, 435, 436, 437, 438, 201, + 202, 203, 204, 0, 205, 206, 207, 208, 209, 210, + 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, + 221, 222, 223, 0, 439, 201, 336, 203, 204, 0, + 205, 206, 207, 208, 209, 210, 211, 212, 213, 214, + 215, 216, 217, 218, 219, 220, 221, 222, 223, 201, + 337, 203, 204, 0, 205, 206, 207, 208, 209, 210, + 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, + 221, 222, 223, 201, 646, 203, 204, 0, 205, 206, + 207, 208, 209, 210, 211, 212, 213, 214, 215, 216, + 217, 218, 219, 220, 221, 222, 223, 201, 785, 203, + 204, 0, 205, 206, 207, 208, 209, 210, 211, 212, + 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, + 223, 201, 0, 203, 204, 0, 205, 206, 207, 208, + 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, + 219, 220, 221, 222, 223, 205, 206, 207, 208, 209, + 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, + 220, 221, 222, 223, 206, 207, 208, 209, 210, 211, + 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, + 222, 223 +}; + +static const short int yycheck[] = +{ + 20, 69, 391, 391, 98, 1, 84, 7, 46, 1, + 667, 0, 32, 670, 421, 672, 54, 55, 56, 7, + 40, 1, 21, 37, 1, 1, 1, 1, 37, 69, + 305, 50, 7, 7, 840, 7, 55, 1, 22, 1, + 30, 509, 1, 450, 84, 85, 128, 37, 38, 89, + 128, 119, 115, 1, 1, 137, 96, 97, 47, 99, + 98, 37, 1, 818, 852, 7, 854, 892, 1, 109, + 195, 31, 135, 37, 1, 1, 1, 1, 37, 119, + 100, 101, 102, 134, 104, 136, 1, 128, 128, 37, + 37, 38, 1, 88, 900, 135, 137, 30, 138, 224, + 507, 508, 809, 143, 37, 930, 115, 814, 127, 897, + 30, 31, 387, 73, 74, 155, 130, 106, 134, 108, + 136, 111, 37, 38, 7, 165, 110, 111, 128, 327, + 328, 538, 128, 1, 133, 131, 128, 30, 158, 796, + 120, 225, 799, 898, 132, 137, 614, 804, 805, 806, + 807, 128, 128, 129, 130, 195, 128, 132, 132, 135, + 137, 201, 202, 203, 204, 205, 206, 207, 208, 37, + 132, 211, 212, 213, 214, 215, 216, 217, 218, 219, + 220, 221, 260, 130, 224, 225, 226, 227, 137, 128, + 230, 1, 232, 233, 234, 235, 1, 237, 137, 239, + 955, 128, 128, 128, 128, 1, 1, 842, 248, 135, + 137, 231, 137, 137, 254, 130, 1, 137, 238, 128, + 260, 37, 38, 243, 244, 245, 135, 37, 983, 269, + 270, 251, 37, 38, 22, 255, 871, 0, 993, 1, + 995, 37, 282, 283, 39, 40, 241, 950, 446, 289, + 953, 449, 37, 38, 452, 250, 30, 246, 247, 343, + 128, 129, 130, 25, 26, 1, 969, 135, 362, 30, + 354, 7, 1, 293, 294, 295, 296, 39, 40, 363, + 1, 128, 37, 38, 131, 37, 129, 676, 676, 25, + 26, 319, 320, 321, 37, 315, 336, 337, 79, 1, + 81, 30, 145, 113, 114, 1, 346, 1, 37, 152, + 30, 7, 30, 156, 157, 0, 37, 160, 1, 37, + 38, 31, 110, 111, 362, 130, 30, 31, 412, 25, + 26, 30, 175, 128, 848, 37, 30, 22, 23, 30, + 329, 381, 331, 37, 128, 130, 189, 121, 122, 123, + 124, 125, 126, 137, 37, 869, 78, 352, 80, 69, + 70, 46, 47, 137, 1, 879, 128, 52, 53, 54, + 55, 56, 128, 762, 762, 130, 111, 112, 398, 135, + 1, 401, 1, 403, 468, 380, 229, 128, 73, 473, + 131, 30, 128, 111, 422, 423, 424, 1, 37, 38, + 37, 485, 87, 88, 128, 128, 1, 131, 922, 39, + 40, 406, 926, 98, 137, 258, 411, 30, 37, 1, + 33, 106, 30, 108, 37, 110, 111, 4, 30, 1, + 7, 128, 128, 37, 37, 519, 57, 815, 135, 817, + 902, 284, 37, 64, 65, 66, 530, 31, 291, 911, + 71, 471, 128, 967, 916, 37, 918, 919, 30, 135, + 37, 38, 530, 306, 30, 37, 550, 88, 488, 128, + 109, 37, 111, 112, 63, 139, 135, 141, 467, 519, + 500, 128, 71, 72, 73, 74, 75, 30, 135, 133, + 530, 130, 133, 513, 37, 27, 28, 29, 582, 76, + 30, 963, 19, 20, 21, 22, 23, 24, 25, 26, + 27, 28, 29, 502, 503, 135, 536, 94, 95, 96, + 97, 98, 99, 100, 101, 102, 103, 565, 105, 128, + 107, 140, 109, 142, 30, 555, 135, 128, 558, 1, + 560, 561, 4, 136, 135, 128, 391, 392, 588, 617, + 393, 30, 135, 130, 520, 521, 241, 134, 134, 136, + 137, 246, 247, 133, 648, 250, 113, 114, 113, 114, + 590, 414, 119, 130, 119, 37, 38, 617, 78, 79, + 80, 81, 650, 25, 26, 27, 28, 29, 50, 7, + 669, 5, 671, 55, 673, 635, 122, 123, 124, 125, + 126, 31, 686, 90, 91, 92, 646, 116, 117, 118, + 650, 37, 632, 37, 76, 626, 627, 637, 695, 696, + 660, 31, 642, 30, 664, 645, 474, 475, 90, 91, + 92, 37, 94, 95, 96, 97, 98, 99, 100, 101, + 102, 103, 37, 105, 329, 107, 331, 109, 505, 506, + 690, 15, 16, 17, 18, 661, 662, 695, 696, 894, + 895, 131, 702, 132, 7, 127, 31, 352, 130, 134, + 37, 30, 134, 57, 136, 37, 37, 362, 133, 37, + 37, 676, 37, 132, 724, 705, 37, 11, 12, 13, + 14, 905, 906, 907, 908, 380, 30, 765, 134, 133, + 133, 25, 26, 56, 37, 7, 30, 128, 32, 33, + 34, 35, 732, 37, 38, 128, 756, 133, 786, 30, + 30, 406, 30, 30, 808, 765, 411, 30, 133, 30, + 30, 30, 772, 773, 774, 23, 24, 25, 26, 27, + 28, 29, 37, 428, 30, 785, 786, 30, 788, 30, + 818, 133, 37, 30, 838, 132, 128, 37, 128, 133, + 58, 801, 128, 803, 30, 10, 129, 762, 611, 612, + 613, 31, 128, 31, 128, 31, 128, 31, 818, 128, + 128, 128, 467, 128, 128, 109, 110, 111, 112, 113, + 114, 60, 10, 37, 62, 863, 128, 135, 838, 819, + 128, 128, 128, 128, 31, 889, 130, 128, 128, 893, + 30, 654, 128, 128, 37, 7, 37, 502, 503, 7, + 37, 135, 7, 863, 128, 909, 132, 26, 386, 358, + 870, 128, 154, 784, 643, 677, 665, 538, 878, 682, + 683, 1, 685, 883, 616, 885, 886, 887, 888, 615, + 639, 11, 12, 13, 14, 724, 1, 700, 898, 4, + 545, 660, 703, 548, 884, 25, 26, 951, 702, 725, + 30, 381, 32, 33, 34, 35, 254, 37, 38, 252, + 565, 171, 253, 726, 924, 30, 872, 730, 755, 743, + 512, 289, -1, -1, -1, 915, 41, 42, 43, 44, + 45, 46, 47, 48, 49, 945, 946, -1, -1, 54, + 950, -1, -1, 953, -1, 955, 113, 114, 115, 116, + 117, 118, -1, 120, 121, 122, 123, 1, -1, 969, + 4, -1, -1, 776, -1, -1, -1, 957, -1, 959, + 960, 961, 962, 983, -1, 788, -1, -1, -1, 109, + 110, 111, 112, 993, -1, 995, -1, 977, -1, -1, + -1, -1, -1, 37, 38, 985, -1, -1, 128, 129, + 130, -1, -1, -1, -1, 135, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, 830, -1, -1, + 833, 676, -1, -1, -1, -1, -1, -1, -1, -1, + 843, -1, 76, -1, -1, -1, -1, -1, -1, -1, + 695, 696, -1, 856, -1, -1, 90, 91, 92, -1, + 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, + -1, 105, 106, 107, -1, 109, -1, -1, 881, -1, + -1, -1, -1, -1, -1, -1, -1, -1, 891, -1, + -1, -1, 737, -1, -1, -1, 130, -1, 743, -1, + 134, -1, 136, -1, -1, -1, 1, -1, -1, 4, + -1, -1, -1, -1, -1, -1, -1, 762, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, 931, -1, + 933, -1, -1, -1, -1, -1, -1, 940, -1, 942, + 943, 944, 37, 38, -1, 948, -1, -1, -1, -1, + -1, -1, -1, 1, -1, -1, 4, -1, -1, -1, + -1, 964, 965, 966, -1, 968, -1, 970, -1, -1, + -1, -1, -1, 976, -1, -1, 979, -1, 981, 982, + -1, 76, -1, -1, -1, -1, 989, -1, -1, 37, + 38, -1, -1, 996, -1, 90, 91, 92, -1, 94, + 95, 96, 97, 98, 99, 100, 101, 102, 103, -1, + 105, -1, 107, 108, 109, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, 1, -1, 76, 4, + -1, -1, -1, -1, -1, 130, -1, -1, -1, 134, + -1, 136, 90, 91, 92, -1, 94, 95, 96, 97, + 98, 99, 100, 101, 102, 103, -1, 105, 106, 107, + 1, 109, 37, 38, -1, -1, -1, -1, -1, -1, + 11, 12, 13, 14, -1, -1, -1, -1, -1, -1, + -1, -1, 130, -1, 25, 26, 134, -1, 136, 30, + -1, 32, 33, 34, 35, -1, 37, 38, -1, -1, + -1, 76, -1, -1, -1, 4, -1, -1, -1, -1, + -1, -1, -1, -1, -1, 90, 91, 92, -1, 94, + 95, 96, 97, 98, 99, 100, 101, 102, 103, -1, + 105, -1, 107, 108, 109, -1, -1, -1, 37, 38, + -1, -1, -1, -1, -1, -1, -1, -1, -1, 4, + -1, -1, -1, -1, -1, 130, -1, -1, -1, 134, + -1, 136, -1, -1, 63, 64, 65, 66, 109, 110, + 111, 112, 71, 72, 73, 74, 75, 76, -1, -1, + -1, -1, 37, 38, -1, -1, -1, 128, -1, 130, + -1, -1, -1, 4, 135, 94, 95, 96, 97, 98, + 99, 100, 101, 102, 103, -1, 105, -1, 107, -1, + 109, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, 76, -1, -1, -1, -1, 37, 38, -1, -1, + -1, 130, -1, -1, -1, 134, -1, 136, 137, 94, + 95, 96, 97, 98, 99, 100, 101, 102, 103, -1, + 105, -1, 107, -1, 109, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, 76, -1, -1, -1, -1, + -1, -1, -1, -1, -1, 130, -1, -1, -1, 134, + -1, 136, 137, 94, 95, 96, 97, 98, 99, 100, + 101, 102, 103, -1, 105, -1, 107, 9, 109, 11, + 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, + 22, 23, 24, 25, 26, 27, 28, 29, -1, 130, + -1, -1, -1, 134, 6, 136, 8, 9, -1, 11, + 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, + 22, 23, 24, 25, 26, 27, 28, 29, 6, -1, + 8, 9, -1, 11, 12, 13, 14, 15, 16, 17, + 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, + 28, 29, 6, -1, 8, 9, -1, 11, 12, 13, + 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, + 24, 25, 26, 27, 28, 29, 1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, 11, 12, 13, 14, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + 25, 26, -1, -1, -1, 30, -1, 32, 33, 34, + 35, -1, 37, 38, -1, 1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, 11, 12, 13, 14, -1, + -1, -1, -1, -1, -1, 137, -1, -1, -1, 25, + 26, -1, -1, -1, 30, -1, 32, 33, 34, 35, + 128, 37, 38, -1, -1, -1, -1, 135, -1, -1, + -1, -1, -1, -1, 1, -1, -1, -1, 93, -1, + -1, -1, -1, -1, 11, 12, 13, 14, -1, 104, + -1, 135, -1, -1, 109, 110, 111, 112, 25, 26, + -1, -1, -1, 30, -1, 32, 33, 34, 35, -1, + 37, 38, -1, 1, -1, 130, -1, -1, -1, -1, + -1, -1, -1, 11, 12, 13, 14, -1, 104, -1, + -1, -1, -1, 109, 110, 111, 112, 25, 26, -1, + -1, -1, 30, -1, 32, 33, 34, 35, -1, 37, + 38, -1, -1, -1, 130, -1, -1, -1, -1, -1, + -1, -1, 1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, 11, 12, 13, 14, -1, -1, -1, -1, + -1, -1, 109, 110, 111, 112, 25, 26, -1, -1, + -1, 30, -1, 32, 33, 34, 35, -1, 37, 38, + -1, 1, -1, 130, -1, -1, -1, -1, -1, -1, + -1, 11, 12, 13, 14, -1, -1, -1, -1, -1, + -1, 109, 110, 111, 112, 25, 26, -1, -1, -1, + 30, -1, 32, 33, 34, 35, -1, 37, 38, -1, + -1, -1, 130, -1, -1, -1, -1, -1, -1, -1, + 1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + 11, 12, 13, 14, -1, -1, -1, -1, -1, -1, + 109, 110, 111, 112, 25, 26, -1, -1, -1, 30, + -1, 32, 33, 34, 35, -1, 37, 38, -1, -1, + -1, 130, 14, 15, 16, 17, 18, 19, 20, 21, + 22, 23, 24, 25, 26, 27, 28, 29, -1, 109, + 110, 111, 112, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, 6, 7, 8, 9, + 130, 11, 12, 13, 14, 15, 16, 17, 18, 19, + 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, + -1, -1, -1, -1, -1, -1, -1, -1, 109, 110, + 111, 112, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, 6, -1, 8, 9, 130, + 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, + 21, 22, 23, 24, 25, 26, 27, 28, 29, 6, + -1, 8, 9, -1, 11, 12, 13, 14, 15, 16, + 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, + 27, 28, 29, 6, -1, 8, 9, -1, 11, 12, + 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, + 23, 24, 25, 26, 27, 28, 29, -1, 6, -1, + 8, 9, 132, 11, 12, 13, 14, 15, 16, 17, + 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, + 28, 29, -1, -1, -1, -1, 11, 12, 13, 14, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + 25, 26, -1, -1, -1, 30, -1, 32, 33, 34, + 35, 132, 37, 38, 15, 16, 17, 18, 19, 20, + 21, 22, 23, 24, 25, 26, 27, 28, 29, -1, + -1, 6, -1, 8, 9, 132, 11, 12, 13, 14, + 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, + 25, 26, 27, 28, 29, 6, -1, 8, 9, 132, + 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, + 21, 22, 23, 24, 25, 26, 27, 28, 29, -1, + -1, -1, 130, -1, 109, 110, 111, 112, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, 130, 6, -1, 8, 9, + 135, 11, 12, 13, 14, 15, 16, 17, 18, 19, + 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, + -1, -1, -1, 11, 12, 13, 14, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, 25, 26, -1, + -1, -1, 30, 128, 32, 33, 34, 35, -1, 37, + 38, 11, 12, 13, 14, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, 25, 26, 128, -1, -1, + 30, -1, 32, 33, 34, 35, -1, 37, 38, 11, + 12, 13, 14, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, 25, 26, -1, -1, -1, 30, -1, + 32, 33, 34, 35, -1, 37, 38, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, 128, -1, + -1, 109, 110, 111, 112, -1, -1, -1, -1, -1, + 1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, 130, -1, -1, -1, -1, -1, -1, 109, + 110, 111, 112, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, 37, -1, -1, -1, + 130, -1, -1, -1, -1, -1, -1, 109, 110, 111, + 112, 52, 53, -1, -1, -1, -1, -1, 59, -1, + 61, -1, 63, 64, 65, 66, 67, 68, 130, -1, + 71, 72, 73, 74, 75, 76, 77, -1, -1, 80, + 81, 82, 83, 84, 85, 86, 87, 88, 89, 6, + 7, 8, 9, -1, 11, 12, 13, 14, 15, 16, + 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, + 27, 28, 29, -1, 115, 6, 7, 8, 9, -1, + 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, + 21, 22, 23, 24, 25, 26, 27, 28, 29, 6, + 7, 8, 9, -1, 11, 12, 13, 14, 15, 16, + 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, + 27, 28, 29, 6, 7, 8, 9, -1, 11, 12, + 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, + 23, 24, 25, 26, 27, 28, 29, 6, 7, 8, + 9, -1, 11, 12, 13, 14, 15, 16, 17, 18, + 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, + 29, 6, -1, 8, 9, -1, 11, 12, 13, 14, + 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, + 25, 26, 27, 28, 29, 11, 12, 13, 14, 15, + 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, + 26, 27, 28, 29, 12, 13, 14, 15, 16, 17, + 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, + 28, 29 +}; + +/* YYSTOS[STATE-NUM] -- The (internal number of the) accessing + symbol of state STATE-NUM. */ +static const unsigned short int yystos[] = +{ + 0, 1, 4, 37, 38, 50, 55, 76, 94, 95, + 96, 97, 98, 99, 100, 101, 102, 103, 105, 107, + 109, 127, 130, 134, 136, 139, 140, 141, 142, 154, + 242, 244, 266, 273, 276, 283, 284, 286, 287, 323, + 337, 342, 343, 243, 143, 155, 260, 246, 247, 248, + 249, 257, 258, 259, 261, 262, 263, 7, 274, 7, + 277, 137, 285, 349, 1, 287, 323, 324, 337, 30, + 111, 337, 30, 344, 0, 127, 141, 90, 91, 92, + 265, 349, 21, 133, 30, 31, 349, 250, 251, 30, + 37, 115, 338, 37, 286, 242, 30, 30, 30, 30, + 337, 337, 286, 286, 286, 37, 279, 37, 280, 30, + 1, 128, 131, 11, 12, 13, 14, 25, 26, 30, + 32, 33, 34, 35, 109, 110, 111, 112, 130, 327, + 329, 334, 335, 336, 337, 345, 337, 245, 254, 255, + 256, 252, 253, 267, 1, 270, 329, 329, 241, 242, + 349, 241, 329, 144, 156, 133, 329, 329, 266, 286, + 325, 329, 349, 349, 349, 133, 349, 275, 1, 106, + 242, 278, 1, 108, 242, 271, 272, 329, 287, 323, + 1, 287, 323, 334, 334, 334, 334, 334, 334, 1, + 327, 334, 334, 334, 334, 30, 270, 326, 329, 135, + 347, 6, 7, 8, 9, 11, 12, 13, 14, 15, + 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, + 26, 27, 28, 29, 30, 31, 113, 114, 329, 346, + 30, 329, 342, 343, 342, 343, 329, 128, 347, 7, + 132, 347, 30, 147, 147, 329, 347, 347, 349, 133, + 347, 329, 281, 281, 128, 347, 347, 347, 271, 131, + 130, 329, 329, 329, 329, 329, 329, 329, 329, 333, + 332, 329, 329, 329, 329, 329, 329, 329, 329, 329, + 329, 329, 330, 331, 271, 326, 329, 329, 329, 115, + 347, 329, 349, 329, 329, 329, 329, 1, 329, 349, + 329, 241, 1, 37, 129, 130, 148, 149, 150, 152, + 349, 349, 349, 242, 242, 329, 241, 349, 63, 71, + 72, 73, 74, 75, 176, 181, 185, 186, 187, 279, + 282, 280, 272, 349, 347, 270, 7, 7, 329, 329, + 329, 329, 347, 7, 132, 346, 347, 349, 349, 349, + 349, 132, 5, 264, 31, 37, 151, 152, 128, 347, + 145, 157, 349, 31, 215, 216, 215, 215, 215, 180, + 180, 180, 106, 108, 131, 329, 329, 326, 329, 1, + 104, 268, 269, 270, 241, 326, 30, 128, 131, 1, + 149, 146, 158, 266, 326, 177, 1, 37, 206, 207, + 37, 209, 37, 208, 131, 132, 7, 241, 1, 93, + 269, 7, 7, 132, 150, 152, 1, 37, 52, 53, + 59, 61, 64, 65, 66, 67, 68, 76, 77, 80, + 81, 82, 83, 84, 85, 86, 87, 88, 89, 115, + 153, 169, 171, 176, 181, 182, 183, 189, 190, 191, + 193, 195, 197, 204, 217, 219, 225, 237, 239, 288, + 1, 71, 88, 159, 160, 161, 182, 347, 7, 1, + 37, 178, 179, 31, 1, 128, 349, 128, 349, 128, + 349, 241, 241, 326, 347, 134, 227, 289, 37, 73, + 74, 173, 216, 215, 215, 215, 192, 30, 211, 212, + 205, 337, 238, 240, 180, 188, 180, 69, 70, 194, + 216, 180, 218, 37, 37, 57, 162, 242, 326, 133, + 1, 128, 349, 326, 207, 1, 207, 37, 37, 132, + 30, 326, 226, 290, 291, 349, 37, 30, 210, 78, + 79, 80, 81, 213, 214, 134, 339, 340, 128, 349, + 133, 242, 242, 1, 37, 184, 1, 37, 198, 199, + 209, 209, 216, 216, 339, 196, 220, 221, 340, 349, + 133, 163, 56, 1, 132, 348, 326, 328, 329, 179, + 1, 179, 7, 228, 326, 327, 329, 1, 30, 37, + 230, 231, 1, 4, 41, 42, 43, 44, 45, 46, + 47, 48, 49, 54, 292, 293, 295, 308, 309, 170, + 349, 116, 117, 118, 194, 128, 128, 30, 111, 337, + 337, 326, 1, 128, 349, 133, 1, 128, 349, 349, + 349, 1, 201, 202, 286, 30, 37, 223, 224, 222, + 111, 112, 321, 164, 165, 166, 7, 326, 128, 135, + 128, 135, 1, 129, 232, 233, 234, 235, 236, 329, + 30, 1, 128, 349, 30, 294, 30, 30, 30, 30, + 30, 30, 30, 30, 30, 296, 174, 172, 347, 347, + 347, 339, 214, 213, 327, 341, 133, 37, 1, 37, + 200, 37, 199, 1, 199, 1, 128, 349, 133, 1, + 229, 329, 30, 128, 349, 223, 349, 58, 165, 30, + 121, 122, 123, 124, 125, 126, 167, 349, 329, 132, + 326, 327, 37, 347, 128, 128, 232, 231, 1, 231, + 305, 329, 178, 113, 114, 119, 312, 314, 312, 113, + 114, 119, 313, 316, 313, 312, 313, 312, 313, 1, + 37, 113, 114, 297, 299, 307, 133, 175, 176, 181, + 182, 241, 174, 347, 347, 128, 347, 326, 329, 202, + 1, 202, 203, 1, 128, 347, 229, 224, 349, 122, + 123, 124, 125, 126, 168, 7, 128, 135, 30, 1, + 234, 236, 347, 347, 349, 31, 128, 322, 337, 128, + 31, 128, 322, 128, 128, 128, 128, 128, 31, 1, + 25, 26, 39, 40, 128, 303, 304, 297, 30, 301, + 302, 327, 60, 241, 327, 329, 329, 1, 329, 347, + 168, 329, 327, 329, 347, 315, 312, 10, 31, 312, + 317, 329, 10, 329, 312, 312, 312, 312, 326, 299, + 1, 299, 304, 1, 30, 37, 298, 300, 304, 302, + 327, 349, 62, 128, 347, 135, 347, 1, 120, 318, + 128, 30, 33, 37, 319, 320, 326, 329, 128, 318, + 128, 310, 319, 128, 347, 128, 128, 128, 128, 7, + 348, 298, 298, 31, 1, 128, 347, 30, 128, 327, + 128, 348, 329, 319, 320, 15, 16, 17, 18, 7, + 132, 329, 348, 37, 311, 347, 329, 349, 329, 329, + 329, 329, 326, 347, 7, 303, 326, 300, 1, 300, + 298, 302, 318, 310, 135, 321, 321, 321, 321, 326, + 310, 349, 310, 310, 310, 128, 128, 348, 306, 329, + 7, 7, 348, 7, 303, 128, 347, 347, 132, 347, + 347, 347, 347, 329, 329, 347, 306, 326, 306, 7, + 302, 349, 349, 349, 349, 349, 310, 347, 347, 347, + 348, 347, 306, 128, 347, 347, 349, 347, 347, 347, + 302, 349, 347, 128, 302, 128, 302, 347 +}; + +#if ! defined (YYSIZE_T) && defined (__SIZE_TYPE__) +# define YYSIZE_T __SIZE_TYPE__ +#endif +#if ! defined (YYSIZE_T) && defined (size_t) +# define YYSIZE_T size_t +#endif +#if ! defined (YYSIZE_T) +# if defined (__STDC__) || defined (__cplusplus) +# include /* INFRINGES ON USER NAME SPACE */ +# define YYSIZE_T size_t +# endif +#endif +#if ! defined (YYSIZE_T) +# define YYSIZE_T unsigned int +#endif + +#define yyerrok (yyerrstatus = 0) +#define yyclearin (yychar = YYEMPTY) +#define YYEMPTY (-2) +#define YYEOF 0 + +#define YYACCEPT goto yyacceptlab +#define YYABORT goto yyabortlab +#define YYERROR goto yyerrorlab + + +/* Like YYERROR except do call yyerror. This remains here temporarily + to ease the transition to the new meaning of YYERROR, for GCC. + Once GCC version 2 has supplanted version 1, this can go. */ + +#define YYFAIL goto yyerrlab + +#define YYRECOVERING() (!!yyerrstatus) + +#define YYBACKUP(Token, Value) \ +do \ + if (yychar == YYEMPTY && yylen == 1) \ + { \ + yychar = (Token); \ + yylval = (Value); \ + yytoken = YYTRANSLATE (yychar); \ + YYPOPSTACK; \ + goto yybackup; \ + } \ + else \ + { \ + yyerror ("syntax error: cannot back up");\ + YYERROR; \ + } \ +while (0) + + +#define YYTERROR 1 +#define YYERRCODE 256 + + +/* YYLLOC_DEFAULT -- Set CURRENT to span from RHS[1] to RHS[N]. + If N is 0, then set CURRENT to the empty location which ends + the previous symbol: RHS[0] (always defined). */ + +#define YYRHSLOC(Rhs, K) ((Rhs)[K]) +#ifndef YYLLOC_DEFAULT +# define YYLLOC_DEFAULT(Current, Rhs, N) \ + do \ + if (N) \ + { \ + (Current).first_line = YYRHSLOC (Rhs, 1).first_line; \ + (Current).first_column = YYRHSLOC (Rhs, 1).first_column; \ + (Current).last_line = YYRHSLOC (Rhs, N).last_line; \ + (Current).last_column = YYRHSLOC (Rhs, N).last_column; \ + } \ + else \ + { \ + (Current).first_line = (Current).last_line = \ + YYRHSLOC (Rhs, 0).last_line; \ + (Current).first_column = (Current).last_column = \ + YYRHSLOC (Rhs, 0).last_column; \ + } \ + while (0) +#endif + + +/* YY_LOCATION_PRINT -- Print the location on the stream. + This macro was not mandated originally: define only if we know + we won't break user code: when these are the locations we know. */ + +#ifndef YY_LOCATION_PRINT +# if YYLTYPE_IS_TRIVIAL +# define YY_LOCATION_PRINT(File, Loc) \ + fprintf (File, "%d.%d-%d.%d", \ + (Loc).first_line, (Loc).first_column, \ + (Loc).last_line, (Loc).last_column) +# else +# define YY_LOCATION_PRINT(File, Loc) ((void) 0) +# endif +#endif + + +/* YYLEX -- calling `yylex' with the right arguments. */ + +#ifdef YYLEX_PARAM +# define YYLEX yylex (&yylval, YYLEX_PARAM) +#else +# define YYLEX yylex (&yylval) +#endif + +/* Enable debugging if requested. */ +#if YYDEBUG + +# ifndef YYFPRINTF +# include /* INFRINGES ON USER NAME SPACE */ +# define YYFPRINTF fprintf +# endif + +# define YYDPRINTF(Args) \ +do { \ + if (yydebug) \ + YYFPRINTF Args; \ +} while (0) + +# define YY_SYMBOL_PRINT(Title, Type, Value, Location) \ +do { \ + if (yydebug) \ + { \ + YYFPRINTF (stderr, "%s ", Title); \ + yysymprint (stderr, \ + Type, Value); \ + YYFPRINTF (stderr, "\n"); \ + } \ +} while (0) + +/*------------------------------------------------------------------. +| yy_stack_print -- Print the state stack from its BOTTOM up to its | +| TOP (included). | +`------------------------------------------------------------------*/ + +#if defined (__STDC__) || defined (__cplusplus) +static void +yy_stack_print (short int *bottom, short int *top) +#else +static void +yy_stack_print (bottom, top) + short int *bottom; + short int *top; +#endif +{ + YYFPRINTF (stderr, "Stack now"); + for (/* Nothing. */; bottom <= top; ++bottom) + YYFPRINTF (stderr, " %d", *bottom); + YYFPRINTF (stderr, "\n"); +} + +# define YY_STACK_PRINT(Bottom, Top) \ +do { \ + if (yydebug) \ + yy_stack_print ((Bottom), (Top)); \ +} while (0) + + +/*------------------------------------------------. +| Report that the YYRULE is going to be reduced. | +`------------------------------------------------*/ + +#if defined (__STDC__) || defined (__cplusplus) +static void +yy_reduce_print (int yyrule) +#else +static void +yy_reduce_print (yyrule) + int yyrule; +#endif +{ + int yyi; + unsigned int yylno = yyrline[yyrule]; + YYFPRINTF (stderr, "Reducing stack by rule %d (line %u), ", + yyrule - 1, yylno); + /* Print the symbols being reduced, and their result. */ + for (yyi = yyprhs[yyrule]; 0 <= yyrhs[yyi]; yyi++) + YYFPRINTF (stderr, "%s ", yytname [yyrhs[yyi]]); + YYFPRINTF (stderr, "-> %s\n", yytname [yyr1[yyrule]]); +} + +# define YY_REDUCE_PRINT(Rule) \ +do { \ + if (yydebug) \ + yy_reduce_print (Rule); \ +} while (0) + +/* Nonzero means print parse trace. It is left uninitialized so that + multiple parsers can coexist. */ +int yydebug; +#else /* !YYDEBUG */ +# define YYDPRINTF(Args) +# define YY_SYMBOL_PRINT(Title, Type, Value, Location) +# define YY_STACK_PRINT(Bottom, Top) +# define YY_REDUCE_PRINT(Rule) +#endif /* !YYDEBUG */ + + +/* YYINITDEPTH -- initial size of the parser's stacks. */ +#ifndef YYINITDEPTH +# define YYINITDEPTH 200 +#endif + +/* YYMAXDEPTH -- maximum size the stacks can grow to (effective only + if the built-in stack extension method is used). + + Do not make this value too large; the results are undefined if + SIZE_MAX < YYSTACK_BYTES (YYMAXDEPTH) + evaluated with infinite-precision integer arithmetic. */ + +#ifndef YYMAXDEPTH +# define YYMAXDEPTH 10000 +#endif + + + +#if YYERROR_VERBOSE + +# ifndef yystrlen +# if defined (__GLIBC__) && defined (_STRING_H) +# define yystrlen strlen +# else +/* Return the length of YYSTR. */ +static YYSIZE_T +# if defined (__STDC__) || defined (__cplusplus) +yystrlen (const char *yystr) +# else +yystrlen (yystr) + const char *yystr; +# endif +{ + register const char *yys = yystr; + + while (*yys++ != '\0') + continue; + + return yys - yystr - 1; +} +# endif +# endif + +# ifndef yystpcpy +# if defined (__GLIBC__) && defined (_STRING_H) && defined (_GNU_SOURCE) +# define yystpcpy stpcpy +# else +/* Copy YYSRC to YYDEST, returning the address of the terminating '\0' in + YYDEST. */ +static char * +# if defined (__STDC__) || defined (__cplusplus) +yystpcpy (char *yydest, const char *yysrc) +# else +yystpcpy (yydest, yysrc) + char *yydest; + const char *yysrc; +# endif +{ + register char *yyd = yydest; + register const char *yys = yysrc; + + while ((*yyd++ = *yys++) != '\0') + continue; + + return yyd - 1; +} +# endif +# endif + +#endif /* !YYERROR_VERBOSE */ + + + +#if YYDEBUG +/*--------------------------------. +| Print this symbol on YYOUTPUT. | +`--------------------------------*/ + +#if defined (__STDC__) || defined (__cplusplus) +static void +yysymprint (FILE *yyoutput, int yytype, YYSTYPE *yyvaluep) +#else +static void +yysymprint (yyoutput, yytype, yyvaluep) + FILE *yyoutput; + int yytype; + YYSTYPE *yyvaluep; +#endif +{ + /* Pacify ``unused variable'' warnings. */ + (void) yyvaluep; + + if (yytype < YYNTOKENS) + YYFPRINTF (yyoutput, "token %s (", yytname[yytype]); + else + YYFPRINTF (yyoutput, "nterm %s (", yytname[yytype]); + + +# ifdef YYPRINT + if (yytype < YYNTOKENS) + YYPRINT (yyoutput, yytoknum[yytype], *yyvaluep); +# endif + switch (yytype) + { + default: + break; + } + YYFPRINTF (yyoutput, ")"); +} + +#endif /* ! YYDEBUG */ +/*-----------------------------------------------. +| Release the memory associated to this symbol. | +`-----------------------------------------------*/ + +#if defined (__STDC__) || defined (__cplusplus) +static void +yydestruct (const char *yymsg, int yytype, YYSTYPE *yyvaluep) +#else +static void +yydestruct (yymsg, yytype, yyvaluep) + const char *yymsg; + int yytype; + YYSTYPE *yyvaluep; +#endif +{ + /* Pacify ``unused variable'' warnings. */ + (void) yyvaluep; + + if (!yymsg) + yymsg = "Deleting"; + YY_SYMBOL_PRINT (yymsg, yytype, yyvaluep, yylocationp); + + switch (yytype) + { + + default: + break; + } +} + + +/* Prevent warnings from -Wmissing-prototypes. */ + +#ifdef YYPARSE_PARAM +# if defined (__STDC__) || defined (__cplusplus) +int yyparse (void *YYPARSE_PARAM); +# else +int yyparse (); +# endif +#else /* ! YYPARSE_PARAM */ +#if defined (__STDC__) || defined (__cplusplus) +int yyparse (void); +#else +int yyparse (); +#endif +#endif /* ! YYPARSE_PARAM */ + + + + + + +/*----------. +| yyparse. | +`----------*/ + +#ifdef YYPARSE_PARAM +# if defined (__STDC__) || defined (__cplusplus) +int yyparse (void *YYPARSE_PARAM) +# else +int yyparse (YYPARSE_PARAM) + void *YYPARSE_PARAM; +# endif +#else /* ! YYPARSE_PARAM */ +#if defined (__STDC__) || defined (__cplusplus) +int +yyparse (void) +#else +int +yyparse () + +#endif +#endif +{ + /* The look-ahead symbol. */ +int yychar; + +/* The semantic value of the look-ahead symbol. */ +YYSTYPE yylval; + +/* Number of syntax errors so far. */ +int yynerrs; + + register int yystate; + register int yyn; + int yyresult; + /* Number of tokens to shift before error messages enabled. */ + int yyerrstatus; + /* Look-ahead token as an internal (translated) token number. */ + int yytoken = 0; + + /* Three stacks and their tools: + `yyss': related to states, + `yyvs': related to semantic values, + `yyls': related to locations. + + Refer to the stacks thru separate pointers, to allow yyoverflow + to reallocate them elsewhere. */ + + /* The state stack. */ + short int yyssa[YYINITDEPTH]; + short int *yyss = yyssa; + register short int *yyssp; + + /* The semantic value stack. */ + YYSTYPE yyvsa[YYINITDEPTH]; + YYSTYPE *yyvs = yyvsa; + register YYSTYPE *yyvsp; + + + +#define YYPOPSTACK (yyvsp--, yyssp--) + + YYSIZE_T yystacksize = YYINITDEPTH; + + /* The variables used to return semantic value and location from the + action routines. */ + YYSTYPE yyval; + + + /* When reducing, the number of symbols on the RHS of the reduced + rule. */ + int yylen; + + YYDPRINTF ((stderr, "Starting parse\n")); + + yystate = 0; + yyerrstatus = 0; + yynerrs = 0; + yychar = YYEMPTY; /* Cause a token to be read. */ + + /* Initialize stack pointers. + Waste one element of value and location stack + so that they stay on the same level as the state stack. + The wasted elements are never initialized. */ + + yyssp = yyss; + yyvsp = yyvs; + + + yyvsp[0] = yylval; + + goto yysetstate; + +/*------------------------------------------------------------. +| yynewstate -- Push a new state, which is found in yystate. | +`------------------------------------------------------------*/ + yynewstate: + /* In all cases, when you get here, the value and location stacks + have just been pushed. so pushing a state here evens the stacks. + */ + yyssp++; + + yysetstate: + *yyssp = yystate; + + if (yyss + yystacksize - 1 <= yyssp) + { + /* Get the current used size of the three stacks, in elements. */ + YYSIZE_T yysize = yyssp - yyss + 1; + +#ifdef yyoverflow + { + /* Give user a chance to reallocate the stack. Use copies of + these so that the &'s don't force the real ones into + memory. */ + YYSTYPE *yyvs1 = yyvs; + short int *yyss1 = yyss; + + + /* Each stack pointer address is followed by the size of the + data in use in that stack, in bytes. This used to be a + conditional around just the two extra args, but that might + be undefined if yyoverflow is a macro. */ + yyoverflow ("parser stack overflow", + &yyss1, yysize * sizeof (*yyssp), + &yyvs1, yysize * sizeof (*yyvsp), + + &yystacksize); + + yyss = yyss1; + yyvs = yyvs1; + } +#else /* no yyoverflow */ +# ifndef YYSTACK_RELOCATE + goto yyoverflowlab; +# else + /* Extend the stack our own way. */ + if (YYMAXDEPTH <= yystacksize) + goto yyoverflowlab; + yystacksize *= 2; + if (YYMAXDEPTH < yystacksize) + yystacksize = YYMAXDEPTH; + + { + short int *yyss1 = yyss; + union yyalloc *yyptr = + (union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize)); + if (! yyptr) + goto yyoverflowlab; + YYSTACK_RELOCATE (yyss); + YYSTACK_RELOCATE (yyvs); + +# undef YYSTACK_RELOCATE + if (yyss1 != yyssa) + YYSTACK_FREE (yyss1); + } +# endif +#endif /* no yyoverflow */ + + yyssp = yyss + yysize - 1; + yyvsp = yyvs + yysize - 1; + + + YYDPRINTF ((stderr, "Stack size increased to %lu\n", + (unsigned long int) yystacksize)); + + if (yyss + yystacksize - 1 <= yyssp) + YYABORT; + } + + YYDPRINTF ((stderr, "Entering state %d\n", yystate)); + + goto yybackup; + +/*-----------. +| yybackup. | +`-----------*/ +yybackup: + +/* Do appropriate processing given the current state. */ +/* Read a look-ahead token if we need one and don't already have one. */ +/* yyresume: */ + + /* First try to decide what to do without reference to look-ahead token. */ + + yyn = yypact[yystate]; + if (yyn == YYPACT_NINF) + goto yydefault; + + /* Not known => get a look-ahead token if don't already have one. */ + + /* YYCHAR is either YYEMPTY or YYEOF or a valid look-ahead symbol. */ + if (yychar == YYEMPTY) + { + YYDPRINTF ((stderr, "Reading a token: ")); + yychar = YYLEX; + } + + if (yychar <= YYEOF) + { + yychar = yytoken = YYEOF; + YYDPRINTF ((stderr, "Now at end of input.\n")); + } + else + { + yytoken = YYTRANSLATE (yychar); + YY_SYMBOL_PRINT ("Next token is", yytoken, &yylval, &yylloc); + } + + /* If the proper action on seeing token YYTOKEN is to reduce or to + detect an error, take that action. */ + yyn += yytoken; + if (yyn < 0 || YYLAST < yyn || yycheck[yyn] != yytoken) + goto yydefault; + yyn = yytable[yyn]; + if (yyn <= 0) + { + if (yyn == 0 || yyn == YYTABLE_NINF) + goto yyerrlab; + yyn = -yyn; + goto yyreduce; + } + + if (yyn == YYFINAL) + YYACCEPT; + + /* Shift the look-ahead token. */ + YY_SYMBOL_PRINT ("Shifting", yytoken, &yylval, &yylloc); + + /* Discard the token being shifted unless it is eof. */ + if (yychar != YYEOF) + yychar = YYEMPTY; + + *++yyvsp = yylval; + + + /* Count tokens shifted since error; after three, turn off error + status. */ + if (yyerrstatus) + yyerrstatus--; + + yystate = yyn; + goto yynewstate; + + +/*-----------------------------------------------------------. +| yydefault -- do the default action for the current state. | +`-----------------------------------------------------------*/ +yydefault: + yyn = yydefact[yystate]; + if (yyn == 0) + goto yyerrlab; + goto yyreduce; + + +/*-----------------------------. +| yyreduce -- Do a reduction. | +`-----------------------------*/ +yyreduce: + /* yyn is the number of a rule to reduce with. */ + yylen = yyr2[yyn]; + + /* If YYLEN is nonzero, implement the default value of the action: + `$$ = $1'. + + Otherwise, the following line sets YYVAL to garbage. + This behavior is undocumented and Bison + users should not rely upon it. Assigning to YYVAL + unconditionally makes the parser a bit smaller, and it avoids a + GCC warning that YYVAL may be used uninitialized. */ + yyval = yyvsp[1-yylen]; + + + YY_REDUCE_PRINT (yyn); + switch (yyn) + { + case 2: +#line 425 "parse.yy" + { if (!is_interactive) + YYFAIL; +#if VDEBUG != 0 + if (vdebug) + printf_error_V ("interactive statement\n"); +#endif + interactive_statement = (yyvsp[0].ttype); + fix_lastchar(); + YYACCEPT;} + break; + + case 4: +#line 436 "parse.yy" + { +#if VDEBUG != 0 +if (vdebug) + printf ("source error\n"); +#endif + if (is_interactive) + YYABORT; + } + break; + + case 5: +#line 444 "parse.yy" + { +#if VDEBUG != 0 +if (vdebug) + printf_error_V ("EOF\n"); +#endif + (yyval.ttype) = NULL; } + break; + + case 7: +#line 455 "parse.yy" + { yyerrok; +#if VDEBUG != 0 +if (vdebug) + printf ("description_list\n"); +#endif + } + break; + + case 10: +#line 472 "parse.yy" + { if (is_interactive) { + YYFAIL; + } + } + break; + + case 11: +#line 477 "parse.yy" + { + current_module = current_scope = build_module ((yyvsp[0].ttype)); + push_scope (); + /* list of parse modules */ + module_list = tree_cons (current_module, NULL_TREE, module_list); + /* for now, assume all to be at lop level */ +// top_level = chainon (current_module, top_level); + } + break; + + case 12: +#line 486 "parse.yy" + { MODULE_PORT_LIST (current_module) = nreverse ((yyvsp[-1].ttype)); } + break; + + case 13: +#line 488 "parse.yy" + { + current_scope = pop_scope (); + BLOCK_BODY (current_module) = nreverse (BLOCK_BODY (current_module)); + BLOCK_DECL (current_module) = nreverse (BLOCK_DECL (current_module)); + end_module (current_module); + } + break; + + case 15: +#line 501 "parse.yy" + { yyerrok; } + break; + + case 17: +#line 507 "parse.yy" + { (yyval.ttype) = (yyvsp[-1].ttype); } + break; + + case 18: +#line 509 "parse.yy" + { (yyval.ttype) = NULL; } + break; + + case 20: +#line 515 "parse.yy" + { yyerrok; + (yyval.ttype) = chainon ((yyvsp[0].ttype), (yyvsp[-2].ttype)); + } + break; + + case 23: +#line 529 "parse.yy" + { if ((yyvsp[0].ttype)) + (yyval.ttype) = build_tree_list ((yyvsp[0].ttype), NULL_TREE); + else + (yyval.ttype) = NULL_TREE; + } + break; + + case 24: +#line 535 "parse.yy" + { (yyval.ttype) = build_tree_list ((yyvsp[-1].ttype), (yyvsp[-3].ttype)); } + break; + + case 26: +#line 541 "parse.yy" + { (yyval.ttype) = (yyvsp[-1].ttype); + sorry ("Port concatenations not supported in this version"); + } + break; + + case 27: +#line 545 "parse.yy" + { (yyval.ttype) = NULL_TREE; } + break; + + case 28: +#line 550 "parse.yy" + { (yyval.ttype) = build_tree_list ((yyvsp[0].ttype), NULL_TREE); } + break; + + case 29: +#line 552 "parse.yy" + { (yyval.ttype) = tree_cons ((yyvsp[0].ttype), NULL_TREE, (yyvsp[-2].ttype)); } + break; + + case 30: +#line 557 "parse.yy" + { set_decl ((yyvsp[0].ttype), (yyvsp[0].ttype)); } + break; + + case 31: +#line 559 "parse.yy" + { (yyval.ttype) = build_bit_ref ((yyvsp[-3].ttype), (yyvsp[-1].ttype)); + set_decl ((yyvsp[-3].ttype), (yyval.ttype)); +// sorry ("Port bit-select not supported in this version"); + } + break; + + case 32: +#line 564 "parse.yy" + { (yyval.ttype) = build_part_ref ((yyvsp[-5].ttype), (yyvsp[-3].ttype), (yyvsp[-1].ttype)); + set_decl ((yyvsp[-5].ttype), (yyval.ttype)); +// sorry ("Port part-selects not supported in this version"); + } + break; + + case 42: +#line 583 "parse.yy" + { BLOCK_BODY (current_module) = tree_cons ((yyvsp[0].ttype), + (tree)INITIAL_CODE, BLOCK_BODY (current_module)); + } + break; + + case 43: +#line 587 "parse.yy" + { BLOCK_BODY (current_module) = tree_cons ((yyvsp[0].ttype), + (tree)ALWAYS_CODE, BLOCK_BODY (current_module)); + } + break; + + case 46: +#line 606 "parse.yy" + { if (is_interactive) { + YYFAIL; + } + } + break; + + case 47: +#line 611 "parse.yy" + { + current_module = current_scope = build_udp ((yyvsp[0].ttype)); + push_scope (); + /* list of parse modules */ + module_list = tree_cons (current_module, NULL_TREE, module_list); + } + break; + + case 48: +#line 618 "parse.yy" + { UDP_PORT_LIST (current_module) = nreverse ((yyvsp[-1].ttype)); } + break; + + case 49: +#line 620 "parse.yy" + { + current_scope = pop_scope (); + UDP_STRING_LIST (current_module) = nreverse (UDP_STRING_LIST (current_module)); + end_primitive (current_module); + } + break; + + case 50: +#line 628 "parse.yy" + { (yyval.ttype) = NULL_TREE; } + break; + + case 51: +#line 630 "parse.yy" + { yyerrok; } + break; + + case 55: +#line 641 "parse.yy" + { + if( strcmp( IDENT((yyvsp[-1].ttype)), + IDENT(DECL_NAME(TREE_PURPOSE(MODULE_PORT_LIST(current_module)))) )!=0 ) { + error( "only the first declared port in a udp can be a reg", + NULL_CHAR, NULL_CHAR ); + } else { + UDP_REG_NAME(current_module) = (yyvsp[-1].ttype); + } + (yyval.ttype) = NULL_TREE; + } + break; + + case 56: +#line 654 "parse.yy" + { (yyval.ttype) = NULL_TREE; } + break; + + case 57: +#line 656 "parse.yy" + { + if( UDP_REG_NAME(current_module)==NULL_TREE ) { + error( "initial statement is no allowed in combinatorial udp's", + NULL_CHAR, NULL_CHAR ); + } else if( strcmp(IDENT((yyvsp[-3].ttype)),IDENT(UDP_REG_NAME(current_module)))!=0 ) { + error( "initial statement does not reference port output", + NULL_CHAR, NULL_CHAR ); + } else { + UDP_INITIAL_VALUE(current_module) = (yyvsp[-1].ttype); + } + (yyval.ttype) = NULL_TREE; + } + break; + + case 58: +#line 674 "parse.yy" + { extern int enable_udp_parse; + enable_udp_parse = TRUE; + current_udp_string = NULL_TREE; + } + break; + + case 59: +#line 679 "parse.yy" + { + UDP_STRING_LIST(current_module) = (yyvsp[-1].ttype); + (yyval.ttype) = NULL_TREE; + } + break; + + case 61: +#line 687 "parse.yy" + { + (yyval.ttype) = chainon ((yyvsp[0].ttype), (yyvsp[-1].ttype)); + } + break; + + case 62: +#line 693 "parse.yy" + { + validate_udp_string( current_module, current_udp_string ); + (yyval.ttype) = current_udp_string; + current_udp_string = NULL_TREE; + } + break; + + case 63: +#line 701 "parse.yy" + { (yyval.ttype) = NULL; } + break; + + case 64: +#line 703 "parse.yy" + { (yyval.ttype) = NULL; } + break; + + case 65: +#line 707 "parse.yy" + { + append_udp_digits( ¤t_udp_string, (yyvsp[0].c), (yyvsp[0].c) ); + (yyval.ttype) = NULL; + } + break; + + case 66: +#line 712 "parse.yy" + { + append_udp_digits( ¤t_udp_string,'?','?' ); + (yyval.ttype) = NULL; + } + break; + + case 67: +#line 717 "parse.yy" + { + append_udp_digits( ¤t_udp_string,'0','0' ); + (yyval.ttype) = NULL; + } + break; + + case 68: +#line 722 "parse.yy" + { + append_udp_digits( ¤t_udp_string,'1','1' ); + (yyval.ttype) = NULL; + } + break; + + case 69: +#line 727 "parse.yy" + { + append_udp_digits( ¤t_udp_string,'b','b' ); + (yyval.ttype) = NULL; + } + break; + + case 70: +#line 732 "parse.yy" + { + append_udp_digits( ¤t_udp_string,'x','x' ); + (yyval.ttype) = NULL; + } + break; + + case 71: +#line 737 "parse.yy" + { + /* ? and b must be convert different but equivilent characters + otherwise edges cannot be distinguished from levels */ + + if( (yyvsp[-2].c)=='?' ) { + (yyvsp[-2].c) = '!'; + } else if( (yyvsp[-2].c)=='b' ) { + (yyvsp[-2].c) = '%'; + } + append_udp_digits( ¤t_udp_string,(yyvsp[-2].c), (yyvsp[-1].c) ); + (yyval.ttype) = NULL; + } + break; + + case 77: +#line 760 "parse.yy" + { syn_warning ("Task definition"); + tmp_tree = build_task (check_task ((yyvsp[-1].ttype))); + make_block_decl ((yyvsp[0].ttype), current_scope, tmp_tree); + current_scope = tmp_tree; + BLOCK_DOWN (current_module) = chainon (current_scope, BLOCK_DOWN (current_module)); + BLOCK_UP (current_scope) = current_module; + push_scope (); + in_tf = 1; + } + break; + + case 78: +#line 770 "parse.yy" + { BLOCK_BODY (current_scope) = (yyvsp[-1].ttype); + in_tf = 0; + BLOCK_PORTS (current_scope) = nreverse (BLOCK_PORTS (current_scope)); + BLOCK_DECL (current_scope) = nreverse (BLOCK_DECL (current_scope)); + current_scope = pop_scope (); + } + break; + + case 79: +#line 780 "parse.yy" + { current_scope = build_function (check_function ((yyvsp[-1].ttype))); + make_block_decl ((yyvsp[-1].ttype), current_module, current_scope); + push_scope (); /* funct name becomes var inside of funct */ + FUNCT_DECL (current_scope) = make_decl ((yyvsp[-1].ttype), (yyvsp[-2].ttype), NULL_TREE, NULL_TREE); + BLOCK_DOWN (current_module) = chainon (current_scope, BLOCK_DOWN (current_module)); + BLOCK_UP (current_scope) = current_module; + in_tf = in_function = 1; + } + break; + + case 80: +#line 789 "parse.yy" + { BLOCK_BODY (current_scope) = (yyvsp[-1].ttype); + in_tf = in_function = 0; + BLOCK_PORTS (current_scope) = nreverse (BLOCK_PORTS (current_scope)); + BLOCK_DECL (current_scope) = nreverse (BLOCK_DECL (current_scope)); + current_scope = pop_scope (); + } + break; + + case 81: +#line 799 "parse.yy" + { (yyval.ttype) = make_reg_spec (NULL_TREE); } + break; + + case 82: +#line 801 "parse.yy" + { (yyval.ttype) = make_reg_spec ((yyvsp[0].ttype)); } + break; + + case 83: +#line 803 "parse.yy" + { (yyval.ttype) = make_integer_spec (NULL_TREE); } + break; + + case 84: +#line 805 "parse.yy" + { (yyval.ttype) = make_real_spec (NULL_TREE); } + break; + + case 85: +#line 810 "parse.yy" + {} + break; + + case 90: +#line 826 "parse.yy" + { current_spec = make_param_spec ((yyvsp[0].ttype)); } + break; + + case 91: +#line 828 "parse.yy" + { BLOCK_DECL (current_scope) = + chainon ((yyvsp[-1].ttype), BLOCK_DECL (current_scope)); + } + break; + + case 93: +#line 836 "parse.yy" + { yyerrok; + (yyval.ttype) = chainon ((yyvsp[0].ttype), (yyvsp[-2].ttype)); + } + break; + + case 95: +#line 841 "parse.yy" + { yyerrok; } + break; + + case 97: +#line 847 "parse.yy" + { (yyval.ttype) = make_param_decl (check_non_reg ((yyvsp[-2].ttype)), current_spec, (yyvsp[0].ttype)); + } + break; + + case 98: +#line 850 "parse.yy" + { (yyval.ttype) = make_param_decl (check_non_reg ((yyvsp[-2].ttype)), current_spec, (yyvsp[0].ttype)); + } + break; + + case 99: +#line 856 "parse.yy" + {} + break; + + case 100: +#line 861 "parse.yy" + { BLOCK_DECL (current_scope) = + chainon ((yyvsp[-1].ttype), BLOCK_DECL (current_scope)); } + break; + + case 101: +#line 864 "parse.yy" + { BLOCK_DECL (current_scope) = + chainon ((yyvsp[-1].ttype), BLOCK_DECL (current_scope)); } + break; + + case 102: +#line 867 "parse.yy" + { BLOCK_DECL (current_scope) = + chainon ((yyvsp[-1].ttype), BLOCK_DECL (current_scope)); } + break; + + case 103: +#line 874 "parse.yy" + { BLOCK_PORTS (current_scope) = + chainon ((yyvsp[-1].ttype), BLOCK_PORTS (current_scope)); } + break; + + case 104: +#line 882 "parse.yy" + { if (in_tf) + (yyval.ttype) = current_spec = make_reg_spec ((yyvsp[0].ttype)); + else + (yyval.ttype) = current_spec = make_net_spec (default_net_type, (yyvsp[0].ttype), NULL_TREE); + PORT_INPUT_ATTR ((yyval.ttype)) = 1; + } + break; + + case 105: +#line 889 "parse.yy" + { function_error; + if (in_tf) + (yyval.ttype) = current_spec = make_reg_spec ((yyvsp[0].ttype)); + else + (yyval.ttype) = current_spec = make_net_spec (default_net_type, (yyvsp[0].ttype), NULL_TREE); + PORT_OUTPUT_ATTR ((yyval.ttype)) = 1; + } + break; + + case 106: +#line 897 "parse.yy" + { function_error; + if (in_tf) + (yyval.ttype) = current_spec = make_reg_spec ((yyvsp[0].ttype)); + else + (yyval.ttype) = current_spec = make_net_spec (default_net_type, (yyvsp[0].ttype), NULL_TREE); + PORT_INPUT_ATTR ((yyval.ttype)) = 1; + PORT_OUTPUT_ATTR ((yyval.ttype)) = 1; + } + break; + + case 107: +#line 909 "parse.yy" + { (yyval.ttype) = make_decl (check_port ((yyvsp[0].ttype)), current_spec, NULL_TREE, NULL_TREE); } + break; + + case 108: +#line 911 "parse.yy" + { yyerrok; + (yyval.ttype) = chainon (make_decl (check_port ((yyvsp[0].ttype)), current_spec, NULL_TREE, NULL_TREE), (yyvsp[-2].ttype)); + } + break; + + case 111: +#line 917 "parse.yy" + { yyerrok; } + break; + + case 113: +#line 923 "parse.yy" + { current_spec = make_reg_spec ((yyvsp[0].ttype)); } + break; + + case 114: +#line 925 "parse.yy" + { if (!(yyvsp[0].ttype)) + syn_warning ("Integer Range"); + current_spec = make_integer_spec ((yyvsp[0].ttype)); + } + break; + + case 115: +#line 930 "parse.yy" + { syn_warning ("TIME"); + current_spec = make_time_spec ((yyvsp[0].ttype)); + } + break; + + case 116: +#line 937 "parse.yy" + { current_spec = make_real_spec (NULL_TREE); } + break; + + case 117: +#line 942 "parse.yy" + { syn_warning ("EVENT"); + current_spec = make_event_spec (); } + break; + + case 118: +#line 948 "parse.yy" + { lval_type = LVAL_NEW_NET; } + break; + + case 119: +#line 953 "parse.yy" + { BLOCK_DECL (current_scope) = + chainon ((yyvsp[-1].ttype), BLOCK_DECL (current_scope)); + lval_type = LVAL_REG; + current_delay = NULL_TREE; + } + break; + + case 121: +#line 960 "parse.yy" + { lval_type = LVAL_REG; + MODULE_ASSIGNMENTS (current_module) = + chainon ((yyvsp[-1].ttype), MODULE_ASSIGNMENTS (current_module)); + current_delay = NULL_TREE; + } + break; + + case 122: +#line 969 "parse.yy" + { (yyval.ttype) = current_spec = make_net_spec ((yyvsp[-2].ntype), (yyvsp[-1].ttype), (yyvsp[0].ttype)); + current_delay = (yyvsp[0].ttype); + } + break; + + case 123: +#line 976 "parse.yy" + { syn_warning ("TRIREG net"); + sorry ("TRIREG net type is not supported in this version"); + } + break; + + case 124: +#line 980 "parse.yy" + { (yyval.ttype) = error_mark_node; } + break; + + case 126: +#line 986 "parse.yy" + { syn_warning ("SUPPLY0 net"); } + break; + + case 127: +#line 988 "parse.yy" + { syn_warning ("SUPPLY1 net"); } + break; + + case 129: +#line 1001 "parse.yy" + { sorry ("SCALARED keyword not supported; all nets treated as vectored"); + NET_SCALARED_ATTR ((yyvsp[0].ttype)) = 1; + (yyval.ttype) = (yyvsp[0].ttype); + } + break; + + case 130: +#line 1006 "parse.yy" + { sorry ("VECTORED keyword is not supported; all nets treated as vectored"); + NET_VECTORED_ATTR ((yyvsp[0].ttype)) = 1; + (yyval.ttype) = (yyvsp[0].ttype); + } + break; + + case 131: +#line 1011 "parse.yy" + { (yyval.ttype) = NULL_TREE; } + break; + + case 132: +#line 1016 "parse.yy" + { lval_type = LVAL_NET; } + break; + + case 133: +#line 1018 "parse.yy" + { lval_type = LVAL_REG; + MODULE_ASSIGNMENTS (current_module) = + chainon ((yyvsp[-1].ttype), MODULE_ASSIGNMENTS (current_module)); + } + break; + + case 134: +#line 1026 "parse.yy" + { current_delay = (yyvsp[0].ttype); /* strength not supported */ + (yyval.ttype) = NULL; + } + break; + + case 135: +#line 1033 "parse.yy" + { (yyval.ttype) = build_tree_list ((yyvsp[0].ttype), NULL_TREE); } + break; + + case 136: +#line 1035 "parse.yy" + { yyerrok; + (yyval.ttype) = tree_cons ((yyvsp[0].ttype), NULL_TREE, (yyvsp[-2].ttype)); + } + break; + + case 139: +#line 1041 "parse.yy" + { yyerrok; } + break; + + case 141: +#line 1046 "parse.yy" + { (yyval.ltype) = stmt_lineno; } + break; + + case 142: +#line 1048 "parse.yy" + { (yyval.ttype) = build_cont_assign ( + check_lval ((yyvsp[-3].ttype), lval_type, current_spec), + (yyvsp[0].ttype), (yyvsp[-1].ltype), current_delay, current_delay!=0); + } + break; + + case 143: +#line 1057 "parse.yy" + { (yyval.ttype) = build_tree_list ((yyvsp[0].ttype), NULL_TREE); } + break; + + case 144: +#line 1059 "parse.yy" + { yyerrok; + (yyval.ttype) = tree_cons ((yyvsp[0].ttype), NULL_TREE, (yyvsp[-2].ttype)); + } + break; + + case 147: +#line 1065 "parse.yy" + { yyerrok; } + break; + + case 149: +#line 1070 "parse.yy" + { (yyval.ltype) = stmt_lineno; } + break; + + case 150: +#line 1072 "parse.yy" + { (yyval.ttype) = build_cont_assign ((yyvsp[-3].ttype), (yyvsp[0].ttype), (yyvsp[-1].ltype), current_delay, + current_delay!=0); } + break; + + case 151: +#line 1077 "parse.yy" + { syn_warning ("DEFPARAM"); } + break; + + case 152: +#line 1082 "parse.yy" + { MODULE_DEFPARAMS (current_module) = chainon ( + build_stmt (ASSIGN_STMT, stmt_lineno, (yyvsp[-2].ttype), (yyvsp[0].ttype)), + MODULE_DEFPARAMS (current_module)); + } + break; + + case 153: +#line 1087 "parse.yy" + { + MODULE_DEFPARAMS (current_module) = chainon ( + build_stmt (ASSIGN_STMT, stmt_lineno, (yyvsp[-2].ttype), (yyvsp[0].ttype)), + MODULE_DEFPARAMS (current_module)); + } + break; + + case 155: +#line 1097 "parse.yy" + { yyerrok; + (yyval.ttype) = chainon ((yyvsp[0].ttype), (yyvsp[-2].ttype)); + } + break; + + case 158: +#line 1103 "parse.yy" + { yyerrok; } + break; + + case 160: +#line 1109 "parse.yy" + { (yyval.ttype) = make_decl (check_reg ((yyvsp[0].ttype)), current_spec, NULL_TREE, NULL_TREE); } + break; + + case 161: +#line 1111 "parse.yy" + { (yyval.ttype) = make_decl (check_reg ((yyvsp[-5].ttype)), current_spec, (yyvsp[-3].ttype), (yyvsp[-1].ttype)); + syn_warning ("REG/INTEGER arrays"); + } + break; + + case 162: +#line 1118 "parse.yy" + { (yyval.ttype) = make_decl (check_non_reg ((yyvsp[0].ttype)), current_spec, NULL_TREE, NULL_TREE); } + break; + + case 163: +#line 1120 "parse.yy" + { (yyval.ttype) = chainon (make_decl (check_non_reg ((yyvsp[0].ttype)), current_spec, NULL_TREE, NULL_TREE), (yyvsp[-2].ttype)); } + break; + + case 164: +#line 1125 "parse.yy" + { (yyval.ttype) = make_decl (check_net ((yyvsp[0].ttype)), current_spec, NULL_TREE, NULL_TREE); } + break; + + case 165: +#line 1127 "parse.yy" + { (yyval.ttype) = chainon (make_decl (check_net ((yyvsp[0].ttype)), current_spec, NULL_TREE, NULL_TREE), (yyvsp[-2].ttype)); } + break; + + case 166: +#line 1132 "parse.yy" + { (yyval.ttype) = NULL; } + break; + + case 167: +#line 1134 "parse.yy" + { (yyval.ttype) = NULL; } + break; + + case 168: +#line 1136 "parse.yy" + { (yyval.ttype) = NULL; } + break; + + case 169: +#line 1138 "parse.yy" + { (yyval.ttype) = NULL; } + break; + + case 170: +#line 1143 "parse.yy" + {} + break; + + case 171: +#line 1145 "parse.yy" + { +warning ("Strength specification is not supported and is ignored", NULL_CHAR, NULL_CHAR); + } + break; + + case 172: +#line 1153 "parse.yy" + { (yyval.ttype) = NULL; } + break; + + case 173: +#line 1155 "parse.yy" + { (yyval.ttype) = NULL; } + break; + + case 178: +#line 1179 "parse.yy" + { (yyval.ttype) = NULL_TREE;} + break; + + case 180: +#line 1185 "parse.yy" + { TREE_OPERAND (range_handle, 0) = (yyvsp[-3].ttype); + TREE_OPERAND (range_handle, 1) = (yyvsp[-1].ttype); + (yyval.ttype) = range_handle; + } + break; + + case 181: +#line 1201 "parse.yy" + { current_gatetype = (yyvsp[0].gtype); + in_instantiation = 1; + } + break; + + case 182: +#line 1205 "parse.yy" + { in_instantiation = 0; } + break; + + case 184: +#line 1214 "parse.yy" + { (yyval.gtype) = GATE_OR_TYPE; } + break; + + case 185: +#line 1216 "parse.yy" + { syn_warning ("Buffer gate"); } + break; + + case 186: +#line 1218 "parse.yy" + { syn_warning ("Bufif gate"); } + break; + + case 187: +#line 1220 "parse.yy" + { syn_warning ("CMOS gate"); } + break; + + case 188: +#line 1222 "parse.yy" + { syn_warning ("PULL gate"); } + break; + + case 189: +#line 1224 "parse.yy" + { syn_warning ("TRAN gate"); } + break; + + case 190: +#line 1237 "parse.yy" + { current_delay = NULL_TREE; } + break; + + case 192: +#line 1243 "parse.yy" + { current_delay = (yyvsp[0].ttype); } + break; + + case 196: +#line 1254 "parse.yy" + { (yyval.ttype) = build_gate_instance (current_gatetype, input_filename, lineno, + (yyvsp[-3].ttype), nreverse ((yyvsp[-1].ttype)), current_delay, NULL_TREE); + MODULE_INSTANCES (current_module) = chainon ((yyval.ttype), + MODULE_INSTANCES (current_module)); + } + break; + + case 197: +#line 1260 "parse.yy" + { (yyval.ttype) = build_gate_instance (current_gatetype, input_filename, lineno, + NULL_TREE, nreverse ((yyvsp[-1].ttype)), current_delay, NULL_TREE); + MODULE_INSTANCES (current_module) = chainon ((yyval.ttype), + MODULE_INSTANCES (current_module)); + } + break; + + case 198: +#line 1271 "parse.yy" + { current_instance_module = (yyvsp[-1].ttype); + current_instance_param = (yyvsp[0].ttype); + in_instantiation = 1; + } + break; + + case 199: +#line 1276 "parse.yy" + { current_instance_module = NULL_TREE; + current_instance_param = NULL_TREE; + in_instantiation = 0; + } + break; + + case 200: +#line 1307 "parse.yy" + { (yyval.ttype) = NULL; } + break; + + case 201: +#line 1309 "parse.yy" + { (yyval.ttype) = build_tree_list ((yyvsp[0].ttype), NULL_TREE); } + break; + + case 202: +#line 1311 "parse.yy" + { (yyval.ttype) = nreverse ((yyvsp[-1].ttype)); } + break; + + case 203: +#line 1313 "parse.yy" + { (yyval.ttype) = build_tree_list ((yyvsp[-1].ttype), NULL_TREE); } + break; + + case 204: +#line 1315 "parse.yy" + { (yyval.ttype) = build_tree_list ((yyvsp[-1].ttype), NULL_TREE); + (yyval.ttype) = tree_cons ((yyvsp[-3].ttype), NULL_TREE, (yyval.ttype)); + } + break; + + case 205: +#line 1319 "parse.yy" + { (yyval.ttype) = build_tree_list ((yyvsp[-1].ttype), NULL_TREE); + (yyval.ttype) = tree_cons ((yyvsp[-3].ttype), NULL_TREE, (yyval.ttype)); + (yyval.ttype) = tree_cons ((yyvsp[-5].ttype), NULL_TREE, (yyval.ttype)); + } + break; + + case 206: +#line 1327 "parse.yy" + { (yyval.ttype) = build_tree_list ((yyvsp[0].ttype), NULL_TREE); } + break; + + case 207: +#line 1329 "parse.yy" + { (yyval.ttype) = tree_cons ((yyvsp[0].ttype), NULL_TREE, (yyvsp[-2].ttype)); } + break; + + case 208: +#line 1356 "parse.yy" + { (yyval.ttype) = build_tree_list ((yyvsp[0].ttype), NULL_TREE); } + break; + + case 209: +#line 1358 "parse.yy" + { (yyval.ttype) = tree_cons ((yyvsp[0].ttype), NULL_TREE, (yyvsp[-2].ttype)); yyerrok; } + break; + + case 212: +#line 1363 "parse.yy" + { yyerrok; } + break; + + case 215: +#line 1376 "parse.yy" + { yyerrok; } + break; + + case 218: +#line 1380 "parse.yy" + { yyerrok; } + break; + + case 220: +#line 1386 "parse.yy" + { (yyval.ttype) = build_stmt (INSTANCE_NODE, lineno, check_non_reg ((yyvsp[-3].ttype)), + current_instance_module, + nreverse ((yyvsp[-1].ttype)), current_instance_param); + MODULE_INSTANCES (current_module) = chainon ((yyval.ttype), + MODULE_INSTANCES (current_module)); + // make_block_decl ($1, current_module, NULL_TREE); + } + break; + + case 221: +#line 1394 "parse.yy" + { (yyval.ttype) = build_stmt (INSTANCE_NODE, lineno, NULL_TREE, + current_instance_module, + nreverse ((yyvsp[-1].ttype)), current_instance_param); + MODULE_INSTANCES (current_module) = chainon ((yyval.ttype), + MODULE_INSTANCES (current_module)); + } + break; + + case 225: +#line 1410 "parse.yy" + { yyerrok; + (yyval.ttype) = chainon ((yyvsp[0].ttype), (yyvsp[-2].ttype)); + } + break; + + case 228: +#line 1419 "parse.yy" + { (yyval.ttype) = build_tree_list ((yyvsp[0].ttype), NULL_TREE); } + break; + + case 229: +#line 1421 "parse.yy" + { (yyval.ttype) = build_tree_list (NULL_TREE, NULL_TREE); } + break; + + case 231: +#line 1427 "parse.yy" + { (yyval.ttype) = chainon ((yyvsp[0].ttype), (yyvsp[-2].ttype)); } + break; + + case 232: +#line 1432 "parse.yy" + { (yyval.ttype) = build_tree_list ((yyvsp[-1].ttype), (yyvsp[-3].ttype)); } + break; + + case 233: +#line 1434 "parse.yy" + { (yyval.ttype) = NULL; } + break; + + case 234: +#line 1442 "parse.yy" + { (yyval.ltype) = stmt_lineno; + syn_warning ("INITIAL"); } + break; + + case 235: +#line 1445 "parse.yy" + { (yyval.ttype) = build_stmt (INITIAL_BLOCK, (yyvsp[-1].ltype), (yyvsp[0].ttype)); } + break; + + case 236: +#line 1449 "parse.yy" + { (yyval.ltype) = stmt_lineno; } + break; + + case 237: +#line 1451 "parse.yy" + { (yyval.ttype) = build_stmt (ALWAYS_BLOCK, (yyvsp[-1].ltype), (yyvsp[0].ttype)); } + break; + + case 239: +#line 1457 "parse.yy" + { (yyval.ttype) = build_stmt (NULL_STMT, lineno); } + break; + + case 241: +#line 1464 "parse.yy" + { (yyval.ltype) = stmt_lineno; } + break; + + case 242: +#line 1466 "parse.yy" + { (yyval.ttype) = build_stmt (IF_STMT, (yyvsp[-5].ltype), (yyvsp[-3].ttype), (yyvsp[-1].ttype), (yyvsp[0].ttype)); } + break; + + case 243: +#line 1468 "parse.yy" + { (yyval.ttype) = current_case; } + break; + + case 244: +#line 1470 "parse.yy" + { current_case = (yyvsp[0].ttype); } + break; + + case 245: +#line 1472 "parse.yy" + { STMT_CASE_EXPR ((yyvsp[-6].ttype)) = (yyvsp[-3].ttype); + STMT_CASE_LIST ((yyvsp[-6].ttype)) = nreverse ((yyvsp[-1].ttype)); + current_case = (yyvsp[-7].ttype); + (yyval.ttype) = (yyvsp[-6].ttype); + } + break; + + case 246: +#line 1479 "parse.yy" + { (yyval.ltype) = stmt_lineno; + syn_warning ("FOREVER"); } + break; + + case 247: +#line 1482 "parse.yy" + { (yyval.ttype) = build_stmt (FOREVER_STMT, (yyvsp[-1].ltype), (yyvsp[0].ttype)); } + break; + + case 248: +#line 1485 "parse.yy" + { (yyval.ltype) = stmt_lineno; + syn_warning ("REPEAT"); } + break; + + case 249: +#line 1488 "parse.yy" + { (yyval.ttype) = build_stmt (REPEAT_INIT_STMT, (yyvsp[-4].ltype), (yyvsp[0].ttype), (yyvsp[-2].ttype)); + tmp_tree = build_stmt (REPEAT_STMT, (yyvsp[-4].ltype), (yyval.ttype), (yyvsp[-2].ttype)); + chainon ((yyvsp[0].ttype), tmp_tree); + } + break; + + case 250: +#line 1494 "parse.yy" + { (yyval.ltype) = stmt_lineno; + syn_warning ("WHILE"); } + break; + + case 251: +#line 1497 "parse.yy" + { (yyval.ttype) = build_stmt (WHILE_STMT, (yyvsp[-4].ltype), (yyvsp[0].ttype), (yyvsp[-2].ttype)); } + break; + + case 252: +#line 1499 "parse.yy" + { (yyval.ltype) = stmt_lineno; } + break; + + case 253: +#line 1501 "parse.yy" + { stmt_lineno = (yyvsp[-8].ltype); + tmp_tree = build_stmt (FOR_STMT, (yyvsp[-8].ltype), (yyvsp[0].ttype), (yyvsp[-2].ttype), (yyvsp[-4].ttype)); + STMT_SURROGATE_ATTR (tmp_tree) = 1; + (yyval.ttype) = build_stmt (FOR_STMT, (yyvsp[-8].ltype), (yyvsp[0].ttype), (yyvsp[-6].ttype), (yyvsp[-4].ttype)); + TREE_CHAIN (tmp_tree) = (yyval.ttype); /* Fix this in pass 3 */ + chainon ((yyvsp[0].ttype), tmp_tree); /* at end of statement sequence */ + } + break; + + case 254: +#line 1510 "parse.yy" + { (yyval.ltype) = stmt_lineno; + syn_warning ("delay control"); + function_error; + } + break; + + case 255: +#line 1515 "parse.yy" + { (yyval.ttype) = build_stmt (DELAY_STMT, (yyvsp[-1].ltype), (yyvsp[0].ttype), (yyvsp[-2].ttype)); } + break; + + case 256: +#line 1518 "parse.yy" + { stmt_lineno = lineno; + function_error; + } + break; + + case 257: +#line 1522 "parse.yy" + { STMT_BODY ((yyvsp[-2].ttype)) = (yyvsp[0].ttype); + (yyval.ttype) = (yyvsp[-2].ttype); + } + break; + + case 258: +#line 1527 "parse.yy" + { (yyval.ltype) = stmt_lineno; + function_error; + } + break; + + case 259: +#line 1531 "parse.yy" + { (yyval.ttype) = build_stmt (ASSIGN_DELAY_STMT, (yyvsp[-3].ltype), (yyvsp[-5].ttype), + implicit_conversion ((yyvsp[-5].ttype), (yyvsp[-1].ttype)), + NULL_TREE, NULL_TREE, + build_stmt (DELAY_STMT, (yyvsp[-3].ltype), (yyvsp[-5].ttype), (yyvsp[-2].ttype))); + } + break; + + case 260: +#line 1538 "parse.yy" + { (yyval.ltype) = stmt_lineno; + function_error; + } + break; + + case 261: +#line 1542 "parse.yy" + { (yyval.ttype) = build_stmt (ASSIGN_EVENT_STMT, (yyvsp[-3].ltype), (yyvsp[-5].ttype), + implicit_conversion ((yyvsp[-5].ttype), (yyvsp[-1].ttype)), + NULL_TREE, NULL_TREE, (yyvsp[-2].ttype)); + } + break; + + case 262: +#line 1548 "parse.yy" + { (yyval.ltype) = stmt_lineno; + function_error; + } + break; + + case 263: +#line 1552 "parse.yy" + { (yyval.ttype) = build_stmt (ASSIGN_NONBLK_DELAY_STMT, (yyvsp[-2].ltype), (yyvsp[-4].ttype), + implicit_conversion ((yyvsp[-4].ttype), (yyvsp[-1].ttype)), + NULL_TREE, NULL_TREE, + build_stmt (DELAY_STMT, (yyvsp[-2].ltype), (yyvsp[-4].ttype), integer_zero_node)); + } + break; + + case 264: +#line 1559 "parse.yy" + { (yyval.ltype) = stmt_lineno; + function_error; + } + break; + + case 265: +#line 1563 "parse.yy" + { (yyval.ttype) = build_stmt (ASSIGN_NONBLK_DELAY_STMT, (yyvsp[-3].ltype), (yyvsp[-5].ttype), + implicit_conversion ((yyvsp[-5].ttype), (yyvsp[-1].ttype)), + NULL_TREE, NULL_TREE, + build_stmt (DELAY_STMT, (yyvsp[-3].ltype), (yyvsp[-5].ttype), (yyvsp[-2].ttype))); + } + break; + + case 266: +#line 1570 "parse.yy" + { (yyval.ltype) = stmt_lineno; + function_error; + } + break; + + case 267: +#line 1574 "parse.yy" + { (yyval.ttype) = build_stmt (ASSIGN_NONBLK_EVENT_STMT, (yyvsp[-3].ltype), (yyvsp[-5].ttype), + implicit_conversion ((yyvsp[-5].ttype), (yyvsp[-1].ttype)), + NULL_TREE, NULL_TREE, (yyvsp[-2].ttype)); + } + break; + + case 268: +#line 1586 "parse.yy" + { (yyval.ltype) = stmt_lineno; + syn_warning ("WAIT"); + function_error; + } + break; + + case 269: +#line 1591 "parse.yy" + { (yyval.ttype) = build_stmt (WAIT_STMT, (yyvsp[-4].ltype), (yyvsp[0].ttype), (yyvsp[-2].ttype)); } + break; + + case 270: +#line 1594 "parse.yy" + { (yyval.ltype) = stmt_lineno; + syn_warning ("Event trigger"); + function_error; + } + break; + + case 271: +#line 1599 "parse.yy" + { (yyval.ttype)= build_stmt (ARROW_STMT, (yyvsp[-2].ltype), check_named_event ((yyvsp[-1].ttype))); } + break; + + case 276: +#line 1605 "parse.yy" + { (yyval.ltype) = stmt_lineno; } + break; + + case 277: +#line 1607 "parse.yy" + { (yyval.ttype) = build_stmt (DISABLE_STMT, (yyvsp[-2].ltype), (yyvsp[-1].ttype)); + HIERARCHICAL_ATTR ((yyval.ttype)) = HIERARCHICAL_ATTR ((yyvsp[-1].ttype)); + } + break; + + case 278: +#line 1612 "parse.yy" + { (yyval.ltype) = stmt_lineno; } + break; + + case 279: +#line 1614 "parse.yy" + { (yyval.ttype) = build_stmt (ASSIGN_PROC_STMT, (yyvsp[-4].ltype), (yyvsp[-3].ttype), (yyvsp[-1].ttype), NULL_TREE, + NULL_TREE); } + break; + + case 280: +#line 1618 "parse.yy" + { (yyval.ltype) = stmt_lineno; } + break; + + case 281: +#line 1620 "parse.yy" + { (yyval.ttype) = build_stmt (DEASSIGN_STMT, (yyvsp[-2].ltype), (yyvsp[-1].ttype)); } + break; + + case 282: +#line 1622 "parse.yy" + { (yyval.ltype) = stmt_lineno; + lval_type = LVAL_REG_NET; } + break; + + case 283: +#line 1625 "parse.yy" + { syn_warning ("FORCE"); + (yyval.ttype) = build_stmt (FORCE_STMT, (yyvsp[-4].ltype), (yyvsp[-3].ttype), (yyvsp[-1].ttype), NULL_TREE, + NULL_TREE, NULL_TREE, NULL_TREE); + lval_type = LVAL_REG; + } + break; + + case 284: +#line 1631 "parse.yy" + { (yyval.ltype) = stmt_lineno; + lval_type = LVAL_REG_NET; } + break; + + case 285: +#line 1634 "parse.yy" + { syn_warning ("RELEASE"); + (yyval.ttype) = build_stmt (RELEASE_STMT, (yyvsp[-2].ltype), (yyvsp[-1].ttype)); + lval_type = LVAL_REG; + } + break; + + case 286: +#line 1644 "parse.yy" + { (yyval.ttype) = NULL; } + break; + + case 287: +#line 1646 "parse.yy" + { (yyval.ttype) = (yyvsp[0].ttype); } + break; + + case 288: +#line 1651 "parse.yy" + { (yyval.ttype) = build_stmt (CASE_STMT, stmt_lineno, NULL_TREE, NULL_TREE, NULL_TREE); } + break; + + case 289: +#line 1653 "parse.yy" + { (yyval.ttype) = build_stmt (CASEZ_STMT, stmt_lineno, NULL_TREE, NULL_TREE, NULL_TREE); } + break; + + case 290: +#line 1655 "parse.yy" + { (yyval.ttype) = build_stmt (CASEX_STMT, stmt_lineno, NULL_TREE, NULL_TREE, NULL_TREE); } + break; + + case 291: +#line 1666 "parse.yy" + { (yyval.ltype) = stmt_lineno; } + break; + + case 292: +#line 1668 "parse.yy" + { (yyval.ttype) = build_stmt (ASSIGN_STMT, (yyvsp[-1].ltype), (yyvsp[-3].ttype), + implicit_conversion ((yyvsp[-3].ttype), (yyvsp[0].ttype))); } + break; + + case 294: +#line 1675 "parse.yy" + { yyerrok; + (yyval.ttype) = chainon ((yyvsp[0].ttype), (yyvsp[-1].ttype)); + } + break; + + case 297: +#line 1684 "parse.yy" + { (yyval.ttype) = build_tree_list ((yyvsp[-2].ttype), (yyvsp[0].ttype)); } + break; + + case 298: +#line 1687 "parse.yy" + { if (STMT_CASE_DEFAULT (current_case)) + error ("More than one 'DEFAULT' within CASE", NULL_CHAR, NULL_CHAR); + STMT_CASE_DEFAULT (current_case) = (yyvsp[0].ttype); + } + break; + + case 299: +#line 1692 "parse.yy" + { if (STMT_CASE_DEFAULT (current_case)) + error ("More than one 'DEFAULT' within CASE", NULL_CHAR, NULL_CHAR); + STMT_CASE_DEFAULT (current_case) = (yyvsp[0].ttype); + } + break; + + case 300: +#line 1700 "parse.yy" + { (yyval.ttype) = build_tree_list ((yyvsp[0].ttype), NULL_TREE); } + break; + + case 301: +#line 1702 "parse.yy" + { (yyval.ttype) = tree_cons ((yyvsp[0].ttype), NULL_TREE, (yyvsp[-2].ttype)); } + break; + + case 304: +#line 1709 "parse.yy" + { if( (yyvsp[0].ttype) != NULL_TREE ) { + (yyval.ttype) = build_tree_list ((yyvsp[0].ttype), NULL_TREE); + } else { + (yyval.ttype) = (yyvsp[0].ttype); + } + } + break; + + case 305: +#line 1716 "parse.yy" + { (yyval.ttype) = tree_cons ((yyvsp[0].ttype), NULL_TREE, (yyvsp[-2].ttype)); } + break; + + case 306: +#line 1725 "parse.yy" + { (yyval.ttype) = NULL_TREE; } + break; + + case 308: +#line 1731 "parse.yy" + { (yyval.ttype) = build_stmt (BEGIN_STMT, stmt_lineno); } + break; + + case 309: +#line 1733 "parse.yy" + { STMT_BODY ((yyvsp[-2].ttype)) = nreverse + (chainon (build_stmt (END_STMT, stmt_lineno), (yyvsp[-1].ttype))); + (yyval.ttype) = (yyvsp[-2].ttype); + } + break; + + case 310: +#line 1738 "parse.yy" + { tmp_tree = make_node (NAMED_BLOCK); + BLOCK_DOWN (current_scope) = chainon (tmp_tree, BLOCK_DOWN (current_scope)); + BLOCK_UP (tmp_tree) = current_scope; + BLOCK_NAME (tmp_tree) = (yyvsp[0].ttype); + BLOCK_BODY (tmp_tree) = NULL_TREE; + BLOCK_CONTEXT_LIST (tmp_tree) = NULL; + make_block_decl (check_block ((yyvsp[0].ttype)), current_scope, tmp_tree); + current_scope = tmp_tree; + push_scope (); + (yyval.ttype) = build_stmt (BEGIN_NAMED_STMT, stmt_lineno, + NULL_TREE, tmp_tree); + } + break; + + case 311: +#line 1751 "parse.yy" + { tmp_tree = build_stmt (END_NAMED_STMT, stmt_lineno, + NULL_TREE, STMT_BLOCK ((yyvsp[-3].ttype))); + /* STMT_BEGIN_NAMED_END ($4) = tmp_tree; */ + STMT_BODY ((yyvsp[-3].ttype)) = nreverse (chainon (tmp_tree, (yyvsp[-1].ttype))); + current_scope = pop_scope (); + (yyval.ttype) = (yyvsp[-3].ttype); + } + break; + + case 312: +#line 1762 "parse.yy" + { (yyval.ttype) = build_stmt (FORK_STMT, stmt_lineno); } + break; + + case 313: +#line 1764 "parse.yy" + { STMT_BODY ((yyvsp[-2].ttype)) = chainon /* thread JOIN to BEGINNING */ + (build_stmt (JOIN_STMT, stmt_lineno, NULL_TREE), + nreverse ((yyvsp[-1].ttype))); + (yyval.ttype) = (yyvsp[-2].ttype); + } + break; + + case 314: +#line 1770 "parse.yy" + { tmp_tree = make_node (NAMED_BLOCK); + BLOCK_DOWN (current_scope) = chainon (tmp_tree, BLOCK_DOWN (current_scope)); + BLOCK_UP (tmp_tree) = current_scope; + BLOCK_NAME (tmp_tree) = (yyvsp[0].ttype); + BLOCK_BODY (tmp_tree) = NULL_TREE; + make_block_decl (check_block ((yyvsp[0].ttype)), current_scope, tmp_tree); + current_scope = tmp_tree; + push_scope (); + (yyval.ttype) = build_stmt (FORK_NAMED_STMT, stmt_lineno, + NULL_TREE, tmp_tree); + } + break; + + case 315: +#line 1782 "parse.yy" + { tmp_tree = build_stmt (JOIN_NAMED_STMT, stmt_lineno, + NULL_TREE, STMT_BLOCK ((yyvsp[-3].ttype))); + /* STMT_BEGIN_NAMED_END ($4) = tmp_tree; */ + STMT_BODY ((yyvsp[-3].ttype)) = chainon (tmp_tree, nreverse ((yyvsp[-1].ttype))); + current_scope = pop_scope (); + (yyval.ttype) = (yyvsp[-3].ttype); + } + break; + + case 316: +#line 1793 "parse.yy" + { (yyval.ttype) = NULL; } + break; + + case 317: +#line 1795 "parse.yy" + { yyerrok; + (yyval.ttype) = chainon ((yyvsp[0].ttype), (yyvsp[-1].ttype)); + } + break; + + case 319: +#line 1803 "parse.yy" + { (yyval.ttype) = NULL; } + break; + + case 320: +#line 1805 "parse.yy" + { yyerrok; + (yyval.ttype) = tree_cons ((yyvsp[0].ttype), NULL_TREE, (yyvsp[-1].ttype)); + } + break; + + case 322: +#line 1813 "parse.yy" + { (yyval.ttype) = NULL; } + break; + + case 326: +#line 1824 "parse.yy" + { syn_warning ("task enable"); + function_error; + (yyval.ttype) = build_stmt (TASK_STMT, lineno, IDENTIFIER_POINTER ((yyvsp[-1].ttype)), NULL_TREE); + HIERARCHICAL_ATTR ((yyval.ttype)) = HIERARCHICAL_ATTR ((yyvsp[-1].ttype)); + } + break; + + case 327: +#line 1830 "parse.yy" + { syn_warning ("task enable"); + (yyval.ttype) = build_stmt (TASK_STMT, lineno, IDENTIFIER_POINTER ((yyvsp[-4].ttype)), nreverse ((yyvsp[-2].ttype))); + HIERARCHICAL_ATTR ((yyval.ttype)) = HIERARCHICAL_ATTR ((yyvsp[-4].ttype)); + } + break; + + case 328: +#line 1838 "parse.yy" + { (yyval.ttype) = build_stmt (SYSTASK_STMT, lineno, IDENTIFIER_POINTER ((yyvsp[-1].ttype)), NULL_TREE); } + break; + + case 329: +#line 1840 "parse.yy" + { in_systask = 1; } + break; + + case 330: +#line 1842 "parse.yy" + { (yyval.ttype) = build_stmt (SYSTASK_STMT, lineno, IDENTIFIER_POINTER ((yyvsp[-5].ttype)), nreverse ((yyvsp[-2].ttype))); + in_systask = 0; + } + break; + + case 331: +#line 1849 "parse.yy" + { stmt_lineno = lineno; } + break; + + case 332: +#line 1851 "parse.yy" + { stmt_lineno = lineno; } + break; + + case 333: +#line 1856 "parse.yy" + { (yyval.ttype) = check_lval ((yyvsp[0].ttype), lval_type, current_spec); } + break; + + case 334: +#line 1858 "parse.yy" + { (yyval.ttype) = build_bit_ref ( + check_lval_nocheck ((yyvsp[-3].ttype), lval_type, current_spec), (yyvsp[-1].ttype)); } + break; + + case 335: +#line 1861 "parse.yy" + { (yyval.ttype) = build_part_ref ( + check_lval_nocheck ((yyvsp[-5].ttype), lval_type, current_spec), (yyvsp[-3].ttype), (yyvsp[-1].ttype)); } + break; + + case 336: +#line 1871 "parse.yy" + { + } + break; + + case 337: +#line 1874 "parse.yy" + {} + break; + + case 338: +#line 1880 "parse.yy" + {} + break; + + case 339: +#line 1885 "parse.yy" + { (yyval.ttype) = NULL; } + break; + + case 340: +#line 1887 "parse.yy" + { yyerrok; + (yyval.ttype) = NULL; + // $$ = chainon ($2, $1); + } + break; + + case 344: +#line 1897 "parse.yy" + { + if( (yyvsp[0].ttype)!=NULL_TREE ) { + STMT_SOURCE_LINE((yyvsp[0].ttype)) = stmt_lineno; + STMT_SOURCE_FILE((yyvsp[0].ttype)) = input_filename; + MODULE_SPECDEFS(current_module) = + chainon(MODULE_SPECDEFS(current_module),(yyvsp[0].ttype)); + } + } + break; + + case 345: +#line 1915 "parse.yy" + { current_spec = make_param_spec (NULL_TREE); } + break; + + case 346: +#line 1917 "parse.yy" + { + specify_save_param_list( current_module, (yyvsp[-1].ttype) ); + } + break; + + case 347: +#line 1924 "parse.yy" + { + PATH_CONDITION((yyvsp[-3].ttype)) = (yyvsp[-4].ttype); + PATH_DELAYS((yyvsp[-3].ttype)) = (yyvsp[-1].ttype); + MODULE_SPECDEFS(current_module) = + chainon(MODULE_SPECDEFS(current_module),check_path((yyvsp[-3].ttype))); + } + break; + + case 348: +#line 1938 "parse.yy" + { + (yyval.ttype) = build_path( nreverse((yyvsp[-7].ttype)), nreverse((yyvsp[-4].ttype)), (yyvsp[-2].ttype), NULL_TREE, NULL_TREE, + (yyvsp[-6].integer), 0, 0 ); + } + break; + + case 349: +#line 1946 "parse.yy" + { + (yyval.ttype) = build_path( nreverse((yyvsp[-7].ttype)), nreverse((yyvsp[-4].ttype)), (yyvsp[-2].ttype), NULL_TREE, NULL_TREE, + (yyvsp[-6].integer), (yyvsp[-8].integer), 0 ); + } + break; + + case 350: +#line 1954 "parse.yy" + { + (yyval.ttype) = build_path( nreverse((yyvsp[-8].ttype)), nreverse((yyvsp[-5].ttype)), (yyvsp[-2].ttype), NULL_TREE, NULL_TREE, + (yyvsp[-7].integer), 0, (yyvsp[-4].integer) ); + } + break; + + case 351: +#line 1962 "parse.yy" + { + (yyval.ttype) = build_path( nreverse((yyvsp[-8].ttype)), nreverse((yyvsp[-5].ttype)), (yyvsp[-2].ttype), NULL_TREE, NULL_TREE, + (yyvsp[-7].integer), (yyvsp[-9].integer), (yyvsp[-4].integer) ); + } + break; + + case 352: +#line 1968 "parse.yy" + { + (yyval.ttype) = build_path( nreverse((yyvsp[-3].ttype)), nreverse((yyvsp[-1].ttype)), NULL_TREE, NULL_TREE, NULL_TREE, + (yyvsp[-2].integer), 0, 0 ); + } + break; + + case 353: +#line 1974 "parse.yy" + { + (yyval.ttype) = build_path( nreverse((yyvsp[-4].ttype)), nreverse((yyvsp[-1].ttype)), NULL_TREE, NULL_TREE, NULL_TREE, + (yyvsp[-2].integer), 0, (yyvsp[-3].integer) ); + } + break; + + case 355: +#line 1982 "parse.yy" + { yyerrok; + (yyval.ttype) = chainon ((yyvsp[0].ttype), (yyvsp[-2].ttype)); + } + break; + + case 357: +#line 1987 "parse.yy" + { yyerrok; } + break; + + case 360: +#line 1993 "parse.yy" + { yyerrok; + (yyval.ttype) = chainon ((yyvsp[0].ttype), (yyvsp[-2].ttype)); + } + break; + + case 362: +#line 1998 "parse.yy" + { yyerrok; } + break; + + case 364: +#line 2003 "parse.yy" + { + (yyval.ttype) = build_tree_list( check_input_port((yyvsp[0].ttype)), NULL_TREE ); + } + break; + + case 365: +#line 2007 "parse.yy" + { + (yyval.ttype) = build_tree_list( build_bit_ref (check_input_port((yyvsp[-3].ttype)), (yyvsp[-1].ttype)), NULL_TREE ); + } + break; + + case 366: +#line 2011 "parse.yy" + { + (yyval.ttype) = build_tree_list( build_part_ref (check_input_port((yyvsp[-5].ttype)), (yyvsp[-3].ttype), (yyvsp[-1].ttype)), NULL_TREE ); + } + break; + + case 367: +#line 2017 "parse.yy" + { + (yyval.ttype) = build_tree_list( check_output_port((yyvsp[0].ttype)), NULL_TREE ); + } + break; + + case 368: +#line 2021 "parse.yy" + { + (yyval.ttype) = build_tree_list( build_bit_ref (check_output_port((yyvsp[-3].ttype)), (yyvsp[-1].ttype)), NULL_TREE ); + } + break; + + case 369: +#line 2025 "parse.yy" + { + (yyval.ttype) = build_tree_list( build_part_ref (check_output_port((yyvsp[-5].ttype)), (yyvsp[-3].ttype), (yyvsp[-1].ttype)), NULL_TREE ); + } + break; + + case 371: +#line 2032 "parse.yy" + { + (yyval.ttype) = chainon( (yyvsp[-3].ttype), (yyvsp[-1].ttype) ); + } + break; + + case 372: +#line 2037 "parse.yy" + { + tree t; + t = chainon( (yyvsp[-5].ttype), (yyvsp[-3].ttype) ); + (yyval.ttype) = chainon( t, (yyvsp[-1].ttype) ); + } + break; + + case 373: +#line 2045 "parse.yy" + { + tree t; + t = chainon( (yyvsp[-11].ttype), (yyvsp[-9].ttype) ); + t = chainon( t, (yyvsp[-7].ttype) ); + t = chainon( t, (yyvsp[-5].ttype) ); + t = chainon( t, (yyvsp[-3].ttype) ); + (yyval.ttype) = chainon( t, (yyvsp[-1].ttype) ); + } + break; + + case 374: +#line 2056 "parse.yy" + { + (yyval.ttype) = build_tree_list((yyvsp[0].ttype),NULL_TREE); + } + break; + + case 375: +#line 2062 "parse.yy" + { + (yyval.integer) = 1; + } + break; + + case 376: +#line 2066 "parse.yy" + { + (yyval.integer) = -1; + } + break; + + case 377: +#line 2072 "parse.yy" + { + (yyval.integer) = FALSE; + } + break; + + case 378: +#line 2076 "parse.yy" + { + (yyval.integer) = TRUE; + } + break; + + case 381: +#line 2090 "parse.yy" + { + (yyval.integer) = 1; + } + break; + + case 382: +#line 2094 "parse.yy" + { + (yyval.integer) = -1; + } + break; + + case 383: +#line 2100 "parse.yy" + { + (yyval.ttype) = 0; + } + break; + + case 384: +#line 2104 "parse.yy" + { + (yyval.ttype) = (yyvsp[-1].ttype); + } + break; + + case 385: +#line 2112 "parse.yy" + { + (yyval.ttype) = build_timing_statement( SETUP, (yyvsp[-7].ttype), (yyvsp[-5].ttype), (yyvsp[-3].ttype), NULL_TREE, (yyvsp[-2].ttype) ); + } + break; + + case 386: +#line 2117 "parse.yy" + { + (yyval.ttype) = build_timing_statement( HOLD, (yyvsp[-7].ttype), (yyvsp[-5].ttype), (yyvsp[-3].ttype), NULL_TREE, (yyvsp[-2].ttype) ); + } + break; + + case 387: +#line 2122 "parse.yy" + { + (yyval.ttype) = build_timing_statement( PERIOD, (yyvsp[-5].ttype), NULL_TREE, (yyvsp[-3].ttype), NULL_TREE, (yyvsp[-2].ttype) ); + } + break; + + case 388: +#line 2127 "parse.yy" + { + (yyval.ttype) = build_timing_statement( WIDTH, (yyvsp[-4].ttype), NULL_TREE, (yyvsp[-2].ttype), NULL_TREE, NULL_TREE ); + } + break; + + case 389: +#line 2132 "parse.yy" + { + (yyval.ttype) = build_timing_statement( WIDTH, (yyvsp[-7].ttype), NULL_TREE, (yyvsp[-5].ttype), (yyvsp[-3].ttype), (yyvsp[-2].ttype) ); + } + break; + + case 390: +#line 2137 "parse.yy" + { + (yyval.ttype) = build_timing_statement( SKEW, (yyvsp[-7].ttype), (yyvsp[-5].ttype), (yyvsp[-3].ttype), NULL_TREE, (yyvsp[-2].ttype) ); + } + break; + + case 391: +#line 2142 "parse.yy" + { + (yyval.ttype) = build_timing_statement( RECOVERY, (yyvsp[-7].ttype), (yyvsp[-5].ttype), (yyvsp[-3].ttype), NULL_TREE, (yyvsp[-2].ttype) ); + } + break; + + case 392: +#line 2147 "parse.yy" + { + (yyval.ttype) = build_timing_statement( SETUPHOLD, (yyvsp[-9].ttype), (yyvsp[-7].ttype), (yyvsp[-5].ttype), (yyvsp[-3].ttype), (yyvsp[-2].ttype) ); + } + break; + + case 393: +#line 2152 "parse.yy" + { + (yyval.ttype) = NULL_TREE; + } + break; + + case 394: +#line 2158 "parse.yy" + { + (yyval.ttype) = 0; + } + break; + + case 395: +#line 2162 "parse.yy" + { + (yyval.ttype) = (yyvsp[0].ttype); + } + break; + + case 397: +#line 2171 "parse.yy" + { + (yyval.ttype) = build_timing_event( (yyvsp[-1].integer), (yyvsp[0].ttype), NULL_TREE ); + } + break; + + case 398: +#line 2176 "parse.yy" + { + (yyval.ttype) = build_timing_event( (yyvsp[-3].integer), (yyvsp[-2].ttype), (yyvsp[0].ttype) ); + } + break; + + case 399: +#line 2182 "parse.yy" + { + (yyval.ttype) = build_timing_event( (yyvsp[-1].integer), (yyvsp[0].ttype), NULL_TREE ); + } + break; + + case 400: +#line 2187 "parse.yy" + { + (yyval.ttype) = build_timing_event( (yyvsp[-3].integer), (yyvsp[-2].ttype), (yyvsp[0].ttype) ); + } + break; + + case 401: +#line 2193 "parse.yy" + { + extern unsigned int alledgeMask; + (yyval.integer) = alledgeMask; + } + break; + + case 402: +#line 2198 "parse.yy" + { + extern unsigned int posedgeMask; + (yyval.integer) = posedgeMask; + } + break; + + case 403: +#line 2203 "parse.yy" + { + extern unsigned int negedgeMask; + (yyval.integer) = negedgeMask; + } + break; + + case 404: +#line 2208 "parse.yy" + { extern int enable_edge_digit; + enable_edge_digit = TRUE; + } + break; + + case 405: +#line 2212 "parse.yy" + { + extern int enable_edge_digit; + enable_edge_digit = FALSE; + (yyval.integer) = (yyvsp[-1].integer); + } + break; + + case 406: +#line 2220 "parse.yy" + { + extern unsigned int posedgeMask; + (yyval.integer) = posedgeMask; + } + break; + + case 407: +#line 2225 "parse.yy" + { + extern unsigned int negedgeMask; + (yyval.integer) = negedgeMask; + } + break; + + case 408: +#line 2230 "parse.yy" + { extern int enable_edge_digit; + enable_edge_digit = TRUE; + } + break; + + case 409: +#line 2234 "parse.yy" + { + extern int enable_edge_digit; + enable_edge_digit = FALSE; + (yyval.integer) = (yyvsp[-1].integer); + } + break; + + case 410: +#line 2242 "parse.yy" + { + extern unsigned int edge_mask[4][4]; + (yyval.integer) = edge_mask[(yyvsp[0].double_digit)[0]][(yyvsp[0].double_digit)[1]]; + } + break; + + case 411: +#line 2247 "parse.yy" + { + extern unsigned int edge_mask[4][4]; + (yyval.integer) = (yyvsp[0].integer) | edge_mask[(yyvsp[-2].double_digit)[0]][(yyvsp[-2].double_digit)[1]]; + } + break; + + case 412: +#line 2252 "parse.yy" + { + (yyval.integer) = 0; + } + break; + + case 414: +#line 2259 "parse.yy" + { (yyval.ttype) = (yyvsp[-1].ttype); } + break; + + case 415: +#line 2261 "parse.yy" + { (yyval.ttype) = build_unary_op (BIT_NOT_EXPR, (yyvsp[0].ttype)); } + break; + + case 416: +#line 2263 "parse.yy" + { (yyval.ttype) = build_binary_op (EQ_EXPR, (yyvsp[-2].ttype), (yyvsp[0].ttype)); } + break; + + case 417: +#line 2265 "parse.yy" + { (yyval.ttype) = build_binary_op (EQ_CASE_EXPR, (yyvsp[-2].ttype), (yyvsp[0].ttype)); } + break; + + case 418: +#line 2267 "parse.yy" + { (yyval.ttype) = build_binary_op (NE_CASE_EXPR, (yyvsp[-2].ttype), (yyvsp[0].ttype)); } + break; + + case 419: +#line 2269 "parse.yy" + { (yyval.ttype) = build_binary_op (NE_EXPR, (yyvsp[-2].ttype), (yyvsp[0].ttype)); } + break; + + case 420: +#line 2273 "parse.yy" + { (yyval.ttype) = check_rval ((yyvsp[0].ttype)); } + break; + + case 421: +#line 2277 "parse.yy" + { + (yyval.ttype) = check_one_bit_constant((yyvsp[0].ttype)); + } + break; + + case 422: +#line 2281 "parse.yy" + { + (yyval.ttype) = check_one_bit_constant((yyvsp[0].ttype)); + } + break; + + case 423: +#line 2288 "parse.yy" + { + check_input_port((yyvsp[0].ttype)); + (yyval.ttype) = check_rval ((yyvsp[0].ttype)); + } + break; + + case 424: +#line 2293 "parse.yy" + { + check_input_port((yyvsp[-3].ttype)); + (yyval.ttype) = build_bit_ref ( check_rval_nocheck ((yyvsp[-3].ttype)), (yyvsp[-1].ttype)); + } + break; + + case 425: +#line 2298 "parse.yy" + { + check_input_port((yyvsp[-5].ttype)); + (yyval.ttype) = build_part_ref ( check_rval_nocheck ((yyvsp[-5].ttype)), (yyvsp[-3].ttype), (yyvsp[-1].ttype)); + } + break; + + case 426: +#line 2311 "parse.yy" + { (yyval.ttype) = make_node (CONCAT_REF); + CONCAT_LIST ((yyval.ttype)) = (yyvsp[-1].ttype); + concat_labels ((yyval.ttype)); + } + break; + + case 427: +#line 2319 "parse.yy" + { (yyval.ttype) = build_tree_list ((yyvsp[0].ttype), NULL_TREE); } + break; + + case 428: +#line 2321 "parse.yy" + { (yyval.ttype) = build_tree_list ((yyvsp[0].ttype), NULL_TREE); } + break; + + case 429: +#line 2323 "parse.yy" + { (yyval.ttype) = tree_cons ((yyvsp[0].ttype), NULL_TREE, (yyvsp[-2].ttype)); } + break; + + case 430: +#line 2325 "parse.yy" + { (yyval.ttype) = tree_cons ((yyvsp[0].ttype), NULL_TREE, (yyvsp[-2].ttype)); } + break; + + case 437: +#line 2339 "parse.yy" + { if (!TREE_CONSTANT_ATTR ((yyvsp[0].ttype))) { + error ("Illegal non-constant expression", NULL_CHAR, NULL_CHAR); + (yyval.ttype) = error_mark_node; + } + else + (yyval.ttype) = (yyvsp[0].ttype); + } + break; + + case 439: +#line 2351 "parse.yy" + { switch (delay_type) { + case (MIN_DELAY): (yyval.ttype) = (yyvsp[-4].ttype); break; + case (TYP_DELAY): (yyval.ttype) = (yyvsp[-2].ttype); break; + case (MAX_DELAY): (yyval.ttype) = (yyvsp[0].ttype); break; + } + } + break; + + case 440: +#line 2361 "parse.yy" + { switch (delay_type) { + case (MIN_DELAY): (yyval.ttype) = (yyvsp[-4].ttype); break; + case (TYP_DELAY): (yyval.ttype) = (yyvsp[-2].ttype); break; + case (MAX_DELAY): (yyval.ttype) = (yyvsp[0].ttype); break; + } + } + break; + + case 442: +#line 2372 "parse.yy" + { (yyval.ttype) = (yyvsp[0].ttype); } + break; + + case 443: +#line 2374 "parse.yy" + { (yyval.ttype) = build_unary_op (NEGATE_EXPR, (yyvsp[0].ttype)); } + break; + + case 444: +#line 2376 "parse.yy" + { (yyval.ttype) = build_unary_op (TRUTH_NOT_EXPR, (yyvsp[0].ttype)); } + break; + + case 445: +#line 2378 "parse.yy" + { (yyval.ttype) = build_unary_op (BIT_NOT_EXPR, (yyvsp[0].ttype)); } + break; + + case 446: +#line 2380 "parse.yy" + { (yyval.ttype) = build_unary_op (AND_REDUCE_EXPR, (yyvsp[0].ttype)); } + break; + + case 447: +#line 2382 "parse.yy" + { (yyval.ttype) = build_unary_op (NAND_REDUCE_EXPR, (yyvsp[0].ttype)); } + break; + + case 448: +#line 2384 "parse.yy" + { (yyval.ttype) = build_unary_op (OR_REDUCE_EXPR, (yyvsp[0].ttype)); } + break; + + case 449: +#line 2386 "parse.yy" + { (yyval.ttype) = build_unary_op (NOR_REDUCE_EXPR, (yyvsp[0].ttype)); } + break; + + case 450: +#line 2388 "parse.yy" + { (yyval.ttype) = build_unary_op (XOR_REDUCE_EXPR, (yyvsp[0].ttype)); } + break; + + case 451: +#line 2390 "parse.yy" + { (yyval.ttype) = build_unary_op (XNOR_REDUCE_EXPR, (yyvsp[0].ttype)); } + break; + + case 452: +#line 2392 "parse.yy" + { (yyval.ttype) = build_binary_op (PLUS_EXPR, (yyvsp[-2].ttype), (yyvsp[0].ttype)); } + break; + + case 453: +#line 2394 "parse.yy" + { (yyval.ttype) = build_binary_op (MINUS_EXPR, (yyvsp[-2].ttype), (yyvsp[0].ttype)); } + break; + + case 454: +#line 2396 "parse.yy" + { (yyval.ttype) = build_binary_op (MULT_EXPR, (yyvsp[-2].ttype), (yyvsp[0].ttype)); } + break; + + case 455: +#line 2398 "parse.yy" + { syn_warning ("Division operator"); } + break; + + case 456: +#line 2400 "parse.yy" + { (yyval.ttype) = build_binary_op (DIV_EXPR, (yyvsp[-3].ttype), (yyvsp[0].ttype)); } + break; + + case 457: +#line 2402 "parse.yy" + { syn_warning ("Modulus operator"); } + break; + + case 458: +#line 2404 "parse.yy" + { (yyval.ttype) = build_binary_op (MOD_EXPR, (yyvsp[-3].ttype), (yyvsp[0].ttype)); } + break; + + case 459: +#line 2406 "parse.yy" + { (yyval.ttype) = build_binary_op (EQ_EXPR, (yyvsp[-2].ttype), (yyvsp[0].ttype)); } + break; + + case 460: +#line 2408 "parse.yy" + { (yyval.ttype) = build_binary_op (NE_EXPR, (yyvsp[-2].ttype), (yyvsp[0].ttype)); } + break; + + case 461: +#line 2410 "parse.yy" + { syn_warning ("Case equality"); } + break; + + case 462: +#line 2412 "parse.yy" + { (yyval.ttype) = build_binary_op (EQ_CASE_EXPR, (yyvsp[-3].ttype), (yyvsp[0].ttype)); } + break; + + case 463: +#line 2414 "parse.yy" + { syn_warning ("Case inequality"); } + break; + + case 464: +#line 2416 "parse.yy" + { (yyval.ttype) = build_binary_op (NE_CASE_EXPR, (yyvsp[-3].ttype), (yyvsp[0].ttype)); } + break; + + case 465: +#line 2418 "parse.yy" + { (yyval.ttype) = build_binary_op (TRUTH_ANDIF_EXPR, (yyvsp[-2].ttype), (yyvsp[0].ttype)); } + break; + + case 466: +#line 2420 "parse.yy" + { (yyval.ttype) = build_binary_op (TRUTH_ORIF_EXPR, (yyvsp[-2].ttype), (yyvsp[0].ttype)); } + break; + + case 467: +#line 2422 "parse.yy" + { (yyval.ttype) = build_binary_op (LT_EXPR, (yyvsp[-2].ttype), (yyvsp[0].ttype)); } + break; + + case 468: +#line 2424 "parse.yy" + { (yyval.ttype) = build_binary_op (LE_EXPR, (yyvsp[-2].ttype), (yyvsp[0].ttype)); } + break; + + case 469: +#line 2426 "parse.yy" + { (yyval.ttype) = build_binary_op (GT_EXPR, (yyvsp[-2].ttype), (yyvsp[0].ttype)); } + break; + + case 470: +#line 2428 "parse.yy" + { (yyval.ttype) = build_binary_op (GE_EXPR, (yyvsp[-2].ttype), (yyvsp[0].ttype)); } + break; + + case 471: +#line 2430 "parse.yy" + { (yyval.ttype) = build_binary_op (BIT_AND_EXPR, (yyvsp[-2].ttype), (yyvsp[0].ttype)); } + break; + + case 472: +#line 2432 "parse.yy" + { (yyval.ttype) = build_binary_op (BIT_OR_EXPR, (yyvsp[-2].ttype), (yyvsp[0].ttype)); } + break; + + case 473: +#line 2434 "parse.yy" + { (yyval.ttype) = build_binary_op (BIT_XOR_EXPR, (yyvsp[-2].ttype), (yyvsp[0].ttype)); } + break; + + case 474: +#line 2436 "parse.yy" + { (yyval.ttype) = build_binary_op (BIT_XNOR_EXPR, (yyvsp[-2].ttype), (yyvsp[0].ttype)); } + break; + + case 475: +#line 2438 "parse.yy" + { (yyval.ttype) = build_binary_op (LSHIFT_EXPR, (yyvsp[-2].ttype), (yyvsp[0].ttype)); } + break; + + case 476: +#line 2440 "parse.yy" + { (yyval.ttype) = build_binary_op (RSHIFT_EXPR, (yyvsp[-2].ttype), (yyvsp[0].ttype)); } + break; + + case 477: +#line 2442 "parse.yy" + { (yyval.ttype) = build_cond_expr ((yyvsp[-4].ttype), (yyvsp[-2].ttype), (yyvsp[0].ttype)); } + break; + + case 481: +#line 2466 "parse.yy" + { (yyval.ttype) = check_rval ((yyvsp[0].ttype)); } + break; + + case 482: +#line 2468 "parse.yy" + { (yyval.ttype) = build_bit_ref (check_rval_nocheck ((yyvsp[-3].ttype)), (yyvsp[-1].ttype)); } + break; + + case 483: +#line 2470 "parse.yy" + { (yyval.ttype) = build_part_ref (check_rval_nocheck ((yyvsp[-5].ttype)), (yyvsp[-3].ttype), (yyvsp[-1].ttype)); } + break; + + case 486: +#line 2474 "parse.yy" + { (yyval.ttype) = (yyvsp[-1].ttype); } + break; + + case 487: +#line 2476 "parse.yy" + { (yyval.ttype) = error_mark_node; } + break; + + case 488: +#line 2509 "parse.yy" + { (yyval.ttype) = make_node (CONCAT_REF); + CONCAT_LIST ((yyval.ttype)) = (yyvsp[-1].ttype); + concat_labels ((yyval.ttype)); + } + break; + + case 489: +#line 2514 "parse.yy" + { (yyval.ttype) = make_node (CONCAT_REP_REF); + CONCAT_LIST ((yyval.ttype)) = (yyvsp[-2].ttype); + CONCAT_EXPR ((yyval.ttype)) = (yyvsp[-4].ttype); + concat_labels ((yyval.ttype)); + } + break; + + case 490: +#line 2523 "parse.yy" + { (yyval.ttype) = build_function_call ((yyvsp[-3].ttype), nreverse ((yyvsp[-1].ttype))); + HIERARCHICAL_ATTR ((yyval.ttype)) = HIERARCHICAL_ATTR ((yyvsp[-3].ttype)); + UNKNOWN_TYPE_ATTR ((yyval.ttype)) = 1; + } + break; + + case 491: +#line 2529 "parse.yy" + { (yyval.ttype) = build_nt (SYSFUNCTION_REF, IDENTIFIER_POINTER ((yyvsp[-3].ttype)), + nreverse ((yyvsp[-1].ttype)), NULL_TREE, NULL_TREE, lineno, input_filename); } + break; + + case 492: +#line 2533 "parse.yy" + { (yyval.ttype) = build_nt (SYSFUNCTION_REF, IDENTIFIER_POINTER ((yyvsp[0].ttype)), + NULL_TREE, NULL_TREE, NULL_TREE, lineno, input_filename); } + break; + + case 493: +#line 2543 "parse.yy" + { + syn_warning ("Hierachical name"); + /* hierarchical_list = link_tree_cons ($1, NULL_TREE, hierarchical_list); */ + HIERARCHICAL_ATTR ((yyvsp[0].ttype)) = 1; + UNKNOWN_TYPE_ATTR ((yyvsp[0].ttype)) = 1; + TREE_CONSTANT_ATTR ((yyvsp[0].ttype)) = 1; /* assume this is true for now */ + } + break; + + case 496: +#line 2557 "parse.yy" + { (yyval.ttype) = get_identifier ("or"); } + break; + + case 497: +#line 2576 "parse.yy" + { (yyval.ttype) = NULL_TREE; } + break; + + case 499: +#line 2582 "parse.yy" + { (yyval.ttype) = build_nt (DELAY_EXPR, (yyvsp[0].ttype), (yyvsp[0].ttype), NULL_TREE); + TREE_LABEL ((yyval.ttype)) = 1; + } + break; + + case 500: +#line 2586 "parse.yy" + { (yyval.ttype) = check_rval ((yyvsp[0].ttype)); + (yyval.ttype) = build_nt (DELAY_EXPR, (yyval.ttype), (yyval.ttype), NULL_TREE); + TREE_LABEL ((yyval.ttype)) = 1; + } + break; + + case 501: +#line 2591 "parse.yy" + { (yyval.ttype) = (yyvsp[-1].ttype); } + break; + + case 502: +#line 2600 "parse.yy" + { (yyval.ttype) = build_nt (DELAY_EXPR, (yyvsp[0].ttype), (yyvsp[0].ttype), NULL_TREE); + TREE_LABEL ((yyval.ttype)) = 1; + } + break; + + case 503: +#line 2604 "parse.yy" + { (yyval.ttype) = build_nt (DELAY_EXPR, (yyvsp[-2].ttype), (yyvsp[0].ttype), NULL_TREE); + TREE_LABEL ((yyval.ttype)) = 2; + } + break; + + case 504: +#line 2608 "parse.yy" + { (yyval.ttype) = build_nt (DELAY_EXPR, (yyvsp[-4].ttype), (yyvsp[-2].ttype), (yyvsp[0].ttype)); + TREE_LABEL ((yyval.ttype)) = 3; + } + break; + + case 505: +#line 2615 "parse.yy" + { (yyval.ttype) = (yyvsp[0].ttype); } + break; + + case 506: +#line 2617 "parse.yy" + { (yyval.ttype) = check_rval ((yyvsp[0].ttype)); } + break; + + case 507: +#line 2619 "parse.yy" + { (yyval.ttype) = (yyvsp[-1].ttype); } + break; + + case 508: +#line 2623 "parse.yy" + { in_event = 1; } + break; + + case 509: +#line 2625 "parse.yy" + {if (!HIERARCHICAL_ATTR ((yyvsp[0].ttype)) && + TREE_CODE (IDENT_CURRENT_DECL ((yyvsp[0].ttype))) == EVENT_DECL) + (yyval.ttype) = build_stmt (EVENT_STMT, lineno, NULL_TREE, + build_tree_list (IDENT_CURRENT_DECL ((yyvsp[0].ttype)), NULL_TREE)); + else + (yyval.ttype) = build_stmt (EVENT_STMT, lineno, NULL_TREE, + build_tree_list (build_unary_op + (ANYEDGE_EXPR, check_rval ((yyvsp[0].ttype))), NULL_TREE)); + in_event = 0; + } + break; + + case 510: +#line 2635 "parse.yy" + { in_event = 1; } + break; + + case 511: +#line 2637 "parse.yy" + { (yyval.ttype) = build_stmt (EVENT_STMT, lineno, NULL_TREE, (yyvsp[-1].ttype)); + in_event = 0; } + break; + + case 512: +#line 2643 "parse.yy" + { /*if (TREE_CODE ($1) == EVENT_DECL) + $$ = build_tree_list ($1, NULL_TREE); + else */ + (yyval.ttype) = build_tree_list + (build_unary_op (ANYEDGE_EXPR, (yyvsp[0].ttype)), NULL_TREE); + } + break; + + case 513: +#line 2650 "parse.yy" + { (yyval.ttype) = build_tree_list + (build_unary_op (POSEDGE_EXPR, (yyvsp[0].ttype)), NULL_TREE); } + break; + + case 514: +#line 2653 "parse.yy" + { (yyval.ttype) = build_tree_list + (build_unary_op (NEGEDGE_EXPR, (yyvsp[0].ttype)), NULL_TREE); } + break; + + case 515: +#line 2656 "parse.yy" + { (yyval.ttype) = chainon ((yyvsp[-2].ttype), (yyvsp[0].ttype)); } + break; + + case 516: +#line 2665 "parse.yy" + { yyerrok; } + break; + + case 517: +#line 2670 "parse.yy" + { yyerrok; } + break; + + case 518: +#line 2672 "parse.yy" + { yyerrok; } + break; + + case 519: +#line 2677 "parse.yy" + { yyerrok; } + break; + + + } + +/* Line 1037 of yacc.c. */ +#line 5270 "parse.cc" + + yyvsp -= yylen; + yyssp -= yylen; + + + YY_STACK_PRINT (yyss, yyssp); + + *++yyvsp = yyval; + + + /* Now `shift' the result of the reduction. Determine what state + that goes to, based on the state we popped back to and the rule + number reduced by. */ + + yyn = yyr1[yyn]; + + yystate = yypgoto[yyn - YYNTOKENS] + *yyssp; + if (0 <= yystate && yystate <= YYLAST && yycheck[yystate] == *yyssp) + yystate = yytable[yystate]; + else + yystate = yydefgoto[yyn - YYNTOKENS]; + + goto yynewstate; + + +/*------------------------------------. +| yyerrlab -- here on detecting error | +`------------------------------------*/ +yyerrlab: + /* If not already recovering from an error, report this error. */ + if (!yyerrstatus) + { + ++yynerrs; +#if YYERROR_VERBOSE + yyn = yypact[yystate]; + + if (YYPACT_NINF < yyn && yyn < YYLAST) + { + YYSIZE_T yysize = 0; + int yytype = YYTRANSLATE (yychar); + const char* yyprefix; + char *yymsg; + int yyx; + + /* Start YYX at -YYN if negative to avoid negative indexes in + YYCHECK. */ + int yyxbegin = yyn < 0 ? -yyn : 0; + + /* Stay within bounds of both yycheck and yytname. */ + int yychecklim = YYLAST - yyn; + int yyxend = yychecklim < YYNTOKENS ? yychecklim : YYNTOKENS; + int yycount = 0; + + yyprefix = ", expecting "; + for (yyx = yyxbegin; yyx < yyxend; ++yyx) + if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR) + { + yysize += yystrlen (yyprefix) + yystrlen (yytname [yyx]); + yycount += 1; + if (yycount == 5) + { + yysize = 0; + break; + } + } + yysize += (sizeof ("syntax error, unexpected ") + + yystrlen (yytname[yytype])); + yymsg = (char *) YYSTACK_ALLOC (yysize); + if (yymsg != 0) + { + char *yyp = yystpcpy (yymsg, "syntax error, unexpected "); + yyp = yystpcpy (yyp, yytname[yytype]); + + if (yycount < 5) + { + yyprefix = ", expecting "; + for (yyx = yyxbegin; yyx < yyxend; ++yyx) + if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR) + { + yyp = yystpcpy (yyp, yyprefix); + yyp = yystpcpy (yyp, yytname[yyx]); + yyprefix = " or "; + } + } + yyerror (yymsg); + YYSTACK_FREE (yymsg); + } + else + yyerror ("syntax error; also virtual memory exhausted"); + } + else +#endif /* YYERROR_VERBOSE */ + yyerror ("syntax error"); + } + + + + if (yyerrstatus == 3) + { + /* If just tried and failed to reuse look-ahead token after an + error, discard it. */ + + if (yychar <= YYEOF) + { + /* If at end of input, pop the error token, + then the rest of the stack, then return failure. */ + if (yychar == YYEOF) + for (;;) + { + + YYPOPSTACK; + if (yyssp == yyss) + YYABORT; + yydestruct ("Error: popping", + yystos[*yyssp], yyvsp); + } + } + else + { + yydestruct ("Error: discarding", yytoken, &yylval); + yychar = YYEMPTY; + } + } + + /* Else will try to reuse look-ahead token after shifting the error + token. */ + goto yyerrlab1; + + +/*---------------------------------------------------. +| yyerrorlab -- error raised explicitly by YYERROR. | +`---------------------------------------------------*/ +yyerrorlab: + +#ifdef __GNUC__ + /* Pacify GCC when the user code never invokes YYERROR and the label + yyerrorlab therefore never appears in user code. */ + if (0) + goto yyerrorlab; +#endif + +yyvsp -= yylen; + yyssp -= yylen; + yystate = *yyssp; + goto yyerrlab1; + + +/*-------------------------------------------------------------. +| yyerrlab1 -- common code for both syntax error and YYERROR. | +`-------------------------------------------------------------*/ +yyerrlab1: + yyerrstatus = 3; /* Each real token shifted decrements this. */ + + for (;;) + { + yyn = yypact[yystate]; + if (yyn != YYPACT_NINF) + { + yyn += YYTERROR; + if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYTERROR) + { + yyn = yytable[yyn]; + if (0 < yyn) + break; + } + } + + /* Pop the current state because it cannot handle the error token. */ + if (yyssp == yyss) + YYABORT; + + + yydestruct ("Error: popping", yystos[yystate], yyvsp); + YYPOPSTACK; + yystate = *yyssp; + YY_STACK_PRINT (yyss, yyssp); + } + + if (yyn == YYFINAL) + YYACCEPT; + + *++yyvsp = yylval; + + + /* Shift the error token. */ + YY_SYMBOL_PRINT ("Shifting", yystos[yyn], yyvsp, yylsp); + + yystate = yyn; + goto yynewstate; + + +/*-------------------------------------. +| yyacceptlab -- YYACCEPT comes here. | +`-------------------------------------*/ +yyacceptlab: + yyresult = 0; + goto yyreturn; + +/*-----------------------------------. +| yyabortlab -- YYABORT comes here. | +`-----------------------------------*/ +yyabortlab: + yydestruct ("Error: discarding lookahead", + yytoken, &yylval); + yychar = YYEMPTY; + yyresult = 1; + goto yyreturn; + +#ifndef yyoverflow +/*----------------------------------------------. +| yyoverflowlab -- parser overflow comes here. | +`----------------------------------------------*/ +yyoverflowlab: + yyerror ("parser stack overflow"); + yyresult = 2; + /* Fall through. */ +#endif + +yyreturn: +#ifndef yyoverflow + if (yyss != yyssa) + YYSTACK_FREE (yyss); +#endif + return yyresult; +} + + +#line 2680 "parse.yy" + +void +eat_block (short token) +{ + YYSTYPE lval; + + for (;;) + if (yylex (&lval) == token) + return; +} + + diff --git a/src/parse.h b/src/parse.h new file mode 100644 index 0000000..7a93be0 --- /dev/null +++ b/src/parse.h @@ -0,0 +1,284 @@ +/* A Bison parser, made by GNU Bison 2.0. */ + +/* Skeleton parser for Yacc-like parsing with Bison, + Copyright (C) 1984, 1989, 1990, 2000, 2001, 2002, 2003, 2004 Free Software Foundation, Inc. + + This program 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, 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. */ + +/* As a special exception, when this file is copied by Bison into a + Bison output file, you may use that output file without restriction. + This special exception was added by the Free Software Foundation + in version 1.24 of Bison. */ + +/* Tokens. */ +#ifndef YYTOKENTYPE +# define YYTOKENTYPE + /* Put the tokens into the symbol table, so that GDB and other debuggers + know about them. */ + enum yytokentype { + LOWEST = 258, + IF = 259, + ELSE = 260, + OROR = 261, + ANDAND = 262, + ANDANDAND = 263, + XNOR = 264, + CASE_INEQUALITY = 265, + CASE_EQUALITY = 266, + LOGICAL_INEQUALITY = 267, + LOGICAL_EQUALITY = 268, + GE = 269, + GT = 270, + LE = 271, + LT = 272, + RIGHT_SHIFT = 273, + LEFT_SHIFT = 274, + REDUCTION_NOR = 275, + REDUCTION_NAND = 276, + UNARY = 277, + IDENTIFIER = 278, + HIERARCHY_IDENTIFIER = 279, + STARARROW = 280, + EQUALARROW = 281, + SPECPARAM = 282, + SETUP = 283, + HOLD = 284, + PERIOD = 285, + WIDTH = 286, + SKEW = 287, + RECOVERY = 288, + SETUPHOLD = 289, + NOCHANGE = 290, + MODULE = 291, + MACROMODULE = 292, + ENDMODULE = 293, + SPECIFY = 294, + ENDSPECIFY = 295, + PRIMITIVE = 296, + ENDPRIMITIVE = 297, + TABLE = 298, + ENDTABLE = 299, + TASK = 300, + ENDTASK = 301, + FUNCTION = 302, + ENDFUNCTION = 303, + PARAMETER = 304, + INPUT = 305, + OUTPUT = 306, + INOUT = 307, + NETTYPE = 308, + TRIREG = 309, + SCALARED = 310, + VECTORED = 311, + REG = 312, + TIME = 313, + INTEGER = 314, + REAL = 315, + EVENT = 316, + ASSIGN = 317, + DEFPARAM = 318, + STRENGTH0 = 319, + STRENGTH1 = 320, + SUPPLY0 = 321, + SUPPLY1 = 322, + LOGIC = 323, + BUFFER = 324, + BUFIF = 325, + CMOS = 326, + PULL = 327, + TRAN = 328, + INITIAL = 329, + ALWAYS = 330, + CASE = 331, + CASEZ = 332, + CASEX = 333, + ENDCASE = 334, + FOREVER = 335, + REPEAT = 336, + WHILE = 337, + FOR = 338, + WAIT_ = 339, + ARROW_ = 340, + DISABLE = 341, + DEASSIGN = 342, + FORCE = 343, + RELEASE = 344, + DEFAULT = 345, + BEGIN = 346, + END = 347, + FORK = 348, + JOIN = 349, + SYSTEM_IDENTIFIER = 350, + STRING = 351, + NUMBER = 352, + BASE_NUMBER = 353, + POSEDGE = 354, + NEGEDGE = 355, + OR = 356, + SMALL = 357, + MEDIUM = 358, + LARGE = 359, + EDGE = 360, + DOUBLE_DIGIT = 361, + UDP_CHAR = 362, + UDP_ONE = 363, + UDP_ZERO = 364, + UDP_X = 365, + UDP_B = 366, + UDP_HOOK = 367, + EOF_ = 368 + }; +#endif +#define LOWEST 258 +#define IF 259 +#define ELSE 260 +#define OROR 261 +#define ANDAND 262 +#define ANDANDAND 263 +#define XNOR 264 +#define CASE_INEQUALITY 265 +#define CASE_EQUALITY 266 +#define LOGICAL_INEQUALITY 267 +#define LOGICAL_EQUALITY 268 +#define GE 269 +#define GT 270 +#define LE 271 +#define LT 272 +#define RIGHT_SHIFT 273 +#define LEFT_SHIFT 274 +#define REDUCTION_NOR 275 +#define REDUCTION_NAND 276 +#define UNARY 277 +#define IDENTIFIER 278 +#define HIERARCHY_IDENTIFIER 279 +#define STARARROW 280 +#define EQUALARROW 281 +#define SPECPARAM 282 +#define SETUP 283 +#define HOLD 284 +#define PERIOD 285 +#define WIDTH 286 +#define SKEW 287 +#define RECOVERY 288 +#define SETUPHOLD 289 +#define NOCHANGE 290 +#define MODULE 291 +#define MACROMODULE 292 +#define ENDMODULE 293 +#define SPECIFY 294 +#define ENDSPECIFY 295 +#define PRIMITIVE 296 +#define ENDPRIMITIVE 297 +#define TABLE 298 +#define ENDTABLE 299 +#define TASK 300 +#define ENDTASK 301 +#define FUNCTION 302 +#define ENDFUNCTION 303 +#define PARAMETER 304 +#define INPUT 305 +#define OUTPUT 306 +#define INOUT 307 +#define NETTYPE 308 +#define TRIREG 309 +#define SCALARED 310 +#define VECTORED 311 +#define REG 312 +#define TIME 313 +#define INTEGER 314 +#define REAL 315 +#define EVENT 316 +#define ASSIGN 317 +#define DEFPARAM 318 +#define STRENGTH0 319 +#define STRENGTH1 320 +#define SUPPLY0 321 +#define SUPPLY1 322 +#define LOGIC 323 +#define BUFFER 324 +#define BUFIF 325 +#define CMOS 326 +#define PULL 327 +#define TRAN 328 +#define INITIAL 329 +#define ALWAYS 330 +#define CASE 331 +#define CASEZ 332 +#define CASEX 333 +#define ENDCASE 334 +#define FOREVER 335 +#define REPEAT 336 +#define WHILE 337 +#define FOR 338 +#define WAIT_ 339 +#define ARROW_ 340 +#define DISABLE 341 +#define DEASSIGN 342 +#define FORCE 343 +#define RELEASE 344 +#define DEFAULT 345 +#define BEGIN 346 +#define END 347 +#define FORK 348 +#define JOIN 349 +#define SYSTEM_IDENTIFIER 350 +#define STRING 351 +#define NUMBER 352 +#define BASE_NUMBER 353 +#define POSEDGE 354 +#define NEGEDGE 355 +#define OR 356 +#define SMALL 357 +#define MEDIUM 358 +#define LARGE 359 +#define EDGE 360 +#define DOUBLE_DIGIT 361 +#define UDP_CHAR 362 +#define UDP_ONE 363 +#define UDP_ZERO 364 +#define UDP_X 365 +#define UDP_B 366 +#define UDP_HOOK 367 +#define EOF_ 368 + + + + +#if ! defined (YYSTYPE) && ! defined (YYSTYPE_IS_DECLARED) +#line 132 "parse.yy" +typedef union YYSTYPE { + tree ttype; /* pointer to a tree node */ + int integer; /* used for integers */ +// inst ctype; /* pointer to an instruction node (code) */ +// Datum *dtype; /* pointer to a bit string for returning NUMBERs */ + lineno_t ltype; /* for passing line numbers */ + enum tree_code code; /* for operators */ + enum tree_type gtype; /* for gates */ + enum tree_type ntype; /* for nets (same as gtype, buy more readable) */ + char double_digit[2]; /* structure for parsing edges */ + char c; /* char used in udp parsing */ +} YYSTYPE; +/* Line 1318 of yacc.c. */ +#line 276 "parse.h" +# define yystype YYSTYPE /* obsolescent; will be withdrawn */ +# define YYSTYPE_IS_DECLARED 1 +# define YYSTYPE_IS_TRIVIAL 1 +#endif + + + + + diff --git a/src/parse.yy b/src/parse.yy new file mode 100644 index 0000000..d64773b --- /dev/null +++ b/src/parse.yy @@ -0,0 +1,2690 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* PARSE.Y - BISON/YACC parser for program input */ + +%{ +#define yyparse prog_parse +#define YYERROR_VERBOSE +#define YYDEBUG 2 + +#include +#include +#include +#include +#include +#include "glue.h" +#include "vtypes.h" +#include "tree.h" +#include "decl.h" +#include "flags.h" +#include "io.h" +#include "specify.h" +#include "gates.h" +#include "udp.h" +#include "lex.h" +#include "scope.h" +#include "veriwell.h" + + +#define syn_warning(TEXT) \ + if (synopsys_flag) \ + synopsys_warn(TEXT); + +#define function_error \ + if (in_function) \ + error ("Statement not allowed in a function", NULL_CHAR, NULL_CHAR) + +/* Used in BISON.SIM */ +extern char *token_buffer; + +void eat_block (short token); + +#ifdef __cplusplus + union YYSTYPE; + int yylex (YYSTYPE *); +#endif // __cplusplus + +/* list of parsed modules (exported in tree.h) */ +tree module_list = NULL_TREE; + +/* tree list of hierarchical references to be resolved at pass3 */ +tree hierarchical_list; + +/* The spec of the current declaration */ +tree current_spec; + +tree current_module; +tree current_case; +tree current_delay; +enum tree_type current_gatetype; + + +tree current_instance_module = NULL_TREE; +tree current_instance_param = NULL_TREE; +tree current_udp_string = NULL_TREE; + +tree interactive_statement; + +tree tmp_tree; + +/* Defined in decl.c */ +extern tree current_scope; + +/* Defined in verilog.c */ +extern int is_interactive; + + +/* Certain constructs are not allowed while inside a function. Also, ports + are treated differently in functions and tasks than for modules. */ +int in_function = 0; +int in_tf = 0; +int in_systask = 0; + +/* If inside continuous assignment, handle lval differently */ +enum lval_type lval_type = LVAL_REG; + +/* If inside instantiation port list, allow implicit net declarations. */ +int in_instantiation = 0; + +/* If inside event statement, accept event types. */ +int in_event = 0; + +void init_parse() +{ + current_instance_module = NULL_TREE; + current_instance_param = NULL_TREE; + current_udp_string = NULL_TREE; + in_function = 0; + in_tf = 0; + in_systask = 0; + lval_type = LVAL_REG; + in_instantiation = 0; + module_list = NULL_TREE; + hierarchical_list = NULL_TREE; + current_spec = NULL_TREE; + current_module = NULL_TREE; + current_case = NULL_TREE; + current_delay = NULL_TREE; + interactive_statement = NULL_TREE; + tmp_tree = NULL_TREE; +} + +%} +%pure_parser + +%union { + tree ttype; /* pointer to a tree node */ + int integer; /* used for integers */ +// inst ctype; /* pointer to an instruction node (code) */ +// Datum *dtype; /* pointer to a bit string for returning NUMBERs */ + lineno_t ltype; /* for passing line numbers */ + enum tree_code code; /* for operators */ + enum tree_type gtype; /* for gates */ + enum tree_type ntype; /* for nets (same as gtype, buy more readable) */ + char double_digit[2]; /* structure for parsing edges */ + char c; /* char used in udp parsing */ +}; + +%nonassoc LOWEST +%nonassoc IF +%nonassoc ELSE + +%right '?' ':' +%left OROR +%left ANDAND +%left ANDANDAND +%left '|' +%left '^' XNOR +%left '&' +%left LOGICAL_EQUALITY LOGICAL_INEQUALITY CASE_EQUALITY CASE_INEQUALITY +%left LT LE GT GE +%left LEFT_SHIFT RIGHT_SHIFT +%left '+' '-' +%left '*' '/' '%' +%left '(' '[' +%right '!' '~' +%right REDUCTION_NOR +%right REDUCTION_NAND +%right UNARY + +%token IDENTIFIER +%token HIERARCHY_IDENTIFIER +%token STARARROW +%token EQUALARROW +%token SPECPARAM +%token SETUP +%token HOLD +%token PERIOD +%token WIDTH +%token SKEW +%token RECOVERY +%token SETUPHOLD +%token NOCHANGE +%token MODULE +%token MACROMODULE +%token ENDMODULE +%token SPECIFY +%token ENDSPECIFY +%token PRIMITIVE +%token ENDPRIMITIVE +%token TABLE +%token ENDTABLE +%token TASK +%token ENDTASK +%token FUNCTION +%token ENDFUNCTION +%token PARAMETER +%token INPUT +%token OUTPUT +%token INOUT +%token NETTYPE +%token TRIREG +%token SCALARED +%token VECTORED +%token REG +%token TIME +%token INTEGER +%token REAL +%token EVENT +%token ASSIGN +%token DEFPARAM +%token STRENGTH0 STRENGTH1 SUPPLY0 SUPPLY1 +%token LOGIC +%token BUFFER +%token BUFIF +%token CMOS +%token PULL +%token TRAN +%token INITIAL +%token ALWAYS +%token IF +/*%left ELSE */ +%token CASE +%token CASEZ +%token CASEX +%token ENDCASE +%token FOREVER +%token REPEAT +%token WHILE +%token FOR +%token WAIT_ +%token ARROW_ +%token DISABLE +/*%token ASSIGN*/ +%token DEASSIGN +%token FORCE +%token RELEASE +%token DEFAULT +%token BEGIN +%token END +%token FORK +%token JOIN +%token SYSTEM_IDENTIFIER +%token STRING +%token NUMBER +%token BASE_NUMBER +%token POSEDGE +%token NEGEDGE +%left OR +%token SMALL +%token MEDIUM +%token LARGE +/* %token STOP_STMT */ +%token EDGE +%token DOUBLE_DIGIT +%token UDP_CHAR +%token UDP_ONE +%token UDP_ZERO +%token UDP_X +%token UDP_B +%token UDP_HOOK + + +%token EOF_ + +%type source_text +%type description_list +%type description +%type module +/* %type module_item_list */ +/* %type module_item */ +%type list_of_ports_o +%type port_clist +%type port +%type port_expression_o +%type port_reference_clist +%type port_reference +%type UDP +%type task +%type function function_type +%type tf_declaration_list +%type tf_declaration + +%type specify_stuff +%type specify_items +%type specify_item +%type specparam_declaration +%type path_declaration +%type path_description +%type path_delay_value +%type specify_input_terminal_descriptor +%type specify_output_terminal_descriptor +%type list_of_path_inputs +%type list_of_path_outputs +%type path_delay_expression +%type path_operator +%type polarity_operator +%type conditional_port_expression +%type data_source_expression +%type edge_identifier +%type specify_if_clause +%type timing_input_terminal_descriptor + +%type parameter_declaration +%type list_of_param_assignments +%type param_assignment +%type setspec setnetspec static_declaration port_declaration port_spec +%type port_decl_identifiers +%type reg_spec event_spec reg_decl_identifiers reg_decl_identifier +%type real_spec +%type non_reg_decl_identifiers +%type decl_identifiers + +%type net_declaration net_spec trireg_spec +%type nettype +%type expandrange_o +%type continuous_assign assign_spec list_of_assignments +%type cont_assignment +%type net_assignment list_of_net_assignments +%type parameter_override list_of_param_overrides +%type charge_strength_o +%type drive_strength drive_strength_o +%type strength0 strength1 +%type xrange +%type range +/* %type gate_declaration */ +/* %type gate_description */ +%type gatetype +%type gate_instance_clist +%type gate_instance +%type UDP_or_module_instantiation +%type xparameter_value_assignment constant_expression_clist +/* %type UDP_instance_clist */ +/* %type UDP_instance */ +/* %type xterminal_clist */ +%type terminal_clist +/*%type module_instantiation */ +%type module_instance_clist +%type module_instance +%type list_of_module_connections_o +%type module_port_connection_clist +%type module_port_connection +%type named_port_connection_clist +%type named_port_connection +%type system_timing_check +%type notify_clause +%type notify_register +%type timing_check_event +%type controlled_timing_check_event +%type timing_check_event_control +%type timing_check_event_control_no_empty +%type timing_check_condition +%type scalar_expression +%type scalar_constant + +%type specify_block + +%type initial_statement +%type always_statement +%type statement_or_null +%type statement +%type elsepart +%type case +/* %type delay_or_event_control */ +%type assignment +%type case_item_plist +%type case_expr +%type expression_clist xexpression_clist xexpression +%type seq_block +%type par_block +%type statement_list +%type statement_tree_list +%type block_declaration_list +%type block_declaration +%type task_enable +%type system_task_enable + +%type lvalue +%type lval_normal +%type lval_concat +%type lval_clist +%type conditional_expression +%type constant_expression +%type mintypmax_expression +%type mintypmax_expression_triplet +%type expression +%type primary +%type concatenation +%type function_call +%type identifier +%type IDENTIFIER_or_OR +%type delay_o +%type delay +%type mintypmax_clist +%type delay_control +%type event_control +%type event_expression +%type edge_list + +%type rp +%type sc + +%type UDP_declarations +%type UDP_declaration +%type UDP_reg_statement +%type UDP_initial_statement +%type UDP_table_definition +%type table_entry_list +%type table_entry +%type table_digit_list +%type table_digit +%type table_digit1 + +/* +%type interactive_command +%type execute_command +%type disable_command +%type continue +%type step_no_trace +%type step_trace +%type where +*/ + +%type error + +%% + +source_text + : statement { if (!is_interactive) + YYFAIL; +#if VDEBUG != 0 + if (vdebug) + printf_error_V ("interactive statement\n"); +#endif + interactive_statement = $1; + fix_lastchar(); + YYACCEPT;} + | description_list EOF_ + | error + { +#if VDEBUG != 0 +if (vdebug) + printf ("source error\n"); +#endif + if (is_interactive) + YYABORT; + } + | EOF_ { +#if VDEBUG != 0 +if (vdebug) + printf_error_V ("EOF\n"); +#endif + $$ = NULL; } + ; + +description_list + : description + | description_list description + { yyerrok; +#if VDEBUG != 0 +if (vdebug) + printf ("description_list\n"); +#endif + } +/* | error */ +/* | description_list error */ + ; + +description + : module + | UDP + ; + +module + : MODULE + { if (is_interactive) { + YYFAIL; + } + } + IDENTIFIER_or_OR + { + current_module = current_scope = build_module ($3); + push_scope (); + /* list of parse modules */ + module_list = tree_cons (current_module, NULL_TREE, module_list); + /* for now, assume all to be at lop level */ +// top_level = chainon (current_module, top_level); + } + list_of_ports_o sc + { MODULE_PORT_LIST (current_module) = nreverse ($5); } + module_item_list ENDMODULE + { + current_scope = pop_scope (); + BLOCK_BODY (current_module) = nreverse (BLOCK_BODY (current_module)); + BLOCK_DECL (current_module) = nreverse (BLOCK_DECL (current_module)); + end_module (current_module); + } + +/* | MACROMODULE IDENTIFIER list_of_ports_o sc module_item_list ENDMODULE */ + ; + +module_item_list + : /* empty */ + | module_item_list module_item + { yyerrok; } + | module_item_list error + ; + +list_of_ports_o + : '(' port_clist rp + { $$ = $2; } + | /* empty */ + { $$ = NULL; } + ; + +port_clist + : port + | port_clist ',' port + { yyerrok; + $$ = chainon ($3, $1); + } + | error +/* + | port_clist error + | port_clist error port + { yyerrok; } +*/ + | port_clist ',' error + ; + +port + : port_expression_o + { if ($1) + $$ = build_tree_list ($1, NULL_TREE); + else + $$ = NULL_TREE; + } + | '.' IDENTIFIER '(' port_expression_o rp + { $$ = build_tree_list ($4, $2); } + ; + +port_expression_o + : port_reference + | '{' port_reference_clist '}' + { $$ = $2; + sorry ("Port concatenations not supported in this version"); + } + | /* empty */ + { $$ = NULL_TREE; } + ; + +port_reference_clist + : port_reference + { $$ = build_tree_list ($1, NULL_TREE); } + | port_reference_clist ',' port_reference + { $$ = tree_cons ($3, NULL_TREE, $1); } + ; + +port_reference + : IDENTIFIER + { set_decl ($1, $1); } /* point to itself to mark as port */ + | IDENTIFIER '[' constant_expression ']' + { $$ = build_bit_ref ($1, $3); + set_decl ($1, $$); +// sorry ("Port bit-select not supported in this version"); + } + | IDENTIFIER '[' constant_expression ':' constant_expression ']' + { $$ = build_part_ref ($1, $3, $5); + set_decl ($1, $$); +// sorry ("Port part-selects not supported in this version"); + } + ; + +module_item + : parameter_declaration + | port_declaration + | net_declaration + | static_declaration + | gate_declaration + | UDP_or_module_instantiation +/* | UDP_instantiation */ +/* | module_instantiation */ + | parameter_override + | continuous_assign + | specify_block + | initial_statement + { BLOCK_BODY (current_module) = tree_cons ($1, + (tree)INITIAL_CODE, BLOCK_BODY (current_module)); + } + | always_statement + { BLOCK_BODY (current_module) = tree_cons ($1, + (tree)ALWAYS_CODE, BLOCK_BODY (current_module)); + } + | task + | function + ; +/* +UDP + : PRIMITIVE IDENTIFIER + { syn_warning ("primitive definition"); + sorry ("User-defined primitives not supported in this version"); + eat_block (ENDPRIMITIVE); + $$ = NULL; + } + ; +*/ + +UDP + : PRIMITIVE + { if (is_interactive) { + YYFAIL; + } + } + IDENTIFIER + { + current_module = current_scope = build_udp ($3); + push_scope (); + /* list of parse modules */ + module_list = tree_cons (current_module, NULL_TREE, module_list); + } + list_of_ports_o sc + { UDP_PORT_LIST (current_module) = nreverse ($5); } + UDP_declarations UDP_initial_statement UDP_table_definition ENDPRIMITIVE + { + current_scope = pop_scope (); + UDP_STRING_LIST (current_module) = nreverse (UDP_STRING_LIST (current_module)); + end_primitive (current_module); + } + ; +UDP_declarations + : /* empty */ + { $$ = NULL_TREE; } + | UDP_declarations UDP_declaration + { yyerrok; } + | UDP_declarations error + ; + +UDP_declaration + : port_declaration + | UDP_reg_statement + ; + +UDP_reg_statement + : REG IDENTIFIER sc + { + if( strcmp( IDENT($2), + IDENT(DECL_NAME(TREE_PURPOSE(MODULE_PORT_LIST(current_module)))) )!=0 ) { + error( "only the first declared port in a udp can be a reg", + NULL_CHAR, NULL_CHAR ); + } else { + UDP_REG_NAME(current_module) = $2; + } + $$ = NULL_TREE; + } + ; +UDP_initial_statement + : /* NULL */ + { $$ = NULL_TREE; } + | INITIAL IDENTIFIER '=' scalar_constant sc + { + if( UDP_REG_NAME(current_module)==NULL_TREE ) { + error( "initial statement is no allowed in combinatorial udp's", + NULL_CHAR, NULL_CHAR ); + } else if( strcmp(IDENT($2),IDENT(UDP_REG_NAME(current_module)))!=0 ) { + error( "initial statement does not reference port output", + NULL_CHAR, NULL_CHAR ); + } else { + UDP_INITIAL_VALUE(current_module) = $4; + } + $$ = NULL_TREE; + } + ; + + + +UDP_table_definition + : TABLE + { extern int enable_udp_parse; + enable_udp_parse = TRUE; + current_udp_string = NULL_TREE; + } + table_entry_list ENDTABLE + { + UDP_STRING_LIST(current_module) = $3; + $$ = NULL_TREE; + } + ; +table_entry_list + : table_entry + | table_entry_list table_entry + { + $$ = chainon ($2, $1); + } + ; +table_entry + : table_digit_list sc + { + validate_udp_string( current_module, current_udp_string ); + $$ = current_udp_string; + current_udp_string = NULL_TREE; + } + ; +table_digit_list + : /* NULL */ + { $$ = NULL; } + | table_digit_list table_digit + { $$ = NULL; } + ; +table_digit + : UDP_CHAR + { + append_udp_digits( ¤t_udp_string, $1, $1 ); + $$ = NULL; + } + | UDP_HOOK + { + append_udp_digits( ¤t_udp_string,'?','?' ); + $$ = NULL; + } + | UDP_ZERO + { + append_udp_digits( ¤t_udp_string,'0','0' ); + $$ = NULL; + } + | UDP_ONE + { + append_udp_digits( ¤t_udp_string,'1','1' ); + $$ = NULL; + } + | UDP_B + { + append_udp_digits( ¤t_udp_string,'b','b' ); + $$ = NULL; + } + | UDP_X + { + append_udp_digits( ¤t_udp_string,'x','x' ); + $$ = NULL; + } + | '(' table_digit1 table_digit1 rp + { + /* ? and b must be convert different but equivilent characters + otherwise edges cannot be distinguished from levels */ + + if( $2=='?' ) { + $2 = '!'; + } else if( $2=='b' ) { + $2 = '%'; + } + append_udp_digits( ¤t_udp_string,$2, $3 ); + $$ = NULL; + } + ; +table_digit1 + : UDP_X + | UDP_ZERO + | UDP_ONE + | UDP_B + | UDP_HOOK + ; + +task + : TASK IDENTIFIER sc + { syn_warning ("Task definition"); + tmp_tree = build_task (check_task ($2)); + make_block_decl ($3, current_scope, tmp_tree); + current_scope = tmp_tree; + BLOCK_DOWN (current_module) = chainon (current_scope, BLOCK_DOWN (current_module)); + BLOCK_UP (current_scope) = current_module; + push_scope (); + in_tf = 1; + } + tf_declaration_list statement_or_null ENDTASK + { BLOCK_BODY (current_scope) = $6; + in_tf = 0; + BLOCK_PORTS (current_scope) = nreverse (BLOCK_PORTS (current_scope)); + BLOCK_DECL (current_scope) = nreverse (BLOCK_DECL (current_scope)); + current_scope = pop_scope (); + } + ; + +function + : FUNCTION function_type IDENTIFIER sc + { current_scope = build_function (check_function ($3)); + make_block_decl ($3, current_module, current_scope); + push_scope (); /* funct name becomes var inside of funct */ + FUNCT_DECL (current_scope) = make_decl ($3, $2, NULL_TREE, NULL_TREE); + BLOCK_DOWN (current_module) = chainon (current_scope, BLOCK_DOWN (current_module)); + BLOCK_UP (current_scope) = current_module; + in_tf = in_function = 1; + } + tf_declaration_list statement_or_null ENDFUNCTION + { BLOCK_BODY (current_scope) = $7; + in_tf = in_function = 0; + BLOCK_PORTS (current_scope) = nreverse (BLOCK_PORTS (current_scope)); + BLOCK_DECL (current_scope) = nreverse (BLOCK_DECL (current_scope)); + current_scope = pop_scope (); + } + ; + +function_type + : /* empty */ + { $$ = make_reg_spec (NULL_TREE); } + | range + { $$ = make_reg_spec ($1); } + | INTEGER + { $$ = make_integer_spec (NULL_TREE); } + | REAL + { $$ = make_real_spec (NULL_TREE); } + ; + +tf_declaration_list + : /* empty */ + {} + | tf_declaration_list tf_declaration + ; + +tf_declaration + : parameter_declaration + | port_declaration + | static_declaration + ; + +/* +A.2 Declarations +*/ + +parameter_declaration + : PARAMETER xrange + { current_spec = make_param_spec ($2); } + list_of_param_assignments sc + { BLOCK_DECL (current_scope) = + chainon ($4, BLOCK_DECL (current_scope)); + } + ; + +list_of_param_assignments + : param_assignment + | list_of_param_assignments ',' param_assignment + { yyerrok; + $$ = chainon ($3, $1); + } + | error + | list_of_param_assignments error param_assignment + { yyerrok; } + | list_of_param_assignments ',' error + ; + +param_assignment + : IDENTIFIER '=' constant_expression + { $$ = make_param_decl (check_non_reg ($1), current_spec, $3); + } + | IDENTIFIER '=' mintypmax_expression_triplet + { $$ = make_param_decl (check_non_reg ($1), current_spec, $3); + } + ; + +setspec + : /* empty */ + {} + ; + +static_declaration + : reg_spec setspec reg_decl_identifiers sc + { BLOCK_DECL (current_scope) = + chainon ($3, BLOCK_DECL (current_scope)); } + | event_spec setspec non_reg_decl_identifiers sc + { BLOCK_DECL (current_scope) = + chainon ($3, BLOCK_DECL (current_scope)); } + | real_spec setspec decl_identifiers sc + { BLOCK_DECL (current_scope) = + chainon ($3, BLOCK_DECL (current_scope)); } + ; + +/* Used for ports and arguments to tasks and functions. */ +port_declaration + : port_spec setspec port_decl_identifiers sc + { BLOCK_PORTS (current_scope) = + chainon ($3, BLOCK_PORTS (current_scope)); } + ; + +/* If inside a module, ports are nets by default, so make them so. Inside + of a task or function, ports are REGs. */ +port_spec + : INPUT xrange + { if (in_tf) + $$ = current_spec = make_reg_spec ($2); + else + $$ = current_spec = make_net_spec (default_net_type, $2, NULL_TREE); + PORT_INPUT_ATTR ($$) = 1; + } + | OUTPUT xrange + { function_error; + if (in_tf) + $$ = current_spec = make_reg_spec ($2); + else + $$ = current_spec = make_net_spec (default_net_type, $2, NULL_TREE); + PORT_OUTPUT_ATTR ($$) = 1; + } + | INOUT xrange + { function_error; + if (in_tf) + $$ = current_spec = make_reg_spec ($2); + else + $$ = current_spec = make_net_spec (default_net_type, $2, NULL_TREE); + PORT_INPUT_ATTR ($$) = 1; + PORT_OUTPUT_ATTR ($$) = 1; + } + ; + +port_decl_identifiers + : IDENTIFIER + { $$ = make_decl (check_port ($1), current_spec, NULL_TREE, NULL_TREE); } + | port_decl_identifiers ',' IDENTIFIER + { yyerrok; + $$ = chainon (make_decl (check_port ($3), current_spec, NULL_TREE, NULL_TREE), $1); + } + | error + | port_decl_identifiers error + | port_decl_identifiers error IDENTIFIER + { yyerrok; } + | port_decl_identifiers ',' error + ; + +reg_spec + : REG xrange + { current_spec = make_reg_spec ($2); } + | INTEGER xrange + { if (!$2) + syn_warning ("Integer Range"); + current_spec = make_integer_spec ($2); + } + | TIME xrange + { syn_warning ("TIME"); + current_spec = make_time_spec ($2); + } + ; + +real_spec + : REAL + { current_spec = make_real_spec (NULL_TREE); } + ; + +event_spec + : EVENT + { syn_warning ("EVENT"); + current_spec = make_event_spec (); } + ; + +setnetspec + : /* empty */ + { lval_type = LVAL_NEW_NET; } + ; + +net_declaration + : net_spec setnetspec decl_identifiers sc + { BLOCK_DECL (current_scope) = + chainon ($3, BLOCK_DECL (current_scope)); + lval_type = LVAL_REG; + current_delay = NULL_TREE; + } + | trireg_spec setspec decl_identifiers sc + | net_spec setnetspec list_of_net_assignments sc + { lval_type = LVAL_REG; + MODULE_ASSIGNMENTS (current_module) = + chainon ($3, MODULE_ASSIGNMENTS (current_module)); + current_delay = NULL_TREE; + } + ; + +net_spec + : nettype expandrange_o delay_o + { $$ = current_spec = make_net_spec ($1, $2, $3); + current_delay = $3; + } + ; + +trireg_spec + : TRIREG + { syn_warning ("TRIREG net"); + sorry ("TRIREG net type is not supported in this version"); + } + charge_strength_o expandrange_o delay_o + { $$ = error_mark_node; } + ; + +nettype + : NETTYPE + | SUPPLY0 + { syn_warning ("SUPPLY0 net"); } + | SUPPLY1 + { syn_warning ("SUPPLY1 net"); } + ; + +/* +NETTYPE is one of the following keywords + wire tri tri1 supply0 + wand triand tri0 supply1 + wor trior trireg +*/ + +expandrange_o + : range + | SCALARED range + { sorry ("SCALARED keyword not supported; all nets treated as vectored"); + NET_SCALARED_ATTR ($2) = 1; + $$ = $2; + } + | VECTORED range + { sorry ("VECTORED keyword is not supported; all nets treated as vectored"); + NET_VECTORED_ATTR ($2) = 1; + $$ = $2; + } + | /* empty */ + { $$ = NULL_TREE; } + ; + +continuous_assign + : assign_spec setspec + { lval_type = LVAL_NET; } + list_of_assignments sc + { lval_type = LVAL_REG; + MODULE_ASSIGNMENTS (current_module) = + chainon ($4, MODULE_ASSIGNMENTS (current_module)); + } + ; + +assign_spec + : ASSIGN drive_strength_o delay_o + { current_delay = $3; /* strength not supported */ + $$ = NULL; + } + ; + +list_of_net_assignments + : net_assignment + { $$ = build_tree_list ($1, NULL_TREE); } + | list_of_net_assignments ',' net_assignment + { yyerrok; + $$ = tree_cons ($3, NULL_TREE, $1); + } + | error + | list_of_net_assignments error + | list_of_net_assignments error net_assignment + { yyerrok; } + | list_of_net_assignments ',' error + ; + +net_assignment + : IDENTIFIER '=' { $$ = stmt_lineno; } + expression + { $$ = build_cont_assign ( + check_lval ($1, lval_type, current_spec), + $4, $3, current_delay, current_delay!=0); + } + + ; + +list_of_assignments + : cont_assignment + { $$ = build_tree_list ($1, NULL_TREE); } + | list_of_assignments ',' cont_assignment + { yyerrok; + $$ = tree_cons ($3, NULL_TREE, $1); + } + | error + | list_of_assignments error + | list_of_assignments error cont_assignment + { yyerrok; } + | list_of_assignments ',' error + ; + +cont_assignment + : lvalue '=' { $$ = stmt_lineno; } + expression + { $$ = build_cont_assign ($1, $4, $3, current_delay, + current_delay!=0); } + ; +parameter_override + : DEFPARAM list_of_param_overrides sc + { syn_warning ("DEFPARAM"); } + ; + +list_of_param_overrides + : identifier '=' constant_expression + { MODULE_DEFPARAMS (current_module) = chainon ( + build_stmt (ASSIGN_STMT, stmt_lineno, $1, $3), + MODULE_DEFPARAMS (current_module)); + } + | list_of_param_overrides ',' identifier '=' constant_expression + { + MODULE_DEFPARAMS (current_module) = chainon ( + build_stmt (ASSIGN_STMT, stmt_lineno, $3, $5), + MODULE_DEFPARAMS (current_module)); + } + ; + +reg_decl_identifiers + : reg_decl_identifier + | reg_decl_identifiers ',' reg_decl_identifier + { yyerrok; + $$ = chainon ($3, $1); + } + | error + | reg_decl_identifiers error + | reg_decl_identifiers error reg_decl_identifier + { yyerrok; } + | reg_decl_identifiers ',' error + ; + +reg_decl_identifier + : IDENTIFIER + { $$ = make_decl (check_reg ($1), current_spec, NULL_TREE, NULL_TREE); } + | IDENTIFIER '[' constant_expression ':' constant_expression ']' + { $$ = make_decl (check_reg ($1), current_spec, $3, $5); + syn_warning ("REG/INTEGER arrays"); + } + ; + +non_reg_decl_identifiers + : IDENTIFIER + { $$ = make_decl (check_non_reg ($1), current_spec, NULL_TREE, NULL_TREE); } + | non_reg_decl_identifiers ',' IDENTIFIER + { $$ = chainon (make_decl (check_non_reg ($3), current_spec, NULL_TREE, NULL_TREE), $1); } + ; + +decl_identifiers + : IDENTIFIER + { $$ = make_decl (check_net ($1), current_spec, NULL_TREE, NULL_TREE); } + | decl_identifiers ',' IDENTIFIER + { $$ = chainon (make_decl (check_net ($3), current_spec, NULL_TREE, NULL_TREE), $1); } + ; + +charge_strength_o + : /* empty */ + { $$ = NULL; } + | '(' SMALL rp + { $$ = NULL; } + | '(' MEDIUM rp + { $$ = NULL; } + | '(' LARGE rp + { $$ = NULL; } + ; + +drive_strength_o + : /* empty */ + {} + | drive_strength + { +warning ("Strength specification is not supported and is ignored", NULL_CHAR, NULL_CHAR); + } + + ; + +drive_strength + : '(' strength0 ',' strength1 rp + { $$ = NULL; } + | '(' strength1 ',' strength0 rp + { $$ = NULL; } + ; + +strength0 + : STRENGTH0 + | SUPPLY0 /* Should be part of STRENGTH0, but used as keyword elsewhere */ + ; + +strength1 + : STRENGTH1 + | SUPPLY1 /* Should be part of STRENGTH0, but used as keyword elsewhere */ + ; + +/* +STRENGTH0 is one of the following keywords: + supply0 strong0 pull0 weak0 highz0 + +STRENGTH1 is one of the following keywords: + supply1 strong1 pull1 weak1 highz1 + +*/ + +xrange + : /* empty */ + { $$ = NULL_TREE;} + | range + ; + +range + : '[' constant_expression ':' constant_expression rb + { TREE_OPERAND (range_handle, 0) = $2; + TREE_OPERAND (range_handle, 1) = $4; + $$ = range_handle; + } +/* | '[' constant_expression ':' constant_expression error + { TREE_OPERAND (range_handle, 0) = $2; + TREE_OPERAND (range_handle, 1) = $4; + $$ = range_handle; + } */ + ; + +/* +A.3 Primitive instances +*/ +gate_declaration + : gatetype + { current_gatetype = $1; + in_instantiation = 1; + } + gate_description + { in_instantiation = 0; } + ; + +/* The keywords have been removed (except OR) while gate support is + done externally. Reenable them when gate support is brought in. */ +gatetype + : LOGIC + /* is a LOGIC but is also a keyword for event expressions */ + | OR + { $$ = GATE_OR_TYPE; } + | BUFFER + { syn_warning ("Buffer gate"); } + | BUFIF + { syn_warning ("Bufif gate"); } + | CMOS + { syn_warning ("CMOS gate"); } + | PULL + { syn_warning ("PULL gate"); } + | TRAN + { syn_warning ("TRAN gate"); } + ; +/* +GATETYPE is one of the following keywords + and buf nmos pullup tran + nand not pmos pulldown tranif0 + nor bufif0 cmos tranif1 + or bufif1 rnmos rtran + xor notif0 rpmos rtranif0 + xnor notif1 rcmos rtranif1 +*/ + +gate_description + : { current_delay = NULL_TREE; } + gate_instance_clist sc +/* | drive_strength delay_o + { current_delay = $2; } + gate_instance_clist sc */ + | delay + { current_delay = $1; } + gate_instance_clist sc + ; + +gate_instance_clist + : gate_instance + | gate_instance_clist ',' gate_instance + ; + +gate_instance + : IDENTIFIER '(' terminal_clist rp + { $$ = build_gate_instance (current_gatetype, input_filename, lineno, + $1, nreverse ($3), current_delay, NULL_TREE); + MODULE_INSTANCES (current_module) = chainon ($$, + MODULE_INSTANCES (current_module)); + } + | '(' terminal_clist rp + { $$ = build_gate_instance (current_gatetype, input_filename, lineno, + NULL_TREE, nreverse ($2), current_delay, NULL_TREE); + MODULE_INSTANCES (current_module) = chainon ($$, + MODULE_INSTANCES (current_module)); + } + ; + + + +UDP_or_module_instantiation + : IDENTIFIER /* drive_strength_o */ xparameter_value_assignment + { current_instance_module = $1; + current_instance_param = $2; + in_instantiation = 1; + } + module_instance_clist sc + { current_instance_module = NULL_TREE; + current_instance_param = NULL_TREE; + in_instantiation = 0; + } + + /* OR is a keyword, treat it seperately */ +/* | OR xparameter_value_assignment + { current_instance_module = get_identifier ("or"); + current_instance_param = $2; + } + module_instance_clist sc + { current_instance_module = NULL_TREE; + current_instance_param = NULL_TREE; + } +*/ +/* | IDENTIFIER drive_strength_o delay_o UDP_instance_clist sc */ + ; +/* : IDENTIFIER UDP_instance_clist sc + { drive[0] = drive[1] = 0; + $$ = 0; + } + | IDENTIFIER delay UDP_instance_clist sc + { drive[0] = drive[1] = 0; + $$ = 0; + } + : IDENTIFIER drive_strength_o delay_o UDP_instance_clist sc + { $$ = 0; } + ; */ + +xparameter_value_assignment + : /* empty */ + { $$ = NULL; } + | '#' constant_expression + { $$ = build_tree_list ($2, NULL_TREE); } + | '#' '(' constant_expression_clist ')' + { $$ = nreverse ($3); } + | '#' '(' mintypmax_expression ')' + { $$ = build_tree_list ($3, NULL_TREE); } + | '#' '(' mintypmax_expression ',' mintypmax_expression')' + { $$ = build_tree_list ($5, NULL_TREE); + $$ = tree_cons ($3, NULL_TREE, $$); + } + | '#' '(' mintypmax_expression ',' mintypmax_expression ',' mintypmax_expression ')' + { $$ = build_tree_list ($7, NULL_TREE); + $$ = tree_cons ($5, NULL_TREE, $$); + $$ = tree_cons ($3, NULL_TREE, $$); + } + ; + +constant_expression_clist + : constant_expression + { $$ = build_tree_list ($1, NULL_TREE); } + | constant_expression_clist ',' constant_expression + { $$ = tree_cons ($3, NULL_TREE, $1); } + ; + +/* +UDP_instance_clist + : UDP_instance + | UDP_instance_clist ',' UDP_instance + ; +*/ + +/* UDP_instance + : IDENTIFIER '(' xterminal_clist rp + | '(' terminal_clist rp + { $$ = $2; } + ; +*/ + +/* +xterminal_clist + : + { $$ = NULL_TREE; } + | terminal_clist + ; +*/ + +terminal_clist + : expression + { $$ = build_tree_list ($1, NULL_TREE); } + | terminal_clist ',' expression + { $$ = tree_cons ($3, NULL_TREE, $1); yyerrok; } + + | error + | terminal_clist error + | terminal_clist error expression + { yyerrok; } + | terminal_clist ',' error + ; + +/* +module_instantiation + : name_of_module module_instance_clist sc + ; +*/ + +module_instance_clist + : module_instance + | module_instance_clist ',' module_instance + { yyerrok; } + | error + | module_instance_clist error + | module_instance_clist error module_instance + { yyerrok; } + | module_instance_clist ',' error + ; + +module_instance + : IDENTIFIER '(' list_of_module_connections_o rp + { $$ = build_stmt (INSTANCE_NODE, lineno, check_non_reg ($1), + current_instance_module, + nreverse ($3), current_instance_param); + MODULE_INSTANCES (current_module) = chainon ($$, + MODULE_INSTANCES (current_module)); + // make_block_decl ($1, current_module, NULL_TREE); + } + | '(' list_of_module_connections_o rp + { $$ = build_stmt (INSTANCE_NODE, lineno, NULL_TREE, + current_instance_module, + nreverse ($2), current_instance_param); + MODULE_INSTANCES (current_module) = chainon ($$, + MODULE_INSTANCES (current_module)); + } + ; + +list_of_module_connections_o + : module_port_connection_clist + | named_port_connection_clist + ; + +module_port_connection_clist + : module_port_connection + | module_port_connection_clist ',' module_port_connection + { yyerrok; + $$ = chainon ($3, $1); + } + | error + | module_port_connection_clist ',' error + ; + +module_port_connection + : expression + { $$ = build_tree_list ($1, NULL_TREE); } + | /* empty */ + { $$ = build_tree_list (NULL_TREE, NULL_TREE); } + ; + +named_port_connection_clist + : named_port_connection + | named_port_connection_clist ',' named_port_connection + { $$ = chainon ($3, $1); } + ; + +named_port_connection + : '.' IDENTIFIER '(' expression rp + { $$ = build_tree_list ($4, $2); } + + | '.' IDENTIFIER '(' rp { $$ = NULL; } + ; +/* +A.5 Behavioral Statements +*/ + +initial_statement + : INITIAL + { $$ = stmt_lineno; + syn_warning ("INITIAL"); } + statement + { $$ = build_stmt (INITIAL_BLOCK, $2, $3); } + ; + +always_statement + : ALWAYS { $$ = stmt_lineno; } + statement + { $$ = build_stmt (ALWAYS_BLOCK, $2, $3); } + ; + +statement_or_null + : statement + | sc + { $$ = build_stmt (NULL_STMT, lineno); } + ; + +statement + : assignment sc +/* | STOP_STMT sc */ + + | IF { $$ = stmt_lineno; } + '(' expression rp statement_or_null elsepart + { $$ = build_stmt (IF_STMT, $2, $4, $6, $7); } + + | { $$ = current_case; } + case + { current_case = $2; } + '(' expression rp case_item_plist ENDCASE + { STMT_CASE_EXPR ($2) = $5; + STMT_CASE_LIST ($2) = nreverse ($7); + current_case = $1; + $$ = $2; + } + + | FOREVER + { $$ = stmt_lineno; + syn_warning ("FOREVER"); } + statement + { $$ = build_stmt (FOREVER_STMT, $2, $3); } + + | REPEAT + { $$ = stmt_lineno; + syn_warning ("REPEAT"); } + '(' expression rp statement + { $$ = build_stmt (REPEAT_INIT_STMT, $2, $6, $4); + tmp_tree = build_stmt (REPEAT_STMT, $2, $$, $4); + chainon ($6, tmp_tree); + } + + | WHILE + { $$ = stmt_lineno; + syn_warning ("WHILE"); } + '(' expression rp statement + { $$ = build_stmt (WHILE_STMT, $2, $6, $4); } + + | FOR { $$ = stmt_lineno; } + '(' assignment sc expression sc assignment rp statement + { stmt_lineno = $2; + tmp_tree = build_stmt (FOR_STMT, $2, $10, $8, $6); + STMT_SURROGATE_ATTR (tmp_tree) = 1; + $$ = build_stmt (FOR_STMT, $2, $10, $4, $6); + TREE_CHAIN (tmp_tree) = $$; /* Fix this in pass 3 */ + chainon ($10, tmp_tree); /* at end of statement sequence */ + } + + | delay_control + { $$ = stmt_lineno; + syn_warning ("delay control"); + function_error; + } + statement_or_null + { $$ = build_stmt (DELAY_STMT, $2, $3, $1); } + + | event_control + { stmt_lineno = lineno; + function_error; + } + statement_or_null + { STMT_BODY ($1) = $3; + $$ = $1; + } + + | lvalue '=' + { $$ = stmt_lineno; + function_error; + } + delay_control expression sc + { $$ = build_stmt (ASSIGN_DELAY_STMT, $3, $1, + implicit_conversion ($1, $5), + NULL_TREE, NULL_TREE, + build_stmt (DELAY_STMT, $3, $1, $4)); + } + + | lvalue '=' + { $$ = stmt_lineno; + function_error; + } + event_control expression sc + { $$ = build_stmt (ASSIGN_EVENT_STMT, $3, $1, + implicit_conversion ($1, $5), + NULL_TREE, NULL_TREE, $4); + } + + | lvalue LE + { $$ = stmt_lineno; + function_error; + } + expression sc + { $$ = build_stmt (ASSIGN_NONBLK_DELAY_STMT, $3, $1, + implicit_conversion ($1, $4), + NULL_TREE, NULL_TREE, + build_stmt (DELAY_STMT, $3, $1, integer_zero_node)); + } + + | lvalue LE + { $$ = stmt_lineno; + function_error; + } + delay_control expression sc + { $$ = build_stmt (ASSIGN_NONBLK_DELAY_STMT, $3, $1, + implicit_conversion ($1, $5), + NULL_TREE, NULL_TREE, + build_stmt (DELAY_STMT, $3, $1, $4)); + } + + | lvalue LE + { $$ = stmt_lineno; + function_error; + } + event_control expression sc + { $$ = build_stmt (ASSIGN_NONBLK_EVENT_STMT, $3, $1, + implicit_conversion ($1, $5), + NULL_TREE, NULL_TREE, $4); + } + +/* | lvalue LE delay_control expression sc + { $$ = build_stmt (ASSIGN_NOBLOCK_STMT, $1, $4, $3); } + + | lvalue LE event_control expression sc + { $$ = build_stmt (ASSIGN_NOBLOCK_STMT, $1, $4, $3); } +*/ + | WAIT_ + { $$ = stmt_lineno; + syn_warning ("WAIT"); + function_error; + } + '(' conditional_expression rp statement_or_null + { $$ = build_stmt (WAIT_STMT, $2, $6, $4); } + + | ARROW_ + { $$ = stmt_lineno; + syn_warning ("Event trigger"); + function_error; + } + identifier sc + { $$= build_stmt (ARROW_STMT, $2, check_named_event ($3)); } + + | seq_block + | par_block + | task_enable + | system_task_enable + | DISABLE { $$ = stmt_lineno; } + identifier sc + { $$ = build_stmt (DISABLE_STMT, $2, $3); + HIERARCHICAL_ATTR ($$) = HIERARCHICAL_ATTR ($3); + } + + | ASSIGN + { $$ = stmt_lineno; } + lvalue '=' expression sc + { $$ = build_stmt (ASSIGN_PROC_STMT, $2, $3, $5, NULL_TREE, + NULL_TREE); } + + | DEASSIGN + { $$ = stmt_lineno; } + lvalue sc + { $$ = build_stmt (DEASSIGN_STMT, $2, $3); } + + | FORCE { $$ = stmt_lineno; + lval_type = LVAL_REG_NET; } + lvalue '=' expression sc + { syn_warning ("FORCE"); + $$ = build_stmt (FORCE_STMT, $2, $3, $5, NULL_TREE, + NULL_TREE, NULL_TREE, NULL_TREE); + lval_type = LVAL_REG; + } + + | RELEASE { $$ = stmt_lineno; + lval_type = LVAL_REG_NET; } + lvalue sc + { syn_warning ("RELEASE"); + $$ = build_stmt (RELEASE_STMT, $2, $3); + lval_type = LVAL_REG; + } + + /* | error sc { printf("error sc \n"); } */ + ; + +elsepart + : /* empty */ %prec IF + { $$ = NULL; } + | ELSE statement_or_null + { $$ = $2; } + ; + +case + : CASE + { $$ = build_stmt (CASE_STMT, stmt_lineno, NULL_TREE, NULL_TREE, NULL_TREE); } + | CASEZ + { $$ = build_stmt (CASEZ_STMT, stmt_lineno, NULL_TREE, NULL_TREE, NULL_TREE); } + | CASEX + { $$ = build_stmt (CASEX_STMT, stmt_lineno, NULL_TREE, NULL_TREE, NULL_TREE); } + ; + +/* +delay_or_event_control + : delay_control + | event_control + ; +*/ + +assignment + : lvalue '=' { $$ = stmt_lineno; } + expression + { $$ = build_stmt (ASSIGN_STMT, $3, $1, + implicit_conversion ($1, $4)); } + ; + +case_item_plist + : case_expr + | case_item_plist case_expr + { yyerrok; + $$ = chainon ($2, $1); + } + | error + | case_item_plist error + ; + +case_expr + : expression_clist ':' statement_or_null + { $$ = build_tree_list ($1, $3); } + + | DEFAULT ':' statement_or_null + { if (STMT_CASE_DEFAULT (current_case)) + error ("More than one 'DEFAULT' within CASE", NULL_CHAR, NULL_CHAR); + STMT_CASE_DEFAULT (current_case) = $3; + } + | DEFAULT statement_or_null + { if (STMT_CASE_DEFAULT (current_case)) + error ("More than one 'DEFAULT' within CASE", NULL_CHAR, NULL_CHAR); + STMT_CASE_DEFAULT (current_case) = $2; + } + ; + +expression_clist + : expression + { $$ = build_tree_list ($1, NULL_TREE); } + | expression_clist ',' expression + { $$ = tree_cons ($3, NULL_TREE, $1); } + | error + | expression_clist ',' error + ; + +xexpression_clist + : xexpression + { if( $1 != NULL_TREE ) { + $$ = build_tree_list ($1, NULL_TREE); + } else { + $$ = $1; + } + } + | xexpression_clist ',' xexpression + { $$ = tree_cons ($3, NULL_TREE, $1); } +/* | error +* | xexpression_clist error +* | xexpression_clist error xexpression +* | xexpression_clist ',' error */ + ; + +xexpression + : /* empty */ + { $$ = NULL_TREE; } + | expression + ; + +seq_block + : BEGIN + { $$ = build_stmt (BEGIN_STMT, stmt_lineno); } + statement_list END + { STMT_BODY ($2) = nreverse + (chainon (build_stmt (END_STMT, stmt_lineno), $3)); + $$ = $2; + } + | BEGIN ':' IDENTIFIER + { tmp_tree = make_node (NAMED_BLOCK); + BLOCK_DOWN (current_scope) = chainon (tmp_tree, BLOCK_DOWN (current_scope)); + BLOCK_UP (tmp_tree) = current_scope; + BLOCK_NAME (tmp_tree) = $3; + BLOCK_BODY (tmp_tree) = NULL_TREE; + BLOCK_CONTEXT_LIST (tmp_tree) = NULL; + make_block_decl (check_block ($3), current_scope, tmp_tree); + current_scope = tmp_tree; + push_scope (); + $$ = build_stmt (BEGIN_NAMED_STMT, stmt_lineno, + NULL_TREE, tmp_tree); + } + block_declaration_list statement_list END + { tmp_tree = build_stmt (END_NAMED_STMT, stmt_lineno, + NULL_TREE, STMT_BLOCK ($4)); + /* STMT_BEGIN_NAMED_END ($4) = tmp_tree; */ + STMT_BODY ($4) = nreverse (chainon (tmp_tree, $6)); + current_scope = pop_scope (); + $$ = $4; + } + ; + +par_block + : FORK + { $$ = build_stmt (FORK_STMT, stmt_lineno); } + statement_tree_list JOIN + { STMT_BODY ($2) = chainon /* thread JOIN to BEGINNING */ + (build_stmt (JOIN_STMT, stmt_lineno, NULL_TREE), + nreverse ($3)); + $$ = $2; + } + | FORK ':' IDENTIFIER + { tmp_tree = make_node (NAMED_BLOCK); + BLOCK_DOWN (current_scope) = chainon (tmp_tree, BLOCK_DOWN (current_scope)); + BLOCK_UP (tmp_tree) = current_scope; + BLOCK_NAME (tmp_tree) = $3; + BLOCK_BODY (tmp_tree) = NULL_TREE; + make_block_decl (check_block ($3), current_scope, tmp_tree); + current_scope = tmp_tree; + push_scope (); + $$ = build_stmt (FORK_NAMED_STMT, stmt_lineno, + NULL_TREE, tmp_tree); + } + block_declaration_list statement_tree_list JOIN + { tmp_tree = build_stmt (JOIN_NAMED_STMT, stmt_lineno, + NULL_TREE, STMT_BLOCK ($4)); + /* STMT_BEGIN_NAMED_END ($4) = tmp_tree; */ + STMT_BODY ($4) = chainon (tmp_tree, nreverse ($6)); + current_scope = pop_scope (); + $$ = $4; + } + ; + +statement_list + : /* empty */ + { $$ = NULL; } + | statement_list statement + { yyerrok; + $$ = chainon ($2, $1); + } + | statement_list error + ; + +statement_tree_list + : /* empty */ + { $$ = NULL; } + | statement_tree_list statement + { yyerrok; + $$ = tree_cons ($2, NULL_TREE, $1); + } + | statement_tree_list error + ; + +block_declaration_list + : /* empty */ + { $$ = NULL; } + | block_declaration_list block_declaration + ; + +block_declaration + : parameter_declaration + | static_declaration + ; + +task_enable + : identifier sc + { syn_warning ("task enable"); + function_error; + $$ = build_stmt (TASK_STMT, lineno, IDENTIFIER_POINTER ($1), NULL_TREE); + HIERARCHICAL_ATTR ($$) = HIERARCHICAL_ATTR ($1); + } + | identifier '(' expression_clist rp sc + { syn_warning ("task enable"); + $$ = build_stmt (TASK_STMT, lineno, IDENTIFIER_POINTER ($1), nreverse ($3)); + HIERARCHICAL_ATTR ($$) = HIERARCHICAL_ATTR ($1); + } + ; + +system_task_enable + : SYSTEM_IDENTIFIER sc + { $$ = build_stmt (SYSTASK_STMT, lineno, IDENTIFIER_POINTER ($1), NULL_TREE); } + | SYSTEM_IDENTIFIER + { in_systask = 1; } + '(' xexpression_clist rp sc + { $$ = build_stmt (SYSTASK_STMT, lineno, IDENTIFIER_POINTER ($1), nreverse ($4)); + in_systask = 0; + } + ; + +lvalue + : lval_normal + { stmt_lineno = lineno; } + | lval_concat + { stmt_lineno = lineno; } + ; + +lval_normal + : identifier + { $$ = check_lval ($1, lval_type, current_spec); } + | identifier '[' expression ']' + { $$ = build_bit_ref ( + check_lval_nocheck ($1, lval_type, current_spec), $3); } + | identifier '[' expression ':' expression ']' + { $$ = build_part_ref ( + check_lval_nocheck ($1, lval_type, current_spec), $3, $5); } + ; + +/* +A.6 Specify Section +*/ + +specify_block + : SPECIFY + { + } + specify_stuff + {} + ; + +/* If specify blocks are disabled, The rest will be eaten by the parser */ +specify_stuff + : specify_items ENDSPECIFY + {} + ; + +specify_items + : /* empty */ + { $$ = NULL; } + | specify_items specify_item + { yyerrok; + $$ = NULL; + // $$ = chainon ($2, $1); + } + | specify_items error + ; +specify_item + : specparam_declaration + | path_declaration + | system_timing_check + { + if( $1!=NULL_TREE ) { + STMT_SOURCE_LINE($1) = stmt_lineno; + STMT_SOURCE_FILE($1) = input_filename; + MODULE_SPECDEFS(current_module) = + chainon(MODULE_SPECDEFS(current_module),$1); + } + } +/* + These are implemented using the path_declaration + + | level_sensitive_path_declaration + | edge_sensitive_path_declaration + | sdpd +*/ + ; +specparam_declaration + : SPECPARAM + { current_spec = make_param_spec (NULL_TREE); } + list_of_param_assignments sc + { + specify_save_param_list( current_module, $3 ); + } + ; + +path_declaration + : specify_if_clause path_description '=' path_delay_value sc + { + PATH_CONDITION($2) = $1; + PATH_DELAYS($2) = $4; + MODULE_SPECDEFS(current_module) = + chainon(MODULE_SPECDEFS(current_module),check_path($2)); + } + ; +path_description + /* all types of path descriptors are bundled together - its was the + only way I could get bision to parse correctly */ + : '(' + list_of_path_inputs path_operator '(' + list_of_path_outputs ':' + data_source_expression rp rp + { + $$ = build_path( nreverse($2), nreverse($5), $7, NULL_TREE, NULL_TREE, + $3, 0, 0 ); + } + | '(' edge_identifier + list_of_path_inputs path_operator '(' + list_of_path_outputs ':' + data_source_expression rp rp + { + $$ = build_path( nreverse($3), nreverse($6), $8, NULL_TREE, NULL_TREE, + $4, $2, 0 ); + } + | '(' + list_of_path_inputs path_operator '(' + list_of_path_outputs polarity_operator ':' + data_source_expression rp rp + { + $$ = build_path( nreverse($2), nreverse($5), $8, NULL_TREE, NULL_TREE, + $3, 0, $6 ); + } + | '(' edge_identifier + list_of_path_inputs path_operator '(' + list_of_path_outputs polarity_operator ':' + data_source_expression rp rp + { + $$ = build_path( nreverse($3), nreverse($6), $9, NULL_TREE, NULL_TREE, + $4, $2, $7 ); + } + | '(' list_of_path_inputs path_operator + list_of_path_outputs rp + { + $$ = build_path( nreverse($2), nreverse($4), NULL_TREE, NULL_TREE, NULL_TREE, + $3, 0, 0 ); + } + | '(' list_of_path_inputs polarity_operator path_operator + list_of_path_outputs rp + { + $$ = build_path( nreverse($2), nreverse($5), NULL_TREE, NULL_TREE, NULL_TREE, + $4, 0, $3 ); + } + ; +list_of_path_inputs + : specify_input_terminal_descriptor + | list_of_path_inputs ','specify_input_terminal_descriptor + { yyerrok; + $$ = chainon ($3, $1); + } + | error + | list_of_path_inputs error specify_input_terminal_descriptor + { yyerrok; } + | list_of_path_inputs ',' error + ; +list_of_path_outputs + : specify_output_terminal_descriptor + | list_of_path_outputs ','specify_output_terminal_descriptor + { yyerrok; + $$ = chainon ($3, $1); + } + | error + | list_of_path_outputs error specify_output_terminal_descriptor + { yyerrok; } + | list_of_path_outputs ',' error + ; +specify_input_terminal_descriptor + : IDENTIFIER + { + $$ = build_tree_list( check_input_port($1), NULL_TREE ); + } + | IDENTIFIER '[' constant_expression rb + { + $$ = build_tree_list( build_bit_ref (check_input_port($1), $3), NULL_TREE ); + } + | IDENTIFIER '[' constant_expression ':' constant_expression rb + { + $$ = build_tree_list( build_part_ref (check_input_port($1), $3, $5), NULL_TREE ); + } + ; +specify_output_terminal_descriptor + : IDENTIFIER + { + $$ = build_tree_list( check_output_port($1), NULL_TREE ); + } + | IDENTIFIER '[' constant_expression rb + { + $$ = build_tree_list( build_bit_ref (check_output_port($1), $3), NULL_TREE ); + } + | IDENTIFIER '[' constant_expression ':' constant_expression rb + { + $$ = build_tree_list( build_part_ref (check_output_port($1), $3, $5), NULL_TREE ); + } + ; +path_delay_value + : path_delay_expression + | '(' path_delay_expression ',' path_delay_expression rp + { + $$ = chainon( $2, $4 ); + } + | '(' path_delay_expression ',' path_delay_expression ',' + path_delay_expression rp + { + tree t; + t = chainon( $2, $4 ); + $$ = chainon( t, $6 ); + } + | '(' path_delay_expression ',' path_delay_expression ',' + path_delay_expression ',' path_delay_expression ',' + path_delay_expression ',' path_delay_expression rp + { + tree t; + t = chainon( $2, $4 ); + t = chainon( t, $6 ); + t = chainon( t, $8 ); + t = chainon( t, $10 ); + $$ = chainon( t, $12 ); + } + ; +path_delay_expression + : mintypmax_expression + { + $$ = build_tree_list($1,NULL_TREE); + } + ; +polarity_operator + : '+' + { + $$ = 1; + } + | '-' + { + $$ = -1; + } + ; +path_operator + : STARARROW + { + $$ = FALSE; + } + | EQUALARROW + { + $$ = TRUE; + } + ; +conditional_port_expression + : expression /* according to the BNF this should be more elaborate */ + /* if further checking for conformance is required it + could be done in a later pass */ + ; +data_source_expression + : expression + ; +edge_identifier + : POSEDGE + { + $$ = 1; + } + | NEGEDGE + { + $$ = -1; + } + ; +specify_if_clause + : /* empty */ + { + $$ = 0; + } + | IF '(' conditional_port_expression rp + { + $$ = $3; + } + ; + +system_timing_check + : SETUP '(' timing_check_event ',' timing_check_event ',' + expression notify_clause rp sc + { + $$ = build_timing_statement( SETUP, $3, $5, $7, NULL_TREE, $8 ); + } + | HOLD '(' timing_check_event ',' timing_check_event ',' + expression notify_clause rp sc + { + $$ = build_timing_statement( HOLD, $3, $5, $7, NULL_TREE, $8 ); + } + | PERIOD '(' controlled_timing_check_event ',' + expression notify_clause rp sc + { + $$ = build_timing_statement( PERIOD, $3, NULL_TREE, $5, NULL_TREE, $6 ); + } + | WIDTH '(' controlled_timing_check_event ',' + expression rp sc + { + $$ = build_timing_statement( WIDTH, $3, NULL_TREE, $5, NULL_TREE, NULL_TREE ); + } + | WIDTH '(' controlled_timing_check_event ',' + expression ',' expression notify_clause rp sc + { + $$ = build_timing_statement( WIDTH, $3, NULL_TREE, $5, $7, $8 ); + } + | SKEW '(' timing_check_event ',' timing_check_event ',' + expression notify_clause rp sc + { + $$ = build_timing_statement( SKEW, $3, $5, $7, NULL_TREE, $8 ); + } + | RECOVERY '(' controlled_timing_check_event ',' timing_check_event ',' + expression notify_clause rp sc + { + $$ = build_timing_statement( RECOVERY, $3, $5, $7, NULL_TREE, $8 ); + } + | SETUPHOLD '(' timing_check_event ',' timing_check_event ',' + expression ',' expression notify_clause rp sc + { + $$ = build_timing_statement( SETUPHOLD, $3, $5, $7, $9, $10 ); + } + | NOCHANGE '(' controlled_timing_check_event ',' timing_check_event ',' + expression ',' expression rp sc + { + $$ = NULL_TREE; + } + ; +notify_clause + : /* EMPTY */ + { + $$ = 0; + } + | ',' notify_register + { + $$ = $2; + } + ; +notify_register + : IDENTIFIER + ; +timing_check_event + : timing_check_event_control timing_input_terminal_descriptor + { + $$ = build_timing_event( $1, $2, NULL_TREE ); + } + | timing_check_event_control timing_input_terminal_descriptor + ANDANDAND timing_check_condition + { + $$ = build_timing_event( $1, $2, $4 ); + } + ; +controlled_timing_check_event + : timing_check_event_control_no_empty timing_input_terminal_descriptor + { + $$ = build_timing_event( $1, $2, NULL_TREE ); + } + | timing_check_event_control_no_empty timing_input_terminal_descriptor + ANDANDAND timing_check_condition + { + $$ = build_timing_event( $1, $2, $4 ); + } + ; +timing_check_event_control + : /* EMPTY */ + { + extern unsigned int alledgeMask; + $$ = alledgeMask; + } + | POSEDGE + { + extern unsigned int posedgeMask; + $$ = posedgeMask; + } + | NEGEDGE + { + extern unsigned int negedgeMask; + $$ = negedgeMask; + } + | EDGE '[' + { extern int enable_edge_digit; + enable_edge_digit = TRUE; + } + edge_list rb + { + extern int enable_edge_digit; + enable_edge_digit = FALSE; + $$ = $4; + } + ; +timing_check_event_control_no_empty + : POSEDGE + { + extern unsigned int posedgeMask; + $$ = posedgeMask; + } + | NEGEDGE + { + extern unsigned int negedgeMask; + $$ = negedgeMask; + } + | EDGE '[' + { extern int enable_edge_digit; + enable_edge_digit = TRUE; + } + edge_list rb + { + extern int enable_edge_digit; + enable_edge_digit = FALSE; + $$ = $4; + } + ; +edge_list + : DOUBLE_DIGIT + { + extern unsigned int edge_mask[4][4]; + $$ = edge_mask[$1[0]][$1[1]]; + } + | DOUBLE_DIGIT ',' edge_list + { + extern unsigned int edge_mask[4][4]; + $$ = $3 | edge_mask[$1[0]][$1[1]]; + } + | error + { + $$ = 0; + } + ; +timing_check_condition + : scalar_expression + | '(' timing_check_condition ')' + { $$ = $2; } + | '~' scalar_expression %prec UNARY + { $$ = build_unary_op (BIT_NOT_EXPR, $2); } + | scalar_expression LOGICAL_EQUALITY scalar_constant + { $$ = build_binary_op (EQ_EXPR, $1, $3); } + | scalar_expression CASE_EQUALITY scalar_constant + { $$ = build_binary_op (EQ_CASE_EXPR, $1, $3); } + | scalar_expression CASE_INEQUALITY scalar_constant + { $$ = build_binary_op (NE_CASE_EXPR, $1, $3); } + | scalar_expression LOGICAL_INEQUALITY scalar_constant + { $$ = build_binary_op (NE_EXPR, $1, $3); } + ; +scalar_expression /* expression must be a Scalar Net */ + : IDENTIFIER + { $$ = check_rval ($1); } + ; +scalar_constant + : BASE_NUMBER + { + $$ = check_one_bit_constant($1); + } + | NUMBER + { + $$ = check_one_bit_constant($1); + } + ; + +timing_input_terminal_descriptor + : identifier + { + check_input_port($1); + $$ = check_rval ($1); + } + | identifier '[' expression ']' + { + check_input_port($1); + $$ = build_bit_ref ( check_rval_nocheck ($1), $3); + } + | identifier '[' constant_expression ':' constant_expression ']' + { + check_input_port($1); + $$ = build_part_ref ( check_rval_nocheck ($1), $3, $5); + } + ; + + +/* +A.7 Expressions +*/ + +lval_concat + : '{' lval_clist '}' + { $$ = make_node (CONCAT_REF); + CONCAT_LIST ($$) = $2; + concat_labels ($$); + } + ; + +lval_clist + : lval_normal + { $$ = build_tree_list ($1, NULL_TREE); } + | lval_concat + { $$ = build_tree_list ($1, NULL_TREE); } + | lval_clist ',' lval_normal + { $$ = tree_cons ($3, NULL_TREE, $1); } + | lval_clist ',' lval_concat + { $$ = tree_cons ($3, NULL_TREE, $1); } + | error + | lval_clist error + | lval_clist error lval_normal + | lval_clist error lval_concat + | lval_clist ',' error + ; + +conditional_expression + : expression + ; + +constant_expression + : expression + { if (!TREE_CONSTANT_ATTR ($1)) { + error ("Illegal non-constant expression", NULL_CHAR, NULL_CHAR); + $$ = error_mark_node; + } + else + $$ = $1; + } + ; + +mintypmax_expression + : expression + | expression ':' expression ':' expression + { switch (delay_type) { + case (MIN_DELAY): $$ = $1; break; + case (TYP_DELAY): $$ = $3; break; + case (MAX_DELAY): $$ = $5; break; + } + } + ; + +mintypmax_expression_triplet + : expression ':' expression ':' expression + { switch (delay_type) { + case (MIN_DELAY): $$ = $1; break; + case (TYP_DELAY): $$ = $3; break; + case (MAX_DELAY): $$ = $5; break; + } + } + ; + +expression + : primary + | '+' primary %prec UNARY + { $$ = $2; } + | '-' primary %prec UNARY + { $$ = build_unary_op (NEGATE_EXPR, $2); } + | '!' primary %prec UNARY + { $$ = build_unary_op (TRUTH_NOT_EXPR, $2); } + | '~' primary %prec UNARY + { $$ = build_unary_op (BIT_NOT_EXPR, $2); } + | '&' primary %prec UNARY + { $$ = build_unary_op (AND_REDUCE_EXPR, $2); } + | REDUCTION_NAND primary %prec UNARY + { $$ = build_unary_op (NAND_REDUCE_EXPR, $2); } + | '|' primary %prec UNARY + { $$ = build_unary_op (OR_REDUCE_EXPR, $2); } + | REDUCTION_NOR primary %prec UNARY + { $$ = build_unary_op (NOR_REDUCE_EXPR, $2); } + | '^' primary %prec UNARY + { $$ = build_unary_op (XOR_REDUCE_EXPR, $2); } + | XNOR primary %prec UNARY + { $$ = build_unary_op (XNOR_REDUCE_EXPR, $2); } + | expression '+' expression + { $$ = build_binary_op (PLUS_EXPR, $1, $3); } + | expression '-' expression + { $$ = build_binary_op (MINUS_EXPR, $1, $3); } + | expression '*' expression + { $$ = build_binary_op (MULT_EXPR, $1, $3); } + | expression '/' + { syn_warning ("Division operator"); } + expression + { $$ = build_binary_op (DIV_EXPR, $1, $4); } + | expression '%' + { syn_warning ("Modulus operator"); } + expression + { $$ = build_binary_op (MOD_EXPR, $1, $4); } + | expression LOGICAL_EQUALITY expression + { $$ = build_binary_op (EQ_EXPR, $1, $3); } + | expression LOGICAL_INEQUALITY expression + { $$ = build_binary_op (NE_EXPR, $1, $3); } + | expression CASE_EQUALITY + { syn_warning ("Case equality"); } + expression + { $$ = build_binary_op (EQ_CASE_EXPR, $1, $4); } + | expression CASE_INEQUALITY + { syn_warning ("Case inequality"); } + expression + { $$ = build_binary_op (NE_CASE_EXPR, $1, $4); } + | expression ANDAND expression + { $$ = build_binary_op (TRUTH_ANDIF_EXPR, $1, $3); } + | expression OROR expression + { $$ = build_binary_op (TRUTH_ORIF_EXPR, $1, $3); } + | expression LT expression + { $$ = build_binary_op (LT_EXPR, $1, $3); } + | expression LE expression + { $$ = build_binary_op (LE_EXPR, $1, $3); } + | expression GT expression + { $$ = build_binary_op (GT_EXPR, $1, $3); } + | expression GE expression + { $$ = build_binary_op (GE_EXPR, $1, $3); } + | expression '&' expression + { $$ = build_binary_op (BIT_AND_EXPR, $1, $3); } + | expression '|' expression + { $$ = build_binary_op (BIT_OR_EXPR, $1, $3); } + | expression '^' expression + { $$ = build_binary_op (BIT_XOR_EXPR, $1, $3); } + | expression XNOR expression + { $$ = build_binary_op (BIT_XNOR_EXPR, $1, $3); } + | expression LEFT_SHIFT expression + { $$ = build_binary_op (LSHIFT_EXPR, $1, $3); } + | expression RIGHT_SHIFT expression + { $$ = build_binary_op (RSHIFT_EXPR, $1, $3); } + | expression '?' expression ':' expression + { $$ = build_cond_expr ($1, $3, $5); } + | STRING + ; + +/* +UNARY_OPERATOR is one of the following tokens: + + - ! ~ + & ~& | ^| ^ ~^ + +BINARY_OPERATOR is one of the following tokens: + + - * / % + == != === !== + && || + < <= > >= + & | ^ ^~ + >> << + +STRING is text enclosed in "" and contained on one line +*/ + +primary + : NUMBER + | BASE_NUMBER + | identifier %prec LOWEST + { $$ = check_rval ($1); } + | identifier '[' expression ']' + { $$ = build_bit_ref (check_rval_nocheck ($1), $3); } + | identifier '[' constant_expression ':' constant_expression ']' + { $$ = build_part_ref (check_rval_nocheck ($1), $3, $5); } + | concatenation + | function_call + | '(' mintypmax_expression rp + { $$ = $2; } + | '(' error rp + { $$ = error_mark_node; } + ; + +/* +NUMBER + Numbers can be specified in decimal, hexadecimal, octal or + binary, may optionally start with a + or -, and can be given + in one of two forms. One form is a normal decimal number + specified as a sequence of the digits 0 to 9. The other takes + the form + + ss..s 'f nn..n + + where the characters ss..s are decimal digits and specify the + size of the constant in terms of the exact number of bits + that make up the constant. The size specification is + optional. The character f represents the base format and + must be one of d, h, o, or b, for the bases decimal, + hexadecimal, octal and binary respectively. The characters + nn..n represent the constants value, and must follow the base + specification and be one of the following characters + + 0123456789abcdefABCDEFxXzZ + + White space is allowed between ss..s and the characters 'f, + and between 'f and nn..n. + +BASE is one of the following tokens: + 'b 'B 'o 'O 'd 'D 'h 'H +*/ + +concatenation + : '{' expression_clist '}' + { $$ = make_node (CONCAT_REF); + CONCAT_LIST ($$) = $2; + concat_labels ($$); + } + | '{' constant_expression '{' expression_clist '}' '}' + { $$ = make_node (CONCAT_REP_REF); + CONCAT_LIST ($$) = $4; + CONCAT_EXPR ($$) = $2; + concat_labels ($$); + } + ; + +function_call + : identifier '(' xexpression_clist rp + { $$ = build_function_call ($1, nreverse ($3)); + HIERARCHICAL_ATTR ($$) = HIERARCHICAL_ATTR ($1); + UNKNOWN_TYPE_ATTR ($$) = 1; + } + | SYSTEM_IDENTIFIER '(' xexpression_clist rp +/* { $$ = build_function_call ($1, nreverse ($3)); } */ + { $$ = build_nt (SYSFUNCTION_REF, IDENTIFIER_POINTER ($1), + nreverse ($3), NULL_TREE, NULL_TREE, lineno, input_filename); } + | SYSTEM_IDENTIFIER %prec LOWEST +/* { $$ = build_function_call ($1, NULL_TREE); } */ + { $$ = build_nt (SYSFUNCTION_REF, IDENTIFIER_POINTER ($1), + NULL_TREE, NULL_TREE, NULL_TREE, lineno, input_filename); } + ; + +/* +A.8 General +*/ + +identifier + : HIERARCHY_IDENTIFIER + { + syn_warning ("Hierachical name"); + /* hierarchical_list = link_tree_cons ($1, NULL_TREE, hierarchical_list); */ + HIERARCHICAL_ATTR ($1) = 1; + UNKNOWN_TYPE_ATTR ($1) = 1; + TREE_CONSTANT_ATTR ($1) = 1; /* assume this is true for now */ + } + + | IDENTIFIER + ; + +IDENTIFIER_or_OR + : IDENTIFIER + | OR + { $$ = get_identifier ("or"); } + ; +/* +IDENTIFIER + An identifier is any sequence of letters, digits and the + underscore (_) symbol, except that the first must be a letter + or the underscore. Upper and lower case letters are + considered to be different (unless the upper case option is + used when compiling). Identifiers may be of any size, i.e. + all characters are significant. + Escaped identifiers start with the \ character and provide a + means of including any of the printable ascii characters in + an identifier. An escaped identifier ends with white space. + The leading \ character is not considered to be part of the + identifier. +*/ + +delay_o + : /* empty */ + { $$ = NULL_TREE; } + | delay + ; + +delay + : '#' NUMBER + { $$ = build_nt (DELAY_EXPR, $2, $2, NULL_TREE); + TREE_LABEL ($$) = 1; + } + | '#' identifier + { $$ = check_rval ($2); + $$ = build_nt (DELAY_EXPR, $$, $$, NULL_TREE); + TREE_LABEL ($$) = 1; + } + | '#' '(' mintypmax_clist rp + { $$ = $3; } +/* | '#' '(' mintypmax_clist rp + { $$ = build_nt (DELAY_EXPR, $3, $3, NULL_TREE); + TREE_LABEL ($$) = 1; + } +*/ ; + +mintypmax_clist + : mintypmax_expression + { $$ = build_nt (DELAY_EXPR, $1, $1, NULL_TREE); + TREE_LABEL ($$) = 1; + } + | mintypmax_expression ',' mintypmax_expression + { $$ = build_nt (DELAY_EXPR, $1, $3, NULL_TREE); + TREE_LABEL ($$) = 2; + } + | mintypmax_expression ',' mintypmax_expression ',' mintypmax_expression + { $$ = build_nt (DELAY_EXPR, $1, $3, $5); + TREE_LABEL ($$) = 3; + } + ; + +delay_control + : '#' NUMBER + { $$ = $2; } + | '#' identifier + { $$ = check_rval ($2); } + | '#' '(' mintypmax_expression rp + { $$ = $3; } + ; + +event_control + : '@' { in_event = 1; } + identifier /* statement_or_null */ + {if (!HIERARCHICAL_ATTR ($3) && + TREE_CODE (IDENT_CURRENT_DECL ($3)) == EVENT_DECL) + $$ = build_stmt (EVENT_STMT, lineno, NULL_TREE, + build_tree_list (IDENT_CURRENT_DECL ($3), NULL_TREE)); + else + $$ = build_stmt (EVENT_STMT, lineno, NULL_TREE, + build_tree_list (build_unary_op + (ANYEDGE_EXPR, check_rval ($3)), NULL_TREE)); + in_event = 0; + } + | '@' '(' { in_event = 1; } + event_expression rp /* statement_or_null */ + { $$ = build_stmt (EVENT_STMT, lineno, NULL_TREE, $4); + in_event = 0; } + ; + +event_expression + : expression + { /*if (TREE_CODE ($1) == EVENT_DECL) + $$ = build_tree_list ($1, NULL_TREE); + else */ + $$ = build_tree_list + (build_unary_op (ANYEDGE_EXPR, $1), NULL_TREE); + } + | POSEDGE expression + { $$ = build_tree_list + (build_unary_op (POSEDGE_EXPR, $2), NULL_TREE); } + | NEGEDGE expression + { $$ = build_tree_list + (build_unary_op (NEGEDGE_EXPR, $2), NULL_TREE); } + | event_expression OR event_expression + { $$ = chainon ($1, $3); } + ; + +/* +"Important" terminals +*/ + +rp + : ')' + { yyerrok; } + ; + +rb + : ']' + { yyerrok; } + | error + { yyerrok; } + ; + +sc + : ';' + { yyerrok; } + ; + +%% +void +eat_block (short token) +{ + YYSTYPE lval; + + for (;;) + if (yylex (&lval) == token) + return; +} + diff --git a/src/pass2.cc b/src/pass2.cc new file mode 100644 index 0000000..9df9e2e --- /dev/null +++ b/src/pass2.cc @@ -0,0 +1,957 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* PASS2.C - Generate hierarchy, allocate variables, propigate parameters */ + +#define PASS2_C + +#include "glue.h" +#include +#include +#include +#include +#include "vtypes.h" +#include "tree.h" +#include "schedule.h" +#include "obstack.h" +#include "runtime.h" +#include "decl.h" +#include "scope.h" +#include "macro.h" +#include "io.h" +#include "store.h" +#include "udp.h" +#include "pass3.h" +#include "eval.h" +#include "copy.h" +#include "check.h" +#include "pass2.h" +#include "veriwell.h" +#include "flags.h" +#include "lex.h" + +static void parse_at_top_scope(tree scope); + + +#define obstack_chunk_alloc xmalloc +#define obstack_chunk_free free + + +/* This obstack contains pointers to expression/ref/decl nodes in the + order that they should be evaluated (postfix). */ +extern struct obstack inst_obstack; +extern struct obstack alt_inst_obstack; + +/* This is some global information that needs to be kept around for + when markers need to be generated for references inside event + expressions. Perhaps this is a grungy way of doing it. */ + +extern struct Marker_info marker_info; +extern LibPath_t *ypathList; + +/* TREE_LIST of continuous assignments that are port connections */ +tree port_connections = NULL_TREE; + + +/* Memory allocation routines for pass3_decl. Allocate the memory and + initialize to all Xs. */ + +Group *malloc_X(ngroups_t ngroups) +{ + ngroups_t i; + Group *tmp, *tmp1; + + tmp1 = tmp = (Group *) xmalloc(ngroups * sizeof(Group)); + if (tmp) + for (i = 0; i < ngroups; i++, tmp++) + BVAL(tmp) = AVAL(tmp) = (Bit) - 1; + + return tmp1; +} + +Group *realloc_X(Group * g, ngroups_t ngroups) +{ + ngroups_t i; + Group *tmp, *tmp1; + + tmp1 = tmp = (Group *) xrealloc((char*)g, ngroups * sizeof(Group)); + if (tmp) + for (i = 0; i < ngroups; i++, tmp++) + BVAL(tmp) = AVAL(tmp) = (Bit) - 1; + + return tmp1; +} + +/* Memory allocation routines for pass3_decl. Allocate the memory and + initialize to all Zs for Nets. */ + +Group *malloc_Z(ngroups_t ngroups) +{ + ngroups_t i; + Group *tmp, *tmp1; + + tmp1 = tmp = (Group *) xmalloc(ngroups * sizeof(Group)); + if (tmp) + for (i = 0; i < ngroups; i++, tmp++) { + BVAL(tmp) = (Bit) - 1; + AVAL(tmp) = 0; + } + + return tmp1; +} + +Group *realloc_Z(Group * g, ngroups_t ngroups) +{ + ngroups_t i; + Group *tmp, *tmp1; + + tmp1 = tmp = (Group *) xrealloc((char*)g, ngroups * sizeof(Group)); + if (tmp) + for (i = 0; i < ngroups; i++) { + BVAL(tmp) = (Bit) - 1; + AVAL(tmp) = 0; + } + + return tmp1; +} + +static ngroups_t do_vector_stuff(tree decl) +{ + nbits_t nbits; + ngroups_t ngroups; + + MSB(decl) = + get_range(DECL_MSB(decl), IDENTIFIER_POINTER(DECL_NAME(decl))); + LSB(decl) = + get_range(DECL_LSB(decl), IDENTIFIER_POINTER(DECL_NAME(decl))); + nbits = ABS(MSB(decl) - LSB(decl)) + 1; + VECTOR_DIRECTION_ATTR(decl) = (MSB(decl) >= LSB(decl)); + ngroups = bits_to_groups(nbits); + if (ngroups > MAX_GROUPS) + sorry1("Maximum vector size is %d", (char *) MAX_BITS); + TREE_NBITS(decl) = nbits; + return ngroups; +} + +/* Allocate storage for declaration block after evaluating and checking + LSB and MSBs. */ + +void pass3_decl(tree decl) +{ + enum tree_type code = (enum tree_type) TREE_CODE(decl); + nbits_t nbits; + ngroups_t ngroups; + ngroups_t array_size; + + lineno = DECL_SOURCE_LINE(decl); + input_filename = DECL_SOURCE_FILE(decl); + INITIALIZED_ATTR(decl) = 1; + SET_DECL_STATE(decl, X); /* By default; nest will change this to Z */ + switch (code) { + + case NET_SCALAR_DECL: + SET_DECL_STATE(decl, Z); + pass3_delay(NET_DELAY(decl)); + + if (STMT_SURROGATE_ATTR(decl)) { + /* copy stuff from original; TREE_CHAIN points to original */ + TREE_NBITS(decl) = 1; + DECL_STORAGE(decl) = (Group *) malloc_Z((ngroups_t) 1); + marker_info.first = NULL; + marker_info.last = NULL; + marker_info.flags = (enum marker_flags) (M_NET + M_FIXED); +// if (/*PORT_INPUT_ATTR (decl) ||*/ PORT_OUTPUT_ATTR (decl)) + if (PORT_IMMEDIATE_ATTR(decl)) // || PORT_COLLAPSED_ATTR (decl)) + marker_info.flags = + (enum marker_flags) (M_PORT + marker_info.flags); + marker_info.delay = NET_DELAY(decl); + if (!NET_ASSIGN_ATTR(decl) + || PORT_COLLAPSED_ATTR(TREE_CHAIN(decl)) + || NET_DELAY(TREE_CHAIN(decl))) + BuildMarker(decl, &marker_info); + break; + } /* if not surrogate, do the rest the same as for regs */ + DECL_STORAGE(decl) = (Group *) malloc_Z((ngroups_t) 1); + TREE_NBITS(decl) = 1; + break; + + case REG_SCALAR_DECL: + DECL_STORAGE(decl) = (Group *) malloc_X((ngroups_t) 1); + TREE_NBITS(decl) = 1; + break; + + case INTEGER_DECL: + MSB(decl) = 31; + LSB(decl) = 0; + VECTOR_DIRECTION_ATTR(decl) = 1; + DECL_STORAGE(decl) = (Group *) malloc_X((ngroups_t) 1); + TREE_NBITS(decl) = 32; + break; + + case REAL_DECL: + MSB(decl) = 31; + LSB(decl) = 0; + VECTOR_DIRECTION_ATTR(decl) = 1; + DECL_STORAGE(decl) = (Group *) malloc_X((ngroups_t) 1); + REAL_(DECL_STORAGE(decl)) = 0; + TREE_NBITS(decl) = 32; + break; + + case ARRAY_DECL: + ARRAY_HI(decl) = get_range(ARRAY_HI_EXPR(decl), + IDENT(DECL_NAME(decl))); + ARRAY_LO(decl) = get_range(ARRAY_LO_EXPR(decl), + IDENT(DECL_NAME(decl))); + + switch (ARRAY_CODE(decl)) { + case REG_VECTOR_DECL: + ngroups = do_vector_stuff(decl); + break; + + case INTEGER_DECL: + TREE_NBITS(decl) = 32; + ngroups = 0; + break; + + case TIME_DECL: + TREE_NBITS(decl) = 64; + ngroups = 1; + break; + + case REG_SCALAR_DECL: + TREE_NBITS(decl) = 1; + ngroups = 0; + break; + + default: + fatal("Internal error: unknown array type", NULL); + } + { + nbits_t tmp_array_size; + tmp_array_size = ABS(ARRAY_HI(decl) - ARRAY_LO(decl)) + 1; + if (tmp_array_size > MAX_ARRAY + || tmp_array_size * (ngroups + 1) > MAX_ARRAY) { + error("Maximum array size exceeded in array '%s'", + IDENT(DECL_NAME(decl)), NULL_CHAR); + array_size = 1; + } else + array_size = tmp_array_size; + } /* Allocate pointers to array elements */ + DECL_STORAGE(decl) = + (Group *) malloc_X(array_size * (ngroups + 1)); + + VECTOR_DIRECTION_ATTR(decl) = (ARRAY_HI(decl) >= ARRAY_LO(decl)); + break; + + case NET_VECTOR_DECL: + SET_DECL_STATE(decl, Z); + pass3_delay(NET_DELAY(decl)); + + if (STMT_SURROGATE_ATTR(decl)) { + if (TREE_CODE(TREE_CHAIN(decl)) == NET_SCALAR_DECL) + fatal("Scalar converted to vector", NULL); + /* copy stuff from original; TREE_CHAIN points to original */ + MSB(decl) = MSB(TREE_CHAIN(decl)); + LSB(decl) = LSB(TREE_CHAIN(decl)); + VECTOR_DIRECTION_ATTR(decl) = + VECTOR_DIRECTION_ATTR(TREE_CHAIN(decl)); + TREE_NBITS(decl) = TREE_NBITS(TREE_CHAIN(decl)); + ngroups = bits_to_groups(TREE_NBITS(decl)); + DECL_STORAGE(decl) = (Group *) malloc_Z(ngroups + 1); + marker_info.first = NULL; + marker_info.last = NULL; + marker_info.flags = (enum marker_flags) (M_NET + M_FIXED); +// if (/*PORT_INPUT_ATTR (decl) ||*/ PORT_OUTPUT_ATTR (decl)) + if (PORT_IMMEDIATE_ATTR(decl)) // || NET_ASSIGN_ATTR (decl)) + marker_info.flags = + (enum marker_flags) (M_PORT + marker_info.flags); + marker_info.delay = NET_DELAY(decl); + if (!NET_ASSIGN_ATTR(decl) + || PORT_COLLAPSED_ATTR(TREE_CHAIN(decl))) + BuildMarker(decl, &marker_info); + break; + } + /* if not surrogate, do the rest the same as for regs */ + ngroups = do_vector_stuff(decl); + DECL_STORAGE(decl) = (Group *) malloc_Z(ngroups + 1); + break; + + case TIME_DECL: + MSB(decl) = 0; + LSB(decl) = 0; + TREE_NBITS(decl) = 64; + DECL_STORAGE(decl) = (Group *) malloc_X((ngroups_t) 2); + break; + + case REG_VECTOR_DECL: + ngroups = do_vector_stuff(decl); + DECL_STORAGE(decl) = (Group *) malloc_X(ngroups + 1); + break; + + case TMP_DECL: + TREE_NBITS(decl) = TREE_NBITS(TREE_CHAIN(decl)); /* inherit bits */ + ngroups = bits_to_groups(TREE_NBITS(decl)); + DECL_STORAGE(decl) = (Group *) malloc_Z(ngroups + 1); + break; + + case EVENT_DECL: + case BLOCK_DECL: + TREE_NBITS(decl) = 1; + break; + + case SPECPARAM_DECL: + case PARAM_DECL: + if (!DECL_PARAM_REDIRECT(decl)) { + DECL_PARAM_RVAL_CODE(decl) = pass3_expr(DECL_PARAM_RVAL(decl)); + nbits = TREE_NBITS(DECL_PARAM_RVAL(decl)); + TREE_REAL_ATTR(decl) = TREE_REAL_ATTR(DECL_PARAM_RVAL(decl)); + TREE_INTEGER_ATTR(decl) = + TREE_INTEGER_ATTR(DECL_PARAM_RVAL(decl)); + } else { + DECL_PARAM_RVAL_CODE(decl) = + pass3_expr(DECL_PARAM_REDIRECT(decl)); + nbits = TREE_NBITS(DECL_PARAM_REDIRECT(decl)); + TREE_REAL_ATTR(decl) = + TREE_REAL_ATTR(DECL_PARAM_REDIRECT(decl)); + TREE_INTEGER_ATTR(decl) = + TREE_INTEGER_ATTR(DECL_PARAM_REDIRECT(decl)); + } + ngroups = bits_to_groups(nbits); + if (ngroups > MAX_GROUPS) + sorry1("Maximum vector size is %d", (char *) MAX_BITS); + if (DECL_MSB(decl)) { + do_vector_stuff(decl); +// MSB (decl) = get_range (DECL_MSB (decl), IDENTIFIER_POINTER (DECL_NAME (decl))); +// LSB (decl) = get_range (DECL_LSB (decl), IDENTIFIER_POINTER (DECL_NAME (decl))); +// VECTOR_DIRECTION_ATTR (decl) = (MSB (decl) >= LSB (decl)); + } else { + VECTOR_DIRECTION_ATTR(decl) = 1; /* default to msb>lsb */ + LSB(decl) = 0; + MSB(decl) = nbits - 1; + } + + TREE_NBITS(decl) = nbits; + if (bits_to_groups(nbits) > MAX_GROUPS) + sorry1("Maximum vector size is %d", (char *) MAX_BITS); + DECL_STORAGE(decl) = (Group *) malloc_X(ngroups + 1); + INITIALIZED_ATTR(decl) = 1; + { + /* need to allocate space for expressions; these are defined in + pass3.c */ + extern ngroups_t stack_size; + extern int max_label; + + if (!R_alloc(max_label, stack_size)) + fatal + ("Not enough memory to evaluate parameter expression of '%s'", + IDENT(DECL_NAME(decl))); + } + eval(DECL_PARAM_RVAL_CODE(decl)); + store(decl, decl); + break; + + default: + error("Don't know how to allocate for %s (%s)", + tree_code_name[code], IDENT(DECL_NAME(decl))); + } + + if ((enum tree_code)code != EVENT_DECL && (enum tree_code)code != BLOCK_DECL) + if (DECL_STORAGE(decl) == 0) +// if ((code != ARRAY_DECL && DECL_STORAGE (decl) == 0) +// || (code == ARRAY_DECL && DECL_STORAGE (decl) == 0)) + fatal("Not enough memory to allocate storage for '%s'", + IDENTIFIER_POINTER(DECL_NAME(decl))); + +} + + +/* A module wasn't found in the hierarchy; look for a library using the + -y option and the +libext options if they are supplied */ + +tree check_library(char *name) +{ + char *ytmp; + char *p; + char *pathend; + char path[256]; + LibPath_t *ypath; + File *f; + tree tmp_module_list, tmp_module; + tree saved_scope; + + + + for (ypath = ypathList; ypath != NULL; ypath = ypath->next) { + strcpy(path, ypath->path); /* copy the library path */ + strcat(path, PATHSEP); /* Add trailing "/" (or "\" or ":") */ + strcat(path, name); /* Add name of module */ + pathend = &path[strlen(path)]; + + if (ylibext) { /* +libext option supplied */ + ytmp = (char *) xmalloc(strlen(ylibext) + 1); + strcpy(ytmp, ylibext); + + /* loop through all the extensions given in the option */ + for (p = strtok(ytmp, "+"); p; p = strtok(NULL, "+")) { + strcpy(pathend, p); /* append various extensions */ +// printf ("Attempting to open %s\n", path); + f = File::fopen(path, "rt"); /* try it */ + if (f) { + goto foundit; + } + } + } + } + + return NULL_TREE; + + foundit: + + push_stream(fin, 2); + fin = f; + input_filename = xmalloc(strlen(path) + 1); + lineno = 1; + + strcpy(input_filename, path); + tmp_module_list = module_list; /* Start new module list for... */ + module_list = NULL_TREE; /* ...library file */ + +/* We have to be at the top module level for an instance to happen. Pop + this scope level so that all idents have no current value. Now, the + parse can happen in a clean environment. Else, the parse will pick up + idents used in the parent module. */ + +#if 0 + saved_scope = current_scope; + pop_scope(); /* free up idents */ + current_scope = NULL_TREE; /* incase timescale is used */ + prog_parse(); /* Parse the library file */ + module_list = nreverse(module_list); /* put first mod first */ + tmp_module = TREE_PURPOSE(module_list); /* get first one */ + module_list = chainon(tmp_module_list, module_list); /* reassemble */ + + fin = pop_stream(); + set_scope(saved_scope); /* restore parent scope */ +#endif + + parse_at_top_scope(current_scope); + + module_list = nreverse(module_list); /* put first mod first */ + tmp_module = TREE_PURPOSE(module_list); /* get first one */ + module_list = chainon(tmp_module_list, module_list); /* reassemble */ + + fin = pop_stream(); + LIB_MODULE_ATTR(tmp_module) = 1; + return tmp_module; +} + +/* unwind the stack and then parse the library at the top level scope; + restore the state of the scope stack after */ + +void parse_at_top_scope(tree scope) +{ + tree new_scope; + + new_scope = pop_scope(); + if (new_scope) + parse_at_top_scope(new_scope); /* recursively unwind */ + + else { /* at top, now parse */ + + current_scope = NULL_TREE; /* incase timescale is used */ + prog_parse(); /* Parse the library file */ + } + set_scope(scope); /* unwind recursion */ +} + + + +static tree copy_module(tree node) +{ + return copy_block(node); +} + +/* Lookup the module being instantiated. If the module found is a library + module, compare number of ports to make sure that another library module + isn't needed. + Later, this could be converted to use hashing, esp after gates are + supported */ + +static tree module_lookup(tree instance) +{ + tree t; + char *name = IDENT(INSTANCE_MODULE_NAME(instance)); + + for (t = module_list; t; t = TREE_CHAIN(t)) { + if (!strcmp(name, (MODULE_NAME(TREE_PURPOSE(t))))) { + if (UDP_ATTR(TREE_PURPOSE(t))) { /* this is a udp instantiation */ + return (TREE_PURPOSE(t)); + } + + + if (LIB_MODULE_ATTR(TREE_PURPOSE(t))) { + if (list_length(INSTANCE_PORTS(instance)) != + list_length(BLOCK_PORTS(TREE_PURPOSE(t)))) + continue; + } + return (TREE_PURPOSE(t)); + } + } + return check_library(name); +} + +/* Actually connect the ports; emulate collapsing if necessary. Pass in + the module port, the instance port argument, and the instance node for + line number info */ + +static void do_connect_ports(tree terminal, tree arg_tree, tree instance) +{ + enum tree_code port_code; + tree arg = TREE_PURPOSE(arg_tree); + enum tree_code arg_code = TREE_CODE(arg); + int collapse; + tree assign; + tree port; + + port = TREE_PURPOSE(terminal); + port_code = TREE_CODE(port); + //PORT_TERMINAL_HICONN( terminal ) = arg; + + if (PORT_REDEFINED_ATTR(port)) { + port = DECL_THREAD(port); + port_code = TREE_CODE(port); + } + +/* Loosely emulate port collapsing by making it so that "collapsed ports" + propigate immediately. This will happen is both ports are scalar nets + or both are vector nets. (The legality of the ports has already been + determined and one must already be a net, so it is sufficient to test + only for type equality.) Note that collapsed port forces it to be + an INOUT type, but that fact won't be explicitly mentioned in traces. */ + +/* [Some explaination is necessary: is both arg and port are net vectors + or both are net scalars, then collapse, regardless of whether the + port is input, output, or inout. This is because some models + (particularly sio85) rely on the fact that collapsed ports propigate + immediately. However, don't collapse when the arg is a part-select, + bit-select, or concat. Unless the port is an INOUT. This is because + we didn't want to slow down models that were already running reasonably + fast before this change (collapsing part/bit/concats on INOUT) went in. + If the part-selects, etc were collapsed, some models slowed 100%.] + */ + +// if (arg_code == port_code) + if ((is_net_code(arg_code) && arg_code == port_code) + || PORT_INPUT_ATTR(port) && PORT_OUTPUT_ATTR(port)) +// if (is_all_net (arg) && is_all_net (port))// && PORT_INPUT_ATTR (port) && PORT_OUTPUT_ATTR (port)) + collapse = 1; + else + collapse = 0; + +/* If port was copied (multiple module instantiation), then this + would be non-zero which would screw up output ports. So, make sure + it is NULL. */ + + TREE_3RD(arg_tree) = NULL_TREE; + + if (PORT_INPUT_ATTR(port)) // || collapse) + { + assign = build_cont_assign(check_lval_port(port), + arg, DECL_SOURCE_LINE(port), NULL_TREE, + 0); +// assign = build_cont_assign (check_lval (DECL_NAME (port), 4, port), +// arg, DECL_SOURCE_LINE (port), NULL_TREE, 0); + PORT_INPUT_ATTR(STMT_ASSIGN_LVAL(assign)) = PORT_INPUT_ATTR(port); + PORT_OUTPUT_ATTR(STMT_ASSIGN_LVAL(assign)) = + PORT_OUTPUT_ATTR(port); + PORT_COLLAPSED_ATTR(STMT_ASSIGN_LVAL(assign)) = collapse; + PORT_IMMEDIATE_ATTR(STMT_ASSIGN_LVAL(assign)) = collapse; + /* save port connection in 3rd node og arg's tree_list */ + TREE_3RD(arg_tree) = build_tree_list(assign, NULL_TREE); + } + if (PORT_OUTPUT_ATTR(port)) // || collapse) + { + if (!is_all_net(arg)) { + error("Illegal output port specification: '%s'", + IDENT(DECL_NAME(arg)), NULL_CHAR); + return; + } else if (port_code == NET_VECTOR_DECL + || port_code == NET_SCALAR_DECL) { + tree tmp_decl = copy_node(port); +// tree tmp_decl = make_net_source (port); + + DECL_THREAD(port) = tmp_decl; + DECL_THREAD(tmp_decl) = port; + DECL_NAME(tmp_decl) = DECL_NAME(port); + + assign = build_cont_assign(check_lval_port(arg), + tmp_decl, INSTANCE_LINE(instance), + NULL_TREE, 0); + } else { + assign = build_cont_assign(check_lval_port(arg), + port, INSTANCE_LINE(instance), + NULL_TREE, 0); + } +// PORT_INPUT_ATTR (STMT_ASSIGN_LVAL (assign)) = PORT_INPUT_ATTR (port); +// PORT_OUTPUT_ATTR (STMT_ASSIGN_LVAL (assign)) = PORT_OUTPUT_ATTR (port); +// PORT_COLLAPSED_ATTR (STMT_ASSIGN_LVAL (assign)) = collapse; + +// PORT_IMMEDIATE_ATTR (STMT_ASSIGN_LVAL (assign)) = collapse;// | PORT_OUTPUT_ATTR (port); + set_immediate_attr(STMT_ASSIGN_LVAL(assign), collapse); + PORT_COLLAPSED_ATTR(port) = collapse; + /* If this is bi-directional, then TREE_LIST will already have been + created */ + if (TREE_3RD(arg_tree)) + TREE_VALUE(TREE_3RD(arg_tree)) = assign; + else + TREE_3RD(arg_tree) = build_tree_list(NULL_TREE, assign); + } +} + +static void connect_ports(tree inside, tree outside) +{ + tree port, arg; + + arg = INSTANCE_PORTS(outside); + + /* named ports match in one of two conditions: if the name matches the + name of the decl of the port (if it is a decl and not a concat, + part-select, etc), or if the port is also named and the names match. + Note that matching is determined if the IDENTIFIER_NODEs are the + same since there is one hash table for an entire model. */ + + if (TREE_VALUE(arg)) { + for (; arg; arg = TREE_CHAIN(arg)) { + for (port = MODULE_PORT_LIST(inside); port; + port = TREE_CHAIN(port)) { + if ((*tree_code_type[TREE_CODE(TREE_PURPOSE(port))] == 'd' + && TREE_VALUE(arg) == DECL_NAME(TREE_PURPOSE(port))) + || TREE_VALUE(arg) == TREE_VALUE(port)) { + if (NAMED_PORT_ATTR(port)) + error("More than one connection to a port", + NULL_CHAR, NULL_CHAR); + NAMED_PORT_ATTR(port) = 1; + do_connect_ports(port, arg, outside); + break; + } + } + if (!port) + error("No port named '%s'", IDENT(TREE_VALUE(arg)), + NULL_CHAR); + } + + /* reset named port markers */ + for (port = MODULE_PORT_LIST(inside); port; + port = TREE_CHAIN(port)) + NAMED_PORT_ATTR(port) = 0; + } + +/* Ordered list of ports */ + else + for (port = MODULE_PORT_LIST(inside); port && arg; + port = TREE_CHAIN(port), arg = TREE_CHAIN(arg)) + if (TREE_PURPOSE(arg)) + do_connect_ports(port, arg, outside); + + if (arg && TREE_PURPOSE(arg)) + warning("Too many instance ports", NULL, NULL); + else if (port) + warning("Too few instance ports", NULL, NULL); + +} + +/* If there are any defparams in the module, they are chained in + MODULE_DEFPARAMS. Make sure lval exists, then redirect its parameter + to our lval. Only call this for modules. */ + +static void resolve_defparams(tree scope) +{ + tree t, param, lval; + tree resolve_hierarchical_name(tree); + tree search_up_decl(char *, tree); + + for (t = MODULE_DEFPARAMS(scope); t; t = TREE_CHAIN(t)) { + lval = STMT_ASSIGN_LVAL(t); + if (HIERARCHICAL_ATTR(lval)) + param = resolve_hierarchical_name(lval); + else + param = search_up_decl(IDENT(lval), scope); + if (param == error_mark_node) + return; + if (!param) { + error("Parameter '%s' not declared", IDENT(lval), NULL_CHAR); + return; + } + DECL_PARAM_REDIRECT(param) = STMT_ASSIGN_RVAL(t); + } +} + +/* Initialize all decls in the current scope and all others below. These + will be task, functions, and named blocksm and, of course, modules. */ + +static void initialize_decls(tree scope) +{ + tree t, t1; + + current_scope = scope; + + if (TREE_CODE(scope) == MODULE_BLOCK) { + resolve_defparams(scope); + + for (t = MODULE_SPECDEFS(scope); t; t = TREE_CHAIN(t)) { + if (TREE_CODE(t) == SPECPARAM_DECL && !INITIALIZED_ATTR(t)) { + pass3_decl(t); + } + } + } + + for (t = BLOCK_DECL(scope); t; t = TREE_CHAIN(t)) { + pass3_decl(t); + /* process other sources to a net */ + if (TREE_CODE(t) == NET_VECTOR_DECL || + TREE_CODE(t) == NET_SCALAR_DECL) { + marker_info.current_scb = BuildSCB(t, NOLIST); + if (PORT_OUTPUT_ATTR(t) || PORT_COLLAPSED_ATTR(t)) + if (DECL_THREAD(t)) + pass3_decl(DECL_THREAD(t)); + + for (t1 = NET_SOURCE(t); t1; t1 = NET_SOURCE(t1)) { + if (strcmp(IDENTIFIER_POINTER(DECL_NAME(t1)), + IDENTIFIER_POINTER(DECL_NAME(t)))) + fatal("Line %lu Driver names to not agree\n", + (char *) lineno); + pass3_decl(t1); + } + } + } + + for (t = BLOCK_PORTS(scope); t; t = TREE_CHAIN(t)) { + if (PORT_REDEFINED_ATTR(t)) + continue; + pass3_decl(t); + /* process other sources to a net */ + if (TREE_CODE(t) == NET_VECTOR_DECL || + TREE_CODE(t) == NET_SCALAR_DECL) { + marker_info.current_scb = BuildSCB(t, NOLIST); + if (PORT_OUTPUT_ATTR(t) || PORT_COLLAPSED_ATTR(t)) + if (DECL_THREAD(t)) + pass3_decl(DECL_THREAD(t)); + + for (t1 = NET_SOURCE(t); t1; t1 = NET_SOURCE(t1)) + pass3_decl(t1); + } + } + + /* Allocate return variable */ + if (TREE_CODE(scope) == FUNCTION_BLOCK) { + pass3_decl(FUNCT_DECL(scope)); + TREE_NBITS(scope) = TREE_NBITS(FUNCT_DECL(scope)); + } + + + /* do this for everyone below us */ + for (t = BLOCK_DOWN(scope); t; t = TREE_CHAIN(t)) + initialize_decls(t); + +} + +/* recursively link module together hierarchically */ + +static void do_instantiation(tree node) +{ + tree t, instance; + int had_to_copy; + +/* Allocate space for declared vars */ + +#if VDEBUG != 0 + if (vdebug) + printf_V("****** PASS2: Module '%s', instance '%s'\n", + MODULE_NAME(node), IDENT(BLOCK_NAME(node))); +#endif + + INITIALIZED_ATTR(node) = 1; + + /* scan all instantiations within this module */ + for (t = MODULE_INSTANCES(node); t; t = TREE_CHAIN(t)) { + HEAPTEST("In do_instantiation"); + if (TREE_CODE(t) != INSTANCE_NODE) + continue; + /* get line and file info in case of errors */ + lineno = STMT_SOURCE_LINE(t); + input_filename = STMT_SOURCE_FILE(t); + + /* first, look for module name */ +// instance = module_lookup (IDENTIFIER_POINTER (INSTANCE_MODULE_NAME (t))); + instance = module_lookup(t); +//printf_V (" Examining instance '%s', line %lu\n", IDENT (INSTANCE_MODULE_NAME (t)), lineno); + if (!instance) { + error("Module '%s' not defined", + IDENT(INSTANCE_MODULE_NAME(t)), NULL_CHAR); + continue; +// break; + } + + /* if module instance is really a udp, handle here */ + + if (UDP_ATTR(instance)) { + if (UDP_ATTR(t) == TRUE) /* already set; must have been copied... */ + continue; /* ...copy already build the gate instance */ + UDP_ATTR(t) = TRUE; + instantiate_udp(node, t, instance); + continue; + } + + + /* Next, if the module is not top-level, the we need to make a copy */ + if (BLOCK_UP(instance)) { +//printf_V ("Starting Copy...."); + instance = copy_module(instance); +//printf_V ("Ending Copy\n"); + had_to_copy = 1; + if (!instance) + break; + } else + had_to_copy = 0; + + if (!INSTANCE_NAME(t) && !LIB_MODULE_ATTR(instance)) { + error("No module name given in instantiation", NULL_CHAR, + NULL_CHAR); +// return; + } +/// ehm 3/7/97 else if (!LIB_MODULE_ATTR (instance)) +/// { +// if (!IDENT_CURRENT_DECL (INSTANCE_NAME (t))) +// fatal ("Instance name isn't in decl list: '%s'", IDENT (INSTANCE_NAME (t))); + +// DECL_THREAD (IDENT_CURRENT_DECL (INSTANCE_NAME (t))) = instance; +// make_block_decl (INSTANCE_NAME (t), node, instance); +// if (had_to_copy) + make_block_decl(INSTANCE_NAME(t), node, instance); +// ehm 3/7/97 } +// " else +// " { +// " INSTANCE_NAME (t) = INSTANCE_MODULE_NAME (t); +//" } + + /* Thread the module in */ + TREE_CHAIN(instance) = BLOCK_DOWN(node); + BLOCK_DOWN(node) = instance; + BLOCK_UP(instance) = node; + BLOCK_NAME(instance) = INSTANCE_NAME(t); + + INSTANCE_BLOCK(t) = instance; + + /* resolve module parameter overrides #(...) */ + if (INSTANCE_PARAMS(t)) { + tree decl, param_list = INSTANCE_PARAMS(t); + + /* scan decl list for a parameter */ + for (decl = BLOCK_DECL(instance); decl; + decl = TREE_CHAIN(decl)) { + if (TREE_CODE(decl) != PARAM_DECL) + continue; + DECL_PARAM_REDIRECT(decl) = TREE_PURPOSE(param_list); + if ((param_list = TREE_CHAIN(param_list)) == 0) + break; + } + if (param_list) + error("Too many module instance parameter assignments", + NULL_CHAR, NULL_CHAR); + } + + connect_ports(instance, t); + + /* Recursively instantiate modules inside the instance (if not already + done). */ + if (!INITIALIZED_ATTR(instance)) { + set_scope(instance); + do_instantiation(instance); + current_scope = pop_scope(); + } + } +} + +/* Main entrypoint */ + +void build_hierarchy() +{ + tree t, t1; + extern tree scope0; /* defined in decl.c */ + + obstack_init(&inst_obstack); + obstack_init(&alt_inst_obstack); + + initialize_scope(NULL_TREE); + + for (t1 = module_list; t1; t1 = TREE_CHAIN(t1)) { + t = TREE_PURPOSE(t1); + if (!BLOCK_UP(t) && !UDP_ATTR(t)) { /* don't do anything if not top_level or udp */ + set_scope(t); + do_instantiation(t); + current_scope = pop_scope(); + } + } + scope0 = make_node(SUPER_BLOCK); + BLOCK_DECL(scope0) = NULL; + +//printf_V ("Allocating variable storage\n"); + for (t1 = module_list; t1; t1 = TREE_CHAIN(t1)) { + t = TREE_PURPOSE(t1); + if (!BLOCK_UP(t) && !UDP_ATTR(t)) { /* don't do anything if not top_level or udp */ + TREE_CHAIN(t) = top_level; + top_level = t; + make_block_decl(BLOCK_NAME(t), scope0, t); +// initialize_decls (t); + } + } + /* Do this after all top-levels are resolved so that hierarchical defparams + can be accurately located */ + for (t = top_level; t; t = TREE_CHAIN(t)) + initialize_decls(t); + + BLOCK_DOWN(scope0) = top_level; + BLOCK_UP(scope0) = NULL; + BLOCK_NAME(scope0) = NULL; +} + + +void print_top_modules() +{ + tree t; + + /* for any module that has not moved, thread it onto the top_level list */ + printf_V("Top-level modules:\n"); + for (t = top_level; t; t = TREE_CHAIN(t)) + printf_V(" %s\n", IDENT(BLOCK_NAME(t))); + printf_V("\n"); +} + +/************************************************************** + * + * init_pass2 + * - initializes global and static variables in pass2.c + * + ************************************************************** + */ + +void init_pass2() +{ + port_connections = NULL_TREE; +} diff --git a/src/pass2.h b/src/pass2.h new file mode 100644 index 0000000..178e243 --- /dev/null +++ b/src/pass2.h @@ -0,0 +1,54 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* PASS2.H - Pass2 routine prototypes */ + +#ifndef PASS2_H +#define PASS2_H + +// public methods + +Group *malloc_X(ngroups_t ngroups); +Group *realloc_X(Group * g, ngroups_t ngroups); +Group *malloc_Z(ngroups_t ngroups); +Group *realloc_Z(Group * g, ngroups_t ngroups); +void pass3_decl(tree decl); +void build_hierarchy(void); +void print_top_modules(void); +void build_hierarchy(void); +void print_top_modules(void); +void init_pass2(); +tree check_library(char *name); + +// private methods + +#ifdef PASS2_C + +static ngroups_t do_vector_stuff(tree decl); +static tree copy_module(tree node); +static tree module_lookup(tree instance); +static void do_connect_ports(tree port, tree arg_tree, tree instance); +static void connect_ports(tree inside, tree outside); +static void resolve_defparams(tree scope); +static void initialize_decls(tree scope); +static void do_instantiation(tree node); + +#endif // PASS2_C + +#endif // PASS2_H diff --git a/src/pass3.cc b/src/pass3.cc new file mode 100644 index 0000000..d4af3cd --- /dev/null +++ b/src/pass3.cc @@ -0,0 +1,2000 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* PASS3.C - Snap forward pointers, resolve hierarchical names, expr lengths */ + +#define PASS3_C + +#include +#include +#include "glue.h" +#include "vtypes.h" +#include "tree.h" +#include "schedule.h" +#include "obstack.h" +#include "acc_user.h" +#include "pli.h" +#include "systask.h" +#include "decl.h" +#include "multdiv.h" +#include "pass3.h" +#include "scope.h" +#include "specify.h" +#include "gates.h" +#include "eval.h" +#include "pass2.h" +#include "timescal.h" +#include "veriwell.h" +#if VDEBUG != 0 +#include +#include "flags.h" +#endif + +#define obstack_chunk_alloc xmalloc +#define obstack_chunk_free free + +extern tree current_scope; + +tree *debug_; +tree debug_tree; + +static int in_lval = 0; /* set if processing lvalue (used in concat) */ +static int in_connect_ports = 0; /* set if building port connections */ +#define INSERT_PTR(NODE) obstack_ptr_grow (&inst_obstack, (tree) NODE) + +/* This obstack contains pointers to expression/ref/decl nodes in the + order that they should be evaluated (postfix). */ +struct obstack inst_obstack; +struct obstack alt_inst_obstack; + +/* This is some global information that needs to be kept around for + when markers need to be generated for references inside event + expressions. Perhaps this is a grungy way of doing it. */ + +struct Marker_info marker_info; + +/* save the number of instructions for the last expression + processed in case bit_ref needs it */ +static int last_inst_length; + +/* this is used as a temp stack fro saving stack size */ +extern struct obstack linkage_obstack; + +/* In fixup_nbits, while the tree is being walked, use the following + variables to keep track of the space required to execute the + expression. */ +ngroups_t have_for_push, have_for_pad, stack_size = 0, stack_extension = 0; +int stack_lineno; +char *stack_filename; + +tree debug_node; + +/* Lets NET lvals point to its source */ +tree global_cont_assign; + +/* Keep track of the largest number of regsisters required thus far. */ +int max_label = 0; + +/* The instruction obstack may be interrupted so that part-select references + and other constants can be evaluated. When something needs to be + evaluated, push the current state of the obstack, and start a new one. + When the evaluation is complete, pop the obstack and restore the state + so that new stuff can be added to the old stuff. */ + +struct inst_level { + struct inst_level *prev; /* where to pop to */ + void *base; + void *finish; +}; + +static struct inst_level *inst_stack; + + +void push_inst() +{ + void *finish = obstack_next_free(&inst_obstack); /* mark temporary end */ + void *base = obstack_finish(&inst_obstack); + struct inst_level *tem = + (struct inst_level *) obstack_alloc(&inst_obstack, + sizeof(struct inst_level)); + tem->prev = inst_stack; + tem->base = base; /* save the base */ + tem->finish = finish; /* save the current end */ + inst_stack = tem; +} + +void pop_inst() +{ + struct inst_level *tem = inst_stack; + void *base; + + inst_stack = tem->prev; + base = tem->base; + obstack_free(&inst_obstack, tem->finish); /* unwind to end of prev stack */ + obstack_set_base(&inst_obstack, base); /* restore prev stack base */ + return; +} + +/* Certain instructions need to keep track of the size of subexpressions. + In doing so, it will push the current stack size settings and reset + them. It will pop the saved setting at the end of its operation. */ + +struct stack_size_level { + struct stack_size_level *prev; /* where to pop to */ + ngroups_t have_for_push; + ngroups_t have_for_pad; +}; + +static struct stack_size_level *stack_size_stack; + +void push_stack_size() +{ + struct stack_size_level *tem + = (struct stack_size_level *) obstack_alloc(&linkage_obstack, + sizeof(struct + stack_size_level)); + tem->prev = stack_size_stack; + tem->have_for_push = have_for_push; + tem->have_for_pad = have_for_pad; + stack_size_stack = tem; + have_for_pad = have_for_push = 0; +} + +void pop_stack_size() +{ + struct stack_size_level *tem = stack_size_stack; + + stack_size_stack = tem->prev; + have_for_push = tem->have_for_push; + have_for_pad = tem->have_for_pad; + obstack_free(&linkage_obstack, (char *) tem); + return; +} + +/* At the end of pass 3, stack_allocate is called to allocate space + for the stack */ + +void stack_allocate() +{ + if (!R_alloc(max_label, stack_size)) { + lineno = stack_lineno; + input_filename = stack_filename; + fatal("Out of memory", NULL); + } +} + +/* Make sure there is enough space on the stack for an expression that + will be evaluated in the middle of another expression. Eg shift count + and conditional operator. */ +/* Note that this code is very similar to pass3_expr() and perhaps should + be merged someday. */ + +static nbits_t ensure_stack_space(tree node) +{ + nbits_t nbits; + ngroups_t tmp_pad; + char *type = tree_code_type[TREE_CODE(node)]; + + push_stack_size(); /* suspend current stack count */ + nbits = fixup_nbits(node); /* generate instructions & shift cnt */ + adjust_nbits(nbits, &node, (tree *) obstack_base(&inst_obstack)); + if (*type != 'e' || (*++type != '1' && *type != 'r')) + reserve_stack_space(TREE_SUB_LABEL(node), nbits, nbits); + tmp_pad = have_for_push + have_for_pad; /* treat all as padding */ + pop_stack_size(); /* get back current count */ + have_for_pad = max(tmp_pad, have_for_pad); /* account for the extra padding */ + return nbits; +} + +/* reserve space on the expression stack. Most of the space in needed to + push datum, but some is for the result which would be included + in the calculation for the parent expression, if any, so it is + treated as temporary padding. */ + +static void +reserve_stack_space(int number, nbits_t nbits_push, nbits_t nbits_pad) +{ + ngroups_t need_for_push = number * (bits_to_groups(nbits_push) + 1); + ngroups_t need_for_pad = bits_to_groups(nbits_pad) + 1; + + have_for_push += need_for_push; /* add to the stack */ + if (need_for_push >= have_for_pad) /* take away from the padding */ + have_for_pad = 0; + else + have_for_pad -= need_for_push; + have_for_pad = max(have_for_pad, need_for_pad); /* incread pad if nec. */ +} + +/* Return the module containing the given scope */ +tree module_of(tree scope) +{ + if (TREE_CODE(scope) == MODULE_BLOCK) + return scope; + else + return (module_of(BLOCK_UP(scope))); +} + +tree lookdown_scope(char *ident, tree scope) +{ + tree t; + + // ??? mdh - also look in parent scopes + do { + for (t = BLOCK_DOWN(scope); t; t = TREE_CHAIN(t)) { + if (!strcmp(IDENT(BLOCK_NAME(t)), ident)) + return t; + } + scope = BLOCK_UP(scope); + } + while (scope); + return NULL_TREE; +} + +/* Build a marker if the reference is inside an even expression */ + +void maybe_build_marker(tree decl) +{ + if (decl == error_mark_node) { + return; + } + if (marker_info.in_event) + BuildMarker(decl, &marker_info); +} + +void adjust_nbits(nbits_t nbits, tree * tree_addr, tree * code_base) +{ + tree node = *tree_addr; + ngroups_t ngroups; + char *tree_type_ptr = tree_code_type[TREE_CODE(node)]; + + /* Always make sure there is space on the stack */ + if ((ngroups = bits_to_groups(nbits)) >= stack_size) + stack_size = ngroups + 1; +// if (stack_size > 50) +// fatal ("Big stack size at line %lu\n", lineno); + + if (TREE_NBITS(node) >= nbits) + return; + switch (*tree_type_ptr) { + case ('e'): + switch (*++tree_type_ptr) { + case ('1'): /* binary condition */ + TREE_NBITS(node) = nbits; + return; + + case ('x'): /* binary context-dependent */ + TREE_NBITS(node) = nbits; + adjust_nbits(nbits, &TREE_OPERAND(node, 0), code_base); + adjust_nbits(nbits, &TREE_OPERAND(node, 1), code_base); + return; + + case ('u'): /* unary context-dependent */ + TREE_NBITS(node) = nbits; + adjust_nbits(nbits, &TREE_OPERAND(node, 0), code_base); + return; + + case ('r'): /* unary reduction */ + case ('c'): /* unary type conversion */ + TREE_NBITS(node) = nbits; + return; + + case ('s'): /* shift */ + TREE_NBITS(node) = nbits; + /* pass on to operand, not to shift count */ + adjust_nbits(nbits, &TREE_OPERAND(node, 0), code_base); + return; + + case ('3'): /* conditional */ + TREE_NBITS(node) = nbits; + adjust_nbits(nbits, &COND_TRUE(node), COND_TRUE_CODE(node)); + adjust_nbits(nbits, &COND_FALSE(node), COND_FALSE_CODE(node)); + return; + } + + case ('r'): + case ('c'): + TREE_NBITS(node) = nbits; + return; + case ('d'): + { + tree t = make_node(SHADOW_REF); + TREE_CHAIN(t) = node; + TREE_REAL_ATTR(t) = TREE_REAL_ATTR(node); + TREE_INTEGER_ATTR(t) = TREE_INTEGER_ATTR(node); + *tree_addr = t; + /* go back through code pointers and change decl pointer to + ref pointer */ + { + tree *p; + for (p = code_base; *p != node; p++); + *p = t; + } + TREE_NBITS(t) = nbits; + return; + } + } +} + +static struct part_info *cook_part_ref(nbits_t offset_high, + nbits_t offset_low, int concat) +{ + struct part_info *info = + (struct part_info *) xmalloc(sizeof(struct part_info)); + int rel_offset_low = offset_low % BITS_IN_GROUP; + int rel_offset_high = offset_high % BITS_IN_GROUP; + int length = offset_high - offset_low + 1; + + /* Case 1: within one group */ + if (offset_high / BITS_IN_GROUP == offset_low / BITS_IN_GROUP) { + PART_ALIGNED(info) = 1; + + PART_LMASK1(info) = + ~(mask_right[rel_offset_low] ^ + mask_right[rel_offset_high + 1]); + PART_RMASK(info) = + mask_right[rel_offset_high - rel_offset_low + 1]; + PART_NGROUPS(info) = 0; + PART_SHIFT(info) = rel_offset_low; + if (rel_offset_high == BITS_IN_GROUP - 1) + PART_NEXT(info) = 1; /* next avail group in concat */ + else + PART_NEXT(info) = 0; /* still room in this group */ + } else { + PART_NGROUPS(info) = bits_to_groups(length); + PART_ALIGNED(info) = rel_offset_high >= rel_offset_low; + PART_RMASK(info) = + mask_right[rel_offset_high - rel_offset_low + 1]; + PART_LMASK1(info) = mask_right[rel_offset_low]; + if (!PART_ALIGNED(info)) + PART_LMASK2(info) = ~mask_right[rel_offset_high + 1]; + else + PART_LMASK2(info) = + ~(mask_right[rel_offset_low] ^ + mask_right[rel_offset_high + 1]); + PART_SHIFT(info) = rel_offset_low; + PART_NEXT(info) = bits_to_groups(length + rel_offset_low + 1); + } + return info; +} + +/* Evaluate LSB or MSB of DECL or part-select reference. Must scan + expression tree (see fixup_nbits) and generate code. Then evaluate + expression checking for legal range limits. */ + +nbits_t get_range(tree node, char *ident) +{ + tree *expr_code; + nbits_t index; + + push_inst(); /* Push the code obstack since we're prob in the middle of something */ + expr_code = pass3_expr(node); + /* + * allow things to continue even if errors exist + */ +// if( max_label == 0 ) { +// return 0; +// } + if (TREE_NBITS(node) > MAX_BITS_IN_NUMBER) + error("Range expression must be within 32 bits", NULL_CHAR, + NULL_CHAR); + if (!R_alloc(max_label, stack_size)) + fatal("Not enough memory to evaluate range expression of %s", + IDENTIFIER_POINTER(DECL_NAME(node))); + index = eval_range(expr_code, ident); + pop_inst(); + return index; +} + +/* Evaluate 32-bit constant */ + +Group *get_const(tree node, nbits_t * nbits_ptr) +{ + tree *expr_code; + Group *val; + + push_inst(); /* Push the code obstack since we're prob in the middle of something */ + expr_code = pass3_expr(node); + if (!R_alloc(max_label, stack_size)) + fatal("Not enough memory to evaluate constant expression", + NULL_CHAR); + val = eval_(expr_code, nbits_ptr); +// if (TREE_NBITS (node) > MAX_BITS_IN_NUMBER) +// error ("Constant expression must be within 32 bits", NULL_CHAR, NULL_CHAR); + pop_inst(); + return val; +} + +/* Evaluate 32-bit scaled delay */ + +Bit get_delay(tree node) +{ + tree *expr_code; + Group *val; + nbits_t nbits_ptr; + + push_inst(); /* Push the code obstack since we're prob in the middle of something */ + expr_code = timescale_scale(node); + if (!R_alloc(max_label, stack_size)) + fatal("Not enough memory to evaluate constant expression", + NULL_CHAR); + val = eval_(expr_code, &nbits_ptr); +// if (TREE_NBITS (node) > MAX_BITS_IN_NUMBER) +// error ("Constant expression must be within 32 bits", NULL_CHAR, NULL_CHAR); +// ASSERT( nbits_ptr <= 32 ); + pop_inst(); + return AVAL(val); +} + +/* resolve the hierarchical name and build a shadow for the decl node */ + +static nbits_t pass3_hierarchy(tree node) +{ + tree t1 = resolve_hierarchical_name(node); + tree t = make_node(SHADOW_REF); + + REF_NAME(t) = node; + TREE_CHAIN(t) = t1; + TREE_NBITS(t) = TREE_NBITS(t1); + HIERARCHICAL_ATTR(t) = 1; + INSERT_PTR(t); + maybe_build_marker(t1); /* Marker to original decl */ + return TREE_NBITS(t); +} + +static nbits_t fixup_reference(tree node) +{ + enum tree_code code = TREE_CODE(node); + nbits_t msb, lsb, msb_decl, lsb_decl; + nbits_t nbits, nbits1, nbits_decl, prev_nbits; + Group *val; + tree t; + + switch (code) { + case BIT_REF: + BIT_EXPR_CODE(node) = pass3_expr_intrude(BIT_EXPR(node), 1); + TREE_LABEL(node) = TREE_LABEL(BIT_EXPR(node)); + TREE_SUB_LABEL(node) = TREE_SUB_LABEL(BIT_EXPR(node)); + if (TREE_NBITS(*BIT_EXPR_CODE(node)) > MAX_BITS_IN_NUMBER) + error("Bit-select index expression must be within 32 bits", + NULL_CHAR, NULL_CHAR); + +/* If this is a hierarchical reference, then there was no way to + determine if this was a bit reference or an array reference. + Once we know, make sure the reference is set correctly. Since + bit and array references look identical, then all that need to + be dome is to set the code correctly so that eval() will + do the right thing. */ + + if (HIERARCHICAL_ATTR(node)) { + BIT_REF_DECL(node) = + resolve_hierarchical_name(BIT_REF_NAME(node)); + if (TREE_CODE(BIT_REF_DECL(node)) == ARRAY_DECL) + TREE_SET_CODE(node, ARRAY_REF); + } + maybe_build_marker(BIT_REF_DECL(node)); + if (TREE_CODE(node) == ARRAY_REF) + TREE_NBITS(node) = TREE_NBITS(BIT_REF_DECL(node)); + else + TREE_NBITS(node) = 1; + break; + + case ARRAY_REF: + ARRAY_EXPR_CODE(node) = pass3_expr_intrude(ARRAY_EXPR(node), 1); + if (TREE_NBITS(*ARRAY_EXPR_CODE(node)) > MAX_BITS_IN_NUMBER) + error("Array index expression must be within 32 bits", + NULL_CHAR, NULL_CHAR); + + maybe_build_marker(ARRAY_REF_DECL(node)); + TREE_NBITS(node) = TREE_NBITS(ARRAY_REF_DECL(node)); + break; + + case CONCAT_REP_REF: + val = get_const(CONCAT_EXPR(node), &nbits); + if (!BVAL(val)) + CONCAT_COUNT(node) = AVAL(val); + else + CONCAT_COUNT(node) = 0; /* X or Z in expression */ + if (nbits > MAX_BITS_IN_NUMBER) + warning + ("Repeat count expression is larger than 32 bits; will be truncated", + NULL, NULL); + + case CONCAT_REF: + nbits = prev_nbits = 0; +// push_inst (); + +/* TREE_PURPOSE (t) is the member expression. TREE_VALUE (t) points + to another tree_list node. TREE_PURPOSE of this 2nd list node is + the expression code; TREE_VALUE of the 2nd list node points to a + part_info structure. + */ + + for (t = CONCAT_LIST(node); t; t = TREE_CHAIN(t)) { + tree tmp_tree; + + TREE_VALUE(t) = make_node(TREE_LIST); + + TREE_PURPOSE(TREE_VALUE(t)) = + (tree) pass3_expr_intrude(TREE_PURPOSE(t), 1); + TREE_LABEL(node) = + max(TREE_LABEL(node), TREE_LABEL(TREE_PURPOSE(t))); + TREE_SUB_LABEL(node) = + max(TREE_SUB_LABEL(node), TREE_SUB_LABEL(TREE_PURPOSE(t))); + +/* To get the right NBITS, use TREE_NBITS from the original expression + if it is not a hierarchical reference; get TREE_NBITS from the + dereferenced expression code if it is a hierarchical reference. + */ + + tmp_tree = + H_(*(tree *) TREE_PURPOSE(TREE_VALUE(t)), TREE_PURPOSE(t)); + nbits1 = TREE_NBITS(tmp_tree); + +/* lval case shifts over previous concat entry; rval case shifts + from absolute location */ + + TREE_VALUE(TREE_VALUE(t)) = + (tree) cook_part_ref(nbits + nbits1 - 1, nbits, 1); + + /* nbits is the total number of bits in the concat ref */ + nbits += nbits1; + if (bits_to_groups(nbits) > bits_to_groups(nbits1)) + prev_nbits = nbits % BITS_IN_GROUP; + else + prev_nbits = nbits1; + } + TREE_LABEL(node) += 1; + TREE_SUB_LABEL(node) += 1; + CONCAT_NBITS(node) = nbits; + if (code == CONCAT_REF) + TREE_NBITS(node) = nbits; + else + TREE_NBITS(node) = nbits * CONCAT_COUNT(node); + break; + + case PART_REF: + if (HIERARCHICAL_ATTR(node)) { + PART_DECL(node) = resolve_hierarchical_name(PART_NAME(node)); + if (PART_DECL(node) == error_mark_node) { + TREE_NBITS(node) = 1; + break; + } + } + +/* If the decl that node is pointing to is a redeclared port, move the pointer + to the newer decl */ +/* + + if ((PORT_OUTPUT_ATTR (PART_DECL (node)) || + PORT_INPUT_ATTR (PART_DECL (node))) + && DECL_THREAD (PART_DECL (node))) + PART_DECL (node) = DECL_THREAD (PART_DECL (node)); + */ + PART_MSB(node) = msb = + get_range(PART_MSB_(node), + IDENTIFIER_POINTER(DECL_NAME(PART_DECL(node)))); + PART_LSB(node) = lsb = + get_range(PART_LSB_(node), + IDENTIFIER_POINTER(DECL_NAME(PART_DECL(node)))); + + nbits = msb - lsb; + if (ABS(nbits) + 1 > MAX_BITS) + error("Part-select for '%s' encompases too many bits", + IDENT(DECL_NAME(PART_DECL(node))), NULL_CHAR); + msb_decl = MSB(PART_DECL(node)); + lsb_decl = LSB(PART_DECL(node)); + nbits_decl = msb_decl - lsb_decl; + if (nbits < 0) { + if (nbits_decl > 0) + error("MSB and LSB of '%s' are reversed", + IDENT(DECL_NAME(PART_DECL(node))), NULL_CHAR); + else if (msb < msb_decl || lsb > lsb_decl) + error + ("Part-select is outside limits set by declaration of '%s'", + IDENT(DECL_NAME(PART_DECL(node))), NULL_CHAR); + } else { + if (nbits_decl < 0) + error("MSB and LSB of '%s' are reversed", + IDENT(DECL_NAME(PART_DECL(node))), NULL_CHAR); + else if (msb > msb_decl || lsb < lsb_decl) + error + ("Part-select is outside limits set by declaration of '%s'", + IDENT(DECL_NAME(PART_DECL(node))), NULL_CHAR); + } + PART_STORAGE(node) = DECL_STORAGE(PART_DECL(node)) + + (ABS(lsb - lsb_decl)) / BITS_IN_GROUP; + PART_INFO(node) = + cook_part_ref(ABS(msb - lsb_decl), ABS(lsb - lsb_decl), 0); + TREE_NBITS(node) = ABS(nbits) + 1; + maybe_build_marker(PART_DECL(node)); + break; + + case FUNCTION_REF: + if (HIERARCHICAL_ATTR(node)) + t = search_scope(FUNC_REF_NAME(node), 0); + else +// t = lookdown_scope (FUNC_REF_NAME (node), current_pass3_module); + t = lookdown_scope(FUNC_REF_NAME(node), + module_of(current_scope)); + if (!t) { + error("Function '%s' not defined", FUNC_REF_NAME(node), + NULL_CHAR); + break; + } + FUNC_REF_INASSIGN(node) = NULL_TREE; + FUNC_REF_FUNC(node) = t; + FUNC_REF_CONTEXT(node) = current_scope; + if (FUNC_REF_ARGS(node)) { + pass3_args(FUNC_REF_ARGS(node), FUNC_REF_NAME(node), + &FUNC_REF_INASSIGN(node), (tree *) NULL, + BLOCK_PORTS(t), 1); + } + TREE_NBITS(node) = TREE_NBITS(FUNCT_DECL(t)); + TREE_REAL_ATTR(node) = TREE_REAL_ATTR(FUNCT_DECL(t)); + TREE_INTEGER_ATTR(node) = TREE_INTEGER_ATTR(FUNCT_DECL(t)); + break; + + case SYSFUNCTION_REF: + { + p_tfcell p_tf; + enum sysfunction_type sysfunction = + lookup_sysfunction(FUNC_REF_NAME(node), &p_tf); + if (sysfunction == -1) { + if (lookup_systask(FUNC_REF_NAME(node), &p_tf) != -1) + error + ("'%s' is a system task; it cannot be called as a function", + FUNC_REF_NAME(node), NULL_CHAR); + else + error("Unknown system function '%s'", + FUNC_REF_NAME(node), NULL_CHAR); + TREE_NBITS(node) = 32; + break; + } + FUNC_REF_CONTEXT(node) = current_scope; + SET_FUNC_REF_SYSTYPE(node, sysfunction); + FUNC_REF_USERTF(node) = p_tf; + init_sysfunction(node); + } + break; + + } /* switch */ + return TREE_NBITS(node); +} + +/* Convert op1 to real if necessary */ + +int pass3_early_conversion(tree * op1_ptr, tree op2) +{ + tree op1 = *op1_ptr; + + /* if op1 is not real but op2 is, insert a real conversion operator */ + if (!TREE_REAL_ATTR(op1) && TREE_REAL_ATTR(op2)) { + *op1_ptr = build_unary_op(REAL_CONV_EXPR, op1); + TREE_REAL_ATTR(*op1_ptr) = 1; + TREE_INTEGER_ATTR(*op1_ptr) = 0; + TREE_NBITS(*op1_ptr) = 32; + return 1; + } + return 0; +} + +/* Convert op1 to integer if necessary */ + +int pass3_early_both_conversion(tree * op1_ptr, tree op2) +{ + tree op1 = *op1_ptr; + + /* if op1 is real, but op2 is not, convert op1 to integer */ + if (TREE_REAL_ATTR(op1) && !TREE_REAL_ATTR(op2)) { + *op1_ptr = build_unary_op(INT_CONV_EXPR, op1); + TREE_REAL_ATTR(*op1_ptr) = 0; + TREE_INTEGER_ATTR(*op1_ptr) = 1; + TREE_NBITS(*op1_ptr) = 1; + return 1; + } else + return pass3_early_conversion(op1_ptr, op2); +} + + +/* After it is already too late, add an integer->real conversion block */ + +int pass3_late_conversion(tree * op1_ptr, tree op2, int code_offset) +{ + tree *p, *p_end; + + if (pass3_early_conversion(op1_ptr, op2)) { + INSERT_PTR(NULL_TREE); /* Make room for one more pointer */ + + /* Start at current end, shift all instruction pointers down one + until we are at the place where the conversion instruction needs + to be inserted */ + p = (tree *) obstack_next_free(&inst_obstack); + p_end = + (tree *) ((char *) obstack_base(&inst_obstack) + code_offset); + while (--p > p_end) + *p = *(p - 1); + *p = *op1_ptr; /* Insert newly-created conversion block */ + return 1; + } + return 0; +} + +/* Fixup_nbits performs several tasks: + 1) sets TREE_NBITS for each node with is the expression length of the + result of the operation. It make sure that the Verilog rules for + context-dependent expression length are followed. If two operands + of an operator ar of different lengths, adjust_nbits will be called + to enlarge the smaller subexpression. Adjusting does not go below + conditional and reduction operators since their lengths are not context- + dependent. + 2) As the expression tree is walked, a list is created that points to + all of the nodes in the expression in postfix order. This list will + later be used to execute/evaluate the expression at runtime. + 3) As part-references are found, the expressions for their msbs and lsbs + are evaluated and tested for consistancy (same direction as the declared + var, etc.). This is done by recursively calling fixup_nbits. +*/ + +nbits_t fixup_nbits(tree node) +{ + nbits_t nbits_left, nbits_right, nbits; + enum tree_code code = TREE_CODE(node); + char *tree_type_ptr = tree_code_type[code]; + tree *finish; + int finish_size, op0_offset; + + + switch (*tree_type_ptr) { + case 'x': + if (HIERARCHICAL_ATTR(node)) + return pass3_hierarchy(node); + else if (node == error_mark_node) + return 1; +#if VDEBUG != 0 + else if (vdebug) { + if (code == ERROR_MARK) { + printf_error_V("Pass3 over error_mark"); + return 0; + } + } +#endif + else + fatal("Internal: Attempt to reparse identifier", NULL_CHAR); + break; + + case ('r'): + INSERT_PTR(node); + TREE_NBITS(node) = fixup_reference(node); + return TREE_NBITS(node); + + case ('d'): /* decl nodes will have had TREE_NBITS set */ + maybe_build_marker(node); +// if (!INITIALIZED_ATTR (node)) +// fatal ("Uninitialized decl: %s\n", IDENTIFIER_POINTER (DECL_NAME (node))); + if (in_lval) + if (code == NET_VECTOR_DECL || code == NET_SCALAR_DECL) + NET_ASSIGNMENT(node) = global_cont_assign; + + case ('c'): /* as will constant nodes */ + INSERT_PTR(node); + return TREE_NBITS(node); + + case ('e'): + switch (*++tree_type_ptr) { + + /* The condition operator (?:) is treated as a binary op for the + purpose of allocating stack space since in the worst case + (condition = X), both true and false expressions need to be + evaluated. But, make sure there is enough stack space for + the condition expression */ + + case ('3'): + COND_EXPR_CODE(node) = pass3_expr_intrude(COND_EXPR(node), 0); + + push_inst(); + nbits_left = fixup_nbits(COND_TRUE(node)); + INSERT_PTR(NULL_TREE); /* Make room for possible conversion */ + op0_offset = obstack_object_size(&inst_obstack); + INSERT_PTR(NULL_TREE); + finish_size = obstack_object_size(&inst_obstack); + finish = (tree *) obstack_finish(&inst_obstack); + COND_TRUE_CODE(node) = + (tree *) obstack_copy(&alt_inst_obstack, finish, + finish_size); + + if (pass3_early_conversion(&COND_FALSE(node), COND_TRUE(node))) + TREE_REAL_ATTR(node) = 1; + nbits_right = fixup_nbits(COND_FALSE(node)); + INSERT_PTR(NULL_TREE); + finish_size = obstack_object_size(&inst_obstack); + finish = (tree *) obstack_finish(&inst_obstack); + COND_FALSE_CODE(node) = + (tree *) obstack_copy(&alt_inst_obstack, finish, + finish_size); + pop_inst(); /* go back to current expression */ + + /* go back and add real conversion if necessary */ + if (pass3_early_conversion(&COND_TRUE(node), COND_FALSE(node))) { + tree *p = COND_TRUE_CODE(node) + op0_offset; + *p = COND_TRUE(node); + nbits_left = 32; + TREE_REAL_ATTR(node) = 1; + } + + if (nbits_left < nbits_right) { + adjust_nbits(nbits_right, &COND_TRUE(node), + COND_TRUE_CODE(node)); + nbits = nbits_right; + } else if (nbits_left > nbits_right) { + adjust_nbits(nbits_left, &COND_FALSE(node), + COND_FALSE_CODE(node)); + nbits = nbits_left; + } else + nbits = nbits_left; /* nbits_left equals nbits_right */ + + INSERT_PTR(node); + TREE_NBITS(node) = (*tree_type_ptr == '1') ? 1 : nbits_left; + break; + +/* For a binary context-dependent operations, return the largest of the + left and right operands and make the smaller side the same size. */ + + case ('x'): + case ('1'): + nbits_left = fixup_nbits(TREE_OPERAND(node, 0)); + op0_offset = obstack_object_size(&inst_obstack); + + /* && and || are conditional, the operator terminate once the + truth can be deterimined. Thus, the right op is recuresively + evaluated at runtime only if necessary; a seperate set of + instructions is generated for this. */ + + if (code == TRUTH_ANDIF_EXPR || code == TRUTH_ORIF_EXPR) { + push_inst(); + if (pass3_early_conversion(&TREE_OPERAND(node, 1), + TREE_OPERAND(node, 0))) { + TREE_REAL_ATTR(node) = 1; + TREE_INTEGER_ATTR(node) = 0; + } + nbits_right = fixup_nbits(TREE_OPERAND(node, 1)); + INSERT_PTR(NULL_TREE); + finish_size = obstack_object_size(&inst_obstack); + finish = (tree *) obstack_finish(&inst_obstack); + TRUTH_EXPR_CODE(node) = + (tree *) obstack_copy(&alt_inst_obstack, finish, + finish_size); + pop_inst(); + if (pass3_late_conversion(&TREE_OPERAND(node, 1), + TREE_OPERAND(node, 0), + op0_offset)) { + TREE_REAL_ATTR(node) = 1; + TREE_INTEGER_ATTR(node) = 0; + } + } else { + if (pass3_early_conversion(&TREE_OPERAND(node, 1), + TREE_OPERAND(node, 0))) { + TREE_REAL_ATTR(node) = 1; + TREE_INTEGER_ATTR(node) = 0; + } + nbits_right = fixup_nbits(TREE_OPERAND(node, 1)); + if (pass3_late_conversion(&TREE_OPERAND(node, 0), + TREE_OPERAND(node, 1), + op0_offset)) { + TREE_REAL_ATTR(node) = 1; + TREE_INTEGER_ATTR(node) = 0; + } + + if (TREE_REAL_ATTR(TREE_OPERAND(node, 0)) + && TREE_REAL_ATTR(TREE_OPERAND(node, 1))) { + TREE_REAL_ATTR(node) = 1; + TREE_INTEGER_ATTR(node) = 0; + } + } + + if (nbits_left < nbits_right) { + adjust_nbits(nbits_right, &TREE_OPERAND(node, 0), + (tree *) obstack_base(&inst_obstack)); + nbits = nbits_right; + } else if (nbits_left > nbits_right) { + if (code == TRUTH_ANDIF_EXPR || code == TRUTH_ORIF_EXPR) + adjust_nbits(nbits_left, &TREE_OPERAND(node, 1), + TRUTH_EXPR_CODE(node)); + else + adjust_nbits(nbits_left, &TREE_OPERAND(node, 1), + (tree *) obstack_base(&inst_obstack)); + nbits = nbits_left; + } else + nbits = nbits_left; /* nbits_left equals nbits_right */ + + /* reserve enough stack space for the subexpression */ + if (*tree_type_ptr == '1') + reserve_stack_space(TREE_SUB_LABEL(node), nbits, + (nbits_t) 1); + + INSERT_PTR(node); + TREE_NBITS(node) = nbits = (*tree_type_ptr == '1') ? 1 : nbits; + + break; + + case 'r': + if (code == POSEDGE_EXPR || code == NEGEDGE_EXPR) + TREE_OPERAND(node, 1) = (tree) X; + reserve_stack_space(TREE_SUB_LABEL(node), + fixup_nbits(TREE_OPERAND(node, 0)), + (nbits_t) 1); + if (TREE_REAL_ATTR(TREE_OPERAND(node, 0))) + error("Reduction not allowed on real numbers", NULL, NULL); + INSERT_PTR(node); + TREE_NBITS(node) = nbits = 1; + break; + + case 's': /* shift operations */ + TREE_NBITS(node) = nbits = fixup_nbits(SHIFT_OPERAND(node)); + SHIFT_NBITS(node) = ensure_stack_space(SHIFT_COUNT(node)); + if (SHIFT_NBITS(node) > MAX_BITS_IN_NUMBER) + error("Shift count must be within 32 bits", NULL_CHAR, + NULL_CHAR); + + if (TREE_REAL_ATTR(SHIFT_OPERAND(node)) + || TREE_REAL_ATTR(SHIFT_COUNT(node))) + error("Shift not allowed on real numbers", NULL, NULL); + + INSERT_PTR(node); + break; + + case 'u': + TREE_NBITS(node) = nbits = fixup_nbits(TREE_OPERAND(node, 0)); + TREE_REAL_ATTR(node) = TREE_REAL_ATTR(TREE_OPERAND(node, 0)); + TREE_INTEGER_ATTR(node) = + TREE_INTEGER_ATTR(TREE_OPERAND(node, 0)); + INSERT_PTR(node); + break; + + case 'c': + nbits = fixup_nbits(TREE_OPERAND(node, 0)); + + if (code == REAL_CONV_EXPR) { + /* It is possible that the operand is already real (function or + hierarchical name). If so, make it a nop. */ + if (TREE_REAL_ATTR(TREE_OPERAND(node, 0))) { + TREE_SET_CODE(node, NOP_EXPR); + TREE_NBITS(node) = nbits; + break; + } + TREE_NBITS(node) = nbits = 32; + } else + /* When converting to integer, let adjust_nbits fill in the correct + size */ + TREE_NBITS(node) = nbits = 1; + INSERT_PTR(node); + break; + + default: + TREE_NBITS(node) = nbits = fixup_nbits(TREE_OPERAND(node, 0)); + TREE_REAL_ATTR(node) = TREE_REAL_ATTR(TREE_OPERAND(node, 0)); + TREE_INTEGER_ATTR(node) = + TREE_INTEGER_ATTR(TREE_OPERAND(node, 0)); + INSERT_PTR(node); + break; + } /* switch 'e' */ + } + return nbits; +} + +/* Process lval; discard any generated code; set lval flag so the proper + concat code can be generated. */ + +void pass3_lval(tree * node) +{ + push_inst(); + /* Get here if lval is a hierarchical reference */ + if (TREE_CODE(*node) == IDENTIFIER_NODE && HIERARCHICAL_ATTR(*node)) { + tree t, t1; + + t = make_node(SHADOW_LVAL_REF); + t1 = resolve_hierarchical_name(*node); + REF_NAME(t) = *node; + TREE_CHAIN(t) = t1; + TREE_NBITS(t) = fixup_nbits(t1); + HIERARCHICAL_ATTR(t) = 1; + *node = t; + } else { + in_lval = 1; + pass3_node(*node); + in_lval = 0; + } + pop_inst(); +} + +/* This routine starts the expression re-parsing and returns a pointer + to the postfix sequence pointers. It also performs final type conversion + if requested and if necessary. (This used to be pass3_expra until + conversion was added. Now there is a wrapper for pass3_expr that calls + this). +*/ + +tree *pass3_expr_convert(tree node, enum convert_to convert_to) +{ + nbits_t nbits; + char *type = tree_code_type[TREE_CODE(node)]; + + /* initialize stack size for this expression */ + have_for_pad = 0; + have_for_push = stack_extension; + + nbits = fixup_nbits(node); + if (convert_to != eNONE) { + if (convert_to == eREAL && !TREE_REAL_ATTR(node)) { + node = build_unary_op(REAL_CONV_EXPR, node); + TREE_NBITS(node) = 32; + INSERT_PTR(node); + } + + else if (convert_to == eINT && TREE_REAL_ATTR(node)) { + node = build_unary_op(INT_CONV_EXPR, node); + TREE_NBITS(node) = 1; /* adjust_bits will change this */ + INSERT_PTR(node); + } + } + adjust_nbits(nbits, &node, (tree *) obstack_base(&inst_obstack)); + + if (*type != 'e' || (*++type != '1' && *type != 'r')) + reserve_stack_space(TREE_SUB_LABEL(node), nbits, nbits); + + /* If this is the largest stack size seen so far, make it so */ + if (have_for_pad + have_for_push > stack_size) { + stack_size = have_for_pad + have_for_push; + stack_lineno = lineno; /* save linenumber and filename of largest expr */ + stack_filename = input_filename; + } + stack_size = max(stack_size, have_for_pad + have_for_push); +#if VDEGUB != 0 + if (stack_size > 50) + fatal("Too big stack size at line %lu\n", (char *) lineno); +#endif + + /* save largest label encountered thus far */ + if (TREE_LABEL(node) > max_label) + max_label = TREE_LABEL(node); + + INSERT_PTR(NULL_TREE); /* zero for stop */ + + /* Save this in case the insts for this expression need to be + copied to alt_inst_obstack (i.e. for bit_refs) */ + last_inst_length = obstack_object_size(&inst_obstack); + return (tree *) obstack_finish(&inst_obstack); +} + +/* This is a wrapper for pass3_expr_convert. pass3_expr was changed to + pass3_expr_convert when the conversion aspect was added. Existing + calls to pass3_expr did not have to be changed to add arguments. +*/ + +tree *pass3_expr(tree node) +{ + return pass3_expr_convert(node, eNONE); +} + +/* This is like pass3_expr_convert, except convert op1 to be the same + type as op2. op2 is assumed to have already been through pass3_expr + so its type is known. +*/ + +tree *pass3_expr_match_convert(tree op1, tree op2) +{ + if (TREE_REAL_ATTR(op2)) + return (pass3_expr_convert(op1, eREAL)); + else + return (pass3_expr_convert(op1, eINT)); +} + +/* This is like pass3_expr, except that it is used to generate instructions + for an expression while processing another expression. For example, + bit-select and array index expressions need to be evaluated during the + of the expression the variable are used in. Also, conditionals (?:), + &&/||, concatentations, and function arguments call this. Note that + there are two flavors that have a subtile diffenece. One case will + restore the current expression's stack size at the end of the re-parse -- + this is the most common usage; the other does not -- this is used for + (?:) expressions where the size of evaluating the result needs to + be factored into the rest of the expression. */ + +tree *pass3_expr_intrude(tree node, int restore_stack) +{ + tree *finish, *tmp; + int finish_size; + + push_inst(); /* start another sequence of insts */ + if (restore_stack) + ensure_stack_space(node); + else + fixup_nbits(node); + INSERT_PTR(NULL_TREE); /* generate stop */ + finish_size = obstack_object_size(&inst_obstack); + finish = (tree *) obstack_finish(&inst_obstack); + + obstack_grow(&alt_inst_obstack, finish, finish_size); + tmp = (tree *) obstack_finish(&alt_inst_obstack); + pop_inst(); + return tmp; +} + +/* While expanding expression, create markers for each reference */ + +tree *pass3_expr_marker(tree node, Marker ** marker_ptr, + enum marker_flags flags, tree info, + tree convert_to) +{ + tree *expr; + Marker *marker; + + marker_info.in_event = 1; + marker_info.first = NULL; + marker_info.last = NULL; + marker_info.flags = flags; + marker_info.delay = NULL; + + if (TREE_CODE(node) != EVENT_DECL) { + if (convert_to) + expr = pass3_expr_match_convert(node, convert_to); + else + expr = pass3_expr(node); + } else { + marker_info.flags = + (enum marker_flags) (~M_TEST & marker_info.flags); + BuildMarker(node, &marker_info); + expr = NULL; + } + + marker_info.in_event = 0; + + /* now that expression is re-parsed, scan all of the generated markers + and add the pointer to the expression and make the list of markers + circular */ + if (marker_info.first) { /* NULL if constant expression */ + for (marker = marker_info.first; marker->link; + marker = marker->link) { + if (info == NULL) + marker->expr.expr = expr; /* In most cases, put expr code in marker */ + else + marker->expr.tree = info; /* But, somtimes use it for monitor, gates */ + } + if (info == NULL) + marker->expr.expr = expr; + else + marker->expr.tree = info; + + /* if other markers there, append these news ones */ + if (*marker_ptr) { + for (marker = *marker_ptr; marker->link != *marker_ptr; marker = marker->link); /* gets to end of list */ + marker->link = marker_info.first; /* append */ + marker_info.last->link = *marker_ptr; /* make circular */ + } else { + marker->link = marker_info.first; /* Make list circular */ + *marker_ptr = marker_info.first; + } + } + + return expr; +} + + +void pass3_delay(tree node) +{ + unsigned int i; + + if (!node) + return; + + for (i = 0; i < TREE_LABEL(node); i++) { + if (TREE_OPERAND(node, i)) { +// TREE_OPERAND (node, i + 3) = (tree) pass3_expr (TREE_OPERAND (node, i)); + TREE_OPERAND(node, i + 3) = + (tree) timescale_scale(TREE_OPERAND(node, i)); + } + } +} + +/* There are several cases for assignments. The simple case is a simple + a = b assignment. The second case is a continuous assignment. The + third case is a continuous assignment with a delay. The fourth case + is a procedural assignment with an event (not yet implemented). + Return true if the lval and the rval are the same size before adjusting + (needed for port discrepancy warning) */ + + +int pass3_assignment(tree node) +{ + nbits_t nbits; + enum tree_code code = TREE_CODE(node); + +/* First, process lval */ + /* If this is a cont assignment w/delay, then there is two assignments + with a temp var in the middle. Note that net assignments w/delay + only have one assignment. Allocate storage for it and make code for + its rval + in the second assignment (pointed to by TREE_CHAIN) */ + + if (code == ASSIGN_CONT_STMT) { + pass3_delay(STMT_ASSIGN_DELAY(node)); + if (TREE_CHAIN(node) + && TREE_CODE(TREE_CHAIN(node)) == ASSIGN_CONT_STMT) { + pass3_lval(&STMT_ASSIGN_LVAL(TREE_CHAIN(node))); + TREE_NBITS(STMT_ASSIGN_LVAL(node)) = + TREE_NBITS(STMT_ASSIGN_LVAL(TREE_CHAIN(node))); + pass3_decl(STMT_ASSIGN_LVAL(node)); + STMT_ASSIGN_RVAL_CODE(TREE_CHAIN(node)) = + pass3_expr(STMT_ASSIGN_LVAL(node)); + marker_info.current_scb = BuildSCB(TREE_CHAIN(node), NOLIST); + marker_info.last = NULL; + marker_info.first = NULL; + marker_info.delay = STMT_ASSIGN_DELAY(node); + marker_info.flags = (enum marker_flags) (M_FIXED + M_CONT); + BuildMarker(STMT_ASSIGN_LVAL(node), &marker_info); + } + } + + global_cont_assign = node; + pass3_lval(&STMT_ASSIGN_LVAL(node)); + nbits = TREE_NBITS(STMT_ASSIGN_LVAL(node)); + +// pass3_early_both_conversion (&STMT_ASSIGN_RVAL (node), STMT_ASSIGN_LVAL (node)); + if (code == ASSIGN_STMT + || code == ASSIGN_EVENT_STMT || code == ASSIGN_DELAY_STMT + || code == ASSIGN_NONBLK_EVENT_STMT + || code == ASSIGN_NONBLK_DELAY_STMT) + STMT_ASSIGN_RVAL_CODE(node) = + pass3_expr_match_convert(STMT_ASSIGN_RVAL(node), + STMT_ASSIGN_LVAL(node)); + +/* if continuous assignment, generate markers with the rval. */ + + else if (code == ASSIGN_CONT_STMT) { + STMT_ASSIGN_RVAL_CODE(node) = + pass3_expr_marker(STMT_ASSIGN_RVAL(node), + &STMT_ASSIGN_EVENT_LIST(node), + (enum marker_flags) (M_FIXED + M_CONT), node, + STMT_ASSIGN_LVAL(node)); + } + + else if (code == ASSIGN_PROC_STMT || FORCE_STMT) { /* Procedural cont assign */ + /* if lval is hierarchical, use the actual decl */ + tree lval = the_lval(STMT_ASSIGN_LVAL(node)); + + STMT_ASSIGN_RVAL_CODE(node) = + pass3_expr_marker(STMT_ASSIGN_RVAL(node), + &STMT_ASSIGN_EVENT_LIST(node), + M_CONT, node, lval); + + /* Generate a marker for the lval, thread it in at the beginning + and make the last market point to the new first marker. + Note that all the markers point back to the continuous assignment. + */ + + { + Marker *last = marker_info.last; + + marker_info.first = marker_info.last = NULL; + /* if lval is a shadow, then it was a hierarchical reference; + point to the original node. */ + BuildMarker(lval, &marker_info); + marker_info.first->expr.tree = node; + marker_info.first->link = STMT_ASSIGN_EVENT_LIST(node); + STMT_ASSIGN_EVENT_LIST(node) = marker_info.first; + if (last) + last->link = marker_info.first; + else + STMT_ASSIGN_EVENT_LIST(node)->link = + STMT_ASSIGN_EVENT_LIST(node); + } + } +// if (nbits == TREE_NBITS (STMT_ASSIGN_RVAL (node))) + if (nbits == TREE_NBITS(*STMT_ASSIGN_RVAL_CODE(node))) + return 1; + else +// if (TREE_CHAIN (node) && TREE_CODE (TREE_CHAIN (node)) == ASSIGN_CONT_STMT) +// adjust_nbits (nbits, &STMT_ASSIGN_RVAL (TREE_CHAIN (node))); +// else + + adjust_nbits(nbits, &STMT_ASSIGN_RVAL(node), + STMT_ASSIGN_RVAL_CODE(node)); + return 0; +} + +/* arg is a tree_list of arguments; port is a chain of decl_nodes */ + +void +pass3_args(tree arg_list, char *name, tree * inassign, tree * outassign, + tree port_list, int stack_args) +{ + tree arg, arg_tmp, port, *assign; + + port = port_list; + for (arg_tmp = arg_list; arg_tmp; + arg_tmp = TREE_CHAIN(arg_tmp), port = TREE_CHAIN(port)) { + arg = TREE_PURPOSE(arg_tmp); + if (!port) { + error + ("More TASK/FUNCTION arguments than in TASK/FUNCTION '%s'", + name, NULL_CHAR); + return; + } + if (PORT_INPUT_ATTR(port)) { + if (stack_args) + assign = pass3_expr_intrude(arg, 1); + else + assign = pass3_expr(arg); + + /* DECL_THREAD is the redefined version of the port */ + if (DECL_THREAD(port)) + adjust_nbits(TREE_NBITS(DECL_THREAD(port)), &arg, assign); + else + adjust_nbits(TREE_NBITS(port), &arg, assign); + *inassign = tree_cons((tree) assign, NULL_TREE, *inassign); + } + if (PORT_OUTPUT_ATTR(port)) { + if (!is_proc_lval(arg)) + error("Illegal expression connected to output port", + NULL_CHAR, NULL_CHAR); + else + pass3_lval(&arg); + *outassign = tree_cons(arg, NULL_TREE, *outassign); + } + } + if (port) { + error("Fewer TASK/FUNCTION arguments than in TASK/FUNCTION '%s'", + name, NULL_CHAR); + return; + } + if (inassign) + *inassign = nreverse(*inassign); + if (outassign) + *outassign = nreverse(*outassign); +} + +void pass3_delay_stmt(tree node) +{ + tree tmp_tree; + + STMT_DELAY_EXPR_CODE(node) = timescale_scale(STMT_DELAY_EXPR(node)); + tmp_tree = H_(*STMT_DELAY_EXPR_CODE(node), STMT_DELAY_EXPR(node)); +} + +void pass3_event_stmt(tree node) +{ + tree t; + + STMT_EVENT_MARKER(node) = NULL; + for (t = STMT_EVENT_EXPR_LIST(node); t; t = TREE_CHAIN(t)) + TREE_EXPR_CODE(t) = pass3_expr_marker(TREE_EXPR(t), + &STMT_EVENT_MARKER(node), + M_TEST, NULL_TREE, + NULL_TREE); +} + +/* Reparse a chain of statements, adding a pointer on the last statement's + TREE_CHAIN */ + +tree dump; /* initialized in pass3_tree to point to dump instruction */ +tree _return; /* initialized in pass3_node to point to return instruction */ +tree dummy_return; /* initialized in pass3_tree for disable stmt support */ +SCB *finish_scb; + + +void pass3_node(tree node) +{ + pass3_node_tail(node, NULL_TREE); +} + +void pass3_node_tail(tree node, tree label) +{ + enum tree_code code = TREE_CODE(node); + tree t, t1, alt_chain, prev, tmp_tree; + extern void print_common(); + +#if VDEBUG != 0 + if (vdebug) + printf("pass3: Node: %s @ %p, chain %p\n", + tree_code_name[code], node, TREE_CHAIN(node)); +#endif +//HEAPTEST ("Heap corrupted (in beginning of pass3)"); + + switch (*tree_code_type[code]) { + case ('b'): + +/* Scan Module */ + + if (code == MODULE_BLOCK && !UDP_ATTR(node)) { +// current_scope = node; + set_scope(node); +// current_pass3_module = node; + + + +/* Scan continuous assignments */ + + for (t = MODULE_ASSIGNMENTS(node); t; t = TREE_CHAIN(t)) { + lineno = STMT_SOURCE_LINE(TREE_PURPOSE(t)); + input_filename = STMT_SOURCE_FILE(TREE_PURPOSE(t)); + pass3_assignment(TREE_PURPOSE(t)); + } + +/* insert specify paths */ + + insert_specify_paths(node); + +/* now actually process specify paths */ + + for (t = BLOCK_BODY(node); t; t = TREE_CHAIN(t)) + if (TREE_CODE(t) == GATE_INSTANCE) { + pass3_specify(t); + } + +/* Scan timing checks */ + + for (t = MODULE_SPECDEFS(node); t; t = TREE_CHAIN(t)) { + if (TREE_CODE(t) == CHECK_SPEC) { + pass3_timing_check(t, node); + } + } + +/* Scan INITIAL and ALWAYS blocks ignoring gates */ + + for (t = BLOCK_BODY(node); t; t = TREE_CHAIN(t)) + if (TREE_CODE(t) == INSTANCE_NODE && !UDP_ATTR(t)) + pass3_node(INSTANCE_BLOCK(t)); + else if (TREE_CODE(t) == GATE_INSTANCE) + pass3_gate(t); + else if (TREE_CODE(t) != INSTANCE_NODE) + pass3_node(TREE_PURPOSE(t)); + +/* Scan functions and tasks within current module */ + + for (t = BLOCK_DOWN(node); t; t = TREE_CHAIN(t)) + if (TREE_CODE(t) != MODULE_BLOCK) + pass3_node(t); + + current_scope = pop_scope(); + } + /* MODULE */ + else if (code == TASK_BLOCK || code == FUNCTION_BLOCK) { +// current_scope = node; + set_scope(node); + + TASK_OUTPUT(node) = TASK_INPUT(node) = NULL; + for (t = BLOCK_PORTS(node); t; t = TREE_CHAIN(t)) { + /* Input is an lvalue */ + if (PORT_INPUT_ATTR(t)) { + push_inst(); + if (PORT_REDEFINED_ATTR(t)) /* re-decl'ed port */ + TASK_INPUT(node) = + tree_cons(DECL_THREAD(t), NULL_TREE, + TASK_INPUT(node)); + else + TASK_INPUT(node) = + tree_cons(t, NULL_TREE, TASK_INPUT(node)); + pop_inst(); + } + /* Output is an rvalue */ + if (PORT_OUTPUT_ATTR(t)) { + if (PORT_REDEFINED_ATTR(t)) /* re-decl'ed port */ + TASK_OUTPUT(node) = + tree_cons((tree) pass3_expr(DECL_THREAD(t)), + NULL_TREE, TASK_OUTPUT(node)); + else + TASK_OUTPUT(node) = + tree_cons((tree) pass3_expr(t), NULL_TREE, + TASK_OUTPUT(node)); + } + } + if (TREE_CODE(node) != TASK_BLOCK + && TREE_CODE(node) != FUNCTION_BLOCK) + fatal("oops", NULL); + if (!node) + fatal("oops!", NULL); + TASK_OUTPUT(node) = nreverse(TASK_OUTPUT(node)); + TASK_INPUT(node) = nreverse(TASK_INPUT(node)); + + /* Scan body of task or function. */ + if (code == FUNCTION_BLOCK) { + int max_label_save; + ngroups_t stack_size_save; + +// FUNCT_DECL_CODE (node) = pass3_expr (FUNCT_DECL (node)); + TREE_NBITS(node) = TREE_NBITS(FUNCT_DECL(node)); + + stack_size_save = stack_size; + max_label_save = max_label; + max_label = 0; + stack_size = 0; + pass3_node_tail(BLOCK_BODY(node), node); + TREE_LABEL(node) = max_label + 2 + 4; + FUNCT_AREA(node) = stack_size + 1 + 10; + stack_size = stack_size_save; + max_label = max_label_save; + } else /* TASK_BLOCK */ + pass3_node_tail(BLOCK_BODY(node), node); + current_scope = pop_scope(); + } + /* TASK, FUNCTION */ + else if (code == NAMED_BLOCK) + break; + else + goto default1; + break; + + case ('e'): + case ('r'): + case ('d'): + fixup_nbits(node); + break; + + case ('s'): + for (; node; node = TREE_CHAIN(node)) { + code = TREE_CODE(node); + prev = node; + lineno = STMT_SOURCE_LINE(node); + input_filename = STMT_SOURCE_FILE(node); + alt_chain = TREE_CHAIN(node); + /* this makes sure that statments that use STMT_BODY and whose + statements then merge with TREE_CHAIN will correctly propigate + the label if the statement is last in a list (else, the end + of STMT_BODY will have NULL instead of the correct label) */ + if (!alt_chain) + alt_chain = label; + + switch (code) { + case (ALWAYS_BLOCK): + marker_info.current_scb = BuildSCB(node, READY_LIST); + pass3_node_tail(STMT_BODY(node), node); + break; + + case (INITIAL_BLOCK): + marker_info.current_scb = BuildSCB(node, READY_LIST); + pass3_node_tail(STMT_BODY(node), dump); + break; + + case (BEGIN_STMT): + pass3_node_tail(STMT_BODY(node), alt_chain); + break; + + case BEGIN_NAMED_STMT: + set_scope(STMT_BLOCK(node)); + pass3_node_tail(STMT_BODY(node), alt_chain); + current_scope = pop_scope(); + break; + + /* Unlike the BEGIN stmt, the body of FORK first has the accompanying + JOIN stmt and then a TREE_LIST(!) of statements. Make each + stamtement point to the JOIN and them move the JOIN to the end of + FORK. Note that the statements on the body might be BEGIN/END + or nested FORK/JOIN. */ + case FORK_NAMED_STMT: + set_scope(STMT_BLOCK(node)); + case FORK_STMT: + t1 = STMT_BODY(node); /* Points to JOIN */ + for (t = TREE_CHAIN(t1); t; t = TREE_CHAIN(t)) + pass3_node_tail(TREE_PURPOSE(t), t1); + + /* first stmt in chain is always the JOIN stmt. */ + STMT_BODY(node) = TREE_CHAIN(t1); /* take JOIN out of list */ + TREE_CHAIN(t1) = TREE_CHAIN(node); /* Thread JOIN in after FORK */ + TREE_CHAIN(node) = t1; + STMT_JOIN_FORK(t1) = node; /* Make join point to fork */ + if (code == FORK_NAMED_STMT) + current_scope = pop_scope(); + break; + + case END_STMT: + case END_NAMED_STMT: + case JOIN_STMT: + case JOIN_NAMED_STMT: +// case DUMP_STMT: /* doesn't get here often: initial #t stmt; */ + break; + + case ASSIGN_STMT: + case ASSIGN_PROC_STMT: + case FORCE_STMT: + pass3_assignment(node); + break; + + case ASSIGN_DELAY_STMT: + case ASSIGN_EVENT_STMT: + pass3_assignment(node); + STMT_ASSIGN_TMP(node) = make_node(TMP_DECL); + TREE_CHAIN(STMT_ASSIGN_TMP(node)) = STMT_ASSIGN_LVAL(node); + pass3_decl(STMT_ASSIGN_TMP(node)); + STMT_ASSIGN_TMPCODE(node) = + pass3_expr(STMT_ASSIGN_TMP(node)); + if (code == ASSIGN_DELAY_STMT) + pass3_delay_stmt(STMT_ASSIGN_DELAY(node)); + else + pass3_event_stmt(STMT_ASSIGN_EVENT(node)); + break; + + case ASSIGN_NONBLK_DELAY_STMT: + case ASSIGN_NONBLK_EVENT_STMT: + pass3_assignment(node); + if (code == ASSIGN_NONBLK_DELAY_STMT) + pass3_delay_stmt(STMT_ASSIGN_DELAY(node)); + else { + SCB *save_scb = marker_info.current_scb; + + STMT_ASSIGN_TMP(node) = make_node(TMP_DECL); + TREE_CHAIN(STMT_ASSIGN_TMP(node)) = + STMT_ASSIGN_LVAL(node); + pass3_decl(STMT_ASSIGN_TMP(node)); + STMT_ASSIGN_TMPCODE(node) = + pass3_expr(STMT_ASSIGN_TMP(node)); + + marker_info.current_scb = BuildSCB(node, NOLIST); + pass3_event_stmt(STMT_ASSIGN_EVENT(node)); + STMT_ASSIGN_SCB(node) = marker_info.current_scb; + marker_info.current_scb = save_scb; + } + break; + + case (IF_STMT): +//HEAPTEST ("Heap corrupted (in pass3 -- if)"); + STMT_COND_CODE(node) = pass3_expr(STMT_COND(node)); + pass3_node_tail(STMT_THEN(node), alt_chain); + if (STMT_ELSE(node)) { + pass3_node_tail(STMT_ELSE(node), alt_chain); + } + break; + + case (WHILE_STMT): + STMT_WHILE_COND_CODE(node) = + pass3_expr(STMT_WHILE_COND(node)); + pass3_node_tail(STMT_BODY(node), node); + break; + + case (REPEAT_INIT_STMT): + /* stmt_body points to repeat_init node */ + STMT_REPEAT_EXPR_CODE(node) = + pass3_expr(STMT_REPEAT_EXPR(node)); + tmp_tree = + H_(*STMT_REPEAT_EXPR_CODE(node), + STMT_REPEAT_EXPR(node)); + if (TREE_NBITS(tmp_tree) > MAX_BITS_IN_NUMBER) + error("REPEAT expression must be within 32 bits", + NULL_CHAR, NULL_CHAR); + STMT_REPEAT_VAR(node) = + (Group *) xmalloc(sizeof(Group) * + (1 + + bits_to_groups(TREE_NBITS + (tmp_tree)))); + + pass3_node_tail(STMT_BODY(node), alt_chain); + break; + + case REPEAT_STMT: + /* inherit values from REPEAT_INIT */ + STMT_REPEAT_EXPR_CODE(node) = + STMT_REPEAT_EXPR_CODE(STMT_BODY(node)); + STMT_REPEAT_VAR(node) = STMT_REPEAT_VAR(STMT_BODY(node)); + STMT_BODY(node) = STMT_BODY(STMT_BODY(node)); + break; + + case (FOR_STMT): + pass3_node(STMT_FOR_ASSIGN(node)); + if (!STMT_SURROGATE_ATTR(node)) { /* just do this once */ + STMT_FOR_COND_CODE(node) = + pass3_expr(STMT_FOR_COND(node)); + pass3_node_tail(STMT_BODY(node), alt_chain); + } + /* If this is the iteration part, TREE_CHAIN is pointing to + the initial part. Make TREE_CHAIN point to the same place + as the initial part is pointing. */ + else { + STMT_FOR_COND_CODE(node) = + STMT_FOR_COND_CODE(TREE_CHAIN(node)); + STMT_BODY(node) = STMT_BODY(TREE_CHAIN(node)); + TREE_CHAIN(node) = NULL_TREE; /* Let tail fix this */ + } + break; + + case FOREVER_STMT: + pass3_node_tail(STMT_BODY(node), node); + break; + + case CASE_STMT: + case CASEX_STMT: + case CASEZ_STMT: + STMT_CASE_EXPR_CODE(node) = + pass3_expr(STMT_CASE_EXPR(node)); + { + tree tmp_tree = + H_(*STMT_CASE_EXPR_CODE(node), + STMT_CASE_EXPR(node)); + nbits_t nbits = TREE_NBITS(tmp_tree); + ngroups_t ngroups = 1 + bits_to_groups(nbits); + + stack_extension += ngroups; + for (t = STMT_CASE_LIST(node); t; t = TREE_CHAIN(t)) { + /* evaluate the expressions */ + for (t1 = TREE_PURPOSE(t); t1; t1 = TREE_CHAIN(t1)) { + TREE_EXPR_CODE(t1) = pass3_expr(TREE_EXPR(t1)); +/********** THIS BREAKS IF EXPR IS LARGER THAN CASE_EXPR!!! */ + adjust_nbits(nbits, &TREE_EXPR(t1), + TREE_EXPR_CODE(t1)); + } + pass3_node_tail(TREE_VALUE(t), alt_chain); + } + if (STMT_CASE_DEFAULT(node)) + pass3_node_tail(STMT_CASE_DEFAULT(node), + alt_chain); + + stack_extension -= ngroups; + } + break; + + case DELAY_STMT: + pass3_delay_stmt(node); + pass3_node_tail(STMT_BODY(node), alt_chain); + break; + + case (WAIT_STMT): + STMT_WAIT_MARKER(node) = NULL; + STMT_WAIT_EXPR_CODE(node) = + pass3_expr_marker(STMT_WAIT_EXPR(node), + &STMT_WAIT_MARKER(node), M_PLAIN, + NULL_TREE, NULL_TREE); + pass3_node_tail(STMT_BODY(node), alt_chain); + break; + + case EVENT_STMT: + pass3_event_stmt(node); + pass3_node_tail(STMT_BODY(node), alt_chain); + break; + + case ARROW_STMT: + if (HIERARCHICAL_ATTR(STMT_ARROW_NAME(node))) + STMT_ARROW_EVENT(node) = double_check_named_event + (resolve_hierarchical_name(STMT_ARROW_NAME(node))); + else + STMT_ARROW_EVENT(node) = STMT_ARROW_NAME(node); + break; + + case (DISABLE_BLOCK_STMT): + case (DISABLE_TASK_STMT): + pass3_node(STMT_BODY(node)); + break; + + case DISABLE_STMT: + if (HIERARCHICAL_ATTR(node)) + t = search_scope(IDENTIFIER_POINTER + (STMT_DISABLE_NAME(node)), 0); + else { + t = double_check_block(STMT_DISABLE_NAME(node)); + } + if (!t) { + error("Undefined scope '%s' cannot be disabled", + IDENT(STMT_DISABLE_NAME(node)), NULL_CHAR); + break; + } + STMT_DISABLE_SCOPE(node) = t; + break; + + case (DEASSIGN_STMT): +// pass3_node (STMT_BODY (node)); +// break; + + case (RELEASE_STMT): +// pass3_node (STMT_BODY (node)); + pass3_lval(&STMT_BODY(node)); + break; + + case TASK_STMT: + if (HIERARCHICAL_ATTR(node)) + t = search_scope(STMT_TASK_NAME(node), 0); + else + t = lookdown_scope(STMT_TASK_NAME(node), + module_of(current_scope)); + if (!t || TREE_CODE(t) != TASK_BLOCK) { + error("Task '%s' not defined", STMT_TASK_NAME(node), + NULL_CHAR); + break; + } + STMT_TASK_INASSIGN(node) = NULL_TREE; + STMT_TASK_OUTASSIGN(node) = NULL_TREE; + STMT_TASK_TASK(node) = t; + if (STMT_TASK_ARGS(node)) + pass3_args(STMT_TASK_ARGS(node), STMT_TASK_NAME(node), + &STMT_TASK_INASSIGN(node), + &STMT_TASK_OUTASSIGN(node), BLOCK_PORTS(t), + 0); + break; + + case SYSTASK_STMT: + { + p_tfcell p_tf; + enum systask_type systask; + systask = lookup_systask(STMT_TASK_NAME(node), &p_tf); + if (systask == -1) { + if (lookup_sysfunction(STMT_TASK_NAME(node), &p_tf) + != -1) + error + ("'%s' is a function; it cannot be called as a task", + STMT_TASK_NAME(node), NULL_CHAR); + else + error("Unknown system task '%s'", + STMT_TASK_NAME(node), NULL_CHAR); + break; + } + SET_STMT_SYSTASK_TYPE(node, systask); + STMT_SYSTASK_USERTF(node) = p_tf; + init_systask(node); + } + break; + + case NULL_STMT: + break; + + case LOOPBACK_STMT: + /* if points to CASE, then chance to point to what CASE pointes to */ + if (TREE_CODE(STMT_BODY(node)) == CASE_STMT || + TREE_CODE(STMT_BODY(node)) == CASEX_STMT || + TREE_CODE(STMT_BODY(node)) == CASEZ_STMT) + STMT_BODY(node) = TREE_CHAIN(STMT_BODY(node)); + break; + + default: +#if VDEBUG != 0 + printf_error_V("unimplemented PASS3 instruction:"); + print_common(node); +#else + fatal + ("Internal error: Attempt to reparse unknown structure", + NULL_CHAR); +#endif + } /* switch */ + +//HEAPTEST ("Heap corrupted (in pass3 -- end of stmts)"); + + } /* for (do next statement) */ + TREE_CHAIN(prev) = label; + break; + + case ('x'): +#if VDEBUG != 0 + if (code == ERROR_MARK) + printf_error_V("line: %lu error_mark\n", lineno); + else { + printf_error_V("Unimplemented PASS3 x\n"); + print_common(node); + } +#else + fatal + ("Fatal error: unexpected structure encountered during Phase III", + NULL_CHAR); +#endif + + break; + + default: + default1: +#if VDEBUG != 0 + print_common(node); + fatal("Fatal: Unexpected structure encountered during Phase III", + NULL_CHAR); +#else + printf("Printing something here...\n"); + printf("node = %p\n", node); + fatal + ("Fatal: ...Unexpected structure encountered during Phase III", + NULL_CHAR); +#endif + } +} + +void connect_instances(tree module) +{ + tree t, arg; + int port_count, even; + + current_scope = module; /* Instance args could be hierarchical names */ + for (t = MODULE_INSTANCES(module); t; t = TREE_CHAIN(t)) + if (TREE_CODE(t) == INSTANCE_NODE && !UDP_ATTR(t)) { + port_count = 1; + for (arg = INSTANCE_PORTS(t); arg; + arg = TREE_CHAIN(arg), port_count++) + if (TREE_3RD(arg)) { + even = 1; + /* input port */ + if (TREE_PURPOSE(TREE_3RD(arg))) + even = + pass3_assignment(TREE_PURPOSE(TREE_3RD(arg))); + /* output port */ + if (TREE_VALUE(TREE_3RD(arg))) + even &= + pass3_assignment(TREE_VALUE(TREE_3RD(arg))); + if (!even) { + lineno = STMT_SOURCE_LINE(t); + input_filename = STMT_SOURCE_FILE(t); + warning("Port sizes don't match in port #%d", + (char *) port_count, NULL_CHAR); + } + } + /* Recursively connect modules below this one */ + connect_instances(INSTANCE_BLOCK(t)); + } +} + +void pass3_tree(tree node) +{ + tree t; + + tree finish_stmt = build_stmt(FINISH_STMT, NULL); + + /* Dummy finish SCB is used so that there will be a command-line + prompt after the last stmt if the last stmt causes a call to + dispatch. */ + current_scope = NULL; + finish_scb = BuildSCB(finish_stmt, NOLIST); + dump = build_stmt(DUMP_STMT, NULL); + dummy_return = build_stmt(DUMMY_RETURN_STMT, NULL); + + for (t = node; t; t = TREE_CHAIN(t)) + pass3_node(t); + + for (t = node; t; t = TREE_CHAIN(t)) + connect_instances(t); + +} + +void pass3_interactive(tree node) +{ + pass3_node_tail(node, dump); +} + +/******************************************************************** + * + * init_pass3 + * - initialize global and static variables for pass3.c + * + ******************************************************************** + */ + +void init_pass3() +{ + in_lval = 0; /* set if processing lvalue (used in concat) */ + in_connect_ports = 0; /* set if building port connections */ + stack_size = 0; + stack_extension = 0; + max_label = 0; + debug_ = 0; + debug_tree = NULL_TREE; + memset(&inst_obstack, 0, sizeof(inst_obstack)); + memset(&alt_inst_obstack, 0, sizeof(alt_inst_obstack)); + memset(&marker_info, 0, sizeof(marker_info)); + last_inst_length = 0; + have_for_push = 0; + have_for_pad = 0; + stack_lineno = 0; + stack_filename = NULL; + debug_node = NULL_TREE; + global_cont_assign = NULL_TREE; + memset(&inst_stack, 0, sizeof(inst_stack)); + memset(&stack_size_stack, 0, sizeof(stack_size_stack)); + dump = NULL_TREE; + _return = NULL_TREE; + dummy_return = NULL_TREE; + memset(&finish_scb, 0, sizeof(finish_scb)); +} diff --git a/src/pass3.h b/src/pass3.h new file mode 100644 index 0000000..70b3613 --- /dev/null +++ b/src/pass3.h @@ -0,0 +1,85 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* PASS3.H - Prototypes for pass3.c */ + +#ifndef PASS3_H +#define PASS3_H + +/* Used to tell pass3_expr to make a conversion, if necessary */ + +enum convert_to { eNONE, eREAL, eINT }; + +extern tree dump; // common dump block + + +// public exports + +tree *pass3_expr(tree); +tree *pass3_expr_convert(tree, enum convert_to); +void push_inst(void); +void pop_inst(void); +void push_stack_size(void); +void pop_stack_size(void); +void stack_allocate(void); +tree module_of(tree scope); +tree lookdown_scope(char *ident, tree scope); +void maybe_build_marker(tree decl); +nbits_t get_range(tree node, char *ident); +Group *get_const(tree node, nbits_t *); +Bit get_delay(tree); +int pass3_early_conversion(tree * op1_ptr, tree op2); +int pass3_early_both_conversion(tree * op1_ptr, tree op2); +int pass3_late_conversion(tree * op1_ptr, tree op2, int code_offset); +nbits_t fixup_nbits(tree node); +void pass3_lval(tree * node); +tree *pass3_expr(tree node); +tree *pass3_expr_intrude(tree node, int restore_stack); +tree *pass3_expr_marker(tree node, Marker ** marker_ptr, + enum marker_flags flags, tree info, tree); +void pass3_delay(tree node); +int pass3_assignment(tree node); +void pass3_args(tree arg_list, char *name, tree * inassign, + tree * outassign, tree port_list, int stack_args); +void pass3_delay_stmt(tree node); +void pass3_event_stmt(tree node); +void pass3_node(tree node); +void pass3_node_tail(tree node, tree label); +void connect_instances(tree module); +void pass3_tree(tree node); +void pass3_interactive(tree node); +void init_pass3(void); +void adjust_nbits(nbits_t nbits, tree * tree_addr, tree * code_base); + +// private declarations +#ifdef PASS3_C + +static nbits_t ensure_stack_space(tree node); +static void reserve_stack_space(int number, nbits_t nbits_push, + nbits_t nbits_pad); +static nbits_t fixup_reference(tree node); +static struct part_info *cook_part_ref(nbits_t offset_high, + nbits_t offset_low, int concat); +static nbits_t pass3_hierarchy(tree); + +tree *pass3_expr_match_convert(tree op1, tree op2); + +#endif // PASS3_C + +#endif // PASS3_H diff --git a/src/pli.cc b/src/pli.cc new file mode 100644 index 0000000..11c23d7 --- /dev/null +++ b/src/pli.cc @@ -0,0 +1,7445 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* PLI.C - Programming language interface support routines */ + +#define PLI_C + +#include +#include +#include +#include +#include +#include "vtypes.h" +#include "tree.h" +#include "glue.h" +#include "decl.h" +#include "veriuser.h" +#include "acc_user.h" +#include "pli.h" +#include "schedule.h" +#include "io.h" +#include "print.h" +#include "strobe.h" +#include "systask.h" +#include "scope.h" +#include "pass3.h" +#include "parse.h" +#include "runtime.h" +#include "eval.h" +#include "veriwell.h" +#include "store.h" +#include "specify.h" +#include "timescal.h" +#include "pass2.h" +#include "flags.h" +#include "multdiv.h" +#include "nsched.h" +#include "lex.h" + + +#ifndef min +#define min(a,b) ((a)<(b)?(a):(b)) +#endif // min + +#ifndef max +#define max(a,b) ((a)>(b)?(a):(b)) +#endif // max + +#define avg(a,b) (((a)+(b))/2) + +typedef enum { eMapMax, eMapMin, eMapLatest } MapToMipd_t; +typedef enum + { eDelayAverage, eDelayMax, eDelayMin, eDelayFromUser } ToHiZDelay_t; +struct pli_global_info { + char *stringbuf; /* beginning of buffer */ + char *p; /* current pointer */ + char *lastCopy; /* pointer to begin of last copied string */ + int stringbuf_size; /* size of buffer */ + handle scope; /* scope for acc_handle_object */ + char *text; /* used for buffer for tf_text */ + char *nextText; /* points to next useable location */ + int textSize; /* size of text buffer */ + struct { + int accDefaultAttr0_; + char accDevelopmentVersion_[256]; + int accDisplayWarnings_; + int accDisplayErrors_; + int accEnableArgsModpath_; + int accEnableArgsTchk_; + int accEnableArgsSetScope_; + MapToMipd_t accMapToMipd_; + int accMinTypMaxDelays_; + int accPathDelayCount_; + char accPathDelimStr_[256]; + ToHiZDelay_t accToHiZDelay_; + } config; +} pli_info = { +NULL, NULL, 0}; + +int acc_error_flag = FALSE; +tree delayFreeList = NULL; +int lcbCount = 0; + + +/************************************************************************ + * support routines * +/***********************************************************************/ + +/************************************************************************ + * acc_initialize + *********************************************************************** * + */ + +int acc_initialize(void) +{ + acc_error_flag = FALSE; + pli_info.config.accDefaultAttr0_ = FALSE; + pli_info.config.accDisplayWarnings_ = 0; + pli_info.config.accDisplayErrors_ = 1; + pli_info.config.accEnableArgsModpath_ = FALSE; + pli_info.config.accEnableArgsTchk_ = FALSE; + pli_info.config.accEnableArgsSetScope_ = FALSE; + pli_info.config.accMapToMipd_ = eMapMax; + pli_info.config.accMinTypMaxDelays_ = FALSE; + pli_info.config.accPathDelayCount_ = 6; + pli_info.scope = (handle) current_scope; + strcpy(pli_info.config.accPathDelimStr_, "$"); + pli_info.config.accToHiZDelay_ = eDelayFromUser; + + if (pli_info.text == NULL) { + pli_info.textSize = 1024; + pli_info.text = (char *) xmalloc(pli_info.textSize); + if (pli_info.text == NULL) { + tf_error("Out of Memory"); + return (0); + } + } + if (pli_info.stringbuf == NULL) { + pli_info.stringbuf_size = 4096; + pli_info.stringbuf = + (char *) xmalloc(pli_info.stringbuf_size); + if (pli_info.stringbuf == NULL) { + tf_error("Out of Memory"); + return (0); + } + } + pli_info.p = pli_info.stringbuf; + pli_info.lastCopy = NULL; + pli_info.nextText = pli_info.text; + return (1); +} + +/************************************************************************ + init_pli + - initialize pli module +************************************************************************* +*/ + +void init_pli(void) +{ + strcpy(pli_info.config.accDevelopmentVersion_, "IEEE 1364 PLI 1.0"); + pli_info.p = NULL; + pli_info.lastCopy = NULL; + pli_info.stringbuf = NULL; + pli_info.stringbuf_size = 0; + pli_info.text = NULL; + pli_info.nextText = NULL; + pli_info.textSize = 0; + + delayFreeList = NULL; + + lcbCount = 0; + + acc_initialize(); +} + +/************************************************************************ + fetch_storage + Get the pointer to the storage of a decl, etc +************************************************************************* +*/ + +static Group *fetch_storage(tree object) +{ + return DECL_STORAGE(object); +} + +/********************************************************************* + nth_arg + - Generic routine for returning nth argument +**********************************************************************/ + +static tree nth_arg(int n, tree instance) +{ + tree arg; + + arg = nth_parameter(n, instance); + if (arg != NULL) { + return (TREE_PURPOSE(arg)); + } else { + return (NULL); + } +} + +/********************************************************************* + nth_parameter + - Generic routine for returning nth parameter +**********************************************************************/ + +static tree nth_parameter(int n, tree instance) +{ + int i; + int N = tf_inump((char *) instance); + tree arg; + + if (n < 1 || n > N) + return NULL; + + if (TREE_CODE(instance) == SYSTASK_STMT) + arg = STMT_TASK_ARGS(instance); + else if (TREE_CODE(instance) == SYSFUNCTION_REF) + arg = FUNC_REF_ARGS(instance); + + for (i = 1; i < n; i++, arg = TREE_CHAIN(arg)); + + return arg; +} + +/********************************************************************* + pli_write_string + - Write a string into the pli buffer, + return a pointer to the buffer. + if the buffer is full, sent a warning (if enabled) + and reset the buffer +**********************************************************************/ + + +static char *pli_write_string(char *string) +{ + int size; + char *p; + + if (string == NULL) { + pli_info.lastCopy = NULL; + return (pli_info.p); + } + + size = strlen(string); + if (pli_info.p + size + 1 > + pli_info.stringbuf + pli_info.stringbuf_size) { + tf_warning("String pointer being reset"); + pli_info.p = pli_info.stringbuf; + } + + strcpy(pli_info.p, string); + p = pli_info.p; + pli_info.p += size + 1; + + pli_info.lastCopy = p; + return p; +} + +/********************************************************************* + pli_append_string + - Append a string to the string currently in the pli buffer, + return a pointer to the start of the whole string. + if the buffer is full, sent a warning (if enabled) + and reset the buffer +**********************************************************************/ + + +static char *pli_append_string(char *string) +{ + int size; + char *p; + + + if (string == NULL) { + return pli_info.lastCopy; + } + + size = strlen(string); + if (pli_info.p + size + 1 > + pli_info.stringbuf + pli_info.stringbuf_size) { + tf_warning("String pointer being reset"); + pli_info.p = pli_info.stringbuf; + if (pli_info.lastCopy != NULL) { + strcpy(pli_info.stringbuf, pli_info.lastCopy); + pli_info.lastCopy = pli_info.stringbuf; + pli_info.p = + pli_info.stringbuf + strlen(pli_info.lastCopy) + 1; + } + } + + if (pli_info.lastCopy != NULL) { + pli_info.p--; + } else { + pli_info.lastCopy = pli_info.p; + } + + strcpy(pli_info.p, string); + p = pli_info.p; + pli_info.p += size + 1; + + return pli_info.lastCopy; +} + +/************************************************************************ + * acc_configure * +/***********************************************************************/ + +int acc_configure(int what, char *string) +{ + acc_error_flag = FALSE; + + switch (what) { + case accDefaultAttr0: + if (!strcmp(string, "true")) { + pli_info.config.accDefaultAttr0_ = TRUE; + } else if (!strcmp(string, "false")) { + pli_info.config.accDefaultAttr0_ = FALSE; + } else { + acc_error_flag = TRUE; + } + break; + + case accDevelopmentVersion: + if (strcmp(pli_info.config.accDevelopmentVersion_, string)) { + acc_error_flag = TRUE; + } + break; + + case accDisplayErrors: + if (!strcmp(string, "true")) { + pli_info.config.accDisplayErrors_ = TRUE; + } else if (!strcmp(string, "false")) { + pli_info.config.accDisplayErrors_ = FALSE; + } else { + acc_error_flag = TRUE; + } + break; + + case accDisplayWarnings: + if (!strcmp(string, "true")) { + pli_info.config.accDisplayWarnings_ = TRUE; + } else if (!strcmp(string, "false")) { + pli_info.config.accDisplayWarnings_ = FALSE; + } else { + acc_error_flag = TRUE; + } + break; + + case accEnableArgs: + if (!strcmp(string, "acc_handle_modpath")) { + pli_info.config.accEnableArgsModpath_ = TRUE; + } else if (!strcmp(string, "no_acc_handle_modpath")) { + pli_info.config.accEnableArgsModpath_ = FALSE; + } else if (!strcmp(string, "acc_handle_tchk")) { + pli_info.config.accEnableArgsTchk_ = TRUE; + } else if (!strcmp(string, "no_acc_handle_tchk")) { + pli_info.config.accEnableArgsTchk_ = FALSE; + } else if (!strcmp(string, "acc_set_scope")) { + pli_info.config.accEnableArgsSetScope_ = TRUE; + } else if (!strcmp(string, "no_acc_set_scope")) { + pli_info.config.accEnableArgsSetScope_ = FALSE; + } else { + acc_error_flag = TRUE; + } + break; + + case accMapToMipd: + if (!strcmp(string, "max")) { + pli_info.config.accMapToMipd_ = eMapMax; + } else if (!strcmp(string, "min")) { + pli_info.config.accMapToMipd_ = eMapMin; + } else if (!strcmp(string, "latest")) { + pli_info.config.accMapToMipd_ = eMapLatest; + } else { + acc_error_flag = TRUE; + } + break; + + case accMinTypMaxDelays: + if (!strcmp(string, "true")) { + pli_info.config.accMinTypMaxDelays_ = TRUE; + } else if (!strcmp(string, "false")) { + pli_info.config.accMinTypMaxDelays_ = FALSE; + } else { + acc_error_flag = TRUE; + } + break; + + case accPathDelayCount: + if (strlen(string) != 1) { + acc_error_flag = TRUE; + break; + } + switch (string[0]) { + case '1': + case '2': + case '3': + case '6': + pli_info.config.accPathDelayCount_ = atoi(string); + break; + default: + acc_error_flag = TRUE; + break; + } + break; + + case accPathDelimStr: + strncpy(pli_info.config.accPathDelimStr_, string, + sizeof(pli_info.config.accPathDelimStr_) - 1); + break; + + + case accToHiZDelay: + if (!strcmp(string, "average")) { + pli_info.config.accToHiZDelay_ = eDelayAverage; + } else if (!strcmp(string, "max")) { + pli_info.config.accToHiZDelay_ = eDelayMax; + } else if (!strcmp(string, "min")) { + pli_info.config.accToHiZDelay_ = eDelayMin; + } else if (!strcmp(string, "from_user")) { + pli_info.config.accToHiZDelay_ = eDelayFromUser; + } else { + acc_error_flag = TRUE; + } + break; + + default: + acc_error_flag = TRUE; + tf_error("Unknown configuration parameter %d in acc_configure", + what); + return (0); + } + + if (acc_error_flag) { + tf_error("Unknown configuration value \"%s\" in acc_configure", + string); + } + + return (acc_error_flag); +} + +/************************************************************************ + * acc_close * +/***********************************************************************/ + +void acc_close() +{ + acc_error_flag = FALSE; + acc_initialize(); + pli_info.scope = null; +} + +/************************************************************************ + acc_collect +************************************************************************* +*/ + +handle *acc_collect(handle(*nextFunction) (handle, handle), + handle reference, int *numberOfObjects) +{ + handle object; + handle *list; + int count; + int listLength; + + acc_error_flag = FALSE; + + listLength = 64; + list = (handle *) xmalloc(listLength * sizeof(handle *)); + count = 0; + object = NULL; + while (list != NULL) { + object = (nextFunction) (reference, object); + if (object == NULL) { + break; + } + if (count > listLength) { + listLength += 64; + list = + (handle *) xrealloc((char*)list, + listLength * sizeof(handle *)); + if (list == NULL) { + break; + } + } + list[count] = object; + count++; + + } + + if (list == NULL) { + count = 0; + acc_error_flag = TRUE; + tf_error("Memory allocation failed in acc_collect"); + } + + *numberOfObjects = count; + return (list); +} + +/************************************************************************ + acc_free +************************************************************************* +*/ +void acc_free(handle * list) +{ + acc_error_flag = FALSE; + free(list); +} + +/************************************************************************ + acc_count +************************************************************************* +*/ + +int acc_count(handle(*nextFunction) (handle, handle), handle reference) +{ + handle object; + int count; + + acc_error_flag = FALSE; + + count = 0; + object = NULL; + while (TRUE) { + object = (nextFunction) (reference, object); + if (object == NULL) { + break; + } + count++; + + } + + return (count); +} + +/************************************************************************ + acc_object_in_typelist +************************************************************************* +*/ + +bool acc_object_in_typelist(handle object, int *typeList) +{ + int *ptr; + + acc_error_flag = FALSE; + for (ptr = typeList; *ptr != 0; ptr++) { + if (acc_object_of_type(object, *ptr)) { + return (TRUE); + } + } + return (FALSE); +} + +/************************************************************************ + acc_object_of_type +************************************************************************* +*/ + +bool acc_object_of_type(handle object, int type) +{ + acc_error_flag = FALSE; + + /* check type first */ + + if (acc_fetch_type(object) == type) { + return (TRUE); + } + + /* check full type next */ + + if (acc_fetch_fulltype(object) == type) { + return (TRUE); + } + + /* check propertys next */ + + switch (type) { + case accScalar: + return (is_scalar(object)); + case accVector: + return (is_vector(object)); + case accCollapsedNet: + return (is_collapsed(object)); + case accExpandedVector: + return (is_expanded(object)); + case accUnexpandedVector: + return (!is_expanded(object) && is_vector(object)); + } + + return (FALSE); +} + +/************************************************************************ + is_scalar + returns true if object is scalar +************************************************************************* +*/ + +static int is_scalar(handle object) +{ + int type; + + type = acc_fetch_type(object); + switch (type) { + case accNet: + case accPort: + case accRegister: + return (acc_fetch_size(object) == 1); + } + return (FALSE); +} + +/************************************************************************ + is_vector + returns true if object is vector +************************************************************************* +*/ + +static int is_vector(handle object) +{ + int type; + + type = acc_fetch_type(object); + switch (type) { + case accNet: + case accPort: + case accRegister: + return (acc_fetch_size(object) > 1); + } + return (FALSE); +} + +/************************************************************************ + is_collapsed + returns true if object is collapsed +************************************************************************* +*/ + +static int is_collapsed(handle object) +{ + /* collapsed nets aren't supported */ + return (FALSE); +} + +/************************************************************************ + is_expanded + returns true if object is expanded +************************************************************************* +*/ + +static int is_expanded(handle object) +{ + /* expanded nets aren't supported */ + return (FALSE); +} + +/************************************************************************ + acc_product_type +************************************************************************* +*/ +int acc_product_type(void) +{ + acc_error_flag = FALSE; + return (accSimulator); +} + +/************************************************************************ + acc_product_version +************************************************************************* +*/ +char *acc_product_version(void) +{ + char *ptr; + + acc_error_flag = FALSE; + pli_write_string("VeriWell Simulator Version "); + ptr = pli_append_string(pli_info.config.accDevelopmentVersion_); + return (ptr); +} + +/************************************************************************ + acc_version +************************************************************************* +*/ +char *acc_version(void) +{ + char *ptr; + + acc_error_flag = FALSE; + pli_write_string("Access Routines Version "); + ptr = pli_append_string(pli_info.config.accDevelopmentVersion_); + return (ptr); +} + + +/************************************************************************ + * acc_next_topmod * +/***********************************************************************/ + +handle acc_next_topmod(handle topmod) +{ + acc_error_flag = FALSE; + + if (!topmod) { + return (handle) top_level; + } else { + return (handle) TREE_CHAIN((tree) topmod); + } +} + +/**************************************************************** + + acc_next_child + - return the handle to the next child of the given module + +*****************************************************************/ + +handle acc_next_child(handle module, handle child) +{ + tree t; + + acc_error_flag = FALSE; + + // acts like acc_next_topmod if module handle is NULL + + if (module == NULL) { + return (acc_next_topmod(child)); + } + + if (child == NULL) { + t = BLOCK_DOWN((tree) module); + } else { + t = TREE_CHAIN((tree) child); + } + + // sift through other things on list + + while (t != NULL && TREE_CODE(t) != MODULE_BLOCK) { + t = TREE_CHAIN(t); + } + + return ((handle) t); +} + +/************************************************************************ + * acc_next_cell * +/***********************************************************************/ + +handle acc_next_cell(handle reference, handle cell) +{ + // cells are not currently supported + acc_error_flag = FALSE; + return (NULL); +} + +/************************************************************************ + * acc_next_cell_load * +/***********************************************************************/ + +handle acc_next_cell_load(handle reference, handle load) +{ + // cells are not currently supported + acc_error_flag = FALSE; + return (NULL); +} + +/************************************************************************ + * acc_next_load * +/***********************************************************************/ + +handle acc_next_load(handle reference, handle load) +{ + handle parent; + handle primitive; + handle terminal; + int match; + + acc_error_flag = FALSE; + + match = FALSE; + + parent = acc_handle_parent(reference); + primitive = null; + while (TRUE) { + primitive = acc_next_primitive(parent, primitive); + if (primitive == null) { + break; + } + terminal = null; + while (TRUE) { + terminal = acc_next_terminal(primitive, terminal); + if (terminal == null) { + break; + } + if (acc_fetch_direction(terminal) != accOutput) { + if (load == null || match) { + return (terminal); + } + if (acc_handle_conn(terminal) == load) { + match = TRUE; + } + } + } + } + + + return (NULL); +} + +/************************************************************************ + * acc_next_bit * +/***********************************************************************/ + +handle acc_next_bit(handle reference, handle bit) +{ + // expanded vectors or ports are not currently supported + acc_error_flag = FALSE; + return (NULL); +} + +/**************************************************************** + + acc_next + +*****************************************************************/ +handle acc_next(int *object_type_list, handle reference, handle aObject) +{ + int i; + handle object; + + acc_error_flag = FALSE; + object = aObject; + + do { + if (object == NULL) { + object = acc_next_primitive(reference, object); + if (object == NULL) { + object = acc_next_child(reference, object); + } + if (object == NULL) { + object = (handle) BLOCK_DECL((tree) reference); + while (TRUE) { + if (object == NULL || acc_fetch_type(object) != accNet) { + break; + } + object = (handle) TREE_CHAIN((tree) object); + } + } + if (object == NULL) { + object = acc_next_net(reference, null); + } + } else { + switch (acc_fetch_type(object)) { + case accPrimitive: + object = acc_next_primitive(reference, object); + if (object == NULL) { + object = acc_next_child(reference, object); + } + if (object == NULL) { + object = (handle) BLOCK_DECL((tree) reference); + while (TRUE) { + if (object == NULL + || acc_fetch_type(object) != accNet) { + break; + } + object = (handle) TREE_CHAIN((tree) object); + } + } + if (object == NULL) { + object = acc_next_net(reference, null); + } + break; + case accModule: + object = acc_next_child(reference, object); + if (object == NULL) { + object = (handle) BLOCK_DECL((tree) reference); + while (TRUE) { + if (object == NULL + || acc_fetch_type(object) != accNet) { + break; + } + object = (handle) TREE_CHAIN((tree) object); + } + } + if (object == NULL) { + object = acc_next_net(reference, null); + } + break; + case accNet: + object = acc_next_net(reference, object); + break; + default: + object = (handle) TREE_CHAIN((tree) object); + while (TRUE) { + if (object == NULL || acc_fetch_type(object) != accNet) { + break; + } + object = (handle) TREE_CHAIN((tree) object); + } + if (object == NULL) { + object = acc_next_net(reference, null); + } + } + } + + if (object == NULL) { + return (NULL); + } + + + for (i = 0; object_type_list[i] != 0; i++) { + if (acc_fetch_type(object) == object_type_list[i]) { + return (object); + } + if (acc_fetch_fulltype(object) == object_type_list[i]) { + return (object); + } + } + } + while (object != NULL); + + + return (NULL); +} + +/**************************************************************** + + acc_next_modpath + - retrieve all module paths in given scope + +*****************************************************************/ + +handle acc_next_modpath(handle module, handle path) +{ + tree t; + + acc_error_flag = FALSE; + if (path == NULL) { + t = MODULE_SPECINST((tree) module); + } else { + t = TREE_CHAIN((tree) path); + } + while (t && TREE_CODE(t) != PATH_INSTANCE) { + t = TREE_CHAIN(t); + } + return ((handle) t); +} + +/**************************************************************** + + acc_next_primitive + - retrieve all primitives in given scope + +*****************************************************************/ + +handle acc_next_primitive(handle module, handle gate) +{ + tree t; + + acc_error_flag = FALSE; + if (gate == NULL) { + t = BLOCK_BODY((tree) module); + } else { + t = TREE_CHAIN((tree) gate); + } + while (t && TREE_CODE(t) != GATE_INSTANCE) { + t = TREE_CHAIN(t); + } + return ((handle) t); +} + +/**************************************************************** + + acc_next_tchk + - retrieve all timing checks in given scope + +*****************************************************************/ + +handle acc_next_tchk(handle module, handle check) +{ + tree t; + + acc_error_flag = FALSE; + + if (check == NULL) { + t = MODULE_SPECINST((tree) module); + } else { + t = TREE_CHAIN((tree) check); + } + while (t && TREE_CODE(t) != TIMING_CHECK) { + t = TREE_CHAIN(t); + } + return ((handle) t); +} + +/**************************************************************** + + acc_handle_conn + - return net connected to terminal + +*****************************************************************/ +handle acc_handle_conn(handle terminal) +{ + tree t = (tree) terminal; + tree n; + tree desc; + tree module; + tree instance; + tree out; + tree gate; + tree constraint; + + ASSERT(t != NULL); + ASSERT(TREE_CODE(t) == TREE_LIST); + acc_error_flag = FALSE; + if (terminal == NULL) { + acc_error_flag = TRUE; + tf_error("Illegal object in acc_handle_conn()"); + return null; + } + + if (TREE_CODE(t) == PATH_CONSTRAINT) { + desc = PATH_CONSTRAINT_PATHDESC(t); + instance = PATH_CONSTRAINT_INSTANCE(t); + module = PATH_INSTANCE_MODULE(instance); + for (out = MODULE_SPECINST(module); out; out = TREE_CHAIN(out)) { + if (TREE_CODE(out) != PATH_OUTPUT) { + continue; + } + for (constraint = PATH_OUTPUT_CONSTRAINTS(out); + constraint; constraint = TREE_CHAIN(constraint)) { + if (constraint == t) { + gate = PATH_OUTPUT_GATE(out); + t = GATE_OUTPUT_LIST(gate); + goto done; + } + } + } + } + done: + n = TREE_PURPOSE(t); + if (n != NULL && STMT_SURROGATE_ATTR(n)) { + n = TREE_CHAIN(n); + } + return ((handle) n); +} + +/************************************************************************ + * acc_fetch_size * +/***********************************************************************/ + +int acc_fetch_size(handle object) +{ + tree t = (tree) object; + + acc_error_flag = FALSE; + + if (PORT_REDEFINED_ATTR(t)) { + return (TREE_NBITS(TREE_CHAIN(t))); + } + + return TREE_NBITS(t); +} + +/************************************************************************ + * acc_fetch_range * +/***********************************************************************/ + +int acc_fetch_range(handle object, int *pMsb, int *pLsb) +{ + tree t = (tree) object; + + acc_error_flag = FALSE; + switch (TREE_CODE(t)) { + case NET_VECTOR_DECL: + case REG_VECTOR_DECL: + case PORT_VECTOR_DECL: + case INTEGER_DECL: + *pMsb = MSB(t); + *pLsb = LSB(t); + return TRUE; + case TIME_DECL: + *pMsb = 63; + *pLsb = 0; + break; + case NET_SCALAR_DECL: + case REG_SCALAR_DECL: + case PORT_SCALAR_DECL: + *pMsb = 0; + *pLsb = 0; + break; + default: + acc_error_flag = TRUE; + return FALSE; + } +} + +/**************************************************************** + + acc_handle_parent + - return handle of parent of object + +*****************************************************************/ + +handle acc_handle_parent(handle object) +{ + tree gate; + tree timingCheck; + tree decl; + tree modpathEntity; + + + acc_error_flag = FALSE; + + switch (TREE_CODE((tree) object)) { + case PATH_CONSTRAINT: + return ((handle) PATH_CONSTRAINT_INSTANCE((tree) object)); + case PATH_INSTANCE: + return ((handle) PATH_INSTANCE_MODULE((tree) object)); + case GATE_INSTANCE: + return ((handle) GATE_SCOPE((tree) object)); + case TIMING_CHECK: + return ((handle) TIMING_CHECK_MODULE((tree) object)); + case TREE_LIST: + /* check for primitive terminal */ + gate = GATE_TERMINAL_GATE((tree) object); + if (gate != NULL && TREE_CODE(gate) == GATE_INSTANCE) { + return ((handle) gate); + } + timingCheck = TIMING_TERMINAL_CHECK((tree) object); + if (timingCheck != NULL && TREE_CODE(timingCheck) == TIMING_CHECK) { + return (handle) TIMING_CHECK_MODULE(timingCheck); + } + modpathEntity = MODPATH_INPUT_TERMINAL_PARENT((tree) object); + if (modpathEntity != NULL && + TREE_CODE(modpathEntity) == PATH_CONSTRAINT) { + return (handle) PATH_CONSTRAINT_INSTANCE(modpathEntity); + } + /* check for a port terminal */ + decl = TREE_PURPOSE((tree) object); + if ((TREE_CODE(decl) == NET_SCALAR_DECL || + TREE_CODE(decl) == NET_VECTOR_DECL) && + (PORT_INPUT_ATTR(decl) || PORT_OUTPUT_ATTR(decl))) { + return ((handle) DECL_CONTEXT(decl)); + } + break; + } + + switch (*tree_code_type[TREE_CODE((tree) object)]) { + case 'd': /* decls */ + return ((handle) DECL_CONTEXT((tree) object)); + case 'b': /* blocks */ + return ((handle) BLOCK_UP((tree) object)); + case 's': /* statements */ + return ((handle) STMT_SCOPE((tree) object)); + case 'g': + return ((handle) GATE_SCOPE((tree) object)); + default: + acc_error_flag = TRUE; + return NULL; + } +} + +/**************************************************************** + + acc_next_port + - return the next port of module + +*****************************************************************/ + +handle acc_next_port(handle module, handle port) +{ + + acc_error_flag = FALSE; + + if (port == NULL && acc_fetch_type(module) == accModule) { + return (handle) MODULE_PORT_LIST((tree) module); + } else if (port == NULL) { + return (handle) BLOCK_PORTS((tree) module); + } + + return (handle) TREE_CHAIN((tree) port); +} + +/**************************************************************** + + acc_handle_port + +*****************************************************************/ + +handle acc_handle_port(handle module, int argumentNumber) +{ + int i; + tree port; + + acc_error_flag = FALSE; + + if (acc_fetch_type(module) == accModule) { + port = MODULE_PORT_LIST((tree) module); + } else { + port = BLOCK_PORTS((tree) module); + } + for (i = 0; i < argumentNumber; i++) { + port = TREE_CHAIN(port); + if (port == NULL) { + return NULL; + } + } + + return (handle) port; +} + +/**************************************************************** + + acc_next_net + +*****************************************************************/ +handle acc_next_net(handle reference, handle net) +{ + handle object; + handle port; + + acc_error_flag = FALSE; + + object = net; + while (TRUE) { + if (object == NULL) { + object = acc_next_port(reference, object); + if (object != NULL) { + object = acc_handle_loconn(object); + } else { + object = (handle) BLOCK_DECL((tree) reference); + while (TRUE) { + if (object == NULL + || (!PORT_INPUT_ATTR((tree) object) + && !PORT_OUTPUT_ATTR((tree) object))) { + break; + } + object = (handle) TREE_CHAIN((tree) object); + } + } + } else { + if (PORT_OUTPUT_ATTR((tree) object) || + PORT_INPUT_ATTR((tree) object)) { + port = NULL; + while (TRUE) { + port = acc_next_port(reference, port); + if (port == NULL) { + break; + } + if (acc_handle_loconn(port) == object) { + break; + } + } + if (port != NULL) { + port = acc_next_port(reference, port); + } + if (port != NULL) { + object = acc_handle_loconn(port); + } else { + object = (handle) BLOCK_DECL((tree) reference); + while (TRUE) { + if (object == NULL + || (!PORT_INPUT_ATTR((tree) object) + && !PORT_OUTPUT_ATTR((tree) object))) { + break; + } + object = (handle) TREE_CHAIN((tree) object); + } + } + } else { + object = (handle) TREE_CHAIN((tree) object); + while (TRUE) { + if (object == NULL + || (!PORT_INPUT_ATTR((tree) object) + && !PORT_OUTPUT_ATTR((tree) object))) { + break; + } + object = (handle) TREE_CHAIN((tree) object); + } + } + } + if (object == NULL || acc_fetch_type(object) == accNet) { + break; + } + } + return (object); +} + +/************************************************************************ + * + * tf_isizep + * tf_sizep + * +/***********************************************************************/ + +int tf_sizep(int nparam) +{ + return (tf_isizep(nparam, tf_getinstance())); +} + +int tf_isizep(int nparam, char *instance) +{ + tree arg; + int nbits; + tree node; + + arg = nth_parameter(nparam, (tree) instance); + if (arg == NULL) { + return (0); + } + + + node = TREE_PURPOSE(arg); + switch (TREE_CODE(node)) { + case BIT_CST: + nbits = BIT_CST_NBITS(node); + switch (BIT_CST_RADIX(node)) { + case EXP_: + case EXPFLOAT_: + case FLOAT_: + nbits = 0; + break; + case STRING_: + nbits = nbits / 8; + break; + default: + // do nothing + break; + } + return (nbits); + + case INTEGER_DECL: + case REAL_DECL: + case REG_SCALAR_DECL: + case REG_VECTOR_DECL: + case NET_SCALAR_DECL: + case NET_VECTOR_DECL: + case PARAM_DECL: + case SPECPARAM_DECL: + return (TREE_NBITS(node)); + } + + return (TREE_NBITS(*TREE_EXPR_CODE(arg))); +} + +/************************************************************************ + * + * tf_iasynchon + * tf_asynchon + * +/***********************************************************************/ + +static int driverCallback(p_vc_record record) +{ + PliInfo_t *info = (PliInfo_t *) record->user_data; + + if (!ASYNCH_ATTR(info->instance)) { + return 0; + } + switch (TREE_CODE(info->instance)) { + case SYSFUNCTION_REF: + call_misc_tf1(FUNC_REF_USERTF(info->instance), + reason_paramdrc, info->argNumber); + break; + case SYSTASK_STMT: + call_misc_tf1(STMT_SYSTASK_USERTF(info->instance), + reason_paramdrc, info->argNumber); + break; + } + return 0; +} + +void tf_iasynchon(char *instance) +{ + tree node = (tree) instance; + int i; + int argumentCount; + handle net; + handle driver; + tree terminal; + PliInfo_t *info; + + + ASYNCH_ATTR(node) = TRUE; + + // look for value changes on all drivers of nets + // connected to task + + + argumentCount = tf_inump(instance); + for (i = 1; i <= argumentCount; i++) { + net = acc_handle_tfarg(i); + if (net == NULL || acc_fetch_type(net) != accNet) { + continue; + } + driver = null; + while (TRUE) { + driver = acc_next_driver(net, driver); + if (driver == null) { + break; + } + terminal = nth_parameter(i, node); + info = (PliInfo_t *) TREE_PLIINFO(terminal); + if (info->vclSet) { + break; + } + acc_vcl_add(driver, driverCallback, (char *) info, + vcl_verilog_logic); + } + info->vclSet = TRUE; + } + return; +} + +void tf_asynchon() +{ + tf_iasynchon((char *) tf_getinstance()); + return; +} + +/************************************************************************ + * + * tf_iasynchoff + * tf_asynchoff + * +/***********************************************************************/ + +void tf_iasynchoff(char *instance) +{ + tree node = (tree) instance; + + ASYNCH_ATTR(node) = FALSE; + return; +} + +void tf_asynchoff() +{ + tf_iasynchoff((char *) tf_getinstance()); + return; +} + +/************************************************************************ + * io_printf * +/***********************************************************************/ + +void io_printf(char *fmt, ...) +{ + va_list args; + + va_start(args, fmt); + vprintf_V(fmt, args); + va_end(args); + return; +} + +/**************************************************************************/ +/* tf_getinstance */ +/**************************************************************************/ + +char *tf_getinstance(void) +{ + return (char *) current_tf_instance; +} + +/************************************************************************ + * tf_synchronize * + * tf_isynchronize * + * tf_rosynchronize * + * tf_irosynchronize * + * Add an item to either the idle queue (synchronize) or to the * + * final queue (rosynchronize). Later, add flags to send error * + * messages is certain PLI routines are called in violation of the * + * rules (i.e., can't call tf_strdelputp, etc on reason_rosynch). * + ***********************************************************************/ + +void tf_synchronize(void) +{ + tf_isynchronize(tf_getinstance()); + return; +} + +void tf_isynchronize(char *instance) +{ + tickle_monitor(&idle_strobe_queue, (tree) instance); + return; +} + +void tf_rosynchronize(void) +{ + tf_irosynchronize(tf_getinstance()); + return; +} + +void tf_irosynchronize(char *instance) +{ + tickle_monitor(&final_strobe_queue, (tree) instance); + return; +} + +/************************************************************************ + * tf_nump * + * Return the number of (possibly null) arguments * +/***********************************************************************/ + +int tf_nump(void) +{ + return tf_inump(tf_getinstance()); +} + +int tf_inump(char *instance) +{ + return count_args((tree) instance); +} + +/**************************************************************** + + tf_mipname + tf_imipname + - return the pathname of the module containing the current + instance + +*****************************************************************/ + +char *tf_mipname(void) +{ + return (tf_imipname(tf_getinstance())); +} + +char *tf_imipname(char *instance) +{ + handle statement; + handle parent; + + statement = (handle) instance; + parent = acc_handle_parent(statement); + return (acc_fetch_fullname((handle) parent)); +} + +/**************************************************************** + + tf_itypep + tf_typep + - return the type of the given argument + +*****************************************************************/ + +int tf_typep(int argnum) +{ + return (tf_itypep(argnum, tf_getinstance())); +} + +int tf_itypep(int argnum, char *instance) +{ + tree arg; + + arg = nth_arg(argnum, (tree) instance); + + if (arg == NULL_TREE) { + return (tf_nullparam); + } + + + switch (TREE_CODE(arg)) { + case BIT_CST: + switch (BIT_CST_RADIX(arg)) { + case STRING_: + return (tf_string); + case EXP_: + case FLOAT_: + case EXPFLOAT_: + return (tf_readonlyreal); + default: + return (tf_readonly); + } + break; + case REAL_CST: + return (tf_readonlyreal); + case STRING_CST: + return (tf_string); + case INTEGER_CST: + return (tf_readonly); + case REAL_DECL: + return (tf_readwritereal); + case NET_SCALAR_DECL: + case NET_VECTOR_DECL: + return (tf_readonly); + case INTEGER_DECL: + case REG_SCALAR_DECL: + case REG_VECTOR_DECL: + if (PORT_INPUT_ATTR(arg)) { + return (tf_readonly); + } else { + return (tf_readwrite); + } + case BIT_REF: + return (tf_rwbitselect); + case PART_REF: + return (tf_rwpartselect); + default: + if (TREE_REAL_ATTR(arg)) { + return (tf_readonlyreal); + } else { + return (tf_readonly); + } + } + + return (0); +} + +/**************************************************************** + + tf_gettimeprecision + tf_igettimeprecision + - return time precision of instance + +*****************************************************************/ + +int tf_gettimeprecision() +{ + return (tf_igettimeprecision(tf_getinstance())); +} + +int tf_igettimeprecision(char *instance) +{ + int prec; + int unit; + + if (instance == null) { + return (-get_tick_precision()); + } + timescale_get((tree) acc_handle_parent((handle) instance), &unit, + &prec); + return (-prec); +} + +/**************************************************************** + + tf_gettimeunit + tf_igettimeunit + - return time units of instance + +*****************************************************************/ + +int tf_gettimeunit() +{ + return (tf_igettimeunit(tf_getinstance())); +} + +int tf_igettimeunit(char *instance) +{ + int prec; + int unit; + + timescale_get((tree) acc_handle_parent((handle) instance), &unit, + &prec); + return (-unit); +} + +/**************************************************************** + + tf_finish + tf_dofinish + +*****************************************************************/ +void tf_finish() +{ + do_finish(); +} + +void tf_dofinish() +{ + tf_finish(); +} + +/**************************************************************** + + tf_stop + tf_dostop + +*****************************************************************/ +void tf_stop() +{ + do_stop(); +} + +void tf_dostop() +{ + tf_stop(); +} + +/***************************************************************** + acc_fetch_timescale_info +******************************************************************/ + +void acc_fetch_timescale_info(handle object, p_timescale_info p_timescale) +{ + int unit; + int precision; + +/* make sure object points to a module */ + + if (object != NULL && acc_fetch_type(object) != accModule) { + object = acc_handle_parent(object); + } + timescale_get((tree) object, &unit, &precision); + p_timescale->unit = -unit; + p_timescale->precision = -precision; +} + +/***************************************************************** + acc_fetch_precision +******************************************************************/ + +int acc_fetch_precision() +{ + return -get_tick_precision(); +} + +/**************************************************************** + + acc_fetch_defname + - return defining name of module or primitive + +*****************************************************************/ + +char *acc_fetch_defname(handle object) +{ + char *name; + tree t = (tree) object; + + acc_error_flag = FALSE; + + switch (TREE_CODE(t)) { + case MODULE_BLOCK: + return (MODULE_NAME(t)); + case GATE_INSTANCE: + switch (TREE_TYPE(t)) { + case GATE_AND_TYPE: + name = "and"; + break; + case GATE_BUFIF0_TYPE: + name = "bufif0"; + break; + case GATE_BUFIF1_TYPE: + name = "bufif1"; + break; + case GATE_BUF_TYPE: + name = "buf"; + break; + case GATE_CMOS_TYPE: + name = "cmos"; + break; + case GATE_NAND_TYPE: + name = "nand"; + break; + case GATE_NMOS_TYPE: + name = "nmos"; + break; + case GATE_NOR_TYPE: + name = "nor"; + break; + case GATE_NOTIF0_TYPE: + name = "notif0"; + break; + case GATE_NOTIF1_TYPE: + name = "notif1"; + break; + case GATE_NOT_TYPE: + name = "not"; + break; + case GATE_OR_TYPE: + name = "or"; + break; + case GATE_PMOS_TYPE: + name = "pmos"; + break; + case GATE_PULLDN_TYPE: + name = "pulldown"; + break; + case GATE_PULLUP_TYPE: + name = "pullup"; + break; + case GATE_RCMOS_TYPE: + name = "rcmos"; + break; + case GATE_RNMOS_TYPE: + name = "rnmos"; + break; + case GATE_RPMOS_TYPE: + name = "rpmos"; + break; + case GATE_RTRANIF0_TYPE: + name = "rtranif0"; + break; + case GATE_RTRANIF1_TYPE: + name = "rtranif1"; + break; + case GATE_RTRAN_TYPE: + name = "rtran"; + break; + case GATE_TRANIF0_TYPE: + name = "tranif0"; + break; + case GATE_TRANIF1_TYPE: + name = "tranif1"; + break; + case GATE_TRAN_TYPE: + name = "tran"; + break; + case GATE_UDP_TYPE: + name = UDP_NAME(GATE_UDP_DEF(t)); + break; + case GATE_XNOR_TYPE: + name = "xnor"; + break; + case GATE_XOR_TYPE: + name = "xor"; + break; + } + return (name); + } + acc_error_flag = TRUE; + return (NULL); +} + +/**************************************************************** + + acc_fetch_type_str + - add delays for given object + +*****************************************************************/ + +char *acc_fetch_type_str(int type) +{ + char *string; + + acc_error_flag = FALSE; + switch (type) { + case accModule: + string = "accModule"; + break; + case accScope: + string = "accScope"; + break; + case accNet: + string = "accNet"; + break; + case accRegister: + string = "accRegister"; + break; + case accPort: + string = "accPort"; + break; + case accTerminal: + string = "accTerminal"; + break; + case accInputTerminal: + string = "accInputTerminal"; + break; + case accOutputTerminal: + string = "accOutputTerminal"; + break; + case accInoutTerminal: + string = "accInoutTerminal"; + break; + case accCombPrim: + string = "accCombPrim"; + break; + case accSeqPrim: + string = "accSeqPrim"; + break; + case accAndGate: + string = "accAndGate"; + break; + case accNandGate: + string = "accNandGate"; + break; + case accNorGate: + string = "accNorGate"; + break; + case accOrGate: + string = "accOrGate"; + break; + case accXorGate: + string = "accXorGate"; + break; + case accXnorGate: + string = "accXnorGate"; + break; + case accBufGate: + string = "accBufGate"; + break; + case accNotGate: + string = "accNotGate"; + break; + case accBufif0Gate: + string = "accBufif0Gate"; + break; + case accBufif1Gate: + string = "accBufif1Gate"; + break; + case accNotif0Gate: + string = "accNotif0Gate"; + break; + case accNotif1Gate: + string = "accNotif1Gate"; + break; + case accNmosGate: + string = "accNmosGate"; + break; + case accPmosGate: + string = "accPmosGate"; + break; + case accCmosGate: + string = "accCmosGate"; + break; + case accRnmosGate: + string = "accRnmosGate"; + break; + case accRpmosGate: + string = "accRpmosGate"; + break; + case accRcmosGate: + string = "accRcmosGate"; + break; + case accRtranGate: + string = "accRtranGate"; + break; + case accRtranif0Gate: + string = "accRtranif0Gate"; + break; + case accRtranif1Gate: + string = "accRtranif1Gate"; + break; + case accTranGate: + string = "accTranGate"; + break; + case accTranif0Gate: + string = "accTranif0Gate"; + break; + case accTranif1Gate: + string = "accTranif1Gate"; + break; + case accPullupGate: + string = "accPullupGate"; + break; + case accPulldownGate: + string = "accPulldownGate"; + break; + case accIntegerParam: + string = "accIntegerParam"; + break; + case accRealParam: + string = "accRealParam"; + break; + case accStringParam: + string = "accStringParam"; + break; + case accPath: + string = "accPath"; + break; + case accTchk: + string = "accTchk"; + break; + case accPrimitive: + string = "accPrimitive"; + break; + case accBit: + string = "accBit"; + break; + case accPortBit: + string = "accPortBit"; + break; + case accNetBit: + string = "accNetBit"; + break; + case accRegBit: + string = "accRegBit"; + break; + case accParameter: + string = "accParameter"; + break; + case accSpecparam: + string = "accSpecparam"; + break; + case accTopModule: + string = "accTopModule"; + break; + case accModuleInstance: + string = "accModuleInstance"; + break; + case accCellInstance: + string = "accCellInstance"; + break; + case accModPath: + string = "accModPath"; + break; + case accPrimPath: + string = "accPrimPath"; + break; + case accWirePath: + string = "accWirePath"; + break; + case accInterModPath: + string = "accInterModPath"; + break; + case accTermPath: + string = "accTermPath"; + break; + case accModTermPath: + string = "accModTermPath"; + break; + case accTermModPath: + string = "accTermModPath"; + break; + case accScalarPort: + string = "accScalarPort"; + break; + case accBitSelectPort: + string = "accBitSelectPort"; + break; + case accPartSelectPort: + string = "accPartSelectPort"; + break; + case accVectorPort: + string = "accVectorPort"; + break; + case accConcatPort: + string = "accConcatPort"; + break; + case accWire: + string = "accWire"; + break; + case accWand: + string = "accWand"; + break; + case accWor: + string = "accWor"; + break; + case accTri: + string = "accTri"; + break; + case accTriand: + string = "accTriand"; + break; + case accTrior: + string = "accTrior"; + break; + case accTri0: + string = "accTri0"; + break; + case accTri1: + string = "accTri1"; + break; + case accTrireg: + string = "accTrireg"; + break; + case accSupply0: + string = "accSupply0"; + break; + case accSupply1: + string = "accSupply1"; + break; + case accNamedEvent: + string = "accNamedEvent"; + break; + case accIntegerVar: + string = "accIntegerVar"; + break; + case accRealVar: + string = "accRealVar"; + break; + case accTimeVar: + string = "accTimeVar"; + break; + case accScalar: + string = "accScalar"; + break; + case accVector: + string = "accVector"; + break; + case accCollapsedNet: + string = "accCollapsedNet"; + break; + case accExpandedVector: + string = "accExpandedVector"; + break; + case accProtected: + string = "accProtected"; + break; + case accVlogSimPath: + string = "accVlogSimPath"; + break; + case accExpandedPath: + string = "accExpandedPath"; + break; + case accSwXlInvisibleNet: + string = "accSwXlInvisibleNet"; + break; + case accAcceleratedNet: + string = "accAcceleratedNet"; + break; + case accSetup: + string = "accSetup"; + break; + case accHold: + string = "accHold"; + break; + case accWidth: + string = "accWidth"; + break; + case accPeriod: + string = "accPeriod"; + break; + case accRecovery: + string = "accRecovery"; + break; + case accSkew: + string = "accSkew"; + break; + case accNoChange: + string = "accNoChange"; + break; + case accSetuphold: + string = "accSetuphold"; + break; + case accInput: + string = "accInput"; + break; + case accOutput: + string = "accOutput"; + break; + case accInout: + string = "accInout"; + break; + case accPositive: + string = "accPositive"; + break; + case accNegative: + string = "accNegative"; + break; + case accUnknown: + string = "accUnknown"; + break; + case accPathTerminal: + string = "accPathTerminal"; + break; + case accPathInput: + string = "accPathInput"; + break; + case accPathOutput: + string = "accPathOutput"; + break; + case accDataPath: + string = "accDataPath"; + break; + case accTchkTerminal: + string = "accTchkTerminal"; + break; + case accBitSelect: + string = "accBitSelect"; + break; + case accPartSelect: + string = "accPartSelect"; + break; + case accTask: + string = "accTask"; + break; + case accFunction: + string = "accFunction"; + break; + case accStatement: + string = "accStatement"; + break; + case accTaskCall: + string = "accTaskCall"; + break; + case accFunctionCall: + string = "accFunctionCall"; + break; + case accSystemTask: + string = "accSystemTask"; + break; + case accSystemFunction: + string = "accSystemFunction"; + break; + case accSystemRealFunction: + string = "accSystemRealFunction"; + break; + case accUserTask: + string = "accUserTask"; + break; + case accUserFunction: + string = "accUserFunction"; + break; + case accUserRealFunction: + string = "accUserRealFunction"; + break; + case accAssignmentStat: + string = "accAssignmentStat"; + break; + case accContAssignStat: + string = "accContAssignStat"; + break; + case accNullStat: + string = "accNullStat"; + break; + case accDelayStat: + string = "accDelayStat"; + break; + case accAssignDelayStat: + string = "accAssignDelayStat"; + break; + case accRtlDelayStat: + string = "accRtlDelayStat"; + break; + case accAssignEventStat: + string = "accAssignEventStat"; + break; + case accAssignMultiStat: + string = "accAssignMultiStat"; + break; + case accRtlEventStat: + string = "accRtlEventStat"; + break; + case accRtlMultiStat: + string = "accRtlMultiStat"; + break; + case accGenEventStat: + string = "accGenEventStat"; + break; + case accDisableStat: + string = "accDisableStat"; + break; + case accAssignStat: + string = "accAssignStat"; + break; + case accDeassignStat: + string = "accDeassignStat"; + break; + case accForceStat: + string = "accForceStat"; + break; + case accReleaseStat: + string = "accReleaseStat"; + break; + case accInitialStat: + string = "accInitialStat"; + break; + case accAlwaysStat: + string = "accAlwaysStat"; + break; + case accAtEventStat: + string = "accAtEventStat"; + break; + case accUnnamedBeginStat: + string = "accUnnamedBeginStat"; + break; + case accNamedBeginStat: + string = "accNamedBeginStat"; + break; + case accUnnamedForkStat: + string = "accUnnamedForkStat"; + break; + case accNamedForkStat: + string = "accNamedForkStat"; + break; + case accIfStat: + string = "accIfStat"; + break; + case accCaseStat: + string = "accCaseStat"; + break; + case accCaseZStat: + string = "accCaseZStat"; + break; + case accCaseXStat: + string = "accCaseXStat"; + break; + case accForeverStat: + string = "accForeverStat"; + break; + case accRepeatStat: + string = "accRepeatStat"; + break; + case accWhileStat: + string = "accWhileStat"; + break; + case accForStat: + string = "accForStat"; + break; + case accWaitStat: + string = "accWaitStat"; + break; + case accConstant: + string = "accConstant"; + break; + case accConcat: + string = "accConcat"; + break; + case accOperator: + string = "accOperator"; + break; + default: + acc_error_flag = TRUE; + string = NULL; + } + return (string); +} + + +/************************************************************************ + * acc_fetch_type * +/***********************************************************************/ + +int acc_fetch_type(handle object) +{ + tree gate; + tree timingCheck; + tree decl; + tree modpathEntity; + + acc_error_flag = FALSE; + + // missing things: + // accDataPath + // accNetBit - no supported + // accOperator + // accPathTerminal + // accPortBit + // accRegBit + + switch (TREE_CODE((tree) object)) { + case SYSTASK_STMT: + return accUserTask; + case SYSFUNCTION_REF: + if (((p_tfcell) FUNC_REF_USERTF((tree) object))->type == + USERFUNCTION) { + return accUserFunction; + } else { + return accUserRealFunction; + } + case PATH_CONSTRAINT: + return accPathTerminal; + case TREE_LIST: + gate = GATE_TERMINAL_GATE((tree) object); + if (gate != NULL && TREE_CODE(gate) == GATE_INSTANCE) { + return accTerminal; + } + timingCheck = TIMING_TERMINAL_CHECK((tree) object); + if (timingCheck != NULL && TREE_CODE(timingCheck) == TIMING_CHECK) { + return accTchkTerminal; + } + modpathEntity = MODPATH_INPUT_TERMINAL_PARENT((tree) object); + if (modpathEntity != NULL + && TREE_CODE(modpathEntity) == PATH_CONSTRAINT) { + return accPathTerminal; + } + /* check for a port terminal */ + decl = TREE_PURPOSE((tree) object); + if ((TREE_CODE(decl) == NET_SCALAR_DECL || + TREE_CODE(decl) == NET_VECTOR_DECL) && + (PORT_INPUT_ATTR(decl) || PORT_OUTPUT_ATTR(decl))) { + return (accPort); + } + acc_error_flag = TRUE; + return (0); + + case BIT_CST: + return accConstant; + case EVENT_DECL: + return accNamedEvent; + case FUNCTION_BLOCK: + return accFunction; + case INTEGER_DECL: + return accIntegerVar; + case MODULE_BLOCK: + return accModule; + case NET_VECTOR_DECL: + case NET_SCALAR_DECL: + return accNet; + case PARAM_DECL: + return accParameter; + + case PART_REF: + return (accPartSelect); + case PATH_INSTANCE: + return accPath; + case REAL_DECL: + return accRealVar; + case REG_SCALAR_DECL: + case REG_VECTOR_DECL: + return accReg; + + case SPECPARAM_DECL: + return accSpecparam; + case TASK_BLOCK: + return accTask; + case TIMING_CHECK: + return accTchk; + case TIME_DECL: + return accTimeVar; + + case GATE_INSTANCE: + return accPrimitive; + + default: + if (*tree_code_type[TREE_CODE((tree) object)] == 's') { + return accStatement; + } else if (*tree_code_type[TREE_CODE((tree) object)] == 'g') { + return (accPrimitive); + } else { + acc_error_flag = TRUE; + return 0; + } + } +} + + /**************************************************************** + + acc_fetch_fulltype + - return the fulltype of the given object + +*****************************************************************/ + +int acc_fetch_fulltype(handle object) +{ + int type; + tree t = (tree) object; + tree gate; + tree decl; + tree modpathEntity; + + // full types not supported: + // accCellInstance/accCellModule + // accNet enumerations + // accParameter enumerations + // accPort enumerations + // accSpecparam enumerations + // accStatement enumerations + // accNoChange + // + acc_error_flag = FALSE; + type = 0; + + switch (TREE_CODE(t)) { + case PATH_INSTANCE: + return accModPath; + case PATH_CONSTRAINT: + return accPathOutput; + case TREE_LIST: + gate = GATE_TERMINAL_GATE(t); + if (gate != NULL && TREE_CODE(gate) == GATE_INSTANCE) { + if (PORT_INPUT_ATTR(t) && PORT_OUTPUT_ATTR(t)) { + type = accInoutTerminal; + } else if (PORT_INPUT_ATTR(t)) { + type = accInputTerminal; + } else if (PORT_OUTPUT_ATTR(t)) { + type = accOutputTerminal; + } + break; + } + modpathEntity = MODPATH_INPUT_TERMINAL_PARENT((tree) object); + if (modpathEntity != NULL && + TREE_CODE(modpathEntity) == PATH_CONSTRAINT) { + return accPathInput; + } + /* must be a port */ + decl = TREE_PURPOSE(t); + if (PORT_INPUT_ATTR(decl) || PORT_OUTPUT_ATTR(decl)) { + if (TREE_NBITS(decl) == 1) { + type = accScalarPort; + } else { + type = accVectorPort; + } + } + break; + + case MODULE_BLOCK: + if (BLOCK_UP(t) != NULL_TREE) { + type = accModuleInstance; + } else { + type = accTopModule; + } + break; + + case GATE_INSTANCE: + + switch (TREE_TYPE(t)) { + case GATE_AND_TYPE: + type = accAndGate; + break; + case GATE_BUFIF0_TYPE: + type = accBufif0Gate; + break; + case GATE_BUFIF1_TYPE: + type = accBufif1Gate; + break; + case GATE_BUF_TYPE: + type = accBufGate; + break; + case GATE_CMOS_TYPE: + type = accCmosGate; + break; + case GATE_NAND_TYPE: + type = accNandGate; + break; + case GATE_NMOS_TYPE: + type = accNmosGate; + break; + case GATE_NOR_TYPE: + type = accNorGate; + break; + case GATE_NOTIF0_TYPE: + type = accNotif0Gate; + break; + case GATE_NOTIF1_TYPE: + type = accNotif1Gate; + break; + case GATE_NOT_TYPE: + type = accNotGate; + break; + case GATE_OR_TYPE: + type = accOrGate; + break; + case GATE_PMOS_TYPE: + type = accPmosGate; + break; + case GATE_PULLDN_TYPE: + type = accPulldownGate; + break; + case GATE_PULLUP_TYPE: + type = accPullupGate; + break; + case GATE_RCMOS_TYPE: + type = accRcmosGate; + break; + case GATE_RNMOS_TYPE: + type = accRnmosGate; + break; + case GATE_RPMOS_TYPE: + type = accRpmosGate; + break; + case GATE_RTRANIF0_TYPE: + type = accRtranif0Gate; + break; + case GATE_RTRANIF1_TYPE: + type = accRtranif1Gate; + break; + case GATE_RTRAN_TYPE: + type = accRtranGate; + break; + case GATE_TRANIF0_TYPE: + type = accTranif0Gate; + break; + case GATE_TRANIF1_TYPE: + type = accTranif1Gate; + break; + case GATE_TRAN_TYPE: + type = accTranGate; + break; + case GATE_UDP_TYPE: + { + tree udpDef = GATE_UDP_DEF(t); + ASSERT(udpDef != NULL_TREE); + if (UDP_REG_NAME(udpDef)) { + type = accSeqPrim; + } else { + type = accCombPrim; + } + } + break; + case GATE_XNOR_TYPE: + type = accXnorGate; + break; + case GATE_XOR_TYPE: + type = accXorGate; + break; + } + break; + case TIMING_CHECK: + { + tree check; + check = TIMING_CHECK_CHECKSPEC(t); + ASSERT(check != NULL_TREE); + switch (CHECK_SPEC_CHECKTYPE(check)) { + case SETUP: + type = accSetup; + break; + case HOLD: + type = accHold; + break; + case WIDTH: + type = accWidth; + break; + case PERIOD: + type = accPeriod; + break; + case SKEW: + type = accSkew; + break; + case RECOVERY: + type = accRecovery; + break; + case SETUPHOLD: + type = accSetuphold; + break; + default: + ASSERT(FALSE); + } + } + break; + default: + type = acc_fetch_type(object); + if (type == accNet) { + switch (TREE_TYPE((tree) object)) { + case NET_TRI_TYPE: + return accTri; + case NET_WIRE_TYPE: + return accWire; + case NET_TRIOR_TYPE: + return accTrior; + case NET_WOR_TYPE: + return accWor; + case NET_TRIAND_TYPE: + return accTriand; + case NET_WAND_TYPE: + return accWand; + case NET_TRIREG_TYPE: + return accTrireg; + case NET_TRI0_TYPE: + return accTri0; + case NET_TRI1_TYPE: + return accTri1; + case NET_SUPPLY1_TYPE: + return accSupply0; + case NET_SUPPLY0_TYPE: + return accSupply1; + default: + ASSERT(FALSE); + } + } else if (type == accParameter) { + if (TREE_INTEGER_ATTR(DECL_PARAM_RVAL((tree) object))) { + return (accIntegerParam); + } else if (TREE_REAL_ATTR(DECL_PARAM_RVAL((tree) object))) { + return (accRealParam); + } else { + return (accStringParam); + } + } + } + return (type); +} + +/****************************************************************************** + io_mcdprintf( int mcd, char* fmt, ... ) +******************************************************************************* +*/ + +void io_mcdprintf(int handle, char *fmt, ...) +{ + va_list args; + + va_start(args, fmt); + vfprintf_V(handle, fmt, args); + va_end(args); +} + +/****************************************************************************** + tf_long_to_real +******************************************************************************* +*/ + +void tf_long_to_real(int low, int high, double *aof_real) +{ + double result; + + result = high; + result = ldexp(result, 32); /* shift by 32 */ + result += low; + *aof_real = result; +} + +/****************************************************************************** + tf_real_to_long +******************************************************************************* +*/ + +void tf_real_to_long(double realvalue, int *aof_int_lo, int *aof_int_hi) +{ + double y; + const double pow2_32 = ldexp((double) 1, 32); + + y = realvalue + 0.5; /* round to compensate for small errors in conversion */ + + *aof_int_lo = (int) fmod(y, pow2_32); /* mod 2^32 */ + *aof_int_hi = (int) ldexp(y, -32); /* div 2^32 */ +} + +/****************************************************************************** + tf_scale_longdelay +******************************************************************************* +*/ + +void +tf_scale_longdelay(char *instance_p, int delay_lo, int delay_hi, + int *aof_delay_lo, int *aof_delay_hi) +{ + int factor; + + *aof_delay_lo = delay_lo; + *aof_delay_hi = delay_hi; + factor = (int) timescale_precision((tree) + acc_handle_parent((handle) + instance_p)); + tf_multiply_long(aof_delay_lo, aof_delay_hi, factor, 0); +} + +/****************************************************************************** + tf_scale_realdelay +******************************************************************************* +*/ + +void +tf_scale_realdelay(char *instance_p, double realdelay, + double *aof_realdelay) +{ + *aof_realdelay = realdelay * timescale_precision((tree) + acc_handle_parent((handle) instance_p)); +} + +/****************************************************************************** + tf_unscale_longdelay +******************************************************************************* +*/ + +void +tf_unscale_longdelay(char *instance_p, int delay_lo, int delay_hi, + int *aof_delay_lo, int *aof_delay_hi) +{ + int factor; + + *aof_delay_lo = delay_lo; + *aof_delay_hi = delay_hi; + factor = (int) timescale_precision((tree) + acc_handle_parent((handle) + instance_p)); + tf_divide_long(aof_delay_lo, aof_delay_hi, factor, 0); +} + +/****************************************************************************** + tf_unscale_realdelay +******************************************************************************* +*/ + +void +tf_unscale_realdelay(char *instance_p, double realdelay, + double *aof_realdelay) +{ + *aof_realdelay = + realdelay / + timescale_precision((tree) acc_handle_parent((handle) instance_p)); +} + +/****************************************************************************** + tf_longtime_tostr +******************************************************************************* +*/ + +char *tf_longtime_tostr(int lowtime, int hightime) +{ + time64 time; + + time.timeh = hightime; + time.timel = lowtime; + return (time_string(&time)); +} + +/**************************************************************************/ +/* tf_gettime */ +/**************************************************************************/ + +int tf_gettime() +{ + int timeh; + + return (tf_getlongtime(&timeh)); +} + + +/**************************************************************************/ +/* tf_getlongtime */ +/* tf_igetlongtime */ +/**************************************************************************/ + +int tf_igetlongtime(int *aof_hightime, char *instance) +{ + +/* + * time is unscaled per vcs behavior + */ +/* + int timeh; + int timel; + tf_unscale_longdelay( instance, CurrentTime.timel, CurrentTime.timeh, + &timel, &timeh ); + *aof_hightime = timeh; +*/ + *aof_hightime = CurrentTime.timeh; + return CurrentTime.timel; +} + +int tf_getlongtime(int *aof_hightime) +{ + return tf_igetlongtime(aof_hightime, tf_getinstance()); +} + +/**************************************************************************/ +/* tf_getrealtime */ +/**************************************************************************/ + +double tf_getrealtime(void) +{ + double result; + + + tf_long_to_real(CurrentTime.timel, CurrentTime.timeh, &result); + return (result); +} + +/**************************************************************************/ +/* tf_strgettime */ +/**************************************************************************/ + +char *tf_strgettime() +{ + time64 time; + + time.timel = tf_getlongtime((int *) &time.timeh); + return time_string(&time); +} + +/************************************************************************ + mc_scan_plusargs +************************************************************************* +*/ + +char *mc_scan_plusargs(char *startarg) +{ + tree t; + + for (t = plusargs; t; t = TREE_CHAIN(t)) { + if (!strncmp(startarg, (char *) TREE_PURPOSE(t), strlen(startarg))) { + return ((char *) TREE_PURPOSE(t) + strlen(startarg)); + } + } + return (NULL); +} + +/**************************************************************** + tf_propagate + tf_ipropagate +*****************************************************************/ + +void tf_propagatep(int nparam) +{ + tf_ipropagatep(nparam, tf_getinstance()); +} + +void tf_ipropagatep(int nparam, char *instance) +{ + tree arg = nth_arg(nparam, (tree) instance); + tree param = nth_parameter(nparam, (tree) instance); + int numbits; + int ngroups; + PliInfo_t *info; + + numbits = TREE_NBITS(*TREE_EXPR_CODE(param)); + ngroups = (numbits - 1) / 32 + 1; + info = (PliInfo_t *) TREE_PLIINFO(param); + ASSERT(info != NULL); + + if (info->storage == NULL) { + info->storage = (Group *) malloc_X(ngroups); + } + + memcpy(DECL_STORAGE(arg), info->storage, sizeof(Group) * ngroups); + notify(arg, DECL_STATE(arg), 1, NULL); +} + +/**************************************************************** + tf_evaluatep + tf_ievaluatep +*****************************************************************/ +void tf_evaluatep(int nparam) +{ + tf_ievaluatep(nparam, tf_getinstance()); +} + +void tf_ievaluatep(int nparam, char *instance) +{ + tree arg; + Group *g; + int numbits; + int ngroups; + PliInfo_t *info; + + arg = nth_parameter(nparam, (tree) instance); + if (arg == NULL) { + return; + } + info = (PliInfo_t *) TREE_PLIINFO(arg); + ASSERT(info != NULL); + + numbits = TREE_NBITS(*TREE_EXPR_CODE(arg)); + ngroups = (numbits - 1) / 32 + 1; + stack_allocate(); + eval(TREE_EXPR_CODE(arg)); + g = *--R; + + if (info->storage == NULL) { + info->storage = (Group *) malloc_X(ngroups); + } + + memcpy(info->storage, g, ngroups * sizeof(Group)); +} + +/**************************************************************** + + tf_exprinfo + tf_iexprinfo + +*****************************************************************/ + +struct t_tfexprinfo *tf_exprinfo(int nparam, + struct t_tfexprinfo *exprinfo_p) +{ + return (tf_iexprinfo(nparam, exprinfo_p, tf_getinstance())); +} + +struct t_tfexprinfo *tf_iexprinfo(int nparam, + struct t_tfexprinfo *exprinfo_p, + char *instance) +{ + int type; + tree arg; + tree param; + int bits; + PliInfo_t *info; + + tf_ievaluatep(nparam, instance); + param = nth_parameter(nparam, (tree) instance); + if (param == NULL) { + return (NULL); + } + arg = TREE_PURPOSE(param); + info = (PliInfo_t *) TREE_PLIINFO(param); + ASSERT(info != NULL); + + if (info->storage == NULL) { + info->storage = (Group *) malloc_X(exprinfo_p->expr_ngroups); + } + + type = tf_itypep(nparam, instance); + bits = tf_isizep(nparam, instance); + switch (type) { + case tf_nullparam: + break; + case tf_string: + exprinfo_p->expr_sign = 0; + exprinfo_p->expr_vec_size = 0; + exprinfo_p->expr_ngroups = 0; + exprinfo_p->expr_value_p = 0; + exprinfo_p->expr_string = + GroupToString(info->storage, bits * 8, (bits + 3) / 4); + break; + case tf_readonlyreal: + case tf_readwritereal: + exprinfo_p->expr_vec_size = 0; + exprinfo_p->expr_ngroups = 0; + exprinfo_p->real_value = REAL_(info->storage); + exprinfo_p->expr_value_p = 0; + if (exprinfo_p->real_value < 0) { + exprinfo_p->expr_sign = -1; + } else { + exprinfo_p->expr_sign = 1; + } + break; + case tf_readonly: + case tf_readwrite: + case tf_rwbitselect: + case tf_rwpartselect: + exprinfo_p->expr_sign = 0; // this needs fixed + exprinfo_p->expr_vec_size = bits; + exprinfo_p->expr_ngroups = 1 + (bits - 1) / (8 * sizeof(int)); + exprinfo_p->expr_value_p = (struct t_vecval *) info->storage; + break; + break; + case tf_rwmemselect: + default: + return (NULL); + } + + exprinfo_p->expr_type = type; + return (exprinfo_p); +} + + +/************************************************************************ + * tf_getp + * tf_igetp + * tf_putp + * tf_iputp + * tf_putlongp + * tf_iputlongp + * tf_getlongp + * tf_igetlongp + * tf_getrealp + * tf_igetrealp + * tf_putrealp + * tf_iputrealp + ***********************************************************************/ + +LP64 tf_getp(int nparam) +{ + return tf_igetp(nparam, tf_getinstance()); +} + +LP64 tf_igetp(int nparam, char *instance) +{ + s_tfexprinfo info; + + tf_iexprinfo(nparam, &info, instance); + if (info.expr_ngroups < 1) { + return (0); + } + if (info.expr_type == tf_string) { + return ((LP64) info.expr_string); + } + + return (info.expr_value_p->avalbits); + +} + +void tf_putp(int nparam, int value) +{ + tf_iputp(nparam, value, tf_getinstance()); + return; +} + +void tf_iputp(int nparam, int value, char *instance) +{ + s_tfexprinfo info; + Group *g; + + + // handle function return here + if (nparam == 0) { + g = DECL_STORAGE(FUNC_REF_RETURNDECL((tree) instance)); + AVAL(g) = value; + BVAL(g) = 0; + return; + } + + tf_iexprinfo(nparam, &info, instance); + if (info.expr_ngroups < 1) { + return; + } + + if (info.expr_type == tf_string) { + return; + } + + info.expr_value_p->avalbits = value; + info.expr_value_p->bvalbits = 0; + + tf_ipropagatep(nparam, instance); + return; +} + +void tf_putlongp(int nparam, int lowvalue, int highvalue) +{ + tf_iputlongp(nparam, lowvalue, highvalue, tf_getinstance()); + return; +} + +void tf_iputlongp(int nparam, int lowvalue, int highvalue, char *instance) +{ + s_tfexprinfo info; + Group *g; + + + // handle function return here + if (nparam == 0) { + g = DECL_STORAGE(FUNC_REF_RETURNDECL((tree) instance)); + AVAL(g) = lowvalue; + BVAL(g) = 0; + g++; + AVAL(g) = highvalue; + BVAL(g) = 0; + return; + } + + tf_iexprinfo(nparam, &info, instance); + if (info.expr_ngroups < 2) { + return; + } + + if (info.expr_type == tf_string) { + return; + } + + info.expr_value_p->avalbits = lowvalue; + info.expr_value_p->bvalbits = 0; + info.expr_value_p++; + info.expr_value_p->avalbits = highvalue; + info.expr_value_p->bvalbits = 0; + + tf_ipropagatep(nparam, instance); + return; +} + +int tf_getlongp(int *aof_highvalue, int nparam) +{ + return tf_igetlongp(aof_highvalue, nparam, tf_getinstance()); +} + +int tf_igetlongp(int *aof_highvalue, int nparam, char *instance) +{ + s_tfexprinfo info; + + tf_iexprinfo(nparam, &info, instance); + if (info.expr_ngroups < 2) { + return (0); + } + + if (info.expr_type == tf_string) { + return ((LP64) info.expr_string); + } + + *aof_highvalue = (info.expr_value_p + 1)->avalbits; + return (info.expr_value_p->avalbits); +} + +double tf_getrealp(int nparam) +{ + return tf_igetrealp(nparam, tf_getinstance()); +} + +double tf_igetrealp(int nparam, char *instance) +{ + s_tfexprinfo info; + + tf_iexprinfo(nparam, &info, instance); + + if (info.expr_type != tf_readonlyreal + && info.expr_type != tf_readwritereal) { + return (0.0); + } + + return (info.real_value); +} + +void tf_putrealp(int nparam, double value) +{ + tf_iputrealp(nparam, value, tf_getinstance()); + return; +} + +void tf_iputrealp(int nparam, double value, char *instance) +{ + s_tfexprinfo info; + Group *g; + + + // handle function return here + if (nparam == 0) { + g = DECL_STORAGE(FUNC_REF_RETURNDECL((tree) instance)); + REAL_(g) = value; + return; + } + + tf_iexprinfo(nparam, &info, instance); + if (info.expr_ngroups < 1) { + return; + } + + if (info.expr_type != tf_readonlyreal + && info.expr_type != tf_readwritereal) { + return; + } + + ((Group *) info.expr_value_p)->real = value; + + tf_ipropagatep(nparam, instance); + return; +} + +/************************************************************************ + tf_getcstringp + tf_igetcstringp +/***********************************************************************/ + + +char *tf_getcstringp(int argnum) +{ + return (tf_igetcstringp(argnum, tf_getinstance())); +} + +char *tf_igetcstringp(int argnum, char *instance) +{ + s_tfexprinfo info; + + + tf_iexprinfo(argnum, &info, instance); + + return (info.expr_string); +} + +/************************************************************************ + GroupToString +/***********************************************************************/ + +static char *GroupToString(Group * g, int nbits, int ngroups) +{ + char buffer[1024]; + int bufferIndex; + int groupIndex; + int byteIndex; + int charPerBit; + char *ptr; + char numberOfChars; + int limit; + + charPerBit = sizeof(Bit) / sizeof(char); + numberOfChars = (nbits + 7) / 8; + bufferIndex = 0; + for (groupIndex = ngroups - 1; groupIndex >= 0; groupIndex--) { + ptr = (char *) &AVAL(&g[groupIndex]); + if (groupIndex != ngroups - 1) { + limit = 3; + } else { + limit = numberOfChars % charPerBit; + if (limit != 0) { + limit--; + } else { + limit = 3; + } + } + for (byteIndex = limit; byteIndex >= 0; byteIndex--) { +#ifdef WORDS_BIGENDIAN + buffer[bufferIndex] = ptr[charPerBit - byteIndex - 1]; +#else + buffer[bufferIndex] = ptr[byteIndex]; +#endif + bufferIndex += 1; + numberOfChars -= 1; + } + } + + buffer[bufferIndex] = 0; + + return (pli_write_string(buffer)); +} + +/************************************************************************ + StringToGroup +/***********************************************************************/ + +static void StringToGroup(char *string, Group * g, int nbits, int ngroups) +{ + char buffer[1024]; + int bufferIndex; + int groupIndex; + int byteIndex; + int charPerBit; + char *ptr; + char numberOfChars; + int limit; + int length; + + charPerBit = sizeof(Bit) / sizeof(char); + numberOfChars = (nbits + 7) / 8; + length = strlen(string); + + + bufferIndex = 0; + for (groupIndex = ngroups - 1; groupIndex >= 0; groupIndex--) { + ptr = (char *) &AVAL(&g[groupIndex]); + BVAL(&g[groupIndex]) = 0; + if (groupIndex != ngroups - 1) { + limit = 3; + } else { + limit = numberOfChars % charPerBit; + if (limit != 0) { + limit--; + } else { + limit = 3; + } + } + for (byteIndex = limit; byteIndex >= 0; byteIndex--) { +#ifdef WORDS_BIGENDIAN + if (numberOfChars > length) { + ptr[charPerBit - byteIndex - 1] = 0; + } else { + ptr[charPerBit - byteIndex - 1] = string[bufferIndex]; + bufferIndex += 1; + } +#else + if (numberOfChars > length) { + ptr[byteIndex] = 0; + } else { + ptr[byteIndex] = string[bufferIndex]; + bufferIndex += 1; + } +#endif + numberOfChars -= 1; + } + } + +} + +/**************************************************************** + tf_compare_long + **************************************************************** + */ +int tf_compare_long(int low1, int high1, int low2, int high2) +{ + Bit a[2]; + Bit b[2]; + Bit c[3]; + + b[0] = low1; + b[1] = high1; + + c[0] = low2; + c[1] = high2; + + BitSub(a, b, c, 2); + + if (a[0] == 0 && a[1] == 0) { + return (0); + } else if (a[0] < 0) { + return (-1); + } else { + return (1); + } +} + +/**************************************************************** + tf_add_long + **************************************************************** + */ +void tf_add_long(int *low1p, int *high1p, int low2, int high2) +{ + Bit a[2]; + Bit b[2]; + Bit c[3]; + + b[0] = *low1p; + b[1] = *high1p; + + c[0] = low2; + c[1] = high2; + + BitAdd(a, b, c, 2); + + *low1p = a[0]; + *high1p = a[1]; +} + +/**************************************************************** + tf_subtract_long + **************************************************************** + */ +void tf_subtract_long(int *low1p, int *high1p, int low2, int high2) +{ + Bit a[2]; + Bit b[2]; + Bit c[3]; + + b[0] = *low1p; + b[1] = *high1p; + + c[0] = low2; + c[1] = high2; + + BitSub(a, b, c, 2); + + *low1p = a[0]; + *high1p = a[1]; +} + +/**************************************************************** + tf_multiply_long + **************************************************************** + */ +void tf_multiply_long(int *low1p, int *high1p, int low2, int high2) +{ + Group a[4]; + Group b[2]; + Group c[2]; + int sign; + + sign = 1; + + if (*high1p < 0) { + sign = sign ^ 1; + AVAL(&b[0]) = ~*low1p; + AVAL(&b[1]) = ~*high1p; + AVAL(&b[0])++; + if (AVAL(&b[0]) == 0) { + AVAL(&b[1])++; + } + } else { + AVAL(&b[0]) = *low1p; + AVAL(&b[1]) = *high1p; + } + + if (high2 < 0) { + sign = sign ^ 1; + AVAL(&c[0]) = ~low2; + AVAL(&c[1]) = ~high2; + AVAL(&c[0])++; + if (AVAL(&c[0]) == 0) { + AVAL(&c[1])++; + } + } else { + AVAL(&c[0]) = low2; + AVAL(&c[1]) = high2; + } + + GroupMult(a, b, c, 2); + + if (sign) { + *low1p = AVAL(&a[0]); + *high1p = AVAL(&a[1]); + } else { + *low1p = ~AVAL(&a[0]); + *high1p = ~AVAL(&a[1]); + (*low1p)++; + if (*low1p == 0) { + (*high1p)++; + } + } + +} + +/**************************************************************** + tf_divide_long + **************************************************************** + */ +void tf_divide_long(int *low1p, int *high1p, int low2, int high2) +{ + Group a[2]; + Group b[2]; + Group c[2]; + Group m[2]; + int sign; + + sign = 1; + + if (*high1p < 0) { + sign = sign ^ 1; + AVAL(&b[0]) = ~*low1p; + AVAL(&b[1]) = ~*high1p; + AVAL(&b[0])++; + if (AVAL(&b[0]) == 0) { + AVAL(&b[1])++; + } + } else { + AVAL(&b[0]) = *low1p; + AVAL(&b[1]) = *high1p; + } + + if (high2 < 0) { + sign = sign ^ 1; + AVAL(&c[0]) = ~low2; + AVAL(&c[1]) = ~high2; + AVAL(&c[0])++; + if (AVAL(&c[0]) == 0) { + AVAL(&c[1])++; + } + } else { + AVAL(&c[0]) = low2; + AVAL(&c[1]) = high2; + } + + GroupDiv(a, m, b, c, 2, 0); + + if (sign) { + *low1p = AVAL(&a[0]); + *high1p = AVAL(&a[1]); + } else { + *low1p = ~AVAL(&a[0]); + *high1p = ~AVAL(&a[1]); + (*low1p)++; + if (*low1p == 0) { + (*high1p)++; + } + } + +} + +/**************************************************************** + + acc_fetch_delays + - retrieve delays for given object + +*****************************************************************/ +bool acc_fetch_delays(handle object, ...) +{ + tree pathInstance; + tree pathDesc; + tree instance; + tree constraint; + tree module; + tree t = (tree) object; + double scaleFactor; + int delayCount; + double d1; + double d2; + double d3; + double d4; + double d5; + double d6; + double *dp[18]; + va_list ap; + int i; + + va_start(ap, object); + for (i = 0; i < 18; i++) { + dp[i] = va_arg(ap, double *); + } + va_end(ap); + + acc_error_flag = FALSE; + + switch (acc_fetch_type(object)) { + + case accTchk: + ASSERT(TREE_CODE((tree) object) == TIMING_CHECK); + d1 = (double) TIMING_CHECK_PARAM1((tree) object); + delayCount = 1; + switch (acc_fetch_fulltype(object)) { + case accSetuphold: + case accNochange: + d2 = TIMING_CHECK_PARAM2((tree) object); + delayCount = 2; + break; + default: + break; + } + break; + + case accPrimitive: + + if (GATE_DELAY(t)) { + d1 = (double) eval_delay(GATE_DELAY(t), ONE); + delayCount = 1; + if (pli_info.config.accPathDelayCount_ >= 2) { + d2 = (double) eval_delay(GATE_DELAY(t), ZERO); + delayCount = 2; + } + if (pli_info.config.accPathDelayCount_ >= 3) { + d3 = (double) eval_delay(GATE_DELAY(t), Z); + delayCount = 3; + } + } else { + d1 = 0; + delayCount = 1; + if (pli_info.config.accPathDelayCount_ >= 2) { + d2 = 0; + delayCount = 2; + } + if (pli_info.config.accPathDelayCount_ >= 3) { + d3 = 0; + delayCount = 3; + } + } + break; + + case accPath: + pathInstance = t; + ASSERT(TREE_CODE(pathInstance) == PATH_INSTANCE); + + pathDesc = PATH_INSTANCE_PATHDESC(pathInstance); + ASSERT(TREE_CODE(pathDesc) == PATH_NODE); + + module = PATH_INSTANCE_MODULE(pathInstance); + ASSERT(TREE_CODE(module) == MODULE_BLOCK); + + for (instance = MODULE_SPECINST(module); + instance != NULL_TREE; instance = TREE_CHAIN(instance)) { + + if (TREE_CODE(instance) != PATH_OUTPUT) { + continue; + } + + + for (constraint = PATH_OUTPUT_CONSTRAINTS(instance); + constraint != NULL_TREE; + constraint = TREE_CHAIN(constraint)) { + + ASSERT(TREE_CODE(constraint) == PATH_CONSTRAINT); + if (PATH_CONSTRAINT_PATHDESC(constraint) == pathDesc) { + d1 = (double) PATH_CONSTRAINT_DELAY(constraint, ZERO, + ONE); + delayCount = 1; + if (pli_info.config.accPathDelayCount_ >= 2) { + d2 = (double) PATH_CONSTRAINT_DELAY(constraint, + ONE, ZERO); + delayCount = 2; + } + if (pli_info.config.accPathDelayCount_ >= 3) { + d3 = (double) PATH_CONSTRAINT_DELAY(constraint, + ZERO, Z); + delayCount = 3; + } + if (pli_info.config.accPathDelayCount_ == 6) { + d4 = (double) PATH_CONSTRAINT_DELAY(constraint, Z, + ONE); + d5 = (double) PATH_CONSTRAINT_DELAY(constraint, + ONE, Z); + d6 = (double) PATH_CONSTRAINT_DELAY(constraint, Z, + ZERO); + delayCount = 6; + } + goto done; + } + } + } + break; + + } + done: + scaleFactor = pow(10.0, tf_igettimeprecision(null) - + tf_igettimeprecision((char *) + acc_handle_parent(object))); + + switch (delayCount) { + case 6: + if (pli_info.config.accMinTypMaxDelays_) { + *dp[17] = d6 * scaleFactor; + *dp[16] = *dp[17]; + *dp[15] = *dp[17]; + } else { + *dp[5] = d6 * scaleFactor; + } + case 5: + if (pli_info.config.accMinTypMaxDelays_) { + *dp[14] = d5 * scaleFactor; + *dp[13] = *dp[14]; + *dp[12] = *dp[14]; + } else { + *dp[4] = d5 * scaleFactor; + } + case 4: + if (pli_info.config.accMinTypMaxDelays_) { + *dp[11] = d4 * scaleFactor; + *dp[10] = *dp[11]; + *dp[9] = *dp[11]; + } else { + *dp[3] = d4 * scaleFactor; + } + case 3: + if (pli_info.config.accMinTypMaxDelays_) { + *dp[8] = d3 * scaleFactor; + *dp[7] = *dp[8]; + *dp[6] = *dp[8]; + } else { + *dp[2] = d3 * scaleFactor; + } + case 2: + if (pli_info.config.accMinTypMaxDelays_) { + *dp[5] = d2 * scaleFactor; + *dp[4] = *dp[5]; + *dp[3] = *dp[5]; + } else { + *dp[1] = d2 * scaleFactor; + } + case 1: + if (pli_info.config.accMinTypMaxDelays_) { + *dp[2] = d1 * scaleFactor; + *dp[1] = *dp[2]; + *dp[0] = *dp[2]; + } else { + *dp[0] = d1 * scaleFactor; + } + break; + default: + acc_error_flag = TRUE; + tf_error("Illegal object in acc_fetch_delays()"); + return (0); + } + + return (1); +} + +/**************************************************************** + + acc_replace_delays + - replace delays for given object + +*****************************************************************/ +bool acc_replace_delays(handle object, ...) +{ + tree pathInstance; + tree pathDesc; + tree instance; + tree constraint; + tree module; + tree delayNode; + int delayCount; + double scaleFactor; + double d1; + double d2; + double d3; + double d4; + double d5; + double d6; + va_list ap; + + acc_error_flag = FALSE; + + va_start(ap, object); + if (pli_info.config.accMinTypMaxDelays_ && delay_type == MIN_DELAY) { + d1 = va_arg(ap, double); + va_arg(ap, double); + va_arg(ap, double); + d2 = va_arg(ap, double); + va_arg(ap, double); + va_arg(ap, double); + d3 = va_arg(ap, double); + va_arg(ap, double); + va_arg(ap, double); + d4 = va_arg(ap, double); + va_arg(ap, double); + va_arg(ap, double); + d5 = va_arg(ap, double); + va_arg(ap, double); + va_arg(ap, double); + d6 = va_arg(ap, double); + } else if (pli_info.config.accMinTypMaxDelays_ + && delay_type == TYP_DELAY) { + va_arg(ap, double); + d1 = va_arg(ap, double); + va_arg(ap, double); + va_arg(ap, double); + d2 = va_arg(ap, double); + va_arg(ap, double); + va_arg(ap, double); + d3 = va_arg(ap, double); + va_arg(ap, double); + va_arg(ap, double); + d4 = va_arg(ap, double); + va_arg(ap, double); + va_arg(ap, double); + d5 = va_arg(ap, double); + va_arg(ap, double); + va_arg(ap, double); + d6 = va_arg(ap, double); + } else if (pli_info.config.accMinTypMaxDelays_ + && delay_type == MAX_DELAY) { + va_arg(ap, double); + va_arg(ap, double); + d1 = va_arg(ap, double); + va_arg(ap, double); + va_arg(ap, double); + d2 = va_arg(ap, double); + va_arg(ap, double); + va_arg(ap, double); + d3 = va_arg(ap, double); + va_arg(ap, double); + va_arg(ap, double); + d4 = va_arg(ap, double); + va_arg(ap, double); + va_arg(ap, double); + d5 = va_arg(ap, double); + va_arg(ap, double); + va_arg(ap, double); + d6 = va_arg(ap, double); + } else { + d1 = va_arg(ap, double); + d2 = va_arg(ap, double); + d3 = va_arg(ap, double); + d4 = va_arg(ap, double); + d5 = va_arg(ap, double); + d6 = va_arg(ap, double); + } + va_end(ap); + + scaleFactor = pow(10.0, tf_igettimeprecision(null) - + tf_igettimeprecision((char *) + acc_handle_parent(object))); + d1 *= scaleFactor; + d2 *= scaleFactor; + d3 *= scaleFactor; + d4 *= scaleFactor; + d5 *= scaleFactor; + d6 *= scaleFactor; + + switch (acc_fetch_type(object)) { + case accTchk: + ASSERT(TREE_CODE((tree) object) == TIMING_CHECK); + TIMING_CHECK_PARAM1((tree) object) = (int) max(d1, 0); + switch (acc_fetch_fulltype(object)) { + case accSetuphold: + case accNochange: + TIMING_CHECK_PARAM2((tree) object) = (int) max(d2, 0); + break; + default: + break; + } + break; + + case accPrimitive: + // determine number of delays + switch (acc_fetch_fulltype(object)) { + case accBufif0Gate: + case accBufif1Gate: + case accNotif0Gate: + case accNotif1Gate: + case accNmosGate: + case accPmosGate: + case accRnmosGate: + case accRpmosGate: + case accCmosGate: + case accRcmosGate: + delayCount = 3; + break; + case accPulldownGate: + case accPullupGate: + case accTranGate: + case accRtranGate: + delayCount = 0; + break; + default: + delayCount = 2; + break; + } + + // create a new delay node + switch (delayCount) { + case 2: + delayNode = build_nt(DELAY_EXPR, + build_int_cst((int) max(d1, 0)), + build_int_cst((int) max(d2, 0))); + TREE_LABEL(delayNode) = 2; + break; + case 3: + if (pli_info.config.accToHiZDelay_ == eDelayMin) { + d3 = min(d1, d2); + } else if (pli_info.config.accToHiZDelay_ == eDelayMax) { + d3 = max(d1, d2); + } else if (pli_info.config.accToHiZDelay_ == eDelayAverage) { + d3 = (d1 + d2) / 2; + } + + delayNode = build_nt(DELAY_EXPR, + build_int_cst((int) max(d1, 0)), + build_int_cst((int) max(d2, 0)), + build_int_cst((int) max(d3, 0))); + TREE_LABEL(delayNode) = 3; + break; + default: + return (false); + } + + + // create code for delay + pass3_delay(delayNode); + ASSERT(TREE_CODE((tree) object) == GATE_INSTANCE); + GATE_DELAY((tree) object) = delayNode; + break; + case accModPath: + + pathInstance = (tree) object; + ASSERT(TREE_CODE(pathInstance) == PATH_INSTANCE); + + pathDesc = PATH_INSTANCE_PATHDESC(pathInstance); + ASSERT(TREE_CODE(pathDesc) == PATH_NODE); + + module = PATH_INSTANCE_MODULE(pathInstance); + ASSERT(TREE_CODE(module) == MODULE_BLOCK); + + for (instance = MODULE_SPECINST(module); + instance != NULL_TREE; instance = TREE_CHAIN(instance)) { + + if (TREE_CODE(instance) != PATH_OUTPUT) { + continue; + } + + + for (constraint = PATH_OUTPUT_CONSTRAINTS(instance); + constraint != NULL_TREE; + constraint = TREE_CHAIN(constraint)) { + + ASSERT(TREE_CODE(constraint) == PATH_CONSTRAINT); + if (PATH_CONSTRAINT_PATHDESC(constraint) == pathDesc) { + int oldTurnOff[2]; + int newTurnOff[2]; + oldTurnOff[0] = + PATH_CONSTRAINT_DELAY(constraint, ZERO, Z); + oldTurnOff[1] = + PATH_CONSTRAINT_DELAY(constraint, ONE, Z); + switch (pli_info.config.accPathDelayCount_) { + case 1: + PATH_CONSTRAINT_DELAY(constraint, ZERO, ONE) = + (int) d1; + PATH_CONSTRAINT_DELAY(constraint, ONE, ZERO) = + (int) d1; + PATH_CONSTRAINT_DELAY(constraint, Z, ONE) = + (int) d1; + PATH_CONSTRAINT_DELAY(constraint, Z, ZERO) = + (int) d1; + newTurnOff[0] = (int) max(d1, 0); + newTurnOff[1] = (int) max(d1, 0); + break; + case 2: + PATH_CONSTRAINT_DELAY(constraint, ZERO, ONE) = + (int) d1; + PATH_CONSTRAINT_DELAY(constraint, ONE, ZERO) = + (int) d2; + PATH_CONSTRAINT_DELAY(constraint, Z, ONE) = + (int) d1; + PATH_CONSTRAINT_DELAY(constraint, Z, ZERO) = + (int) d2; + newTurnOff[0] = (int) max(d1, 0); + newTurnOff[1] = (int) max(d2, 0); + break; + case 3: + PATH_CONSTRAINT_DELAY(constraint, ZERO, ONE) = + (int) d1; + PATH_CONSTRAINT_DELAY(constraint, ONE, ZERO) = + (int) d2; + PATH_CONSTRAINT_DELAY(constraint, Z, ONE) = + (int) d1; + PATH_CONSTRAINT_DELAY(constraint, Z, ZERO) = + (int) d2; + newTurnOff[0] = (int) max(d3, 0); + newTurnOff[1] = (int) max(d3, 0); + break; + case 6: + PATH_CONSTRAINT_DELAY(constraint, ZERO, ONE) = + (int) d1; + PATH_CONSTRAINT_DELAY(constraint, ONE, ZERO) = + (int) d2; + PATH_CONSTRAINT_DELAY(constraint, Z, ONE) = + (int) d4; + PATH_CONSTRAINT_DELAY(constraint, Z, ZERO) = + (int) d6; + newTurnOff[0] = (int) max(d3, 0); + newTurnOff[1] = (int) max(d5, 0); + break; + } + if (pli_info.config.accToHiZDelay_ == eDelayMin) { + PATH_CONSTRAINT_DELAY(constraint, ZERO, Z) = + min(newTurnOff[0], newTurnOff[1]); + PATH_CONSTRAINT_DELAY(constraint, ONE, Z) = + min(newTurnOff[0], newTurnOff[1]); + } else if (pli_info.config.accToHiZDelay_ == eDelayMax) { + PATH_CONSTRAINT_DELAY(constraint, ZERO, Z) = + max(newTurnOff[0], newTurnOff[1]); + PATH_CONSTRAINT_DELAY(constraint, ONE, Z) = + max(newTurnOff[0], newTurnOff[1]); + } else if (pli_info.config.accToHiZDelay_ == + eDelayAverage) { + PATH_CONSTRAINT_DELAY(constraint, ZERO, Z) = + avg(newTurnOff[0], newTurnOff[1]); + PATH_CONSTRAINT_DELAY(constraint, ONE, Z) = + avg(newTurnOff[0], newTurnOff[1]); + } else { + PATH_CONSTRAINT_DELAY(constraint, ZERO, Z) = + newTurnOff[0]; + PATH_CONSTRAINT_DELAY(constraint, ONE, Z) = + newTurnOff[1]; + } + setXPathConstraints(constraint); + } + } + } + break; + default: + acc_error_flag = TRUE; + tf_error("Illegal object in acc_replace_delays()"); + return (0); + + } + return (1); +} + + +/**************************************************************** + + acc_append_delays + - add delays for given object + +*****************************************************************/ +bool acc_append_delays(handle object, ...) +{ + double xd[18]; + int save_error_flag; + va_list ap; + int i; + + acc_error_flag = FALSE; + save_error_flag = pli_info.config.accDisplayErrors_; + pli_info.config.accDisplayErrors_ = 0; + if (!acc_fetch_delays + (object, &xd[0], &xd[1], &xd[2], &xd[3], &xd[4], &xd[5], &xd[6], + &xd[7], &xd[8], &xd[9], &xd[10], &xd[11], &xd[12], &xd[13], + &xd[14], &xd[15], &xd[16], &xd[17])) { + acc_error_flag = TRUE; + pli_info.config.accDisplayErrors_ = save_error_flag; + tf_error("Illegal object in acc_append_delays()"); + return (0); + + } + + va_start(ap, object); + for (i = 0; i < 18; i++) { + xd[i] += va_arg(ap, double); + } + va_end(ap); + + if (!acc_replace_delays + (object, xd[0], xd[1], xd[2], xd[3], xd[4], xd[5], xd[6], xd[7], + xd[8], xd[9], xd[10], xd[11], xd[12], xd[13], xd[14], xd[15], + xd[16], xd[17])) { + acc_error_flag = TRUE; + pli_info.config.accDisplayErrors_ = save_error_flag; + tf_error("Illegal object in acc_append_delays()"); + return (0); + + } + pli_info.config.accDisplayErrors_ = save_error_flag; + return (1); + +} + +/**************************************************************** + acc_fetch_pulsere +*****************************************************************/ +bool +acc_fetch_pulsere(handle path, double *f1, double *e1, double *f2, + double *e2, double *f3, double *e3, double *f4, + double *e4, double *f5, double *e5, double *f6, + double *e6) +{ + acc_error_flag = FALSE; + tf_error("acc_fetch_pulsere() not supported"); + return (0); +} + +/**************************************************************** + acc_append_pulsere +*****************************************************************/ +bool +acc_append_pulsere(handle path, double f1, double e1, double f2, double e2, + double f3, double e3, double f4, double e4, double f5, + double e5, double f6, double e6) +{ + acc_error_flag = TRUE; + tf_error("acc_append_pulsere() not supported"); + return (0); +} + +/**************************************************************** + acc_replace_pulsere +*****************************************************************/ +bool +acc_replace_pulsere(handle path, double f1, double e1, double f2, + double e2, double f3, double e3, double f4, double e4, + double f5, double e5, double f6, double e6) +{ + acc_error_flag = TRUE; + tf_error("acc_replace_pulsere() not supported"); + return (0); +} + +/**************************************************************** + acc_set_pulsere +*****************************************************************/ +bool +acc_set_pulsere(handle path, double reject_percentage, double e_percentage) +{ + acc_error_flag = TRUE; + tf_error("acc_set_pulsere() not supported"); + return (0); +} + +/************************************************************************ + * acc_fetch_value * +/***********************************************************************/ + +char *acc_fetch_value(handle object, char *format, ...) +{ + int num_bits = acc_fetch_size(object); + int num_chars; + enum radii radix; + Group *g; + char *return_pointer; + int num_groups; + p_acc_value value; + va_list ap; + char *result; + + acc_error_flag = FALSE; + num_groups = (num_bits - 1) / 32 + 1; + g = fetch_storage((tree) object); + + switch (format[1]) { + case 'b': + radix = BIN; + num_chars = num_bits; + break; + + case 'd': + radix = DEC; + num_chars = num_bits / 3; + break; + + case 'o': + radix = OCT; + num_chars = num_bits / 3; + break; + + case 'h': + case 'x': + radix = HEX; + num_chars = num_bits / 4; + break; + + case '%': + va_start(ap, format); + value = va_arg(ap, p_acc_value); + switch (value->format) { + case accBinStrVal: + result = acc_fetch_value(object, "%b"); + value->value.str = result; + break; + case accOctStrVal: + result = acc_fetch_value(object, "%o"); + value->value.str = result; + break; + case accDecStrVal: + result = acc_fetch_value(object, "%d"); + value->value.str = result; + break; + case accHexStrVal: + result = acc_fetch_value(object, "%h"); + value->value.str = result; + break; + case accIntVal: + value->value.integer = AVAL(g); + result = NULL; + break; + case accRealVal: + value->value.real = g->real; + result = NULL; + break; + case accScalarVal: + switch ((AVAL(g) & 1) | ((BVAL(g) & 1) << 1)) { + case 0: + value->value.scalar = vcl0; + break; + case 1: + value->value.scalar = vcl1; + break; + case 2: + value->value.scalar = vclZ; + break; + case 3: + value->value.scalar = vclX; + break; + } + result = NULL; + break; + case accStringVal: + value->value.str = GroupToString(g, num_bits, num_groups); + result = NULL; + break; + case accVectorVal: + memcpy(value->value.vector, g, + num_groups * sizeof(s_acc_vecval)); + result = NULL; + break; + } + va_end(ap); + return (result); + case 'v': + default: + acc_error_flag = FALSE; + return (null); + } + global_print_override = 1; + global_print_buffer = (char *) xmalloc(num_chars + 1); + global_print_p = global_print_buffer; + print_datum_file(0, g, (nbits_t) 0, num_bits, radix, 0, 1, 0); + + return_pointer = pli_write_string(global_print_buffer); + + free(global_print_buffer); + global_print_override = 0; + return return_pointer; +} + +/************************************************************************ + * + * tf_strgetp + * tf_istrgetp + * + ***********************************************************************/ + +char *tf_strgetp(int nparam, char format_character) +{ + return (tf_istrgetp(nparam, format_character, tf_getinstance())); +} + +char *tf_istrgetp(int nparam, char format_character, char *instance) +{ + char *result; + tree arg; + Group *g; + int numbits; + enum radii radix; + int num_chars; + + + result = NULL; + arg = nth_parameter(nparam, (tree) instance); + if (arg == NULL) { + return (result); + } + + numbits = TREE_NBITS(*TREE_EXPR_CODE(arg)); + stack_allocate(); + eval(TREE_EXPR_CODE(arg)); + g = *--R; + + switch (format_character) { + case 'd': + case 'D': + radix = DEC; + num_chars = numbits / 3; + break; + case 'h': + case 'H': + radix = HEX; + num_chars = numbits / 4; + break; + case 'b': + case 'B': + radix = BIN; + num_chars = numbits; + break; + case 'o': + case 'O': + radix = OCT; + num_chars = numbits / 3; + break; + default: + return (NULL); + } + global_print_override = 1; + global_print_buffer = (char *) xmalloc(num_chars + 1); + global_print_p = global_print_buffer; + print_datum_file(0, g, (nbits_t) 0, numbits, radix, 0, 0, 0); + + result = pli_write_string(global_print_buffer); + + free(global_print_buffer); + global_print_override = 0; + return (result); +} + +/************************************************************************ + * acc_vcl_add * +/***********************************************************************/ + +void +acc_vcl_add(handle hobject, int (*routine) (s_vc_record *), + char *user_data, int VCL_flags) +{ + struct pli_vcl *vcl; + Marker *vcl_marker; + struct Marker_info marker_info; + + tree object = (tree) hobject; + + acc_error_flag = FALSE; + + if (VCL_flags != vcl_verilog_logic + && VCL_flags != vcl_verilog_strength) { + acc_error_flag = TRUE; + tf_error + ("only 'vcl_verilog_logic' flag is supported in acc_vcl_add()"); + return; + } + // check for a port or terminal + + if (TREE_CODE(object) == TREE_LIST) { + object = TREE_PURPOSE(object); + if (PORT_REDEFINED_ATTR(object)) { + object = DECL_THREAD(object); + } + } + + if (*tree_code_type[TREE_CODE(object)] != 'd') { + tf_error("Illegal object type for acc_vcl_add"); + acc_error_flag = TRUE; + return; + } + + if (lookup_vcl(object, routine, user_data, &vcl_marker)) { + tf_warning("vcl already set in acc_vcl_add()"); + return; + } + + marker_info.first = NULL; + marker_info.last = NULL; + marker_info.current_scb = NULL; /* This will bypass SCBs */ + marker_info.flags = (enum marker_flags) (M_VCL + M_FIXED); + marker_info.delay = 0; + + BuildMarker(object, &marker_info); + vcl_marker = marker_info.first; + vcl = (struct pli_vcl *) xmalloc(sizeof(struct pli_vcl)); + vcl->marker = vcl_marker; + vcl->decl = object; + vcl->routine = routine; + vcl->user_data = user_data; + vcl_marker->expr.vcl = vcl; +} + +/* Scan the markers for an object (already assumed to be a decl) for one that + was generated by a similar acc_vcl_add call. If found, pass make the + marker address and return nonzero. */ + +static int +lookup_vcl(tree hobject, int (*routine) (s_vc_record *), char *user_data, + Marker ** marker) +{ + Marker *mark; + tree object = (tree) hobject; + for (mark = DECL_EVENT_CHAIN(object); mark; mark = mark->next) { + if (mark->flags & M_VCL) { + struct pli_vcl *vcl = (struct pli_vcl *) mark->expr.vcl; + if (vcl->routine == routine && vcl->user_data == user_data) { + *marker = mark; + return 1; + } + } + } + return 0; +} + +//struct t_vc_record vc_record; +s_vc_record vc_record; + +/* This is called from the scheduler when a vcl var has changed */ + +void vcl_dispatch(struct pli_vcl *vcl) +{ + Group *g; + int ival; + + g = DECL_STORAGE(vcl->decl); + vc_record.vc_hightime = CurrentTime.timeh; + vc_record.vc_lowtime = CurrentTime.timel; + vc_record.user_data = vcl->user_data; + + switch (TREE_CODE(vcl->decl)) { + case REG_SCALAR_DECL: + vc_record.vc_reason = sregister_value_change; + goto logic_common; + + case NET_SCALAR_DECL: + vc_record.vc_reason = logic_value_change; + logic_common: + ival = (AVAL(g) & 1) | ((BVAL(g) & 1) << 1); + switch (ival) { + case 0: + vc_record.out_value.logic_value = vcl0; + break; + case 1: + vc_record.out_value.logic_value = vcl1; + break; + case 2: + vc_record.out_value.logic_value = vclZ; + break; + case 3: + vc_record.out_value.logic_value = vclX; + break; + } + break; + + + case REG_VECTOR_DECL: + vc_record.vc_reason = vregister_value_change; + goto vector_common; + + case NET_VECTOR_DECL: + vc_record.vc_reason = vector_value_change; + goto vector_common; + + case INTEGER_DECL: + vc_record.vc_reason = integer_value_change; + goto vector_common; + + case TIME_DECL: + vc_record.vc_reason = time_value_change; + vector_common: + vc_record.out_value.vector_handle = (handle) vcl->decl; + break; + + case REAL_DECL: + vc_record.vc_reason = real_value_change; + vc_record.out_value.real_value = REAL_(g); + break; + + case EVENT_DECL: + vc_record.vc_reason = event_value_change; + goto vector_common; + + + default: + tf_error("Unknown type while dispatching vcl"); + return; + } + (vcl->routine) (&vc_record); +} + +/************************************************************************ + * acc_vcl_delete * +/***********************************************************************/ + +void +acc_vcl_delete(handle hobject, int (*routine) (s_vc_record *), + char *user_data, int VCL_flags) +{ + Marker *vcl_marker; + tree object = (tree) hobject; + + acc_error_flag = FALSE; + if (VCL_flags != vcl_verilog_logic) { + acc_error_flag = TRUE; + tf_error + ("only 'vcl_verilog_logic' flag is supported in acc_vcl_delete()"); + return; + } + + if (lookup_vcl(object, routine, user_data, &vcl_marker)) { + event_undo(vcl_marker); + free(vcl_marker); + } +} + +/**************************************************************** + acc_handle_simulated_net + *****************************************************************/ + +handle acc_handle_simulated_net(handle collapsed_net_handle) +{ + acc_error_flag = FALSE; + // collapsed nets current aren't created + return collapsed_net_handle; +} + +/**************************************************************** + acc_compare_handles + *****************************************************************/ + +bool acc_compare_handles(handle object1, handle object2) +{ + + acc_error_flag = FALSE; + + if (acc_fetch_type(object1) == acc_fetch_type(object2) && + acc_handle_parent(object1) == acc_handle_parent(object2) && + !strcmp(acc_fetch_name(object1), acc_fetch_name(object2))) { + return TRUE; + } + return FALSE; +} + +/**************************************************************** + acc_set_scope +*****************************************************************/ +char *acc_set_scope(handle module, char *name) +{ + acc_error_flag = FALSE; + if (!pli_info.config.accEnableArgsSetScope_) { + if (module == NULL) { + pli_info.scope = acc_next_topmod(NULL); + } else { + pli_info.scope = module; + } + } else { + if (module == NULL && name == NULL) { + pli_info.scope = acc_next_topmod(NULL); + } else if (module == NULL) { + pli_info.scope = resolve_path(NULL, name); + } else { + pli_info.scope = module; + } + } + if (pli_info.scope == NULL) { + tf_error("Unable to set scope in acc_set_scope()"); + acc_error_flag = TRUE; + return (NULL); + } + + return acc_fetch_fullname(pli_info.scope); +} + + + +/*************************************************************** + + append_hierarchy + - add name of parents to string + +****************************************************************/ + +static void append_hierarchy(handle object) +{ + handle parent; + + if (object == NULL) { + return; + } + + parent = acc_handle_parent(object); + if (parent != NULL) { + append_hierarchy(parent); + } + append_name(object); + pli_append_string("."); +} + +/*************************************************************** + + acc_fetch_fullname + - return full name of object + +****************************************************************/ +char *acc_fetch_fullname(handle object) +{ + acc_error_flag = FALSE; + + if (object == NULL) { + acc_error_flag = TRUE; + tf_error("Bad handle in acc_fetch_fullname()"); + return (NULL); + } + + pli_write_string(NULL); // start a new string + append_hierarchy(acc_handle_parent(object)); + return (append_name(object)); +} + +/**************************************************************** + + acc_handle_object + - return the handle to named object + +*****************************************************************/ + +handle acc_handle_object(char *path) +{ + handle object; + acc_error_flag = FALSE; + object = acc_handle_by_name(path, pli_info.scope); + if (object == NULL) { + object = acc_handle_by_name(path, null); + } + if (object == NULL) { + acc_error_flag = TRUE; + } + return (object); +} + +/************************************************************************ + * acc_next_scope * +/***********************************************************************/ + +handle acc_next_scope(handle module, handle scope) +{ + + acc_error_flag = FALSE; + if (!module) + return acc_next_topmod(scope); + else if (!scope) + return (handle) BLOCK_DOWN((tree) module); + else + return (handle) TREE_CHAIN((tree) scope); +} + +/************************************************************************ + * acc_reset_buffer * +/***********************************************************************/ + +void acc_reset_buffer(void) +{ + acc_error_flag = FALSE; + pli_info.p = pli_info.stringbuf; + pli_info.lastCopy = NULL; +} + +/************************************************************************ + * acc_set_interactive_scope * +/***********************************************************************/ + +handle acc_set_interactive_scope(void) +{ + acc_error_flag = FALSE; + pli_info.scope = (handle) current_scope; + return (pli_info.scope); +} + +/************************************************************************ + * acc_handle_interactive_scope * +/***********************************************************************/ + +handle acc_handle_interactive_scope(void) +{ + acc_error_flag = FALSE; + return (handle) current_scope; +} + +/************************************************************************ + * acc_handle_tfinst * +/***********************************************************************/ + +handle acc_handle_tfinst(void) +{ + acc_error_flag = FALSE; + return (handle) tf_getinstance(); +} + +/************************************************************************ + * tf_write_save * +/***********************************************************************/ + +int tf_write_save(char *blockptr, int blocklen) +{ + tf_error("tf_write_save() is not supported"); + return (0); +} + +/************************************************************************ + * tf_read_restart * +/***********************************************************************/ + +int tf_read_restart(char *blockptr, int blocklen) +{ + tf_error("tf_read_restart() is not supported"); + return (0); +} + +/************************************************************************ + * acc_handle_scope * +/***********************************************************************/ + +handle acc_handle_scope(handle object) +{ + return acc_handle_parent(object); +} + +/************************************************************************ + * acc_fetch_tfarg * +/***********************************************************************/ + +double acc_fetch_tfarg(int argumentNumber) +{ + int type; + int high; + int low; + double result; + int size; + + acc_error_flag = FALSE; + + if (argumentNumber < 1 || argumentNumber > tf_nump()) { + tf_warning + ("argument number %d is out of range in acc_fetch_tfarg()", + argumentNumber); + return (0.0); + } + + type = tf_typep(argumentNumber); + size = tf_sizep(argumentNumber); + + switch (type) { + case tf_readonly: + case tf_readwrite: + case tf_rwbitselect: + case tf_rwpartselect: + if (size <= 32) { + high = 0; + low = tf_getp(argumentNumber); + tf_long_to_real(low, high, &result); + return (result); + } else { + low = tf_getlongp(&high, argumentNumber); + tf_long_to_real(low, high, &result); + return (result); + } + case tf_readonlyreal: + case tf_readwritereal: + return (tf_getrealp(argumentNumber)); + case tf_nullparam: + case tf_string: + default: + tf_warning + ("argument number %d in acc_fetch_tfarg() is not representable", + argumentNumber); + return (0.0); + } + +} + +/************************************************************************ + * acc_fetch_tfarg_int * +/***********************************************************************/ + +int acc_fetch_tfarg_int(int argumentNumber) +{ + int type; + int high; + int low; + double real; + int size; + + acc_error_flag = FALSE; + + if (argumentNumber < 1 || argumentNumber > tf_nump()) { + tf_warning + ("argument number %d is out of range in acc_fetch_tfarg_int()", + argumentNumber); + return (0); + } + + type = tf_typep(argumentNumber); + size = tf_sizep(argumentNumber); + + switch (type) { + case tf_readonly: + case tf_readwrite: + case tf_rwbitselect: + case tf_rwpartselect: + return tf_getp(argumentNumber); + case tf_readonlyreal: + case tf_readwritereal: + real = tf_getrealp(argumentNumber); + tf_real_to_long(real, &low, &high); + return (low); + case tf_nullparam: + case tf_string: + default: + tf_warning + ("argument number %d in acc_fetch_tfarg_int() is not representable", + argumentNumber); + return (0); + } + +} + +/************************************************************************ + * acc_fetch_tfarg_str * +/***********************************************************************/ + +char *acc_fetch_tfarg_str(int argumentNumber) +{ + int type; + char buffer[64]; + + + acc_error_flag = FALSE; + + if (argumentNumber < 1 || argumentNumber > tf_nump()) { + tf_warning + ("argument number %d is out of range in acc_fetch_tfarg_str()", + argumentNumber); + return (NULL); + } + + type = tf_typep(argumentNumber); + + switch (type) { + case tf_string: + return (tf_getcstringp(argumentNumber)); + case tf_readonly: + case tf_readwrite: + case tf_rwbitselect: + case tf_rwpartselect: + sprintf(buffer, "%d", tf_getp(argumentNumber)); + return pli_write_string(buffer); + case tf_readonlyreal: + case tf_readwritereal: + sprintf(buffer, "%g", tf_getrealp(argumentNumber)); + return pli_write_string(buffer); + case tf_nullparam: + default: + tf_warning + ("argument number %d in acc_fetch_tfarg_str() is not representable", + argumentNumber); + return (NULL); + } + +} + +/************************************************************************ + * acc_handle_tfarg * +/***********************************************************************/ + +handle acc_handle_tfarg(int argnum) +{ + tree arg; + int type; + + acc_error_flag = FALSE; + + arg = nth_arg(argnum, (tree) tf_getinstance()); + type = tf_typep(argnum); + switch (type) { + case tf_nullparam: + return (NULL); + case tf_string: + return (acc_handle_object(tf_getcstringp(argnum))); + case tf_readwrite: + case tf_rwpartselect: + case tf_rwbitselect: + case tf_readwritereal: + case tf_readonlyreal: + return ((handle) arg); + } + + switch (TREE_CODE(arg)) { + case BLOCK_DECL: + return (acc_handle_object(IDENT(DECL_NAME(arg)))); + case IDENTIFIER_NODE: + return (acc_handle_object(IDENT(arg))); + case NET_SCALAR_DECL: + case NET_VECTOR_DECL: + case MODULE_BLOCK: + return ((handle) arg); + + } + + return (handle) NULL; +} + +/**************************************************************** + + acc_next_parameter + +*****************************************************************/ +handle acc_next_parameter(handle reference, handle param) +{ + tree next; + + acc_error_flag = FALSE; + + if (param == NULL) { + next = BLOCK_DECL((tree) reference); + } else { + next = TREE_CHAIN((tree) param); + } + + while (next != NULL && acc_fetch_type((handle) next) != accParameter) { + next = TREE_CHAIN(next); + } + return ((handle) next); +} + +/**************************************************************** + + acc_next_specparam + +*****************************************************************/ +handle acc_next_specparam(handle reference, handle param) +{ + tree next; + + acc_error_flag = FALSE; + + if (param == NULL) { + next = BLOCK_DECL((tree) reference); + } else { + next = TREE_CHAIN((tree) param); + } + + while (next != NULL && acc_fetch_type((handle) next) != accSpecparam) { + next = TREE_CHAIN(next); + } + return ((handle) next); +} + +/**************************************************************** + + acc_fetch_delay_mode + +*****************************************************************/ +int acc_fetch_delay_mode(handle module) +{ + acc_error_flag = FALSE; + return (accDelayModeNone); +} + +/**************************************************************** + + acc_fetch_paramtype + +*****************************************************************/ +int acc_fetch_paramtype(handle param) +{ + int type; + + acc_error_flag = FALSE; + type = acc_fetch_type(param); + if (type != accParameter && type != accSpecparam) { + acc_error_flag = TRUE; + return (0); + } + return (acc_fetch_fulltype(param)); +} + +/**************************************************************** + + acc_fetch_paramval + +*****************************************************************/ +double acc_fetch_paramval(handle param) +{ + int type; + s_acc_value value; + + acc_error_flag = FALSE; + type = acc_fetch_paramtype(param); + switch (type) { + case accRealParam: + value.format = accRealVal; + acc_fetch_value(param, "%%", &value); + return (value.value.real); + case accIntegerParam: + value.format = accIntVal; + acc_fetch_value(param, "%%", &value); + return ((double) value.value.integer); + case accStringParam: + value.format = accStringVal; + acc_fetch_value(param, "%%", &value); + return ((double) (long) value.value.str); + default: + acc_error_flag = TRUE; + return (0); + } +} + +/**************************************************************** + acc_next_portout +*****************************************************************/ +handle acc_next_portout(handle reference, handle port) +{ + while (TRUE) { + port = acc_next_port(reference, port); + if (port == NULL || acc_fetch_direction(port) != accInput) { + return (port); + } + } +} + +/**************************************************************** + tf_getworkarea + tf_igetworkarea +*****************************************************************/ + +char *tf_getworkarea(void) +{ + return (tf_igetworkarea(tf_getinstance())); +} + +char *tf_igetworkarea(char *instance) +{ + tree node; + + node = (tree) instance; + switch (TREE_CODE(node)) { + case SYSTASK_STMT: + return STMT_SYSTASK_WORKAREA(node); + case SYSFUNCTION_REF: + return FUNC_REF_WORKAREA(node); + default: + return (NULL); + } +} + +/**************************************************************** + tf_setworkarea + tf_isetworkarea +*****************************************************************/ + +void tf_setworkarea(char *area) +{ + tf_isetworkarea(area, tf_getinstance()); +} + +void tf_isetworkarea(char *area, char *instance) +{ + tree node; + + node = (tree) instance; + switch (TREE_CODE(node)) { + case SYSTASK_STMT: + STMT_SYSTASK_WORKAREA(node) = area; + break; + case SYSFUNCTION_REF: + FUNC_REF_WORKAREA(node) = area; + break; + } +} + +/**************************************************************** + freePliDelayNode +*****************************************************************/ + +void freePliDelayNode(tree node) +{ + if (PLI_DELAY_STORAGE(node)) { + free(PLI_DELAY_STORAGE(node)); + } + + PLI_DELAY_NEXT(node) = delayFreeList; + delayFreeList = node; +} + +/**************************************************************** + tf_setlongdelay + tf_isetlongdelay +*****************************************************************/ + +int tf_setlongdelay(int low, int high) +{ + return (tf_isetlongdelay(low, high, tf_getinstance())); +} + +int tf_isetlongdelay(int low, int high, char *instance) +{ + tree delayNode; + tree t; + time64 delay; + time64 newTime; + tree pliNode; + struct SCB *scb; + tree *prev; + + pliNode = (tree) instance; + tf_scale_longdelay(instance, low, high, (int *) &delay.timel, + (int *) &delay.timeh); + + if (pliNode == NULL) { + return (0); + } + + switch (TREE_CODE(pliNode)) { + case SYSTASK_STMT: + scb = STMT_SYSTASK_DELAYSCB(pliNode); + break; + case SYSFUNCTION_REF: + scb = FUNC_REF_DELAYSCB(pliNode); + break; + default: + return (0); + } + + + if (delayFreeList) { + delayNode = delayFreeList; + delayFreeList = PLI_DELAY_NEXT(delayNode); + } else { + delayNode = make_node(PLI_DELAY); + } + + ADDTIME6464(&newTime, &CurrentTime, &delay); + PLI_DELAY_NODE(delayNode) = pliNode; + + PLI_DELAY_TIME(delayNode) = newTime; + PLI_DELAY_LVAL(delayNode) = NULL; + PLI_DELAY_STORAGE(delayNode) = NULL; + + if (scb != NULL) { + for (prev = &scb->pc, t = scb->pc; t; + prev = &PLI_DELAY_NEXT(t), t = PLI_DELAY_NEXT(t)) { + if (CMPTIME64(&newTime, &PLI_DELAY_TIME(t)) < 0) { + break; + } + } + *prev = delayNode; + PLI_DELAY_NEXT(delayNode) = t; + } else { + PLI_DELAY_NEXT(delayNode) = NULL; + scb = BuildSCB(delayNode, NOLIST); + + switch (TREE_CODE(pliNode)) { + case SYSTASK_STMT: + STMT_SYSTASK_DELAYSCB(pliNode) = scb; + break; + case SYSFUNCTION_REF: + FUNC_REF_DELAYSCB(pliNode) = scb; + break; + default: + ASSERT(FALSE); + } + } + if (scb->pc == delayNode && scb != readylist) { + Schedule64(&newTime, scb, FALSE); + } + + return (1); +} + +/**************************************************************** + tf_setdelay + tf_isetdelay +*****************************************************************/ + +int tf_setdelay(int delay) +{ + return (tf_isetdelay(delay, tf_getinstance())); +} + +int tf_isetdelay(int delay, char *instance) +{ + return (tf_isetlongdelay(delay, 0, instance)); +} + +/**************************************************************** + tf_setrealdelay + tf_isetrealdelay +*****************************************************************/ + +int tf_setrealdelay(double delay) +{ + return (tf_isetrealdelay(delay, tf_getinstance())); +} + +int tf_isetrealdelay(double delay, char *instance) +{ + int high; + int low; + double scaledDelay; + + tf_scale_realdelay(instance, delay, &scaledDelay); + tf_real_to_long(scaledDelay, &low, &high); + tf_unscale_longdelay(instance, low, high, &low, &high); + return (tf_isetlongdelay(low, high, instance)); + +} + +/**************************************************************** + tf_clearalldelays + tf_iclearalldelays +*****************************************************************/ + +void tf_clearalldelays(void) +{ + tf_clearalldelays(); +} + +void tf_iclearalldelays(char *instance) +{ + tree delayNode; + tree pliNode; + SCB *scb; + tree prev; + + pliNode = (tree) instance; + + if (pliNode == NULL) { + return; + } + + switch (TREE_CODE(pliNode)) { + case SYSTASK_STMT: + scb = STMT_SYSTASK_DELAYSCB(pliNode); + break; + case SYSFUNCTION_REF: + scb = FUNC_REF_DELAYSCB(pliNode); + break; + default: + return; + } + + + if (scb == NULL) { + return; + } + delayNode = scb->pc; + while (delayNode != NULL) { + prev = delayNode; + delayNode = PLI_DELAY_NEXT(delayNode); + freePliDelayNode(prev); + } + scb->pc = NULL; + FreeSCB(scb); +} + +/**************************************************************** + tf_spname + tf_ispname +*****************************************************************/ +char *tf_spname(void) +{ + return tf_ispname(tf_getinstance()); +} + +char *tf_ispname(char *instance) +{ + handle object = (handle) instance; + + return (acc_fetch_fullname(acc_handle_parent(object))); +} + +/**************************************************************** + acc_fetch_argc +*****************************************************************/ +int acc_fetch_argc(void) +{ + acc_error_flag = FALSE; + return globalArgc; +} + +/**************************************************************** + acc_fetch_argv +*****************************************************************/ +char **acc_fetch_argv(void) +{ + acc_error_flag = FALSE; + return globalArgv; +} + + + +/*************************************************** + tf_text +****************************************************/ + +void tf_text(char *format, ...) +{ + va_list ap; + int oldOffset; + + // this assumes that the text is less than 512 bytes + + oldOffset = pli_info.nextText - pli_info.text; + if (pli_info.textSize - oldOffset < 512) { + pli_info.textSize += 512; + pli_info.text = + (char *) xrealloc(pli_info.text, pli_info.textSize); + if (pli_info.text == NULL) { + tf_error("Out of Memory"); + return; + } + pli_info.nextText = pli_info.text + oldOffset; + } + + va_start(ap, format); + pli_info.nextText += vsprintf(pli_info.nextText, format, ap); + va_end(ap); + return; +} + +/*************************************************** + tf_message +****************************************************/ + +void tf_message(int level, char *facility, char *code, char *format, ...) +{ + va_list ap; + + switch (level) { + case ERR_ERROR: + if (!pli_info.config.accDisplayErrors_) { + return; + } + printf_V("ERROR!\t"); + count_error(FALSE); + break; + case ERR_SYSTEM: + printf_V("SYSTEM!\t"); + count_error(FALSE); + break; + case ERR_INTERNAL: + count_error(FALSE); + printf_V("INTERNAL!\t"); + break; + case ERR_WARNING: + if (!pli_info.config.accDisplayWarnings_) { + return; + } + count_error(TRUE); + printf_V("WARNING!\t"); + break; + case ERR_MESSAGE: + printf_V("MESSAGE!\t"); + break; + } + + *pli_info.nextText = 0; + printf_V(pli_info.text); + pli_info.nextText = pli_info.text; + + va_start(ap, format); + vprintf_V(format, ap); + va_end(ap); + + return; +} + +/*************************************************** + tf_error +****************************************************/ + + +void tf_error(char *format, ...) +{ + va_list ap; + + if (!pli_info.config.accDisplayErrors_) { + return; + } + count_error(FALSE); + printf_V("ERROR! "); + va_start(ap, format); + vprintf_V(format, ap); + va_end(ap); + printf_V("\t[User-PLI]\n"); + return; +} + +/*************************************************** + tf_warning +****************************************************/ + +void tf_warning(char *format, ...) +{ + va_list ap; + + if (!pli_info.config.accDisplayWarnings_) + return; + count_error(TRUE); + printf_V("WARNING! "); + va_start(ap, format); + vprintf_V(format, ap); + va_end(ap); + printf_V("\t[User-PLI]\n"); + return; +} + +/**************************************************************** + + tf_nodeinfo + tf_inodeinfo + +*****************************************************************/ + +struct t_tfnodeinfo *tf_nodeinfo(int nparam, + struct t_tfnodeinfo *nodeinfo_p) +{ + return (tf_inodeinfo(nparam, nodeinfo_p, tf_getinstance())); +} + +struct t_tfnodeinfo *tf_inodeinfo(int nparam, + struct t_tfnodeinfo *nodeinfo_p, + char *instance) +{ + int type; + tree arg; + tree param; + int bits; + + /* this isn't fully implemented + strengths missing + memorys missing + */ + + param = nth_parameter(nparam, (tree) instance); + if (param == NULL) { + return (NULL); + } + arg = TREE_PURPOSE(param); + type = acc_fetch_type((handle) arg); + + bits = tf_isizep(nparam, instance); + + switch (type) { + case accRealVar: + nodeinfo_p->node_type = tf_real_node; + nodeinfo_p->node_value.real_val_p = (double *) DECL_STORAGE(arg); + nodeinfo_p->node_ngroups = 0; + nodeinfo_p->node_vec_size = 0; + nodeinfo_p->node_sign = (*nodeinfo_p->node_value.real_val_p < 0); + break; + case accIntegerVar: + nodeinfo_p->node_type = tf_integer_node; + nodeinfo_p->node_value.vecval_p = + (struct t_vecval *) DECL_STORAGE(arg); + nodeinfo_p->node_ngroups = (bits + 31) / 32; + nodeinfo_p->node_vec_size = bits; + nodeinfo_p->node_sign = (AVAL(DECL_STORAGE(arg)) < 0); + break; + case accTimeVar: + nodeinfo_p->node_type = tf_time_node; + nodeinfo_p->node_value.vecval_p = + (struct t_vecval *) DECL_STORAGE(arg); + nodeinfo_p->node_ngroups = (bits + 31) / 32; + nodeinfo_p->node_vec_size = bits; + nodeinfo_p->node_sign = 0; + break; + case accRegister: + nodeinfo_p->node_type = tf_reg_node; + nodeinfo_p->node_value.vecval_p = + (struct t_vecval *) DECL_STORAGE(arg); + nodeinfo_p->node_ngroups = (bits + 31) / 32; + nodeinfo_p->node_vec_size = bits; + nodeinfo_p->node_sign = 0; + break; + case accNet: + case accPort: + nodeinfo_p->node_type = tf_netvector_node; + nodeinfo_p->node_value.vecval_p = + (struct t_vecval *) DECL_STORAGE(arg); + nodeinfo_p->node_ngroups = (bits + 31) / 32; + nodeinfo_p->node_vec_size = bits; + nodeinfo_p->node_sign = 0; + break; + default: + nodeinfo_p->node_type = tf_null_node; + return nodeinfo_p; + } + + nodeinfo_p->node_symbol = IDENT(DECL_NAME(arg)); + nodeinfo_p->node_handle = NULL; + nodeinfo_p->node_mem_size = 0; + + return (nodeinfo_p); +} + +/**************************************************************** + tf_strlongdelputp + tf_istrlongdelputp +*****************************************************************/ + +int +tf_strlongdelputp(int nparam, int bitlength, int format_char, + char *value_p, int low, int high, int delaytype) +{ + return (tf_istrlongdelputp(nparam, bitlength, format_char, + value_p, low, high, delaytype, + tf_getinstance())); +} + +int +tf_istrlongdelputp(int nparam, int bitlength, int format_char, + char *value_p, int low, int high, int delaytype, + char *instance) +{ + handle object; + s_setval_delay delay; + s_setval_value value; + + object = (handle) nth_arg(nparam, (tree) instance); + if (object == NULL) { + return (0); + } + + delay.time.type = accTime; + delay.time.low = low; + delay.time.high = high; + switch (delaytype) { + case 0: + delay.model = accInertialDelay; + break; + case 1: + delay.model = accTransportDelay; + break; + case 2: + delay.model = accPureTransportDelay; + break; + default: + return (0); + } + + switch (format_char) { + case 'b': + case 'B': + value.format = accBinStrVal; + break; + case 'd': + case 'D': + value.format = accDecStrVal; + break; + case 'h': + case 'H': + value.format = accHexStrVal; + break; + case 'o': + case 'O': + value.format = accOctStrVal; + break; + default: + return (0); + } + value.value.str = value_p; + + return (acc_set_value(object, &value, &delay)); +} + +/**************************************************************** + tf_strdelputp + tf_istrdelputp +*****************************************************************/ + +int +tf_strdelputp(int nparam, int bitlength, int format_char, + char *value_p, int delay, int delaytype) +{ + return (tf_istrdelputp(nparam, bitlength, format_char, + value_p, delay, delaytype, tf_getinstance())); +} + +int +tf_istrdelputp(int nparam, int bitlength, int format_char, + char *value_p, int delay, int delaytype, char *instance) +{ + return (tf_istrlongdelputp(nparam, bitlength, format_char, + value_p, delay, 0, delaytype, instance)); +} + +/**************************************************************** + tf_strrealdelputp + tf_istrrealdelputp +*****************************************************************/ + +int +tf_strrealdelputp(int nparam, int bitlength, int format_char, + char *value_p, double delay, int delaytype) +{ + return (tf_istrrealdelputp(nparam, bitlength, format_char, + value_p, delay, delaytype, + tf_getinstance())); +} + +int +tf_istrrealdelputp(int nparam, int bitlength, int format_char, + char *value_p, double delay, int delaytype, + char *instance) +{ + int high; + int low; + double scaledDelay; + + tf_scale_realdelay(instance, delay, &scaledDelay); + tf_real_to_long(scaledDelay, &low, &high); + tf_unscale_longdelay(instance, low, high, &low, &high); + return (tf_istrlongdelputp(nparam, bitlength, format_char, + value_p, low, high, delaytype, instance)); + +} + +/**************************************************************** + tf_getpchange + tf_igetpchange +*****************************************************************/ +int tf_getpchange(int nparam) +{ + return (tf_igetpchange(nparam, tf_getinstance())); +} + +int tf_igetpchange(int nparam, char *instance) +{ + tree param; + int index; + PliInfo_t *info; + + index = nparam + 1; + while (TRUE) { + param = nth_parameter(index, (tree) instance); + if (param == NULL) { + return (0); + } + info = (PliInfo_t *) TREE_PLIINFO(param); + if (info->saved_pvc) { + return (index); + } + index++; + } + +} + +/**************************************************************** + tf_copypvc_flag + tf_icopypvc_flag +*****************************************************************/ +int tf_copypvc_flag(int nparam) +{ + return (tf_icopypvc_flag(nparam, tf_getinstance())); +} + +int tf_icopypvc_flag(int nparam, char *instance) +{ + tree param; + int index; + int acc; + PliInfo_t *info; + + if (nparam == -1) { + index = 1; + } else { + index = nparam; + } + + acc = FALSE; + while (TRUE) { + param = nth_parameter(index, (tree) instance); + if (param == NULL) { + break; + } + info = (PliInfo_t *) TREE_PLIINFO(param); + info->saved_pvc = info->pvc; + acc |= info->saved_pvc; + if (nparam != -1) { + break; + } + index++; + } + + return (acc); + +} + +/**************************************************************** + tf_movepvc_flag + tf_imovepvc_flag +*****************************************************************/ +int tf_movepvc_flag(int nparam) +{ + return (tf_imovepvc_flag(nparam, tf_getinstance())); +} + +int tf_imovepvc_flag(int nparam, char *instance) +{ + tree param; + int index; + int acc; + PliInfo_t *info; + + if (nparam == -1) { + index = 1; + } else { + index = nparam; + } + + acc = FALSE; + while (TRUE) { + param = nth_parameter(index, (tree) instance); + if (param == NULL) { + break; + } + info = (PliInfo_t *) TREE_PLIINFO(param); + info->saved_pvc = info->pvc; + info->pvc = FALSE; + acc |= info->saved_pvc; + if (nparam != -1) { + break; + } + index++; + } + + return (acc); + +} + +/**************************************************************** + tf_testpvc_flag + tf_itestpvc_flag +*****************************************************************/ +int tf_testpvc_flag(int nparam) +{ + return (tf_itestpvc_flag(nparam, tf_getinstance())); +} + +int tf_itestpvc_flag(int nparam, char *instance) +{ + tree param; + int index; + int acc; + PliInfo_t *info; + + if (nparam == -1) { + index = 1; + } else { + index = nparam; + } + + acc = FALSE; + while (TRUE) { + param = nth_parameter(index, (tree) instance); + if (param == NULL) { + break; + } + info = (PliInfo_t *) TREE_PLIINFO(param); + acc |= info->saved_pvc; + if (nparam != -1) { + break; + } + index++; + } + + return (acc); + +} + +/**************************************************************** + tf_getnextlongtime +*****************************************************************/ +int tf_getnextlongtime(int *aof_lowtime, int *aof_hightime) +{ + tree gate; + int timeh; + int timel; + int result; + + + if (!roFlag) { + timel = CurrentTime.timel; + timeh = CurrentTime.timeh; + result = 2; + goto DONE; + } + + gate = PeekGate(); + + if (gate != NULL && timelist != NULL) { + if (CMPTIME64(&GATE_TIMEQ(gate)->timeIndex, &timelist->time) > 0) { + gate = NULL; + } + } + + if (gate != NULL) { + timel = GATE_TIMEQ(gate)->timeIndex.timel; + timeh = GATE_TIMEQ(gate)->timeIndex.timeh; + result = 0; + goto DONE; + } + + if (timelist != NULL) { + timel = timelist->time.timel; + timeh = timelist->time.timeh; + result = 0; + goto DONE; + } + + + + timeh = 0; + timel = 0; + result = 1; + DONE: + + /* + * in this call time is unscaled (vcs behavior) + * ieee 95 contradicts this + */ + *aof_lowtime = timel; + *aof_hightime = timeh; + + return result; +} + +/**************************************************************** + + acc_fetch_direction + - return port or terminal direction type + +*****************************************************************/ +int acc_fetch_direction(handle object) +{ + tree t = (tree) object; + tree gate; + + acc_error_flag = FALSE; + + if (t == NULL_TREE || TREE_CODE(t) != TREE_LIST) { + acc_error_flag = TRUE; + return (0); + } + + gate = GATE_TERMINAL_GATE(t); + if (gate == NULL || TREE_CODE(gate) != GATE_INSTANCE) { + t = TREE_PURPOSE(t); + } + + if (PORT_INPUT_ATTR(t) && PORT_OUTPUT_ATTR(t)) { + return (accInout); + } + if (PORT_INPUT_ATTR(t)) { + return (accInput); + } + + if (PORT_OUTPUT_ATTR(t)) { + return (accOutput); + } + + acc_error_flag = TRUE; + return (0); + +} + +/**************************************************************** + + acc_handle_tchk + - return specified timing check + +*****************************************************************/ + +handle +acc_handle_tchk(handle module, int tchk_type, char *net1_name, + int edge1, char *net2_name, int edge2, ...) +{ + handle tchk; + handle object; + char *name1; + char *name2; + va_list args; + + name1 = net1_name; + name2 = net2_name; + if (pli_info.config.accEnableArgsTchk_) { + va_start(args, edge2); + if (net1_name == NULL) { + object = va_arg(args, handle); + name1 = acc_fetch_name(object); + } + if (net2_name == NULL && tchk_type != accWidth && + tchk_type != accPeriod) { + object = va_arg(args, handle); + name2 = acc_fetch_name(object); + } + va_end(args); + } + + tchk = null; + while (TRUE) { + tchk = acc_next_tchk(module, tchk); + if (tchk == null) { + return (null); + } + if (acc_fetch_fulltype(tchk) != tchk_type) { + continue; + } + if (strcmp + (name1, + acc_fetch_name(acc_handle_conn(acc_handle_tchkarg1(tchk)))) + || (edge1 != 0 + && TIMING_CHECK_EDGESPEC((tree) tchk, 0) != edge1)) { + continue; + } + if (name2 != NULL && name2[0] != 0 && + (strcmp + (name2, + acc_fetch_name(acc_handle_conn(acc_handle_tchkarg2(tchk)))) + || (edge2 != 0 + && TIMING_CHECK_EDGESPEC((tree) tchk, 1) != edge2))) { + continue; + } + return (tchk); + } +} + +/**************************************************************** + + acc_handle_tchkarg1 + - return first net of timing check + +*****************************************************************/ + +handle acc_handle_tchkarg1(handle tchk) +{ + tree instance; + tree decl; + + instance = (tree) tchk; + if (tchk == null || TREE_CODE(instance) != TIMING_CHECK) { + return (null); + } + + decl = TIMING_CHECK_EXPRESSION(instance, 0); + if (decl != NULL && STMT_SURROGATE_ATTR(decl)) { + decl = TREE_CHAIN(decl); + } + return ((handle) decl); +} + + +/**************************************************************** + + acc_handle_tchkarg2 + - return first net of timing check + +*****************************************************************/ + +handle acc_handle_tchkarg2(handle tchk) +{ + tree instance; + tree decl; + + instance = (tree) tchk; + if (tchk == null || TREE_CODE(instance) != TIMING_CHECK) { + return (null); + } + + decl = TIMING_CHECK_EXPRESSION(instance, 1); + if (decl != NULL && STMT_SURROGATE_ATTR(decl)) { + decl = TREE_CHAIN(decl); + } + return ((handle) decl); +} + + + +/**************************************************************** + + acc_next_driver + - return the next driver of net + +*****************************************************************/ + +handle acc_next_driver(handle net, handle driver) +{ + tree tnet = (tree) net; + tree tdriver = (tree) driver; + tree surrogate; + tree ndriver; + + + // make sure the net is not one of the surrogates + + if (STMT_SURROGATE_ATTR(tnet)) { + tnet = TREE_CHAIN(tnet); + } + // if driver is null start with net as home + // if driver is not null, scan net surrogate until current + // driver is found. + + if (tdriver == NULL_TREE) { + surrogate = tnet; + } else { + for (surrogate = tnet; surrogate; + surrogate = NET_SOURCE(surrogate)) { + ndriver = NET_ASSIGNMENT(surrogate); + if (ndriver == tdriver) { + break; + } + } + ASSERT(surrogate != NULL_TREE); + } + + // keep getting surrogates until a valid driver is found + + do { + surrogate = NET_SOURCE(surrogate); + if (surrogate == NULL) { + return (null); + } + + ndriver = NET_ASSIGNMENT(surrogate); + if (ndriver != null + && acc_fetch_type((handle) ndriver) != accTerminal) { + ndriver = NULL; + } + } + while (ndriver == NULL); + + return ((handle) ndriver); +} + + +/**************************************************************** + + acc_handle_loconn + - return lo net connected to port + +*****************************************************************/ +handle acc_handle_loconn(handle terminal) +{ + tree t = (tree) terminal; + tree decl; + + acc_error_flag = FALSE; + + if (t == NULL) { + acc_error_flag = TRUE; + return NULL; + } + + if (TREE_CODE(t) == TREE_LIST) { + decl = TREE_PURPOSE(t); + } else { + decl = t; + } + + if (PORT_REDEFINED_ATTR(decl)) { + decl = DECL_THREAD(decl); + } +// loconn will have to return registers +/* if( TREE_CODE(decl) != NET_SCALAR_DECL && + TREE_CODE(decl) != NET_VECTOR_DECL ) { + return NULL; + } +*/ + if (decl != NULL && STMT_SURROGATE_ATTR(decl)) { + decl = TREE_CHAIN(decl); + } + return ((handle) decl); +} + +/**************************************************************** + + acc_fetch_index + +*****************************************************************/ +int acc_fetch_index(handle object) +{ + tree t = (tree) object; + tree gate; + tree decl; + tree module; + int pin; + tree port; + + acc_error_flag = FALSE; + + if (t == NULL_TREE || TREE_CODE(t) != TREE_LIST) { + acc_error_flag = TRUE; + return (0); + } + + gate = GATE_TERMINAL_GATE(t); + if (gate != NULL && TREE_CODE(gate) == GATE_INSTANCE) { + return (GATE_TERMINAL_NUMBER(t)); + } + + /* must be a port */ + + decl = TREE_PURPOSE(t); + module = DECL_CONTEXT(decl); + pin = 0; + if (acc_fetch_type((handle) module) == accModule) { + port = MODULE_PORT_LIST(module); + } else { + port = BLOCK_PORTS(module); + } + for (; port != NULL && port != t; port = TREE_CHAIN(port), pin++); + + + if (port == NULL) { + acc_error_flag = TRUE; + } + + return (pin); + +} + +/**************************************************************** + + acc_next_terminal + - return the next terminal of primitive + +*****************************************************************/ + +handle acc_next_terminal(handle primitive, handle terminal) +{ + tree next; + + acc_error_flag = FALSE; + + if (terminal == NULL) { + next = GATE_OUTPUT_LIST((tree) primitive); + } else { + + next = TREE_CHAIN((tree) terminal); + if (next == NULL_TREE && PORT_OUTPUT_ATTR((tree) terminal)) { + next = GATE_INPUT_LIST((tree) primitive); + } + // skip inout that are in input list + while (next != NULL && !PORT_OUTPUT_ATTR(next) && + !PORT_INPUT_ATTR(next)) { + next = TREE_CHAIN(next); + + } + } + return ((handle) next); + + +} + +/**************************************************************** + + acc_handle_path + +*****************************************************************/ +handle acc_handle_path(handle port_output_handle, handle port_input_handle) +{ + acc_error_flag = FALSE; + return null; +} + +/**************************************************************** + + acc_handle_terminal + +*****************************************************************/ +handle acc_handle_terminal(handle primitive_handle, int terminal_index) +{ + handle terminal; + int count; + + terminal = null; + for (count = terminal_index; count >= 0; count--) { + terminal = acc_next_terminal(primitive_handle, terminal); + if (terminal == null) { + break; + } + } + return (terminal); +} + +/**************************************************************** + + acc_handle_modpath + - retrieve a given module path + +*****************************************************************/ + +handle +acc_handle_modpath(handle module, char *src_name, char *dest_name, ...) +{ + handle path; + handle src; + handle dest; + va_list args; + handle inpath; + handle outpath; + + acc_error_flag = FALSE; + + va_start(args, dest_name); + if (pli_info.config.accEnableArgsModpath_) { + src = va_arg(args, handle); + dest = va_arg(args, handle); + } + va_end(args); + + if (src_name != NULL) { + src = acc_handle_by_name(src_name, module); + } + if (dest_name != NULL) { + dest = acc_handle_by_name(dest_name, module); + } + + if (src == NULL || dest == NULL) { + acc_error_flag = TRUE; + return NULL; + } + + path = NULL; + for (path = acc_next_modpath(module, path); + path != NULL; path = acc_next_modpath(module, path)) { + inpath = acc_handle_pathin(path); + outpath = acc_handle_pathout(path); + if (!acc_compare_handles(src, inpath)) { + continue; + } + if (acc_compare_handles(dest, outpath)) { + return path; + } + } + + acc_error_flag = TRUE; + return NULL; + +} + + +/**************************************************************** + + acc_handle_pathin + - retrieve first input of module path + +*****************************************************************/ + +handle acc_handle_pathin(handle mod_path) +{ + handle terminal; + handle net; + + acc_error_flag = FALSE; + + terminal = acc_next_input(mod_path, null); + net = acc_handle_conn(terminal); + acc_release_object(terminal); + return net; + +#if 0 + tree pathInstance; + tree pathDesc; + tree instance; + tree constraint; + tree decl; + tree module; + + acc_error_flag = FALSE; + + pathInstance = (tree) mod_path; + if (TREE_CODE(pathInstance) != PATH_INSTANCE) { + acc_error_flag = TRUE; + return (null); + } + + pathDesc = PATH_INSTANCE_PATHDESC(pathInstance); + ASSERT(TREE_CODE(pathDesc) == PATH_NODE); + + module = PATH_INSTANCE_MODULE(pathInstance); + ASSERT(TREE_CODE(module) == MODULE_BLOCK); + + for (instance = MODULE_SPECINST(module); + instance != NULL_TREE; instance = TREE_CHAIN(instance)) { + + if (TREE_CODE(instance) != PATH_OUTPUT) { + continue; + } + + + for (constraint = PATH_OUTPUT_CONSTRAINTS(instance); + constraint != NULL_TREE; constraint = TREE_CHAIN(constraint)) + { + + ASSERT(TREE_CODE(constraint) == PATH_CONSTRAINT); + if (PATH_CONSTRAINT_PATHDESC(constraint) == pathDesc) { + decl = + TREE_PURPOSE(PATH_CONSTRAINT_DEPENDENCIES(constraint)); + if (STMT_SURROGATE_ATTR(decl)) { + decl = TREE_CHAIN(decl); + } + return ((handle) decl); + } + } + } + + /* this is an error case */ + + acc_error_flag = TRUE; + return (NULL); +#endif +} + +/**************************************************************** + + acc_handle_pathout + - retrieve first output of module path + +*****************************************************************/ + +handle acc_handle_pathout(handle mod_path) +{ + handle terminal; + handle net; + + acc_error_flag = FALSE; + + terminal = acc_next_output(mod_path, null); + net = acc_handle_conn(terminal); + acc_release_object(terminal); + return net; +#if 0 + tree pathInstance; + tree pathDesc; + tree instance; + tree constraint; + tree decl; + tree module; + tree gate; + + acc_error_flag = FALSE; + + pathInstance = (tree) mod_path; + if (TREE_CODE(pathInstance) != PATH_INSTANCE) { + acc_error_flag = TRUE; + return (null); + } + + pathDesc = PATH_INSTANCE_PATHDESC(pathInstance); + ASSERT(TREE_CODE(pathDesc) == PATH_NODE); + + module = PATH_INSTANCE_MODULE(pathInstance); + ASSERT(TREE_CODE(module) == MODULE_BLOCK); + + for (instance = MODULE_SPECINST(module); + instance != NULL_TREE; instance = TREE_CHAIN(instance)) { + + if (TREE_CODE(instance) != PATH_OUTPUT) { + continue; + } + + + for (constraint = PATH_OUTPUT_CONSTRAINTS(instance); + constraint != NULL_TREE; constraint = TREE_CHAIN(constraint)) + { + + ASSERT(TREE_CODE(constraint) == PATH_CONSTRAINT); + if (PATH_CONSTRAINT_PATHDESC(constraint) == pathDesc) { + gate = PATH_OUTPUT_GATE(instance); + ASSERT(TREE_CODE(gate) == GATE_INSTANCE); + ASSERT(TREE_CODE(GATE_OUTPUT_LIST(gate)) == TREE_LIST); + decl = TREE_PURPOSE(GATE_OUTPUT_LIST(gate)); + if (STMT_SURROGATE_ATTR(decl)) { + decl = TREE_CHAIN(decl); + } + return ((handle) decl); + } + } + } + /* this is an error case */ + + acc_error_flag = TRUE; + return (NULL); + +#endif + +} + +/**************************************************************** + + acc_next_nput + +*****************************************************************/ + +handle acc_next_input(handle mod_path, handle terminal) +{ + tree pathInstance; + tree pathDesc; + tree instance; + tree constraint; + tree module; + + acc_error_flag = FALSE; + + pathInstance = (tree) mod_path; + if (TREE_CODE(pathInstance) != PATH_INSTANCE) { + acc_error_flag = TRUE; + return (null); + } + + pathDesc = PATH_INSTANCE_PATHDESC(pathInstance); + ASSERT(TREE_CODE(pathDesc) == PATH_NODE); + + module = PATH_INSTANCE_MODULE(pathInstance); + ASSERT(TREE_CODE(module) == MODULE_BLOCK); + + if (terminal == NULL) { + for (instance = MODULE_SPECINST(module); + instance != NULL_TREE; instance = TREE_CHAIN(instance)) { + + if (TREE_CODE(instance) != PATH_OUTPUT) { + continue; + } + + for (constraint = PATH_OUTPUT_CONSTRAINTS(instance); + constraint != NULL_TREE; + constraint = TREE_CHAIN(constraint)) { + + ASSERT(TREE_CODE(constraint) == PATH_CONSTRAINT); + if (PATH_CONSTRAINT_INSTANCE(constraint) == pathInstance) { + return (handle) PATH_CONSTRAINT_DEPENDENCIES((tree) + constraint); + } + } + } + } else { + return ((handle) TREE_CHAIN((tree) terminal)); + } + + /* this is an error case */ + + acc_error_flag = TRUE; + return (NULL); +} + +/**************************************************************** + + acc_next_output + +*****************************************************************/ + +handle acc_next_output(handle mod_path, handle terminal) +{ + tree pathInstance; + tree pathDesc; + tree instance; + tree constraint; + tree module; + + acc_error_flag = FALSE; + + pathInstance = (tree) mod_path; + if (TREE_CODE(pathInstance) != PATH_INSTANCE) { + acc_error_flag = TRUE; + return (null); + } + + pathDesc = PATH_INSTANCE_PATHDESC(pathInstance); + ASSERT(TREE_CODE(pathDesc) == PATH_NODE); + + module = PATH_INSTANCE_MODULE(pathInstance); + ASSERT(TREE_CODE(module) == MODULE_BLOCK); + + for (instance = MODULE_SPECINST(module); + instance != NULL_TREE; instance = TREE_CHAIN(instance)) { + + if (TREE_CODE(instance) != PATH_OUTPUT) { + continue; + } + + for (constraint = PATH_OUTPUT_CONSTRAINTS(instance); + constraint != NULL_TREE; constraint = TREE_CHAIN(constraint)) + { + + ASSERT(TREE_CODE(constraint) == PATH_CONSTRAINT); + if (PATH_CONSTRAINT_INSTANCE(constraint) == pathInstance) { + if (terminal == NULL && + PATH_CONSTRAINT_OUTPUT_NUMBER(constraint) == 0) { + return ((handle) constraint); + } else if (terminal != NULL && + PATH_CONSTRAINT_OUTPUT_NUMBER((tree) terminal) + + 1 == + PATH_CONSTRAINT_OUTPUT_NUMBER(constraint)) { + return ((handle) constraint); + } + } + } + } + + /* this is an error case */ + + acc_error_flag = TRUE; + return (NULL); +} + +/**************************************************************** + + resolve_path + - find next item in path + +*****************************************************************/ +static int resolveList[] = { + accIntegerVar, + accModule, + accNamedEvent, + accNet, + accPrimitive, + accRealVar, + accRegister, + accTimeVar, + accParameter, + accSpecparam, + 0 +}; + +static handle resolve_path(handle anchor, char *path) +{ + handle object; + char *startPtr; + char *endPtr; + int length; + + + startPtr = path; + endPtr = strchr(startPtr, '.'); + if (endPtr == NULL) { + length = strlen(startPtr); + endPtr = startPtr + length; + } else { + length = endPtr - startPtr; + endPtr++; + } + + if (length <= 0) { + return (anchor); + } + + object = NULL; + for (object = acc_next_child(anchor, object); + object != NULL; object = acc_next_child(anchor, object)) { + char *name = acc_fetch_name(object); + if (!strncmp(startPtr, name, length) && strlen(name) == length) { + return (resolve_path(object, endPtr)); + } + } + + if (*endPtr != 0) { + return (NULL); + } + + object = NULL; + for (object = acc_next(resolveList, anchor, object); + object != NULL; object = acc_next(resolveList, anchor, object)) { + char *name = acc_fetch_name(object); + if (!strncmp(startPtr, name, length) && strlen(name) == length) { + return (object); + } + } + + return (NULL); + +} + + + +/**************************************************************** + + acc_handle_by_name + - return the handle to named object in given scope + + ****************************************************************/ + +handle acc_handle_by_name(char *path, handle scope) +{ + handle object; + char *startPtr; + char *endPtr; + int length; + + + acc_error_flag = FALSE; + + /* search scope */ + + if (scope != NULL) { + object = resolve_path(scope, path); + if (object != NULL) { + return (object); + } + } else { + + /* start resolution at top level */ + + startPtr = path; + endPtr = strchr(startPtr, '.'); + if (endPtr == NULL) { + length = strlen(startPtr); + endPtr = startPtr + length; + } else { + length = endPtr - startPtr; + endPtr++; + } + + object = NULL; + for (object = acc_next_topmod(object); + object != NULL; object = acc_next_topmod(object)) { + char *name = acc_fetch_name(object); + if (!strncmp(startPtr, name, length) && strlen(name) == length) { + return (resolve_path(object, endPtr)); + } + } + } + + acc_error_flag = TRUE; + return (NULL); +} + +/**************************************************************** + + acc_release_object + + ****************************************************************/ +int acc_release_object(handle object) +{ + acc_error_flag = FALSE; + return TRUE; +} + +/**************************************************************** + + acc_handle_datapath + + ****************************************************************/ +handle acc_handle_datapath(handle modpath) +{ + // data paths are not supported + acc_error_flag = FALSE; + return null; +} + +/**************************************************************** + + acc_next_loconn + + ****************************************************************/ +handle acc_next_loconn(handle port, handle bit) +{ + // vector net expansion is not supported + acc_error_flag = TRUE; + return null; +} + +/**************************************************************** + + acc_next_hiconn + + ****************************************************************/ +handle acc_next_hiconn(handle port, handle bit) +{ + // vector net expansion is not supported + acc_error_flag = TRUE; + return null; +} + + +/**************************************************************** + + acc_fetch_polarity + +*****************************************************************/ +int acc_fetch_polarity(handle object) +{ + tree pathNode; + + acc_error_flag = FALSE; + + pathNode = PATH_INSTANCE_PATHDESC((tree) object); + switch (PATH_POLARITY(pathNode)) { + case 0: + return accUnknown; + case 1: + return accPositive; + case 2: + return accNegative; + } + acc_error_flag = TRUE; + return 0; + +} + +/**************************************************************** + + acc_fetch_edge + +*****************************************************************/ +int acc_fetch_edge(handle object) +{ + tree t = (tree) object; + tree timingCheck; + tree instance; + tree pathNode; + tree constraint; + + acc_error_flag = FALSE; + + if (t == NULL_TREE || + (TREE_CODE(t) != TREE_LIST && TREE_CODE(t) != PATH_CONSTRAINT)) { + acc_error_flag = TRUE; + return (0); + } + + if (TREE_CODE(t) == PATH_CONSTRAINT) { + instance = PATH_CONSTRAINT_INSTANCE(t); + pathNode = PATH_INSTANCE_PATHDESC(instance); + return (PATH_EDGE(pathNode)); + } + + constraint = MODPATH_INPUT_TERMINAL_PARENT((tree) object); + if (constraint != NULL && TREE_CODE(constraint) == PATH_CONSTRAINT) { + instance = PATH_CONSTRAINT_INSTANCE(constraint); + pathNode = PATH_INSTANCE_PATHDESC(instance); + return (PATH_EDGE(pathNode)); + } + + + timingCheck = TIMING_TERMINAL_CHECK(t); + if (timingCheck != NULL && TREE_CODE(timingCheck) == TIMING_CHECK) { + if (t == TIMING_CHECK_EXPRESSION(t, 0)) { + return (TIMING_CHECK_EDGESPEC(t, 0)); + } else if (t == TIMING_CHECK_EXPRESSION(t, 1)) { + return (TIMING_CHECK_EDGESPEC(t, 1)); + } + acc_error_flag = TRUE; + return (0); + } + + acc_error_flag = TRUE; + return (0); + +} + +/**************************************************************** + + acc_handle_condition + +*****************************************************************/ +handle acc_handle_condition(handle object) +{ + tree t = (tree) object; + tree timingCheck; + tree instance; + tree pathNode; + tree constraint; + + acc_error_flag = FALSE; + + if (t == NULL_TREE || (TREE_CODE(t) != TREE_LIST && + TREE_CODE(t) != PATH_CONSTRAINT)) { + acc_error_flag = TRUE; + return (NULL); + } + + if (TREE_CODE(t) == PATH_CONSTRAINT) { + instance = PATH_CONSTRAINT_INSTANCE(t); + pathNode = PATH_INSTANCE_PATHDESC(instance); + return ((handle) PATH_CONDITION(pathNode)); + } + + constraint = MODPATH_INPUT_TERMINAL_PARENT((tree) object); + if (constraint != NULL && TREE_CODE(constraint) == PATH_CONSTRAINT) { + instance = PATH_CONSTRAINT_INSTANCE(constraint); + pathNode = PATH_INSTANCE_PATHDESC(instance); + return ((handle) PATH_CONDITION(pathNode)); + } + + + timingCheck = TIMING_TERMINAL_CHECK(t); + if (timingCheck != NULL && TREE_CODE(timingCheck) == TIMING_CHECK) { + if (t == TIMING_CHECK_EXPRESSION(t, 0)) { + return ((handle) TIMING_CHECK_CONDITION(t, 0)); + } else if (t == TIMING_CHECK_EXPRESSION(t, 1)) { + return ((handle) TIMING_CHECK_CONDITION(t, 1)); + } + acc_error_flag = TRUE; + return (NULL); + } + + acc_error_flag = TRUE; + return (NULL); + +} + +/**************************************************************** + + acc_handle_notifier + +*****************************************************************/ +handle acc_handle_notifier(handle object) +{ + tree t = (tree) object; + + acc_error_flag = FALSE; + + if (t == NULL_TREE || TREE_CODE(t) != TIMING_CHECK) { + acc_error_flag = TRUE; + return (NULL); + } + + return ((handle) TIMING_CHECK_NOTIFIER(t)); + +} + + /**************************************************************** + acc_fetch_location +*****************************************************************/ + +void acc_fetch_location(p_location loc_p, handle object) +{ + int fulltype; + + switch (acc_fetch_type(object)) { + case accTask: + case accFunction: + case accModule: + loc_p->line_no = BLOCK_SOURCE_LINE((tree) object); + loc_p->filename = BLOCK_SOURCE_FILE((tree) object); + break; + case accPort: + acc_fetch_location(loc_p, acc_handle_parent(object)); + break; + case accPrimitive: + fulltype = acc_fetch_fulltype(object); + switch (fulltype) { + case accCombPrim: + case accSeqPrim: // not sure about this + loc_p->line_no = + BLOCK_SOURCE_LINE(GATE_UDP_DEF((tree) object)); + loc_p->filename = + BLOCK_SOURCE_FILE(GATE_UDP_DEF((tree) object)); + break; + default: + loc_p->filename = GATE_FILE((tree) object); + loc_p->line_no = GATE_LINE((tree) object); + break; + } + break; + case accPath: + loc_p->filename = PATH_SOURCE_FILE((tree) object); + loc_p->line_no = PATH_SOURCE_LINE((tree) object); + break; + case accNamedEvent: + loc_p->line_no = STMT_SOURCE_LINE((tree) object); + loc_p->filename = STMT_SOURCE_FILE((tree) object); + break; + case accNet: + case accNetBit: + case accRealVar: + case accRegister: + case accRegBit: + case accTimeVar: + case accIntegerVar: + case accParameter: + case accSpecparam: + loc_p->filename = DECL_SOURCE_FILE((tree) object); + loc_p->line_no = DECL_SOURCE_LINE((tree) object); + break; + case accPortBit: + case accStatement: + case accTchkTerminal: + case accTerminal: + case accTchk: + case accPathTerminal: + case accPartSelect: + case accDataPath: + case accConstant: + case accOperator: + default: + break; + } +} + +/**************************************************************** + acc_fetch_attribute +*****************************************************************/ +double acc_fetch_attribute(handle object, char *string, double def) +{ + acc_error_flag = TRUE; + tf_error("acc_fetch_attribute() is not supported\n"); + return def; +} + + +/**************************************************************** + acc_fetch_attribute_int +*****************************************************************/ +int acc_fetch_attribute_int(handle object, char *string, int def) +{ + acc_error_flag = TRUE; + tf_error("acc_fetch_attribute() is not supported\n"); + return def; +} + +/**************************************************************** + acc_fetch_attribute_str +*****************************************************************/ +char *acc_fetch_attribute_str(handle object, char *string, char *def) +{ + acc_error_flag = TRUE; + tf_error("acc_fetch_attribute() is not supported\n"); + return def; +} + +/**************************************************************** + handleLcb +*****************************************************************/ +void handleLcb(tree pc) +{ + tree block; + pli_lcb *lcb; + + switch (*tree_code_type[TREE_CODE(pc)]) { + case 'd': + block = DECL_CONTEXT(pc); + break; + case 's': + block = STMT_SCOPE(pc); + break; + default: + return; + } + for (; block && + TREE_CODE(block) != MODULE_BLOCK && + TREE_CODE(block) != FUNCTION_BLOCK && + TREE_CODE(block) != TASK_BLOCK; block = BLOCK_UP(block)); + if (block == NULL) { + return; + } + lcb = (pli_lcb *) BLOCK_LCB_LIST(block); + while (lcb) { + (*lcb->routine) (STMT_SOURCE_FILE(pc), + STMT_SOURCE_LINE(pc), lcb->userdata); + lcb = lcb->next; + } +} + + /**************************************************************** + acc_mod_lcb_add +*****************************************************************/ + +void +acc_mod_lcb_add(handle module, + void (*routine) (char *, unsigned int, char *), + char *userdata) +{ + pli_lcb *lcb; + + acc_error_flag = FALSE; + + for (lcb = (pli_lcb *) BLOCK_LCB_LIST((tree) module); lcb; + lcb = lcb->next) { + if (lcb->module == (tree) module && lcb->routine == routine + && lcb->userdata == userdata) { + tf_error("lcb already exists in acc_mod_lcb_add()"); + acc_error_flag = TRUE; + return; + } + } + + lcb = (pli_lcb *) xmalloc(sizeof(pli_lcb)); + lcb->routine = routine; + lcb->userdata = userdata; + lcb->module = (tree) module; + lcb->next = (pli_lcb *) BLOCK_LCB_LIST((tree) module); + BLOCK_LCB_LIST((tree) module) = (tree) lcb; + lcbCount++; +} + + /**************************************************************** + acc_mod_lcb_delete +*****************************************************************/ + +void +acc_mod_lcb_delete(handle module, + void (*routine) (char *, unsigned int, char *), + char *userdata) +{ + pli_lcb *lcb; + pli_lcb **pptr; + + + acc_error_flag = FALSE; + + for (pptr = ((pli_lcb **) & BLOCK_LCB_LIST((tree) module)), lcb = + *pptr; lcb; pptr = &lcb->next, lcb = lcb->next) { + if (lcb->module == (tree) module && lcb->routine == routine + && lcb->userdata == userdata) { + break; + } + } + + if (lcb == NULL) { + tf_error("lcb in acc_mod_lcb_delete() does not exist"); + acc_error_flag = TRUE; + return; + } + + *pptr = lcb->next; + free(lcb); + lcbCount--; + +} + + + +/************************************************************************ + * acc_fetch_name * +/***********************************************************************/ + +char *acc_fetch_name(handle object) +{ + acc_error_flag = FALSE; + + if (object == NULL) { + acc_error_flag = TRUE; + tf_error("Illegal object in acc_fetch_name()"); + return (NULL); + } + + pli_write_string(NULL); // start a new string + return (append_name(object)); +} + +/************************************************************************ + * append_name + * - append name to pli string, return + * pointer to start of string +/***********************************************************************/ + +char *append_name(handle object) +{ + char *result; + char buffer[1024]; + tree t; + + result = NULL; + switch (TREE_CODE((tree) object)) { + case PATH_CONSTRAINT: + return (append_name(acc_handle_conn(object))); + + case IDENTIFIER_NODE: + return (pli_append_string(IDENT((tree) object))); + + case TREE_LIST: + object = (handle) TREE_PURPOSE((tree) object); + break; +// case TIMING_CHECK: +// result = append_name( acc_handle_conn( +// acc_handle_tchkarg1(object) ) ); +// result = pli_append_string( pli_info.config.accPathDelimStr_ ); +// if( acc_handle_tchkarg2(object) != null ) { +// result = append_name( acc_handle_conn( +// acc_handle_tchkarg2(object) ) ); +// } +// return( result ); + case PATH_INSTANCE: + { + tree pathDesc; + tree t; + tree decl; + + pathDesc = PATH_INSTANCE_PATHDESC((tree) object); + ASSERT(pathDesc != NULL_TREE); + ASSERT(TREE_CODE(pathDesc) == PATH_NODE); + + t = PATH_OUTPUTS(pathDesc); + ASSERT(t != NULL_TREE); + ASSERT(TREE_CODE(t) == TREE_LIST); + + decl = TREE_PURPOSE(t); + ASSERT(decl != NULL_TREE); + + result = append_name((handle) decl); + result = pli_append_string(pli_info.config.accPathDelimStr_); + + t = PATH_INPUTS(pathDesc); + ASSERT(t != NULL_TREE); + ASSERT(TREE_CODE(t) == TREE_LIST); + + decl = TREE_PURPOSE(t); + ASSERT(decl != NULL_TREE); + + result = append_name((handle) decl); + } + return (result); + } + + + t = (tree) object; + switch (*tree_code_type[TREE_CODE(t)]) { + case 'd': /* decl nodes */ + return pli_append_string(IDENT(DECL_NAME((tree) object))); + case 'b': /* blocks */ + return pli_append_string(IDENT(BLOCK_NAME((tree) object))); + case 'g': /* primitive */ + return pli_append_string(GATE_NAME((tree) object)); + case 'r': /* storage reference */ + switch (TREE_CODE(t)) { + case PART_REF: + { + tree name = PART_NAME(t); + + if (TREE_CODE(name) != IDENTIFIER_NODE) { + name = DECL_NAME(name); + } + + sprintf(buffer, "%s[%d:%d]", + IDENT(name), + get_range(PART_MSB_(t), IDENT(name)), + get_range(PART_LSB_(t), IDENT(name))); + } + return (pli_append_string(buffer)); + case BIT_REF: + { + tree name = BIT_REF_NAME(t); + + if (TREE_CODE(name) != IDENTIFIER_NODE) { + name = DECL_NAME(name); + } + + sprintf(buffer, "%s[%d]", + IDENT(name), get_range(BIT_EXPR(t), IDENT(name))); + } + return (pli_append_string(buffer)); + default: + return NULL; + } + + default: + return NULL; + } +} + +/************************************************************************ + * acc_handle_calling_mod_m +/***********************************************************************/ + +handle acc_handle_calling_mod_m(void) +{ + return (acc_handle_parent((handle) tf_getinstance())); +} + +/******************************************* + mdh - left off here +********************************************/ + + +/************************************************************************ + * acc_set_value * +/***********************************************************************/ + +int +acc_set_value(handle object, p_setval_value value_p, + p_setval_delay delay_p) +{ + time64 delay; + double scaledDelay; + Group *g; + tree constant; + int nbits; + int ngroups; + Group g1; + tree t = (tree) object; + int type; + int fulltype; + tree stmt; + SCB *scb; + time64 newTime; + + acc_error_flag = FALSE; + + // calculate delay first + switch (delay_p->time.type) { + case accTime: + tf_scale_longdelay(tf_getinstance(), delay_p->time.low, + delay_p->time.high, (int *) &delay.timel, + (int *) &delay.timeh); + break; + case accSimTime: + delay.timeh = delay_p->time.high; + delay.timel = delay_p->time.low; + break; + case accRealTime: + tf_scale_realdelay(tf_getinstance(), delay_p->time.real, + &scaledDelay); + tf_real_to_long(scaledDelay, (int *) &delay.timel, + (int *) &delay.timeh); + break; + default: + tf_error("Illegal time type in acc_set_value()"); + acc_error_flag = TRUE; + return 1; + } + + + fulltype = acc_fetch_fulltype(object); + type = acc_fetch_type(object); + + // get pointer to storage area + + switch (delay_p->model) { + case accNoDelay: + if (type != accRegister && fulltype != accSeqPrim) { + tf_error + ("Object must be either a register or sequential UDP in acc_set_value()"); + acc_error_flag = TRUE; + return 1; + } + if (fulltype == accSeqPrim) { + nbits = 1; + ngroups = 1; + g = &g1; + } else { + nbits = acc_fetch_size(object); + ngroups = (nbits + 31) / 32; + g = DECL_STORAGE(t); + } + break; + case accPureTransportDelay: + if (type != accRegister) { + tf_error("Object must be a register in acc_set_value()"); + acc_error_flag = TRUE; + return 1; + } + nbits = acc_fetch_size(object); + ngroups = (nbits + 31) / 32; + g = malloc_Z(ngroups); + break; + case accAssignFlag: + if (type != accRegister) { + tf_error("Object must be a register in acc_set_value()"); + acc_error_flag = TRUE; + return 1; + } + nbits = acc_fetch_size(object); + ngroups = (nbits + 31) / 32; + constant = build_bit_cst(nbits, BIN); + g = BIT_CST_GROUP(constant); + break; + case accDeassignFlag: + if (type != accRegister) { + tf_error("Object must be a register in acc_set_value()"); + acc_error_flag = TRUE; + return 1; + } + nbits = acc_fetch_size(object); + ngroups = (nbits + 31) / 32; + g = NULL; + break; + case accForceFlag: + if (type != accRegister && type != accNet) { + tf_error + ("Object must be either a register or net in acc_set_value()"); + acc_error_flag = TRUE; + return 1; + } + nbits = acc_fetch_size(object); + ngroups = (nbits + 31) / 32; + constant = build_bit_cst(nbits, BIN); + g = BIT_CST_GROUP(constant); + break; + case accReleaseFlag: + if (type != accRegister && type != accNet) { + tf_error + ("Object must be either a register or net in acc_set_value()"); + acc_error_flag = TRUE; + return 1; + } + nbits = acc_fetch_size(object); + ngroups = (nbits + 31) / 32; + g = NULL; + break; + + case accInertialDelay: + tf_error("accInertialDelay not supported in acc_set_value()"); + acc_error_flag = TRUE; + return 1; + case accTransportDelay: + tf_error("accTransportDelay not supported in acc_set_value()"); + acc_error_flag = TRUE; + return 1; + default: + tf_error("Illegal time model in acc_set_value()"); + acc_error_flag = TRUE; + return 1; + } + + // parse input value + + if (g) + switch (value_p->format) { + case accScalarVal: + if (ngroups > 1) { + memset(g, 0, ngroups * sizeof(Group)); + } + switch (value_p->value.scalar) { + case acc0: + AVAL(g) = 0; + BVAL(g) = 0; + break; + case acc1: + AVAL(g) = 1; + BVAL(g) = 0; + break; + case accX: + AVAL(g) = 1; + BVAL(g) = 1; + break; + case accZ: + AVAL(g) = 0; + BVAL(g) = 1; + break; + } + break; + case accVectorVal: + memcpy(g, value_p->value.vector, ngroups * sizeof(Group)); + break; + case accIntVal: + AVAL(g) = value_p->value.integer; + BVAL(g) = 0; + break; + case accRealVal: + REAL_(g) = value_p->value.real; + break; + case accStringVal: + StringToGroup(value_p->value.str, g, nbits, ngroups); + break; + case accBinStrVal: + parse_base_const1g(BIN, + value_p->value.str + + strlen(value_p->value.str) - 1, nbits, + strlen(value_p->value.str), g); + break; + case accOctStrVal: + parse_base_const1g(OCT, + value_p->value.str + + strlen(value_p->value.str) - 1, nbits, + strlen(value_p->value.str), g); + break; + case accDecStrVal: + parse_base_const1g(DEC, + value_p->value.str + + strlen(value_p->value.str) - 1, nbits, + strlen(value_p->value.str), g); + break; + case accHexStrVal: + parse_base_const1g(HEX, + value_p->value.str + + strlen(value_p->value.str) - 1, nbits, + strlen(value_p->value.str), g); + break; + default: + tf_error("Illegal format in acc_set_value()"); + acc_error_flag = TRUE; + return 1; + } + // apply new value + + + switch (delay_p->model) { + case accNoDelay: + if (fulltype == accSeqPrim) { + tf_error("accSeqPrim are not supported in acc_set_value()"); + acc_error_flag = TRUE; + return 1; + } else { + notify(t, DECL_STATE(t), 1, NULL); + } + break; + case accPureTransportDelay: + if (delayFreeList) { + stmt = delayFreeList; + delayFreeList = PLI_DELAY_NEXT(stmt); + } else { + stmt = make_node(PLI_DELAY); + } + + ADDTIME6464(&newTime, &CurrentTime, &delay); + PLI_DELAY_TIME(stmt) = newTime; + + PLI_DELAY_LVAL(stmt) = t; + PLI_DELAY_STORAGE(stmt) = g; + TREE_NBITS(stmt) = nbits; + + PLI_DELAY_NEXT(stmt) = NULL; + scb = BuildSCB(stmt, NOLIST); + + Schedule64(&newTime, scb, FALSE); + break; + case accAssignFlag: + stmt = make_node(ASSIGN_PROC_STMT); + TREE_CHAIN(stmt) = dump; + STMT_ASSIGN_RVAL(stmt) = constant; + STMT_ASSIGN_LVAL(stmt) = t; + scb = BuildSCB(stmt, NOLIST); + pass3_assignment(stmt); + Schedule64(&CurrentTime, scb, FALSE); + break; + case accDeassignFlag: + stmt = make_node(DEASSIGN_STMT); + TREE_CHAIN(stmt) = dump; + STMT_BODY(stmt) = t; + scb = BuildSCB(stmt, NOLIST); + Schedule64(&CurrentTime, scb, FALSE); + break; + case accForceFlag: + stmt = make_node(FORCE_STMT); + TREE_CHAIN(stmt) = dump; + STMT_ASSIGN_RVAL(stmt) = constant; + STMT_ASSIGN_LVAL(stmt) = t; + scb = BuildSCB(stmt, NOLIST); + pass3_assignment(stmt); + Schedule64(&CurrentTime, scb, FALSE); + break; + case accReleaseFlag: + stmt = make_node(RELEASE_STMT); + TREE_CHAIN(stmt) = dump; + STMT_BODY(stmt) = t; + scb = BuildSCB(stmt, NOLIST); + Schedule64(&CurrentTime, scb, FALSE); + break; + case accInertialDelay: + tf_error("accInertialDelay is not supported in acc_set_value()"); + acc_error_flag = TRUE; + return 1; + case accTransportDelay: + tf_error("accTransportDelay is not supported in acc_set_value()"); + acc_error_flag = TRUE; + return 1; + } + + return 0; +} + + +/**************************************************************** + + acc_handle_hiconn + - return hi net connected to port + +*****************************************************************/ +handle acc_handle_hiconn(handle terminal) +{ + tree t = (tree) terminal; + + tf_error("acc_handle_hiconn() is not supported"); + return null; +#if 0 + acc_error_flag = FALSE; + if (TREE_CODE((tree) terminal) != TREE_LIST) { + acc_error_flag = TRUE; + return NULL; + } + return ((handle) PORT_TERMINAL_HICONN((tree) terminal)); +#endif +} + + + +/************************************************************************ + * acc_handle_defn + * - does nothing for now + *********************************************************************** * + */ +void *acc_handle_defn() +{ + return 0; +} diff --git a/src/pli.h b/src/pli.h new file mode 100644 index 0000000..05ed631 --- /dev/null +++ b/src/pli.h @@ -0,0 +1,89 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* PLI.H - PLI structures and routine prototypes */ + +#ifndef PLI_H +#define PLI_H + +// public methods + + +//#define PLI_ARG_MARKERS(NODE) (TREE_VALUE (TREE_STMT (NODE))) +//#define PLI_ARG_PVC(NODE) (TREE_PURPOSE (TREE_STMT (NODE))) +//#define PLI_ARG_INFO(NODE) (TREE_3RD (TREE_STMT (NODE))) + +enum pli_arg_type { PLI_FREE, PLI_ASYNCH, PLI_VCL }; + +typedef tree instance_t; + +typedef struct PliInfo_tag { + int pvc:1; /* This argument has changed */ + int saved_pvc:1; /* Saved for the user */ + int vclSet:1; /* driver vcls are set */ + int pad:29; /* bit padding */ + int argNumber; /* number of argument,starting at 1 */ + tree instance; /* Pointer to the task or function */ + Group *storage; /* Pointer to data storage */ + struct Marker *marker; /* placeholder for markers */ +} PliInfo_t; + + +struct pli_vcl { + struct Marker *marker; + int (*routine) (s_vc_record *); + tree decl; + char *user_data; +}; + +typedef struct pli_lcb { + struct pli_lcb *next; + void (*routine) (char *, unsigned int, char *); + tree module; + char *userdata; +} pli_lcb; + +extern tree current_tf_instance; +extern int lcbCount; + +void vcl_dispatch(struct pli_vcl *); /* pli.i 17/05/94 22.58.34 */ +void freePliDelayNode(tree); +void handleLcb(tree); +void init_pli(void); + +// private methods + +#ifdef PLI_C +static Group *fetch_storage(tree object); +static char *pli_write_string(char *string); +static int lookup_vcl(tree object, int (*routine) (s_vc_record *), + char *user_data, struct Marker **marker); +static tree nth_arg(int n, tree instance); +static tree nth_parameter(int n, tree instance); +static int is_scalar(handle object); +static int is_vector(handle object); +static int is_expanded(handle object); +static int is_collapsed(handle object); +static char *GroupToString(Group * g, int nbits, int ngroups); +static void StringToGroup(char *string, Group * g, int nbits, int ngroups); +char *append_name(handle object); +static handle resolve_path(handle anchor, char *path); +#endif // PLI_C + +#endif // PLI_H diff --git a/src/plihacks.cc b/src/plihacks.cc new file mode 100644 index 0000000..b739a16 --- /dev/null +++ b/src/plihacks.cc @@ -0,0 +1,1781 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/****************************************************************************** + * + * plihacks.c + * this is a set of useful pli calls + * + ******************************************************************************/ +#define PLIHACKS_C + +#include +#include +#include +#include "veriuser.h" +#include "acc_user.h" +#include "glue.h" +#include "plihacks.h" +#include "vtypes.h" + + +#define HASH_SIZE (4096) +#define HASH(h) ((((long)(h)>>16) ^ ((long)(h)&0xffff))%HASH_SIZE); + +typedef struct LogEntry_tag { + handle object; + struct LogEntry_tag *next; +} LogEntry_t; + +static int depth; +static int declList[] = + { accNamedEvent, accTimeVar, accIntegerVar, accRealVar, accRegister, +0 }; +static int enableReason = FALSE; +static LogEntry_t *hashTable[HASH_SIZE]; + +/************************************************************************* + + $$abort + - this routine will execute an exit(2) system call + +**************************************************************************/ + +int abort_call(int data, int reason) +{ + + acc_initialize(); + + shell_exit(2); + + acc_close(); + return (0); + +} + +/************************************************************************* + + push + - increase the current depth + +**************************************************************************/ +static void push() +{ + ASSERT(depth >= 0); + depth++; +} + +/************************************************************************* + + pop + - decrease the current depth + +**************************************************************************/ +static void pop() +{ + ASSERT(depth > 0); + depth--; +} + +/************************************************************************* + + indent + - indent the correct number of spaces for the given level + +**************************************************************************/ +static void indent() +{ + int count; + + for (count = 0; count < depth; count++) { + io_printf(" "); + } +} + +/************************************************************************* + + DumpPath + - output all information about the given module path + +**************************************************************************/ +static void DumpPath(handle object) +{ + double d1; + double d2; + double d3; + double d4; + double d5; + double d6; + handle terminal; + handle parent; + handle in1; + handle out1; + + + push(); + + indent(); + parent = acc_handle_parent(object); + io_printf("- is child of %s\n", acc_fetch_fullname(parent)); + + indent(); + if (acc_handle_condition(object)) { + io_printf("- condition is present\n"); + } else { + io_printf("- condition is not present\n"); + } + + indent(); + io_printf("- polarity is "); + switch (acc_fetch_polarity(object)) { + case accPositive: + io_printf("accPositive"); + break; + case accNegative: + io_printf("accNegative"); + break; + case accUnknown: + io_printf("accUnknown"); + break; + default: + io_printf("unknown"); + } + io_printf("\n"); + + acc_fetch_delays(object, &d1, &d2, &d3, &d4, &d5, &d6); + indent(); + io_printf("- delay1 = %g\n", d1); + indent(); + io_printf("- delay2 = %g\n", d2); + indent(); + io_printf("- delay3 = %g\n", d3); + indent(); + io_printf("- delay4 = %g\n", d4); + indent(); + io_printf("- delay5 = %g\n", d5); + indent(); + io_printf("- delay6 = %g\n", d6); + + indent(); + io_printf("=> acc_handle_pathin()\n"); + in1 = acc_handle_pathin(object); + DumpObject(in1); + + indent(); + io_printf("=> acc_handle_pathout()\n"); + out1 = acc_handle_pathout(object); + DumpObject(out1); + + // test acc_handle_modpath + if (acc_handle_modpath + (parent, acc_fetch_name(in1), acc_fetch_name(out1)) + != object) { + tf_error("acc_handle_modpath() test failure"); + } + + indent(); + io_printf("=> acc_next_output()\n"); + terminal = null; + while (TRUE) { + terminal = acc_next_output(object, terminal); + if (terminal == null) { + break; + } + DumpObject(terminal); + } + indent(); + io_printf("=> acc_next_input()\n"); + terminal = null; + while (TRUE) { + terminal = acc_next_input(object, terminal); + if (terminal == null) { + break; + } + DumpObject(terminal); + } + pop(); +} + +/************************************************************************* + + DumpTimingCheck + - output all information about the given timing check + +**************************************************************************/ +static void DumpTimingCheck(handle object) +{ + double d1; + double d2; + double d3; + double d4; + double d5; + double d6; + handle parent; + handle arg1; + handle arg2; + int edge1; + int edge2; + + push(); + + parent = acc_handle_parent(object); + indent(); + io_printf("- is child of %s\n", acc_fetch_fullname(parent)); + + + acc_fetch_delays(object, &d1, &d2, &d3, &d4, &d5, &d6); + indent(); + io_printf("- delay1 = %g\n", d1); + + arg1 = acc_handle_tchkarg1(object); + if (arg1 != null) { + edge1 = acc_fetch_edge(arg1); + } + + arg2 = acc_handle_tchkarg2(object); + if (arg2 != null) { + edge2 = acc_fetch_edge(arg2); + } + + if (object != acc_handle_tchk(parent, acc_fetch_fulltype(object), + acc_fetch_name(arg1), edge1, + acc_fetch_name(arg2), edge2)) { + tf_error("ERROR: acc_handle_tchk() test failure"); + } + + indent(); + arg1 = acc_handle_tchkarg1(object); + io_printf("- arg 1 is %s\n", acc_fetch_name(arg1)); + if (arg1) { + DumpObject(arg1); + } + + indent(); + arg2 = acc_handle_tchkarg2(object); + io_printf("- arg 2 is %s\n", acc_fetch_name(arg2)); + if (arg2) { + DumpObject(arg2); + } + + pop(); +} + +/************************************************************************* + + DumpParam + - output all information about the given param + +**************************************************************************/ +static void DumpParam(handle object) +{ + handle parent; + handle newObject; + int type; + + push(); + + parent = acc_handle_parent(object); + indent(); + io_printf("- is child of %s\n", acc_fetch_fullname(parent)); + + type = acc_fetch_paramtype(object); + indent(); + io_printf("- is type "); + switch (type) { + case accIntegerParam: + io_printf("accIntegerParam"); + break; + case accRealParam: + io_printf("accRealParam"); + break; + case accStringParam: + io_printf("accStringParam"); + break; + default: + io_printf("unknown"); + } + io_printf("\n"); + + indent(); + switch (type) { + case accIntegerParam: + io_printf("- value is %d\n", (int) acc_fetch_paramval(object)); + break; + case accRealParam: + io_printf("- value is %f\n", acc_fetch_paramval(object)); + break; + case accStringParam: + io_printf("- value is %s\n", + (char *) (int) acc_fetch_paramval(object)); + break; + } + + pop(); +} + +/************************************************************************* + + DumpDecl + - output all information about the given Decl + +**************************************************************************/ +static void DumpDecl(handle object) +{ + handle parent; + handle newObject; + + push(); + + parent = acc_handle_parent(object); + indent(); + io_printf("- is child of %s\n", acc_fetch_fullname(parent)); + + + if (acc_fetch_type(object) != accNamedEvent) { + indent(); + io_printf("value(b) = %s\n", acc_fetch_value(object, "%b")); + indent(); + io_printf("value(o) = %s\n", acc_fetch_value(object, "%o")); + indent(); + io_printf("value(h) = %s\n", acc_fetch_value(object, "%h")); + indent(); + io_printf("value(d) = %s\n", acc_fetch_value(object, "%d")); + } + + pop(); +} + +/************************************************************************* + + DumpReg + - output all information about the given Reg + +**************************************************************************/ +static void DumpReg(handle object) +{ + int msb; + int lsb; + handle parent; + handle newObject; + + push(); + + parent = acc_handle_parent(object); + indent(); + io_printf("- is child of %s\n", acc_fetch_fullname(parent)); + + indent(); + io_printf("- is "); + if (acc_object_of_type(object, accScalar)) { + io_printf("accScalar, "); + } + if (acc_object_of_type(object, accVector)) { + io_printf("accVector, "); + } + io_printf("\n"); + + if (acc_fetch_size(object) > 1) { + indent(); + acc_fetch_range(object, &msb, &lsb); + io_printf("- range is [%d:%d]\n", msb, lsb); + } + + indent(); + io_printf("- size is %d\n", acc_fetch_size(object)); + + indent(); + io_printf("value(b) = %s\n", acc_fetch_value(object, "%b")); + indent(); + io_printf("value(o) = %s\n", acc_fetch_value(object, "%o")); + indent(); + io_printf("value(h) = %s\n", acc_fetch_value(object, "%h")); + indent(); + io_printf("value(d) = %s\n", acc_fetch_value(object, "%d")); + + newObject = null; + while (TRUE) { + newObject = acc_next_load(object, newObject); + if (newObject == null) { + break; + } + DumpObject(newObject); + } + + pop(); +} + +/************************************************************************* + + DumpNet + - output all information about the given Net + +**************************************************************************/ +static void DumpNet(handle object) +{ + int msb; + int lsb; + handle parent; + handle newObject; + + push(); + + parent = acc_handle_parent(object); + indent(); + io_printf("- is child of %s\n", acc_fetch_fullname(parent)); + + indent(); + io_printf("- is "); + if (acc_object_of_type(object, accScalar)) { + io_printf("accScalar, "); + } + if (acc_object_of_type(object, accVector)) { + io_printf("accVector, "); + } + if (acc_object_of_type(object, accCollapsedNet)) { + io_printf("accCollapsedNet, "); + } + if (acc_object_of_type(object, accExpandedVector)) { + io_printf("accExpandedVector, "); + } + if (acc_object_of_type(object, accUnexpandedVector)) { + io_printf("accUnexpandedVector, "); + } + if (acc_object_of_type(object, accScope)) { + io_printf("accScope, "); + } + if (acc_object_of_type(object, accModPathHasIfnone)) { + io_printf("accModPathHasIfnone, "); + } + io_printf("\n"); + + if (acc_fetch_size(object) > 1) { + indent(); + acc_fetch_range(object, &msb, &lsb); + io_printf("- range is [%d:%d]\n", msb, lsb); + } + + indent(); + io_printf("- size is %d\n", acc_fetch_size(object)); + + indent(); + io_printf("value(b) = %s\n", acc_fetch_value(object, "%b")); + indent(); + io_printf("value(o) = %s\n", acc_fetch_value(object, "%o")); + indent(); + io_printf("value(h) = %s\n", acc_fetch_value(object, "%h")); + indent(); + io_printf("value(d) = %s\n", acc_fetch_value(object, "%d")); + + newObject = acc_handle_simulated_net(object); + indent(); + io_printf("=> acc_handle_simulated_net()\n"); + DumpObject(newObject); + + indent(); + io_printf("=> acc_next_driver()\n"); + newObject = null; + while (TRUE) { + newObject = acc_next_driver(object, newObject); + if (newObject == null) { + break; + } + DumpObject(newObject); + } + + indent(); + io_printf("=> acc_next_load()\n"); + newObject = null; + while (TRUE) { + newObject = acc_next_load(object, newObject); + if (newObject == null) { + break; + } + DumpObject(newObject); + } + + indent(); + io_printf("=> acc_next_cell_load()\n"); + newObject = null; + while (TRUE) { + newObject = acc_next_cell_load(object, newObject); + if (newObject == null) { + break; + } + DumpObject(newObject); + } + + pop(); +} + +/************************************************************************* + + DumpPrimitive + - output all information about the given primitive + +**************************************************************************/ +static void DumpPrimitive(handle object) +{ + double d1; + double d2; + double d3; + double d4; + double d5; + double d6; + handle terminal; + char *type; + handle parent; + + push(); + + indent(); + io_printf("- defname %s\n", acc_fetch_defname(object)); + + parent = acc_handle_parent(object); + indent(); + io_printf("- is child of %s\n", acc_fetch_fullname(parent)); + + indent(); + io_printf("=> acc_next_terminal()\n"); + terminal = null; + while (true) { + terminal = acc_next_terminal(object, terminal); + if (terminal == null) { + break; + } + DumpObject(terminal); + } + + acc_fetch_delays(object, &d1, &d2, &d3, &d4, &d5, &d6); + indent(); + io_printf("- rising = %g\n", d1); + indent(); + io_printf("- falling = %g\n", d2); + indent(); + io_printf("- z = %g\n", d3); + pop(); +} + +/************************************************************************* + + lineTrace + trace execution + +**************************************************************************/ + +void lineTrace(char *file, unsigned int line, char *udata) +{ + io_printf("Executing: %s[%d]\n", file, line); +} + +/************************************************************************* + + TimescaleToString + - convert time unit to a string + +**************************************************************************/ + +static char *TimescaleToString(int t) +{ + switch (t) { + case 2: + return "100 s"; + case 1: + return "10 s"; + case 0: + return "1 s"; + case -1: + return "100 ms"; + case -2: + return "10 ms"; + case -3: + return "1 ms"; + case -4: + return "100 us"; + case -5: + return "10 us"; + case -6: + return "1 us"; + case -7: + return "100 ns"; + case -8: + return "10 ns"; + case -9: + return "1 ns"; + case -10: + return "100 ps"; + case -11: + return "10 ps"; + case -12: + return "1 ps"; + case -13: + return "100 fs"; + case -14: + return "10 fs"; + case -15: + return "1 fs"; + default: + return "unknown"; + } +} + +/************************************************************************* + + DumpTerminal + - output all information about the given primitive terminal + +**************************************************************************/ + +static void DumpTerminal(handle object) +{ + handle parent; + handle newObject; + int index; + + push(); + parent = acc_handle_parent(object); + indent(); + io_printf("- is child of %s\n", acc_fetch_fullname(parent)); + + index = acc_fetch_index(object); + indent(); + io_printf("- index is %d\n", index); + if (acc_handle_terminal(parent, index) != object) { + tf_error("acc_handle_terminal() test failure\n"); + } + + indent(); + io_printf("- direction is "); + switch (acc_fetch_direction(object)) { + case accInput: + io_printf("accInput"); + break; + case accOutput: + io_printf("accOutput"); + break; + case accInout: + io_printf("accInout"); + break; + case accMixedIo: + io_printf("accMixedIo"); + break; + default: + io_printf("unknown"); + } + io_printf("\n"); + + + indent(); + io_printf("=> acc_handle_conn()\n"); + newObject = acc_handle_conn(object); + DumpObject(newObject); + + pop(); + +} + +/************************************************************************* + + DumpTchkTerminal + - output all information about the given timing check terminal + +**************************************************************************/ + +static void DumpTchkTerminal(handle object) +{ + handle parent; + handle newObject; + int index; + int edge; + + push(); + parent = acc_handle_parent(object); + indent(); + io_printf("- is child of %s\n", acc_fetch_fullname(parent)); + + indent(); + io_printf("- edge is "); + edge = acc_fetch_edge(object); + switch (edge) { + case accNoedge: + io_printf("accNoedge"); + break; + case accPosedge: + io_printf("accPosedge"); + break; + case accNegedge: + io_printf("accNegedge"); + break; + default: + io_printf("["); + if (edge & accEdge01) { + io_printf("accEdge01,"); + } + if (edge & accEdge10) { + io_printf("accEdge10,"); + } + if (edge & accEdge0x) { + io_printf("accEdge0x,"); + } + if (edge & accEdgex1) { + io_printf("accEdgex0,"); + } + if (edge & accEdgex1) { + io_printf("accEdgex1,"); + } + if (edge & accEdge1x) { + io_printf("accEdge1x,"); + } + io_printf("]"); + } + io_printf("\n"); + + + if (acc_handle_condition(object)) { + indent(); + io_printf("- has condition\n"); + } + + indent(); + io_printf("=> acc_handle_conn()\n"); + newObject = acc_handle_conn(object); + DumpObject(newObject); + + pop(); + +} + +/************************************************************************* + + DumpPathTerminal + - output all information about the given path terminal + +**************************************************************************/ + +static void DumpPathTerminal(handle object) +{ + handle parent; + handle newObject; + int index; + int edge; + + push(); + parent = acc_handle_parent(object); + indent(); + io_printf("- is child of %s\n", acc_fetch_fullname(parent)); + + indent(); + io_printf("- edge is "); + edge = acc_fetch_edge(object); + switch (edge) { + case accNoedge: + io_printf("accNoedge"); + break; + case accPosedge: + io_printf("accPosedge"); + break; + case accNegedge: + io_printf("accNegedge"); + break; + default: + io_printf("["); + if (edge & accEdge01) { + io_printf("accEdge01,"); + } + if (edge & accEdge10) { + io_printf("accEdge10,"); + } + if (edge & accEdge0x) { + io_printf("accEdge0x,"); + } + if (edge & accEdgex1) { + io_printf("accEdgex0,"); + } + if (edge & accEdgex1) { + io_printf("accEdgex1,"); + } + if (edge & accEdge1x) { + io_printf("accEdge1x,"); + } + io_printf("]"); + } + io_printf("\n"); + + indent(); + io_printf("=> acc_handle_conn()\n"); + newObject = acc_handle_conn(object); + DumpObject(newObject); + + pop(); + +} + +/************************************************************************* + + DumpPort + - output all information about the given port + +**************************************************************************/ + +static void DumpPort(handle object) +{ + handle parent; + handle newObject; + int index; + + push(); + parent = acc_handle_parent(object); + indent(); + io_printf("- is child of %s\n", acc_fetch_fullname(parent)); + + index = acc_fetch_index(object); + indent(); + io_printf("- index is %d\n", index); + if (acc_handle_port(parent, index) != object) { + tf_error("acc_handle_port() test failure\n"); + } + + indent(); + io_printf("- direction is "); + switch (acc_fetch_direction(object)) { + case accInput: + io_printf("accInput"); + break; + case accOutput: + io_printf("accOutput"); + break; + case accInout: + io_printf("accInout"); + break; + case accMixedIo: + io_printf("accMixedIo"); + break; + default: + io_printf("unknown"); + } + io_printf("\n"); + + indent(); + io_printf("=> acc_handle_loconn()\n"); + newObject = acc_handle_loconn(object); + DumpObject(newObject); + +/* + indent(); + io_printf( "=> acc_handle_hiconn()\n" ); + newObject = acc_handle_hiconn( object ); + DumpObject( newObject ); +*/ + pop(); + +} + +/************************************************************************* + + DumpFunction + - output all information about the given function + +**************************************************************************/ + +static void DumpFunction(handle object) +{ + handle child; + handle path; + handle gate; + handle port; + char *type; + handle driver; + handle check; + handle net; + handle firstNet; + s_location loc; + handle newObject; + int delayMode; + s_timescale_info timescale_info; + handle parent; + + + push(); + + acc_mod_lcb_add(object, lineTrace, NULL); + indent(); + io_printf("- defname is %s\n", acc_fetch_defname(object)); + + indent(); + acc_fetch_location(&loc, object); + io_printf("- location is %s[%d]\n", loc.filename, loc.line_no); + + indent(); + io_printf("- is of type %s[%s]\n", + acc_fetch_type_str(acc_fetch_type(object)), + acc_fetch_type_str(acc_fetch_fulltype(object))); + + parent = acc_handle_parent(object); + indent(); + if (parent != null) { + io_printf("- is child of %s\n", acc_fetch_fullname(parent)); + } else { + io_printf("- is child of %s\n", ""); + } + + + + + + // test acc_next_child + indent(); + io_printf("=> acc_next_child()\n"); + newObject = null; + while (TRUE) { + newObject = acc_next_child(object, newObject); + if (newObject == null) { + break; + } + DumpObject(newObject); + } + + // test acc_next_cell + indent(); + io_printf("=> acc_next_cell()\n"); + newObject = null; + while (TRUE) { + newObject = acc_next_cell(object, newObject); + if (newObject == null) { + break; + } + DumpObject(newObject); + } + + + + // test acc_next_net + indent(); + io_printf("=> acc_next_net()\n"); + newObject = null; + while (TRUE) { + newObject = acc_next_net(object, newObject); + if (newObject == null) { + break; + } + DumpObject(newObject); + } + + // test acc_next_parameter + indent(); + io_printf("=> acc_next_parameter()\n"); + newObject = null; + while (TRUE) { + newObject = acc_next_parameter(object, newObject); + if (newObject == null) { + break; + } + DumpObject(newObject); + } + + + // test acc_next_port + indent(); + io_printf("=> acc_next_port()\n"); + newObject = null; + while (TRUE) { + newObject = acc_next_port(object, newObject); + if (newObject == null) { + break; + } + DumpObject(newObject); + } + + + // test acc_next_portout + indent(); + io_printf("=> acc_next_portout()\n"); + newObject = null; + while (TRUE) { + newObject = acc_next_portout(object, newObject); + if (newObject == null) { + break; + } + DumpObject(newObject); + } + + + // test acc_next_primitive + indent(); + io_printf("=> acc_next_primitive()\n"); + newObject = null; + while (TRUE) { + newObject = acc_next_primitive(object, newObject); + if (newObject == null) { + break; + } + DumpObject(newObject); + } + + + // test acc_next_scope + indent(); + io_printf("=> acc_next_scope()\n"); + newObject = null; + while (TRUE) { + newObject = acc_next_scope(object, newObject); + if (newObject == null) { + break; + } + DumpObject(newObject); + } + + + + // test acc_next + indent(); + io_printf("=> acc_next()\n"); + newObject = null; + while (TRUE) { + newObject = acc_next(declList, object, newObject); + if (newObject == null) { + break; + } + DumpObject(newObject); + } + pop(); +} + +/************************************************************************* + + DumpTask + - output all information about the given task + +**************************************************************************/ + +static void DumpTask(handle object) +{ + handle child; + handle path; + handle gate; + handle port; + char *type; + handle driver; + handle check; + handle net; + handle firstNet; + s_location loc; + handle newObject; + int delayMode; + s_timescale_info timescale_info; + handle parent; + + + push(); + + acc_mod_lcb_add(object, lineTrace, NULL); + indent(); + io_printf("- defname is %s\n", acc_fetch_defname(object)); + + indent(); + acc_fetch_location(&loc, object); + io_printf("- location is %s[%d]\n", loc.filename, loc.line_no); + + indent(); + io_printf("- is of type %s[%s]\n", + acc_fetch_type_str(acc_fetch_type(object)), + acc_fetch_type_str(acc_fetch_fulltype(object))); + + parent = acc_handle_parent(object); + indent(); + if (parent != null) { + io_printf("- is child of %s\n", acc_fetch_fullname(parent)); + } else { + io_printf("- is child of %s\n", ""); + } + + + + // test acc_next_child + indent(); + io_printf("=> acc_next_child()\n"); + newObject = null; + while (TRUE) { + newObject = acc_next_child(object, newObject); + if (newObject == null) { + break; + } + DumpObject(newObject); + } + + // test acc_next_cell + indent(); + io_printf("=> acc_next_cell()\n"); + newObject = null; + while (TRUE) { + newObject = acc_next_cell(object, newObject); + if (newObject == null) { + break; + } + DumpObject(newObject); + } + + + // test acc_next_net + indent(); + io_printf("=> acc_next_net()\n"); + newObject = null; + while (TRUE) { + newObject = acc_next_net(object, newObject); + if (newObject == null) { + break; + } + DumpObject(newObject); + } + + // test acc_next_parameter + indent(); + io_printf("=> acc_next_parameter()\n"); + newObject = null; + while (TRUE) { + newObject = acc_next_parameter(object, newObject); + if (newObject == null) { + break; + } + DumpObject(newObject); + } + + + // test acc_next_port + indent(); + io_printf("=> acc_next_port()\n"); + newObject = null; + while (TRUE) { + newObject = acc_next_port(object, newObject); + if (newObject == null) { + break; + } + DumpObject(newObject); + } + + + // test acc_next_portout + indent(); + io_printf("=> acc_next_portout()\n"); + newObject = null; + while (TRUE) { + newObject = acc_next_portout(object, newObject); + if (newObject == null) { + break; + } + DumpObject(newObject); + } + + + // test acc_next_primitive + indent(); + io_printf("=> acc_next_primitive()\n"); + newObject = null; + while (TRUE) { + newObject = acc_next_primitive(object, newObject); + if (newObject == null) { + break; + } + DumpObject(newObject); + } + + + // test acc_next_scope + indent(); + io_printf("=> acc_next_scope()\n"); + newObject = null; + while (TRUE) { + newObject = acc_next_scope(object, newObject); + if (newObject == null) { + break; + } + DumpObject(newObject); + } + + + // test acc_next + indent(); + io_printf("=> acc_next()\n"); + newObject = null; + while (TRUE) { + newObject = acc_next(declList, object, newObject); + if (newObject == null) { + break; + } + DumpObject(newObject); + } + pop(); +} + +/************************************************************************* + + DumpModule + - output all information about the given module + +**************************************************************************/ + +static void DumpModule(handle object) +{ + handle child; + handle path; + handle gate; + handle port; + char *type; + handle driver; + handle check; + handle net; + handle firstNet; + s_location loc; + handle newObject; + int delayMode; + s_timescale_info timescale_info; + handle parent; + + + push(); + + acc_mod_lcb_add(object, lineTrace, NULL); + indent(); + io_printf("- defname is %s\n", acc_fetch_defname(object)); + + indent(); + acc_fetch_location(&loc, object); + io_printf("- location is %s[%d]\n", loc.filename, loc.line_no); + + indent(); + io_printf("- is of type %s[%s]\n", + acc_fetch_type_str(acc_fetch_type(object)), + acc_fetch_type_str(acc_fetch_fulltype(object))); + + parent = acc_handle_parent(object); + indent(); + if (parent != null) { + io_printf("- is child of %s\n", acc_fetch_fullname(parent)); + } else { + io_printf("- is child of %s\n", ""); + } + + indent(); + io_printf("- delay mode is "); + delayMode = acc_fetch_delay_mode(object); + switch (delayMode) { + case accDelayModeNone: + io_printf("accDelayModeNone"); + break; + case accDelayModeZero: + io_printf("accDelayModeZero"); + break; + case accDelayModeUnit: + io_printf("accDelayModeUnit"); + break; + case accDelayModeDistrib: + io_printf("accDelayModeDistrib"); + break; + case accDelayModePath: + io_printf("accDelayModePath"); + break; + case accDelayModeMTM: + io_printf("accDelayModeMTM"); + break; + default: + io_printf("unknown"); + + } + io_printf("\n"); + + acc_fetch_timescale_info(object, ×cale_info); + indent(); + io_printf("- timescale is %s/%s\n", + TimescaleToString(timescale_info.unit), + TimescaleToString(timescale_info.precision)); + + + + + // test acc_next_child + indent(); + io_printf("=> acc_next_child()\n"); + newObject = null; + while (TRUE) { + newObject = acc_next_child(object, newObject); + if (newObject == null) { + break; + } + DumpObject(newObject); + } + + // test acc_next_cell + indent(); + io_printf("=> acc_next_cell()\n"); + newObject = null; + while (TRUE) { + newObject = acc_next_cell(object, newObject); + if (newObject == null) { + break; + } + DumpObject(newObject); + } + + // test acc_next_modpath + indent(); + io_printf("=> acc_next_modpath()\n"); + newObject = null; + while (TRUE) { + newObject = acc_next_modpath(object, newObject); + if (newObject == null) { + break; + } + DumpObject(newObject); + } + + + // test acc_next_net + indent(); + io_printf("=> acc_next_net()\n"); + newObject = null; + while (TRUE) { + newObject = acc_next_net(object, newObject); + if (newObject == null) { + break; + } + DumpObject(newObject); + } + + // test acc_next_parameter + indent(); + io_printf("=> acc_next_parameter()\n"); + newObject = null; + while (TRUE) { + newObject = acc_next_parameter(object, newObject); + if (newObject == null) { + break; + } + DumpObject(newObject); + } + + + // test acc_next_port + indent(); + io_printf("=> acc_next_port()\n"); + newObject = null; + while (TRUE) { + newObject = acc_next_port(object, newObject); + if (newObject == null) { + break; + } + DumpObject(newObject); + } + + + // test acc_next_portout + indent(); + io_printf("=> acc_next_portout()\n"); + newObject = null; + while (TRUE) { + newObject = acc_next_portout(object, newObject); + if (newObject == null) { + break; + } + DumpObject(newObject); + } + + + // test acc_next_primitive + indent(); + io_printf("=> acc_next_primitive()\n"); + newObject = null; + while (TRUE) { + newObject = acc_next_primitive(object, newObject); + if (newObject == null) { + break; + } + DumpObject(newObject); + } + + + // test acc_next_scope + indent(); + io_printf("=> acc_next_scope()\n"); + newObject = null; + while (TRUE) { + newObject = acc_next_scope(object, newObject); + if (newObject == null) { + break; + } + DumpObject(newObject); + } + + // test acc_next_specparam + indent(); + io_printf("=> acc_next_specparam()\n"); + newObject = null; + while (TRUE) { + newObject = acc_next_specparam(object, newObject); + if (newObject == null) { + break; + } + DumpObject(newObject); + } + + + // test acc_next_tchk + indent(); + io_printf("=> acc_next_tchk()\n"); + newObject = null; + while (TRUE) { + newObject = acc_next_tchk(object, newObject); + if (newObject == null) { + break; + } + DumpObject(newObject); + } + + // test acc_next + indent(); + io_printf("=> acc_next()\n"); + newObject = null; + while (TRUE) { + newObject = acc_next(declList, object, newObject); + if (newObject == null) { + break; + } + DumpObject(newObject); + } + pop(); +} + +/************************************************************************* + + DumpObject + - log object and dispatch if not yet visited + +**************************************************************************/ + +static void DumpObject(handle object) +{ + int index; + int type; + LogEntry_t *logEntry; + + index = HASH(object); + + for (logEntry = hashTable[index]; + logEntry && logEntry->object != object; + logEntry = logEntry->next); + + indent(); + io_printf("%s[%s] is %s<%s>\n", acc_fetch_name(object), + acc_fetch_fullname(object), + acc_fetch_type_str(acc_fetch_type(object)), + acc_fetch_type_str(acc_fetch_fulltype(object))); + + if (logEntry && logEntry->object == object) { + return; + } + + logEntry = (LogEntry_t *) xmalloc(sizeof(LogEntry_t)); + + logEntry->object = object; + logEntry->next = hashTable[index]; + hashTable[index] = logEntry; + + type = acc_fetch_type(object); + switch (type) { + case accTchkTerminal: + DumpTchkTerminal(object); + break; + case accTchk: + DumpTimingCheck(object); + break; + case accParameter: + case accSpecparam: + DumpParam(object); + break; + case accIntegerVar: + case accRealVar: + case accTimeVar: + case accNamedEvent: + DumpDecl(object); + break; + case accReg: + DumpReg(object); + break; + case accNet: + DumpNet(object); + break; + case accTerminal: + DumpTerminal(object); + break; + case accPathTerminal: + DumpPathTerminal(object); + break; + case accPath: + DumpPath(object); + break; + case accPort: + DumpPort(object); + break; + case accFunction: + DumpFunction(object); + break; + case accTask: + DumpTask(object); + break; + case accModule: + DumpModule(object); + break; + case accPrimitive: + DumpPrimitive(object); + break; + default: + indent(); + io_printf("Object of type %s, not yet supported\n", + acc_fetch_type_str(type)); + } +} + + +/************************************************************************* + + $$dumpstructure + - this routine will dump out all information for the entire model + +**************************************************************************/ + +int dumpstructure_call(int data, int reason) +{ + handle scope; + int i; + + acc_initialize(); + + switch (reason) { + case reason_calltf: + io_printf("reason type %s\n", "calltf"); + break; + case reason_checktf: + enableReason = TRUE; + io_printf("reason type %s\n", "checktf"); + return 0; + case reason_sizetf: + io_printf("reason type %s\n", "sizetf"); + return 0; + case reason_disable: + if (!enableReason) { + return 0; + } + io_printf("reason type %s\n", "disable"); + return 0; + case reason_paramvc: + if (!enableReason) { + return 0; + } + io_printf("reason type %s\n", "paramvc"); + return 0; + case reason_synch: + if (!enableReason) { + return 0; + } + io_printf("reason type %s\n", "synch"); + return 0; + case reason_finish: + if (!enableReason) { + return 0; + } + io_printf("reason type %s\n", "finish"); + return 0; + case reason_reactivate: + if (!enableReason) { + return 0; + } + io_printf("reason type %s\n", "reactivate"); + return 0; + case reason_rosynch: + if (!enableReason) { + return 0; + } + io_printf("reason type %s\n", "rosynch"); + return 0; + case reason_paramdrc: + if (!enableReason) { + return 0; + } + io_printf("reason type %s\n", "paramdrc"); + return 0; + case reason_interactive: + if (!enableReason) { + return 0; + } + io_printf("reason type %s\n", "interactive"); + return 0; + case reason_endofcompile: + if (!enableReason) { + return 0; + } + io_printf("reason type %s\n", "endofcompile"); + for (i = 0; i < HASH_SIZE; i++) { + hashTable[i] = NULL; + } + return 0; + case reason_force: + if (!enableReason) { + return 0; + } + io_printf("reason type %s\n", "force"); + return 0; + case reason_release: + if (!enableReason) { + return 0; + } + io_printf("reason type %s\n", "release"); + return 0; + case reason_scope: + if (!enableReason) { + return 0; + } + io_printf("reason type %s\n", "scope"); + return 0; + default: + if (!enableReason) { + return 0; + } + io_printf("unknown reason type %d\n", reason); + return 0; + } + + depth = 0; + + tf_asynchon(); + scope = null; + while (true) { + scope = acc_next_topmod(scope); + if (scope == null) { + break; + } + DumpObject(scope); + } + + + acc_close(); + return (0); +} + +/************************************************************************* + + $$setvalue + - this will allow set value to be tested + $$setvalue( mode, decl, value, radix,delay ) + mode is string eg "accForce: + decl is net or reg + value is string or parameter value + radix is string eg "accStringVal" + delay is a time variable + +**************************************************************************/ + +int setvalue_call(int data, int reason) +{ + handle decl; + s_acc_vecval vecval; + s_acc_value value; + s_setval_delay delay; + char *ptr; + + if (reason != reason_calltf) { + return 0; + } + + acc_initialize(); + + if (tf_nump() != 5) { + tf_error + (" Error: $$setvalue( \"mode\", decl, \"value\", \"format\", delay );"); + return 0; + } + + + ptr = acc_fetch_tfarg_str(1); + if (!strcmp(ptr, "accNoDelay")) { + delay.model = accNoDelay; + } else if (!strcmp(ptr, "accInertialDelay")) { + delay.model = accInertialDelay; + } else if (!strcmp(ptr, "accTransportDelay")) { + delay.model = accTransportDelay; + } else if (!strcmp(ptr, "accPureTransportDelay")) { + delay.model = accPureTransportDelay; + } else if (!strcmp(ptr, "accAssignFlag")) { + delay.model = accAssignFlag; + } else if (!strcmp(ptr, "accDeassignFlag")) { + delay.model = accDeassignFlag; + } else if (!strcmp(ptr, "accForceFlag")) { + delay.model = accForceFlag; + } else if (!strcmp(ptr, "accReleaseFlag")) { + delay.model = accReleaseFlag; + } + + decl = acc_handle_tfarg(2); + + ptr = acc_fetch_tfarg_str(4); + if (!strcmp(ptr, "accScalarVal")) { + ptr = acc_fetch_tfarg_str(3); + value.format = accScalarVal; + if (!strcmp(ptr, "acc0")) { + value.value.scalar = acc0; + } else if (!strcmp(ptr, "acc1")) { + value.value.scalar = acc1; + } else if (!strcmp(ptr, "accX")) { + value.value.scalar = accX; + } else { + value.value.scalar = accZ; + } + } else if (!strcmp(ptr, "accVectorVal")) { + s_tfexprinfo info; + tf_exprinfo(3, &info); + value.format = accVectorVal; + value.value.vector = (p_acc_vecval) info.expr_value_p; + } else if (!strcmp(ptr, "accIntVal")) { + value.value.integer = acc_fetch_tfarg_int(3); + value.format = accIntVal; + } else if (!strcmp(ptr, "accRealVal")) { + value.value.real = acc_fetch_tfarg(3); + value.format = accRealVal; + } else if (!strcmp(ptr, "accStringVal")) { + value.value.str = acc_fetch_tfarg_str(3); + value.format = accStringVal; + } else if (!strcmp(ptr, "accBinStrVal")) { + value.value.str = acc_fetch_tfarg_str(3); + value.format = accBinStrVal; + } else if (!strcmp(ptr, "accOctStrVal")) { + value.value.str = acc_fetch_tfarg_str(3); + value.format = accOctStrVal; + } else if (!strcmp(ptr, "accDecStrVal")) { + value.value.str = acc_fetch_tfarg_str(3); + value.format = accDecStrVal; + } else if (!strcmp(ptr, "accHexStrVal")) { + value.value.str = acc_fetch_tfarg_str(3); + value.format = accHexStrVal; + } + + delay.time.low = tf_getlongp(&delay.time.high, 5); + delay.time.type = accSimTime; + + acc_set_value(decl, &value, &delay); + + acc_close(); + + return 0; +} diff --git a/src/plihacks.h b/src/plihacks.h new file mode 100644 index 0000000..2536755 --- /dev/null +++ b/src/plihacks.h @@ -0,0 +1,51 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/****************************************************************************** + * + * plihacks.h + * definitions for plihacks.c + * + ******************************************************************************/ + +#ifndef PLIHACKS_H +#define PLIHACKS_H + +// global definitions + +int abort_call(int data, int reason); +int dumpstructure_call(int data, int reason); +int setvalue_call(int data, int reason); +void lineTrace(char *file, unsigned int line, char *udata); + +#ifdef PLIHACKS_C + +// private definitions + +static void push(void); +static void pop(void); +static void indent(void); +static void DumpTask(handle object); +static void DumpFunction(handle object); +static void DumpModule(handle object); +static void dumpDecl(handle object); +static void DumpObject(handle); +#endif // PLIHACKS_C + +#endif // PLIHACKS_H diff --git a/src/print.cc b/src/print.cc new file mode 100644 index 0000000..539faad --- /dev/null +++ b/src/print.cc @@ -0,0 +1,1470 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* PRINT.C - Print numbers, text, statements to screen, files, log */ +#define PRINT_C + +#include +#include +#include "vtypes.h" +#include "tree.h" +#include "io.h" +#include "print.h" +#include "glue.h" +#include "runtime.h" +#include "veriwell.h" + +static int print_indent; +char indent_spaces[100] = ""; +static char *doubler = NULL; +static unsigned int dd = 0; +static char *acc = NULL; +static unsigned int aa = 0; + +static char *print_buf; +static int print_buf_size; + +char *set_print_buf(unsigned_32_t size) +{ + if (size > print_buf_size) { + if (!print_buf) + print_buf = (char *) xmalloc(size); + else + print_buf = (char *) xrealloc(print_buf, size); + print_buf_size = size; + if (!print_buf) { + error("Out of memory while displaying a constant", NULL, NULL); + } + } + return print_buf; +} + +void +print_bcd(handle_t handle, Group * val, nbits_t nbits, int integer_attr, + int pad) +{ + print_bcd_(val, nbits, integer_attr, pad); + fprintf_V(handle, "%s", print_buf); +} + +static void print_char(handle_t handle, int c, int fill) +{ + if (!c) { + if (fill) + fprintf_V(handle, " "); + } else if (c == '\n') + fprintf_V(handle, "\\n"); + else if (c == ('\"')) + fprintf_V(handle, "\\\""); + else if (c == '\\') + fprintf_V(handle, "\\\\"); + else if (c == '\t') + fprintf_V(handle, "\\t"); + else if (c < ' ' || c >= 127) /* 177 octal */ + fprintf_V(handle, "\\%.3o", c); + else + fprintf_V(handle, "%c", c); +} + +static void +print_string(handle_t handle, Group * g_base, nbits_t nbits, int fill) +{ + ngroups_t i, ngroups = bits_to_groups(nbits); + int num_chars, starting_char_offset, j, c; + Group *g; + +// fprintf_V (handle, "\""); + num_chars = nbits / 8; + starting_char_offset = (num_chars - 1) % sizeof(Bit) + 1; + g = g_base + ngroups; + for (j = starting_char_offset - 1; j >= 0; j--) { + c = (AVAL(g) >> j * 8) & 255; + print_char(handle, c, fill); + } + --g; + for (i = 1; i <= ngroups; i++, --g) + for (j = sizeof(Bit) - 1; j >= 0; j--) { + c = (AVAL(g) >> j * 8) & 255; + print_char(handle, c, fill); + } +// fprintf_V (handle, "\""); +} + +/* Print a decimal number. If all bits are X, print "x". If some bits + are X, print "X". If all bits are Z, print "z". If some bits are + Z, print "Z". Else print the number. +*/ + +void +print_dec(handle_t handle, Group * g, nbits_t nbits, int int_attr, int pad) +{ + Group *g1 = g; + ngroups_t i, ngroups = bits_to_groups(nbits); + Bit tmp, mask = mask_right1[nbits & NBITS_MASK]; + enum { START, NO_XZ, SOME_Z, ALL_Z, SOME_X, ALL_X } state; + + state = START; + for (i = 0; i < ngroups; i++, g1++) { + tmp = AVAL(g1) & BVAL(g1); /* Look for Xs */ + if (tmp == -1) /* All Xs */ + state = (state == START || state == ALL_X) ? ALL_X : SOME_X; + else if (tmp || state == ALL_X) { /* Some Xs */ + state = SOME_X; + break; /* SOME_X has highest precedence */ + } else { /* No Xs, look for Zs */ + + tmp = ~AVAL(g1) & BVAL(g1); /* Look for Zs */ + if (tmp == -1) /* All Zs */ + state = (state == START + || state == ALL_Z) ? ALL_Z : SOME_Z; + else if (tmp || state == ALL_Z) /* Some Zs */ + state = SOME_Z; + else + state = NO_XZ; + } + } + + switch (state) { + case START: + tmp = AVAL(g1) & BVAL(g1) & mask; /* mask, fill w/1s */ + if (tmp == mask) + fprintf_V(handle, "x"); + else if (tmp) + fprintf_V(handle, "X"); + else if ((tmp = ~AVAL(g1) & BVAL(g1) & mask) == mask) + fprintf_V(handle, "z"); + else if (tmp) + fprintf_V(handle, "Z"); + else + print_bcd(handle, g, nbits, int_attr, pad); + break; + case NO_XZ: + print_bcd(handle, g, nbits, int_attr, pad); + break; + case SOME_X: + fprintf_V(handle, "X"); + break; + case SOME_Z: + fprintf_V(handle, "Z"); + break; + case ALL_X: + if ((AVAL(g1) & BVAL(g1) & mask) == mask) + fprintf_V(handle, "x"); + else + fprintf_V(handle, "X"); + break; + case ALL_Z: + if ((~AVAL(g1) & BVAL(g1) & mask) == mask) + fprintf_V(handle, "z"); + else if (AVAL(g1) & BVAL(g1) & mask) + fprintf_V(handle, "X"); + else + fprintf_V(handle, "Z"); + break; + } +} + +static enum print_state +print_group(Bit aval, Bit bval, int size, enum print_state state, int last, + enum radii radix, int *octal_shift, + Bit * residue_aval, Bit * residue_bval) +{ + int i; + Bit temp1, temp2; + Bit digit_mask, size_mask, radix_mask; + int decrement; + char *pb = print_buf; + int any_xs; + + switch (radix) { + case (HEX): + radix_mask = 15; + size_mask = (Bit) - 4; + decrement = 4; + break; + + case (OCT): + radix_mask = 7; + size_mask = (Bit) - 1; + decrement = 3; + break; + + case (BIN): + radix_mask = 1; + size_mask = (Bit) - 1; + decrement = 1; + break; + } + + aval = aval & mask_right[size]; + bval = bval & mask_right[size]; + + /* if radix is octal, digits may be unaligned. Print residue from previous + group, if applicable, and start from the right place. + */ + if (radix == OCT) { + /* Note: this formula works for 32-bit groups only!! */ +#if NBITS_MASK != 0x1f +#error Octal only supports 32 bits +#endif + int unaligned = size % 3 - *octal_shift; + + /* Carry forward bits from prev group */ + if (size == BITS_IN_GROUP && unaligned > 0) { + i = 32 - unaligned; + temp1 = (aval >> i) | (*residue_aval << unaligned); + temp2 = (bval >> i) | (*residue_bval << unaligned); + goto oct_continue; /* yeah, yeah; clean this up later */ + } else { + i = (size - 1) - ((size - 1) % 3) + *octal_shift; + if (i == 32) + i -= 3; + } + } else + i = (size - 1) & size_mask; + + for (; i >= 0; i = i - decrement) { + temp1 = (aval >> i) & radix_mask; + temp2 = (bval >> i) & radix_mask; + oct_continue: + digit_mask = (mask_right[size] >> i) & radix_mask; + + if (!temp2) /* Zero or one */ + switch (state) { + case START: + case EXTEND_0: + if (temp1) { /* not zero */ + state = EXTEND_DONE; + sprintf(pb++, "%1x", temp1); + } else { /* zero */ + + state = EXTEND_0; + *pb = '\0'; + } + break; + + case EXTEND_X: + sprintf(pb, "x%1x", temp1); + pb += 2; + state = EXTEND_DONE; + break; + + case EXTEND_Z: + sprintf(pb, "z%1x", temp1); + pb += 2; + state = EXTEND_DONE; + break; + + case EXTEND_DONE: + sprintf(pb++, "%1x", temp1); + break; + } + + else if ((any_xs = temp1 & temp2) != 0) /* One or more X's */ + switch (state) { + case START: + state = EXTEND_X; + case EXTEND_X: + *pb = '\0'; + break; + + case EXTEND_Z: + if (any_xs == digit_mask) + sprintf(pb, "zx"); + else + sprintf(pb, "zX"); + pb += 2; + state = EXTEND_DONE; + break; + + case EXTEND_0: + if (any_xs == digit_mask) + sprintf(pb, "0x"); + else + sprintf(pb, "0X"); + pb += 2; + state = EXTEND_DONE; + break; + + case EXTEND_DONE: + if ((any_xs & digit_mask) == digit_mask) + sprintf(pb++, "x"); + else + sprintf(pb++, "X"); + break; + } + + else /* All Z's */ + switch (state) { + case START: + state = EXTEND_Z; + case EXTEND_Z: + *pb = '\0'; + break; + + case EXTEND_X: + if (temp1) + sprintf(pb, "xZ"); + else + sprintf(pb, "xz"); + pb += 2; + state = EXTEND_DONE; + break; + + case EXTEND_0: + if (temp1) + sprintf(pb, "0Z"); + else + sprintf(pb, "0z"); + pb += 2; + state = EXTEND_DONE; + break; + + case EXTEND_DONE: + if (temp1) + sprintf(pb++, "Z"); + else + sprintf(pb++, "z"); + break; + } + + } + + /* Nothing was printed? */ + if (last && state != EXTEND_DONE) { + if (state == EXTEND_0) + sprintf(pb++, "0"); + else if (state == EXTEND_X) + sprintf(pb++, "x"); + else + sprintf(pb++, "z"); + } + + if (radix == OCT) { + if (i < 0) { + *residue_aval = aval & mask_right[*octal_shift]; + *residue_bval = bval & mask_right[*octal_shift]; + *octal_shift = (*octal_shift + 2) % 3; + } else { + *octal_shift = 0; + *residue_aval = 0; + *residue_bval = 0; + } + } + return state; +} + +/* Print a binary number to a "c"-style FILE handle (e.g. for dump files) */ + +void print_binary_file(FILE * file, Group * g, nbits_t nbits) +{ + ngroups_t i, ngroups = bits_to_groups(nbits); + int octal_shift; /* These aren't relavent */ + Bit r_aval, r_bval; /* ... */ + enum print_state state; + + set_print_buf(sizeof(Bit) * 8 + 2); /* One for \0 and one for just in case */ + + if (!ngroups) { /* sizeof (Bit) is in bytes */ + print_group(AVAL(g), BVAL(g), (int) nbits, START, 1, BIN, + &octal_shift, &r_aval, &r_bval); + fprintf(file, "%s", print_buf); + } else { + g = g + ngroups; + state = print_group(AVAL(g), BVAL(g), + (int) ((nbits - 1) % (sizeof(Bit) * 8) + 1), + START, 0, BIN, &octal_shift, &r_aval, &r_bval); + fprintf(file, "%s", print_buf); + g--; + for (i = ngroups - 1; i > 0; i--, g--) { + state = print_group(AVAL(g), BVAL(g), sizeof(Bit) * 8, + state, 0, BIN, &octal_shift, &r_aval, + &r_bval); + fprintf(file, "%s", print_buf); + } + state = print_group(AVAL(g), BVAL(g), sizeof(Bit) * 8, + state, 1, BIN, &octal_shift, &r_aval, &r_bval); + fprintf(file, "%s", print_buf); + } +} + +/* print number pointed to by 'g' in given radix. If "print_nbits" is + supplied, print in the form of "32h'xxxx", else leave out radix + info and pad with spaces. +*/ + +void +print_datum_file(handle_t handle, Group * g, nbits_t print_nbits, + nbits_t nbits, enum radii radix, int is_integer, + int fill_space, char *spec) +{ + ngroups_t i; + ngroups_t ngroups = bits_to_groups(nbits); + int octal_shift; + Bit r_aval = 0, r_bval = 0; + enum print_state state; + + set_print_buf(sizeof(Bit) * 8 + 3); + + switch (radix) { + case (HEX): + if (print_nbits) + printf_V("%d'h", print_nbits); + break; + case (OCT): + if (print_nbits) + printf_V("%d'o", print_nbits); + octal_shift = ngroups % 3; +// residue = residue ? 3 - residue : 0; + r_aval = r_bval = 0; + break; + case (BIN): + if (print_nbits) + printf_V("%d'b", print_nbits); + break; + case (DEC): + print_bcd(handle, g, nbits, is_integer, fill_space); + return; +// print_dec (handle, g, nbits, is_integer, fill_space); +// return; + case STRING_: + print_string(handle, g, nbits, fill_space); + return; + case CHAR_: + printf_V("%c", AVAL(g)); + return; + case EXP_: + case FLOAT_: + case EXPFLOAT_: + printf_V(spec, REAL_(g)); + return; + case TIME_: +// timeformatprint (REAL_ (g)); /* "%t", this is a timeformat */ + return; + } + +// if (fill_space) +// fill = ' '; +// else +// { + if (print_nbits || !fill_space) + state = START; /* space fill */ + else + state = EXTEND_DONE; /* zero fill */ +// } + + if (!ngroups) { /* sizeof (Bit) is in bytes */ + print_group(AVAL(g), BVAL(g), (int) nbits, state, 1, radix, + &octal_shift, &r_aval, &r_bval); + fprintf_V(handle, "%s", print_buf); + } else { + g = g + ngroups; + state = print_group(AVAL(g), BVAL(g), + (int) ((nbits - 1) % (sizeof(Bit) * 8) + 1), + state, 0, radix, &octal_shift, &r_aval, + &r_bval); + fprintf_V(handle, "%s", print_buf); + g--; + for (i = ngroups - 1; i > 0; i--, g--) { + state = print_group(AVAL(g), BVAL(g), sizeof(Bit) * 8, + state, 0, radix, &octal_shift, &r_aval, + &r_bval); + fprintf_V(handle, "%s", print_buf); + } + state = print_group(AVAL(g), BVAL(g), sizeof(Bit) * 8, + state, 1, radix, &octal_shift, &r_aval, + &r_bval); + fprintf_V(handle, "%s", print_buf); + } +} + +void +print_datum(Group * g, nbits_t print_nbits, nbits_t nbits, + enum radii radix, int is_integer, int fill_space) +{ + print_datum_file((handle_t) 1, g, print_nbits, nbits, radix, + is_integer, fill_space, NULL); +} + +void print_common(tree node) +{ + printf_error_V("%s%s @ %p; chain: %p; len: %i; type: %u\n", + indent_spaces, tree_code_name[TREE_CODE(node)], node, + TREE_CHAIN(node), tree_code_length[TREE_CODE(node)], + TREE_TYPE(node)); +} + +static void print_block_common(tree node) +{ + printf("%sdecl: %p; ports: %p; params: %p; up: %p; down: %p\n", + indent_spaces, BLOCK_DECL(node), BLOCK_PORTS(node), + BLOCK_PARAM(node), BLOCK_UP(node), BLOCK_DOWN(node)); +} + +static void print_decl_common(tree node) +{ + printf("%s%s[]; context: %p\n", indent_spaces, + IDENTIFIER_POINTER(DECL_NAME(node)), DECL_CONTEXT(node)); +} + +void print_stats(void) +{ + extern unsigned long mem; + extern int num_nodes; + extern int num_nodes_g; + extern int num_nodes_e; + extern int num_nodes_b; + extern int num_nodes_s; + extern int num_nodes_r; + extern int num_nodes_c; + extern int num_nodes_d; + extern int num_nodes_x; + extern int big_label; + extern int max_label; + extern ngroups_t stack_size; + + + extern int serial; + + + + printf_V("%s\nVersion %s\n\n", VERIWELL, VERSION); + printf_V("\n"); + printf_V("Number of objects: %u\n", num_nodes); + printf_V(" Primitive objects: %u\n", num_nodes_g); + printf_V(" Expression objects: %u\n", num_nodes_e); + printf_V(" Block objects: %u\n", num_nodes_b); + printf_V(" Statement objects: %u\n", num_nodes_s); + printf_V(" Reference objects: %u\n", num_nodes_r); + printf_V(" Constant objects: %u\n", num_nodes_c); + printf_V(" Decl objects: %u\n", num_nodes_d); + printf_V(" Misc objects: %u\n", num_nodes_x); + printf_V("Largest Expression: %u\n", big_label); + printf_V("Stack size: %u\n", stack_size); + printf_V("Stack objects: %u\n", max_label); +} + +static void print_args(tree node) +{ + tree t; + + for (t = node; t; t = TREE_CHAIN(t)) { + if (TREE_EXPR(t)) + print_expr(TREE_EXPR(t)); + if (TREE_CHAIN(t)) + printf_V(", "); + } +} + +static void print_ref(tree node) +{ + enum tree_code code = TREE_CODE(node); + tree t; + + switch (code) { + case (IDENTIFIER_NODE): + printf_V("%s", IDENTIFIER_POINTER(node)); + break; + case (TREE_LIST): + printf_V("{"); + for (t = TREE_VALUE(node); t; t = TREE_CHAIN(t)) + print_ref(t); + printf_V("}"); + break; + case ARRAY_REF: + if (HIERARCHICAL_ATTR(node)) + printf_V("%s", IDENT(ARRAY_REF_NAME(node))); + else + printf_V("%s", IDENT(DECL_NAME(ARRAY_REF_DECL(node)))); + printf_V("["); + print_expr(TREE_OPERAND(node, 1)); + printf_V("]"); + break; + case (BIT_REF): + if (HIERARCHICAL_ATTR(node)) + printf_V("%s", IDENT(BIT_REF_NAME(node))); + else + printf_V("%s", IDENT(DECL_NAME(BIT_REF_DECL(node)))); + printf_V("["); + print_expr(BIT_EXPR(node)); + printf_V("]"); + break; + case CONCAT_REP_REF: + printf_V("{"); + print_expr(CONCAT_EXPR(node)); + printf_V(" "); + case CONCAT_REF: + printf_V("{"); + CONCAT_LIST(node) = nreverse(CONCAT_LIST(node)); + for (t = CONCAT_LIST(node); t; t = TREE_CHAIN(t)) { + print_expr(TREE_PURPOSE(t)); + if (TREE_CHAIN(t)) + printf_V(", "); + } + CONCAT_LIST(node) = nreverse(CONCAT_LIST(node)); + printf_V("}"); + if (code == CONCAT_REP_REF) + printf_V("}"); + break; + case (PART_REF): + if (HIERARCHICAL_ATTR(node)) + printf_V("%s", IDENT(PART_NAME(node))); + else + printf_V("%s", IDENT(DECL_NAME(PART_DECL(node)))); + printf_V("["); + print_expr(PART_MSB_(node)); + printf_V(": "); + print_expr(PART_LSB_(node)); + printf_V("]"); + break; + case SHADOW_REF: + print_expr(TREE_CHAIN(node)); + break; + case SHADOW_LVAL_REF: + printf_V("%s", IDENT(REF_NAME(node))); + break; + case SYSFUNCTION_REF: + case FUNCTION_REF: + printf_V("%s", FUNC_REF_NAME(node)); + printf_V(" ("); + print_args(FUNC_REF_ARGS(node)); + printf_V(")"); + break; + + default: + printf_V("Unimplemeted reference in trace: %s", + tree_code_name[TREE_CODE(node)]); + break; + } +} + +void print_delay(tree node) +{ + int i; + + if (!node) + return; + + printf_V("#"); + if (TREE_LABEL(node) != 1 || + *tree_code_type[TREE_CODE(TREE_OPERAND(node, 0))] != 'd' && + *tree_code_type[TREE_CODE(TREE_OPERAND(node, 0))] != 'c') + printf_V("("); + + for (i = 0;;) { + print_expr(TREE_OPERAND(node, i)); + if (++i < TREE_LABEL(node)) + printf_V(", "); + else + break; + } + + if (TREE_LABEL(node) != 1 || + *tree_code_type[TREE_CODE(TREE_OPERAND(node, 0))] != 'd' && + *tree_code_type[TREE_CODE(TREE_OPERAND(node, 0))] != 'c') + printf_V(")"); + printf_V(" "); +} + +static void print_delay_stmt(tree node) +{ + printf_V("#"); + if (*tree_code_type[TREE_CODE(STMT_DELAY_EXPR(node))] == 'e') + printf_V("("); + print_expr(STMT_DELAY_EXPR(node)); + if (*tree_code_type[TREE_CODE(STMT_DELAY_EXPR(node))] == 'e') + printf_V(")"); +} + +static void print_event_stmt(tree node) +{ + tree t; + + printf_V("@"); + + /* @ identifier */ +// if (TREE_CODE (TREE_EXPR (STMT_EVENT_EXPR_LIST (node))) == ANYEDGE_EXPR) + if (!TREE_CHAIN(STMT_EVENT_EXPR_LIST(node)) && + TREE_CODE(TREE_EXPR(STMT_EVENT_EXPR_LIST(node))) == ANYEDGE_EXPR) { + tree op = TREE_OPERAND(TREE_EXPR(STMT_EVENT_EXPR_LIST(node)), 0); + if (*tree_code_type[TREE_CODE(op)] + == 'd' && !TREE_CHAIN(STMT_EVENT_EXPR_LIST(node))) + print_expr(TREE_EXPR(STMT_EVENT_EXPR_LIST(node))); + } + /* @(expression) */ + else { + printf_V("("); + for (t = STMT_EVENT_EXPR_LIST(node); t; t = TREE_CHAIN(t)) { + print_expr(TREE_EXPR(t)); + if (TREE_CHAIN(t)) + printf_V(" OR "); + } + printf_V(")"); + } +} + +void print_assignment(tree node) +{ + print_expr(STMT_ASSIGN_LVAL(node)); + printf_V(" = "); + +// if (TREE_CODE (node) != ASSIGN_STMT) +// print_delay (STMT_ASSIGN_CONTROL (node)); + print_expr(STMT_ASSIGN_RVAL(node)); +} + +void print_expr(tree node) +{ + enum tree_code code = TREE_CODE(node); + tree right_op; + char *type = tree_code_type[TREE_CODE(node)]; + + switch (*type) { + case ('d'): + printf_V("%s", IDENTIFIER_POINTER(DECL_NAME(node))); + break; + + case ('c'): + if (code == INTEGER_CST) { +// signed_32_t i; +// HIGH_INT (i) = INT_CST_HIGH (node); +// LOW_INT (i) = INT_CST_LOW (node); + printf_V("%ld", INT_CST_DATA(node)); + } else if (code == REAL_CST) { +// signed_32_t i; +// HIGH_INT (i) = INT_CST_HIGH (node); +// LOW_INT (i) = INT_CST_LOW (node); + printf_V("%lf", REAL_CST_DATA(node)); + } else if (BIT_CST_RADIX(node) == STRING_) { + fprintf_V((handle_t) 1, "\""); + print_string((handle_t) 1, BIT_CST_GROUP(node), + BIT_CST_NBITS(node), 0); + fprintf_V((handle_t) 1, "\""); +// print_datum (BIT_CST_GROUP (node), R_nbits, BIT_CST_NBITS (node), BIT_CST_RADIX (node)); + } else + print_datum(BIT_CST_GROUP(node), BIT_CST_NBITS(node), + BIT_CST_NBITS(node), BIT_CST_RADIX(node), 0, 0); + break; + + case ('e'): + switch (*++type) { + case 'x': + case '1': + print_expr(TREE_OPERAND(node, 0)); + right_op = TREE_OPERAND(node, 1); + printf_V(" %s ", tree_code_name[code]); + break; + case 'u': + case 'r': + right_op = TREE_OPERAND(node, 0); + if (code != ANYEDGE_EXPR) + printf_V("%s", tree_code_name[code]); + break; + case 's': + print_expr(SHIFT_OPERAND(node)); + right_op = NULL_TREE; + printf_V(" %s ", tree_code_name[code]); + print_expr(SHIFT_COUNT(node)); + break; + case '3': + printf_V("("); + print_expr(COND_EXPR(node)); + printf_V(" ? "); + print_expr(COND_TRUE(node)); + printf_V(" : "); + print_expr(COND_FALSE(node)); + printf_V(")"); + break; + case 'c': + right_op = NULL_TREE; + if (code == NOP_EXPR) { + print_expr(TREE_OPERAND(node, 0)); + break; + } + printf_V(" %s ", tree_code_name[code]); + printf_V("("); + print_expr(TREE_OPERAND(node, 0)); + printf_V(")"); + break; + default: + printf_V("Expression type not implemented in trace\n"); + } + if ((*type != '3') && right_op) { + if (*tree_code_type[TREE_CODE(right_op)] == 'e' + && tree_code_length[TREE_CODE(right_op)] == 2) { + printf_V("("); + print_expr(right_op); + printf_V(")"); + } else + print_expr(right_op); + } + break; + + case ('r'): + print_ref(node); + break; + + case 'x': + if (code == IDENTIFIER_NODE) + printf_V("%s", IDENTIFIER_POINTER(node)); + else + printf_V("Unimplemeted reference in Trace: %s", + tree_code_name[TREE_CODE(node)]); + break; + + + default: + printf_V("Unimplemeted reference in Trace: %s", + tree_code_name[TREE_CODE(node)]); + break; + } +} + +int print_node(tree node) +{ + enum tree_code code = TREE_CODE(node); + + switch (code) { + case ALWAYS_BLOCK: + printf_V("ALWAYS"); + break; + + case INITIAL_BLOCK: + printf_V("INITIAL"); + break; + + case BEGIN_STMT: + printf_V("BEGIN"); + break; + + case END_STMT: + printf_V("END"); + break; + + case BEGIN_NAMED_STMT: + printf_V("BEGIN : %s", IDENT(BLOCK_NAME(STMT_BLOCK(node)))); + break; + + case END_NAMED_STMT: + printf_V("END : %s", IDENT(BLOCK_NAME(STMT_BLOCK(node)))); + break; + + case FORK_STMT: + printf_V("FORK"); + break; + + case JOIN_STMT: + printf_V("JOIN"); + break; + + case FOREVER_STMT: + printf_V("FOREVER"); + break; + + case WHILE_STMT: + printf_V("WHILE ("); + print_expr(STMT_WHILE_COND(node)); + printf_V(")"); + break; + + case (IF_STMT): + printf_V("IF ("); + print_expr(STMT_COND(node)); + printf_V(")"); + break; + + case REPEAT_STMT: + case REPEAT_INIT_STMT: + printf_V("REPEAT ("); + print_expr(STMT_REPEAT_EXPR(node)); + printf_V(")"); + break; + + case CASE_STMT: + printf_V("CASE ("); + goto case_common; + case CASEX_STMT: + printf_V("CASEX ("); + goto case_common; + case CASEZ_STMT: + printf_V("CASEZ ("); + case_common: + print_expr(STMT_CASE_EXPR(node)); + printf_V(")"); + break; + + case ASSIGN_PROC_STMT: + printf_V("ASSIGN "); + goto assign_common; + + case FORCE_STMT: + printf_V("FORCE "); + goto assign_common; + + case ASSIGN_STMT: + assign_common: + print_assignment(node); + printf_V(";"); + break; + + case ASSIGN_DELAY_STMT: + case ASSIGN_EVENT_STMT: + print_expr(STMT_ASSIGN_LVAL(node)); + printf_V(" = "); + if (code == ASSIGN_DELAY_STMT) + print_delay_stmt(STMT_ASSIGN_DELAY(node)); + else if (code == ASSIGN_EVENT_STMT) + print_event_stmt(STMT_ASSIGN_EVENT(node)); + printf_V(" "); + print_expr(STMT_ASSIGN_RVAL(node)); + printf_V(";"); + break; + + case ASSIGN_NONBLK_DELAY_STMT: + case ASSIGN_NONBLK_EVENT_STMT: + print_expr(STMT_ASSIGN_LVAL(node)); + printf_V(" <= "); + if (code == ASSIGN_NONBLK_DELAY_STMT) + print_delay_stmt(STMT_ASSIGN_DELAY(node)); + else if (code == ASSIGN_NONBLK_EVENT_STMT) + print_event_stmt(STMT_ASSIGN_EVENT(node)); + printf_V(" "); + print_expr(STMT_ASSIGN_RVAL(node)); + printf_V(";"); + break; + + case (FOR_STMT): + printf_V("For ("); + if (!STMT_SURROGATE_ATTR(node)) + print_assignment(STMT_FOR_ASSIGN(node)); + printf_V("; "); + print_expr(STMT_FOR_COND(node)); + printf_V(";"); + if (STMT_SURROGATE_ATTR(node)) { + printf_V(" "); + print_assignment(STMT_FOR_ASSIGN(node)); + } + break; + + case DELAY_STMT: + print_delay_stmt(node); + break; + + case WAIT_STMT: + printf_V("WAIT "); + print_expr(STMT_WAIT_EXPR(node)); + break; + + case EVENT_STMT: + print_event_stmt(node); + break; + + case ARROW_STMT: + printf_V("-> "); + print_expr(STMT_BODY(node)); + break; + + case TASK_STMT: + case SYSTASK_STMT: + printf_V("%s", STMT_TASK_NAME(node)); + if (STMT_TASK_ARGS(node)) { + printf_V(" ("); + print_args(STMT_TASK_ARGS(node)); + printf_V(")"); + } + break; + +/* + case TASK_BLOCK: + case FUNCTION_BLOCK: + printf_V ("%s; >>> RETURNING\n", IDENT (BLOCK_NAME (node))); + break; +*/ + + case FUNCTION_REF: + printf_V("%s", FUNC_REF_NAME(node)); + printf_V(" ("); + print_args(FUNC_REF_ARGS(node)); + printf_V(")"); + break; + + case DISABLE_STMT: + printf_V("DISABLE %s", + IDENTIFIER_POINTER(STMT_DISABLE_NAME(node))); + break; + + case DEASSIGN_STMT: + printf_V("DEASSIGN %s", IDENT(DECL_NAME(STMT_BODY(node)))); + break; + + case RELEASE_STMT: + printf_V("RELEASE %s;", IDENT(DECL_NAME(STMT_BODY(node)))); + break; + + case NULL_STMT: + printf_V(";"); + break; + + default: + printf_V("Statement not known to print_node: %s\n", + tree_code_name[code]); + break; + } + return (0); +} + +static unsigned int bcd_add(char a[], char b[], unsigned int ndigits) +{ + unsigned i; + char aa, carry = 0; + + HEAPTEST("bcd_add 1"); + for (i = 0; i < ndigits; i++) { + aa = a[i] + b[i] + carry; + if (aa > 9) { + carry = 1; + aa -= 10; + } else + carry = 0; + + a[i] = aa; + } + HEAPTEST("bcd_add 2"); + if (carry) { + a[i] = 1; + HEAPTEST("bcd_add 3"); + return ndigits + 1; + } else + return ndigits; +} + +static unsigned int bcd_inc(char a[], unsigned int ndigits) +{ + unsigned i; + char aa, carry = 1; + + for (i = 0; i < ndigits; i++) { + aa = a[i] + carry; + if (aa > 9) { + carry = 1; + aa -= 10; + } else + carry = 0; + + a[i] = aa; + } + if (carry) { + a[i] = 1; + HEAPTEST("bcd_inc 3"); + return ndigits + 1; + } else + return ndigits; +} + +#define ACCINC 5 + +static void +print_bcd_(Group * val, nbits_t nbits, int integer_attr, int pad) +{ + Group *g; + ngroups_t ngroups = bits_to_groups(nbits), i; + int j; +// int xflag = 0, zflag = 0; + + char *acc_tmp; + char *doubler_tmp; + char *pb; /* print buffer pointer */ + unsigned est_digits, res_digits; + Bit aval, bval, negative, mask, x = 0, z = 0; + int lastbit, xx = 0, XX = 1, zz = 0, ZZ = 1; + +/* guestimate the number of digits needed to support nbits and make sure + there is enough buffer space to handle the conversion */ + + est_digits = (nbits / 3) + 1; /* Make sure there is at least one */ + if (est_digits > dd) { + if (!doubler) + doubler_tmp = (char *) xmalloc(100); + else + doubler_tmp = (char *) xrealloc(doubler, 1000); + if (!doubler_tmp) { + printf_V("*No memory for decimal conversion*"); + return; + } else { + doubler = doubler_tmp; + dd = est_digits; + } + } + +/* initialize */ + + for (i = 0; i < aa; i++) + acc[i] = 0; + for (i = 0; i < dd; i++) + doubler[i] = 0; + + HEAPTEST("print_bcd 1"); + doubler[0] = 1; + res_digits = 1; + if (integer_attr + && ((AVAL(val + ngroups) >> ((nbits - 1) % BITS_IN_GROUP)) & 1) == + 1) + negative = (Bit) - 1; + else + negative = (Bit) 0; + + for (i = 0, g = val; i <= ngroups; i++, g++) { /* # groups */ + if (i == ngroups) { + lastbit = (nbits - 1) % BITS_IN_GROUP + 1; + mask = mask_right[lastbit]; + } else { + lastbit = sizeof(Bit) * 8; + mask = (Bit) - 1; + } + aval = (AVAL(g) ^ negative) & mask; + bval = BVAL(g) & mask; + x |= aval & bval; + z |= ~aval & bval; +// x |= AVAL (g) & BVAL (g); +// z |= ~AVAL (g) & BVAL (g); + XX &= !~z; + ZZ &= !~z; + xx |= x; + zz |= z; + for (j = 0; j < lastbit; j++) { /* bits/group */ + if ((aval >> j) & 1) { + if (aa <= res_digits) { + HEAPTEST("print_bcd 1.5"); + if (acc) + acc_tmp = + (char *) xrealloc(acc, + (size_t) (res_digits + + ACCINC)); + else + acc_tmp = + (char *) + xmalloc((size_t) (res_digits + ACCINC)); + HEAPTEST("print_bcd 1.6"); + if (!acc_tmp) { + printf_V + ("*Not enough memory for decimal conversion*"); + return; + } else { + acc = acc_tmp; + { + int i; + HEAPTEST("print_bcd 1.7"); + for (i = aa; i < res_digits + ACCINC; i++) + acc_tmp[i] = 0; + HEAPTEST("print_bcd 2"); + } + aa = res_digits + ACCINC; + } + } + bcd_add(acc, doubler, res_digits); + HEAPTEST("print_bcd 3"); + } + res_digits = bcd_add(doubler, doubler, res_digits); + HEAPTEST("print_bcd 4"); + } + } + /* print number first skipping leading zeros */ + if (!aa) { + acc_tmp = (char *) xmalloc(1); + if (!acc_tmp) { + printf_V("*Not enough memory for decimal conversion*"); + return; + } else { + acc = acc_tmp; + aa = 1; + acc[0] = 0; + } + } + HEAPTEST("print_bcd 5"); + if (negative) { +// fprintf_V (handle, "-"); +// bcd_inc (acc, res_digits); + bcd_inc(acc, aa); + } + HEAPTEST("print_bcd 6"); + pb = set_print_buf(res_digits + 1); + + if (xx || zz) { + for (i = 0; i < aa; i++) + acc[i] = 0; + negative = 0; + } + + + if (pad) { /* print spaces */ + /* Fill with spaces up to the size of the accumulator (aa), then start + looking at the digits. If the number is negative, then the "-" needs + to be printed before the first non-zero digit, so there needs to be a + look ahead. + */ + +// int still_zero = 1; + + i = res_digits - 1; + /* aa (size of the accumulator) may be smaller than the reserved size + (the maximum size for the given number of bits). Fill with spaces + until the space before acc starts, in case a negative sign is needed. + */ + + for (; i >= aa; i--) + sprintf(pb++, " "); + + /* Now scan acc until a non-zero is found */ + for (; i > 0; i--) { + if (acc[i] == 0) + sprintf(pb++, " "); + else +// { +// still_zero = 0; + break; +// } + } + + /* Either we are just before the last digit, or we found a non-zero, + or both. + */ + +// if (still_zero) /* Implies 0 */ +// fprintf_V (handle, "%d", acc[i]); + +// else /* Found a non-zero */ + { + if (integer_attr) { + if (negative) + sprintf(pb++, "-"); /* last leading zero */ + else + sprintf(pb++, " "); + } + /* Print the res of the digits */ + if (XX) + sprintf(pb++, "X"); + else if (ZZ) + sprintf(pb++, "Z"); + else if (xx) + sprintf(pb++, "x"); + else if (zz) + sprintf(pb++, "z"); + else + for (; i >= 0; i--) + sprintf(pb++, "%d", acc[i]); + } + } else { + i = aa; + do { + if (acc[--i] != 0) + break; + } + while (i > 0); +// if (i) + if (negative) + sprintf(pb++, "-"); + for (; i >= 0; i--) + sprintf(pb++, "%d", acc[i]); + } + +//else +// printf ("0"); +} + +void print_scope(handle_t handle, tree scope) +{ + if (BLOCK_UP(scope)) { + print_scope(handle, BLOCK_UP(scope)); + fprintf_V(handle, "."); + } + fprintf_V(handle, "%s", IDENT(BLOCK_NAME(scope))); +} + +/* These two routines print the raw simulation time. See timescale.c + for routines that print times based on the current timescales. */ + +void print_time(time64 * time_p) +{ + Group v[2]; + AVAL(&v[0]) = time_p->timel; + AVAL(&v[1]) = time_p->timeh; + BVAL(&v[0]) = BVAL(&v[1]) = 0; + print_bcd((handle_t) 1, v, (nbits_t) 64, 0, 0); +} + +char *time_string(time64 * time_p) +{ + Group v[2]; + AVAL(&v[0]) = time_p->timel; + AVAL(&v[1]) = time_p->timeh; + BVAL(&v[0]) = BVAL(&v[1]) = 0; + print_bcd_(v, (nbits_t) 64, 0, 0); + return print_buf; +} + +char *sprint_decimal(Group * val, nbits_t nbits) +{ + print_bcd_(val, nbits, 0, 0); + return (print_buf); +} + +char *sprint_hex(Group * val, nbits_t nbits) +{ + int i; + int j; + Group *g; + int bitCount; + char *result; + int digit; + int abit; + int bbit; + char *ptr; + int xCount; + int zCount; + int count; + char c; + + g = val; + bitCount = 0; + + ptr = set_print_buf((nbits + 3) / 4 + 1); + ptr += (nbits + 3) / 4; + *ptr-- = 0; + + for (i = 0; i <= R_ngroups; i++, g++) { + for (j = 0; j < BITS_IN_GROUP; j++) { + if ((bitCount % 4) == 0) { + digit = 0; + xCount = 0; + zCount = 0; + count = 0; + } + abit = (AVAL(g) >> j) & 0x1; + bbit = (BVAL(g) >> j) & 0x1; + digit |= abit << (bitCount % 4); + if (bbit == 1) { + if (abit == 1) { + xCount++; + } else { + zCount++; + } + } + count++; + bitCount++; + if (bitCount == nbits || bitCount % 4 == 0) { + if (xCount == count) { + // x + c = 'x'; + } else if (zCount == count) { + // z + c = 'z'; + } else if (xCount == 0 && zCount == 0) { + // number + if (digit <= 9) { + c = '0' + digit; + } else { + c = 'A' + digit - 10; + } + } else if (xCount == 0) { + // Z + c = 'Z'; + } else { + // X + c = 'X'; + } + *ptr-- = c; + } + if (bitCount == nbits) { + return (print_buf); + } + } + } + while (ptr >= print_buf) { + *ptr-- = '0'; + } + return (print_buf); +} + + +char *sprint_binary(Group * val, nbits_t nbits) +{ + int i; + int j; + Group *g; + int bitCount; + char *result; + int abit; + int bbit; + char *ptr; + char c; + + g = val; + bitCount = 0; + + ptr = set_print_buf(nbits + 1); + ptr += nbits; + *ptr-- = 0; + + for (i = 0; i <= R_ngroups; i++, g++) { + for (j = 0; j < BITS_IN_GROUP; j++) { + abit = (AVAL(g) >> j) & 0x1; + bbit = (BVAL(g) >> j) & 0x1; + if (bbit == 1) { + if (abit == 1) { + *ptr-- = 'x'; + } else { + *ptr-- = 'z'; + } + } else { + if (abit == 1) { + *ptr-- = '1'; + } else { + *ptr-- = '0'; + } + } + bitCount++; + if (bitCount == nbits) { + return (print_buf); + } + } + } + while (ptr >= print_buf) { + *ptr-- = '0'; + } + return (print_buf); +} + +/************************************************************** + * init_print + * - initialize global and static variables for print.c + * + ************************************************************** + */ + +void init_print() +{ + indent_spaces[0] = 0; + print_indent = 0; + doubler = NULL; + dd = 0; + acc = NULL; + aa = 0; + print_buf_size = 0; + print_buf = NULL; +} diff --git a/src/print.h b/src/print.h new file mode 100644 index 0000000..1fc6079 --- /dev/null +++ b/src/print.h @@ -0,0 +1,80 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* PRINT.H - Print routine prototypes */ + +#ifndef PRINT_H +#define PRINT_H + +// public methods + +enum print_state { START, EXTEND_X, EXTEND_Z, EXTEND_0, EXTEND_DONE }; + +void print_bcd(handle_t handle, Group * val, nbits_t nbits, + int integer_attr, int pad); +void print_dec(handle_t handle, Group * g, nbits_t nbits, + int int_attr, int pad); +void print_binary_file(FILE * file, Group * g, nbits_t nbits); +void print_datum_file(handle_t handle, Group * g, nbits_t print_nbits, + nbits_t nbits, enum radii radix, int is_integer, + int fill_space, char *spec); +void print_datum(Group * g, nbits_t print_nbits, nbits_t nbits, + enum radii radix, int is_integer, int fill_space); +void print_common(tree node); +void print_stats(void); +void print_delay(tree node); +void print_expr(tree node); +int print_node(tree node); +void print_scope(handle_t handle, tree scope); +void print_time(time64 * time_p); +char *time_string(time64 * time_p); +void init_print(void); +char *set_print_buf(unsigned_32_t size); +void print_assignment(tree node); +char *sprint_decimal(Group * g, nbits_t nbits); +char *sprint_hex(Group * g, nbits_t nbits); +char *sprint_binary(Group * g, nbits_t nbits); + + +// private methods + +#ifdef PRINT_C + +static void print_char(handle_t handle, int c, int fill); +static void print_string(handle_t handle, Group * g_base, + nbits_t nbits, int fill); +static enum print_state print_group(Bit aval, Bit bval, int size, + enum print_state state, int last, + enum radii radix, int *octal_shift, + Bit * residue_aval, + Bit * residue_bval); +static void print_block_common(tree node); +static void print_decl_common(tree node); +static void print_args(tree node); +static void print_ref(tree node); +static void print_delay_stmt(tree node); +static void print_event_stmt(tree node); +static unsigned bcd_add(char a[], char b[], unsigned ndigits); +static unsigned bcd_inc(char a[], unsigned ndigits); +static void print_bcd_(Group * val, nbits_t nbits, + int integer_attr, int pad); + +#endif // PRINT_C + +#endif // PRINT_H diff --git a/src/runtime.h b/src/runtime.h new file mode 100644 index 0000000..8707ac7 --- /dev/null +++ b/src/runtime.h @@ -0,0 +1,55 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* RUNTIME.H - Global variables and routine prototypes used during execution */ + +/* cleared if either trace or single-step enabled */ +extern int normal_flag; + +extern int trace_flag; + +extern int single_step_flag; +extern int single_trace_flag; +extern int break_flag; + +extern int in_disable; /* for the DISABLE statment processing */ + +extern int is_interactive; +extern int cmd_level; +extern int new_cmd_level; + +extern int in_initial; /* set while initializing nets */ + +extern Group **R; /* Virtual register (accumulator) stack pointer */ +extern Group **R_base; /* Virtual register (accumulator) base pointer */ +extern nbits_t R_nbits; /* current expression length in bits */ +extern ngroups_t R_ngroups; /* Current expression size in groups */ +extern Bit R_mask; + +//extern void trace_stmt (); +// extern void print_datum (); +//extern void print_delay (); + +//extern void eval_1 (union tree_node *); +//extern void exec_sysfunc (union tree_node *, nbits_t); + +//extern tree systime_return; /* function $time return variable */ +//extern tree sysopen_return; /* function $open return variable */ +//extern tree sysrand_return; /* function $random return variable */ +//extern tree sysplus_return; /* function $test$plusargs return variable */ diff --git a/src/schedule.cc b/src/schedule.cc new file mode 100644 index 0000000..1069548 --- /dev/null +++ b/src/schedule.cc @@ -0,0 +1,1214 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* SCHED.C - Scheduler and queues for simulation engine */ + +#define SCHED_C + +#include +#include +#include "vtypes.h" +#include "tree.h" +#include "schedule.h" +#include "flags.h" +#include "runtime.h" +#include "dumpvar.h" +#include "strobe.h" +#include "acc_user.h" +#include "gates.h" +#include "eval.h" +#include "glue.h" +#include "exec.h" +#include "nsched.h" +#include "veriwell.h" +#include "pli.h" +#include "systask.h" + +SCB *eventlist = NULL; /* List of SCBs waiting for an event */ +SCB *timelist = NULL; /* List of SCBs waiting for time to pass */ +SCB *timelist_currentTail = NULL; /* last entry for current time */ +SCB *netlist = NULL; /* List of SCBs containing pending net changes */ +SCB *netlist_last = NULL; /* Points to last SCB on net list */ +SCB *readylist = NULL; /* List of SCBs previously waiting for an event */ +SCB *readylist_last = NULL; /* Points to last SCB on ready list */ +SCB *freelist = NULL; /* List of available SCBs (eg. fork/join) */ + +tree deferred_markers = NULL_TREE; + +time64 CurrentTime; + +static int BLK_SIZE = 1024; + +SCB *BuildSCB(union tree_node *start, enum which_list list) +{ + SCB *scb, *tmp, *s; + int i; + extern tree current_scope; + + if (!freelist) { + SCB *scbArray = (SCB *) xmalloc(sizeof(SCB) * BLK_SIZE); + for (i = 0; i < BLK_SIZE; i++) { + ADD_LIST_SCB(FREE_LIST, &freelist, scbArray + i); + } + } + scb = freelist; + REMOVE_LIST_SCB(scb); + + scb->pc = start; +// scb->old_pc = NULL_TREE; + ASSIGNTIME64(&(scb->time), &CurrentTime); +// scb->type = NULL; + scb->prev = NULL; + scb->next = NULL; +// scb->drive[0] = scb->drive[1] = 0; +// scb->rising = scb->falling = scb->turnoff = 0; +// scb->tf_stack = NULL; + scb->fork_count = 0; + scb->fork = NULL; +// scb->thread = NULL; + scb->here.scb = NULL; + scb->mode = RUN; + scb->context = NULL; + enter_context(scb, current_scope, NULL_TREE); +// scb->list = TIMELIST; + + /* Each block points to all SCBs in scope (for DISABLE statement) */ +// if (current_scope) +// BLOCK_SCB_LIST (current_scope) = tree_cons ((tree)scb, NULL_TREE, BLOCK_SCB_LIST (current_scope)); +// scb->current_scope = current_scope; + + switch (list) { + case TIME_LIST: + if (!timelist) { + ADD_LIST_SCB(TIME_LIST, &timelist, scb); + } else { + /* put new entries at end of list */ + for (s = timelist; s->next; s = s->next); + ADD_LIST_SCB(TIME_LIST, &s->next, scb); + } + break; + case READY_LIST: + if (!readylist) { + ADD_LIST_SCB(READY_LIST, &readylist, scb); + } else { + /* put new entries at end of list */ + for (s = readylist; s->next; s = s->next); + ADD_LIST_SCB(READY_LIST, &s->next, scb); + } + break; + default: + ADD_LIST_SCB(NOLIST, &eventlist, scb); + } + +// PrintSCB(scb); + return scb; +} + +void PrintSCB(SCB * scb) +{ + printf("building SCB at %p\n", scb); +// printf(" scb->type: %d\n",scb->type); +// printf(" scb->new_pc: %p\n",scb->new_pc); +// printf(" scb->old_pc: %p\n",scb->old_pc); +// printf(" scb->time: %d\n",scb->time); + printf(" scb->prev: %p\n", scb->prev); +// printf(" scb->drive[0]: %d\n",scb->drive[0]); +// printf(" scb->drive[1]: %d\n",scb->drive[1]); +// printf(" scb->rising: %d\n",scb->rising); +// printf(" scb->falling: %d\n",scb->falling); +// printf(" scb->turnoff: %d\n",scb->turnoff); + printf(" scb->list: %p\n", scb->list); +} + +void BuildMarker(tree decl, struct Marker_info *marker_info) +{ + Marker *marker; + + /* First, ensure that only one marker per variable is used e.g. a = b + b; */ + for (marker = marker_info->first; marker; marker = marker->link) + if (marker->decl == decl) + return; + + marker = (Marker *) xmalloc(sizeof(Marker)); + marker->next = NULL; + marker->prev = NULL; + marker->scb = marker_info->current_scb; + marker->expr.expr = NULL; + marker->decl = decl; + marker->flags = marker_info->flags; + marker->delay = marker_info->delay; + marker->link = NULL; + + if (marker_info->last) + marker_info->last->link = marker; /* Link this to end of the list */ + else + marker_info->first = marker; + + marker_info->last = marker; + + if ((marker->flags & M_FIXED)) + WaitOnEvent(marker, marker_info->current_scb); + return; +} + +tree WaitOnTime(delay_t waittime, tree pc) +{ + SCB *scb = readylist; + + /* + Find the right spot in the timelist either at the end (index == NULL) + or when the next SCBs time field is bigger (ie we would come off + the wait list sooner). + */ + + scb->pc = pc; /* save next instruction to be executed */ +// scb->new_pc = next_pc; /* save next instruction to be executed */ +// scb->old_pc = this_pc; /* save this instruction for tracing */ + + ADDTIME6432(&(scb->time), &CurrentTime, waittime); +// scb->list = TIME_LIST; + scb->mode = WAIT; + + scb = dispatcher(TIME_LIST); +// *prev_pc = scb->old_pc; /* return the pc that got us here */ +// return scb->new_pc; /* as wll as the new pc */ + return scb->pc; /* as wll as the new pc */ +} + +tree WaitOnTime64(struct Time64 * waittime, tree pc) +{ + SCB *scb = readylist; + + /* + Find the right spot in the timelist either at the end (index == NULL) + or when the next SCBs time field is bigger (ie we would come off + the wait list sooner). + */ + + scb->pc = pc; /* save next instruction to be executed */ +// scb->new_pc = next_pc; /* save next instruction to be executed */ +// scb->old_pc = this_pc; /* save this instruction for tracing */ + + ADDTIME6464(&(scb->time), &CurrentTime, waittime); +// scb->list = TIME_LIST; + scb->mode = WAIT; + + scb = dispatcher(TIME_LIST); +// *prev_pc = scb->old_pc; /* return the pc that got us here */ +// return scb->new_pc; /* as wll as the new pc */ + return scb->pc; /* as wll as the new pc */ +} + +void Schedule64(struct Time64 *time, SCB * scb, int prepend) +{ + SCB *link, *tmp; + + /* + Find the right spot in the timelist either at the end (index == NULL) + or when the next SCBs time field is bigger (ie we would come off + the wait list sooner). + */ + + + scb->time = *time; + scb->mode = WAIT; + + REMOVE_LIST_SCB(scb); +//check_readylist(); +/* Caution: If the next 5 lines are changes, also change Dispatcher! */ + if (!timelist || (CMPTIME64(&(scb->time), &(timelist->time)) < 0)) { + ADD_LIST_SCB(TIME_LIST, &timelist, scb); /* empty waitlist; add us */ + } else if (!prepend) { /* else, find position in list (beg. of time) */ + for (link = timelist; + link->next + && (CMPTIME64(&(scb->time), &(link->next->time)) >= 0); + link = link->next); + ADD_LIST_SCB(TIME_LIST, &link->next, scb); + } else { + for (link = timelist; + link->next + && (CMPTIME64(&(scb->time), &(link->next->time)) > 0); + link = link->next); + ADD_LIST_SCB(TIME_LIST, &link->next, scb); + } + +} + +void ScheduleDelta64(struct Time64 *time, SCB * scb, int prepend) +{ + SCB *link, *tmp; + + /* + Find the right spot in the timelist either at the end (index == NULL) + or when the next SCBs time field is bigger (ie we would come off + the wait list sooner). + */ + + + ADDTIME6464(&(scb->time), &CurrentTime, time); + scb->mode = WAIT; + + REMOVE_LIST_SCB(scb); +//check_readylist(); +/* Caution: If the next 5 lines are changes, also change Dispatcher! */ + if (!timelist || (CMPTIME64(&(scb->time), &(timelist->time)) < 0)) { + ADD_LIST_SCB(TIME_LIST, &timelist, scb); /* empty waitlist; add us */ + } else if (!prepend + && CMPTIME64(&timelist_currentTail->time, &scb->time) == 0) + { + ADD_LIST_SCB(TIME_LIST, &timelist_currentTail->next, scb); + } else if (!prepend) { /* else, find position in list (beg. of time) */ + for (link = timelist; + link->next + && (CMPTIME64(&(scb->time), &(link->next->time)) >= 0); + link = link->next); + ADD_LIST_SCB(TIME_LIST, &link->next, scb); + } else { + for (link = timelist; + link->next + && (CMPTIME64(&(scb->time), &(link->next->time)) > 0); + link = link->next); + ADD_LIST_SCB(TIME_LIST, &link->next, scb); + } + +// *prev_pc = scb->old_pc; /* return the pc that got us here */ +// return scb->new_pc; /* as wll as the new pc */ +} + +void Schedule(delay_t waittime, SCB * scb, int prepend) +{ + SCB *link, *tmp; + + /* + Find the right spot in the timelist either at the end (index == NULL) + or when the next SCBs time field is bigger (ie we would come off + the wait list sooner). + */ + + + ADDTIME6432(&(scb->time), &CurrentTime, waittime); + scb->mode = WAIT; + + REMOVE_LIST_SCB(scb); +//check_readylist(); +/* Caution: If the next 5 lines are changes, also change Dispatcher! */ + if (!timelist || (CMPTIME64(&(scb->time), &(timelist->time)) < 0)) { + ADD_LIST_SCB(TIME_LIST, &timelist, scb); /* empty waitlist; add us */ + } else if (!prepend + && CMPTIME64(&timelist_currentTail->time, &scb->time) == 0) + { + ADD_LIST_SCB(TIME_LIST, &timelist_currentTail->next, scb); + } else if (!prepend) { /* else, find position in list (beg. of time) */ + for (link = timelist; + link->next + && (CMPTIME64(&(scb->time), &(link->next->time)) >= 0); + link = link->next); + ADD_LIST_SCB(TIME_LIST, &link->next, scb); + } else { + for (link = timelist; + link->next + && (CMPTIME64(&(scb->time), &(link->next->time)) > 0); + link = link->next); + ADD_LIST_SCB(TIME_LIST, &link->next, scb); + } + +// *prev_pc = scb->old_pc; /* return the pc that got us here */ +// return scb->new_pc; /* as wll as the new pc */ +} + +/* Schedule nets */ + +void ScheduleNet(Marker * marker, enum logical_value state) +{ + SCB *scb = marker->scb, *tmp; + +/* If a port has just been changed, propigate immediately (also during + continuous assignment initialization) */ + + if (marker->flags & M_PORT /*|| NET_ASSIGN_ATTR (marker->decl) */ ) // || in_initial) +// if (marker->flags & M_PORT || in_initial) + net_exec(scb->pc); + else { + delay_t delay = eval_delay(NET_DELAY(scb->pc), state); + +/* If there is no delay, schedule on net list, else put on time list. + Note that in the case of inouts, we could be working with our own + net in which case, we're finished. */ + if (!delay) { + if (scb->list != NET_LIST && scb != readylist) { + REMOVE_LIST_SCB(scb); +// if (!readylist) +// fatal ("Caught it in schedulenet1"); +//check_readylist(); + if (netlist) { + ADD_LIST_SCB(NET_LIST, &netlist_last->next, scb); + } else { + ADD_LIST_SCB(NET_LIST, &netlist, scb); + } + netlist_last = scb; + scb->time = CurrentTime; + } + } else { + Schedule(delay, scb, 0); +// if (!readylist) +// fatal ("Caught it in schedulenet2"); + } + } +} + +void thread_marker(Marker * marker) +{ + Marker *mark, *tmp; + tree decl = marker->decl; + + if (!DECL_EVENT_CHAIN(decl)) { + ADD_LIST(DECL_EVENT_CHAIN(decl), marker); + } +/* Add marker to the tail of the decl's event chain */ + else { + for (mark = DECL_EVENT_CHAIN(decl); mark->next; mark = mark->next); + ; + ADD_LIST(mark->next, marker); + } +} + +/* Start with a marker and thread on all markers on the link chain */ + +void thread_all_markers(Marker * marker) +{ + Marker *mark; + + for (mark = marker; mark->link != marker; mark = mark->link) + thread_marker(mark); + thread_marker(mark); +} + +/* Thread marker onto an event chain, headed by a decl node */ + +void WaitOnEvent(Marker * marker, SCB * scb) +{ +// EventQueue *queue; +// tree decl; +// Marker *link, *tmp; + +// decl = marker->decl; + +/* we could already be on the event chain */ +// for (link = queue->first; link; link=link->next) +// if (link == marker) return; + if (marker->prev) { + ASSERT(scb != 0); + + /* In a task, it is possible that more than one caller can be waiting on + the same event. If so, add the SCB to the list. */ + if (marker->scb != scb) { + scb->here.scb = marker->scb; + marker->scb = scb; + } + return; + } + + marker->scb = scb; +// marker->next = marker->prev = NULL; + thread_marker(marker); +/* + if (debug) { + printf ("Waiting On Event Queue at: %p\n", + DECL_EVENT_CHAIN (decl)); + for (marker = DECL_EVENT_CHAIN (decl); marker; marker = marker->next) +printf ("Marker[%p]: scb: %p prev: %p next: %p link: %p expr: %p scb: %p\n", + marker,marker->scb,marker->prev,marker->next,marker->link,marker->expr, +marker->scb); + } +*/ +} + +tree WaitOnEventAll(Marker * marker, tree pc) +{ + Marker *mark; + SCB *scb; + + readylist->pc = pc; +// readylist->old_pc = this_pc; + readylist->mode = WAIT; + + // pathological case: wait (0); -- wait forever, no markers, skip past Waits + if (marker) + { + for (mark = marker; mark->link != marker; mark = mark->link) + WaitOnEvent(mark, readylist); + WaitOnEvent(mark, readylist); + } + scb = dispatcher(EVENT_LIST); +// *prev_pc = scb->old_pc; /* return the pc that got us here */ + return scb->pc; +} + +void WaitOnEventOther(SCB * scb, Marker * marker, tree pc) +{ + Marker *mark; + SCB *tmp; + +// scb->new_pc = next_pc; +// scb->old_pc = this_pc; + scb->pc = pc; + scb->mode = WAIT; + + for (mark = marker; mark->link != marker; mark = mark->link) + WaitOnEvent(mark, scb); + WaitOnEvent(mark, scb); + + REMOVE_LIST_SCB(scb); + ADD_LIST_SCB(EVENT_LIST, &eventlist, scb); + return; +} + +/* Notify everything on the deferred list (used for lval concats) */ + +void NotifyDeferred(tree deferred_markers) +{ + tree tmp; + + while (deferred_markers) { + NotifyEvent((Marker *) TREE_PURPOSE(deferred_markers), + (enum logical_value) (unsigned long) + TREE_VALUE(deferred_markers), (int) 0); + + tmp = deferred_markers; + deferred_markers = TREE_CHAIN(deferred_markers); + free_link_list(tmp); + } +} + +/* Place marker's SCB onto ready list; unthread event chain if not fixed */ + +void NotifyEvent(Marker * marker, enum logical_value state, int deferred) +{ + Marker *ring, *NextEntry; + SCB *scb, *tmp, *next_scb; + + if (!marker) + return; + + if (deferred) { + deferred_markers = link_tree_cons((tree) marker, (tree) state, + deferred_markers); + return; + } + + do { + NextEntry = marker->next; + scb = marker->scb; + + /* If this is a primitive (built-in or UDP), call the processing routine */ + + if (marker->flags & M_PRIM) { + ASSERT(GATE_ROUTINE((tree) marker->scb)); + (*GATE_ROUTINE((tree) marker->scb)) (marker); + } + + /* If this is a continuous assignment marker, do it now */ + + + else if (marker->delay) { /* if cont assignment, put at beginning */ + if (in_initial) + do_net_assignment(scb->pc); + else + Schedule(eval_delay(marker->delay, state), scb, + marker->flags & M_CONT); + } else if ((marker->flags & M_CONT)) { + do_net_assignment(marker->expr.tree); + } + + /* If there is a ref to a net (from a cont assignment), schedule it + or do it now if we are in initialization or if we are a port. */ + + else if (marker->flags & M_NET) { + ScheduleNet(marker, state); + } + + else if (marker->flags & M_VCD) + dumpvars_dump(marker->decl, marker->expr.vcd_id); + + else if (marker->flags & M_IDLE) + tickle_monitor(&idle_strobe_queue, marker->expr.tree); /* in systask.c; points to mon info */ + + else if (marker->flags & M_STROBE) /* Special for $monitor */ + tickle_monitor_old(&final_strobe_queue, marker->expr.mon); /* in systask.c; points to mon info */ + + else if (marker->flags & M_VCL) + vcl_dispatch((struct pli_vcl *) marker->expr.vcl); + + else if (marker->flags & M_ASYNCH) { + pli_asynccall((PliInfo_t *) marker->expr.tree); + } + +/* If marker says test the expression (for edge triggered), then do + so. But, we may already be on the ready list, so we don't need to + do the threading of the SCB. */ + + else if (scb->list != READY_LIST && + (!(marker->flags & M_TEST) || test(marker->expr.expr))) { + for (; scb; scb = next_scb) { + SCB *last; + next_scb = scb->here.scb; + scb->here.scb = NULL; + + REMOVE_LIST_SCB(scb); +//check_readylist(); + +#if VDEBUG != 0 + if (debug) + printf + ("Adding Marker to Ready List[%p]: %p next: %p prev: %p\n", + marker, scb, scb->next, scb->prev); + + if (vdebug) + printf("*** Notifying line: %lu\n", + STMT_SOURCE_LINE(scb->pc)); +#endif + + /* Thread to the end of the ready list (don't let prev point + to readylist->last) */ + last = LAST_SCB(READY_LIST); + if (last) { + ADD_LIST_SCB(READY_LIST, &last->next, scb); + } else { + ADD_LIST_SCB(READY_LIST, &readylist, scb); + } + } + +//check_readylist (); +/* Now, unthread our marker and all the other markers associated with + this event, if the fixed bit is not set, of course. Note that the + markers are threaded by the links in a circular list. We know to + stop when we hit a marker that has its prev pointer set to NULL. */ + + if (!(marker->flags & M_FIXED)) + for (ring = marker; ring->prev; ring = ring->link) { + REMOVE_LIST(ring); + ring->prev = NULL; /* This tells us that the marker is not threaded */ + } + } + + /* else if... */ + marker = NextEntry; + } + while (marker); +} + +/* Disconnect the markers associate with this event or wait stmt; usually + called from disable. Watch for cases where marker was already notified. +*/ + +void event_undo(Marker * first) +{ + Marker *mark; + + if (!first) + return; + + for (mark = first; mark->link != NULL && mark->link != first; + mark = mark->link) { + if (mark->prev) { /* if null, marker was already notified */ + REMOVE_LIST(mark); + mark->prev = NULL; + } + + } /* handle the last one */ + if (mark->prev) { + REMOVE_LIST(mark); + mark->prev = NULL; + } +} + +/* Get the next process on the ready list, return a pointer to an + executable tree; place the incoming SCB onto the wait list (possibly + ordered by time). */ + +SCB *dispatcher(enum which_list remove_list) +{ + SCB *link, *scb = readylist, *tmp; + time64 new_time; +// int in_net; + +// in_net = 1; +// if (!readylist) +// goto go; + +// if (TREE_CODE (readylist -> pc) == NET_VECTOR_DECL || +// TREE_CODE (readylist -> pc) == NET_VECTOR_DECL) +// in_net = 1; +// else +// in_net = 0; + +/* If RemoveFlag is set, take scb off the list. This happens at the end + of INITIAL blocks. */ + + switch (remove_list) { + + case NOLIST: + REMOVE_LIST_SCB(scb); + ADD_LIST_SCB(NOLIST, &eventlist, scb); + break; + + case EVENT_LIST: + REMOVE_LIST_SCB(scb); + ADD_LIST_SCB(EVENT_LIST, &eventlist, scb); + break; + + case TIME_LIST: + REMOVE_LIST_SCB(scb); + if (!timelist || (CMPTIME64(&(scb->time), &(timelist->time)) < 0)) { + ADD_LIST_SCB(TIME_LIST, &timelist, scb); /* empty waitlist; add us */ + } else { /* else, find position in list */ +/* WARNING: this must be the same code as in Schedule!! */ + for (link = timelist; + link->next + && (CMPTIME64(&(scb->time), &(link->next->time)) >= 0); + link = link->next); + ADD_LIST_SCB(TIME_LIST, &link->next, scb); + } +//if (CMPTIME64 (&(scb->time), &CurrentTime) < 0) +// printf ("Time less than current time\n"); + break; + + case FREE_LIST: + REMOVE_LIST_SCB(scb); + ADD_LIST_SCB(FREE_LIST, &freelist, scb); + if (scb->context) + unwind_context(scb->context); + break; + } + +//printf ("In dispatch: just before checking readylist (%p)\n", readylist); + + +/* + Ready List Check: if we have something on the Ready list - go with it + */ + go: +// if (readylist) { +// if (debug) { +// printf ("Current Ready List: [%p]\n", +// readylist); +// for (link = readylist,cnt = 0; link; link = link->next) +// printf ("ENTRY[%d]: %p prev: %p next: %p\n", +// cnt++,link,link->prev,link->next); +// } + +// if (debug) PrintSCB(readylist); + +// } + + if (readylist) + return readylist; + +//DEBUGPRINT ("Dispatcher: nothing in readylist\n"); +/* Nothing in the ready list, see if any gates need to + be processed. */ + + { + tree gate; + + while (TRUE) { +// gate = PeekGate(); +// if( gate == NULL_TREE ) { +// break; +// } +// ASSERT( CMPTIME64 (&(GATE_TIME (gate)), &CurrentTime) >= 0); +// if( CMPTIME64 (&(GATE_TIME (gate)), &CurrentTime) == 0 ) { +// +// DEBUGPRINT ("Inside gatelist\n"); +// RemoveGate( gate ); +// handle_gate (gate); +// } else { +// break; +// } + gate = RemoveNextReadyGate(); + if (gate == NULL_TREE) { + break; + } + DEBUGPRINT("Inside gatelist\n"); + handle_gate(gate); + } + } + + if (readylist) + return readylist; + if (debug) + printf("This is a dummy stmt\n"); + +//DEBUGPRINT ("Dispatcher: (past gates) nothing in readylist\n"); + +/* See if there is a net change pending */ + + if (netlist) // && (!readylist || +// TREE_CODE (readylist -> pc) != NET_VECTOR_DECL && +// TREE_CODE (readylist -> pc) != NET_SCALAR_DECL)) + { + do { + scb = netlist; +//DEBUGPRINT ("inside netlist, scb is %p, readylist %p, last %p\n", scb, readylist, readylist_last); + if (debug) + printf + ("inside netlist, scb %p, prev %p, next %p, readylist %p, last %p, netlist %p, last %p, (at %p)\n", + scb, scb->prev, scb->next, readylist, readylist_last, + netlist, netlist_last, &netlist); + REMOVE_LIST_SCB(scb); + if (debug) + printf + ("inside netlist2, scb is %p, readylist %p, last %p, netlist %p, last %p\n", + scb, readylist, readylist_last, netlist, + netlist_last); + if (!netlist) + netlist_last = NULL; + if (!readylist) { + ADD_LIST_SCB(READY_LIST, &readylist, scb); + } else { + SCB *last = LAST_SCB(READY_LIST); + ADD_LIST_SCB(READY_LIST, &last->next, scb); + } + } + while (netlist); + } +//DEBUGPRINT ("Dispatcher: (past nets) nothing in readylist\n"); + if (debug) + printf("This is a dummy stmt\n"); + if (readylist) + return readylist; + + if (debug) + printf("This is a dummy stmt\n"); + +/* Nothing on the ready list; check the time list for SCBs that + are waiting for time to pass. */ + + if (timelist) { + +///* + if (debug) { + printf("Current Time List:\n"); +// for (link = timelist, cnt = 0; link ; link = link->next) +// printf ("ENTRY[%d]: %p prev: %p next: %p pc: %p time: %d\n", +// cnt++,link,link->prev,link->next,link->new_pc,link->vtime); + } +//*/ + + +/* ------------ added this here mdh */ + while (timelist + && (CMPTIME64(&(timelist->time), &CurrentTime) == 0)) { + scb = timelist; + REMOVE_LIST_SCB(scb); + if (!readylist) { + ADD_LIST_SCB(READY_LIST, &readylist, scb); + } else { + SCB *last = LAST_SCB(READY_LIST); + ADD_LIST_SCB(READY_LIST, &last->next, scb); + } + } + + if (readylist) + return (readylist); + +//DEBUGPRINT ("Dispatcher: (past time2) nothing in readylist\n"); + + if (netlist) { + goto go; + } + + if (IsGateReady()) { + goto go; + } +/* Before moving stuff on the readylist, check for things that want to happen + at the end of the current time unit. */ + + check_strobe(&idle_strobe_queue); +//DEBUGPRINT ("Dispatcher: (past time1) checking strobe\n"); + if (debug) + printf("This is a dummy stmt\n"); + if (readylist) /* check_strobe may have indirectly caused new events */ + return readylist; + if (debug) + printf("This is a dummy stmt\n"); + +//DEBUGPRINT ("Dispatcher: (past time1) nothing in readylist\n"); + +/* ------------ added this here mdh */ + while (timelist + && (CMPTIME64(&(timelist->time), &CurrentTime) == 0)) { + scb = timelist; + REMOVE_LIST_SCB(scb); + if (!readylist) { + ADD_LIST_SCB(READY_LIST, &readylist, scb); + } else { + SCB *last = LAST_SCB(READY_LIST); + ADD_LIST_SCB(READY_LIST, &last->next, scb); + } + } + + if (readylist) + return (readylist); + +//DEBUGPRINT ("Dispatcher: (past time2) nothing in readylist\n"); + + if (netlist) { + goto go; + } + + if (IsGateReady()) { + goto go; + } + if (!empty_strobe(&idle_strobe_queue)) { + goto go; + } + + check_strobe(&final_strobe_queue); + ASSERT(readylist == NULL); + + if (GateConditionalAdvanceTime(&(timelist->time))) { + goto go; + } + + ASSIGNTIME64(&new_time, &(timelist->time)); + do { + scb = timelist; + REMOVE_LIST_SCB(scb); + if (!readylist) { + ADD_LIST_SCB(READY_LIST, &readylist, scb); + } else { + SCB *last = LAST_SCB(READY_LIST); + ADD_LIST_SCB(READY_LIST, &last->next, scb); + } + } + while (timelist && (CMPTIME64(&(timelist->time), &new_time) == 0)); + +/* advance time, if necessary */ +// if (time != readylist -> time) { +// time = readylist -> time; +// if (trace_flag || single_trace_flag) +// printf ("SIMULATION TIME IS %lu\n", time); +// } + } +/* Nothing on Ready list or Time list, exit. */ + else { + extern SCB *finish_scb; + check_strobe(&idle_strobe_queue); + /* + * there is a chance that pli code has added some + * events. If so continue on. + */ + if (timelist != NULL || PeekGate() != NULL) { + goto go; + } + if (!empty_strobe(&idle_strobe_queue)) { + goto go; + } + check_strobe(&final_strobe_queue); + return finish_scb; +// return null; +// printf ("All done\n"); /* Later, print useful information */ +// exit(0); + } +//printf ("in dispatch: about to return\n"); + return readylist; +} + +tree dispatch_pc(enum which_list list) +{ + return dispatcher(list)->pc; +} + +/* Note that neither dump_current_process, nor dispatch, must change the + current value of the evaluation stack. */ + +tree dump_current_process(void) +{ + SCB *scb = dispatcher(FREE_LIST); +// *prev_pc = scb->old_pc; + return scb->pc; +} + +tree suspend_current_process(void) +{ + SCB *scb = dispatcher(NOLIST); +// *prev_pc = scb->old_pc; + return scb->pc; +} + +void interject_readylist(SCB * scb, tree pc) +{ + SCB *tmp; /* for ADD_LIST */ + + /* */ + if (readylist) { +// readylist -> old_pc = current_pc; +// readylist -> new_pc = next_pc; + readylist->pc = pc; + } + + REMOVE_LIST_SCB(scb); + ADD_LIST_SCB(READY_LIST, &readylist, scb); +} + +void FreeSCB(SCB * scb) +{ + SCB *tmp; + + REMOVE_LIST_SCB(scb); + ADD_LIST_SCB(READY_LIST, &freelist, scb); + if (scb->context) + unwind_context(scb->context); +} + +#if 0 +void cleanup_SCB(SCB * scb) +{ +/* Clean up scb -- clear out markers and set time back to current time */ + if (scb->list == FREE_LIST) + return; + ASSIGNTIME64(&(scb->time), &CurrentTime); + { + Marker *first_marker; + switch (TREE_CODE(scb->pc)) { + case EVENT_STMT: + first_marker = STMT_EVENT_MARKER(scb->pc); + break; + case WAIT_STMT: + first_marker = STMT_WAIT_MARKER(scb->pc); + break; + case DELAY_STMT: + case DISABLE_STMT: + first_marker = NULL; + break; +// case FORK_STMT: +// case FORK_NAMED_STMT: + case JOIN_STMT: + /* Funny case: DISABLE is last line of a FORK branch; pc + will be pointing to JOIN_STMT. This needs to be differentiated + from the case where the FORK stmt is being cleaned since new_pc + will also be pointing to JOIN */ +// if (scb->fork) +// return; /* inside FORK, let the FORK clean itself */ + first_marker = NULL; +// cleanup_fork (STMT_JOIN_FORK (scb->pc)); + break; + default: + runtime_error(scb->pc); + fatal + ("Attempting to disable stmt that is not WAIT, EVENT, DELAY, or DISABLE"); + } + + event_undo(first_marker); /* disconnect the markers */ + } +} +#endif +#if 0 +check_readylist() +{ + SCB *s; + if (!readylist) + return; + for (s = readylist; s; s = s->next) + if (!s->next) + if (s == readylist_last) + return; + else + fatal("REadylist_last dislodged"); + + fatal("Lost readylist_last!"); +} +#endif + +SCB *last_readylist() +{ + SCB *s; + + for (s = readylist; s; s = s->next) + if (!s->next) + return s; + return NULL; +} + +void ADD_LIST_SCB(enum which_list list, SCB ** POINT, SCB * NEW) +{ + SCB *tmp = *POINT; +#ifdef CHECKSCB + SCB *ptr; + if (timelist) { + for (ptr = timelist; ptr; ptr = ptr->next) { + if (timelist_currentTail == ptr) { + goto OK2; + } + } + ASSERT(FALSE); + } + OK2: +#endif + switch (list) { + case READY_LIST: + if (*POINT == 0) { + readylist_last = NEW; + } + break; + case TIME_LIST: + if (timelist_currentTail == NULL) { + timelist_currentTail = NEW; + } else if (CMPTIME64(&timelist_currentTail->time, &NEW->time) == 0 + && tmp && CMPTIME64(&tmp->time, &NEW->time) != 0) { + timelist_currentTail = NEW; + } else if (CMPTIME64(&timelist_currentTail->time, &NEW->time) >= 0) { + timelist_currentTail = NEW; + } + break; + default:; + } + NEW->list = list; + *POINT = NEW; + (NEW)->prev = POINT; + (NEW)->next = tmp; + if (tmp) + tmp->prev = &(NEW)->next; +#ifdef CHECKSCB + switch (list) { + case READY_LIST: + for (ptr = readylist; ptr; ptr = ptr->next) { + if (NEW == ptr) { + goto OK; + } + } + ASSERT(FALSE); + break; + case TIME_LIST: + for (ptr = timelist; ptr; ptr = ptr->next) { + if (NEW == ptr) { + goto OK; + } + } + ASSERT(FALSE); + break; + default:; + } + OK: + if (timelist) { + for (ptr = timelist; ptr; ptr = ptr->next) { + if (timelist_currentTail == ptr) { + goto OK1; + } + } + ASSERT(FALSE); + } + OK1: +#endif + return; +} + +void REMOVE_LIST_SCB(SCB * PTR) +{ + SCB *ptr; +#ifdef CHECKSCB + switch (PTR->list) { + case READY_LIST: + for (ptr = readylist; ptr; ptr = ptr->next) { + if (PTR == ptr) { + goto OK; + } + } + ASSERT(FALSE); + break; + case TIME_LIST: + for (ptr = timelist; ptr; ptr = ptr->next) { + if (PTR == ptr) { + goto OK; + } + } + ASSERT(FALSE); + break; + default:; + } + OK: +#endif + if ((*((PTR)->prev) = (PTR)->next) != 0) + (PTR)->next->prev = (PTR)->prev; + switch (PTR->list) { + case READY_LIST: + if (readylist_last == PTR) { + readylist_last = last_readylist(); + } + break; + case TIME_LIST: + if (PTR == timelist_currentTail) { + timelist_currentTail = timelist; + for (; timelist_currentTail && timelist_currentTail->next && + (CMPTIME64(&(timelist_currentTail->time), + &(timelist_currentTail->next->time)) == 0); + timelist_currentTail = timelist_currentTail->next); + } + break; + default:; + } +#ifdef CHECKSCB + if (timelist) { + for (ptr = timelist; ptr; ptr = ptr->next) { + if (timelist_currentTail == ptr) { + goto OK1; + } + } + ASSERT(FALSE); + } + OK1: +#endif +} + +SCB *LAST_SCB(enum which_list list) +{ + switch (list) { + case READY_LIST: +// return last_readylist(); + return readylist_last; + default: + ASSERT(FALSE); + return NULL; + } +} + + +/***************************************************************** + * + * init_sched + * - initialize global and static variables for sched.c + * + ***************************************************************** + */ + +void init_sched() +{ + eventlist = NULL; /* List of SCBs waiting for an event */ + timelist = NULL; /* List of SCBs waiting for time to pass */ + timelist_currentTail = NULL; /* points to last entry of current time */ + netlist = NULL; /* List of SCBs containing pending net changes */ + netlist_last = NULL; /* Points to last SCB on net list */ + readylist = NULL; /* List of SCBs previously waiting for an event */ + readylist_last = NULL; /* Points to last SCB on ready list */ + freelist = NULL; /* List of available SCBs (eg. fork/join) */ + deferred_markers = NULL_TREE; + CurrentTime.timeh = 0; + CurrentTime.timel = 0; +} diff --git a/src/schedule.h b/src/schedule.h new file mode 100644 index 0000000..9120030 --- /dev/null +++ b/src/schedule.h @@ -0,0 +1,161 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* SCHED.H - Declarations for scheduler and queues */ + +#ifndef SCHED_H +#define SCHED_H + +// public methods + +struct monitor_info; + +#define ADD_LIST(POINT, NEW) \ + {tmp = POINT; \ + POINT = NEW; \ + (NEW)->prev = &(POINT); \ + (NEW)->next = tmp; \ + if (tmp) tmp->prev = &(NEW)->next;} + +#define REMOVE_LIST(PTR) \ + {if ((*((PTR)->prev) = (PTR)->next) != 0) \ + (PTR)->next->prev = (PTR)->prev;} + +//enum { SmallCharge, MediumCharge, LargeCharge }; +enum which_list { NOLIST = + 1, READY_LIST, EVENT_LIST, TIME_LIST, NET_LIST, FREE_LIST }; +enum marker_flags { + M_PRIM_FAST = 0x800, /* Fast Primitive (no need to re-eval) */ + M_PRIM = 0x400, /* Primitive marker */ + M_IDLE = 0x200, /* Schedule for idle at end of simulation time */ + M_VCL = 0x100, /* VCL (PLI) marker */ + M_VCD = 0x80, /* VCD (dumpvars) marker */ + M_ASYNCH = 0x40, /* PLI asynch marker */ + M_PORT = 0x20, /* if port, evaluate immediately */ + M_STROBE = 0x10, /* Schedule for end of current simulation time */ + M_NET = 0x8, /* Evaluate NETs immediately */ + M_CONT = 0x4, /* Evaluate continuous assignment immediately */ + M_FIXED = 0x2, /* if set, don't unthread markers after event */ + M_TEST = 0x1, /* if set, test event expression at notification */ + M_PLAIN = 0 +}; + +extern time64 CurrentTime; +extern struct SCB *readylist; +extern struct SCB *readylist_last; +extern struct SCB *eventlist; +extern struct SCB *timelist; +extern struct SCB *timelist_currentTail; +extern struct SCB *netlist; +extern struct SCB *freelist; + +enum eMode { RUN, WAIT }; + +typedef struct SCB { + struct SCB *next; /* Next SCB on this linked list */ + struct SCB **prev; /* Previous SCB on linked list */ + time64 time; /* For use in Delayed events */ + union tree_node *pc; /* A pointer to executable code */ + enum eMode mode; /* Used to determine if entering or exiting events */ +// union tree_node *new_pc;/* A pointer to executable code */ +// union tree_node *old_pc;/* Pointer to statement that caused event */ + enum which_list list; + struct context_member *context; +// struct tf_stack *tf_stack; +// union tree_node *current_scope; + struct SCB *fork; /* If inside fork/join, points to "main" SCB */ + unsigned fork_count; /* Count of number of SCBs still in fork/join */ +// struct SCB *thread; /* Currently used to link all SCBs inside a fork */ + int bit_offset; /* used in delayed assignments */ + int group_offset; /* used in delayed assignements */ + union { + struct SCB *scb; /* In case there are many SCBs waiting on the same event */ + struct context_member *fork_list; /* If at fork, point to members */ + union tree_node *decl; /* for nonblock assigns */ + } here; /* This is valid while waiting at a particular place */ +} SCB; + +void ADD_LIST_SCB(enum which_list list, SCB ** POINT, SCB * NEW); +void REMOVE_LIST_SCB(SCB * PTR); +SCB *LAST_SCB(enum which_list); + + +typedef struct Marker { + struct Marker **prev; /* pointer for event chain... */ + struct Marker *next; /* ...(all from the same decl) */ + struct SCB *scb; + struct Marker *link; /* Links markers for an event */ + union tree_node *decl; /* pointer to the associated decl tree entry */ + union { + union tree_node **expr; /* The event expression to evaluate */ + union tree_node *arg; /* For gates, point to the argument */ + struct monitor_info *mon; /* For $monitor and $wwaves, etc. */ + union tree_node *tree; /* Catch-all for typeless usage */ + int vcd_id; /* For VCD output */ + void *vcl; /* For PLI VCL */ + } expr; + enum marker_flags flags; + union tree_node *delay; /* if not null, put scb on timelist */ +} Marker; + +/* global info used during pass3 to build and thread markers as needed */ + +struct Marker_info { + SCB *current_scb; + int in_event; /* If set, references will build markers */ + Marker *first; /* Keep track of links during threading at pass3 */ + Marker *last; + enum marker_flags flags; + union tree_node *delay; +}; + +SCB *BuildSCB(union tree_node *, enum which_list); +tree dispatch_pc(enum which_list); +tree dump_current_process(void); +tree suspend_current_process(void); +void BuildMarker(tree decl, struct Marker_info *marker_info); +tree WaitOnTime(delay_t waittime, tree pc); +tree WaitOnTime64(struct Time64 *waittime, tree pc); +void WaitOnEvent(Marker * marker, SCB * scb); +union tree_node *WaitOnEventAll(Marker *, union tree_node *); +void WaitOnEventOther(SCB *, Marker *, union tree_node *); +void NotifyEvent(Marker *, enum logical_value, int); +void NotifyDeferred(union tree_node *); +void FreeSCB(SCB *); +void event_undo(Marker * first); +void cleanup_SCB(SCB *); +void interject_readylist(SCB *, union tree_node *); +void thread_marker(Marker *); +void thread_all_markers(Marker *); +void Schedule(delay_t waittime, SCB * scb, int prepend); +void ScheduleDelta64(struct Time64 *time, SCB * scb, int prepend); +void Schedule64(struct Time64 *time, SCB * scb, int prepend); +void ScheduleNet(Marker * marker, enum logical_value state); +void PrintSCB(SCB * scb); +tree WaitOnEventAll(Marker * marker, tree pc); +SCB *dispatcher(enum which_list remove_list); +void interject_readylist(SCB * scb, tree pc); +void init_sched(void); + +// private methods + +#ifdef SCHED_C +#endif // SCHED_C + +#endif // SCHED_H diff --git a/src/scope.cc b/src/scope.cc new file mode 100644 index 0000000..0940ef4 --- /dev/null +++ b/src/scope.cc @@ -0,0 +1,382 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* SCOPE.C - Routines for resolving hierarchical names, setting scopes, etc. */ + +#define SCOPE_C + +#include +#include "vtypes.h" +#include "tree.h" +#include "scope.h" + +/* Pointer to the current scope's block */ +tree current_scope; + + +/* This is used at compile time mostly to save outer-level declarations + for vars that are redefined at as inner level but then have to be restored + upon leaving the scope. */ + +struct scoping_level { + struct scoping_level *previous; /* points to outer-level scope */ + tree block; /* points to current block node */ + tree shadow; /* points to tree list of outer-level decls to be */ + /* restored upon exit from this scope */ +}; +/* level0 and scope0 will hold names to top-level modules */ +static struct scoping_level level0; +tree scope0 = NULL; /* Initialized in pass2.s */ + +static struct scoping_level *current_level = &level0; +static struct scoping_level *free_level = (struct scoping_level *) NULL; + +/* Remember the previous declaration of an ident by making a TREE_LIST + with iden as TREE_PURPOSE and its old declaration as TREE_VALUE. */ + +void set_decl(tree ident, tree decl) +{ + current_level->shadow = + link_tree_cons(ident, IDENT_CURRENT_DECL(ident), + current_level->shadow); + IDENT_CURRENT_DECL(ident) = decl; +} + +void push_scope() +{ + struct scoping_level *tmp; + +/* create a new scoping level, or resuse one */ + + if (!free_level) + tmp = + (struct scoping_level *) + linkalloc(sizeof(struct scoping_level)); + else { + tmp = free_level; + free_level = tmp->previous; + } + + tmp->block = current_scope; + tmp->previous = current_level; + tmp->shadow = NULL_TREE; + current_level = tmp; +} + +tree pop_scope() +{ + tree decl_list, next; + struct scoping_level *level; + + /* restore declarations of previous scope (set in set_decl). TREE_PURPOSE + has the IDENTIFIER_NODE; TREE_VALUE has the DECL_NODE. */ + + for (decl_list = current_level->shadow; decl_list; decl_list = next) { + next = TREE_CHAIN(decl_list); + IDENT_CURRENT_DECL(TREE_PURPOSE(decl_list)) = + TREE_VALUE(decl_list); + free_link_list(decl_list); + } + +/* pop the scoping level and save the old frame for later use */ + + level = current_level; + current_level = current_level->previous; + level->previous = free_level; + free_level = level; + if (!current_level) + return NULL_TREE; + return current_level->block; +} + +void set_scope(tree new_scope) +{ + tree t; + + current_scope = new_scope; + push_scope(); + /* first, do ports */ + for (t = BLOCK_PORTS(new_scope); t; t = TREE_CHAIN(t)) + set_decl(DECL_NAME(t), t); + /* then do DECLs */ + for (t = BLOCK_DECL(new_scope); t; t = TREE_CHAIN(t)) { + t = t; + set_decl(DECL_NAME(t), t); + } + /* if scope is a module then do specparams */ + + if (TREE_CODE(new_scope) == MODULE_BLOCK) { + for (t = MODULE_SPECDEFS(new_scope); t; t = TREE_CHAIN(t)) { + if (TREE_CODE(t) == SPECPARAM_DECL) { + set_decl(DECL_NAME(t), t); + } + } + } +// for (t = BLOCK_DOWN (new_scope); t; t = TREE_CHAIN (t)) +// set_decl (BLOCK_NAME (t), t); +} + +void reset_scope() +{ + tree decl_list, next; + + for (decl_list = current_level->shadow; decl_list; decl_list = next) { + next = TREE_CHAIN(decl_list); + IDENT_CURRENT_DECL(TREE_PURPOSE(decl_list)) = + TREE_VALUE(decl_list); + free_link_list(decl_list); + } +} + +/* At runtime, puts the list of top-level modules in the symbol table + and sets the scope to the first listed top-level module. */ + +void initialize_scope(tree top_level) +{ + tree t; + + current_level = &level0; + current_scope = scope0; + +/* Read top-level block names, only if called after pass2 */ + if (top_level) { + for (t = BLOCK_DECL(scope0); t; t = TREE_CHAIN(t)) + set_decl(DECL_NAME(t), t); + set_scope(top_level); + } +} + + +tree search_scope_across(tree starting_scope, char *name, int set) +{ + tree scope; + + for (scope = starting_scope; scope; scope = TREE_CHAIN(scope)) + if (!strcmp(name, IDENT(BLOCK_NAME(scope)))) { + if (set) + set_scope(scope); + return scope; + } + return NULL_TREE; +} + +tree search_scope_up(tree starting_scope, char *name, int set) +{ + tree scope, new_scope; + + for (scope = starting_scope; scope; scope = BLOCK_UP(scope)) { + if (set) + current_scope = pop_scope(); +// if (!strcmp (name, IDENT (BLOCK_NAME (scope)))) + if ((new_scope = + search_scope_across(scope, name, set)) != NULL_TREE) + return new_scope; + } + return search_scope_across(top_level, name, set); +} + +/* +static +void +lookupward_scope (tree scope) +{ + tree t; + int found = 0; + + for (t = current_scope; t; t = BLOCK_UP (t)) + { + current_scope = pop_scope (); + if (scope == t) + { + found = 1; + set_scope (t); + break; + } + } + if (!found) + { + for (t = top_level; t; t = TREE_CHAIN (t)) + if (scope == t) { + set_scope (t); + found = 1; + } + } + if (!found) + error ("Scope not found", NULL_CHAR, NULL_CHAR); +} +*/ +tree resolve_hierarchical_path(char *path) +{ + extern char *token_buffer; /* Will already be as large as needed */ + char *path_name = token_buffer, *decl_name; + + strcpy(path_name, path); + + /* seperate the last component of the path */ + decl_name = strrchr(path_name, '.'); + *decl_name = '\0'; + decl_name++; + + return search_up_decl(decl_name, search_scope(path_name, 0)); +} + +tree resolve_hierarchical_name(tree ident) +{ + return (resolve_hierarchical_path(IDENT(ident))); +} + +/* Traverse the tree following the hierichical name. If "set" is non-zero, + then also set the scope as the tree is traversed. Not that "set" + should be set _only_ if the hierachical name is known to be good, + usually (always?) by first calling this without setting "set". + If "set" is set, but the name is bad, the the scope will be screwed up + with no chance of recovery. */ + +tree search_scope(char *path_name, int set) +{ + extern char *token_buffer; /* Will already be as large as needed */ + tree scope, set_scope; + extern tree scope0; /* defined in decl.c */ + char *p, *path = token_buffer; + + strcpy(path, path_name); + p = strtok(path, "."); + + set_scope = current_scope; + + scope = search_scope_across(BLOCK_DOWN(set_scope), p, set); + if (!scope) { + scope = search_scope_up(set_scope, p, set); + if (!scope) { + if (set) { + for (set_scope = current_scope; set_scope != scope0; + set_scope = BLOCK_UP(set_scope)) + current_scope = pop_scope(); + } + scope = search_scope_across(top_level, p, set); + if (!scope) { + for (set_scope = current_scope; + TREE_CODE(set_scope) != MODULE_BLOCK; + set_scope = BLOCK_UP(set_scope)) + if (set) + current_scope = pop_scope(); + scope = search_scope_across(BLOCK_DOWN(set_scope), p, set); + if (!scope) { + error + ("Component '%s' is not in up, down, or top-level path", + p, NULL_CHAR); + return error_mark_node; + } + } + } + } + + for (p = strtok(NULL, "."); p; p = strtok(NULL, ".")) { + set_scope = scope; + scope = search_scope_across(BLOCK_DOWN(set_scope), p, set); + if (!scope) { + scope = search_scope_up(set_scope, p, set); + if (!scope) { + error + ("Component '%s' is not in up, down, or top-level path", + p, NULL_CHAR); + return error_mark_node; + } else if (!set) + warning("Hierarchical component '%s' found on upward path", + IDENT(BLOCK_NAME(scope)), NULL_CHAR); + } + } + return scope; +} + +/* Look for a decl node with the give name in the current scope. If + not there, search up the hierarchy. If found higher up, give + a warning. If not found, return error_mark_node and print error. + Don't look any higher than the first MODULE_BLOCK. */ + +tree search_up_decl(char *name, tree starting_scope) +{ + tree scope, t, t1; + + if (starting_scope == error_mark_node) + return error_mark_node; + + for (scope = starting_scope; scope; +// scope = (TREE_CODE (scope) == MODULE_BLOCK ? NULL_TREE : BLOCK_UP (scope))) + scope = BLOCK_UP(scope)) { + for (t = BLOCK_DECL(scope); t; t = TREE_CHAIN(t)) { +// if (TREE_CODE (t) == ARRAY_DECL) +// t1 = ARRAY_DECL (t); +// else + t1 = t; + if (!strcmp(name, IDENT(DECL_NAME(t1)))) { + if (scope != starting_scope) + warning("Identifier '%s' found on upward path", name, + NULL_CHAR); + return t; + } + } + for (t = BLOCK_PORTS(scope); t; t = TREE_CHAIN(t)) { + if (TREE_CODE(t) == ARRAY_REF) + t1 = ARRAY_REF_DECL(t); + else + t1 = t; + if (!strcmp(name, IDENT(DECL_NAME(t1)))) { + if (scope != starting_scope) + warning("Identifier '%s' found on upward path", name, + NULL_CHAR); + return t; + } + } + } + error("Identifier '%s' not declared", name, NULL_CHAR); + return error_mark_node; +} + +/* Given the current scope and a new scope, trace the path down or up + to the new scope and then call set_scope() and pop_scope() enough times + to set the new scope. This will be called only when the new scope is + in the symbol table, so it can only be one down, across, or top_level. +*/ + +void look_for_and_set_scope(tree scope) +{ + tree s; + +/* Case 1: top level - pop until top of hierarchy, then set */ + if (!BLOCK_UP(scope)) { + for (s = current_scope; s; s = BLOCK_UP(s)) + current_scope = pop_scope(); + set_scope(scope); + } +/* Case 2: one down - simply set the scope */ + else if (BLOCK_UP(scope) == current_scope) + set_scope(scope); + else + error("Scope case not handled yet", NULL_CHAR, NULL_CHAR); +} + +void init_scope() +{ + scope0 = NULL; + current_level = &level0; + free_level = NULL; + current_scope = NULL_TREE; + memset(&level0, 0, sizeof(level0)); +} diff --git a/src/scope.h b/src/scope.h new file mode 100644 index 0000000..3771456 --- /dev/null +++ b/src/scope.h @@ -0,0 +1,52 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* SCOPE.H - Scope and hierarchical name prototypes and globals */ + +#ifndef SCOPE_H +#define SCOPE_H + +// public methods + +void set_decl(tree, tree); +void push_scope(void); +tree pop_scope(void); +void set_scope(tree); +void reset_scope(void); +void initialize_scope(tree); +tree resolve_hierarchical_path(char *); +tree resolve_hierarchical_name(tree); +tree search_scope(char *, int); +tree search_up_decl(char *, tree); +void look_for_and_set_scope(tree); +void init_scope(void); +tree search_scope_across(tree starting_scope, char *name, int set); +tree search_scope_up(tree starting_scope, char *name, int set); + +extern tree current_scope; + +// private methods + +#ifdef SCOPE_C + +static void lookupward_scope(tree scope); + +#endif // SCOPE_C + +#endif // SCOPE_H diff --git a/src/sdf.cc b/src/sdf.cc new file mode 100644 index 0000000..d4e50ed --- /dev/null +++ b/src/sdf.cc @@ -0,0 +1,1114 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/********************************************************************** + * + * sdf.c + * - main pli entry point for sdf annotator + * + * things not implemented: + * 1) mipds + * 2) conditions + * 3) pulses + * 4) module mapping + * 5) Hierarchy divider + ********************************************************************** + */ + +#define SDF_C + +#include +#include +#include +#include +#include "veriuser.h" +#include "acc_user.h" +#include "sdf.h" +#include "vtypes.h" +#include "tree.h" +#include "glue.h" +#include "sdfclex.h" +#include "sdflex.h" +#include "flags.h" +#include "veriwell.h" + +static char inputFilename[MAX_FILENAME_LENGTH]; +static char configFilename[MAX_FILENAME_LENGTH]; +static char logFilename[MAX_FILENAME_LENGTH]; +static eDelayType_t mtmSpecification; +static double scaleFactor[3]; +static eScaleType_t scaleType; +static eDelayType_t interconnectMipd; +static eDelayType_t turnOffDelay; +static handle rootModule; // current top of hierarchy +static eVerilogConstruct_t map[ePATHPULSE + 1]; +static char cellType[256]; +static int absoluteDelay; +static int timeScale; +static handle currentInstance; +static int allInstances; + + +FILE *sdfLogFile; + + + +/********************************************************************** + + setTimeScale + set time scale + +***********************************************************************/ + +void setTimeScale(int scale) +{ + timeScale = scale; +} + +/********************************************************************** + + setAbsoluteDelay + set delay mode absolute or incremental + +***********************************************************************/ + +void setAbsoluteDelay(int flag) +{ + absoluteDelay = flag; +} + +/********************************************************************** + + resetInstance + + - clear the current instance + + **********************************************************************/ + +void resetInstance() +{ + currentInstance = null; + allInstances = FALSE; +} + + +/********************************************************************** + + findInstance + - find the next level of hierarchy + + **********************************************************************/ + +int findInstance(char *name) +{ + + if (!strcmp(name, "*")) { + allInstances = TRUE; + return (TRUE); + } + + if (currentInstance == null) { + currentInstance = acc_handle_object(name); + } else { + currentInstance = acc_handle_by_name(name, currentInstance); + } + + return (currentInstance != null); + +} + + +/********************************************************************** + + setCellType + - change the current cell type + + **********************************************************************/ + +void setCellType(char *type) +{ + strcpy(cellType, type); +} + +/********************************************************************** + + printPort + - printout an port spec + +***********************************************************************/ + +void printPort(port_t port) +{ + if (port.scalar) { + fprintf(sdfLogFile, port.name); + } else if (port.msb == port.lsb) { + fprintf(sdfLogFile, "%s[%d]", port.name, port.msb); + } else { + fprintf(sdfLogFile, "%s[%d:%d]", port.name, port.msb, port.lsb); + } + + +} + +/********************************************************************** + + printValue + - printout an sdf value + +***********************************************************************/ + +void printValue(elist_t value) +{ + int i; + int j; + + for (i = 0; i < value.argCount; i++) { + fprintf(sdfLogFile, "("); + for (j = 0; j < 3; j++) { + if (value.values[i].triple[j].valid) { + if (j != 0) { + fprintf(sdfLogFile, ","); + } + fprintf(sdfLogFile, "%g", value.values[i].triple[j].value); + } + } + fprintf(sdfLogFile, ")"); + } +} + +/********************************************************************** + + scaleDelay + - converts a delay triple into a value + returns TRUE if delay is valid + +***********************************************************************/ + +int scaleDelay(handle object, triple_t * value, double *d) +{ + triple_t newValue; + int result; + int scale; + + // pick basis for delays + switch (scaleType) { + case eFROM_MINIMUM: + newValue.triple[0] = value->triple[0]; + newValue.triple[1] = value->triple[0]; + newValue.triple[2] = value->triple[0]; + break; + case eFROM_MAXIMUM: + newValue.triple[0] = value->triple[2]; + newValue.triple[1] = value->triple[2]; + newValue.triple[2] = value->triple[2]; + break; + case eFROM_TYPICAL: + newValue.triple[0] = value->triple[1]; + newValue.triple[1] = value->triple[1]; + newValue.triple[2] = value->triple[1]; + break; + case eFROM_MTM: + newValue = *value; + break; + default: + ASSERT(FALSE); + } + + // apply scaleFactors + newValue.triple[0].value *= scaleFactor[0]; + newValue.triple[1].value *= scaleFactor[1]; + newValue.triple[2].value *= scaleFactor[2]; + + // pick min:typ:max + switch (mtmSpecification) { + case eMINIMUM: + *d = newValue.triple[0].value; + result = newValue.triple[0].valid; + break; + case eTYPICAL: + *d = newValue.triple[1].value; + result = newValue.triple[1].valid; + break; + case eMAXIMUM: + *d = newValue.triple[2].value; + result = newValue.triple[2].valid; + break; + case eTOOL_CONTROL: + // here is currently the only place I don't use pli to access info + switch (delay_type) { + case MIN_DELAY: + *d = newValue.triple[0].value; + result = newValue.triple[0].valid; + break; + case TYP_DELAY: + *d = newValue.triple[1].value; + result = newValue.triple[1].valid; + break; + case MAX_DELAY: + *d = newValue.triple[2].value; + result = newValue.triple[2].valid; + break; + default: + ASSERT(FALSE); + } + break; + default: + ASSERT(FALSE); + } + + scale = + timeScale - tf_igettimeunit((char *) acc_handle_parent(object)); + *d *= pow(10.0, (double) scale); + + return (result); +} + +/********************************************************************** + + setNewDelays + - set new delay values + +***********************************************************************/ + +void setNewDelays(handle object, double *d, elist_t * value) +{ + int i; + double delay; + + for (i = 0; i < value->argCount; i++) { + + // scale delay + if (scaleDelay(object, &value->values[i], &delay)) { + // if absolute replace delay + // otherwise increment delay + if (absoluteDelay) { + d[i] = delay; + } else { + d[i] += delay; + } + } + } + +} + +/********************************************************************** + + getPathHandle + - returns handle for path matching the given ports + +***********************************************************************/ + +handle getPathHandle(handle instance, port_t * outPort, port_t * inPort) +{ + handle object; + char outPortName[256]; + char inPortName[256]; + char *fmt; + + object = NULL; + + + if (!outPort->scalar) { + if (outPort->msb == outPort->lsb) { + fmt = "%s[%d]"; + } else { + fmt = "%s[%d:%d]"; + } + } else { + fmt = "%s"; + } + sprintf(outPortName, fmt, outPort->name, outPort->msb, outPort->lsb); + + if (!inPort->scalar) { + if (inPort->msb == inPort->lsb) { + fmt = "%s[%d]"; + } else { + fmt = "%s[%d:%d]"; + } + } else { + fmt = "%s"; + } + sprintf(inPortName, fmt, inPort->name, inPort->msb, inPort->lsb); + + + object = acc_handle_modpath(instance, inPortName, outPortName); + + return (object); +} + + + +/********************************************************************** + + setConstraint + - set new sdf constraint + +***********************************************************************/ + +void +setConstraint(eSDFConstruct_t type, port_t * p1, port_t * p2, + elist_t value) +{ + handle top; + + if (currentInstance != null) { + setInstanceConstraint(currentInstance, allInstances, type, + p1, p2, value); + } else { + top = null; + while (TRUE) { + top = acc_next_topmod(top); + if (top == null) { + break; + } + setInstanceConstraint(top, allInstances, type, p1, p2, value); + } + } +} + +/********************************************************************** + + setInstanceConstraint + - set new sdf constraint and walk instances + +***********************************************************************/ + +void +setInstanceConstraint(handle instance, int matchAll, + eSDFConstruct_t type, port_t * p1, port_t * p2, + elist_t value) +{ + int match; + handle child; + + + match = !strcmp(cellType, acc_fetch_defname(instance)); + if (matchAll && !match) { + child = null; + while (TRUE) { + child = acc_next_child(instance, child); + if (child == null) { + break; + } + setInstanceConstraint(child, matchAll, type, p1, p2, value); + } + } else if (match) { + + switch (map[type]) { + case eVCELL: + setCellConstraint(instance, p1, p2, value); + break; + case eVSETUP: + case eVHOLD: + case eVSKEW: + case eVRECOVERY: + case eVPERIOD: + case eVWIDTH: + case eVSETUPHOLD: + setTimingConstraint(instance, map[type], p1, p2, value); + break; + case eVIGNORE: + break; + default: + + { + char buffer[255]; + + sprintf(buffer, "%s contraints are not supported", + sVerilogConstruct[map[type]]); + sdf_error(buffer); + } + break; + + } + + } +} + + +/********************************************************************** + + printDelayGroup + - print delay group values to logfile + +***********************************************************************/ +void +printDelayGroup(char *title, int delayCount, double d1, + double d2, double d3, double d4, double d5, double d6) +{ + int count = delayCount; + + fprintf(sdfLogFile, "\t%s\n", title); + fprintf(sdfLogFile, "\t\t01\t%g\n", d1); + count--; + if (count > 0) { + fprintf(sdfLogFile, "\t\t10\t%g\n", d2); + count--; + } + if (count > 0) { + fprintf(sdfLogFile, "\t\t0z\t%g\n", d3); + count--; + } + if (count > 0) { + fprintf(sdfLogFile, "\t\tz1\t%g\n", d4); + count--; + } + if (count > 0) { + fprintf(sdfLogFile, "\t\t1z\t%g\n", d5); + count--; + } + if (count > 0) { + fprintf(sdfLogFile, "\t\tz0\t%g\n", d6); + count--; + } +} + +/********************************************************************** + + setPathDelays + - set delays for path instance + +***********************************************************************/ + +void setPathDelays(handle instance, handle object, elist_t value) +{ + double d[6]; + + fprintf(sdfLogFile, "modifying path %s => ", + acc_fetch_fullname(object)); + printValue(value); + fprintf(sdfLogFile, "\n"); + + acc_fetch_delays(object, &d[0], &d[1], &d[2], &d[3], &d[4], &d[5]); + printDelayGroup("Current delays", 6, d[0], d[1], d[2], d[3], d[4], + d[5]); + setNewDelays(instance, d, &value); + acc_replace_delays(object, d[0], d[1], d[2], d[3], d[4], d[5]); + + acc_fetch_delays(object, &d[0], &d[1], &d[2], &d[3], &d[4], &d[5]); + printDelayGroup("New delays", 6, d[0], d[1], d[2], d[3], d[4], d[5]); +} + +/********************************************************************** + + setPrimitiveDelays + - set delays for primitive instance + +***********************************************************************/ + +void setPrimitiveDelays(handle instance, handle driver, elist_t value) +{ + double d[6]; + + fprintf(sdfLogFile, "modifying primitive %s => ", + acc_fetch_fullname(driver)); + printValue(value); + fprintf(sdfLogFile, "\n"); + + acc_fetch_delays(driver, &d[0], &d[1], &d[2], &d[3], &d[4], &d[5]); + printDelayGroup("Current delays", 3, d[0], d[1], d[2], d[3], d[4], + d[5]); + setNewDelays(instance, d, &value); + acc_replace_delays(driver, d[0], d[1], d[2], d[3], d[4], d[5]); + + acc_fetch_delays(driver, &d[0], &d[1], &d[2], &d[3], &d[4], &d[5]); + printDelayGroup("New delays", 3, d[0], d[1], d[2], d[3], d[4], d[5]); +} + +/********************************************************************** + + setTimingConstraint + - set timing constraint on given instance + + **********************************************************************/ +void +setTimingConstraint(handle instance, eVerilogConstruct_t type, + port_t * p1, port_t * p2, elist_t value) +{ + int timingCheckType; + int edge2; + handle check; + double d[6]; + char name1[256]; + char name2[256]; + + // map to pli timing check type + switch (type) { + case eVSETUP: + timingCheckType = accSetup; + break; + case eVHOLD: + timingCheckType = accHold; + break; + case eVSKEW: + timingCheckType = accSkew; + break; + case eVRECOVERY: + timingCheckType = accRecovery; + break; + case eVPERIOD: + timingCheckType = accPeriod; + break; + case eVWIDTH: + timingCheckType = accWidth; + break; + case eVSETUPHOLD: + timingCheckType = accSetuphold; + break; + default: + ASSERT(FALSE); + } + + // find timing check + + if (p1->scalar) { + sprintf(name1, "%s", p1->name); + } else if (p1->lsb == p1->msb) { + sprintf(name1, "%s[%d]", p1->name, p1->msb); + } else { + sprintf(name1, "%s[%d:%d]", p1->name, p1->msb, p1->lsb); + } + + if (p2 == NULL) { + name2[0] = 0; + } else if (p2->scalar) { + sprintf(name2, "%s", p2->name); + } else if (p2->lsb == p2->msb) { + sprintf(name2, "%s[%d]", p2->name, p2->msb); + } else { + sprintf(name2, "%s[%d:%d]", p2->name, p2->msb, p2->lsb); + } + + if (p2 == NULL) { + edge2 = 0; + } else { + edge2 = p2->edge; + } + + check = acc_handle_tchk(instance, timingCheckType, name1, p1->edge, + name2, edge2); + + if (check == null) { + return; + } + // update delays + + fprintf(sdfLogFile, "modifying %s check %s => ", + acc_fetch_type_str(acc_fetch_fulltype(check)), + acc_fetch_fullname(check)); + printValue(value); + fprintf(sdfLogFile, "\n"); + + acc_fetch_delays(check, &d[0], &d[1], &d[2], &d[3], &d[4], &d[5]); + printDelayGroup("Current delays", 1, d[0], d[1], d[2], d[3], d[4], + d[5]); + setNewDelays(instance, d, &value); + acc_replace_delays(check, d[0], d[1], d[2], d[3], d[4], d[5]); + + acc_fetch_delays(check, &d[0], &d[1], &d[2], &d[3], &d[4], &d[5]); + printDelayGroup("New delays", 1, d[0], d[1], d[2], d[3], d[4], d[5]); +} + +/********************************************************************** + + setCellConstraint + - set cell constraint on given instance + + **********************************************************************/ +void +setCellConstraint(handle instance, port_t * p1, port_t * p2, elist_t value) +{ + handle object; + handle port; + handle net; + handle driver; + handle primitive; + char *ptr; + int position; + + + // if p1 and p2 is specified locate path + + ASSERT(p1 != NULL || p2 == NULL); + object = null; + if (p2 != NULL) { // this is a path specification + object = getPathHandle(instance, p1, p2); + + // if path is found set delays and return + if (object != null) { + setPathDelays(instance, object, value); + return; + } + } + + // if p1 is specified locate port + // apply delay to each driving primitive with same parent + + // if p1 is unspecified iterate through each output port + // apply delay to each driving primitive with same parent + + port = null; + while (TRUE) { + port = acc_next_port(instance, port); + if (port == null) { + break; + } + if (acc_fetch_direction(port) == accInput) { + continue; + } + if (p1 != NULL && strcmp(acc_fetch_name(port), p1->name) != 0) { + break; + } + net = acc_handle_loconn(port); + if (net == NULL) { + continue; + } + driver = null; + while (TRUE) { + driver = acc_next_driver(net, driver); +// if( driver == null || +// acc_fetch_type( driver ) != accPrimitive || +// acc_handle_parent( driver ) != instance ) { +// break; +// } +// terminal = acc_next_terminal( driver, null ); + if (driver == null || acc_fetch_type(driver) != accTerminal) { + break; + } + primitive = acc_handle_parent(driver); + if (acc_handle_parent(primitive) != instance) { + break; + } + ptr = strchr(acc_fetch_name(acc_handle_conn(driver)), '['); + if (ptr != null) { + position = atoi(ptr + 1); + } + + if (p1 != NULL && + !p1->scalar && + ptr != NULL && + !(p1->lsb <= position && position <= p1->msb || + p1->msb <= position && position <= p1->lsb)) { + continue; + } + + setPrimitiveDelays(instance, primitive, value); + + } + } + +} + +/********************************************************************** + + setMap + - set construct mapping, return TRUE if mapping is valid + + **********************************************************************/ + +int setMap(eSDFConstruct_t sdfConstruct, eVerilogConstruct_t vConstruct) +{ + switch (vConstruct) { + case eVINTERMODPATH: + if (sdfConstruct != eINTERCONNECT && sdfConstruct != eNETDELAY) { + return (FALSE); + } + break; + case eVMIPD: + if (sdfConstruct != eINTERCONNECT && + sdfConstruct != ePORT && sdfConstruct != eNETDELAY) { + return (FALSE); + } + break; + case eVCELL: + if (sdfConstruct != eDEVICE && sdfConstruct != eIOPATH) { + return (FALSE); + } + break; + case eVUSE: + return (TRUE); // use defaults + case eVIGNORE: + break; + default: + ASSERT(FALSE); + } + map[sdfConstruct] = vConstruct; + return (TRUE); +} + +/********************************************************************** + + setInterconnectMipd + - set global interconnectMipd spec + +***********************************************************************/ +void setInterconnectMipd(eDelayType_t aSpec) +{ + interconnectMipd = aSpec; +} + +/********************************************************************** + + setTurnOffDelay + - set global turn off delay specification + +***********************************************************************/ +void setTurnOffDelay(eDelayType_t aSpec) +{ + char *ptr; + + turnOffDelay = aSpec; + switch (aSpec) { + case eMINIMUM: + ptr = "min"; + break; + case eMAXIMUM: + ptr = "max"; + break; + case eAVERAGE: + ptr = "average"; + break; + case eFROM_FILE: + ptr = "from_user"; + break; + default: + ASSERT(FALSE); + return; + } + acc_configure(accToHiZDelay, ptr); +} + +/********************************************************************** + + setMTMSpec + - set global mtm specification + +***********************************************************************/ +void setMTMSpec(eDelayType_t aSpec) +{ + mtmSpecification = aSpec; +} + +/********************************************************************** + + setScaleFactors + - set global scale factors + +***********************************************************************/ +void setScaleFactors(double sf1, double sf2, double sf3) +{ + scaleFactor[0] = sf1; + scaleFactor[1] = sf2; + scaleFactor[2] = sf3; +} + +/********************************************************************** + + setScaleType + - set global mtm specification + +***********************************************************************/ +void setScaleType(eScaleType_t aSpec) +{ + scaleType = aSpec; +} + +/********************************************************************** + + sdf_check + - validate arguments for $sdf_annotate call + +***********************************************************************/ + +int sdf_check(int data, int reason) +{ + int numberOfArgs; + int argNumber; + char *stringPtr; + + + acc_initialize(); + + // validate arguments + + numberOfArgs = tf_nump(); + if (numberOfArgs < 1) { + tf_error("Not enough arguments"); + goto fail; + } + if (numberOfArgs > 7) { + tf_error("Too many arguments"); + goto fail; + } + // argument 1 - sdf filename + + stringPtr = tf_getcstringp(1); + if (stringPtr == NULL) { + tf_error("argument 1 must be a string"); + goto fail; + } + strcpy(inputFilename, stringPtr); + + // argument 2 - module instance + // validate later + + // arguments 3-7 + + for (argNumber = 3; argNumber <= numberOfArgs; argNumber++) { + if (tf_typep(argNumber) != tf_string) { + tf_error("argument %d must be a string", argNumber); + goto fail; + } + } + + + + fail: + acc_close(); + return (0); +} + +/********************************************************************** + + sdf_call + - execute $sdf_annotate call + +***********************************************************************/ + +int sdf_call(int data, int reason) +{ + int numberOfArgs; + int argNumber; + char *stringPtr; + char *ptr; + int i; + + acc_initialize(); + + + + // parse arguments + + numberOfArgs = tf_nump(); + + // argument 1 - sdf filename + + strcpy(inputFilename, tf_getcstringp(1)); + + // argument 2 - module instance + + if (numberOfArgs > 1) { + rootModule = acc_handle_tfarg(2); + } else { + rootModule = NULL; + } + + if (rootModule == NULL) { + rootModule = acc_handle_object(tf_mipname()); + } +// setup defaults + + strcpy(logFilename, "sdf.log"); + scaleFactor[0] = 1; + scaleFactor[1] = 1; + scaleFactor[2] = 1; + scaleType = eFROM_MTM; + timeScale = -9; // default is one ns + mtmSpecification = eTOOL_CONTROL; + configFilename[0] = 0; + turnOffDelay = eFROM_FILE; + interconnectMipd = eMAXIMUM; + + // setup default mappings + + map[eIOPATH] = eVCELL; + map[ePORT] = eVMIPD; + map[eINTERCONNECT] = eVMIPD; + map[eNETDELAY] = eVMIPD; + map[eDEVICE] = eVCELL; + map[eSETUP] = eVSETUP; + map[eHOLD] = eVHOLD; + map[eSETUPHOLD] = eVSETUPHOLD; + map[eRECOVERY] = eVRECOVERY; + map[eSKEW] = eVSKEW; + map[eWIDTH] = eVWIDTH; + map[ePERIOD] = eVPERIOD; + map[eNOCHANGE] = eVNOCHANGE; + map[ePATHPULSE] = eVPATHPULSE; + + + // argument 3 + + if (numberOfArgs > 2 && tf_typep(3) == tf_string) { + strcpy(configFilename, tf_getcstringp(3)); + initSDFCParse(); + if (sdfclexOpenFile(configFilename) != NULL) { + sdfconfig_parse(); + } + } + + // arguments 4-7 + + for (argNumber = 4; argNumber <= numberOfArgs; argNumber++) { + if (tf_typep(argNumber) == tf_nullparam) { + continue; + } + + stringPtr = tf_getcstringp(argNumber); + + switch (argNumber) { + case 4: // log file + strcpy(logFilename, stringPtr); + break; + case 5: // mtm specification + if (!strcmp(stringPtr, "MINIMUM")) { + mtmSpecification = eMINIMUM; + } else if (!strcmp(stringPtr, "TYPICAL")) { + mtmSpecification = eTYPICAL; + } else if (!strcmp(stringPtr, "MAXIMUM")) { + mtmSpecification = eMAXIMUM; + } else if (!strcmp(stringPtr, "TOOL_CONTROL")) { + mtmSpecification = eTOOL_CONTROL; + } else { + tf_error("argument %d is not recognized", argNumber); + goto fail; + } + break; + case 6: // scale factor + + // parse first value + + ptr = strchr(stringPtr, ':'); + if (ptr == NULL) { + tf_error("argument %d is an illegal scale factor", + argNumber); + goto fail; + } + + if (ptr == stringPtr) { + scaleFactor[0] = 1; + } else { + scaleFactor[0] = atof(stringPtr); + } + stringPtr = ptr + 1; + + // parse second value + + ptr = strchr(stringPtr, ':'); + if (ptr == NULL) { + tf_error("argument %d is an illegal scale factor", + argNumber); + goto fail; + } + + if (ptr == stringPtr) { + scaleFactor[1] = 1; + } else { + scaleFactor[1] = atof(stringPtr); + } + stringPtr = ptr + 1; + + // parse third value + + + if (*stringPtr == 0) { + scaleFactor[2] = 1; + } else { + scaleFactor[2] = atof(stringPtr); + } + + break; + case 7: // scale type + if (!strcmp(stringPtr, "FROM_MINIMUM")) { + scaleType = eFROM_MINIMUM; + } else if (!strcmp(stringPtr, "FROM_TYPICAL")) { + scaleType = eFROM_TYPICAL; + } else if (!strcmp(stringPtr, "FROM_MAXIMUM")) { + scaleType = eFROM_MAXIMUM; + } else if (!strcmp(stringPtr, "FROM_MTM")) { + scaleType = eFROM_MTM; + } else { + tf_error("argument %d is not recognized", argNumber); + goto fail; + } + break; + default: + ASSERT(FALSE); + } + } + + +// open logfile + + sdfLogFile = shell_fopen(logFilename, "w"); + if (sdfLogFile == NULL) { + tf_error("Could not open logfile '%s'\n", logFilename); + goto fail; + } + + +#ifdef SDF_DEBUG + fprintf(sdfLogFile, "input file = %s\n", inputFilename); + fprintf(sdfLogFile, "root module = %s\n", + acc_fetch_fullname(rootModule)); + fprintf(sdfLogFile, "config file = %s\n", configFilename); + fprintf(sdfLogFile, "log file = %s\n", logFilename); + fprintf(sdfLogFile, "mtm spec = %s\n", sDelayType[mtmSpecification]); + fprintf(sdfLogFile, "scale factor = %g:%g:%g\n", scaleFactor[0], + scaleFactor[1], scaleFactor[2]); + fprintf(sdfLogFile, "scale type = %s\n", sScaleType[scaleType]); + fprintf(sdfLogFile, "interconnect midp = %s\n", + sScaleType[interconnectMipd]); + fprintf(sdfLogFile, "turn off delay = %s\n", sDelayType[turnOffDelay]); + for (i = 0; i < sizeof(map) / sizeof(eVerilogConstruct_t); i++) { + fprintf(sdfLogFile, "mapping %s => %s\n", sSDFConstruct[i], + sVerilogConstruct[map[i]]); + } +#endif // SDF_DEBUG + + + + // parse input file + + initSDFParse(); + if (sdflexOpenFile(inputFilename) != NULL) { + sdf_parse(); + } + + + fail: + shell_fclose(sdfLogFile); + acc_close(); + return (0); +} + +/********************************************************************** + + sdf_misc + - misc pli maintanance calls + +***********************************************************************/ + +int sdf_misc(int data, int reason) +{ + acc_initialize(); + + acc_close(); + return (0); +} diff --git a/src/sdf.h b/src/sdf.h new file mode 100644 index 0000000..33a9873 --- /dev/null +++ b/src/sdf.h @@ -0,0 +1,205 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + + +/********************************************************************** + * + * sdf.h + * - definitions for sdf.c module + * + ********************************************************************** + */ + +#ifndef SDF_H +#define SDF_H + +// public section + +#define SDF_DEBUG +#define MAX_FILENAME_LENGTH 1024 + +typedef enum { + eMINIMUM = 0, + eTYPICAL, + eMAXIMUM, + eTOOL_CONTROL, + eAVERAGE, + eFROM_FILE +} eDelayType_t; + +typedef enum { + eFROM_MINIMUM = 0, + eFROM_TYPICAL, + eFROM_MAXIMUM, + eFROM_MTM +} eScaleType_t; + +typedef enum { + eIOPATH = 0, + ePORT, + eINTERCONNECT, + eNETDELAY, + eDEVICE, + eSETUP, + eHOLD, + eSETUPHOLD, + eRECOVERY, + eSKEW, + eWIDTH, + ePERIOD, + eNOCHANGE, + ePATHPULSE +} eSDFConstruct_t; + +typedef enum { + eVIGNORE = 0, + eVINTERMODPATH, + eVMIPD, + eVCELL, + eVSETUP, + eVHOLD, + eVSETUPHOLD, + eVRECOVERY, + eVSKEW, + eVWIDTH, + eVPERIOD, + eVNOCHANGE, + eVPATHPULSE, + eVUSE +} eVerilogConstruct_t; + +typedef struct { + double value; + int valid; +} creal_t; + +typedef struct { + creal_t triple[3]; +} triple_t; + +typedef struct { + triple_t values[6]; + int argCount; +} elist_t; + +typedef struct { + char *path; + char *name; + int scalar; + int msb; + int lsb; + int edge; +} port_t; + +int sdf_check(int data, int reason); +int sdf_call(int data, int reason); +int sdf_misc(int data, int reason); +void setScaleFactors(double s1, double s2, double s3); +void setScaleType(eScaleType_t aType); +void setDelayType(eDelayType_t aDelay); +void setInterconnectMipd(eDelayType_t aDelay); +void setTurnOffDelay(eDelayType_t aDelay); +int setMap(eSDFConstruct_t from, eVerilogConstruct_t to); +void setConstraint(eSDFConstruct_t type, port_t * p1, port_t * p2, + elist_t value); +void setCellConstraint(handle object, port_t * p1, port_t * p2, + elist_t value); +void setInstanceConstraint(handle object, int matchAll, + eSDFConstruct_t type, port_t * p1, port_t * p2, + elist_t value); +void setCellType(char *type); +void setTimeScale(int scale); +void resetInstance(void); +int findInstance(char *name); +void setPathDelays(handle instance, handle object, elist_t value); +void setTimingConstraint(handle instance, eVerilogConstruct_t type, + port_t * p1, port_t * p2, elist_t value); +void initSDFCParse(void); +void initSDFParse(void); +int sdfconfig_parse(void); +int sdf_parse(void); +void setMTMSpec(eDelayType_t); +void setAbsoluteDelay(int); +void printPort(port_t port); +void printValue(elist_t value); +int scaleDelay(handle object, triple_t * value, double *d); +void setNewDelays(handle object, double *d, elist_t * value); +handle getPathHandle(handle instance, port_t * outPort, port_t * inPort); +void setPrimitiveDelays(handle instance, handle driver, elist_t value); + +// private section + +#ifdef SDF_C + +char *sDelayType[] = { + "MINIMUM", + "TYPICAL", + "MAXIMUM", + "TOOL_CONTROL", + "AVERAGE", + "FROM_FILE" +}; + +char *sScaleType[] = { + "FROM_MINIMUM", + "FROM_TYPICAL", + "FROM_MAXIMUM", + "FROM_MTM" +}; + +char *sSDFConstruct[] = { + "IOPATH", + "PORT", + "INTERCONNECT", + "NETDELAY", + "DEVICE", + "SETUP", + "HOLD", + "SETUPHOLD", + "RECOVERY", + "SKEW", + "WIDTH", + "PERIOD", + "NOCHANGE", + "PATHPULSE" +}; + +char *sVerilogConstruct[] = { + "IGNORE", + "INTERMODPATH", + "MIPD", + "CELL", + "SETUP", + "HOLD", + "SETUPHOLD", + "RECOVERY", + "SKEW", + "WIDTH", + "PERIOD", + "NOCHANGE", + "PATHPULSE", + "USE" +}; + +void printDelayGroup(char *title, int delayCount, double d1, double d2, + double d3, double d4, double d5, double d6); + +#endif // SDF_C + +#endif // SDF_H diff --git a/src/sdfclex.cc b/src/sdfclex.cc new file mode 100644 index 0000000..5a4bc48 --- /dev/null +++ b/src/sdfclex.cc @@ -0,0 +1,519 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* sdflex.c - lexer for sdf's */ + +#define SDFCLEX_C + +#include +#include +#include +#include +#include +#include "vtypes.h" +#include "glue.h" +#include "tree.h" +#include "veriwell.h" +#include "acc_user.h" +#include "sdf.h" +#include "sdfcpars.h" +#include "sdfclex.h" +#include "veriuser.h" + +typedef struct { + char *string; + int token; +} table_t; + +static table_t keywordTable[] = { + "iopath", IOPATH, + "port", PORT, + "interconnect", INTERCONNECT, + "netdelay", NETDELAY, + "device", DEVICE, + "setup", SETUP, + "hold", HOLD, + "setuphold", SETUPHOLD, + "recovery", RECOVERY, + "skew", SKEW, + "width", WIDTH, + "period", PERIOD, + "nochange", NOCHANGE, + "pathpulse", PATHPULSE, + "ignore", IGNORE, + "intermod_path", INTERMOD_PATH, + "mipd", MIPD, + "cell", CELL, + "use", USE, + "interconnect_mipd", INTERCONNECT_MIPD, + "minimum", MINIMUM, + "maximum", MAXIMUM, + "average", AVERAGE, + "mtm", MTM, + "tool_control", TOOL_CONTROL, + "typical", TYPICAL, + "scale_factors", SCALE_FACTORS, + "from_minimum", FROM_MINIMUM, + "from_typical", FROM_TYPICAL, + "from_maximum", FROM_MAXIMUM, + "from_mtm", FROM_MTM, + "turnoff_delay", TURNOFF_DELAY, + "turnon_delay", TURNON_DELAY, + "module", MODULE, + "map_inner", MAP_INNER, + "add", ADD, + "override", OVERRIDE, + "ignore", IGNORE, + "from_file", FROM_FILE, + "scale_type", SCALE_TYPE, + NULL, 0 +}; + +static int lineNumber; +static FILE *fin; +static char filename[MAX_FILENAME_LENGTH]; + +static char *tokenBuffer; +static int bufferLength; +static char *bufferPtr; + +static int hierarchyChar; + +int sdfconfig_lex(YYSTYPE * val); + +/******************************************************************* + + appendTokenBuffer + - add character to token buffer + +*******************************************************************/ + +static void appendTokenBuffer(int c) +{ + ASSERT(tokenBuffer != NULL); + if (bufferPtr >= tokenBuffer + bufferLength) { + bufferLength += 40; + tokenBuffer = (char *) xrealloc(tokenBuffer, bufferLength); + } + *bufferPtr = (char) c; + bufferPtr += 1; +} + +/******************************************************************* + + scanInteger + - append characters to token buffer if they are part of + an integer + + *******************************************************************/ + +static void scanInteger(void) +{ + int c; + + while (TRUE) { + c = getc(fin); + if (c < '0' || c > '9') { + break; + } + appendTokenBuffer(c); + }; + ungetc(c, fin); +} + +/******************************************************************* + + isStringEqual + - returns TRUE if strings are equal( case insensitive ) + + ******************************************************************/ + +static int isStringEqual(char *s1, char *s2) +{ + while (*s1 != 0 && *s2 != 0) { + if (toupper(*s1) != toupper(*s2)) { + return (FALSE); + } + s1++; + s2++; + } + if (*s1 != 0 || *s2 != 0) { + return (FALSE); + } + return (TRUE); +} + +/******************************************************************* + + resetTokenBuffer + - flush token buffer + +*******************************************************************/ + +static void resetTokenBuffer() +{ + bufferPtr = tokenBuffer; +} + +/******************************************************************* + + sdflexPushFile + - push current file descriptor and position + + *******************************************************************/ + +static void sdflexPushFile() +{ + if (fin != NULL) { + ASSERT(FALSE); + } +} + +/******************************************************************* + + sdflexPopFile + - pop current file descriptor and position + + *******************************************************************/ + +static void sdflexPopFile(void) +{ + if (fin != NULL) { + shell_fclose(fin); + fin = NULL; + } +} + +/******************************************************************* + + sdflexOpenFile + - open an input file + *******************************************************************/ + +FILE *sdfclexOpenFile(char *aFilename) +{ + FILE *newFile; + + sdflexPushFile(); + strncpy(filename, aFilename, sizeof(filename)); + newFile = shell_fopen(filename, "r"); + if (newFile == NULL) { + tf_error("could not open file '%s'", filename); + sdflexPopFile(); + return (NULL); + } + fin = newFile; + lineNumber = 1; + return (fin); +} + +/******************************************************************* + + sdfconfig_error + - print error messages for sdf config parser + + *******************************************************************/ + +void sdfconfig_error(char *message) +{ + io_printf("SDF ERROR: %s L%ld, %s\n", filename, lineNumber, message); +} + + +/******************************************************************* + match + - check for 2 character sequences + +********************************************************************/ + +static int match(int c, int noToken, char *matchString, int yesToken) +{ + char c1; + + + c1 = getc(fin); + if (c1 == matchString[1]) { + appendTokenBuffer(c); + appendTokenBuffer(c1); + appendTokenBuffer(0); + return (yesToken); + } else { + ungetc(c1, fin); + if (c == matchString[0]) { + appendTokenBuffer(c); + appendTokenBuffer(0); + } + return (noToken); + } +} + +/******************************************************************* + + parseNumber + - parse all forms of numbers + + *******************************************************************/ + +static int parseNumber(int c, YYSTYPE * val) +{ + int type; + + if (c != '.') { + appendTokenBuffer(c); + if (c == '1') { + c = getc(fin); + if (c == '\'') { + c = getc(fin); + if (c == '0' || c == '1') { + appendTokenBuffer(c); + appendTokenBuffer(0); + val->integer = atoi(tokenBuffer); + return (SCALAR_CONSTANT); + } else { + ungetc(c, fin); + sdfconfig_error("Illegal scalar constant"); + val->integer = 0; + return (INTEGER); + } + } else { + ungetc(c, fin); + } + } + + scanInteger(); + type = INTEGER; + c = getc(fin); + } + + if (c == '.') { + appendTokenBuffer(c); + scanInteger(); + type = FLOATING; + c = getc(fin); + } + if (c == 'e' || c == 'E') { + appendTokenBuffer(c); + c = getc(fin); + if (c == '-' || c == '+') { + appendTokenBuffer(c); + } else { + ungetc(c, fin); + } + scanInteger(); + type = FLOATING; + } else { + ungetc(c, fin); + } + + appendTokenBuffer(0); + + if (type == FLOATING) { + val->floating = atof(tokenBuffer); + } else { + val->integer = atoi(tokenBuffer); + } + + return (type); +} + +/******************************************************************* + + parseIdentifier + - parse identifers and keywords + + *******************************************************************/ + +static int parseIdentifier(int firstChar) +{ + int c; + int escape; + int i; + + + c = firstChar; + escape = FALSE; + do { + if (c != '\\') { + if (!escape && c == hierarchyChar) { + appendTokenBuffer('.'); + } else { + appendTokenBuffer(c); + } + escape = FALSE; + } else { + escape = TRUE; + } + c = getc(fin); + } + while (c == '_' || + c == '\\' || + (c >= 'a' && c <= 'z') || + (c >= 'A' && c <= 'Z') || + (c >= '0' && c <= '9') || c == hierarchyChar || escape); + + ungetc(c, fin); + + appendTokenBuffer(0); + ASSERT(tokenBuffer != NULL); + for (i = 0; keywordTable[i].string != NULL; i++) { + if (isStringEqual(keywordTable[i].string, tokenBuffer)) { + return (keywordTable[i].token); + } + } + return (IDENTIFIER); +} + + +/******************************************************************* + + sdfconfig_lex + - lexer for config parser + + *******************************************************************/ + +int sdfconfig_lex(YYSTYPE * val) +{ + int c; + + ASSERT(tokenBuffer != NULL); + + resetTokenBuffer(); + + if (fin == NULL) { + free(tokenBuffer); + tokenBuffer = NULL; + return (0); + } + + while (TRUE) { + c = getc(fin); + switch (c) { + case EOF: + sdflexPopFile(); + if (fin == NULL) { + return (EOF_); + } + break; + case ' ': + case '\r': + case '\t': + case '\b': + case '\f': + break; + case '\n': + lineNumber++; + break; + case ')': + case '(': + case '+': + case '-': + case '|': + case '*': + case '/': + case '%': + case '[': + case ']': + case ':': + case ';': + case '{': + case '}': + case '\'': + appendTokenBuffer(c); + appendTokenBuffer(0); + return (c); + case '"': + do { + c = getc(fin); + appendTokenBuffer(c); + } + while (c != '"' && c != '\n' && c != EOF); + + if (c != '"') { + sdfconfig_error("unterminated string constant"); + resetTokenBuffer(); + break; + } + return (QSTRING); + + case '&': + return match(c, c, "&&", ANDAND); + case '<': + return match(c, match(0, LT, "<=", LE), "<<", LEFT_SHIFT); + case '>': + return match(c, match(0, GT, ">=", GE), ">>", RIGHT_SHIFT); + case '~': + return match(c, match(0, match(0, c, + "~&", REDUCTION_NAND), + "~|", REDUCTION_NOR), "~^", XNOR); + case '^': + return match(c, c, "^~", XNOR); + case '=': + c = getc(fin); + if (c != '=') { + ungetc(c, fin); + appendTokenBuffer('='); + appendTokenBuffer(0); + return ('='); + } else { + return match(c, LOGICAL_EQUALITY, "==", CASE_EQUALITY); + } + case '!': + c = getc(fin); + if (c != '=') { + ungetc(c, fin); + appendTokenBuffer('!'); + appendTokenBuffer(0); + return ('!'); + } else { + return match(c, LOGICAL_INEQUALITY, "==", CASE_INEQUALITY); + } + default: + if ((c >= '0' && c <= '9') || c == '.') { + return (parseNumber(c, val)); + } else if (c == '_' || + c == '\\' || + (c >= 'a' && c <= 'z') || (c >= 'A' && c <= 'Z')) { + return (parseIdentifier(c)); + } + sdfconfig_error("illegal character"); + resetTokenBuffer(); + break; + + + } + } +} + + + +/******************************************************************* + + sdfclexInit + - initialize lexer + + *******************************************************************/ + +void sdfclexInit() +{ + fin = NULL; + bufferLength = 40; + tokenBuffer = (char *) xmalloc(bufferLength); + bufferPtr = tokenBuffer; + hierarchyChar = (int) '.'; +} diff --git a/src/sdfclex.h b/src/sdfclex.h new file mode 100644 index 0000000..0967d49 --- /dev/null +++ b/src/sdfclex.h @@ -0,0 +1,48 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/********************************************************************* + * + * sdfclex.h + * definitions for sdfclex.c + * + ********************************************************************* + */ + + +#ifndef SDFCLEX_H +#define SDFCLEX_H + +// public definitions + +void sdfconfig_error(char *message); +FILE *sdfclexOpenFile(char *filename); +void sdfclexInit(void); + + + +// private definitions + +#ifdef SDFCLEX_C +static void sdflexPushFile(void); +static void sdflexPopFile(void); +#endif // SDFLEX_C + + +#endif // SDFCLEX_H diff --git a/src/sdfcpars.cc b/src/sdfcpars.cc new file mode 100644 index 0000000..675e0cf --- /dev/null +++ b/src/sdfcpars.cc @@ -0,0 +1,1737 @@ +/* A Bison parser, made by GNU Bison 2.0. */ + +/* Skeleton parser for Yacc-like parsing with Bison, + Copyright (C) 1984, 1989, 1990, 2000, 2001, 2002, 2003, 2004 Free Software Foundation, Inc. + + This program 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, 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. */ + +/* As a special exception, when this file is copied by Bison into a + Bison output file, you may use that output file without restriction. + This special exception was added by the Free Software Foundation + in version 1.24 of Bison. */ + +/* Written by Richard Stallman by simplifying the original so called + ``semantic'' parser. */ + +/* All symbols defined below should begin with yy or YY, to avoid + infringing on user name space. This should be done even for local + variables, as they might otherwise be expanded by user macros. + There are some unavoidable exceptions within include files to + define necessary library symbols; they are noted "INFRINGES ON + USER NAME SPACE" below. */ + +/* Identify Bison output. */ +#define YYBISON 1 + +/* Skeleton name. */ +#define YYSKELETON_NAME "yacc.c" + +/* Pure parsers. */ +#define YYPURE 1 + +/* Using locations. */ +#define YYLSP_NEEDED 0 + + + +/* Tokens. */ +#ifndef YYTOKENTYPE +# define YYTOKENTYPE + /* Put the tokens into the symbol table, so that GDB and other debuggers + know about them. */ + enum yytokentype { + IF = 258, + ELSE = 259, + OROR = 260, + ANDAND = 261, + ANDANDAND = 262, + XNOR = 263, + CASE_INEQUALITY = 264, + CASE_EQUALITY = 265, + LOGICAL_INEQUALITY = 266, + LOGICAL_EQUALITY = 267, + GE = 268, + GT = 269, + LE = 270, + LT = 271, + RIGHT_SHIFT = 272, + LEFT_SHIFT = 273, + REDUCTION_NOR = 274, + REDUCTION_NAND = 275, + UNARY = 276, + INTEGER = 277, + SCALAR_CONSTANT = 278, + FLOATING = 279, + QSTRING = 280, + IDENTIFIER = 281, + IOPATH = 282, + PORT = 283, + INTERCONNECT = 284, + NETDELAY = 285, + DEVICE = 286, + SETUP = 287, + HOLD = 288, + SETUPHOLD = 289, + RECOVERY = 290, + SKEW = 291, + WIDTH = 292, + PERIOD = 293, + NOCHANGE = 294, + PATHPULSE = 295, + IGNORE = 296, + INTERMOD_PATH = 297, + MIPD = 298, + CELL = 299, + USE = 300, + INTERCONNECT_MIPD = 301, + MINIMUM = 302, + MAXIMUM = 303, + AVERAGE = 304, + MTM = 305, + TOOL_CONTROL = 306, + TYPICAL = 307, + SCALE_FACTORS = 308, + SCALE_TYPE = 309, + FROM_MINIMUM = 310, + FROM_TYPICAL = 311, + FROM_MAXIMUM = 312, + FROM_MTM = 313, + FROM_FILE = 314, + TURNOFF_DELAY = 315, + TURNON_DELAY = 316, + MODULE = 317, + MAP_INNER = 318, + ADD = 319, + OVERRIDE = 320, + EOF_ = 321 + }; +#endif +#define IF 258 +#define ELSE 259 +#define OROR 260 +#define ANDAND 261 +#define ANDANDAND 262 +#define XNOR 263 +#define CASE_INEQUALITY 264 +#define CASE_EQUALITY 265 +#define LOGICAL_INEQUALITY 266 +#define LOGICAL_EQUALITY 267 +#define GE 268 +#define GT 269 +#define LE 270 +#define LT 271 +#define RIGHT_SHIFT 272 +#define LEFT_SHIFT 273 +#define REDUCTION_NOR 274 +#define REDUCTION_NAND 275 +#define UNARY 276 +#define INTEGER 277 +#define SCALAR_CONSTANT 278 +#define FLOATING 279 +#define QSTRING 280 +#define IDENTIFIER 281 +#define IOPATH 282 +#define PORT 283 +#define INTERCONNECT 284 +#define NETDELAY 285 +#define DEVICE 286 +#define SETUP 287 +#define HOLD 288 +#define SETUPHOLD 289 +#define RECOVERY 290 +#define SKEW 291 +#define WIDTH 292 +#define PERIOD 293 +#define NOCHANGE 294 +#define PATHPULSE 295 +#define IGNORE 296 +#define INTERMOD_PATH 297 +#define MIPD 298 +#define CELL 299 +#define USE 300 +#define INTERCONNECT_MIPD 301 +#define MINIMUM 302 +#define MAXIMUM 303 +#define AVERAGE 304 +#define MTM 305 +#define TOOL_CONTROL 306 +#define TYPICAL 307 +#define SCALE_FACTORS 308 +#define SCALE_TYPE 309 +#define FROM_MINIMUM 310 +#define FROM_TYPICAL 311 +#define FROM_MAXIMUM 312 +#define FROM_MTM 313 +#define FROM_FILE 314 +#define TURNOFF_DELAY 315 +#define TURNON_DELAY 316 +#define MODULE 317 +#define MAP_INNER 318 +#define ADD 319 +#define OVERRIDE 320 +#define EOF_ 321 + + + + +/* Copy the first part of user declarations. */ +#line 22 "sdfcpars.yy" + +#define YYERROR_VERBOSE + +#include +#include +#include +#include +#include "glue.h" +#include "acc_user.h" +#include "sdflex.h" +#include "sdf.h" +#include "sdfclex.h" + +#ifdef __cplusplus + union YYSTYPE; + int sdfconfig_lex( YYSTYPE* ); +#endif // __cplusplus + +/* Used in BISON.SIM */ +extern char *token_buffer; + + +#define yymaxdepth sdfconfig_maxdepth +#define yyparse sdfconfig_parse +#define yylex sdfconfig_lex +#define yyerror sdfconfig_error +#define yylval sdfconfig_lval +#define yychar sdfconfig_char +#define yydebug sdfconfig_debug +#define yypact sdfconfig_pact +#define yyr1 sdfconfig_r1 +#define yyr2 sdfconfig_r2 +#define yydef sdfconfig_def +#define yychk sdfconfig_chk +#define yypgo sdfconfig_pgo +#define yyact sdfconfig_act +#define yyexca sdfconfig_exca +#define yyerrflag sdfconfig_errflag +#define yynerrs sdfconfig_nerrs +#define yyps sdfconfig_ps +#define yypv sdfconfig_pv +#define yys sdfconfig_s +#define yy_yys sdfconfig_yys +#define yystate sdfconfig_state +#define yytmp sdfconfig_tmp +#define yyv sdfconfig_v +#define yy_yyv sdfconfig_yyv +#define yyval sdfconfig_val +#define yylloc sdfconfig_lloc +#define yyreds sdfconfig_reds +#define yytoks sdfconfig_toks +#define yylhs sdfconfig_yylhs +#define yylen sdfconfig_yylen +#define yydefred sdfconfig_yydefred +#define yydgoto sdfconfig_yydgoto +#define yysindex sdfconfig_yysindex +#define yyrindex sdfconfig_yyrindex +#define yygindex sdfconfig_yygindex +#define yytable sdfconfig_yytable +#define yycheck sdfconfig_yycheck +#define yyname sdfconfig_yyname +#define yyrule sdfconfig_yyrule + + + +void initSDFCParse() +{ + sdfclexInit(); +} + + + +/* Enabling traces. */ +#ifndef YYDEBUG +# define YYDEBUG 0 +#endif + +/* Enabling verbose error messages. */ +#ifdef YYERROR_VERBOSE +# undef YYERROR_VERBOSE +# define YYERROR_VERBOSE 1 +#else +# define YYERROR_VERBOSE 0 +#endif + +#if ! defined (YYSTYPE) && ! defined (YYSTYPE_IS_DECLARED) +#line 96 "sdfcpars.yy" +typedef union YYSTYPE { + int integer; + double floating; + char *ptr; + eScaleType_t etype; + eDelayType_t dtype; + eSDFConstruct_t stype; + eVerilogConstruct_t vtype; +} YYSTYPE; +/* Line 190 of yacc.c. */ +#line 290 "sdfcpars.cc" +# define yystype YYSTYPE /* obsolescent; will be withdrawn */ +# define YYSTYPE_IS_DECLARED 1 +# define YYSTYPE_IS_TRIVIAL 1 +#endif + + + +/* Copy the second part of user declarations. */ + + +/* Line 213 of yacc.c. */ +#line 302 "sdfcpars.cc" + +#if ! defined (yyoverflow) || YYERROR_VERBOSE + +# ifndef YYFREE +# define YYFREE free +# endif +# ifndef YYMALLOC +# define YYMALLOC malloc +# endif + +/* The parser invokes alloca or malloc; define the necessary symbols. */ + +# ifdef YYSTACK_USE_ALLOCA +# if YYSTACK_USE_ALLOCA +# ifdef __GNUC__ +# define YYSTACK_ALLOC __builtin_alloca +# else +# define YYSTACK_ALLOC alloca +# endif +# endif +# endif + +# ifdef YYSTACK_ALLOC + /* Pacify GCC's `empty if-body' warning. */ +# define YYSTACK_FREE(Ptr) do { /* empty */; } while (0) +# else +# if defined (__STDC__) || defined (__cplusplus) +# include /* INFRINGES ON USER NAME SPACE */ +# define YYSIZE_T size_t +# endif +# define YYSTACK_ALLOC YYMALLOC +# define YYSTACK_FREE YYFREE +# endif +#endif /* ! defined (yyoverflow) || YYERROR_VERBOSE */ + + +#if (! defined (yyoverflow) \ + && (! defined (__cplusplus) \ + || (defined (YYSTYPE_IS_TRIVIAL) && YYSTYPE_IS_TRIVIAL))) + +/* A type that is properly aligned for any stack member. */ +union yyalloc +{ + short int yyss; + YYSTYPE yyvs; + }; + +/* The size of the maximum gap between one aligned stack and the next. */ +# define YYSTACK_GAP_MAXIMUM (sizeof (union yyalloc) - 1) + +/* The size of an array large to enough to hold all stacks, each with + N elements. */ +# define YYSTACK_BYTES(N) \ + ((N) * (sizeof (short int) + sizeof (YYSTYPE)) \ + + YYSTACK_GAP_MAXIMUM) + +/* Copy COUNT objects from FROM to TO. The source and destination do + not overlap. */ +# ifndef YYCOPY +# if defined (__GNUC__) && 1 < __GNUC__ +# define YYCOPY(To, From, Count) \ + __builtin_memcpy (To, From, (Count) * sizeof (*(From))) +# else +# define YYCOPY(To, From, Count) \ + do \ + { \ + register YYSIZE_T yyi; \ + for (yyi = 0; yyi < (Count); yyi++) \ + (To)[yyi] = (From)[yyi]; \ + } \ + while (0) +# endif +# endif + +/* Relocate STACK from its old location to the new one. The + local variables YYSIZE and YYSTACKSIZE give the old and new number of + elements in the stack, and YYPTR gives the new location of the + stack. Advance YYPTR to a properly aligned location for the next + stack. */ +# define YYSTACK_RELOCATE(Stack) \ + do \ + { \ + YYSIZE_T yynewbytes; \ + YYCOPY (&yyptr->Stack, Stack, yysize); \ + Stack = &yyptr->Stack; \ + yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \ + yyptr += yynewbytes / sizeof (*yyptr); \ + } \ + while (0) + +#endif + +#if defined (__STDC__) || defined (__cplusplus) + typedef signed char yysigned_char; +#else + typedef short int yysigned_char; +#endif + +/* YYFINAL -- State number of the termination state. */ +#define YYFINAL 31 +/* YYLAST -- Last index in YYTABLE. */ +#define YYLAST 88 + +/* YYNTOKENS -- Number of terminals. */ +#define YYNTOKENS 83 +/* YYNNTS -- Number of nonterminals. */ +#define YYNNTS 12 +/* YYNRULES -- Number of rules. */ +#define YYNRULES 46 +/* YYNRULES -- Number of states. */ +#define YYNSTATES 73 + +/* YYTRANSLATE(YYLEX) -- Bison symbol number corresponding to YYLEX. */ +#define YYUNDEFTOK 2 +#define YYMAXUTOK 321 + +#define YYTRANSLATE(YYX) \ + ((unsigned int) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK) + +/* YYTRANSLATE[YYLEX] -- Bison symbol number corresponding to YYLEX. */ +static const unsigned char yytranslate[] = +{ + 0, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 31, 2, 2, 2, 28, 13, 2, + 29, 2, 26, 24, 2, 25, 2, 27, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 6, 82, + 2, 81, 2, 5, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 30, 2, 2, 11, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 10, 2, 32, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 1, 2, 3, 4, + 7, 8, 9, 12, 14, 15, 16, 17, 18, 19, + 20, 21, 22, 23, 33, 34, 35, 36, 37, 38, + 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, + 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, + 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, + 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, + 79, 80 +}; + +#if YYDEBUG +/* YYPRHS[YYN] -- Index of the first RHS symbol of rule number YYN in + YYRHS. */ +static const unsigned char yyprhs[] = +{ + 0, 0, 3, 6, 8, 10, 13, 15, 20, 25, + 30, 35, 44, 49, 54, 59, 61, 63, 65, 67, + 69, 71, 73, 75, 77, 79, 81, 83, 85, 87, + 89, 91, 93, 95, 97, 99, 101, 103, 105, 107, + 109, 111, 113, 115, 117, 119, 121 +}; + +/* YYRHS -- A `-1'-separated list of the rules' RHS. */ +static const yysigned_char yyrhs[] = +{ + 84, 0, -1, 85, 80, -1, 80, -1, 86, -1, + 86, 85, -1, 87, -1, 90, 81, 91, 94, -1, + 60, 81, 92, 94, -1, 64, 81, 93, 94, -1, + 64, 81, 65, 94, -1, 67, 81, 89, 6, 89, + 6, 89, 94, -1, 68, 81, 88, 94, -1, 74, + 81, 92, 94, -1, 74, 81, 73, 94, -1, 69, + -1, 70, -1, 71, -1, 72, -1, 38, -1, 36, + -1, 41, -1, 42, -1, 43, -1, 44, -1, 45, + -1, 46, -1, 47, -1, 48, -1, 49, -1, 50, + -1, 51, -1, 52, -1, 53, -1, 54, -1, 55, + -1, 56, -1, 57, -1, 58, -1, 59, -1, 61, + -1, 62, -1, 63, -1, 61, -1, 66, -1, 62, + -1, 82, -1 +}; + +/* YYRLINE[YYN] -- source line where rule number YYN was defined. */ +static const unsigned short int yyrline[] = +{ + 0, 188, 188, 189, 193, 194, 198, 202, 208, 212, + 216, 220, 224, 228, 232, 239, 241, 243, 245, 250, + 251, 258, 260, 262, 264, 266, 268, 270, 272, 274, + 276, 278, 280, 282, 284, 289, 291, 293, 295, 297, + 302, 304, 306, 311, 313, 315, 325 +}; +#endif + +#if YYDEBUG || YYERROR_VERBOSE +/* YYTNME[SYMBOL-NUM] -- String name of the symbol SYMBOL-NUM. + First, the terminals, then, starting at YYNTOKENS, nonterminals. */ +static const char *const yytname[] = +{ + "$end", "error", "$undefined", "IF", "ELSE", "'?'", "':'", "OROR", + "ANDAND", "ANDANDAND", "'|'", "'^'", "XNOR", "'&'", "CASE_INEQUALITY", + "CASE_EQUALITY", "LOGICAL_INEQUALITY", "LOGICAL_EQUALITY", "GE", "GT", + "LE", "LT", "RIGHT_SHIFT", "LEFT_SHIFT", "'+'", "'-'", "'*'", "'/'", + "'%'", "'('", "'['", "'!'", "'~'", "REDUCTION_NOR", "REDUCTION_NAND", + "UNARY", "INTEGER", "SCALAR_CONSTANT", "FLOATING", "QSTRING", + "IDENTIFIER", "IOPATH", "PORT", "INTERCONNECT", "NETDELAY", "DEVICE", + "SETUP", "HOLD", "SETUPHOLD", "RECOVERY", "SKEW", "WIDTH", "PERIOD", + "NOCHANGE", "PATHPULSE", "IGNORE", "INTERMOD_PATH", "MIPD", "CELL", + "USE", "INTERCONNECT_MIPD", "MINIMUM", "MAXIMUM", "AVERAGE", "MTM", + "TOOL_CONTROL", "TYPICAL", "SCALE_FACTORS", "SCALE_TYPE", "FROM_MINIMUM", + "FROM_TYPICAL", "FROM_MAXIMUM", "FROM_MTM", "FROM_FILE", "TURNOFF_DELAY", + "TURNON_DELAY", "MODULE", "MAP_INNER", "ADD", "OVERRIDE", "EOF_", "'='", + "';'", "$accept", "config", "statements", "statement", "map", "stype", + "real", "sdf_construct", "veritool_map", "min_max_avg", "min_typ_max", + "sc", 0 +}; +#endif + +# ifdef YYPRINT +/* YYTOKNUM[YYLEX-NUM] -- Internal token number corresponding to + token YYLEX-NUM. */ +static const unsigned short int yytoknum[] = +{ + 0, 256, 257, 258, 259, 63, 58, 260, 261, 262, + 124, 94, 263, 38, 264, 265, 266, 267, 268, 269, + 270, 271, 272, 273, 43, 45, 42, 47, 37, 40, + 91, 33, 126, 274, 275, 276, 277, 278, 279, 280, + 281, 282, 283, 284, 285, 286, 287, 288, 289, 290, + 291, 292, 293, 294, 295, 296, 297, 298, 299, 300, + 301, 302, 303, 304, 305, 306, 307, 308, 309, 310, + 311, 312, 313, 314, 315, 316, 317, 318, 319, 320, + 321, 61, 59 +}; +# endif + +/* YYR1[YYN] -- Symbol number of symbol that rule YYN derives. */ +static const unsigned char yyr1[] = +{ + 0, 83, 84, 84, 85, 85, 86, 87, 87, 87, + 87, 87, 87, 87, 87, 88, 88, 88, 88, 89, + 89, 90, 90, 90, 90, 90, 90, 90, 90, 90, + 90, 90, 90, 90, 90, 91, 91, 91, 91, 91, + 92, 92, 92, 93, 93, 93, 94 +}; + +/* YYR2[YYN] -- Number of symbols composing right hand side of rule YYN. */ +static const unsigned char yyr2[] = +{ + 0, 2, 2, 1, 1, 2, 1, 4, 4, 4, + 4, 8, 4, 4, 4, 1, 1, 1, 1, 1, + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, + 1, 1, 1, 1, 1, 1, 1 +}; + +/* YYDEFACT[STATE-NAME] -- Default rule to reduce with in state + STATE-NUM when YYTABLE doesn't specify something else to do. Zero + means the default is an error. */ +static const unsigned char yydefact[] = +{ + 0, 21, 22, 23, 24, 25, 26, 27, 28, 29, + 30, 31, 32, 33, 34, 0, 0, 0, 0, 0, + 3, 0, 0, 4, 6, 0, 0, 0, 0, 0, + 0, 1, 2, 5, 0, 40, 41, 42, 0, 43, + 45, 0, 44, 0, 20, 19, 0, 15, 16, 17, + 18, 0, 0, 0, 35, 36, 37, 38, 39, 0, + 46, 8, 10, 9, 0, 12, 14, 13, 7, 0, + 0, 0, 11 +}; + +/* YYDEFGOTO[NTERM-NUM]. */ +static const yysigned_char yydefgoto[] = +{ + -1, 21, 22, 23, 24, 51, 46, 25, 59, 38, + 43, 61 +}; + +/* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing + STATE-NUM. */ +#define YYPACT_NINF -67 +static const yysigned_char yypact[] = +{ + -41, -67, -67, -67, -67, -67, -67, -67, -67, -67, + -67, -67, -67, -67, -67, -66, -60, -56, -52, -49, + -67, 61, -18, -1, -67, -17, -25, -31, -14, -15, + -45, -67, -67, -67, 22, -67, -67, -67, -11, -67, + -67, -11, -67, -11, -67, -67, 59, -67, -67, -67, + -67, -11, -11, -11, -67, -67, -67, -67, -67, -11, + -67, -67, -67, -67, -14, -67, -67, -67, -67, 66, + -14, -11, -67 +}; + +/* YYPGOTO[NTERM-NUM]. */ +static const yysigned_char yypgoto[] = +{ + -67, -67, 51, -67, -67, -67, -50, -67, -67, 45, + -67, 17 +}; + +/* YYTABLE[YYPACT[STATE-NUM]]. What to do in state STATE-NUM. If + positive, shift that token. If negative, reduce the rule which + number is the opposite. If zero, do what YYDEFACT says. + If YYTABLE_NINF, syntax error. */ +#define YYTABLE_NINF -1 +static const unsigned char yytable[] = +{ + 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, + 11, 12, 13, 14, 69, 26, 35, 36, 37, 15, + 71, 27, 44, 16, 45, 28, 17, 18, 52, 29, + 39, 40, 30, 19, 41, 42, 35, 36, 37, 20, + 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, + 11, 12, 13, 14, 47, 48, 49, 50, 62, 15, + 63, 31, 32, 16, 34, 64, 17, 18, 65, 66, + 67, 60, 70, 19, 33, 53, 68, 54, 55, 56, + 57, 58, 0, 0, 0, 0, 0, 0, 72 +}; + +static const yysigned_char yycheck[] = +{ + 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, + 51, 52, 53, 54, 64, 81, 61, 62, 63, 60, + 70, 81, 36, 64, 38, 81, 67, 68, 73, 81, + 61, 62, 81, 74, 65, 66, 61, 62, 63, 80, + 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, + 51, 52, 53, 54, 69, 70, 71, 72, 41, 60, + 43, 0, 80, 64, 81, 6, 67, 68, 51, 52, + 53, 82, 6, 74, 23, 30, 59, 55, 56, 57, + 58, 59, -1, -1, -1, -1, -1, -1, 71 +}; + +/* YYSTOS[STATE-NUM] -- The (internal number of the) accessing + symbol of state STATE-NUM. */ +static const unsigned char yystos[] = +{ + 0, 41, 42, 43, 44, 45, 46, 47, 48, 49, + 50, 51, 52, 53, 54, 60, 64, 67, 68, 74, + 80, 84, 85, 86, 87, 90, 81, 81, 81, 81, + 81, 0, 80, 85, 81, 61, 62, 63, 92, 61, + 62, 65, 66, 93, 36, 38, 89, 69, 70, 71, + 72, 88, 73, 92, 55, 56, 57, 58, 59, 91, + 82, 94, 94, 94, 6, 94, 94, 94, 94, 89, + 6, 89, 94 +}; + +#if ! defined (YYSIZE_T) && defined (__SIZE_TYPE__) +# define YYSIZE_T __SIZE_TYPE__ +#endif +#if ! defined (YYSIZE_T) && defined (size_t) +# define YYSIZE_T size_t +#endif +#if ! defined (YYSIZE_T) +# if defined (__STDC__) || defined (__cplusplus) +# include /* INFRINGES ON USER NAME SPACE */ +# define YYSIZE_T size_t +# endif +#endif +#if ! defined (YYSIZE_T) +# define YYSIZE_T unsigned int +#endif + +#define yyerrok (yyerrstatus = 0) +#define yyclearin (yychar = YYEMPTY) +#define YYEMPTY (-2) +#define YYEOF 0 + +#define YYACCEPT goto yyacceptlab +#define YYABORT goto yyabortlab +#define YYERROR goto yyerrorlab + + +/* Like YYERROR except do call yyerror. This remains here temporarily + to ease the transition to the new meaning of YYERROR, for GCC. + Once GCC version 2 has supplanted version 1, this can go. */ + +#define YYFAIL goto yyerrlab + +#define YYRECOVERING() (!!yyerrstatus) + +#define YYBACKUP(Token, Value) \ +do \ + if (yychar == YYEMPTY && yylen == 1) \ + { \ + yychar = (Token); \ + yylval = (Value); \ + yytoken = YYTRANSLATE (yychar); \ + YYPOPSTACK; \ + goto yybackup; \ + } \ + else \ + { \ + yyerror ("syntax error: cannot back up");\ + YYERROR; \ + } \ +while (0) + + +#define YYTERROR 1 +#define YYERRCODE 256 + + +/* YYLLOC_DEFAULT -- Set CURRENT to span from RHS[1] to RHS[N]. + If N is 0, then set CURRENT to the empty location which ends + the previous symbol: RHS[0] (always defined). */ + +#define YYRHSLOC(Rhs, K) ((Rhs)[K]) +#ifndef YYLLOC_DEFAULT +# define YYLLOC_DEFAULT(Current, Rhs, N) \ + do \ + if (N) \ + { \ + (Current).first_line = YYRHSLOC (Rhs, 1).first_line; \ + (Current).first_column = YYRHSLOC (Rhs, 1).first_column; \ + (Current).last_line = YYRHSLOC (Rhs, N).last_line; \ + (Current).last_column = YYRHSLOC (Rhs, N).last_column; \ + } \ + else \ + { \ + (Current).first_line = (Current).last_line = \ + YYRHSLOC (Rhs, 0).last_line; \ + (Current).first_column = (Current).last_column = \ + YYRHSLOC (Rhs, 0).last_column; \ + } \ + while (0) +#endif + + +/* YY_LOCATION_PRINT -- Print the location on the stream. + This macro was not mandated originally: define only if we know + we won't break user code: when these are the locations we know. */ + +#ifndef YY_LOCATION_PRINT +# if YYLTYPE_IS_TRIVIAL +# define YY_LOCATION_PRINT(File, Loc) \ + fprintf (File, "%d.%d-%d.%d", \ + (Loc).first_line, (Loc).first_column, \ + (Loc).last_line, (Loc).last_column) +# else +# define YY_LOCATION_PRINT(File, Loc) ((void) 0) +# endif +#endif + + +/* YYLEX -- calling `yylex' with the right arguments. */ + +#ifdef YYLEX_PARAM +# define YYLEX yylex (&yylval, YYLEX_PARAM) +#else +# define YYLEX yylex (&yylval) +#endif + +/* Enable debugging if requested. */ +#if YYDEBUG + +# ifndef YYFPRINTF +# include /* INFRINGES ON USER NAME SPACE */ +# define YYFPRINTF fprintf +# endif + +# define YYDPRINTF(Args) \ +do { \ + if (yydebug) \ + YYFPRINTF Args; \ +} while (0) + +# define YY_SYMBOL_PRINT(Title, Type, Value, Location) \ +do { \ + if (yydebug) \ + { \ + YYFPRINTF (stderr, "%s ", Title); \ + yysymprint (stderr, \ + Type, Value); \ + YYFPRINTF (stderr, "\n"); \ + } \ +} while (0) + +/*------------------------------------------------------------------. +| yy_stack_print -- Print the state stack from its BOTTOM up to its | +| TOP (included). | +`------------------------------------------------------------------*/ + +#if defined (__STDC__) || defined (__cplusplus) +static void +yy_stack_print (short int *bottom, short int *top) +#else +static void +yy_stack_print (bottom, top) + short int *bottom; + short int *top; +#endif +{ + YYFPRINTF (stderr, "Stack now"); + for (/* Nothing. */; bottom <= top; ++bottom) + YYFPRINTF (stderr, " %d", *bottom); + YYFPRINTF (stderr, "\n"); +} + +# define YY_STACK_PRINT(Bottom, Top) \ +do { \ + if (yydebug) \ + yy_stack_print ((Bottom), (Top)); \ +} while (0) + + +/*------------------------------------------------. +| Report that the YYRULE is going to be reduced. | +`------------------------------------------------*/ + +#if defined (__STDC__) || defined (__cplusplus) +static void +yy_reduce_print (int yyrule) +#else +static void +yy_reduce_print (yyrule) + int yyrule; +#endif +{ + int yyi; + unsigned int yylno = yyrline[yyrule]; + YYFPRINTF (stderr, "Reducing stack by rule %d (line %u), ", + yyrule - 1, yylno); + /* Print the symbols being reduced, and their result. */ + for (yyi = yyprhs[yyrule]; 0 <= yyrhs[yyi]; yyi++) + YYFPRINTF (stderr, "%s ", yytname [yyrhs[yyi]]); + YYFPRINTF (stderr, "-> %s\n", yytname [yyr1[yyrule]]); +} + +# define YY_REDUCE_PRINT(Rule) \ +do { \ + if (yydebug) \ + yy_reduce_print (Rule); \ +} while (0) + +/* Nonzero means print parse trace. It is left uninitialized so that + multiple parsers can coexist. */ +int yydebug; +#else /* !YYDEBUG */ +# define YYDPRINTF(Args) +# define YY_SYMBOL_PRINT(Title, Type, Value, Location) +# define YY_STACK_PRINT(Bottom, Top) +# define YY_REDUCE_PRINT(Rule) +#endif /* !YYDEBUG */ + + +/* YYINITDEPTH -- initial size of the parser's stacks. */ +#ifndef YYINITDEPTH +# define YYINITDEPTH 200 +#endif + +/* YYMAXDEPTH -- maximum size the stacks can grow to (effective only + if the built-in stack extension method is used). + + Do not make this value too large; the results are undefined if + SIZE_MAX < YYSTACK_BYTES (YYMAXDEPTH) + evaluated with infinite-precision integer arithmetic. */ + +#ifndef YYMAXDEPTH +# define YYMAXDEPTH 10000 +#endif + + + +#if YYERROR_VERBOSE + +# ifndef yystrlen +# if defined (__GLIBC__) && defined (_STRING_H) +# define yystrlen strlen +# else +/* Return the length of YYSTR. */ +static YYSIZE_T +# if defined (__STDC__) || defined (__cplusplus) +yystrlen (const char *yystr) +# else +yystrlen (yystr) + const char *yystr; +# endif +{ + register const char *yys = yystr; + + while (*yys++ != '\0') + continue; + + return yys - yystr - 1; +} +# endif +# endif + +# ifndef yystpcpy +# if defined (__GLIBC__) && defined (_STRING_H) && defined (_GNU_SOURCE) +# define yystpcpy stpcpy +# else +/* Copy YYSRC to YYDEST, returning the address of the terminating '\0' in + YYDEST. */ +static char * +# if defined (__STDC__) || defined (__cplusplus) +yystpcpy (char *yydest, const char *yysrc) +# else +yystpcpy (yydest, yysrc) + char *yydest; + const char *yysrc; +# endif +{ + register char *yyd = yydest; + register const char *yys = yysrc; + + while ((*yyd++ = *yys++) != '\0') + continue; + + return yyd - 1; +} +# endif +# endif + +#endif /* !YYERROR_VERBOSE */ + + + +#if YYDEBUG +/*--------------------------------. +| Print this symbol on YYOUTPUT. | +`--------------------------------*/ + +#if defined (__STDC__) || defined (__cplusplus) +static void +yysymprint (FILE *yyoutput, int yytype, YYSTYPE *yyvaluep) +#else +static void +yysymprint (yyoutput, yytype, yyvaluep) + FILE *yyoutput; + int yytype; + YYSTYPE *yyvaluep; +#endif +{ + /* Pacify ``unused variable'' warnings. */ + (void) yyvaluep; + + if (yytype < YYNTOKENS) + YYFPRINTF (yyoutput, "token %s (", yytname[yytype]); + else + YYFPRINTF (yyoutput, "nterm %s (", yytname[yytype]); + + +# ifdef YYPRINT + if (yytype < YYNTOKENS) + YYPRINT (yyoutput, yytoknum[yytype], *yyvaluep); +# endif + switch (yytype) + { + default: + break; + } + YYFPRINTF (yyoutput, ")"); +} + +#endif /* ! YYDEBUG */ +/*-----------------------------------------------. +| Release the memory associated to this symbol. | +`-----------------------------------------------*/ + +#if defined (__STDC__) || defined (__cplusplus) +static void +yydestruct (const char *yymsg, int yytype, YYSTYPE *yyvaluep) +#else +static void +yydestruct (yymsg, yytype, yyvaluep) + const char *yymsg; + int yytype; + YYSTYPE *yyvaluep; +#endif +{ + /* Pacify ``unused variable'' warnings. */ + (void) yyvaluep; + + if (!yymsg) + yymsg = "Deleting"; + YY_SYMBOL_PRINT (yymsg, yytype, yyvaluep, yylocationp); + + switch (yytype) + { + + default: + break; + } +} + + +/* Prevent warnings from -Wmissing-prototypes. */ + +#ifdef YYPARSE_PARAM +# if defined (__STDC__) || defined (__cplusplus) +int yyparse (void *YYPARSE_PARAM); +# else +int yyparse (); +# endif +#else /* ! YYPARSE_PARAM */ +#if defined (__STDC__) || defined (__cplusplus) +int yyparse (void); +#else +int yyparse (); +#endif +#endif /* ! YYPARSE_PARAM */ + + + + + + +/*----------. +| yyparse. | +`----------*/ + +#ifdef YYPARSE_PARAM +# if defined (__STDC__) || defined (__cplusplus) +int yyparse (void *YYPARSE_PARAM) +# else +int yyparse (YYPARSE_PARAM) + void *YYPARSE_PARAM; +# endif +#else /* ! YYPARSE_PARAM */ +#if defined (__STDC__) || defined (__cplusplus) +int +yyparse (void) +#else +int +yyparse () + +#endif +#endif +{ + /* The look-ahead symbol. */ +int yychar; + +/* The semantic value of the look-ahead symbol. */ +YYSTYPE yylval; + +/* Number of syntax errors so far. */ +int yynerrs; + + register int yystate; + register int yyn; + int yyresult; + /* Number of tokens to shift before error messages enabled. */ + int yyerrstatus; + /* Look-ahead token as an internal (translated) token number. */ + int yytoken = 0; + + /* Three stacks and their tools: + `yyss': related to states, + `yyvs': related to semantic values, + `yyls': related to locations. + + Refer to the stacks thru separate pointers, to allow yyoverflow + to reallocate them elsewhere. */ + + /* The state stack. */ + short int yyssa[YYINITDEPTH]; + short int *yyss = yyssa; + register short int *yyssp; + + /* The semantic value stack. */ + YYSTYPE yyvsa[YYINITDEPTH]; + YYSTYPE *yyvs = yyvsa; + register YYSTYPE *yyvsp; + + + +#define YYPOPSTACK (yyvsp--, yyssp--) + + YYSIZE_T yystacksize = YYINITDEPTH; + + /* The variables used to return semantic value and location from the + action routines. */ + YYSTYPE yyval; + + + /* When reducing, the number of symbols on the RHS of the reduced + rule. */ + int yylen; + + YYDPRINTF ((stderr, "Starting parse\n")); + + yystate = 0; + yyerrstatus = 0; + yynerrs = 0; + yychar = YYEMPTY; /* Cause a token to be read. */ + + /* Initialize stack pointers. + Waste one element of value and location stack + so that they stay on the same level as the state stack. + The wasted elements are never initialized. */ + + yyssp = yyss; + yyvsp = yyvs; + + + yyvsp[0] = yylval; + + goto yysetstate; + +/*------------------------------------------------------------. +| yynewstate -- Push a new state, which is found in yystate. | +`------------------------------------------------------------*/ + yynewstate: + /* In all cases, when you get here, the value and location stacks + have just been pushed. so pushing a state here evens the stacks. + */ + yyssp++; + + yysetstate: + *yyssp = yystate; + + if (yyss + yystacksize - 1 <= yyssp) + { + /* Get the current used size of the three stacks, in elements. */ + YYSIZE_T yysize = yyssp - yyss + 1; + +#ifdef yyoverflow + { + /* Give user a chance to reallocate the stack. Use copies of + these so that the &'s don't force the real ones into + memory. */ + YYSTYPE *yyvs1 = yyvs; + short int *yyss1 = yyss; + + + /* Each stack pointer address is followed by the size of the + data in use in that stack, in bytes. This used to be a + conditional around just the two extra args, but that might + be undefined if yyoverflow is a macro. */ + yyoverflow ("parser stack overflow", + &yyss1, yysize * sizeof (*yyssp), + &yyvs1, yysize * sizeof (*yyvsp), + + &yystacksize); + + yyss = yyss1; + yyvs = yyvs1; + } +#else /* no yyoverflow */ +# ifndef YYSTACK_RELOCATE + goto yyoverflowlab; +# else + /* Extend the stack our own way. */ + if (YYMAXDEPTH <= yystacksize) + goto yyoverflowlab; + yystacksize *= 2; + if (YYMAXDEPTH < yystacksize) + yystacksize = YYMAXDEPTH; + + { + short int *yyss1 = yyss; + union yyalloc *yyptr = + (union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize)); + if (! yyptr) + goto yyoverflowlab; + YYSTACK_RELOCATE (yyss); + YYSTACK_RELOCATE (yyvs); + +# undef YYSTACK_RELOCATE + if (yyss1 != yyssa) + YYSTACK_FREE (yyss1); + } +# endif +#endif /* no yyoverflow */ + + yyssp = yyss + yysize - 1; + yyvsp = yyvs + yysize - 1; + + + YYDPRINTF ((stderr, "Stack size increased to %lu\n", + (unsigned long int) yystacksize)); + + if (yyss + yystacksize - 1 <= yyssp) + YYABORT; + } + + YYDPRINTF ((stderr, "Entering state %d\n", yystate)); + + goto yybackup; + +/*-----------. +| yybackup. | +`-----------*/ +yybackup: + +/* Do appropriate processing given the current state. */ +/* Read a look-ahead token if we need one and don't already have one. */ +/* yyresume: */ + + /* First try to decide what to do without reference to look-ahead token. */ + + yyn = yypact[yystate]; + if (yyn == YYPACT_NINF) + goto yydefault; + + /* Not known => get a look-ahead token if don't already have one. */ + + /* YYCHAR is either YYEMPTY or YYEOF or a valid look-ahead symbol. */ + if (yychar == YYEMPTY) + { + YYDPRINTF ((stderr, "Reading a token: ")); + yychar = YYLEX; + } + + if (yychar <= YYEOF) + { + yychar = yytoken = YYEOF; + YYDPRINTF ((stderr, "Now at end of input.\n")); + } + else + { + yytoken = YYTRANSLATE (yychar); + YY_SYMBOL_PRINT ("Next token is", yytoken, &yylval, &yylloc); + } + + /* If the proper action on seeing token YYTOKEN is to reduce or to + detect an error, take that action. */ + yyn += yytoken; + if (yyn < 0 || YYLAST < yyn || yycheck[yyn] != yytoken) + goto yydefault; + yyn = yytable[yyn]; + if (yyn <= 0) + { + if (yyn == 0 || yyn == YYTABLE_NINF) + goto yyerrlab; + yyn = -yyn; + goto yyreduce; + } + + if (yyn == YYFINAL) + YYACCEPT; + + /* Shift the look-ahead token. */ + YY_SYMBOL_PRINT ("Shifting", yytoken, &yylval, &yylloc); + + /* Discard the token being shifted unless it is eof. */ + if (yychar != YYEOF) + yychar = YYEMPTY; + + *++yyvsp = yylval; + + + /* Count tokens shifted since error; after three, turn off error + status. */ + if (yyerrstatus) + yyerrstatus--; + + yystate = yyn; + goto yynewstate; + + +/*-----------------------------------------------------------. +| yydefault -- do the default action for the current state. | +`-----------------------------------------------------------*/ +yydefault: + yyn = yydefact[yystate]; + if (yyn == 0) + goto yyerrlab; + goto yyreduce; + + +/*-----------------------------. +| yyreduce -- Do a reduction. | +`-----------------------------*/ +yyreduce: + /* yyn is the number of a rule to reduce with. */ + yylen = yyr2[yyn]; + + /* If YYLEN is nonzero, implement the default value of the action: + `$$ = $1'. + + Otherwise, the following line sets YYVAL to garbage. + This behavior is undocumented and Bison + users should not rely upon it. Assigning to YYVAL + unconditionally makes the parser a bit smaller, and it avoids a + GCC warning that YYVAL may be used uninitialized. */ + yyval = yyvsp[1-yylen]; + + + YY_REDUCE_PRINT (yyn); + switch (yyn) + { + case 7: +#line 203 "sdfcpars.yy" + { + if( ! setMap( (yyvsp[-3].stype), (yyvsp[-1].vtype) ) ) { + sdfconfig_error( "illegal construct mapping" ); + } + } + break; + + case 8: +#line 209 "sdfcpars.yy" + { + setInterconnectMipd( (yyvsp[-1].dtype) ); + } + break; + + case 9: +#line 213 "sdfcpars.yy" + { + setMTMSpec( (yyvsp[-1].dtype) ); + } + break; + + case 10: +#line 217 "sdfcpars.yy" + { + setMTMSpec( eTOOL_CONTROL ); + } + break; + + case 11: +#line 221 "sdfcpars.yy" + { + setScaleFactors( (yyvsp[-5].floating), (yyvsp[-3].floating), (yyvsp[-1].floating) ); + } + break; + + case 12: +#line 225 "sdfcpars.yy" + { + setScaleType( (yyvsp[-1].etype) ); + } + break; + + case 13: +#line 229 "sdfcpars.yy" + { + setTurnOffDelay( (yyvsp[-1].dtype) ); + } + break; + + case 14: +#line 233 "sdfcpars.yy" + { + setTurnOffDelay( eFROM_FILE ); + } + break; + + case 15: +#line 240 "sdfcpars.yy" + { (yyval.etype) = eFROM_MINIMUM; } + break; + + case 16: +#line 242 "sdfcpars.yy" + { (yyval.etype) = eFROM_TYPICAL; } + break; + + case 17: +#line 244 "sdfcpars.yy" + { (yyval.etype) = eFROM_MAXIMUM; } + break; + + case 18: +#line 246 "sdfcpars.yy" + { (yyval.etype) = eFROM_MTM; } + break; + + case 20: +#line 252 "sdfcpars.yy" + { + (yyval.floating) = (double) (yyvsp[0].integer); + } + break; + + case 21: +#line 259 "sdfcpars.yy" + { (yyval.stype) = eIOPATH; } + break; + + case 22: +#line 261 "sdfcpars.yy" + { (yyval.stype) = ePORT; } + break; + + case 23: +#line 263 "sdfcpars.yy" + { (yyval.stype) = eINTERCONNECT; } + break; + + case 24: +#line 265 "sdfcpars.yy" + { (yyval.stype) = eNETDELAY; } + break; + + case 25: +#line 267 "sdfcpars.yy" + { (yyval.stype) = eDEVICE; } + break; + + case 26: +#line 269 "sdfcpars.yy" + { (yyval.stype) = eSETUP; } + break; + + case 27: +#line 271 "sdfcpars.yy" + { (yyval.stype) = eHOLD; } + break; + + case 28: +#line 273 "sdfcpars.yy" + { (yyval.stype) = eSETUPHOLD; } + break; + + case 29: +#line 275 "sdfcpars.yy" + { (yyval.stype) = eRECOVERY; } + break; + + case 30: +#line 277 "sdfcpars.yy" + { (yyval.stype) = eSKEW; } + break; + + case 31: +#line 279 "sdfcpars.yy" + { (yyval.stype) = eWIDTH; } + break; + + case 32: +#line 281 "sdfcpars.yy" + { (yyval.stype) = ePERIOD; } + break; + + case 33: +#line 283 "sdfcpars.yy" + { (yyval.stype) = eNOCHANGE; } + break; + + case 34: +#line 285 "sdfcpars.yy" + { (yyval.stype) = ePATHPULSE; } + break; + + case 35: +#line 290 "sdfcpars.yy" + { (yyval.vtype) = eVIGNORE; } + break; + + case 36: +#line 292 "sdfcpars.yy" + { (yyval.vtype) = eVINTERMODPATH; } + break; + + case 37: +#line 294 "sdfcpars.yy" + { (yyval.vtype) = eVMIPD; } + break; + + case 38: +#line 296 "sdfcpars.yy" + { (yyval.vtype) = eVCELL; } + break; + + case 39: +#line 298 "sdfcpars.yy" + { (yyval.vtype) = eVUSE; } + break; + + case 40: +#line 303 "sdfcpars.yy" + { (yyval.dtype) = eMINIMUM; } + break; + + case 41: +#line 305 "sdfcpars.yy" + { (yyval.dtype) = eMAXIMUM; } + break; + + case 42: +#line 307 "sdfcpars.yy" + { (yyval.dtype) = eAVERAGE; } + break; + + case 43: +#line 312 "sdfcpars.yy" + { (yyval.dtype) = eMINIMUM; } + break; + + case 44: +#line 314 "sdfcpars.yy" + { (yyval.dtype) = eTYPICAL; } + break; + + case 45: +#line 316 "sdfcpars.yy" + { (yyval.dtype) = eMAXIMUM; } + break; + + case 46: +#line 326 "sdfcpars.yy" + { yyerrok; } + break; + + + } + +/* Line 1037 of yacc.c. */ +#line 1507 "sdfcpars.cc" + + yyvsp -= yylen; + yyssp -= yylen; + + + YY_STACK_PRINT (yyss, yyssp); + + *++yyvsp = yyval; + + + /* Now `shift' the result of the reduction. Determine what state + that goes to, based on the state we popped back to and the rule + number reduced by. */ + + yyn = yyr1[yyn]; + + yystate = yypgoto[yyn - YYNTOKENS] + *yyssp; + if (0 <= yystate && yystate <= YYLAST && yycheck[yystate] == *yyssp) + yystate = yytable[yystate]; + else + yystate = yydefgoto[yyn - YYNTOKENS]; + + goto yynewstate; + + +/*------------------------------------. +| yyerrlab -- here on detecting error | +`------------------------------------*/ +yyerrlab: + /* If not already recovering from an error, report this error. */ + if (!yyerrstatus) + { + ++yynerrs; +#if YYERROR_VERBOSE + yyn = yypact[yystate]; + + if (YYPACT_NINF < yyn && yyn < YYLAST) + { + YYSIZE_T yysize = 0; + int yytype = YYTRANSLATE (yychar); + const char* yyprefix; + char *yymsg; + int yyx; + + /* Start YYX at -YYN if negative to avoid negative indexes in + YYCHECK. */ + int yyxbegin = yyn < 0 ? -yyn : 0; + + /* Stay within bounds of both yycheck and yytname. */ + int yychecklim = YYLAST - yyn; + int yyxend = yychecklim < YYNTOKENS ? yychecklim : YYNTOKENS; + int yycount = 0; + + yyprefix = ", expecting "; + for (yyx = yyxbegin; yyx < yyxend; ++yyx) + if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR) + { + yysize += yystrlen (yyprefix) + yystrlen (yytname [yyx]); + yycount += 1; + if (yycount == 5) + { + yysize = 0; + break; + } + } + yysize += (sizeof ("syntax error, unexpected ") + + yystrlen (yytname[yytype])); + yymsg = (char *) YYSTACK_ALLOC (yysize); + if (yymsg != 0) + { + char *yyp = yystpcpy (yymsg, "syntax error, unexpected "); + yyp = yystpcpy (yyp, yytname[yytype]); + + if (yycount < 5) + { + yyprefix = ", expecting "; + for (yyx = yyxbegin; yyx < yyxend; ++yyx) + if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR) + { + yyp = yystpcpy (yyp, yyprefix); + yyp = yystpcpy (yyp, yytname[yyx]); + yyprefix = " or "; + } + } + yyerror (yymsg); + YYSTACK_FREE (yymsg); + } + else + yyerror ("syntax error; also virtual memory exhausted"); + } + else +#endif /* YYERROR_VERBOSE */ + yyerror ("syntax error"); + } + + + + if (yyerrstatus == 3) + { + /* If just tried and failed to reuse look-ahead token after an + error, discard it. */ + + if (yychar <= YYEOF) + { + /* If at end of input, pop the error token, + then the rest of the stack, then return failure. */ + if (yychar == YYEOF) + for (;;) + { + + YYPOPSTACK; + if (yyssp == yyss) + YYABORT; + yydestruct ("Error: popping", + yystos[*yyssp], yyvsp); + } + } + else + { + yydestruct ("Error: discarding", yytoken, &yylval); + yychar = YYEMPTY; + } + } + + /* Else will try to reuse look-ahead token after shifting the error + token. */ + goto yyerrlab1; + + +/*---------------------------------------------------. +| yyerrorlab -- error raised explicitly by YYERROR. | +`---------------------------------------------------*/ +yyerrorlab: + +#ifdef __GNUC__ + /* Pacify GCC when the user code never invokes YYERROR and the label + yyerrorlab therefore never appears in user code. */ + if (0) + goto yyerrorlab; +#endif + +yyvsp -= yylen; + yyssp -= yylen; + yystate = *yyssp; + goto yyerrlab1; + + +/*-------------------------------------------------------------. +| yyerrlab1 -- common code for both syntax error and YYERROR. | +`-------------------------------------------------------------*/ +yyerrlab1: + yyerrstatus = 3; /* Each real token shifted decrements this. */ + + for (;;) + { + yyn = yypact[yystate]; + if (yyn != YYPACT_NINF) + { + yyn += YYTERROR; + if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYTERROR) + { + yyn = yytable[yyn]; + if (0 < yyn) + break; + } + } + + /* Pop the current state because it cannot handle the error token. */ + if (yyssp == yyss) + YYABORT; + + + yydestruct ("Error: popping", yystos[yystate], yyvsp); + YYPOPSTACK; + yystate = *yyssp; + YY_STACK_PRINT (yyss, yyssp); + } + + if (yyn == YYFINAL) + YYACCEPT; + + *++yyvsp = yylval; + + + /* Shift the error token. */ + YY_SYMBOL_PRINT ("Shifting", yystos[yyn], yyvsp, yylsp); + + yystate = yyn; + goto yynewstate; + + +/*-------------------------------------. +| yyacceptlab -- YYACCEPT comes here. | +`-------------------------------------*/ +yyacceptlab: + yyresult = 0; + goto yyreturn; + +/*-----------------------------------. +| yyabortlab -- YYABORT comes here. | +`-----------------------------------*/ +yyabortlab: + yydestruct ("Error: discarding lookahead", + yytoken, &yylval); + yychar = YYEMPTY; + yyresult = 1; + goto yyreturn; + +#ifndef yyoverflow +/*----------------------------------------------. +| yyoverflowlab -- parser overflow comes here. | +`----------------------------------------------*/ +yyoverflowlab: + yyerror ("parser stack overflow"); + yyresult = 2; + /* Fall through. */ +#endif + +yyreturn: +#ifndef yyoverflow + if (yyss != yyssa) + YYSTACK_FREE (yyss); +#endif + return yyresult; +} + + +#line 329 "sdfcpars.yy" + + + diff --git a/src/sdfcpars.h b/src/sdfcpars.h new file mode 100644 index 0000000..37f9e23 --- /dev/null +++ b/src/sdfcpars.h @@ -0,0 +1,187 @@ +/* A Bison parser, made by GNU Bison 2.0. */ + +/* Skeleton parser for Yacc-like parsing with Bison, + Copyright (C) 1984, 1989, 1990, 2000, 2001, 2002, 2003, 2004 Free Software Foundation, Inc. + + This program 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, 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. */ + +/* As a special exception, when this file is copied by Bison into a + Bison output file, you may use that output file without restriction. + This special exception was added by the Free Software Foundation + in version 1.24 of Bison. */ + +/* Tokens. */ +#ifndef YYTOKENTYPE +# define YYTOKENTYPE + /* Put the tokens into the symbol table, so that GDB and other debuggers + know about them. */ + enum yytokentype { + IF = 258, + ELSE = 259, + OROR = 260, + ANDAND = 261, + ANDANDAND = 262, + XNOR = 263, + CASE_INEQUALITY = 264, + CASE_EQUALITY = 265, + LOGICAL_INEQUALITY = 266, + LOGICAL_EQUALITY = 267, + GE = 268, + GT = 269, + LE = 270, + LT = 271, + RIGHT_SHIFT = 272, + LEFT_SHIFT = 273, + REDUCTION_NOR = 274, + REDUCTION_NAND = 275, + UNARY = 276, + INTEGER = 277, + SCALAR_CONSTANT = 278, + FLOATING = 279, + QSTRING = 280, + IDENTIFIER = 281, + IOPATH = 282, + PORT = 283, + INTERCONNECT = 284, + NETDELAY = 285, + DEVICE = 286, + SETUP = 287, + HOLD = 288, + SETUPHOLD = 289, + RECOVERY = 290, + SKEW = 291, + WIDTH = 292, + PERIOD = 293, + NOCHANGE = 294, + PATHPULSE = 295, + IGNORE = 296, + INTERMOD_PATH = 297, + MIPD = 298, + CELL = 299, + USE = 300, + INTERCONNECT_MIPD = 301, + MINIMUM = 302, + MAXIMUM = 303, + AVERAGE = 304, + MTM = 305, + TOOL_CONTROL = 306, + TYPICAL = 307, + SCALE_FACTORS = 308, + SCALE_TYPE = 309, + FROM_MINIMUM = 310, + FROM_TYPICAL = 311, + FROM_MAXIMUM = 312, + FROM_MTM = 313, + FROM_FILE = 314, + TURNOFF_DELAY = 315, + TURNON_DELAY = 316, + MODULE = 317, + MAP_INNER = 318, + ADD = 319, + OVERRIDE = 320, + EOF_ = 321 + }; +#endif +#define IF 258 +#define ELSE 259 +#define OROR 260 +#define ANDAND 261 +#define ANDANDAND 262 +#define XNOR 263 +#define CASE_INEQUALITY 264 +#define CASE_EQUALITY 265 +#define LOGICAL_INEQUALITY 266 +#define LOGICAL_EQUALITY 267 +#define GE 268 +#define GT 269 +#define LE 270 +#define LT 271 +#define RIGHT_SHIFT 272 +#define LEFT_SHIFT 273 +#define REDUCTION_NOR 274 +#define REDUCTION_NAND 275 +#define UNARY 276 +#define INTEGER 277 +#define SCALAR_CONSTANT 278 +#define FLOATING 279 +#define QSTRING 280 +#define IDENTIFIER 281 +#define IOPATH 282 +#define PORT 283 +#define INTERCONNECT 284 +#define NETDELAY 285 +#define DEVICE 286 +#define SETUP 287 +#define HOLD 288 +#define SETUPHOLD 289 +#define RECOVERY 290 +#define SKEW 291 +#define WIDTH 292 +#define PERIOD 293 +#define NOCHANGE 294 +#define PATHPULSE 295 +#define IGNORE 296 +#define INTERMOD_PATH 297 +#define MIPD 298 +#define CELL 299 +#define USE 300 +#define INTERCONNECT_MIPD 301 +#define MINIMUM 302 +#define MAXIMUM 303 +#define AVERAGE 304 +#define MTM 305 +#define TOOL_CONTROL 306 +#define TYPICAL 307 +#define SCALE_FACTORS 308 +#define SCALE_TYPE 309 +#define FROM_MINIMUM 310 +#define FROM_TYPICAL 311 +#define FROM_MAXIMUM 312 +#define FROM_MTM 313 +#define FROM_FILE 314 +#define TURNOFF_DELAY 315 +#define TURNON_DELAY 316 +#define MODULE 317 +#define MAP_INNER 318 +#define ADD 319 +#define OVERRIDE 320 +#define EOF_ 321 + + + + +#if ! defined (YYSTYPE) && ! defined (YYSTYPE_IS_DECLARED) +#line 96 "sdfcpars.yy" +typedef union YYSTYPE { + int integer; + double floating; + char *ptr; + eScaleType_t etype; + eDelayType_t dtype; + eSDFConstruct_t stype; + eVerilogConstruct_t vtype; +} YYSTYPE; +/* Line 1318 of yacc.c. */ +#line 179 "sdfcpars.h" +# define yystype YYSTYPE /* obsolescent; will be withdrawn */ +# define YYSTYPE_IS_DECLARED 1 +# define YYSTYPE_IS_TRIVIAL 1 +#endif + + + + + diff --git a/src/sdfcpars.yy b/src/sdfcpars.yy new file mode 100644 index 0000000..0583870 --- /dev/null +++ b/src/sdfcpars.yy @@ -0,0 +1,330 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* sdfcpars.y - BISON/YACC parser for sdf configuration info */ + +%{ +#define YYERROR_VERBOSE + +#include +#include +#include +#include +#include "glue.h" +#include "acc_user.h" +#include "sdflex.h" +#include "sdf.h" +#include "sdfclex.h" + +#ifdef __cplusplus + union YYSTYPE; + int sdfconfig_lex( YYSTYPE* ); +#endif // __cplusplus + +/* Used in BISON.SIM */ +extern char *token_buffer; + + +#define yymaxdepth sdfconfig_maxdepth +#define yyparse sdfconfig_parse +#define yylex sdfconfig_lex +#define yyerror sdfconfig_error +#define yylval sdfconfig_lval +#define yychar sdfconfig_char +#define yydebug sdfconfig_debug +#define yypact sdfconfig_pact +#define yyr1 sdfconfig_r1 +#define yyr2 sdfconfig_r2 +#define yydef sdfconfig_def +#define yychk sdfconfig_chk +#define yypgo sdfconfig_pgo +#define yyact sdfconfig_act +#define yyexca sdfconfig_exca +#define yyerrflag sdfconfig_errflag +#define yynerrs sdfconfig_nerrs +#define yyps sdfconfig_ps +#define yypv sdfconfig_pv +#define yys sdfconfig_s +#define yy_yys sdfconfig_yys +#define yystate sdfconfig_state +#define yytmp sdfconfig_tmp +#define yyv sdfconfig_v +#define yy_yyv sdfconfig_yyv +#define yyval sdfconfig_val +#define yylloc sdfconfig_lloc +#define yyreds sdfconfig_reds +#define yytoks sdfconfig_toks +#define yylhs sdfconfig_yylhs +#define yylen sdfconfig_yylen +#define yydefred sdfconfig_yydefred +#define yydgoto sdfconfig_yydgoto +#define yysindex sdfconfig_yysindex +#define yyrindex sdfconfig_yyrindex +#define yygindex sdfconfig_yygindex +#define yytable sdfconfig_yytable +#define yycheck sdfconfig_yycheck +#define yyname sdfconfig_yyname +#define yyrule sdfconfig_yyrule + + + +void initSDFCParse() +{ + sdfclexInit(); +} + +%} +%expect 0 +%pure_parser + +%union { + int integer; + double floating; + char *ptr; + eScaleType_t etype; + eDelayType_t dtype; + eSDFConstruct_t stype; + eVerilogConstruct_t vtype; +}; + +%nonassoc IF +%nonassoc ELSE + +%right '?' ':' +%left OROR +%left ANDAND +%left ANDANDAND +%left '|' +%left '^' XNOR +%left '&' +%left LOGICAL_EQUALITY LOGICAL_INEQUALITY CASE_EQUALITY CASE_INEQUALITY +%left LT LE GT GE +%left LEFT_SHIFT RIGHT_SHIFT +%left '+' '-' +%left '*' '/' '%' +%left '(' '[' +%right '!' '~' +%right REDUCTION_NOR +%right REDUCTION_NAND +%right UNARY + + +%token INTEGER +%token SCALAR_CONSTANT +%token FLOATING +%token QSTRING +%token IDENTIFIER +%token IOPATH +%token PORT +%token INTERCONNECT +%token NETDELAY +%token DEVICE +%token SETUP +%token HOLD +%token SETUPHOLD +%token RECOVERY +%token SKEW +%token WIDTH +%token PERIOD +%token NOCHANGE +%token PATHPULSE +%token IGNORE +%token INTERMOD_PATH +%token MIPD +%token CELL +%token USE +%token INTERCONNECT_MIPD +%token MINIMUM +%token MAXIMUM +%token AVERAGE +%token MTM +%token TOOL_CONTROL +%token TYPICAL +%token SCALE_FACTORS +%token SCALE_TYPE +%token FROM_MINIMUM +%token FROM_TYPICAL +%token FROM_MAXIMUM +%token FROM_MTM +%token FROM_FILE +%token TURNOFF_DELAY +%token TURNON_DELAY +%token MODULE +%token MAP_INNER +%token ADD +%token OVERRIDE +%token IGNORE + + +%token EOF_ + +%type real +%type min_typ_max +%type min_max_avg +%type stype +%type sdf_construct +%type veritool_map + + +%% + +config + : statements EOF_ + | EOF_ + ; + +statements + : statement + | statement statements + ; + +statement + : map + ; + +map + : sdf_construct '=' veritool_map sc + { + if( ! setMap( $1, $3 ) ) { + sdfconfig_error( "illegal construct mapping" ); + } + } + | INTERCONNECT_MIPD '=' min_max_avg sc + { + setInterconnectMipd( $3 ); + } + | MTM '=' min_typ_max sc + { + setMTMSpec( $3 ); + } + | MTM '=' TOOL_CONTROL sc + { + setMTMSpec( eTOOL_CONTROL ); + } + | SCALE_FACTORS '=' real ':' real ':' real sc + { + setScaleFactors( $3, $5, $7 ); + } + | SCALE_TYPE '=' stype sc + { + setScaleType( $3 ); + } + | TURNOFF_DELAY '=' min_max_avg sc + { + setTurnOffDelay( $3 ); + } + | TURNOFF_DELAY '=' FROM_FILE sc + { + setTurnOffDelay( eFROM_FILE ); + } + ; + +stype + : FROM_MINIMUM + { $$ = eFROM_MINIMUM; } + | FROM_TYPICAL + { $$ = eFROM_TYPICAL; } + | FROM_MAXIMUM + { $$ = eFROM_MAXIMUM; } + | FROM_MTM + { $$ = eFROM_MTM; } + ; + +real + : FLOATING + | INTEGER + { + $$ = (double) $1; + } + ; + +sdf_construct + : IOPATH + { $$ = eIOPATH; } + | PORT + { $$ = ePORT; } + | INTERCONNECT + { $$ = eINTERCONNECT; } + | NETDELAY + { $$ = eNETDELAY; } + | DEVICE + { $$ = eDEVICE; } + | SETUP + { $$ = eSETUP; } + | HOLD + { $$ = eHOLD; } + | SETUPHOLD + { $$ = eSETUPHOLD; } + | RECOVERY + { $$ = eRECOVERY; } + | SKEW + { $$ = eSKEW; } + | WIDTH + { $$ = eWIDTH; } + | PERIOD + { $$ = ePERIOD; } + | NOCHANGE + { $$ = eNOCHANGE; } + | PATHPULSE + { $$ = ePATHPULSE; } + ; + +veritool_map + : IGNORE + { $$ = eVIGNORE; } + | INTERMOD_PATH + { $$ = eVINTERMODPATH; } + | MIPD + { $$ = eVMIPD; } + | CELL + { $$ = eVCELL; } + | USE + { $$ = eVUSE; } + ; + +min_max_avg + : MINIMUM + { $$ = eMINIMUM; } + | MAXIMUM + { $$ = eMAXIMUM; } + | AVERAGE + { $$ = eAVERAGE; } + ; + +min_typ_max + : MINIMUM + { $$ = eMINIMUM; } + | TYPICAL + { $$ = eTYPICAL; } + | MAXIMUM + { $$ = eMAXIMUM; } + ; + +/* +"Important" terminals +*/ + + +sc + : ';' + { yyerrok; } + ; + +%% + diff --git a/src/sdflex.cc b/src/sdflex.cc new file mode 100644 index 0000000..94785c4 --- /dev/null +++ b/src/sdflex.cc @@ -0,0 +1,654 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* sdflex.c - lexer for sdf's */ + +#define SDFLEX_C + +#include +#include +#include +#include +#include +#include "vtypes.h" +#include "glue.h" +#include "tree.h" +#include "veriwell.h" +#include "acc_user.h" +#include "sdf.h" +#include "sdfparse.h" +#include "sdflex.h" +#include "veriuser.h" + +typedef struct { + char *string; + int token; +} table_t; + +static table_t keywordTable[] = { + "delayfile", DELAYFILE, + "sdfversion", SDFVERSION, + "design", DESIGN, + "date", DATE, + "vendor", VENDOR, + "program", PROGRAM, + "version", VERSION_, + "program", PROGRAM, + "divider", DIVIDER, + "voltage", VOLTAGE, + "process", PROCESS, + "temperature", TEMPERATURE, + "timescale", TIMESCALE, + "cell", CELL, + "celltype", CELLTYPE, + "instance", INSTANCE, + "delay", DELAY, + "timingcheck", TIMINGCHECK, + "include", INCLUDE, + "absolute", ABSOLUTE, + "increment", INCREMENT, + "userdef", USERDEF, + "pathpulse", PATHPULSE, + "globalpathpulse", GLOBALPATHPULSE, + "iopath", IOPATH, + "cond", COND, + "port", PORT, + "interconnect", INTERCONNECT, + "netdelay", NETDELAY, + "device", DEVICE, + "setup", SETUP, + "hold", HOLD, + "setuphold", SETUPHOLD, + "recovery", RECOVERY, + "skew", SKEW, + "width", WIDTH, + "period", PERIOD, + "nochange", NOCHANGE, + "pathconstraint", PATHCONSTRAINT, + "sum", SUM, + "diff", DIFF, + "skewconstraint", SKEWCONSTRAINT, + "posedge", POSEDGE, + "negedge", NEGEDGE, + "ns", NANOSECOND, + "us", MICROSECOND, + "ps", PICOSECOND, + "01", EDGE_01, + "10", EDGE_10, + "0z", EDGE_0z, + "1z", EDGE_1z, + "z0", EDGE_z0, + "z1", EDGE_z1, + NULL, 0 +}; + +static int lineNumber; +static FILE *fin; +static char filename[MAX_FILENAME_LENGTH]; +static char *stringList; + +static char *tokenBuffer; +static int bufferLength; +static char *bufferPtr; + +static int hierarchyChar; +static int parseBlob; +static int enableEdges; + +static FileList_t *fileList; +extern FILE *sdfLogFile; + +int sdf_lex(YYSTYPE * val); + + +/******************************************************************* + + sdfEnableEdges + - enable lexer to indentifier edges + +********************************************************************/ + +int sdfEnableEdges(int enable) +{ + int result; + + ASSERT(enable == TRUE || enable == FALSE); + result = enableEdges; + enableEdges = enable; + return (result); +} + +/******************************************************************* + + purgeStrings + - frees all allocated strings + +********************************************************************/ + +void purgeStrings() +{ + char *ptr; + + while (stringList) { + ptr = stringList; + stringList = *(char **) stringList; + free(ptr); + } +} + + +/******************************************************************* + + saveString + - allocates storage and copies the given string + +********************************************************************/ + +char *saveString(char *src) +{ + char *dst; + + /* keep track of all allocated string so they can be purged */ + + dst = (char *) xmalloc(strlen(src) + 1 + sizeof(char *)); + *(char **) dst = stringList; + stringList = dst; + dst += sizeof(char *); + strcpy(dst, src); + return (dst); +} + +/******************************************************************* + + setParseBlob + +*******************************************************************/ + +void setParseBlob() +{ + parseBlob = TRUE; +} + +/******************************************************************* + + appendTokenBuffer + - add character to token buffer + +*******************************************************************/ + +static void appendTokenBuffer(int c) +{ + ASSERT(tokenBuffer != NULL); + if (bufferPtr >= tokenBuffer + bufferLength) { + bufferLength += 40; + tokenBuffer = (char *) xrealloc(tokenBuffer, bufferLength); + } + *bufferPtr = (char) c; + bufferPtr += 1; +} + +/******************************************************************* + + scanInteger + - append characters to token buffer if they are part of + an integer + + *******************************************************************/ + +static void scanInteger(void) +{ + int c; + + while (TRUE) { + c = getc(fin); + if (c < '0' || c > '9') { + break; + } + appendTokenBuffer(c); + }; + ungetc(c, fin); +} + +/******************************************************************* + + isStringEqual + - returns TRUE if strings are equal( case insensitive ) + + ******************************************************************/ + +static int isStringEqual(char *s1, char *s2) +{ + while (*s1 != 0 && *s2 != 0) { + if (toupper(*s1) != toupper(*s2)) { + return (FALSE); + } + s1++; + s2++; + } + if (*s1 != 0 || *s2 != 0) { + return (FALSE); + } + return (TRUE); +} + +/******************************************************************* + + resetTokenBuffer + - flush token buffer + +*******************************************************************/ + +static void resetTokenBuffer() +{ + bufferPtr = tokenBuffer; +} + +/******************************************************************* + + sdflexPushFile + - push current file descriptor and position + + *******************************************************************/ + +static void sdflexPushFile() +{ + FileList_t *entry; + + if (fin != NULL) { + entry = (FileList_t *) xmalloc(sizeof(FileList_t)); + strcpy(entry->filename, filename); + entry->lineNumber = lineNumber; + entry->file = fin; + entry->next = fileList; + fileList = entry; + } +} + +/******************************************************************* + + sdflexPopFile + - pop current file descriptor and position + + *******************************************************************/ + +static void sdflexPopFile(void) +{ + FileList_t *entry; + + + if (fin != NULL) { + shell_fclose(fin); + fin = NULL; + } + + + entry = fileList; + if (entry != NULL) { + fin = entry->file; + strcpy(filename, entry->filename); + lineNumber = entry->lineNumber; + fileList = entry->next; + free(entry); + } + +} + +/******************************************************************* + + sdflexOpenFile + - open an input file + *******************************************************************/ + +FILE *sdflexOpenFile(char *aFilename) +{ + FILE *newFile; + + sdflexPushFile(); + strncpy(filename, aFilename, sizeof(filename)); + newFile = shell_fopen(filename, "r"); + if (newFile == NULL) { + tf_error("could not open file '%s'", filename); + sdflexPopFile(); + return (NULL); + } + fin = newFile; + lineNumber = 1; + return (fin); +} + +/******************************************************************* + + sdf_error + - print error messages for sdf parser + + *******************************************************************/ + +void sdf_error(char *message) +{ + io_printf("SDF ERROR: %s L%ld, %s\n", filename, lineNumber, message); + fprintf(sdfLogFile, "SDF ERROR: %s L%ld, %s\n", filename, lineNumber, + message); +} + + +/******************************************************************* + match + - check for 2 character sequences + +********************************************************************/ + +static int match(int c, int noToken, char *matchString, int yesToken) +{ + char c1; + + + c1 = getc(fin); + if (c1 == matchString[1]) { + appendTokenBuffer(c); + appendTokenBuffer(c1); + appendTokenBuffer(0); + return (yesToken); + } else { + ungetc(c1, fin); + if (c == matchString[0]) { + appendTokenBuffer(c); + appendTokenBuffer(0); + } + return (noToken); + } +} + +/******************************************************************* + + parseNumber + - parse all forms of numbers + + *******************************************************************/ + +static int parseNumber(int c, YYSTYPE * val) +{ + int type; + + if (c != '.') { + appendTokenBuffer(c); + if (c == '1') { + c = getc(fin); + if (c == '\'') { + c = getc(fin); + if (c == '0' || c == '1') { + appendTokenBuffer(c); + appendTokenBuffer(0); + val->integer = atoi(tokenBuffer); + return (SCALAR_CONSTANT); + } else { + ungetc(c, fin); + sdf_error("Illegal scalar constant"); + val->integer = 0; + return (INTEGER); + } + } else { + ungetc(c, fin); + } + } + + scanInteger(); + type = INTEGER; + c = getc(fin); + } + + if (c == '.') { + appendTokenBuffer(c); + scanInteger(); + type = FLOATING; + c = getc(fin); + } + if (c == 'e' || c == 'E') { + appendTokenBuffer(c); + c = getc(fin); + if (c == '-' || c == '+') { + appendTokenBuffer(c); + } else { + ungetc(c, fin); + } + scanInteger(); + type = FLOATING; + } else { + ungetc(c, fin); + } + + appendTokenBuffer(0); + + if (type == FLOATING) { + val->floating = atof(tokenBuffer); + } else { + val->integer = atoi(tokenBuffer); + } + + return (type); +} + +/******************************************************************* + + parseIdentifier + - parse identifers and keywords + + *******************************************************************/ + +static int parseIdentifier(int firstChar, YYSTYPE * val) +{ + int c; + int escape; + int i; + + + c = firstChar; + escape = FALSE; + do { + if (c != '\\') { + if (!escape && c == hierarchyChar) { + appendTokenBuffer('.'); + } else { + appendTokenBuffer(c); + } + escape = FALSE; + } else { + escape = TRUE; + } + c = getc(fin); + } + while (c == '_' || + c == '\\' || + (c >= 'a' && c <= 'z') || + (c >= 'A' && c <= 'Z') || + (c >= '0' && c <= '9') || c == hierarchyChar || escape); + + ungetc(c, fin); + + appendTokenBuffer(0); + ASSERT(tokenBuffer != NULL); + for (i = 0; keywordTable[i].string != NULL; i++) { + if (isStringEqual(keywordTable[i].string, tokenBuffer)) { + return (keywordTable[i].token); + } + } + + val->ptr = saveString(tokenBuffer); + strcpy(val->ptr, tokenBuffer); + return (IDENTIFIER); +} + + +/******************************************************************* + + sdf_lex + - lexer for sdf parser + + *******************************************************************/ + +int sdf_lex(YYSTYPE * val) +{ + int c; + + ASSERT(tokenBuffer != NULL); + + resetTokenBuffer(); + + if (fin == NULL) { + free(tokenBuffer); + tokenBuffer = NULL; + return (0); + } + + while (TRUE) { + c = getc(fin); + while (strchr("\r\t\b\f\n ", c) != NULL) { + if (c == '\n') { + lineNumber++; + } + c = getc(fin); + } + + if (parseBlob) { + while (strchr("\377 )\r\t\b\f\n", c) == NULL) { + appendTokenBuffer(c); + c = getc(fin); + } + appendTokenBuffer(0); + ungetc(c, fin); + parseBlob = FALSE; + val->ptr = saveString(tokenBuffer); + return (BLOB); + } + + switch (c) { + case EOF: + sdflexPopFile(); + if (fin == NULL) { + return (EOF_); + } + break; + case ')': + case '(': + case '+': + case '-': + case '|': + case '*': + case '/': + case '%': + case '[': + case ']': + case ':': + case ';': + case '{': + case '}': + case '\'': + appendTokenBuffer(c); + appendTokenBuffer(0); + return (c); + case '"': + do { + c = getc(fin); + appendTokenBuffer(c); + } + while (c != '"' && c != '\n' && c != EOF); + + if (c != '"') { + sdf_error("unterminated string constant"); + resetTokenBuffer(); + break; + } + appendTokenBuffer(0); + val->ptr = saveString(tokenBuffer); + val->ptr[strlen(val->ptr) - 1] = 0; + return (QSTRING); + + case '&': + return match(c, c, "&&", ANDAND); + case '<': + return match(c, match(0, LT, "<=", LE), "<<", LEFT_SHIFT); + case '>': + return match(c, match(0, GT, ">=", GE), ">>", RIGHT_SHIFT); + case '~': + return match(c, match(0, match(0, c, + "~&", REDUCTION_NAND), + "~|", REDUCTION_NOR), "~^", XNOR); + case '^': + return match(c, c, "^~", XNOR); + case '=': + c = getc(fin); + if (c != '=') { + ungetc(c, fin); + appendTokenBuffer('='); + appendTokenBuffer(0); + return ('='); + } else { + return match(c, LOGICAL_EQUALITY, "==", CASE_EQUALITY); + } + case '!': + c = getc(fin); + if (c != '=') { + ungetc(c, fin); + appendTokenBuffer('!'); + appendTokenBuffer(0); + return ('!'); + } else { + return match(c, LOGICAL_INEQUALITY, "==", CASE_INEQUALITY); + } + default: + + if ((!enableEdges && (c == '0' || c == '1')) || + (c >= '2' && c <= '9') || c == '.') { + return (parseNumber(c, val)); + } else if ((enableEdges && (c == '0' || c == '1')) || + c == '_' || + c == '\\' || + (c >= 'a' && c <= 'z') || (c >= 'A' && c <= 'Z')) { + return (parseIdentifier(c, val)); + } + sdf_error("illegal character"); + resetTokenBuffer(); + break; + + + } + } +} + + + +/******************************************************************* + + sdflexInit + - initialize lexer + + *******************************************************************/ + +void sdflexInit() +{ + fileList = NULL; + fin = NULL; + stringList = NULL; + enableEdges = FALSE; + bufferLength = 40; + tokenBuffer = (char *) xmalloc(bufferLength); + bufferPtr = tokenBuffer; + hierarchyChar = (int) '.'; + parseBlob = FALSE; + filename[0] = 0; +} diff --git a/src/sdflex.h b/src/sdflex.h new file mode 100644 index 0000000..a4d16fc --- /dev/null +++ b/src/sdflex.h @@ -0,0 +1,58 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + + +/********************************************************************* + * + * sdflex.h + * definitions for sdflex.c + * + ********************************************************************* + */ + + +#ifndef SDFLEX_H +#define SDFLEX_H + +// public definitions + +void sdf_error(char *message); +FILE *sdflexOpenFile(char *filename); +void sdflexInit(void); +int sdfEnableEdges(int enable); +void purgeStrings(void); +void setParseBlob(void); +char *saveString(char *src); + +// private definitions + +#ifdef SDFLEX_C +typedef struct fileList_tag { + struct fileList_tag *next; + char filename[MAX_FILENAME_LENGTH]; + int lineNumber; + FILE *file; +} FileList_t; + +static void sdflexPushFile(void); +static void sdflexPopFile(void); +#endif // SDFLEX_C + + +#endif // SDFLEX_H diff --git a/src/sdfparse.cc b/src/sdfparse.cc new file mode 100644 index 0000000..85a8ae9 --- /dev/null +++ b/src/sdfparse.cc @@ -0,0 +1,2641 @@ +/* A Bison parser, made by GNU Bison 2.0. */ + +/* Skeleton parser for Yacc-like parsing with Bison, + Copyright (C) 1984, 1989, 1990, 2000, 2001, 2002, 2003, 2004 Free Software Foundation, Inc. + + This program 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, 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. */ + +/* As a special exception, when this file is copied by Bison into a + Bison output file, you may use that output file without restriction. + This special exception was added by the Free Software Foundation + in version 1.24 of Bison. */ + +/* Written by Richard Stallman by simplifying the original so called + ``semantic'' parser. */ + +/* All symbols defined below should begin with yy or YY, to avoid + infringing on user name space. This should be done even for local + variables, as they might otherwise be expanded by user macros. + There are some unavoidable exceptions within include files to + define necessary library symbols; they are noted "INFRINGES ON + USER NAME SPACE" below. */ + +/* Identify Bison output. */ +#define YYBISON 1 + +/* Skeleton name. */ +#define YYSKELETON_NAME "yacc.c" + +/* Pure parsers. */ +#define YYPURE 1 + +/* Using locations. */ +#define YYLSP_NEEDED 0 + + + +/* Tokens. */ +#ifndef YYTOKENTYPE +# define YYTOKENTYPE + /* Put the tokens into the symbol table, so that GDB and other debuggers + know about them. */ + enum yytokentype { + IF = 258, + ELSE = 259, + OROR = 260, + ANDAND = 261, + ANDANDAND = 262, + XNOR = 263, + CASE_INEQUALITY = 264, + CASE_EQUALITY = 265, + LOGICAL_INEQUALITY = 266, + LOGICAL_EQUALITY = 267, + GE = 268, + GT = 269, + LE = 270, + LT = 271, + RIGHT_SHIFT = 272, + LEFT_SHIFT = 273, + REDUCTION_NOR = 274, + REDUCTION_NAND = 275, + UNARY = 276, + INTEGER = 277, + SCALAR_CONSTANT = 278, + FLOATING = 279, + QSTRING = 280, + IDENTIFIER = 281, + BLOB = 282, + POSEDGE = 283, + NEGEDGE = 284, + DELAYFILE = 285, + SDFVERSION = 286, + DESIGN = 287, + DATE = 288, + VENDOR = 289, + PROGRAM = 290, + VERSION_ = 291, + DIVIDER = 292, + VOLTAGE = 293, + PROCESS = 294, + TEMPERATURE = 295, + TIMESCALE = 296, + CELL = 297, + CELLTYPE = 298, + INSTANCE = 299, + DELAY = 300, + TIMINGCHECK = 301, + INCLUDE = 302, + ABSOLUTE = 303, + INCREMENT = 304, + USERDEF = 305, + PATHPULSE = 306, + GLOBALPATHPULSE = 307, + IOPATH = 308, + COND = 309, + PORT = 310, + INTERCONNECT = 311, + NETDELAY = 312, + DEVICE = 313, + SETUP = 314, + HOLD = 315, + SETUPHOLD = 316, + RECOVERY = 317, + SKEW = 318, + WIDTH = 319, + PERIOD = 320, + NOCHANGE = 321, + PATHCONSTRAINT = 322, + SUM = 323, + DIFF = 324, + SKEWCONSTRAINT = 325, + MICROSECOND = 326, + NANOSECOND = 327, + PICOSECOND = 328, + EDGE_01 = 329, + EDGE_10 = 330, + EDGE_0z = 331, + EDGE_1z = 332, + EDGE_z0 = 333, + EDGE_z1 = 334, + EOF_ = 335 + }; +#endif +#define IF 258 +#define ELSE 259 +#define OROR 260 +#define ANDAND 261 +#define ANDANDAND 262 +#define XNOR 263 +#define CASE_INEQUALITY 264 +#define CASE_EQUALITY 265 +#define LOGICAL_INEQUALITY 266 +#define LOGICAL_EQUALITY 267 +#define GE 268 +#define GT 269 +#define LE 270 +#define LT 271 +#define RIGHT_SHIFT 272 +#define LEFT_SHIFT 273 +#define REDUCTION_NOR 274 +#define REDUCTION_NAND 275 +#define UNARY 276 +#define INTEGER 277 +#define SCALAR_CONSTANT 278 +#define FLOATING 279 +#define QSTRING 280 +#define IDENTIFIER 281 +#define BLOB 282 +#define POSEDGE 283 +#define NEGEDGE 284 +#define DELAYFILE 285 +#define SDFVERSION 286 +#define DESIGN 287 +#define DATE 288 +#define VENDOR 289 +#define PROGRAM 290 +#define VERSION_ 291 +#define DIVIDER 292 +#define VOLTAGE 293 +#define PROCESS 294 +#define TEMPERATURE 295 +#define TIMESCALE 296 +#define CELL 297 +#define CELLTYPE 298 +#define INSTANCE 299 +#define DELAY 300 +#define TIMINGCHECK 301 +#define INCLUDE 302 +#define ABSOLUTE 303 +#define INCREMENT 304 +#define USERDEF 305 +#define PATHPULSE 306 +#define GLOBALPATHPULSE 307 +#define IOPATH 308 +#define COND 309 +#define PORT 310 +#define INTERCONNECT 311 +#define NETDELAY 312 +#define DEVICE 313 +#define SETUP 314 +#define HOLD 315 +#define SETUPHOLD 316 +#define RECOVERY 317 +#define SKEW 318 +#define WIDTH 319 +#define PERIOD 320 +#define NOCHANGE 321 +#define PATHCONSTRAINT 322 +#define SUM 323 +#define DIFF 324 +#define SKEWCONSTRAINT 325 +#define MICROSECOND 326 +#define NANOSECOND 327 +#define PICOSECOND 328 +#define EDGE_01 329 +#define EDGE_10 330 +#define EDGE_0z 331 +#define EDGE_1z 332 +#define EDGE_z0 333 +#define EDGE_z1 334 +#define EOF_ 335 + + + + +/* Copy the first part of user declarations. */ +#line 22 "sdfparse.yy" + +#define YYERROR_VERBOSE + +#include +#include +#include +#include +#include "glue.h" +#include "sdflex.h" +#include "acc_user.h" +#include "veriuser.h" +#include "sdf.h" + +#ifdef __cplusplus + union YYSTYPE; + int sdf_lex (YYSTYPE *); +#endif // __cplusplus + +#define yymaxdepth sdf_maxdepth +#define yyparse sdf_parse +#define yylex sdf_lex +#define yyerror sdf_error +#define yylval sdf_lval +#define yychar sdf_char +#define yydebug sdf_debug +#define yypact sdf_pact +#define yyr1 sdf_r1 +#define yyr2 sdf_r2 +#define yydef sdf_def +#define yychk sdf_chk +#define yypgo sdf_pgo +#define yyact sdf_act +#define yyexca sdf_exca +#define yyerrflag sdf_errflag +#define yynerrs sdf_nerrs +#define yyps sdf_ps +#define yypv sdf_pv +#define yys sdf_s +#define yy_yys sdf_yys +#define yystate sdf_state +#define yytmp sdf_tmp +#define yyv sdf_v +#define yy_yyv sdf_yyv +#define yyval sdf_val +#define yylloc sdf_lloc +#define yyreds sdf_reds +#define yytoks sdf_toks +#define yylhs sdf_yylhs +#define yylen sdf_yylen +#define yydefred sdf_yydefred +#define yydgoto sdf_yydgoto +#define yysindex sdf_yysindex +#define yyrindex sdf_yyrindex +#define yygindex sdf_yygindex +#define yytable sdf_yytable +#define yycheck sdf_yycheck +#define yyname sdf_yyname +#define yyrule sdf_yyrule + +/* Used in BISON.SIM */ +extern char *token_buffer; + + +void initSDFParse() +{ + sdflexInit(); +} + + + +/* Enabling traces. */ +#ifndef YYDEBUG +# define YYDEBUG 0 +#endif + +/* Enabling verbose error messages. */ +#ifdef YYERROR_VERBOSE +# undef YYERROR_VERBOSE +# define YYERROR_VERBOSE 1 +#else +# define YYERROR_VERBOSE 0 +#endif + +#if ! defined (YYSTYPE) && ! defined (YYSTYPE_IS_DECLARED) +#line 93 "sdfparse.yy" +typedef union YYSTYPE { + int integer; + double floating; + char *ptr; + eScaleType_t etype; + eDelayType_t dtype; + eSDFConstruct_t stype; + eVerilogConstruct_t vtype; + char character; + creal_t creal; + triple_t triple; + elist_t elist; + port_t port; +} YYSTYPE; +/* Line 190 of yacc.c. */ +#line 321 "sdfparse.cc" +# define yystype YYSTYPE /* obsolescent; will be withdrawn */ +# define YYSTYPE_IS_DECLARED 1 +# define YYSTYPE_IS_TRIVIAL 1 +#endif + + + +/* Copy the second part of user declarations. */ + + +/* Line 213 of yacc.c. */ +#line 333 "sdfparse.cc" + +#if ! defined (yyoverflow) || YYERROR_VERBOSE + +# ifndef YYFREE +# define YYFREE free +# endif +# ifndef YYMALLOC +# define YYMALLOC malloc +# endif + +/* The parser invokes alloca or malloc; define the necessary symbols. */ + +# ifdef YYSTACK_USE_ALLOCA +# if YYSTACK_USE_ALLOCA +# ifdef __GNUC__ +# define YYSTACK_ALLOC __builtin_alloca +# else +# define YYSTACK_ALLOC alloca +# endif +# endif +# endif + +# ifdef YYSTACK_ALLOC + /* Pacify GCC's `empty if-body' warning. */ +# define YYSTACK_FREE(Ptr) do { /* empty */; } while (0) +# else +# if defined (__STDC__) || defined (__cplusplus) +# include /* INFRINGES ON USER NAME SPACE */ +# define YYSIZE_T size_t +# endif +# define YYSTACK_ALLOC YYMALLOC +# define YYSTACK_FREE YYFREE +# endif +#endif /* ! defined (yyoverflow) || YYERROR_VERBOSE */ + + +#if (! defined (yyoverflow) \ + && (! defined (__cplusplus) \ + || (defined (YYSTYPE_IS_TRIVIAL) && YYSTYPE_IS_TRIVIAL))) + +/* A type that is properly aligned for any stack member. */ +union yyalloc +{ + short int yyss; + YYSTYPE yyvs; + }; + +/* The size of the maximum gap between one aligned stack and the next. */ +# define YYSTACK_GAP_MAXIMUM (sizeof (union yyalloc) - 1) + +/* The size of an array large to enough to hold all stacks, each with + N elements. */ +# define YYSTACK_BYTES(N) \ + ((N) * (sizeof (short int) + sizeof (YYSTYPE)) \ + + YYSTACK_GAP_MAXIMUM) + +/* Copy COUNT objects from FROM to TO. The source and destination do + not overlap. */ +# ifndef YYCOPY +# if defined (__GNUC__) && 1 < __GNUC__ +# define YYCOPY(To, From, Count) \ + __builtin_memcpy (To, From, (Count) * sizeof (*(From))) +# else +# define YYCOPY(To, From, Count) \ + do \ + { \ + register YYSIZE_T yyi; \ + for (yyi = 0; yyi < (Count); yyi++) \ + (To)[yyi] = (From)[yyi]; \ + } \ + while (0) +# endif +# endif + +/* Relocate STACK from its old location to the new one. The + local variables YYSIZE and YYSTACKSIZE give the old and new number of + elements in the stack, and YYPTR gives the new location of the + stack. Advance YYPTR to a properly aligned location for the next + stack. */ +# define YYSTACK_RELOCATE(Stack) \ + do \ + { \ + YYSIZE_T yynewbytes; \ + YYCOPY (&yyptr->Stack, Stack, yysize); \ + Stack = &yyptr->Stack; \ + yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \ + yyptr += yynewbytes / sizeof (*yyptr); \ + } \ + while (0) + +#endif + +#if defined (__STDC__) || defined (__cplusplus) + typedef signed char yysigned_char; +#else + typedef short int yysigned_char; +#endif + +/* YYFINAL -- State number of the termination state. */ +#define YYFINAL 5 +/* YYLAST -- Last index in YYTABLE. */ +#define YYLAST 383 + +/* YYNTOKENS -- Number of terminals. */ +#define YYNTOKENS 97 +/* YYNNTS -- Number of nonterminals. */ +#define YYNNTS 64 +/* YYNRULES -- Number of rules. */ +#define YYNRULES 141 +/* YYNRULES -- Number of states. */ +#define YYNSTATES 376 + +/* YYTRANSLATE(YYLEX) -- Bison symbol number corresponding to YYLEX. */ +#define YYUNDEFTOK 2 +#define YYMAXUTOK 335 + +#define YYTRANSLATE(YYX) \ + ((unsigned int) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK) + +/* YYTRANSLATE[YYLEX] -- Bison symbol number corresponding to YYLEX. */ +static const unsigned char yytranslate[] = +{ + 0, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 31, 2, 2, 2, 28, 13, 2, + 29, 95, 26, 24, 2, 25, 2, 27, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 6, 2, + 2, 2, 2, 5, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 30, 2, 96, 11, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 10, 2, 32, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 1, 2, 3, 4, + 7, 8, 9, 12, 14, 15, 16, 17, 18, 19, + 20, 21, 22, 23, 33, 34, 35, 36, 37, 38, + 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, + 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, + 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, + 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, + 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, + 89, 90, 91, 92, 93, 94 +}; + +#if YYDEBUG +/* YYPRHS[YYN] -- Index of the first RHS symbol of rule number YYN in + YYRHS. */ +static const unsigned short int yyprhs[] = +{ + 0, 0, 3, 6, 22, 27, 32, 37, 42, 47, + 52, 53, 59, 64, 68, 73, 78, 82, 88, 94, + 100, 104, 106, 109, 111, 112, 113, 122, 127, 131, + 134, 138, 142, 146, 148, 152, 153, 157, 158, 163, + 164, 169, 172, 174, 180, 182, 183, 190, 197, 204, + 211, 218, 224, 230, 237, 240, 242, 243, 249, 250, + 256, 259, 261, 264, 266, 268, 270, 272, 275, 277, + 279, 282, 289, 300, 306, 313, 319, 324, 330, 331, + 338, 349, 355, 362, 368, 373, 379, 381, 382, 386, + 388, 390, 395, 402, 406, 410, 414, 418, 422, 426, + 430, 434, 438, 440, 443, 447, 451, 455, 457, 461, + 468, 478, 491, 507, 526, 530, 537, 547, 560, 576, + 595, 601, 607, 613, 614, 620, 626, 632, 633, 635, + 638, 641, 643, 645, 647, 648, 650, 651, 653, 654, + 656, 658 +}; + +/* YYRHS -- A `-1'-separated list of the rules' RHS. */ +static const short int yyrhs[] = +{ + 98, 0, -1, 99, 94, -1, 29, 44, 100, 101, + 102, 103, 104, 105, 106, 108, 109, 110, 111, 113, + 159, -1, 29, 45, 158, 159, -1, 29, 46, 158, + 159, -1, 29, 47, 158, 159, -1, 29, 48, 158, + 159, -1, 29, 49, 158, 159, -1, 29, 50, 158, + 159, -1, -1, 29, 51, 107, 41, 159, -1, 29, + 52, 152, 159, -1, 29, 52, 159, -1, 29, 53, + 158, 159, -1, 29, 54, 152, 159, -1, 29, 54, + 159, -1, 29, 55, 112, 86, 159, -1, 29, 55, + 112, 85, 159, -1, 29, 55, 112, 87, 159, -1, + 29, 55, 159, -1, 36, -1, 114, 113, -1, 114, + -1, -1, -1, 29, 56, 115, 116, 29, 117, 120, + 159, -1, 29, 57, 39, 159, -1, 118, 29, 117, + -1, 118, 29, -1, 58, 40, 159, -1, 58, 26, + 159, -1, 58, 40, 159, -1, 121, -1, 121, 29, + 120, -1, -1, 59, 128, 159, -1, -1, 60, 122, + 124, 159, -1, -1, 61, 123, 41, 159, -1, 125, + 124, -1, 125, -1, 29, 68, 126, 127, 159, -1, + 127, -1, -1, 29, 73, 143, 141, 148, 159, -1, + 29, 74, 143, 141, 148, 159, -1, 29, 75, 143, + 141, 147, 159, -1, 29, 76, 141, 141, 148, 159, + -1, 29, 77, 141, 141, 148, 159, -1, 29, 78, + 141, 148, 159, -1, 29, 79, 141, 148, 159, -1, + 29, 80, 141, 143, 147, 159, -1, 129, 128, -1, + 129, -1, -1, 29, 62, 130, 132, 159, -1, -1, + 29, 63, 131, 133, 159, -1, 138, 132, -1, 138, + -1, 140, 140, -1, 140, -1, 137, -1, 135, -1, + 136, -1, 119, 136, -1, 40, -1, 143, -1, 119, + 143, -1, 29, 67, 141, 143, 146, 159, -1, 29, + 68, 139, 29, 67, 141, 143, 146, 159, 159, -1, + 29, 69, 143, 146, 159, -1, 29, 70, 137, 137, + 146, 159, -1, 29, 71, 134, 146, 159, -1, 29, + 72, 146, 159, -1, 29, 72, 137, 146, 159, -1, + -1, 29, 67, 141, 143, 149, 159, -1, 29, 68, + 139, 29, 67, 141, 143, 149, 159, 159, -1, 29, + 69, 143, 149, 159, -1, 29, 70, 137, 137, 149, + 159, -1, 29, 71, 134, 149, 159, -1, 29, 72, + 146, 159, -1, 29, 72, 137, 149, 159, -1, 143, + -1, -1, 29, 142, 145, -1, 144, -1, 40, -1, + 40, 30, 36, 160, -1, 40, 30, 36, 6, 36, + 160, -1, 42, 143, 159, -1, 43, 143, 159, -1, + 88, 143, 159, -1, 89, 143, 159, -1, 93, 143, + 159, -1, 92, 143, 159, -1, 91, 143, 159, -1, + 90, 143, 159, -1, 29, 155, 159, -1, 150, -1, + 148, 148, -1, 29, 154, 159, -1, 29, 152, 159, + -1, 29, 154, 159, -1, 151, -1, 29, 153, 159, + -1, 29, 153, 159, 29, 153, 159, -1, 29, 153, + 159, 29, 153, 159, 29, 153, 159, -1, 29, 153, + 159, 29, 153, 159, 29, 153, 159, 29, 153, 159, + -1, 29, 153, 159, 29, 153, 159, 29, 153, 159, + 29, 153, 159, 29, 153, 159, -1, 29, 153, 159, + 29, 153, 159, 29, 153, 159, 29, 153, 159, 29, + 153, 159, 29, 153, 159, -1, 29, 152, 159, -1, + 29, 152, 159, 29, 152, 159, -1, 29, 152, 159, + 29, 152, 159, 29, 152, 159, -1, 29, 152, 159, + 29, 152, 159, 29, 152, 159, 29, 152, 159, -1, + 29, 152, 159, 29, 152, 159, 29, 152, 159, 29, + 152, 159, 29, 152, 159, -1, 29, 152, 159, 29, + 152, 159, 29, 152, 159, 29, 152, 159, 29, 152, + 159, 29, 152, 159, -1, 154, 6, 156, 6, 156, + -1, 156, 6, 154, 6, 156, -1, 156, 6, 156, + 6, 154, -1, -1, 155, 6, 157, 6, 157, -1, + 157, 6, 155, 6, 157, -1, 157, 6, 157, 6, + 155, -1, -1, 155, -1, 24, 155, -1, 25, 155, + -1, 38, -1, 36, -1, 154, -1, -1, 155, -1, + -1, 39, -1, -1, 95, -1, 96, -1, 1, -1 +}; + +/* YYRLINE[YYN] -- source line where rule number YYN was defined. */ +static const unsigned short int yyrline[] = +{ + 0, 222, 222, 226, 233, 238, 243, 248, 253, 258, + 263, 263, 268, 270, 275, 280, 282, 287, 292, 297, + 302, 310, 329, 330, 331, 335, 334, 345, 353, 354, + 358, 363, 371, 378, 379, 381, 383, 384, 384, 385, + 385, 392, 393, 398, 400, 404, 409, 413, 417, 421, + 425, 429, 433, 437, 444, 445, 450, 449, 456, 455, + 464, 465, 469, 470, 474, 475, 479, 480, 488, 498, + 499, 508, 512, 517, 521, 525, 529, 533, 539, 544, + 548, 553, 557, 561, 565, 569, 575, 576, 576, 583, + 587, 594, 603, 615, 620, 625, 630, 635, 640, 645, + 650, 659, 670, 674, 683, 694, 702, 713, 717, 722, + 728, 735, 744, 754, 769, 774, 780, 787, 796, 806, + 820, 827, 834, 842, 850, 857, 864, 872, 880, 881, + 883, 887, 888, 893, 899, 903, 909, 913, 915, 923, + 928, 930 +}; +#endif + +#if YYDEBUG || YYERROR_VERBOSE +/* YYTNME[SYMBOL-NUM] -- String name of the symbol SYMBOL-NUM. + First, the terminals, then, starting at YYNTOKENS, nonterminals. */ +static const char *const yytname[] = +{ + "$end", "error", "$undefined", "IF", "ELSE", "'?'", "':'", "OROR", + "ANDAND", "ANDANDAND", "'|'", "'^'", "XNOR", "'&'", "CASE_INEQUALITY", + "CASE_EQUALITY", "LOGICAL_INEQUALITY", "LOGICAL_EQUALITY", "GE", "GT", + "LE", "LT", "RIGHT_SHIFT", "LEFT_SHIFT", "'+'", "'-'", "'*'", "'/'", + "'%'", "'('", "'['", "'!'", "'~'", "REDUCTION_NOR", "REDUCTION_NAND", + "UNARY", "INTEGER", "SCALAR_CONSTANT", "FLOATING", "QSTRING", + "IDENTIFIER", "BLOB", "POSEDGE", "NEGEDGE", "DELAYFILE", "SDFVERSION", + "DESIGN", "DATE", "VENDOR", "PROGRAM", "VERSION_", "DIVIDER", "VOLTAGE", + "PROCESS", "TEMPERATURE", "TIMESCALE", "CELL", "CELLTYPE", "INSTANCE", + "DELAY", "TIMINGCHECK", "INCLUDE", "ABSOLUTE", "INCREMENT", "USERDEF", + "PATHPULSE", "GLOBALPATHPULSE", "IOPATH", "COND", "PORT", "INTERCONNECT", + "NETDELAY", "DEVICE", "SETUP", "HOLD", "SETUPHOLD", "RECOVERY", "SKEW", + "WIDTH", "PERIOD", "NOCHANGE", "PATHCONSTRAINT", "SUM", "DIFF", + "SKEWCONSTRAINT", "MICROSECOND", "NANOSECOND", "PICOSECOND", "EDGE_01", + "EDGE_10", "EDGE_0z", "EDGE_1z", "EDGE_z0", "EDGE_z1", "EOF_", "')'", + "']'", "$accept", "sdf", "delay_file", "sdf_version", "design_name", + "date", "vendor", "program_name", "program_version", "hierarchy_divider", + "@1", "voltage", "process", "temperature", "time_scale", "ts", "cells", + "cell", "@2", "celltype", "instances", "instance", "string_instance", + "timing_specs", "timing_spec", "@3", "@4", "tcdefs", "tcdef", + "timing_check_condition", "tcheck", "deltypes", "deltype", "@5", "@6", + "absvals", "incvals", "name", "net_instance", "net", "port_instance", + "absval", "conditional_port_expr", "incval", "port_spec", "@7", + "port_path", "port", "port_edge", "value", "double_tc_rvalue", + "tc_rvalue", "rvalue", "exp_list", "rexp_list", "rexpression", + "expression", "real", "preal", "creal", "cpreal", "nstring", "rp", "rb", 0 +}; +#endif + +# ifdef YYPRINT +/* YYTOKNUM[YYLEX-NUM] -- Internal token number corresponding to + token YYLEX-NUM. */ +static const unsigned short int yytoknum[] = +{ + 0, 256, 257, 258, 259, 63, 58, 260, 261, 262, + 124, 94, 263, 38, 264, 265, 266, 267, 268, 269, + 270, 271, 272, 273, 43, 45, 42, 47, 37, 40, + 91, 33, 126, 274, 275, 276, 277, 278, 279, 280, + 281, 282, 283, 284, 285, 286, 287, 288, 289, 290, + 291, 292, 293, 294, 295, 296, 297, 298, 299, 300, + 301, 302, 303, 304, 305, 306, 307, 308, 309, 310, + 311, 312, 313, 314, 315, 316, 317, 318, 319, 320, + 321, 322, 323, 324, 325, 326, 327, 328, 329, 330, + 331, 332, 333, 334, 335, 41, 93 +}; +# endif + +/* YYR1[YYN] -- Symbol number of symbol that rule YYN derives. */ +static const unsigned char yyr1[] = +{ + 0, 97, 98, 99, 100, 101, 102, 103, 104, 105, + 107, 106, 108, 108, 109, 110, 110, 111, 111, 111, + 111, 112, 113, 113, 113, 115, 114, 116, 117, 117, + 118, 118, 119, 120, 120, 121, 121, 122, 121, 123, + 121, 124, 124, 125, 125, 126, 127, 127, 127, 127, + 127, 127, 127, 127, 128, 128, 130, 129, 131, 129, + 132, 132, 133, 133, 134, 134, 135, 135, 136, 137, + 137, 138, 138, 138, 138, 138, 138, 138, 139, 140, + 140, 140, 140, 140, 140, 140, 141, 142, 141, 143, + 144, 144, 144, 145, 145, 145, 145, 145, 145, 145, + 145, 146, 146, 147, 148, 148, 149, 149, 150, 150, + 150, 150, 150, 150, 151, 151, 151, 151, 151, 151, + 152, 152, 152, 152, 153, 153, 153, 153, 154, 154, + 154, 155, 155, 156, 156, 157, 157, 158, 158, 159, + 160, 160 +}; + +/* YYR2[YYN] -- Number of symbols composing right hand side of rule YYN. */ +static const unsigned char yyr2[] = +{ + 0, 2, 2, 15, 4, 4, 4, 4, 4, 4, + 0, 5, 4, 3, 4, 4, 3, 5, 5, 5, + 3, 1, 2, 1, 0, 0, 8, 4, 3, 2, + 3, 3, 3, 1, 3, 0, 3, 0, 4, 0, + 4, 2, 1, 5, 1, 0, 6, 6, 6, 6, + 6, 5, 5, 6, 2, 1, 0, 5, 0, 5, + 2, 1, 2, 1, 1, 1, 1, 2, 1, 1, + 2, 6, 10, 5, 6, 5, 4, 5, 0, 6, + 10, 5, 6, 5, 4, 5, 1, 0, 3, 1, + 1, 4, 6, 3, 3, 3, 3, 3, 3, 3, + 3, 3, 1, 2, 3, 3, 3, 1, 3, 6, + 9, 12, 15, 18, 3, 6, 9, 12, 15, 18, + 5, 5, 5, 0, 5, 5, 5, 0, 1, 2, + 2, 1, 1, 1, 0, 1, 0, 1, 0, 1, + 1, 1 +}; + +/* YYDEFACT[STATE-NAME] -- Default rule to reduce with in state + STATE-NUM when YYTABLE doesn't specify something else to do. Zero + means the default is an error. */ +static const unsigned char yydefact[] = +{ + 0, 0, 0, 0, 0, 1, 2, 0, 0, 138, + 0, 0, 137, 0, 138, 0, 0, 139, 4, 0, + 138, 0, 0, 5, 0, 138, 0, 0, 6, 0, + 138, 0, 0, 7, 0, 138, 0, 0, 8, 0, + 10, 0, 0, 9, 0, 134, 0, 0, 0, 0, + 0, 132, 131, 0, 0, 128, 0, 13, 138, 0, + 0, 11, 129, 130, 12, 134, 134, 0, 134, 0, + 24, 133, 0, 0, 0, 14, 0, 16, 0, 0, + 0, 23, 134, 134, 0, 15, 21, 0, 20, 25, + 3, 22, 120, 121, 122, 0, 0, 0, 0, 18, + 17, 19, 0, 0, 0, 0, 0, 0, 35, 0, + 27, 0, 0, 0, 37, 39, 0, 33, 29, 31, + 30, 0, 0, 55, 0, 0, 26, 35, 28, 56, + 58, 36, 54, 0, 0, 42, 44, 0, 34, 0, + 0, 45, 0, 0, 0, 0, 0, 0, 0, 0, + 38, 41, 40, 0, 0, 61, 0, 0, 63, 0, + 90, 0, 89, 0, 0, 87, 0, 86, 0, 0, + 0, 0, 0, 78, 0, 0, 0, 0, 57, 60, + 0, 78, 0, 0, 0, 0, 59, 62, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 123, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 69, 68, 0, + 0, 65, 66, 64, 127, 0, 0, 102, 0, 0, + 0, 0, 0, 0, 0, 43, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 88, + 0, 0, 0, 0, 51, 52, 0, 0, 0, 0, + 0, 70, 0, 67, 0, 0, 0, 0, 0, 76, + 0, 0, 123, 0, 107, 0, 0, 0, 84, 141, + 0, 140, 91, 46, 47, 48, 103, 0, 0, 0, + 0, 0, 0, 0, 0, 49, 50, 105, 104, 53, + 0, 0, 73, 32, 0, 75, 108, 136, 101, 136, + 77, 0, 0, 0, 0, 81, 0, 83, 85, 0, + 93, 94, 95, 96, 100, 99, 98, 97, 71, 0, + 74, 127, 135, 0, 0, 0, 79, 0, 114, 106, + 82, 92, 0, 0, 0, 136, 136, 0, 0, 123, + 0, 109, 124, 125, 126, 0, 0, 0, 127, 0, + 115, 72, 0, 80, 123, 110, 0, 127, 116, 0, + 123, 111, 0, 127, 117, 0, 123, 112, 0, 127, + 118, 0, 123, 113, 0, 119 +}; + +/* YYDEFGOTO[NTERM-NUM]. */ +static const short int yydefgoto[] = +{ + -1, 2, 3, 8, 11, 16, 22, 27, 32, 37, + 44, 42, 47, 60, 70, 87, 80, 81, 98, 103, + 108, 109, 205, 116, 117, 124, 125, 134, 135, 159, + 136, 122, 123, 139, 140, 154, 157, 210, 211, 212, + 213, 155, 202, 158, 166, 194, 167, 162, 239, 216, + 229, 230, 263, 217, 264, 53, 255, 54, 55, 56, + 257, 13, 18, 272 +}; + +/* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing + STATE-NUM. */ +#define YYPACT_NINF -308 +static const short int yypact[] = +{ + -2, -13, 36, -42, 24, -308, -308, 40, 35, 30, + 45, 81, -308, 21, 30, 67, 88, -308, -308, 21, + 30, 71, 91, -308, 21, 30, 74, 97, -308, 21, + 30, 82, 102, -308, 21, 30, 83, 108, -308, 21, + -308, 94, 111, -308, 113, -6, 99, 134, 21, 52, + 52, -308, -308, 21, 159, -308, 160, -308, 30, 115, + 142, -308, -308, -308, -308, 103, 103, 21, -6, 117, + 148, -308, 172, 175, 183, -308, 21, -308, -32, 136, + 21, 148, 103, 103, 103, -308, -308, 64, -308, -308, + -308, -308, -308, -308, -308, 21, 21, 21, 174, -308, + -308, -308, 149, 184, 176, 156, 21, 54, 124, 187, + -308, 21, 21, 188, -308, -308, 21, 190, 156, -308, + -308, -51, 21, 188, 191, 185, -308, 124, -308, -308, + -308, -308, -308, 283, 21, 191, -308, 21, -308, 203, + 204, -308, 194, 194, 194, 4, 4, 4, 4, 4, + -308, -308, -308, 305, 21, 203, 311, 21, 204, 209, + 211, 4, -308, 4, 4, -308, 4, -308, 4, 213, + 213, 194, 4, -308, 194, -3, 46, 25, -308, -308, + 4, -308, 194, -3, 46, 25, -308, -308, 291, 21, + 210, 213, 213, 213, -18, 213, 213, 162, 21, 21, + 213, 194, 216, 220, 214, 194, -3, -308, 211, 215, + 220, -308, -308, -308, 22, 220, 21, -308, 194, 224, + 227, -3, 227, 227, 21, -308, 0, 21, 21, 21, + 213, 194, 194, 194, 194, 194, 194, 194, 194, -308, + 21, 21, 21, 7, -308, -308, 21, 220, 199, 21, + 21, -308, 220, -308, 21, 21, 17, 251, 21, -308, + 227, 200, 162, 21, -308, 227, 21, 21, -308, -308, + 232, -308, -308, -308, -308, -308, -308, 21, 21, 21, + 21, 21, 21, 21, 21, -308, -308, -308, -308, -308, + 21, 4, -308, -308, 21, -308, 240, 52, -308, 52, + -308, 21, 4, 21, 7, -308, 21, -308, -308, 15, + -308, -308, -308, -308, -308, -308, -308, -308, -308, 194, + -308, 22, -308, 264, 266, 267, -308, 194, 247, -308, + -308, -308, 220, 21, 271, 52, 52, 52, 227, 162, + 21, 250, -308, -308, -308, 21, 21, 21, 22, 21, + 252, -308, 21, -308, 162, 254, 21, 22, 257, 21, + 162, 263, 21, 22, 265, 21, 162, 269, 21, 22, + 274, 21, 162, -308, 21, -308 +}; + +/* YYPGOTO[NTERM-NUM]. */ +static const short int yypgoto[] = +{ + -308, -308, -308, -308, -308, -308, -308, -308, -308, -308, + -308, -308, -308, -308, -308, -308, 219, -308, -308, -308, + 177, -308, -71, 153, -308, -308, -308, 161, -308, -308, + 145, 186, -308, -308, -308, 151, -308, 129, -308, 106, + 19, -308, 127, 165, 27, -308, -76, -308, -308, -168, + 119, -48, -214, -308, -308, -61, -307, -44, -47, 146, + -254, 277, -19, 8 +}; + +/* YYTABLE[YYPACT[STATE-NUM]]. What to do in state STATE-NUM. If + positive, shift that token. If negative, reduce the rule which + number is the opposite. If zero, do what YYDEFACT says. + If YYTABLE_NINF, syntax error. */ +#define YYTABLE_NINF -137 +static const short int yytable[] = +{ + 23, 269, 62, 63, 86, 28, 270, 76, 266, 267, + 33, 129, 130, 65, 333, 38, 269, 224, 49, 50, + 43, 71, 73, 297, 231, 232, 57, 1, -136, 61, + 51, 4, 52, 165, 64, 249, 5, 160, 71, 71, + 94, 352, 254, 323, 160, 325, 301, 258, 75, 77, + 359, 306, 6, 7, 214, 204, 365, 85, 51, 88, + 52, 90, 371, 17, 10, 160, 161, 163, 164, 12, + 233, 234, 235, 236, 237, 238, 99, 100, 101, 290, + 111, 342, 343, 204, 294, 9, 208, 110, 51, 17, + 52, 14, 119, 120, 112, 200, 271, 126, 203, 207, + 207, 207, 17, 131, 204, 209, 220, 207, 207, 207, + 15, 271, 17, 209, 20, 150, 17, 21, 152, 25, + 26, 198, 199, 30, 345, 247, 31, 49, 50, 251, + 207, 36, 35, 251, 40, 178, 242, 41, 186, 51, + 46, 52, 260, 227, 228, 207, 45, 240, 241, 95, + 96, 97, 58, 243, 48, 277, 278, 279, 280, 281, + 282, 283, 284, 59, 340, 65, 66, 256, -134, 68, + 225, 69, 78, 168, 169, 170, 171, 79, 82, 244, + 245, 83, 276, 113, 114, 115, 49, 50, 191, 84, + 192, 193, 89, 195, 206, 196, 215, 259, 51, 201, + 52, 303, 221, 102, 223, 268, 104, 218, 273, 274, + 275, 72, 74, 105, 107, 106, 118, 121, 304, 127, + 133, 285, 286, 287, 288, 252, 137, 289, 92, 93, + 292, 293, 153, 156, 160, 295, 296, 298, 188, 300, + 265, 190, 197, 332, 305, 248, 226, 307, 308, 214, + 322, 338, 324, 261, 250, 208, 262, 299, 310, 311, + 312, 313, 314, 315, 316, 317, 291, 302, 309, 321, + 335, 318, 336, 337, 334, 320, 339, 297, 346, 348, + 138, 354, 326, 357, 328, 329, 360, 330, 322, 322, + 344, 19, 363, 356, 366, 128, 151, 24, 369, 362, + 91, 334, 29, 372, 189, 368, 179, 34, 219, 132, + 334, 374, 39, 222, 341, 253, 334, 331, 319, 246, + 0, 347, 334, 187, 0, 0, 349, 350, 351, 327, + 353, 0, 0, 355, 0, 67, 0, 358, 0, 0, + 361, 0, 0, 364, 0, 0, 367, 0, 0, 370, + 0, 141, 373, 0, 0, 375, 142, 143, 144, 145, + 146, 147, 148, 149, 142, 143, 144, 145, 146, 147, + 148, 149, 172, 173, 174, 175, 176, 177, 180, 181, + 182, 183, 184, 185 +}; + +static const short int yycheck[] = +{ + 19, 1, 49, 50, 36, 24, 6, 68, 222, 223, + 29, 62, 63, 6, 321, 34, 1, 185, 24, 25, + 39, 65, 66, 6, 42, 43, 45, 29, 6, 48, + 36, 44, 38, 29, 53, 203, 0, 40, 82, 83, + 84, 348, 210, 297, 40, 299, 260, 215, 67, 68, + 357, 265, 94, 29, 29, 58, 363, 76, 36, 78, + 38, 80, 369, 95, 29, 40, 142, 143, 144, 39, + 88, 89, 90, 91, 92, 93, 95, 96, 97, 247, + 26, 335, 336, 58, 252, 45, 40, 106, 36, 95, + 38, 46, 111, 112, 40, 171, 96, 116, 174, 175, + 176, 177, 95, 122, 58, 176, 182, 183, 184, 185, + 29, 96, 95, 184, 47, 134, 95, 29, 137, 48, + 29, 169, 170, 49, 338, 201, 29, 24, 25, 205, + 206, 29, 50, 209, 51, 154, 197, 29, 157, 36, + 29, 38, 218, 191, 192, 221, 52, 195, 196, 85, + 86, 87, 53, 197, 41, 231, 232, 233, 234, 235, + 236, 237, 238, 29, 332, 6, 6, 214, 6, 54, + 189, 29, 55, 146, 147, 148, 149, 29, 6, 198, + 199, 6, 230, 59, 60, 61, 24, 25, 161, 6, + 163, 164, 56, 166, 175, 168, 177, 216, 36, 172, + 38, 262, 183, 29, 185, 224, 57, 180, 227, 228, + 229, 65, 66, 29, 58, 39, 29, 29, 262, 29, + 29, 240, 241, 242, 243, 206, 41, 246, 82, 83, + 249, 250, 29, 29, 40, 254, 255, 256, 29, 258, + 221, 30, 29, 319, 263, 29, 36, 266, 267, 29, + 297, 327, 299, 29, 40, 40, 29, 6, 277, 278, + 279, 280, 281, 282, 283, 284, 67, 67, 36, 29, + 6, 290, 6, 6, 321, 294, 29, 6, 339, 29, + 127, 29, 301, 29, 303, 304, 29, 306, 335, 336, + 337, 14, 29, 354, 29, 118, 135, 20, 29, 360, + 81, 348, 25, 29, 159, 366, 155, 30, 181, 123, + 357, 372, 35, 184, 333, 209, 363, 309, 291, 200, + -1, 340, 369, 158, -1, -1, 345, 346, 347, 302, + 349, -1, -1, 352, -1, 58, -1, 356, -1, -1, + 359, -1, -1, 362, -1, -1, 365, -1, -1, 368, + -1, 68, 371, -1, -1, 374, 73, 74, 75, 76, + 77, 78, 79, 80, 73, 74, 75, 76, 77, 78, + 79, 80, 67, 68, 69, 70, 71, 72, 67, 68, + 69, 70, 71, 72 +}; + +/* YYSTOS[STATE-NUM] -- The (internal number of the) accessing + symbol of state STATE-NUM. */ +static const unsigned char yystos[] = +{ + 0, 29, 98, 99, 44, 0, 94, 29, 100, 45, + 29, 101, 39, 158, 46, 29, 102, 95, 159, 158, + 47, 29, 103, 159, 158, 48, 29, 104, 159, 158, + 49, 29, 105, 159, 158, 50, 29, 106, 159, 158, + 51, 29, 108, 159, 107, 52, 29, 109, 41, 24, + 25, 36, 38, 152, 154, 155, 156, 159, 53, 29, + 110, 159, 155, 155, 159, 6, 6, 158, 54, 29, + 111, 154, 156, 154, 156, 159, 152, 159, 55, 29, + 113, 114, 6, 6, 6, 159, 36, 112, 159, 56, + 159, 113, 156, 156, 154, 85, 86, 87, 115, 159, + 159, 159, 29, 116, 57, 29, 39, 58, 117, 118, + 159, 26, 40, 59, 60, 61, 120, 121, 29, 159, + 159, 29, 128, 129, 122, 123, 159, 29, 117, 62, + 63, 159, 128, 29, 124, 125, 127, 41, 120, 130, + 131, 68, 73, 74, 75, 76, 77, 78, 79, 80, + 159, 124, 159, 29, 132, 138, 29, 133, 140, 126, + 40, 143, 144, 143, 143, 29, 141, 143, 141, 141, + 141, 141, 67, 68, 69, 70, 71, 72, 159, 132, + 67, 68, 69, 70, 71, 72, 159, 140, 29, 127, + 30, 141, 141, 141, 142, 141, 141, 29, 148, 148, + 143, 141, 139, 143, 58, 119, 137, 143, 40, 119, + 134, 135, 136, 137, 29, 137, 146, 150, 141, 139, + 143, 137, 134, 137, 146, 159, 36, 148, 148, 147, + 148, 42, 43, 88, 89, 90, 91, 92, 93, 145, + 148, 148, 152, 154, 159, 159, 147, 143, 29, 146, + 40, 143, 137, 136, 146, 153, 155, 157, 146, 159, + 143, 29, 29, 149, 151, 137, 149, 149, 159, 1, + 6, 96, 160, 159, 159, 159, 148, 143, 143, 143, + 143, 143, 143, 143, 143, 159, 159, 159, 159, 159, + 146, 67, 159, 159, 146, 159, 159, 6, 159, 6, + 159, 149, 67, 152, 154, 159, 149, 159, 159, 36, + 159, 159, 159, 159, 159, 159, 159, 159, 159, 141, + 159, 29, 155, 157, 155, 157, 159, 141, 159, 159, + 159, 160, 143, 153, 155, 6, 6, 6, 143, 29, + 146, 159, 157, 157, 155, 149, 152, 159, 29, 159, + 159, 159, 153, 159, 29, 159, 152, 29, 159, 153, + 29, 159, 152, 29, 159, 153, 29, 159, 152, 29, + 159, 153, 29, 159, 152, 159 +}; + +#if ! defined (YYSIZE_T) && defined (__SIZE_TYPE__) +# define YYSIZE_T __SIZE_TYPE__ +#endif +#if ! defined (YYSIZE_T) && defined (size_t) +# define YYSIZE_T size_t +#endif +#if ! defined (YYSIZE_T) +# if defined (__STDC__) || defined (__cplusplus) +# include /* INFRINGES ON USER NAME SPACE */ +# define YYSIZE_T size_t +# endif +#endif +#if ! defined (YYSIZE_T) +# define YYSIZE_T unsigned int +#endif + +#define yyerrok (yyerrstatus = 0) +#define yyclearin (yychar = YYEMPTY) +#define YYEMPTY (-2) +#define YYEOF 0 + +#define YYACCEPT goto yyacceptlab +#define YYABORT goto yyabortlab +#define YYERROR goto yyerrorlab + + +/* Like YYERROR except do call yyerror. This remains here temporarily + to ease the transition to the new meaning of YYERROR, for GCC. + Once GCC version 2 has supplanted version 1, this can go. */ + +#define YYFAIL goto yyerrlab + +#define YYRECOVERING() (!!yyerrstatus) + +#define YYBACKUP(Token, Value) \ +do \ + if (yychar == YYEMPTY && yylen == 1) \ + { \ + yychar = (Token); \ + yylval = (Value); \ + yytoken = YYTRANSLATE (yychar); \ + YYPOPSTACK; \ + goto yybackup; \ + } \ + else \ + { \ + yyerror ("syntax error: cannot back up");\ + YYERROR; \ + } \ +while (0) + + +#define YYTERROR 1 +#define YYERRCODE 256 + + +/* YYLLOC_DEFAULT -- Set CURRENT to span from RHS[1] to RHS[N]. + If N is 0, then set CURRENT to the empty location which ends + the previous symbol: RHS[0] (always defined). */ + +#define YYRHSLOC(Rhs, K) ((Rhs)[K]) +#ifndef YYLLOC_DEFAULT +# define YYLLOC_DEFAULT(Current, Rhs, N) \ + do \ + if (N) \ + { \ + (Current).first_line = YYRHSLOC (Rhs, 1).first_line; \ + (Current).first_column = YYRHSLOC (Rhs, 1).first_column; \ + (Current).last_line = YYRHSLOC (Rhs, N).last_line; \ + (Current).last_column = YYRHSLOC (Rhs, N).last_column; \ + } \ + else \ + { \ + (Current).first_line = (Current).last_line = \ + YYRHSLOC (Rhs, 0).last_line; \ + (Current).first_column = (Current).last_column = \ + YYRHSLOC (Rhs, 0).last_column; \ + } \ + while (0) +#endif + + +/* YY_LOCATION_PRINT -- Print the location on the stream. + This macro was not mandated originally: define only if we know + we won't break user code: when these are the locations we know. */ + +#ifndef YY_LOCATION_PRINT +# if YYLTYPE_IS_TRIVIAL +# define YY_LOCATION_PRINT(File, Loc) \ + fprintf (File, "%d.%d-%d.%d", \ + (Loc).first_line, (Loc).first_column, \ + (Loc).last_line, (Loc).last_column) +# else +# define YY_LOCATION_PRINT(File, Loc) ((void) 0) +# endif +#endif + + +/* YYLEX -- calling `yylex' with the right arguments. */ + +#ifdef YYLEX_PARAM +# define YYLEX yylex (&yylval, YYLEX_PARAM) +#else +# define YYLEX yylex (&yylval) +#endif + +/* Enable debugging if requested. */ +#if YYDEBUG + +# ifndef YYFPRINTF +# include /* INFRINGES ON USER NAME SPACE */ +# define YYFPRINTF fprintf +# endif + +# define YYDPRINTF(Args) \ +do { \ + if (yydebug) \ + YYFPRINTF Args; \ +} while (0) + +# define YY_SYMBOL_PRINT(Title, Type, Value, Location) \ +do { \ + if (yydebug) \ + { \ + YYFPRINTF (stderr, "%s ", Title); \ + yysymprint (stderr, \ + Type, Value); \ + YYFPRINTF (stderr, "\n"); \ + } \ +} while (0) + +/*------------------------------------------------------------------. +| yy_stack_print -- Print the state stack from its BOTTOM up to its | +| TOP (included). | +`------------------------------------------------------------------*/ + +#if defined (__STDC__) || defined (__cplusplus) +static void +yy_stack_print (short int *bottom, short int *top) +#else +static void +yy_stack_print (bottom, top) + short int *bottom; + short int *top; +#endif +{ + YYFPRINTF (stderr, "Stack now"); + for (/* Nothing. */; bottom <= top; ++bottom) + YYFPRINTF (stderr, " %d", *bottom); + YYFPRINTF (stderr, "\n"); +} + +# define YY_STACK_PRINT(Bottom, Top) \ +do { \ + if (yydebug) \ + yy_stack_print ((Bottom), (Top)); \ +} while (0) + + +/*------------------------------------------------. +| Report that the YYRULE is going to be reduced. | +`------------------------------------------------*/ + +#if defined (__STDC__) || defined (__cplusplus) +static void +yy_reduce_print (int yyrule) +#else +static void +yy_reduce_print (yyrule) + int yyrule; +#endif +{ + int yyi; + unsigned int yylno = yyrline[yyrule]; + YYFPRINTF (stderr, "Reducing stack by rule %d (line %u), ", + yyrule - 1, yylno); + /* Print the symbols being reduced, and their result. */ + for (yyi = yyprhs[yyrule]; 0 <= yyrhs[yyi]; yyi++) + YYFPRINTF (stderr, "%s ", yytname [yyrhs[yyi]]); + YYFPRINTF (stderr, "-> %s\n", yytname [yyr1[yyrule]]); +} + +# define YY_REDUCE_PRINT(Rule) \ +do { \ + if (yydebug) \ + yy_reduce_print (Rule); \ +} while (0) + +/* Nonzero means print parse trace. It is left uninitialized so that + multiple parsers can coexist. */ +int yydebug; +#else /* !YYDEBUG */ +# define YYDPRINTF(Args) +# define YY_SYMBOL_PRINT(Title, Type, Value, Location) +# define YY_STACK_PRINT(Bottom, Top) +# define YY_REDUCE_PRINT(Rule) +#endif /* !YYDEBUG */ + + +/* YYINITDEPTH -- initial size of the parser's stacks. */ +#ifndef YYINITDEPTH +# define YYINITDEPTH 200 +#endif + +/* YYMAXDEPTH -- maximum size the stacks can grow to (effective only + if the built-in stack extension method is used). + + Do not make this value too large; the results are undefined if + SIZE_MAX < YYSTACK_BYTES (YYMAXDEPTH) + evaluated with infinite-precision integer arithmetic. */ + +#ifndef YYMAXDEPTH +# define YYMAXDEPTH 10000 +#endif + + + +#if YYERROR_VERBOSE + +# ifndef yystrlen +# if defined (__GLIBC__) && defined (_STRING_H) +# define yystrlen strlen +# else +/* Return the length of YYSTR. */ +static YYSIZE_T +# if defined (__STDC__) || defined (__cplusplus) +yystrlen (const char *yystr) +# else +yystrlen (yystr) + const char *yystr; +# endif +{ + register const char *yys = yystr; + + while (*yys++ != '\0') + continue; + + return yys - yystr - 1; +} +# endif +# endif + +# ifndef yystpcpy +# if defined (__GLIBC__) && defined (_STRING_H) && defined (_GNU_SOURCE) +# define yystpcpy stpcpy +# else +/* Copy YYSRC to YYDEST, returning the address of the terminating '\0' in + YYDEST. */ +static char * +# if defined (__STDC__) || defined (__cplusplus) +yystpcpy (char *yydest, const char *yysrc) +# else +yystpcpy (yydest, yysrc) + char *yydest; + const char *yysrc; +# endif +{ + register char *yyd = yydest; + register const char *yys = yysrc; + + while ((*yyd++ = *yys++) != '\0') + continue; + + return yyd - 1; +} +# endif +# endif + +#endif /* !YYERROR_VERBOSE */ + + + +#if YYDEBUG +/*--------------------------------. +| Print this symbol on YYOUTPUT. | +`--------------------------------*/ + +#if defined (__STDC__) || defined (__cplusplus) +static void +yysymprint (FILE *yyoutput, int yytype, YYSTYPE *yyvaluep) +#else +static void +yysymprint (yyoutput, yytype, yyvaluep) + FILE *yyoutput; + int yytype; + YYSTYPE *yyvaluep; +#endif +{ + /* Pacify ``unused variable'' warnings. */ + (void) yyvaluep; + + if (yytype < YYNTOKENS) + YYFPRINTF (yyoutput, "token %s (", yytname[yytype]); + else + YYFPRINTF (yyoutput, "nterm %s (", yytname[yytype]); + + +# ifdef YYPRINT + if (yytype < YYNTOKENS) + YYPRINT (yyoutput, yytoknum[yytype], *yyvaluep); +# endif + switch (yytype) + { + default: + break; + } + YYFPRINTF (yyoutput, ")"); +} + +#endif /* ! YYDEBUG */ +/*-----------------------------------------------. +| Release the memory associated to this symbol. | +`-----------------------------------------------*/ + +#if defined (__STDC__) || defined (__cplusplus) +static void +yydestruct (const char *yymsg, int yytype, YYSTYPE *yyvaluep) +#else +static void +yydestruct (yymsg, yytype, yyvaluep) + const char *yymsg; + int yytype; + YYSTYPE *yyvaluep; +#endif +{ + /* Pacify ``unused variable'' warnings. */ + (void) yyvaluep; + + if (!yymsg) + yymsg = "Deleting"; + YY_SYMBOL_PRINT (yymsg, yytype, yyvaluep, yylocationp); + + switch (yytype) + { + + default: + break; + } +} + + +/* Prevent warnings from -Wmissing-prototypes. */ + +#ifdef YYPARSE_PARAM +# if defined (__STDC__) || defined (__cplusplus) +int yyparse (void *YYPARSE_PARAM); +# else +int yyparse (); +# endif +#else /* ! YYPARSE_PARAM */ +#if defined (__STDC__) || defined (__cplusplus) +int yyparse (void); +#else +int yyparse (); +#endif +#endif /* ! YYPARSE_PARAM */ + + + + + + +/*----------. +| yyparse. | +`----------*/ + +#ifdef YYPARSE_PARAM +# if defined (__STDC__) || defined (__cplusplus) +int yyparse (void *YYPARSE_PARAM) +# else +int yyparse (YYPARSE_PARAM) + void *YYPARSE_PARAM; +# endif +#else /* ! YYPARSE_PARAM */ +#if defined (__STDC__) || defined (__cplusplus) +int +yyparse (void) +#else +int +yyparse () + +#endif +#endif +{ + /* The look-ahead symbol. */ +int yychar; + +/* The semantic value of the look-ahead symbol. */ +YYSTYPE yylval; + +/* Number of syntax errors so far. */ +int yynerrs; + + register int yystate; + register int yyn; + int yyresult; + /* Number of tokens to shift before error messages enabled. */ + int yyerrstatus; + /* Look-ahead token as an internal (translated) token number. */ + int yytoken = 0; + + /* Three stacks and their tools: + `yyss': related to states, + `yyvs': related to semantic values, + `yyls': related to locations. + + Refer to the stacks thru separate pointers, to allow yyoverflow + to reallocate them elsewhere. */ + + /* The state stack. */ + short int yyssa[YYINITDEPTH]; + short int *yyss = yyssa; + register short int *yyssp; + + /* The semantic value stack. */ + YYSTYPE yyvsa[YYINITDEPTH]; + YYSTYPE *yyvs = yyvsa; + register YYSTYPE *yyvsp; + + + +#define YYPOPSTACK (yyvsp--, yyssp--) + + YYSIZE_T yystacksize = YYINITDEPTH; + + /* The variables used to return semantic value and location from the + action routines. */ + YYSTYPE yyval; + + + /* When reducing, the number of symbols on the RHS of the reduced + rule. */ + int yylen; + + YYDPRINTF ((stderr, "Starting parse\n")); + + yystate = 0; + yyerrstatus = 0; + yynerrs = 0; + yychar = YYEMPTY; /* Cause a token to be read. */ + + /* Initialize stack pointers. + Waste one element of value and location stack + so that they stay on the same level as the state stack. + The wasted elements are never initialized. */ + + yyssp = yyss; + yyvsp = yyvs; + + + yyvsp[0] = yylval; + + goto yysetstate; + +/*------------------------------------------------------------. +| yynewstate -- Push a new state, which is found in yystate. | +`------------------------------------------------------------*/ + yynewstate: + /* In all cases, when you get here, the value and location stacks + have just been pushed. so pushing a state here evens the stacks. + */ + yyssp++; + + yysetstate: + *yyssp = yystate; + + if (yyss + yystacksize - 1 <= yyssp) + { + /* Get the current used size of the three stacks, in elements. */ + YYSIZE_T yysize = yyssp - yyss + 1; + +#ifdef yyoverflow + { + /* Give user a chance to reallocate the stack. Use copies of + these so that the &'s don't force the real ones into + memory. */ + YYSTYPE *yyvs1 = yyvs; + short int *yyss1 = yyss; + + + /* Each stack pointer address is followed by the size of the + data in use in that stack, in bytes. This used to be a + conditional around just the two extra args, but that might + be undefined if yyoverflow is a macro. */ + yyoverflow ("parser stack overflow", + &yyss1, yysize * sizeof (*yyssp), + &yyvs1, yysize * sizeof (*yyvsp), + + &yystacksize); + + yyss = yyss1; + yyvs = yyvs1; + } +#else /* no yyoverflow */ +# ifndef YYSTACK_RELOCATE + goto yyoverflowlab; +# else + /* Extend the stack our own way. */ + if (YYMAXDEPTH <= yystacksize) + goto yyoverflowlab; + yystacksize *= 2; + if (YYMAXDEPTH < yystacksize) + yystacksize = YYMAXDEPTH; + + { + short int *yyss1 = yyss; + union yyalloc *yyptr = + (union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize)); + if (! yyptr) + goto yyoverflowlab; + YYSTACK_RELOCATE (yyss); + YYSTACK_RELOCATE (yyvs); + +# undef YYSTACK_RELOCATE + if (yyss1 != yyssa) + YYSTACK_FREE (yyss1); + } +# endif +#endif /* no yyoverflow */ + + yyssp = yyss + yysize - 1; + yyvsp = yyvs + yysize - 1; + + + YYDPRINTF ((stderr, "Stack size increased to %lu\n", + (unsigned long int) yystacksize)); + + if (yyss + yystacksize - 1 <= yyssp) + YYABORT; + } + + YYDPRINTF ((stderr, "Entering state %d\n", yystate)); + + goto yybackup; + +/*-----------. +| yybackup. | +`-----------*/ +yybackup: + +/* Do appropriate processing given the current state. */ +/* Read a look-ahead token if we need one and don't already have one. */ +/* yyresume: */ + + /* First try to decide what to do without reference to look-ahead token. */ + + yyn = yypact[yystate]; + if (yyn == YYPACT_NINF) + goto yydefault; + + /* Not known => get a look-ahead token if don't already have one. */ + + /* YYCHAR is either YYEMPTY or YYEOF or a valid look-ahead symbol. */ + if (yychar == YYEMPTY) + { + YYDPRINTF ((stderr, "Reading a token: ")); + yychar = YYLEX; + } + + if (yychar <= YYEOF) + { + yychar = yytoken = YYEOF; + YYDPRINTF ((stderr, "Now at end of input.\n")); + } + else + { + yytoken = YYTRANSLATE (yychar); + YY_SYMBOL_PRINT ("Next token is", yytoken, &yylval, &yylloc); + } + + /* If the proper action on seeing token YYTOKEN is to reduce or to + detect an error, take that action. */ + yyn += yytoken; + if (yyn < 0 || YYLAST < yyn || yycheck[yyn] != yytoken) + goto yydefault; + yyn = yytable[yyn]; + if (yyn <= 0) + { + if (yyn == 0 || yyn == YYTABLE_NINF) + goto yyerrlab; + yyn = -yyn; + goto yyreduce; + } + + if (yyn == YYFINAL) + YYACCEPT; + + /* Shift the look-ahead token. */ + YY_SYMBOL_PRINT ("Shifting", yytoken, &yylval, &yylloc); + + /* Discard the token being shifted unless it is eof. */ + if (yychar != YYEOF) + yychar = YYEMPTY; + + *++yyvsp = yylval; + + + /* Count tokens shifted since error; after three, turn off error + status. */ + if (yyerrstatus) + yyerrstatus--; + + yystate = yyn; + goto yynewstate; + + +/*-----------------------------------------------------------. +| yydefault -- do the default action for the current state. | +`-----------------------------------------------------------*/ +yydefault: + yyn = yydefact[yystate]; + if (yyn == 0) + goto yyerrlab; + goto yyreduce; + + +/*-----------------------------. +| yyreduce -- Do a reduction. | +`-----------------------------*/ +yyreduce: + /* yyn is the number of a rule to reduce with. */ + yylen = yyr2[yyn]; + + /* If YYLEN is nonzero, implement the default value of the action: + `$$ = $1'. + + Otherwise, the following line sets YYVAL to garbage. + This behavior is undocumented and Bison + users should not rely upon it. Assigning to YYVAL + unconditionally makes the parser a bit smaller, and it avoids a + GCC warning that YYVAL may be used uninitialized. */ + yyval = yyvsp[1-yylen]; + + + YY_REDUCE_PRINT (yyn); + switch (yyn) + { + case 3: +#line 229 "sdfparse.yy" + {} + break; + + case 4: +#line 234 "sdfparse.yy" + {} + break; + + case 5: +#line 239 "sdfparse.yy" + {} + break; + + case 6: +#line 244 "sdfparse.yy" + {} + break; + + case 7: +#line 249 "sdfparse.yy" + {} + break; + + case 8: +#line 254 "sdfparse.yy" + {} + break; + + case 9: +#line 259 "sdfparse.yy" + {} + break; + + case 10: +#line 263 "sdfparse.yy" + { setParseBlob(); } + break; + + case 11: +#line 264 "sdfparse.yy" + {} + break; + + case 12: +#line 269 "sdfparse.yy" + {} + break; + + case 13: +#line 271 "sdfparse.yy" + {} + break; + + case 14: +#line 276 "sdfparse.yy" + {} + break; + + case 15: +#line 281 "sdfparse.yy" + {} + break; + + case 16: +#line 283 "sdfparse.yy" + {} + break; + + case 17: +#line 288 "sdfparse.yy" + { + /* set time scale for back annotation */ + setTimeScale( (yyvsp[-2].integer) - 9 ); + } + break; + + case 18: +#line 293 "sdfparse.yy" + { + /* set time scale for back annotation */ + setTimeScale( (yyvsp[-2].integer) - 6 ); + } + break; + + case 19: +#line 298 "sdfparse.yy" + { + /* set time scale for back annotation */ + setTimeScale( (yyvsp[-2].integer) - 12 ); + } + break; + + case 20: +#line 303 "sdfparse.yy" + { + /* set default (1ns) time scale for back annotation */ + setTimeScale( -9 ); + } + break; + + case 21: +#line 311 "sdfparse.yy" + { + switch( (yyvsp[0].integer) ) { + case 1: + (yyval.integer) = 0; + break; + case 10: + (yyval.integer) = 1; + break; + case 100: + (yyval.integer) = 2; + break; + default: + sdf_error( "Timescale multiplier must be either 1,10, or 100" ); + (yyval.integer) = 0; + } + } + break; + + case 25: +#line 335 "sdfparse.yy" + { + /* reset current instance */ + resetInstance(); + /* free all allocated strings */ + purgeStrings(); + } + break; + + case 27: +#line 346 "sdfparse.yy" + { + /* set current cell type */ + setCellType( (yyvsp[-1].ptr) ); + } + break; + + case 30: +#line 359 "sdfparse.yy" + { + /* set down thru the hierarchy */ + findInstance( (yyvsp[-1].ptr) ); + } + break; + + case 31: +#line 364 "sdfparse.yy" + { + /* this is a wild card */ + findInstance( "*" ); + } + break; + + case 32: +#line 372 "sdfparse.yy" + { + (yyval.ptr) = (yyvsp[-1].ptr); + } + break; + + case 37: +#line 384 "sdfparse.yy" + {setAbsoluteDelay(TRUE);} + break; + + case 39: +#line 385 "sdfparse.yy" + { setParseBlob(); } + break; + + case 40: +#line 386 "sdfparse.yy" + { + sdflexOpenFile( (yyvsp[-1].ptr) ); + } + break; + + case 43: +#line 399 "sdfparse.yy" + {} + break; + + case 44: +#line 401 "sdfparse.yy" + {} + break; + + case 46: +#line 410 "sdfparse.yy" + { + setConstraint( eSETUP, &(yyvsp[-3].port), &(yyvsp[-2].port), (yyvsp[-1].elist) ); + } + break; + + case 47: +#line 414 "sdfparse.yy" + { + setConstraint( eHOLD, &(yyvsp[-2].port), &(yyvsp[-3].port), (yyvsp[-1].elist) ); + } + break; + + case 48: +#line 418 "sdfparse.yy" + { + setConstraint( eSETUPHOLD, &(yyvsp[-2].port), &(yyvsp[-3].port), (yyvsp[-1].elist) ); + } + break; + + case 49: +#line 422 "sdfparse.yy" + { + setConstraint( eRECOVERY, &(yyvsp[-2].port), &(yyvsp[-3].port), (yyvsp[-1].elist) ); + } + break; + + case 50: +#line 426 "sdfparse.yy" + { + setConstraint( eSKEW, &(yyvsp[-3].port), &(yyvsp[-2].port), (yyvsp[-1].elist) ); + } + break; + + case 51: +#line 430 "sdfparse.yy" + { + setConstraint( eWIDTH, &(yyvsp[-2].port), NULL, (yyvsp[-1].elist) ); + } + break; + + case 52: +#line 434 "sdfparse.yy" + { + setConstraint( ePERIOD, &(yyvsp[-2].port), NULL, (yyvsp[-1].elist) ); + } + break; + + case 53: +#line 438 "sdfparse.yy" + { + setConstraint( eNOCHANGE, &(yyvsp[-3].port), &(yyvsp[-2].port), (yyvsp[-1].elist) ); + } + break; + + case 56: +#line 450 "sdfparse.yy" + { + /* mark delay type as absolute */ + setAbsoluteDelay( TRUE ); + } + break; + + case 58: +#line 456 "sdfparse.yy" + { + /* mark delay type as incremental */ + setAbsoluteDelay( FALSE ); + } + break; + + case 67: +#line 481 "sdfparse.yy" + { + (yyval.port) = (yyvsp[0].port); + (yyval.port).path = (yyvsp[-1].ptr); + } + break; + + case 68: +#line 489 "sdfparse.yy" + { + (yyval.port).path = NULL; + (yyval.port).name = (yyvsp[0].ptr); + (yyval.port).scalar = TRUE; + (yyval.port).edge = accNoEdge; + } + break; + + case 70: +#line 500 "sdfparse.yy" + { + (yyval.port) = (yyvsp[0].port); + (yyval.port).path = (yyvsp[-1].ptr); + } + break; + + case 71: +#line 509 "sdfparse.yy" + { + setConstraint( eIOPATH, &(yyvsp[-3].port), &(yyvsp[-2].port), (yyvsp[-1].elist) ); + } + break; + + case 72: +#line 513 "sdfparse.yy" + { + /* -------- support for COND needs to be added ----------- */ + setConstraint( eIOPATH, &(yyvsp[-4].port), &(yyvsp[-3].port), (yyvsp[-2].elist) ); + } + break; + + case 73: +#line 518 "sdfparse.yy" + { + setConstraint( ePORT, &(yyvsp[-2].port), (port_t*)NULL, (yyvsp[-1].elist) ); + } + break; + + case 74: +#line 522 "sdfparse.yy" + { + setConstraint( eINTERCONNECT, &(yyvsp[-3].port), &(yyvsp[-2].port), (yyvsp[-1].elist) ); + } + break; + + case 75: +#line 526 "sdfparse.yy" + { + setConstraint( eNETDELAY, &(yyvsp[-2].port), (port_t*)NULL, (yyvsp[-1].elist) ); + } + break; + + case 76: +#line 530 "sdfparse.yy" + { + setConstraint( eDEVICE, (port_t*)NULL, (port_t*)NULL, (yyvsp[-1].elist) ); + } + break; + + case 77: +#line 534 "sdfparse.yy" + { + setConstraint( eDEVICE, &(yyvsp[-2].port), (port_t*)NULL, (yyvsp[-1].elist) ); + } + break; + + case 79: +#line 545 "sdfparse.yy" + { + setConstraint( eIOPATH, &(yyvsp[-3].port), &(yyvsp[-2].port), (yyvsp[-1].elist) ); + } + break; + + case 80: +#line 549 "sdfparse.yy" + { + /* -------- support for COND needs to be added ----------- */ + setConstraint( eIOPATH, &(yyvsp[-4].port), &(yyvsp[-3].port), (yyvsp[-2].elist) ); + } + break; + + case 81: +#line 554 "sdfparse.yy" + { + setConstraint( ePORT, &(yyvsp[-2].port), (port_t*)NULL, (yyvsp[-1].elist) ); + } + break; + + case 82: +#line 558 "sdfparse.yy" + { + setConstraint( eINTERCONNECT, &(yyvsp[-3].port), &(yyvsp[-2].port), (yyvsp[-1].elist) ); + } + break; + + case 83: +#line 562 "sdfparse.yy" + { + setConstraint( eNETDELAY, &(yyvsp[-2].port), (port_t*)NULL, (yyvsp[-1].elist) ); + } + break; + + case 84: +#line 566 "sdfparse.yy" + { + setConstraint( eDEVICE, (port_t*)NULL, (port_t*)NULL, (yyvsp[-1].elist) ); + } + break; + + case 85: +#line 570 "sdfparse.yy" + { + setConstraint( eDEVICE, &(yyvsp[-2].port), (port_t*)NULL, (yyvsp[-1].elist) ); + } + break; + + case 87: +#line 576 "sdfparse.yy" + {sdfEnableEdges( TRUE ); } + break; + + case 88: +#line 577 "sdfparse.yy" + { + sdfEnableEdges( FALSE ); + (yyval.port) = (yyvsp[0].port); + } + break; + + case 90: +#line 588 "sdfparse.yy" + { + (yyval.port).path = NULL; + (yyval.port).name = (yyvsp[0].ptr); + (yyval.port).scalar = TRUE; + (yyval.port).edge = accNoEdge; + } + break; + + case 91: +#line 595 "sdfparse.yy" + { + (yyval.port).path = NULL; + (yyval.port).name = (yyvsp[-3].ptr); + (yyval.port).scalar = FALSE; + (yyval.port).msb = (yyvsp[-1].integer); + (yyval.port).lsb = (yyvsp[-1].integer); + (yyval.port).edge = accNoEdge; + } + break; + + case 92: +#line 604 "sdfparse.yy" + { + (yyval.port).path = NULL; + (yyval.port).name = (yyvsp[-5].ptr); + (yyval.port).scalar = FALSE; + (yyval.port).msb = (yyvsp[-3].integer); + (yyval.port).lsb = (yyvsp[-1].integer); + (yyval.port).edge = accNoedge; + } + break; + + case 93: +#line 616 "sdfparse.yy" + { + (yyval.port) = (yyvsp[-1].port); + (yyval.port).edge = accPosedge; + } + break; + + case 94: +#line 621 "sdfparse.yy" + { + (yyval.port) = (yyvsp[-1].port); + (yyval.port).edge = accNegedge; + } + break; + + case 95: +#line 626 "sdfparse.yy" + { + (yyval.port) = (yyvsp[-1].port); + (yyval.port).edge = accEdge01; + } + break; + + case 96: +#line 631 "sdfparse.yy" + { + (yyval.port) = (yyvsp[-1].port); + (yyval.port).edge = accEdge10; + } + break; + + case 97: +#line 636 "sdfparse.yy" + { + (yyval.port) = (yyvsp[-1].port); + (yyval.port).edge = accEdgex1; + } + break; + + case 98: +#line 641 "sdfparse.yy" + { + (yyval.port) = (yyvsp[-1].port); + (yyval.port).edge = accEdgex0; + } + break; + + case 99: +#line 646 "sdfparse.yy" + { + (yyval.port) = (yyvsp[-1].port); + (yyval.port).edge = accEdge1x; + } + break; + + case 100: +#line 651 "sdfparse.yy" + { + (yyval.port) = (yyvsp[-1].port); + (yyval.port).edge = accEdge0x; + } + break; + + case 101: +#line 660 "sdfparse.yy" + { + memset( &(yyval.elist), 0, sizeof((yyval.elist)) ); + (yyval.elist).values[0].triple[0].value = (yyvsp[-1].floating); + (yyval.elist).values[0].triple[0].valid = TRUE; + (yyval.elist).values[0].triple[1].value = (yyvsp[-1].floating); + (yyval.elist).values[0].triple[1].valid = TRUE; + (yyval.elist).values[0].triple[2].value = (yyvsp[-1].floating); + (yyval.elist).values[0].triple[2].valid = TRUE; + (yyval.elist).argCount = 1; + } + break; + + case 103: +#line 675 "sdfparse.yy" + { + (yyval.elist).values[0] = (yyvsp[-1].elist).values[0]; + (yyval.elist).values[1] = (yyvsp[0].elist).values[0]; + (yyval.elist).argCount = 2; + } + break; + + case 104: +#line 684 "sdfparse.yy" + { + memset( &(yyval.elist), 0, sizeof((yyval.elist)) ); + (yyval.elist).values[0].triple[0].value = (yyvsp[-1].floating); + (yyval.elist).values[0].triple[0].valid = TRUE; + (yyval.elist).values[0].triple[1].value = (yyvsp[-1].floating); + (yyval.elist).values[0].triple[1].valid = TRUE; + (yyval.elist).values[0].triple[2].value = (yyvsp[-1].floating); + (yyval.elist).values[0].triple[2].valid = TRUE; + (yyval.elist).argCount = 1; + } + break; + + case 105: +#line 695 "sdfparse.yy" + { + (yyval.elist).values[0] = (yyvsp[-1].triple); + (yyval.elist).argCount = 1; + } + break; + + case 106: +#line 703 "sdfparse.yy" + { + memset( &(yyval.elist), 0, sizeof((yyval.elist)) ); + (yyval.elist).values[0].triple[0].value = (yyvsp[-1].floating); + (yyval.elist).values[0].triple[0].valid = TRUE; + (yyval.elist).values[0].triple[1].value = (yyvsp[-1].floating); + (yyval.elist).values[0].triple[1].valid = TRUE; + (yyval.elist).values[0].triple[2].value = (yyvsp[-1].floating); + (yyval.elist).values[0].triple[2].valid = TRUE; + (yyval.elist).argCount = 1; + } + break; + + case 108: +#line 718 "sdfparse.yy" + { + (yyval.elist).values[0] = (yyvsp[-1].triple); + (yyval.elist).argCount = 1; + } + break; + + case 109: +#line 723 "sdfparse.yy" + { + (yyval.elist).values[0] = (yyvsp[-4].triple); + (yyval.elist).values[1] = (yyvsp[-1].triple); + (yyval.elist).argCount = 2; + } + break; + + case 110: +#line 729 "sdfparse.yy" + { + (yyval.elist).values[0] = (yyvsp[-7].triple); + (yyval.elist).values[1] = (yyvsp[-4].triple); + (yyval.elist).values[2] = (yyvsp[-1].triple); + (yyval.elist).argCount = 3; + } + break; + + case 111: +#line 737 "sdfparse.yy" + { + (yyval.elist).values[0] = (yyvsp[-10].triple); + (yyval.elist).values[1] = (yyvsp[-7].triple); + (yyval.elist).values[2] = (yyvsp[-4].triple); + (yyval.elist).values[3] = (yyvsp[-1].triple); + (yyval.elist).argCount = 4; + } + break; + + case 112: +#line 746 "sdfparse.yy" + { + (yyval.elist).values[0] = (yyvsp[-13].triple); + (yyval.elist).values[1] = (yyvsp[-10].triple); + (yyval.elist).values[2] = (yyvsp[-7].triple); + (yyval.elist).values[3] = (yyvsp[-4].triple); + (yyval.elist).values[4] = (yyvsp[-1].triple); + (yyval.elist).argCount = 5; + } + break; + + case 113: +#line 756 "sdfparse.yy" + { + (yyval.elist).values[0] = (yyvsp[-16].triple); + (yyval.elist).values[1] = (yyvsp[-13].triple); + (yyval.elist).values[2] = (yyvsp[-10].triple); + (yyval.elist).values[3] = (yyvsp[-7].triple); + (yyval.elist).values[4] = (yyvsp[-4].triple); + (yyval.elist).values[5] = (yyvsp[-1].triple); + (yyval.elist).argCount = 6; + } + break; + + case 114: +#line 770 "sdfparse.yy" + { + (yyval.elist).values[0] = (yyvsp[-1].triple); + (yyval.elist).argCount = 1; + } + break; + + case 115: +#line 775 "sdfparse.yy" + { + (yyval.elist).values[0] = (yyvsp[-4].triple); + (yyval.elist).values[1] = (yyvsp[-1].triple); + (yyval.elist).argCount = 2; + } + break; + + case 116: +#line 781 "sdfparse.yy" + { + (yyval.elist).values[0] = (yyvsp[-7].triple); + (yyval.elist).values[1] = (yyvsp[-4].triple); + (yyval.elist).values[2] = (yyvsp[-1].triple); + (yyval.elist).argCount = 3; + } + break; + + case 117: +#line 789 "sdfparse.yy" + { + (yyval.elist).values[0] = (yyvsp[-10].triple); + (yyval.elist).values[1] = (yyvsp[-7].triple); + (yyval.elist).values[2] = (yyvsp[-4].triple); + (yyval.elist).values[3] = (yyvsp[-1].triple); + (yyval.elist).argCount = 4; + } + break; + + case 118: +#line 798 "sdfparse.yy" + { + (yyval.elist).values[0] = (yyvsp[-13].triple); + (yyval.elist).values[1] = (yyvsp[-10].triple); + (yyval.elist).values[2] = (yyvsp[-7].triple); + (yyval.elist).values[3] = (yyvsp[-4].triple); + (yyval.elist).values[4] = (yyvsp[-1].triple); + (yyval.elist).argCount = 5; + } + break; + + case 119: +#line 808 "sdfparse.yy" + { + (yyval.elist).values[0] = (yyvsp[-16].triple); + (yyval.elist).values[1] = (yyvsp[-13].triple); + (yyval.elist).values[2] = (yyvsp[-10].triple); + (yyval.elist).values[3] = (yyvsp[-7].triple); + (yyval.elist).values[4] = (yyvsp[-4].triple); + (yyval.elist).values[5] = (yyvsp[-1].triple); + (yyval.elist).argCount = 6; + } + break; + + case 120: +#line 821 "sdfparse.yy" + { + (yyval.triple).triple[0].value = (yyvsp[-4].floating); + (yyval.triple).triple[0].valid = TRUE; + (yyval.triple).triple[1] = (yyvsp[-2].creal); + (yyval.triple).triple[2] = (yyvsp[0].creal); + } + break; + + case 121: +#line 828 "sdfparse.yy" + { + (yyval.triple).triple[0] = (yyvsp[-4].creal); + (yyval.triple).triple[1].value = (yyvsp[-2].floating); + (yyval.triple).triple[1].valid = TRUE; + (yyval.triple).triple[2] = (yyvsp[0].creal); + } + break; + + case 122: +#line 835 "sdfparse.yy" + { + (yyval.triple).triple[0] = (yyvsp[-4].creal); + (yyval.triple).triple[1] = (yyvsp[-2].creal); + (yyval.triple).triple[2].value = (yyvsp[0].floating); + (yyval.triple).triple[2].valid = TRUE; + } + break; + + case 123: +#line 842 "sdfparse.yy" + { + (yyval.triple).triple[0].valid = FALSE; + (yyval.triple).triple[1].valid = FALSE; + (yyval.triple).triple[2].valid = FALSE; + } + break; + + case 124: +#line 851 "sdfparse.yy" + { + (yyval.triple).triple[0].value = (yyvsp[-4].floating); + (yyval.triple).triple[0].valid = TRUE; + (yyval.triple).triple[1] = (yyvsp[-2].creal); + (yyval.triple).triple[2] = (yyvsp[0].creal); + } + break; + + case 125: +#line 858 "sdfparse.yy" + { + (yyval.triple).triple[0] = (yyvsp[-4].creal); + (yyval.triple).triple[1].value = (yyvsp[-2].floating); + (yyval.triple).triple[1].valid = TRUE; + (yyval.triple).triple[2] = (yyvsp[0].creal); + } + break; + + case 126: +#line 865 "sdfparse.yy" + { + (yyval.triple).triple[0] = (yyvsp[-4].creal); + (yyval.triple).triple[1] = (yyvsp[-2].creal); + (yyval.triple).triple[2].value = (yyvsp[0].floating); + (yyval.triple).triple[2].valid = TRUE; + } + break; + + case 127: +#line 872 "sdfparse.yy" + { + (yyval.triple).triple[0].valid = FALSE; + (yyval.triple).triple[1].valid = FALSE; + (yyval.triple).triple[2].valid = FALSE; + } + break; + + case 129: +#line 882 "sdfparse.yy" + { (yyval.floating) = (yyvsp[0].floating); } + break; + + case 130: +#line 884 "sdfparse.yy" + { (yyval.floating) = -(yyvsp[0].floating); } + break; + + case 132: +#line 889 "sdfparse.yy" + { (yyval.floating) = (double) (yyvsp[0].integer); } + break; + + case 133: +#line 894 "sdfparse.yy" + { + (yyval.creal).value = (yyvsp[0].floating); + (yyval.creal).valid = TRUE; + } + break; + + case 134: +#line 899 "sdfparse.yy" + { (yyval.creal).valid = FALSE; } + break; + + case 135: +#line 904 "sdfparse.yy" + { + (yyval.creal).value = (yyvsp[0].floating); + (yyval.creal).valid = TRUE; + } + break; + + case 136: +#line 909 "sdfparse.yy" + { (yyval.creal).valid = FALSE; } + break; + + case 138: +#line 915 "sdfparse.yy" + { (yyval.ptr) = ""; } + break; + + case 139: +#line 924 "sdfparse.yy" + { yyerrok; } + break; + + case 140: +#line 929 "sdfparse.yy" + { yyerrok; } + break; + + case 141: +#line 931 "sdfparse.yy" + { yyerrok; } + break; + + + } + +/* Line 1037 of yacc.c. */ +#line 2411 "sdfparse.cc" + + yyvsp -= yylen; + yyssp -= yylen; + + + YY_STACK_PRINT (yyss, yyssp); + + *++yyvsp = yyval; + + + /* Now `shift' the result of the reduction. Determine what state + that goes to, based on the state we popped back to and the rule + number reduced by. */ + + yyn = yyr1[yyn]; + + yystate = yypgoto[yyn - YYNTOKENS] + *yyssp; + if (0 <= yystate && yystate <= YYLAST && yycheck[yystate] == *yyssp) + yystate = yytable[yystate]; + else + yystate = yydefgoto[yyn - YYNTOKENS]; + + goto yynewstate; + + +/*------------------------------------. +| yyerrlab -- here on detecting error | +`------------------------------------*/ +yyerrlab: + /* If not already recovering from an error, report this error. */ + if (!yyerrstatus) + { + ++yynerrs; +#if YYERROR_VERBOSE + yyn = yypact[yystate]; + + if (YYPACT_NINF < yyn && yyn < YYLAST) + { + YYSIZE_T yysize = 0; + int yytype = YYTRANSLATE (yychar); + const char* yyprefix; + char *yymsg; + int yyx; + + /* Start YYX at -YYN if negative to avoid negative indexes in + YYCHECK. */ + int yyxbegin = yyn < 0 ? -yyn : 0; + + /* Stay within bounds of both yycheck and yytname. */ + int yychecklim = YYLAST - yyn; + int yyxend = yychecklim < YYNTOKENS ? yychecklim : YYNTOKENS; + int yycount = 0; + + yyprefix = ", expecting "; + for (yyx = yyxbegin; yyx < yyxend; ++yyx) + if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR) + { + yysize += yystrlen (yyprefix) + yystrlen (yytname [yyx]); + yycount += 1; + if (yycount == 5) + { + yysize = 0; + break; + } + } + yysize += (sizeof ("syntax error, unexpected ") + + yystrlen (yytname[yytype])); + yymsg = (char *) YYSTACK_ALLOC (yysize); + if (yymsg != 0) + { + char *yyp = yystpcpy (yymsg, "syntax error, unexpected "); + yyp = yystpcpy (yyp, yytname[yytype]); + + if (yycount < 5) + { + yyprefix = ", expecting "; + for (yyx = yyxbegin; yyx < yyxend; ++yyx) + if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR) + { + yyp = yystpcpy (yyp, yyprefix); + yyp = yystpcpy (yyp, yytname[yyx]); + yyprefix = " or "; + } + } + yyerror (yymsg); + YYSTACK_FREE (yymsg); + } + else + yyerror ("syntax error; also virtual memory exhausted"); + } + else +#endif /* YYERROR_VERBOSE */ + yyerror ("syntax error"); + } + + + + if (yyerrstatus == 3) + { + /* If just tried and failed to reuse look-ahead token after an + error, discard it. */ + + if (yychar <= YYEOF) + { + /* If at end of input, pop the error token, + then the rest of the stack, then return failure. */ + if (yychar == YYEOF) + for (;;) + { + + YYPOPSTACK; + if (yyssp == yyss) + YYABORT; + yydestruct ("Error: popping", + yystos[*yyssp], yyvsp); + } + } + else + { + yydestruct ("Error: discarding", yytoken, &yylval); + yychar = YYEMPTY; + } + } + + /* Else will try to reuse look-ahead token after shifting the error + token. */ + goto yyerrlab1; + + +/*---------------------------------------------------. +| yyerrorlab -- error raised explicitly by YYERROR. | +`---------------------------------------------------*/ +yyerrorlab: + +#ifdef __GNUC__ + /* Pacify GCC when the user code never invokes YYERROR and the label + yyerrorlab therefore never appears in user code. */ + if (0) + goto yyerrorlab; +#endif + +yyvsp -= yylen; + yyssp -= yylen; + yystate = *yyssp; + goto yyerrlab1; + + +/*-------------------------------------------------------------. +| yyerrlab1 -- common code for both syntax error and YYERROR. | +`-------------------------------------------------------------*/ +yyerrlab1: + yyerrstatus = 3; /* Each real token shifted decrements this. */ + + for (;;) + { + yyn = yypact[yystate]; + if (yyn != YYPACT_NINF) + { + yyn += YYTERROR; + if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYTERROR) + { + yyn = yytable[yyn]; + if (0 < yyn) + break; + } + } + + /* Pop the current state because it cannot handle the error token. */ + if (yyssp == yyss) + YYABORT; + + + yydestruct ("Error: popping", yystos[yystate], yyvsp); + YYPOPSTACK; + yystate = *yyssp; + YY_STACK_PRINT (yyss, yyssp); + } + + if (yyn == YYFINAL) + YYACCEPT; + + *++yyvsp = yylval; + + + /* Shift the error token. */ + YY_SYMBOL_PRINT ("Shifting", yystos[yyn], yyvsp, yylsp); + + yystate = yyn; + goto yynewstate; + + +/*-------------------------------------. +| yyacceptlab -- YYACCEPT comes here. | +`-------------------------------------*/ +yyacceptlab: + yyresult = 0; + goto yyreturn; + +/*-----------------------------------. +| yyabortlab -- YYABORT comes here. | +`-----------------------------------*/ +yyabortlab: + yydestruct ("Error: discarding lookahead", + yytoken, &yylval); + yychar = YYEMPTY; + yyresult = 1; + goto yyreturn; + +#ifndef yyoverflow +/*----------------------------------------------. +| yyoverflowlab -- parser overflow comes here. | +`----------------------------------------------*/ +yyoverflowlab: + yyerror ("parser stack overflow"); + yyresult = 2; + /* Fall through. */ +#endif + +yyreturn: +#ifndef yyoverflow + if (yyss != yyssa) + YYSTACK_FREE (yyss); +#endif + return yyresult; +} + + +#line 934 "sdfparse.yy" + + + diff --git a/src/sdfparse.h b/src/sdfparse.h new file mode 100644 index 0000000..78016c4 --- /dev/null +++ b/src/sdfparse.h @@ -0,0 +1,220 @@ +/* A Bison parser, made by GNU Bison 2.0. */ + +/* Skeleton parser for Yacc-like parsing with Bison, + Copyright (C) 1984, 1989, 1990, 2000, 2001, 2002, 2003, 2004 Free Software Foundation, Inc. + + This program 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, 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. */ + +/* As a special exception, when this file is copied by Bison into a + Bison output file, you may use that output file without restriction. + This special exception was added by the Free Software Foundation + in version 1.24 of Bison. */ + +/* Tokens. */ +#ifndef YYTOKENTYPE +# define YYTOKENTYPE + /* Put the tokens into the symbol table, so that GDB and other debuggers + know about them. */ + enum yytokentype { + IF = 258, + ELSE = 259, + OROR = 260, + ANDAND = 261, + ANDANDAND = 262, + XNOR = 263, + CASE_INEQUALITY = 264, + CASE_EQUALITY = 265, + LOGICAL_INEQUALITY = 266, + LOGICAL_EQUALITY = 267, + GE = 268, + GT = 269, + LE = 270, + LT = 271, + RIGHT_SHIFT = 272, + LEFT_SHIFT = 273, + REDUCTION_NOR = 274, + REDUCTION_NAND = 275, + UNARY = 276, + INTEGER = 277, + SCALAR_CONSTANT = 278, + FLOATING = 279, + QSTRING = 280, + IDENTIFIER = 281, + BLOB = 282, + POSEDGE = 283, + NEGEDGE = 284, + DELAYFILE = 285, + SDFVERSION = 286, + DESIGN = 287, + DATE = 288, + VENDOR = 289, + PROGRAM = 290, + VERSION_ = 291, + DIVIDER = 292, + VOLTAGE = 293, + PROCESS = 294, + TEMPERATURE = 295, + TIMESCALE = 296, + CELL = 297, + CELLTYPE = 298, + INSTANCE = 299, + DELAY = 300, + TIMINGCHECK = 301, + INCLUDE = 302, + ABSOLUTE = 303, + INCREMENT = 304, + USERDEF = 305, + PATHPULSE = 306, + GLOBALPATHPULSE = 307, + IOPATH = 308, + COND = 309, + PORT = 310, + INTERCONNECT = 311, + NETDELAY = 312, + DEVICE = 313, + SETUP = 314, + HOLD = 315, + SETUPHOLD = 316, + RECOVERY = 317, + SKEW = 318, + WIDTH = 319, + PERIOD = 320, + NOCHANGE = 321, + PATHCONSTRAINT = 322, + SUM = 323, + DIFF = 324, + SKEWCONSTRAINT = 325, + MICROSECOND = 326, + NANOSECOND = 327, + PICOSECOND = 328, + EDGE_01 = 329, + EDGE_10 = 330, + EDGE_0z = 331, + EDGE_1z = 332, + EDGE_z0 = 333, + EDGE_z1 = 334, + EOF_ = 335 + }; +#endif +#define IF 258 +#define ELSE 259 +#define OROR 260 +#define ANDAND 261 +#define ANDANDAND 262 +#define XNOR 263 +#define CASE_INEQUALITY 264 +#define CASE_EQUALITY 265 +#define LOGICAL_INEQUALITY 266 +#define LOGICAL_EQUALITY 267 +#define GE 268 +#define GT 269 +#define LE 270 +#define LT 271 +#define RIGHT_SHIFT 272 +#define LEFT_SHIFT 273 +#define REDUCTION_NOR 274 +#define REDUCTION_NAND 275 +#define UNARY 276 +#define INTEGER 277 +#define SCALAR_CONSTANT 278 +#define FLOATING 279 +#define QSTRING 280 +#define IDENTIFIER 281 +#define BLOB 282 +#define POSEDGE 283 +#define NEGEDGE 284 +#define DELAYFILE 285 +#define SDFVERSION 286 +#define DESIGN 287 +#define DATE 288 +#define VENDOR 289 +#define PROGRAM 290 +#define VERSION_ 291 +#define DIVIDER 292 +#define VOLTAGE 293 +#define PROCESS 294 +#define TEMPERATURE 295 +#define TIMESCALE 296 +#define CELL 297 +#define CELLTYPE 298 +#define INSTANCE 299 +#define DELAY 300 +#define TIMINGCHECK 301 +#define INCLUDE 302 +#define ABSOLUTE 303 +#define INCREMENT 304 +#define USERDEF 305 +#define PATHPULSE 306 +#define GLOBALPATHPULSE 307 +#define IOPATH 308 +#define COND 309 +#define PORT 310 +#define INTERCONNECT 311 +#define NETDELAY 312 +#define DEVICE 313 +#define SETUP 314 +#define HOLD 315 +#define SETUPHOLD 316 +#define RECOVERY 317 +#define SKEW 318 +#define WIDTH 319 +#define PERIOD 320 +#define NOCHANGE 321 +#define PATHCONSTRAINT 322 +#define SUM 323 +#define DIFF 324 +#define SKEWCONSTRAINT 325 +#define MICROSECOND 326 +#define NANOSECOND 327 +#define PICOSECOND 328 +#define EDGE_01 329 +#define EDGE_10 330 +#define EDGE_0z 331 +#define EDGE_1z 332 +#define EDGE_z0 333 +#define EDGE_z1 334 +#define EOF_ 335 + + + + +#if ! defined (YYSTYPE) && ! defined (YYSTYPE_IS_DECLARED) +#line 93 "sdfparse.yy" +typedef union YYSTYPE { + int integer; + double floating; + char *ptr; + eScaleType_t etype; + eDelayType_t dtype; + eSDFConstruct_t stype; + eVerilogConstruct_t vtype; + char character; + creal_t creal; + triple_t triple; + elist_t elist; + port_t port; +} YYSTYPE; +/* Line 1318 of yacc.c. */ +#line 212 "sdfparse.h" +# define yystype YYSTYPE /* obsolescent; will be withdrawn */ +# define YYSTYPE_IS_DECLARED 1 +# define YYSTYPE_IS_TRIVIAL 1 +#endif + + + + + diff --git a/src/sdfparse.yy b/src/sdfparse.yy new file mode 100644 index 0000000..3f3cedd --- /dev/null +++ b/src/sdfparse.yy @@ -0,0 +1,935 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* sdfparse.y - BISON/YACC parser for sdf input */ + +%{ +#define YYERROR_VERBOSE + +#include +#include +#include +#include +#include "glue.h" +#include "sdflex.h" +#include "acc_user.h" +#include "veriuser.h" +#include "sdf.h" + +#ifdef __cplusplus + union YYSTYPE; + int sdf_lex (YYSTYPE *); +#endif // __cplusplus + +#define yymaxdepth sdf_maxdepth +#define yyparse sdf_parse +#define yylex sdf_lex +#define yyerror sdf_error +#define yylval sdf_lval +#define yychar sdf_char +#define yydebug sdf_debug +#define yypact sdf_pact +#define yyr1 sdf_r1 +#define yyr2 sdf_r2 +#define yydef sdf_def +#define yychk sdf_chk +#define yypgo sdf_pgo +#define yyact sdf_act +#define yyexca sdf_exca +#define yyerrflag sdf_errflag +#define yynerrs sdf_nerrs +#define yyps sdf_ps +#define yypv sdf_pv +#define yys sdf_s +#define yy_yys sdf_yys +#define yystate sdf_state +#define yytmp sdf_tmp +#define yyv sdf_v +#define yy_yyv sdf_yyv +#define yyval sdf_val +#define yylloc sdf_lloc +#define yyreds sdf_reds +#define yytoks sdf_toks +#define yylhs sdf_yylhs +#define yylen sdf_yylen +#define yydefred sdf_yydefred +#define yydgoto sdf_yydgoto +#define yysindex sdf_yysindex +#define yyrindex sdf_yyrindex +#define yygindex sdf_yygindex +#define yytable sdf_yytable +#define yycheck sdf_yycheck +#define yyname sdf_yyname +#define yyrule sdf_yyrule + +/* Used in BISON.SIM */ +extern char *token_buffer; + + +void initSDFParse() +{ + sdflexInit(); +} + +%} +%pure_parser + +%union { + int integer; + double floating; + char *ptr; + eScaleType_t etype; + eDelayType_t dtype; + eSDFConstruct_t stype; + eVerilogConstruct_t vtype; + char character; + creal_t creal; + triple_t triple; + elist_t elist; + port_t port; +}; + +%nonassoc IF +%nonassoc ELSE + +%right '?' ':' +%left OROR +%left ANDAND +%left ANDANDAND +%left '|' +%left '^' XNOR +%left '&' +%left LOGICAL_EQUALITY LOGICAL_INEQUALITY CASE_EQUALITY CASE_INEQUALITY +%left LT LE GT GE +%left LEFT_SHIFT RIGHT_SHIFT +%left '+' '-' +%left '*' '/' '%' +%left '(' '[' +%right '!' '~' +%right REDUCTION_NOR +%right REDUCTION_NAND +%right UNARY + + +%token INTEGER +%token SCALAR_CONSTANT +%token FLOATING +%token QSTRING +%token IDENTIFIER +%token BLOB + +%token POSEDGE +%token NEGEDGE +%token DELAYFILE +%token SDFVERSION +%token DESIGN +%token DATE +%token VENDOR +%token PROGRAM +%token VERSION_ +%token PROGRAM +%token DIVIDER +%token VOLTAGE +%token PROCESS +%token TEMPERATURE +%token TIMESCALE +%token CELL +%token CELLTYPE +%token INSTANCE +%token DELAY +%token TIMINGCHECK +%token INCLUDE +%token ABSOLUTE +%token INCREMENT +%token USERDEF +%token PATHPULSE +%token GLOBALPATHPULSE +%token IOPATH +%token COND +%token PORT +%token INTERCONNECT +%token NETDELAY +%token DEVICE +%token SETUP +%token HOLD +%token SETUPHOLD +%token RECOVERY +%token SKEW +%token WIDTH +%token PERIOD +%token NOCHANGE +%token PATHCONSTRAINT +%token SUM +%token DIFF +%token SKEWCONSTRAINT +%token MICROSECOND +%token NANOSECOND +%token PICOSECOND +%token EDGE_01 +%token EDGE_10 +%token EDGE_0z +%token EDGE_1z +%token EDGE_z0 +%token EDGE_z1 + + + +%token EOF_ + +%type real +%type preal +%type nstring +%type creal +%type rexpression +%type cpreal +%type expression +%type exp_list +%type rexp_list +%type tc_rvalue +%type double_tc_rvalue +%type value +%type rvalue +%type port +%type port_spec +%type port_path +%type port_instance +%type port_edge +%type name +%type net +%type net_instance +%type string_instance +%type ts + +%% + +sdf + : delay_file EOF_ + ; + +delay_file + : '(' DELAYFILE sdf_version design_name date vendor program_name + program_version hierarchy_divider voltage process + temperature time_scale cells rp + {} + ; + +sdf_version + : '(' SDFVERSION nstring rp + {} + ; + +design_name + : '(' DESIGN nstring rp + {} + ; + +date + : '(' DATE nstring rp + {} + ; + +vendor + : '(' VENDOR nstring rp + {} + ; + +program_name + : '(' PROGRAM nstring rp + {} + ; + +program_version + : '(' VERSION_ nstring rp + {} + ; + +hierarchy_divider + : '(' DIVIDER { setParseBlob(); } BLOB rp + {} + ; + +voltage + : '(' VOLTAGE rexpression rp + {} + | '(' VOLTAGE rp + {} + ; + +process + : '(' PROCESS nstring rp + {} + ; + +temperature + : '(' TEMPERATURE rexpression rp + {} + | '(' TEMPERATURE rp + {} + ; + +time_scale + : '(' TIMESCALE ts NANOSECOND rp + { + /* set time scale for back annotation */ + setTimeScale( $3 - 9 ); + } + | '(' TIMESCALE ts MICROSECOND rp + { + /* set time scale for back annotation */ + setTimeScale( $3 - 6 ); + } + | '(' TIMESCALE ts PICOSECOND rp + { + /* set time scale for back annotation */ + setTimeScale( $3 - 12 ); + } + | '(' TIMESCALE rp + { + /* set default (1ns) time scale for back annotation */ + setTimeScale( -9 ); + } + ; + +ts + : INTEGER + { + switch( $1 ) { + case 1: + $$ = 0; + break; + case 10: + $$ = 1; + break; + case 100: + $$ = 2; + break; + default: + sdf_error( "Timescale multiplier must be either 1,10, or 100" ); + $$ = 0; + } + } + +cells + : cell cells + | cell + | /* NULL */ + ; +cell + : '(' CELL + { + /* reset current instance */ + resetInstance(); + /* free all allocated strings */ + purgeStrings(); + } + celltype '(' instances timing_specs rp + ; + +celltype + : '(' CELLTYPE QSTRING rp + { + /* set current cell type */ + setCellType( $3 ); + } + ; + +instances + : instance '(' instances + | instance '(' + ; + +instance + : INSTANCE IDENTIFIER rp + { + /* set down thru the hierarchy */ + findInstance( $2 ); + } + | INSTANCE '*' rp + { + /* this is a wild card */ + findInstance( "*" ); + } + ; + +string_instance + : INSTANCE IDENTIFIER rp + { + $$ = $2; + } + ; + +timing_specs + : timing_spec + | timing_spec '(' timing_specs + +timing_spec + : /* NULL */ + | DELAY deltypes rp + | TIMINGCHECK {setAbsoluteDelay(TRUE);} tcdefs rp + | INCLUDE { setParseBlob(); } BLOB rp + { + sdflexOpenFile( $3 ); + } + ; + +tcdefs + : tcdef tcdefs + | tcdef + ; + +tcdef + : + '(' COND timing_check_condition tcheck rp + {} + | tcheck + {} + ; + +timing_check_condition + : /* NULL for now */ + ; + +tcheck + : '(' SETUP port_path port_spec tc_rvalue rp + { + setConstraint( eSETUP, &$3, &$4, $5 ); + } + | '(' HOLD port_path port_spec tc_rvalue rp + { + setConstraint( eHOLD, &$4, &$3, $5 ); + } + | '(' SETUPHOLD port_path port_spec double_tc_rvalue rp + { + setConstraint( eSETUPHOLD, &$4, &$3, $5 ); + } + | '(' RECOVERY port_spec port_spec tc_rvalue rp + { + setConstraint( eRECOVERY, &$4, &$3, $5 ); + } + | '(' SKEW port_spec port_spec tc_rvalue rp + { + setConstraint( eSKEW, &$3, &$4, $5 ); + } + | '(' WIDTH port_spec tc_rvalue rp + { + setConstraint( eWIDTH, &$3, NULL, $4 ); + } + | '(' PERIOD port_spec tc_rvalue rp + { + setConstraint( ePERIOD, &$3, NULL, $4 ); + } + | '(' NOCHANGE port_spec port_path double_tc_rvalue rp + { + setConstraint( eNOCHANGE, &$3, &$4, $5 ); + } + ; + +deltypes + : deltype deltypes + | deltype + ; + +deltype + : '(' ABSOLUTE + { + /* mark delay type as absolute */ + setAbsoluteDelay( TRUE ); + } + absvals rp + | '(' INCREMENT + { + /* mark delay type as incremental */ + setAbsoluteDelay( FALSE ); + } + incvals rp + ; + +absvals + : absval absvals + | absval + ; + +incvals + : incval incval + | incval + ; + +name + : port_instance + | net_instance + ; + +net_instance + : net + | string_instance net + { + $$ = $2; + $$.path = $1; + } + ; + +net + : IDENTIFIER + { + $$.path = NULL; + $$.name = $1; + $$.scalar = TRUE; + $$.edge = accNoEdge; + } + ; + +port_instance + : port_path + | string_instance port_path + { + $$ = $2; + $$.path = $1; + } + ; + + +absval + : '(' IOPATH port_spec port_path value rp + { + setConstraint( eIOPATH, &$3, &$4, $5 ); + } + | '(' COND conditional_port_expr '(' IOPATH port_spec port_path value rp rp + { + /* -------- support for COND needs to be added ----------- */ + setConstraint( eIOPATH, &$6, &$7, $8 ); + } + | '(' PORT port_path value rp + { + setConstraint( ePORT, &$3, (port_t*)NULL, $4 ); + } + | '(' INTERCONNECT port_instance port_instance value rp + { + setConstraint( eINTERCONNECT, &$3, &$4, $5 ); + } + | '(' NETDELAY name value rp + { + setConstraint( eNETDELAY, &$3, (port_t*)NULL, $4 ); + } + | '(' DEVICE value rp + { + setConstraint( eDEVICE, (port_t*)NULL, (port_t*)NULL, $3 ); + } + | '(' DEVICE port_instance value rp + { + setConstraint( eDEVICE, &$3, (port_t*)NULL, $4 ); + } + ; + +conditional_port_expr + : /* NULL for now....... */ + ; + +incval + : '(' IOPATH port_spec port_path rvalue rp + { + setConstraint( eIOPATH, &$3, &$4, $5 ); + } + | '(' COND conditional_port_expr '(' IOPATH port_spec port_path rvalue rp rp + { + /* -------- support for COND needs to be added ----------- */ + setConstraint( eIOPATH, &$6, &$7, $8 ); + } + | '(' PORT port_path rvalue rp + { + setConstraint( ePORT, &$3, (port_t*)NULL, $4 ); + } + | '(' INTERCONNECT port_instance port_instance rvalue rp + { + setConstraint( eINTERCONNECT, &$3, &$4, $5 ); + } + | '(' NETDELAY name rvalue rp + { + setConstraint( eNETDELAY, &$3, (port_t*)NULL, $4 ); + } + | '(' DEVICE value rp + { + setConstraint( eDEVICE, (port_t*)NULL, (port_t*)NULL, $3 ); + } + | '(' DEVICE port_instance rvalue rp + { + setConstraint( eDEVICE, &$3, (port_t*)NULL, $4 ); + } + ; +port_spec + : port_path + | '(' {sdfEnableEdges( TRUE ); } port_edge + { + sdfEnableEdges( FALSE ); + $$ = $3; + } + ; +port_path + : port + ; + +port + : IDENTIFIER + { + $$.path = NULL; + $$.name = $1; + $$.scalar = TRUE; + $$.edge = accNoEdge; + } + | IDENTIFIER '[' INTEGER rb + { + $$.path = NULL; + $$.name = $1; + $$.scalar = FALSE; + $$.msb = $3; + $$.lsb = $3; + $$.edge = accNoEdge; + } + | IDENTIFIER '[' INTEGER ':' INTEGER rb + { + $$.path = NULL; + $$.name = $1; + $$.scalar = FALSE; + $$.msb = $3; + $$.lsb = $5; + $$.edge = accNoedge; + } + ; + +port_edge + : POSEDGE port_path rp + { + $$ = $2; + $$.edge = accPosedge; + } + | NEGEDGE port_path rp + { + $$ = $2; + $$.edge = accNegedge; + } + | EDGE_01 port_path rp + { + $$ = $2; + $$.edge = accEdge01; + } + | EDGE_10 port_path rp + { + $$ = $2; + $$.edge = accEdge10; + } + | EDGE_z1 port_path rp + { + $$ = $2; + $$.edge = accEdgex1; + } + | EDGE_z0 port_path rp + { + $$ = $2; + $$.edge = accEdgex0; + } + | EDGE_1z port_path rp + { + $$ = $2; + $$.edge = accEdge1x; + } + | EDGE_0z port_path rp + { + $$ = $2; + $$.edge = accEdge0x; + } + ; + + +value + : '(' preal rp + { + memset( &$$, 0, sizeof($$) ); + $$.values[0].triple[0].value = $2; + $$.values[0].triple[0].valid = TRUE; + $$.values[0].triple[1].value = $2; + $$.values[0].triple[1].valid = TRUE; + $$.values[0].triple[2].value = $2; + $$.values[0].triple[2].valid = TRUE; + $$.argCount = 1; + } + | exp_list + ; + +double_tc_rvalue + : tc_rvalue tc_rvalue + { + $$.values[0] = $1.values[0]; + $$.values[1] = $2.values[0]; + $$.argCount = 2; + } + ; + +tc_rvalue + : '(' real rp + { + memset( &$$, 0, sizeof($$) ); + $$.values[0].triple[0].value = $2; + $$.values[0].triple[0].valid = TRUE; + $$.values[0].triple[1].value = $2; + $$.values[0].triple[1].valid = TRUE; + $$.values[0].triple[2].value = $2; + $$.values[0].triple[2].valid = TRUE; + $$.argCount = 1; + } + | '(' rexpression rp + { + $$.values[0] = $2; + $$.argCount = 1; + } + ; + +rvalue + : '(' real rp + { + memset( &$$, 0, sizeof($$) ); + $$.values[0].triple[0].value = $2; + $$.values[0].triple[0].valid = TRUE; + $$.values[0].triple[1].value = $2; + $$.values[0].triple[1].valid = TRUE; + $$.values[0].triple[2].value = $2; + $$.values[0].triple[2].valid = TRUE; + $$.argCount = 1; + } + | rexp_list + ; + +exp_list + : '(' expression rp + { + $$.values[0] = $2; + $$.argCount = 1; + } + | '(' expression rp '(' expression rp + { + $$.values[0] = $2; + $$.values[1] = $5; + $$.argCount = 2; + } + | '(' expression rp '(' expression rp '(' expression rp + { + $$.values[0] = $2; + $$.values[1] = $5; + $$.values[2] = $8; + $$.argCount = 3; + } + | '(' expression rp '(' expression rp '(' expression rp + '(' expression rp + { + $$.values[0] = $2; + $$.values[1] = $5; + $$.values[2] = $8; + $$.values[3] = $11; + $$.argCount = 4; + } + | '(' expression rp '(' expression rp '(' expression rp + '(' expression rp '(' expression rp + { + $$.values[0] = $2; + $$.values[1] = $5; + $$.values[2] = $8; + $$.values[3] = $11; + $$.values[4] = $14; + $$.argCount = 5; + } + | '(' expression rp '(' expression rp '(' expression rp + '(' expression rp '(' expression rp '(' expression rp + { + $$.values[0] = $2; + $$.values[1] = $5; + $$.values[2] = $8; + $$.values[3] = $11; + $$.values[4] = $14; + $$.values[5] = $17; + $$.argCount = 6; + } + ; + + +rexp_list + : '(' rexpression rp + { + $$.values[0] = $2; + $$.argCount = 1; + } + | '(' rexpression rp '(' rexpression rp + { + $$.values[0] = $2; + $$.values[1] = $5; + $$.argCount = 2; + } + | '(' rexpression rp '(' rexpression rp '(' rexpression rp + { + $$.values[0] = $2; + $$.values[1] = $5; + $$.values[2] = $8; + $$.argCount = 3; + } + | '(' rexpression rp '(' rexpression rp '(' rexpression rp + '(' rexpression rp + { + $$.values[0] = $2; + $$.values[1] = $5; + $$.values[2] = $8; + $$.values[3] = $11; + $$.argCount = 4; + } + | '(' rexpression rp '(' rexpression rp '(' rexpression rp + '(' rexpression rp '(' rexpression rp + { + $$.values[0] = $2; + $$.values[1] = $5; + $$.values[2] = $8; + $$.values[3] = $11; + $$.values[4] = $14; + $$.argCount = 5; + } + | '(' rexpression rp '(' rexpression rp '(' rexpression rp + '(' rexpression rp '(' rexpression rp '(' rexpression rp + { + $$.values[0] = $2; + $$.values[1] = $5; + $$.values[2] = $8; + $$.values[3] = $11; + $$.values[4] = $14; + $$.values[5] = $17; + $$.argCount = 6; + } + ; + +rexpression + : real ':' creal ':' creal + { + $$.triple[0].value = $1; + $$.triple[0].valid = TRUE; + $$.triple[1] = $3; + $$.triple[2] = $5; + } + | creal ':' real ':' creal + { + $$.triple[0] = $1; + $$.triple[1].value = $3; + $$.triple[1].valid = TRUE; + $$.triple[2] = $5; + } + | creal ':' creal ':' real + { + $$.triple[0] = $1; + $$.triple[1] = $3; + $$.triple[2].value = $5; + $$.triple[2].valid = TRUE; + } + | /* NULL */ + { + $$.triple[0].valid = FALSE; + $$.triple[1].valid = FALSE; + $$.triple[2].valid = FALSE; + } + ; + +expression + : preal ':' cpreal ':' cpreal + { + $$.triple[0].value = $1; + $$.triple[0].valid = TRUE; + $$.triple[1] = $3; + $$.triple[2] = $5; + } + | cpreal ':' preal ':' cpreal + { + $$.triple[0] = $1; + $$.triple[1].value = $3; + $$.triple[1].valid = TRUE; + $$.triple[2] = $5; + } + | cpreal ':' cpreal ':' preal + { + $$.triple[0] = $1; + $$.triple[1] = $3; + $$.triple[2].value = $5; + $$.triple[2].valid = TRUE; + } + | /* NULL */ + { + $$.triple[0].valid = FALSE; + $$.triple[1].valid = FALSE; + $$.triple[2].valid = FALSE; + } + ; + +real + : preal + | '+' preal + { $$ = $2; } + | '-' preal + { $$ = -$2; } + ; +preal + : FLOATING + | INTEGER + { $$ = (double) $1; } + ; + +creal + : real + { + $$.value = $1; + $$.valid = TRUE; + } + | /* NULL */ + { $$.valid = FALSE; } + ; + +cpreal + : preal + { + $$.value = $1; + $$.valid = TRUE; + } + | /* NULL */ + { $$.valid = FALSE; } + ; + +nstring + : QSTRING + | /* NULL */ + { $$ = ""; } + ; + +/* +"Important" terminals +*/ + +rp + : ')' + { yyerrok; } + ; + +rb + : ']' + { yyerrok; } + | error + { yyerrok; } + ; + +%% + diff --git a/src/specify.cc b/src/specify.cc new file mode 100644 index 0000000..7586878 --- /dev/null +++ b/src/specify.cc @@ -0,0 +1,1800 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ +/********************************************************************** + * + * specify.c + * - specify block code + * + ********************************************************************** + */ + +#define SPECIFY_C + +#include +#include +#include "vtypes.h" +#include "tree.h" +#include "specify.h" +#include "decl.h" +#include "schedule.h" +#include "parse.h" +#include "acc_user.h" +#include "pli.h" +#include "systask.h" +#include "strobe.h" +#include "gates.h" +#include "io.h" +#include "eval.h" +#include "pass3.h" +#include "store.h" +#include "veriwell.h" +#include "glue.h" +#include "print.h" +#include "copy.h" +#include "timescal.h" + +#define edgeMask(a,b) (edge_mask[(a)][(b)]) +#if 0 // obsolate +unsigned int edge_mask[4][4] = { +/* 0 1 Z X */ +/* 0 */ 0x0000, 0x0002, 0x0008, 0x0008, +/* 1 */ 0x0010, 0x0000, 0x0080, 0x0080, +/* Z */ 0x1000, 0x2000, 0x0000, 0x0000, +/* X */ 0x1000, 0x2000, 0x0000, 0x0000 +}; + +unsigned int posedgeMask = 0x8 | 0x2 | 0x2000; +unsigned int alledgeMask = 0x309a; +unsigned int negedgeMask = 0x80 | 0x10 | 0x1000; +#endif // 0 + +unsigned int edge_mask[4][4] = { +/* 0 1 Z X */ +/* 0 */ accNoedge, accEdge01, accEdge0x, accEdge0x, +/* 1 */ accEdge10, accNoedge, accEdge1x, accEdge1x, +/* Z */ accEdgex0, accEdgex1, accNoedge, accNoedge, +/* X */ accEdgex0, accEdgex1, accNoedge, accNoedge +}; + +unsigned int posedgeMask = accPosedge; +unsigned int alledgeMask = accPosedge + accNegedge; +unsigned int negedgeMask = accNegedge; + + + +extern tree current_scope; +extern struct Marker_info marker_info; +extern Group **R; +extern lineno_t stmt_lineno; +extern lineno_t lineno; +extern char *input_filename; +extern int in_initial; + + +#define minimum(a,b) ((a)>(b)?(b):(a)) +#define maximum(a,b) ((a)<(b)?(b):(a)) + + +/********************************************************************** + * + * check_input_port + * - verify the given identifier is currently defined + * as an input or inout port + * + ********************************************************************** + */ +tree check_input_port(tree identifier) +{ + tree t = IDENT_CURRENT_DECL(identifier); + + /* validate port ref */ + if (!t || DECL_CONTEXT(t) != current_scope /* || + root_port_decl(t) != identifier */ ) { + error("'%s' is not in the port list", IDENT(identifier), + NULL_CHAR); + return (error_mark_node); + } + if (!PORT_INPUT_ATTR(t)) { + error("'%s' is not an input or inout port", IDENT(identifier), + NULL_CHAR); + return (error_mark_node); + } + return (identifier); +} + +/********************************************************************** + * + * check_output_port + * - verify the given identifier is currently defined + * as an output or inout port + * + ********************************************************************** + */ +tree check_output_port(tree identifier) +{ + tree t = IDENT_CURRENT_DECL(identifier); + + /* validate port ref */ + if (!t || DECL_CONTEXT(t) != current_scope /* || + root_port_decl(t) != identifier */ ) { + error("'%s' is not in the port list", IDENT(identifier), + NULL_CHAR); + return (error_mark_node); + } + if (!PORT_OUTPUT_ATTR(t)) { + error("'%s' is not an output or inout port", IDENT(identifier), + NULL_CHAR); + return (error_mark_node); + } + return (identifier); +} + +/********************************************************************** + * + * check_path + * validate path arguments + * + ********************************************************************** + */ +tree check_path(tree path) +{ + runtime_error(path); + + if (PATH_SOURCE(path) != NULL_TREE) { + warning("Edge sensitive paths are not supported in this version", + NULL_CHAR, NULL_CHAR); + if (TREE_CHAIN(PATH_INPUTS(path))) { + error + ("Multiple inputs are not allowed for edge sensitive paths", + NULL_CHAR, NULL_CHAR); + } + } else if (PATH_CONDITION(path) != NULL_TREE) { + warning("Level sensitive paths are not supported in this version", + NULL_CHAR, NULL_CHAR); + } else if (PATH_POLARITY(path) != 0) { + warning("Polarized paths are not supported in this version", + NULL_CHAR, NULL_CHAR); + } else if (PATH_PARALLEL(path)) { + warning("Parallel paths are not supported in this version", + NULL_CHAR, NULL_CHAR); + } +// If you follow the cadence bnf this is correct but..... +// if( PATH_PARALLEL(path) && (TREE_CHAIN(PATH_OUTPUTS(path)) || +// TREE_CHAIN(PATH_INPUTS(path)) ) ) { +// error( "Multiple inputs/outputs are not allowed for with => paths", +// NULL_CHAR, NULL_CHAR ); +// } + + return (path); +} + +/********************************************************************** + * + * specify_save_param_list + * - save specparam list in module + * + ********************************************************************** + */ + +void specify_save_param_list(tree currentModule, tree list) +{ + + tree t; + + /* + convert all PARAM_DECL's to SPECPARAM_DECL's + validate param list: + should not contain any parameter refs in expressions ?????? + */ + + for (t = list; t; t = TREE_CHAIN(t)) { + ASSERT(TREE_CODE(t) == PARAM_DECL); + TREE_SET_CODE(t, SPECPARAM_DECL); + } + + /* append list to spec params of current scope + */ + + MODULE_SPECDEFS(currentModule) = + chainon(list, MODULE_SPECDEFS(currentModule)); + +} + + +/********************************************************************** + * + * build_path( tree inputs, tree outputs, int parallelFlag ) + * - create a PATH_NODE + * + ********************************************************************** + */ + +tree +build_path(tree inputs, tree outputs, tree source, tree delays, + tree condition, int parallelFlag, int edge, int polarity) +{ + tree t; + + ASSERT(parallelFlag == TRUE || parallelFlag == FALSE); + ASSERT(outputs != NULL_TREE); + ASSERT(inputs != NULL_TREE); + ASSERT(edge >= -1 && edge <= 1); + ASSERT(polarity >= -1 && polarity <= 1); + + t = make_node(PATH_NODE); + PATH_SOURCE_LINE(t) = lineno; + PATH_SOURCE_FILE(t) = input_filename; + PATH_SOURCE(t) = source; + PATH_DELAYS(t) = delays; + PATH_INPUTS(t) = inputs; + PATH_OUTPUTS(t) = outputs; + PATH_PARALLEL(t) = parallelFlag; + PATH_EDGE(t) = edge; + PATH_CONDITION(t) = condition; + PATH_POLARITY(t) = polarity; + return (t); +} + +/********************************************************************** + * + * insert_specify_paths( tree module ) + * - validate and insert specify paths + * + ********************************************************************** + */ +void insert_specify_paths(tree module) +{ + tree paths; + tree out_list; + tree out_decl; + tree out_ident; + tree t; + tree gate; + int driver_count; + int msb; + int lsb; + int bitNumber; + tree instance; + int outputNumber; + + + ASSERT(module != NULL_TREE); + for (paths = MODULE_SPECDEFS(module); paths; paths = TREE_CHAIN(paths)) { + if (TREE_CODE(paths) != PATH_NODE) { + continue; + } + runtime_error(paths); + + /* this node is only used by pli to iterate though the modpaths */ + + instance = make_node(PATH_INSTANCE); + PATH_INSTANCE_MODULE(instance) = module; + PATH_INSTANCE_PATHDESC(instance) = paths; + TREE_CHAIN(instance) = MODULE_SPECINST(module); + MODULE_SPECINST(module) = instance; + + outputNumber = 0; + for (out_list = PATH_OUTPUTS(paths); out_list; + out_list = TREE_CHAIN(out_list)) { + t = TREE_PURPOSE(out_list); + ASSERT(t != NULL_TREE); + switch (TREE_CODE(t)) { + case PART_REF: + out_ident = PART_NAME(t); + out_decl = IDENT_CURRENT_DECL(out_ident); + msb = + get_range(PART_MSB_(t), IDENTIFIER_POINTER(out_ident)); + lsb = + get_range(PART_LSB_(t), IDENTIFIER_POINTER(out_ident)); + break; + case BIT_REF: + out_ident = BIT_REF_NAME(t); + out_decl = IDENT_CURRENT_DECL(out_ident); + msb = + get_range(BIT_EXPR(t), IDENTIFIER_POINTER(out_ident)); + lsb = msb; + break; + + + default: + out_ident = t; + out_decl = IDENT_CURRENT_DECL(out_ident); + if (TREE_CODE(out_decl) == NET_VECTOR_DECL) { + msb = MSB(out_decl); + lsb = LSB(out_decl); + } else { + msb = 0; + lsb = 0; + } + break; + } + ASSERT(out_decl != NULL_TREE); + if (lsb > msb) { + int temp; + temp = lsb; + lsb = msb; + msb = temp; + } + for (bitNumber = lsb; bitNumber <= msb; bitNumber++) { + driver_count = get_driver_count(out_decl, bitNumber); + if (driver_count == 0) { + error + ("specify path for net %s does not connect to a gate primitive", + IDENT(out_ident), NULL_CHAR); + continue; + } + if (driver_count > 1) { + error("net %s has more than one driver", + IDENT(out_ident), NULL_CHAR); + return; + } + gate = get_first_driver(out_decl, bitNumber); + ASSERT(gate != NULL_TREE); + if (TREE_CODE(gate) != GATE_INSTANCE) { + warning + ("specify path for net %s does not connect to a gate primitive", + IDENT(out_ident), NULL_CHAR); + return; + } + switch ((int) TREE_TYPE(gate)) { + case GATE_AND_TYPE: + case GATE_NAND_TYPE: + case GATE_OR_TYPE: + case GATE_NOR_TYPE: + case GATE_XOR_TYPE: + case GATE_XNOR_TYPE: + case GATE_BUF_TYPE: + case GATE_NOT_TYPE: + case GATE_BUFIF0_TYPE: + case GATE_BUFIF1_TYPE: + case GATE_NOTIF0_TYPE: + case GATE_NOTIF1_TYPE: + case GATE_NMOS_TYPE: + case GATE_PMOS_TYPE: + case GATE_RNMOS_TYPE: + case GATE_RPMOS_TYPE: + case GATE_CMOS_TYPE: + case GATE_RCMOS_TYPE: + case GATE_UDP_TYPE: + break; + + case GATE_TRAN_TYPE: + case GATE_RTRAN_TYPE: + case GATE_TRANIF0_TYPE: + case GATE_TRANIF1_TYPE: + case GATE_RTRANIF0_TYPE: + case GATE_RTRANIF1_TYPE: + error + ("specify paths cannot be assigned to bidirectional switch\n", + NULL_CHAR, NULL_CHAR); + return; + + case GATE_PULLUP_TYPE: + case GATE_PULLDN_TYPE: + error + ("specify paths cannot be assigned to pullups or pulldowns\n", + NULL_CHAR, NULL_CHAR); + return; + + default: + ASSERT(FALSE); + } + if (TREE_CHAIN(GATE_OUTPUT_LIST(gate)) != NULL_TREE) { + error + ("specify paths cannot be assigned to buf/not gates driving multiple outputs\n", + NULL_CHAR, NULL_CHAR); + return; + } + add_spec_to_gate(module, gate, paths, outputNumber); + outputNumber++; + } + } + } +} + +/********************************************************************** + * + * is_driven_by + * - return TRUE if decl[bit] is driven by gate + * bit is ignore if scalar + * + ********************************************************************** + */ +int is_driven_by(tree driver, tree decl, int bit) +{ + tree t; + tree t1; + int lsb; + int msb; + tree surrogate; + + if (TREE_CODE(driver) != GATE_INSTANCE) { + return (TRUE); + } + for (t = GATE_OUTPUT_LIST(driver); t != NULL_TREE; t = TREE_CHAIN(t)) { + ASSERT(TREE_CODE(t) == TREE_LIST); + t1 = TREE_PURPOSE(t); + switch (TREE_CODE(t1)) { + case BIT_REF: + surrogate = BIT_REF_DECL(t1); + ASSERT(surrogate != NULL_TREE); + if (TREE_CHAIN(surrogate) != decl) { + return (FALSE); + } + msb = get_range(BIT_EXPR(t1), + IDENTIFIER_POINTER(BIT_REF_NAME(t1))); + if (msb == bit) { + return (TRUE); + } + break; + case PART_REF: + surrogate = PART_DECL(t1); + ASSERT(surrogate != NULL_TREE); + if (TREE_CHAIN(surrogate) != decl) { + return (FALSE); + } + msb = get_range(PART_MSB_(t1), + IDENTIFIER_POINTER(PART_NAME(t1))); + lsb = get_range(PART_LSB_(t1), + IDENTIFIER_POINTER(PART_NAME(t1))); + if (bit >= lsb && bit <= msb) { + return (TRUE); + } + break; + default: + surrogate = t1; + ASSERT(surrogate != NULL_TREE); + if (TREE_CHAIN(surrogate) == decl) { + return (TRUE); + } + break; + } + } + return (FALSE); +} + +/********************************************************************** + * + * get_driver_count(tree decl, int bit) + * - count the number of drivers on net given its decl + * + ********************************************************************** + */ + +int get_driver_count(tree decl, int bit) +{ + int count; + tree t; + tree driver; + + ASSERT(decl != NULL_TREE); + count = 0; + for (t = NET_SOURCE(decl); t; t = NET_SOURCE(t)) { + driver = NET_ASSIGNMENT(t); + if (driver != NULL && TREE_CODE(driver) == TREE_LIST && + GATE_TERMINAL_GATE(driver) != NULL && + TREE_CODE(GATE_TERMINAL_GATE(driver)) == GATE_INSTANCE) { + driver = GATE_TERMINAL_GATE(driver); + } + if (driver == NULL || is_driven_by(driver, decl, bit)) { + count++; + } + } + return (count); +} + +/********************************************************************** + * + * get_first_driver(tree decl, bit) + * - return the first driver of the net given its decl + * + ********************************************************************** + */ + +tree get_first_driver(tree decl, int bit) +{ + int count; + tree t; + tree driver; + + ASSERT(decl != NULL_TREE); + for (t = NET_SOURCE(decl); t; t = NET_SOURCE(t)) { + driver = NET_ASSIGNMENT(t); + if (driver != NULL && TREE_CODE(driver) == TREE_LIST && + GATE_TERMINAL_GATE(driver) != NULL && + TREE_CODE(GATE_TERMINAL_GATE(driver)) == GATE_INSTANCE) { + driver = GATE_TERMINAL_GATE(driver); + } + if (driver == NULL || is_driven_by(driver, decl, bit)) { + return (driver); + } + } + return (NULL_TREE); +} + +/********************************************************************** + * + * add_spec_to_gate( tree module, tree driver, tree pathdesc ) + * - add path info to gate + * + * + ********************************************************************** + */ + +void +add_spec_to_gate(tree module, tree gate, tree pathdesc, int outputNumber) +{ + tree t; + tree spec; + + ASSERT(pathdesc != NULL_TREE); + ASSERT(gate != NULL_TREE); + + ASSERT(TREE_CODE(gate) == GATE_INSTANCE); + spec = GATE_PATH_OUTPUT(gate); + if (spec == NULL_TREE) { + spec = make_node(PATH_OUTPUT); + PATH_OUTPUT_GATE(spec) = gate; + GATE_PATH_OUTPUT(gate) = spec; + PATH_OUTPUT_VALUE(spec) = X; + PATH_OUTPUT_CURRENT_VALUE(spec) = X; + PATH_OUTPUT_PATHDESC(spec) = NULL_TREE; + PATH_OUTPUT_CONSTRAINTS(spec) = NULL_TREE; + PATH_OUTPUT_SCB(spec) = BuildSCB(spec, NOLIST); + TREE_CHAIN(spec) = MODULE_SPECINST(module); + MODULE_SPECINST(module) = spec; + } + + t = make_node(TREE_LIST); + t->common.sub_label = outputNumber; + TREE_PURPOSE(t) = pathdesc; + TREE_CHAIN(t) = PATH_OUTPUT_PATHDESC(spec); + PATH_OUTPUT_PATHDESC(spec) = t; +// TREE_CHAIN(spec) = MODULE_SPECINST(module); +// MODULE_SPECINST(module) = spec; + + + +} + +/********************************************************************** + * + * pass3_specify( tree spec ) + * - perform pass3 setup on specify path. + * + ********************************************************************** + */ + +void pass3_specify(tree gate) +{ + tree in_list; + tree t; + tree pathdesc; + tree pathdescList; + tree decl; + tree constraint; + tree spec; + tree ref; + tree t1; + tree instance; + + ASSERT(gate != NULL_TREE); + ASSERT(TREE_CODE(gate) == GATE_INSTANCE); + spec = GATE_PATH_OUTPUT(gate); + if (spec == NULL_TREE) { + return; + } + pathdescList = PATH_OUTPUT_PATHDESC(spec); + if (pathdescList == NULL_TREE) { + return; + } + + for (; pathdescList; pathdescList = TREE_CHAIN(pathdescList)) { + ASSERT(TREE_CODE(pathdescList) == TREE_LIST); + pathdesc = TREE_PURPOSE(pathdescList); + ASSERT(pathdesc != NULL_TREE); + + /* find instance */ + for (instance = MODULE_SPECINST(GATE_SCOPE(gate)); + instance; instance = TREE_CHAIN(instance)) { + + if (TREE_CODE(instance) != PATH_INSTANCE) { + continue; + } + if (PATH_INSTANCE_PATHDESC(instance) == pathdesc) { + break; + } + } + ASSERT(instance != NULL); + constraint = make_node(PATH_CONSTRAINT); + PATH_CONSTRAINT_OUTPUT_NUMBER(constraint) = + pathdescList->common.sub_label; + PATH_CONSTRAINT_DEPENDENCIES(constraint) = NULL_TREE; + PATH_CONSTRAINT_INSTANCE(constraint) = instance; + PATH_CONSTRAINT_PATHDESC(constraint) = pathdesc; + TREE_CHAIN(constraint) = PATH_OUTPUT_CONSTRAINTS(spec); + PATH_OUTPUT_CONSTRAINTS(spec) = constraint; + runtime_error(pathdesc); + calculate_delays(constraint); + for (in_list = PATH_INPUTS(pathdesc); in_list; + in_list = TREE_CHAIN(in_list)) { + t = make_node(TREE_LIST); + MODPATH_INPUT_TERMINAL_PARENT(t) = constraint; + if (PATH_CONSTRAINT_DEPENDENCIES(constraint) == NULL) { + PATH_CONSTRAINT_DEPENDENCIES(constraint) = t; + } else { + for (t1 = PATH_CONSTRAINT_DEPENDENCIES(constraint); + TREE_CHAIN(t1); t1 = TREE_CHAIN(t1)); + TREE_CHAIN(t1) = t; + } + ref = TREE_PURPOSE(in_list); + ASSERT(ref); + switch (TREE_CODE(ref)) { + case BIT_REF: + TREE_PURPOSE(t) = + build_bit_ref(BIT_REF_NAME(ref), BIT_EXPR(ref)); + ref = TREE_PURPOSE(t); + decl = IDENT_CURRENT_DECL(BIT_REF_NAME(ref)); + BIT_REF_DECL(ref) = decl; + ASSERT(decl != NULL_TREE); + break; + + case PART_REF: + TREE_PURPOSE(t) = + build_part_ref(PART_NAME(ref), PART_MSB_(ref), + PART_LSB_(ref)); + ref = TREE_PURPOSE(t); + decl = IDENT_CURRENT_DECL(PART_NAME(ref)); + PART_DECL(ref) = decl; + ASSERT(decl != NULL_TREE); + break; + + default: + decl = IDENT_CURRENT_DECL(ref); + ASSERT(decl != NULL_TREE); + TREE_PURPOSE(t) = decl; + break; + } + } + } +} + +/********************************************************************** + * + * handle_specify_path + * - check specify path and schedule if needed + * return TRUE if propagation will be handled by + * specify_block node + * + ********************************************************************** + */ + +int handle_specify_path(tree gate) +{ + enum logical_value oldValue; + enum logical_value newValue; + delay_t delay; + tree dependency; + tree constraint; + tree t; + time64 latestTime; + delay_t currentDelay; + tree spec; + BOOL result; + BOOL compareFlag; + + ASSERT(gate != NULL_TREE); + ASSERT(TREE_CODE(gate) == GATE_INSTANCE); + spec = GATE_PATH_OUTPUT(gate); + ASSERT(spec != NULL_TREE); + ASSERT(!in_initial); + + + latestTime.timeh = 0; + latestTime.timel = 0; + + result = FALSE; + delay = INT_MAX; + newValue = GATE_OUTPUT(gate); + oldValue = PATH_OUTPUT_CURRENT_VALUE(spec); + ASSERT(PATH_OUTPUT_CONSTRAINTS(spec) != NULL_TREE); + for (constraint = PATH_OUTPUT_CONSTRAINTS(spec); constraint; + constraint = TREE_CHAIN(constraint)) { + ASSERT(TREE_CODE(constraint) == PATH_CONSTRAINT); + ASSERT(PATH_CONSTRAINT_DEPENDENCIES(constraint) != NULL_TREE); + for (t = PATH_CONSTRAINT_DEPENDENCIES(constraint); t; + t = TREE_CHAIN(t)) { + ASSERT(TREE_CODE(t) == TREE_LIST); + dependency = TREE_PURPOSE(t); + ASSERT(dependency != NULL_TREE); + + // this is a hack for now - any bit will activate + switch (TREE_CODE(dependency)) { + case BIT_REF: + dependency = BIT_REF_DECL(dependency); + ASSERT(dependency != NULL_TREE); + break; + case PART_REF: + dependency = PART_DECL(dependency); + ASSERT(dependency != NULL_TREE); + break; + } + if (CMPTIME64(&latestTime, &DECL_UPDATE_TIME(dependency)) < 0) { + ASSIGNTIME64(&latestTime, &DECL_UPDATE_TIME(dependency)); + delay = + PATH_CONSTRAINT_DELAY(constraint, oldValue, newValue); + } else + if (CMPTIME64(&latestTime, &DECL_UPDATE_TIME(dependency)) + == 0) { + currentDelay = + PATH_CONSTRAINT_DELAY(constraint, oldValue, newValue); + if (currentDelay < delay) { + delay = currentDelay; + } + } + + } + } + ADDTIME6432(&latestTime, &latestTime, delay); + compareFlag = CMPTIME64(&latestTime, &CurrentTime); + if (compareFlag >= 0) { + + /* this should work for the wrap around case */ + + delay = latestTime.timel - CurrentTime.timel; + // this is a test kludge +// if( PATH_OUTPUT_VALUE(spec)==PATH_OUTPUT_CURRENT_VALUE(spec) ) { + Schedule(delay, PATH_OUTPUT_SCB(spec), 0); +// } + PATH_OUTPUT_VALUE(spec) = newValue; + result = TRUE; + } else { + PATH_OUTPUT_VALUE(spec) = newValue; + PATH_OUTPUT_CURRENT_VALUE(spec) = newValue; + } + return (result); +} + +/********************************************************************** + * + * propagate_specify_path( tree pc ) + * - pass on specify path output + * + ********************************************************************** + */ +void propagate_specify_path(tree pc) +{ + tree gate; + + ASSERT(pc != NULL_TREE); + ASSERT(TREE_CODE(pc) == PATH_OUTPUT); + gate = PATH_OUTPUT_GATE(pc); + ASSERT(gate != NULL_TREE); + ASSERT(TREE_CODE(gate) == GATE_INSTANCE); + propagate_specify_output(gate, PATH_OUTPUT_VALUE(pc)); + PATH_OUTPUT_CURRENT_VALUE(pc) = PATH_OUTPUT_VALUE(pc); +} + +/********************************************************************** + * + * calculate_delays( tree constraint ) + * - recalculate the delays for path. + * + ********************************************************************** + */ + +void calculate_delays(tree constraint) +{ + int delays[6]; + tree t; + int count; + tree pathdesc; + nbits_t *dummy; + + ASSERT(X >= 0 && X <= 3); + ASSERT(Z >= 0 && Z <= 3); + ASSERT(ONE >= 0 && ONE <= 3); + ASSERT(ZERO >= 0 && ZERO <= 3); + ASSERT(constraint != NULL); + ASSERT(TREE_CODE(constraint) == PATH_CONSTRAINT); + pathdesc = PATH_CONSTRAINT_PATHDESC(constraint); + ASSERT(pathdesc != NULL_TREE); + ASSERT(TREE_CODE(pathdesc) == PATH_NODE); + for (t = PATH_DELAYS(pathdesc), count = 0; t; + t = TREE_CHAIN(t), count++) { + ASSERT(count < 6); + ASSERT(TREE_PURPOSE(t) != NULL_TREE); + delays[count] = get_delay(TREE_PURPOSE(t)); + } + switch (count) { + case 1: + PATH_CONSTRAINT_DELAY(constraint, ZERO, ONE) = delays[0]; + PATH_CONSTRAINT_DELAY(constraint, ONE, ZERO) = delays[0]; + PATH_CONSTRAINT_DELAY(constraint, ZERO, Z) = delays[0]; + PATH_CONSTRAINT_DELAY(constraint, Z, ONE) = delays[0]; + PATH_CONSTRAINT_DELAY(constraint, ONE, Z) = delays[0]; + PATH_CONSTRAINT_DELAY(constraint, Z, ZERO) = delays[0]; + break; + case 2: + PATH_CONSTRAINT_DELAY(constraint, ZERO, ONE) = delays[0]; + PATH_CONSTRAINT_DELAY(constraint, ZERO, Z) = delays[0]; + PATH_CONSTRAINT_DELAY(constraint, Z, ONE) = delays[0]; + + PATH_CONSTRAINT_DELAY(constraint, ONE, Z) = delays[1]; + PATH_CONSTRAINT_DELAY(constraint, Z, ZERO) = delays[1]; + PATH_CONSTRAINT_DELAY(constraint, ONE, ZERO) = delays[1]; + break; + case 3: + PATH_CONSTRAINT_DELAY(constraint, ZERO, ONE) = delays[0]; + PATH_CONSTRAINT_DELAY(constraint, Z, ONE) = delays[0]; + + PATH_CONSTRAINT_DELAY(constraint, ONE, ZERO) = delays[1]; + PATH_CONSTRAINT_DELAY(constraint, Z, ZERO) = delays[1]; + + PATH_CONSTRAINT_DELAY(constraint, ZERO, Z) = delays[2]; + PATH_CONSTRAINT_DELAY(constraint, ONE, Z) = delays[2]; + break; + case 6: + PATH_CONSTRAINT_DELAY(constraint, ZERO, ONE) = delays[0]; + PATH_CONSTRAINT_DELAY(constraint, ONE, ZERO) = delays[1]; + PATH_CONSTRAINT_DELAY(constraint, ZERO, Z) = delays[2]; + PATH_CONSTRAINT_DELAY(constraint, Z, ONE) = delays[3]; + PATH_CONSTRAINT_DELAY(constraint, ONE, Z) = delays[4]; + PATH_CONSTRAINT_DELAY(constraint, Z, ZERO) = delays[5]; + break; + default: + ASSERT(FALSE); + } + setXPathConstraints(constraint); + +} + +/********************************************************************** + * + * setXPathConstraints( tree constraint ) + * - calculate the x delays for paths + * + ********************************************************************** + */ +void setXPathConstraints(tree constraint) +{ + ASSERT(constraint != NULL); + ASSERT(TREE_CODE(constraint) == PATH_CONSTRAINT); + + PATH_CONSTRAINT_DELAY(constraint, ZERO, X) = + minimum(PATH_CONSTRAINT_DELAY(constraint, ZERO, Z), + PATH_CONSTRAINT_DELAY(constraint, ZERO, ONE)); + PATH_CONSTRAINT_DELAY(constraint, ONE, X) = + minimum(PATH_CONSTRAINT_DELAY(constraint, ONE, Z), + PATH_CONSTRAINT_DELAY(constraint, ONE, ZERO)); + PATH_CONSTRAINT_DELAY(constraint, Z, X) = + minimum(PATH_CONSTRAINT_DELAY(constraint, Z, ONE), + PATH_CONSTRAINT_DELAY(constraint, Z, ZERO)); + PATH_CONSTRAINT_DELAY(constraint, X, ZERO) = + maximum(PATH_CONSTRAINT_DELAY(constraint, Z, ZERO), + PATH_CONSTRAINT_DELAY(constraint, ONE, ZERO)); + PATH_CONSTRAINT_DELAY(constraint, X, ONE) = + maximum(PATH_CONSTRAINT_DELAY(constraint, Z, ONE), + PATH_CONSTRAINT_DELAY(constraint, ZERO, ONE)); + PATH_CONSTRAINT_DELAY(constraint, X, Z) = + maximum(PATH_CONSTRAINT_DELAY(constraint, ONE, Z), + PATH_CONSTRAINT_DELAY(constraint, ZERO, Z)); + +} + +/********************************************************************** + * + * specify_update_timings( tree module ) + * - recalculate the delays for paths in module and + * timing checks. + * + ********************************************************************** + */ + +void specify_update_timings(tree module) +{ + tree t; + tree constraint; + + ASSERT(module != NULL_TREE); + ASSERT(TREE_CODE(module) == MODULE_BLOCK); + + for (t = MODULE_SPECINST(module); t; t = TREE_CHAIN(t)) { + if (TREE_CODE(t) == PATH_OUTPUT) { + ASSERT(PATH_OUTPUT_CONSTRAINTS(t) != NULL_TREE); + for (constraint = PATH_OUTPUT_CONSTRAINTS(t); constraint; + constraint = TREE_CHAIN(constraint)) { + ASSERT(TREE_CODE(constraint) == PATH_CONSTRAINT); + calculate_delays(constraint); + } + } else if (TREE_CODE(t) == TIMING_CHECK) { + calculate_params(t); + } + } + +} + +/********************************************************************** + * + * build_timing_event + * - build parse node for an event related to a timing check. + * + ********************************************************************** + */ + +tree build_timing_event(int edge, tree expression, tree condition) +{ + tree t; + + ASSERT(expression != NULL_TREE); + t = make_node(TIMING_EVENT); + TIMING_EVENT_EXPRESSION(t) = expression; + TIMING_EVENT_CONDITION(t) = condition; + TIMING_EVENT_EDGESPEC(t) = edge; + return (t); +} + +/********************************************************************** + * + * build_timing_statement + * - build parse node for a timing check. + * + ********************************************************************** + */ + +tree +build_timing_statement(int checkType, tree event1, tree event2, + tree param1, tree param2, tree notifier) +{ + tree t; + + ASSERT(checkType == SETUP || + checkType == HOLD || + checkType == WIDTH || + checkType == PERIOD || + checkType == SKEW || + checkType == RECOVERY || checkType == SETUPHOLD); + t = make_node(CHECK_SPEC); + CHECK_SPEC_EVENT1(t) = event1; + CHECK_SPEC_EVENT2(t) = event2; + CHECK_SPEC_PARAM1(t) = param1; + CHECK_SPEC_PARAM2(t) = param2; + CHECK_SPEC_NOTIFIER(t) = notifier; + CHECK_SPEC_CHECKTYPE(t) = checkType; + return (t); + +} + +/********************************************************************** + * + * pass3_timing_check( tree check ) + * - perform pass3 setup on timing checks. + * + ********************************************************************** + */ + +void pass3_timing_check(tree check, tree module) +{ + tree event1; + tree event2; + tree condition1; + tree condition2; + unsigned int edgeSpec1; + unsigned int edgeSpec2; + tree expression; + tree timing_check; + unsigned int msb1; + unsigned int msb2; + unsigned int lsb1; + unsigned int lsb2; + tree decl1; + tree decl2; + tree expr1; + tree expr2; + tree notifier; + unsigned int i; + unsigned int j; + unsigned int temp; + + ASSERT(check != NULL_TREE); + ASSERT(TREE_CODE(check) == CHECK_SPEC); + event1 = CHECK_SPEC_EVENT1(check); + ASSERT(event1 != NULL_TREE); + event2 = CHECK_SPEC_EVENT2(check); // note event2 may be null + runtime_error(check); + + if (CHECK_SPEC_NOTIFIER(check)) { +// CHECK_SPEC_NOTIFIER(check) = + notifier = make_notifier(CHECK_SPEC_NOTIFIER(check)); + } else + notifier = NULL_TREE; + + condition1 = TIMING_EVENT_CONDITION(event1); + edgeSpec1 = TIMING_EVENT_EDGESPEC(event1); + if (CHECK_SPEC_CHECKTYPE(check) == WIDTH) { + condition2 = condition1; + edgeSpec2 = edgeSpec1 ^ 0xffff; + } else if (event2) { + condition2 = TIMING_EVENT_CONDITION(event2); + edgeSpec2 = TIMING_EVENT_EDGESPEC(event2); + } else { + condition2 = NULL_TREE; + edgeSpec2 = 0; + } + + expression = TIMING_EVENT_EXPRESSION(event1); + ASSERT(expression != NULL_TREE); + switch (TREE_CODE(expression)) { + case BIT_REF: + decl1 = BIT_REF_DECL(expression); + msb1 = 0; + lsb1 = 0; + break; + case NET_SCALAR_DECL: + msb1 = 0; + lsb1 = 0; + decl1 = expression; + break; + case PART_REF: + decl1 = PART_DECL(expression); + msb1 = get_range(PART_MSB_(expression), + IDENTIFIER_POINTER(DECL_NAME(decl1))); + lsb1 = get_range(PART_LSB_(expression), + IDENTIFIER_POINTER(DECL_NAME(decl1))); + break; + case NET_VECTOR_DECL: + decl1 = expression; + msb1 = MSB(decl1); + lsb1 = LSB(decl1); + break; + default: + ASSERT(FALSE); + } + + decl2 = NULL_TREE; + msb2 = 0; + lsb2 = 0; + if (event2) { + expression = TIMING_EVENT_EXPRESSION(event2); + ASSERT(expression != NULL_TREE); + switch (TREE_CODE(expression)) { + case BIT_REF: + decl2 = BIT_REF_DECL(expression); + msb2 = 0; + lsb2 = 0; + break; + case NET_SCALAR_DECL: + msb2 = 0; + lsb2 = 0; + decl2 = expression; + break; + case PART_REF: + decl2 = PART_DECL(expression); + msb2 = get_range(PART_MSB_(expression), + IDENTIFIER_POINTER(DECL_NAME(decl2))); + lsb2 = get_range(PART_LSB_(expression), + IDENTIFIER_POINTER(DECL_NAME(decl2))); + break; + case NET_VECTOR_DECL: + decl2 = expression; + msb2 = MSB(decl2); + lsb2 = LSB(decl2); + break; + default: + ASSERT(FALSE); + } + } + + if (lsb1 > msb1) { + temp = msb1; + msb1 = lsb1; + lsb1 = temp; + } + if (lsb2 > msb2) { + temp = msb2; + msb2 = lsb2; + lsb2 = temp; + } + + for (i = lsb1; i <= msb1; i++) { + if (lsb1 == msb1) { + expr1 = decl1; + } else { + expr1 = build_bit_ref(decl1, build_int_cst(i)); + } + for (j = lsb2; j <= msb2; j++) { + if (lsb2 == msb2) { + expr2 = decl2; + } else { + expr2 = build_bit_ref(decl2, build_int_cst(j)); + } + timing_check = make_timing_check(module, check, edgeSpec1, + expr1, condition1, edgeSpec2, + expr2, condition2, notifier); + } + } + + + + +} + +/********************************************************************** + * + * make_timing_check + * - build a timing check node in pass3. + * + ********************************************************************** + */ +tree +make_timing_check(tree module, tree check, unsigned int edgespec1, + tree expression1, tree condition1, + unsigned int edgespec2, tree expression2, + tree condition2, tree notifier) +{ + tree t; + time64 zero_time = { 0, 0 }; + Marker *markerList; + + markerList = NULL; + + ASSERT(check != NULL_TREE); + ASSERT(TREE_CODE(check) == CHECK_SPEC); + ASSERT(expression1 != NULL); + + t = make_node(TIMING_CHECK); + + TIMING_CHECK_CONDITION(t, 0) = condition1; + TIMING_CHECK_CONDITION(t, 1) = condition2; + TIMING_CHECK_CURRENTVALUE(t, 0) = X; + TIMING_CHECK_CURRENTVALUE(t, 1) = X; + TIMING_CHECK_CHECKSPEC(t) = check; + TIMING_CHECK_EXPRESSION(t, 0) = build_tree_list(expression1, t); + if (expression2 != NULL) { + TIMING_CHECK_EXPRESSION(t, 1) = build_tree_list(expression2, t); + } else { + TIMING_CHECK_EXPRESSION(t, 1) = NULL; + } + + ASSIGNTIME64(&TIMING_CHECK_CHANGETIME(t, 0), &zero_time); + ASSIGNTIME64(&TIMING_CHECK_CHANGETIME(t, 1), &zero_time); + + + TIMING_CHECK_EDGESPEC(t, 0) = edgespec1; + TIMING_CHECK_EDGESPEC(t, 1) = edgespec2; +// TIMING_CHECK_NOTIFIER(t) = CHECK_SPEC_NOTIFIER(check); + TIMING_CHECK_NOTIFIER(t) = notifier; + TIMING_CHECK_EXPRESSIONCODE(t, 0) = pass3_expr_marker + (expression1, &markerList, (enum marker_flags) (M_FIXED + M_IDLE), + t, NULL_TREE); + if (expression2 != NULL_TREE) { + TIMING_CHECK_EXPRESSIONCODE(t, 1) = pass3_expr_marker + (expression2, &markerList, + (enum marker_flags) (M_FIXED + M_IDLE), t, NULL_TREE); + } else { + TIMING_CHECK_EXPRESSIONCODE(t, 1) = NULL; + } + if (condition1) { + TIMING_CHECK_CONDITIONCODE(t, 0) = pass3_expr(condition1); + if (!check_scalar(condition1)) { + error("the condition clause must be scalar", NULL_CHAR, + NULL_CHAR); + } + } else { + TIMING_CHECK_CONDITIONCODE(t, 0) = NULL; + } + if (condition2) { + TIMING_CHECK_CONDITIONCODE(t, 1) = pass3_expr(condition2); + if (!check_scalar(condition2)) { + error("the condition clause must be scalar", NULL_CHAR, + NULL_CHAR); + } + } else { + TIMING_CHECK_CONDITIONCODE(t, 1) = NULL; + } + calculate_params(t); + + + ASSERT(module != NULL_TREE); + ASSERT(TREE_CODE(module) == MODULE_BLOCK); + TREE_CHAIN(t) = MODULE_SPECINST(module); + MODULE_SPECINST(module) = t; + TIMING_CHECK_MODULE(t) = module; + return (t); + +} + +/********************************************************************** + * + * make_notifier + * - create notifier node. + * + ********************************************************************** + */ +tree make_notifier(tree ident) +{ + tree decl; + tree notifier; + + ASSERT(ident != NULL_TREE); + ASSERT(TREE_CODE(ident) == IDENTIFIER_NODE); + decl = IDENT_CURRENT_DECL(ident); + ASSERT(decl != NULL_TREE); + if (TREE_CODE(decl) != REG_SCALAR_DECL) { + error("%s must be a single bit register", IDENT(ident), NULL_CHAR); + return (error_mark_node); + } + notifier = make_node(NOTIFIER_NODE); + NOTIFIER_DECL(notifier) = decl; + NOTIFIER_TIMESTAMP(notifier).timel = 0; + NOTIFIER_TIMESTAMP(notifier).timeh = 0; + return (notifier); +} + +/********************************************************************** + * + * calculate_params( tree timing_check ) + * - recalculate timing check parameters. + * + ********************************************************************** + */ +void calculate_params(tree t) +{ + tree check; + nbits_t *dummy; + + ASSERT(t != NULL_TREE); + ASSERT(TREE_CODE(t) == TIMING_CHECK); + check = TIMING_CHECK_CHECKSPEC(t); + ASSERT(check != NULL_TREE); + ASSERT(TREE_CODE(check) == CHECK_SPEC); + TIMING_CHECK_PARAM1(t) = get_delay(CHECK_SPEC_PARAM1(check)); + if (TIMING_CHECK_PARAM1(t) < 0) { + TIMING_CHECK_PARAM1(t) = 0; + } + if (CHECK_SPEC_PARAM2(check)) { + TIMING_CHECK_PARAM2(t) = get_delay(CHECK_SPEC_PARAM2(check)); + if (TIMING_CHECK_PARAM2(t) < 0) { + TIMING_CHECK_PARAM2(t) = 0; + } + } +} + +/********************************************************************** + * + * check_scalar + * - verify the given node is scalar + * + ********************************************************************** + */ +int check_scalar(tree node) +{ + tree t; + + t = node; + ASSERT(node != NULL_TREE); + if (TREE_CODE(t) == IDENTIFIER) { + t = IDENT_CURRENT_DECL(node); + ASSERT(t != NULL_TREE); + } + + if (TREE_CODE(t) != NET_SCALAR_DECL && TREE_NBITS(t) != 1) { + return (FALSE); + } + return (TRUE); +} + + +/********************************************************************** + * + * check_one_bit_constant + * - verify the given node is a one bit constant + * + ********************************************************************** + */ +tree check_one_bit_constant(tree constant) +{ + ASSERT(constant != NULL_TREE); + ASSERT(TREE_CODE(constant) == INTEGER_CST + || TREE_CODE(constant) == BIT_CST); + if (TREE_CODE(constant) == INTEGER_CST) { + if (INT_CST_DATA(constant) != 0 && INT_CST_DATA(constant) != 1) { + error("expecting a single bit constant", NULL_CHAR, NULL_CHAR); + return (error_mark_node); + } + } else { + if (TREE_NBITS(constant) != 1 || !TREE_CONSTANT_ATTR(constant)) { + error("expecting a single bit constant", NULL_CHAR, NULL_CHAR); + return (error_mark_node); + } + } + return (constant); +} + +/********************************************************************** + * + * timingCheck + * - perform timing check + * + ********************************************************************** + */ + + +void timingCheck(tree node) +{ + enum logical_value bit1; + enum logical_value bit2; + enum logical_value was_bit1; + enum logical_value was_bit2; + int event1; + int event2; + int result; + tree check; + char *name; + + ASSERT(TREE_CODE(node) == TIMING_CHECK); + check = TIMING_CHECK_CHECKSPEC(node); + ASSERT(check != NULL_TREE); + was_bit1 = (enum logical_value) TIMING_CHECK_CURRENTVALUE(node, 0); + was_bit2 = (enum logical_value) TIMING_CHECK_CURRENTVALUE(node, 1); + bit1 = eval_bit(TIMING_CHECK_EXPRESSIONCODE(node, 0)); + if (TIMING_CHECK_EXPRESSIONCODE(node, 1)) { + bit2 = eval_bit(TIMING_CHECK_EXPRESSIONCODE(node, 1)); + } else { + bit2 = bit1; + } + + if (was_bit1 != bit1 && + (edgeMask(was_bit1, bit1) & TIMING_CHECK_EDGESPEC(node, 0)) && + (TIMING_CHECK_CONDITIONCODE(node, 0) == NULL || + test(TIMING_CHECK_CONDITIONCODE(node, 0)))) { + event1 = TRUE; + } else { + event1 = FALSE; + } + + if (was_bit2 != bit2 && + (edgeMask(was_bit2, bit2) & TIMING_CHECK_EDGESPEC(node, 1)) && + (TIMING_CHECK_CONDITIONCODE(node, 1) == NULL || + test(TIMING_CHECK_CONDITIONCODE(node, 1)))) { + event2 = TRUE; + } else { + event2 = FALSE; + } + + switch (CHECK_SPEC_CHECKTYPE(check)) { + case SETUP: + name = "setup"; + result = setupCheck(node, event1, event2); + break; + case HOLD: + name = "hold"; + result = holdCheck(node, event1, event2); + break; + case WIDTH: + name = "width"; + result = widthCheck(node, event1, event2); + break; + case PERIOD: + name = "period"; + result = periodCheck(node, event1, event2); + break; + case SKEW: + name = "skew"; + result = skewCheck(node, event1, event2); + break; + case RECOVERY: + name = "recovery"; + result = recoveryCheck(node, event1, event2); + break; + case SETUPHOLD: + name = "setuphold"; + result = setupholdCheck(node, event1, event2); + break; + default: + ASSERT(FALSE); + return; + } + + if (!result) { + printf_V(" \"%s\", %d: Timing violation in ", + STMT_SOURCE_FILE(check), STMT_SOURCE_LINE(check)); + print_scope((handle_t) 1, TIMING_CHECK_MODULE(node)); + printf_V("\n$%s( ", name); + trace_timing_event(TIMING_EVENT_EXPRESSION + (CHECK_SPEC_EVENT1(check)), + TIMING_CHECK_EDGESPEC(node, 0), + TIMING_EVENT_CONDITION(CHECK_SPEC_EVENT1 + (check))); + printf_V(":"); + if (CHECK_SPEC_CHECKTYPE(check) == SETUPHOLD && event1) { + print_time(&CurrentTime); + } else if (CHECK_SPEC_CHECKTYPE(check) == HOLD && event1) { + print_time(&CurrentTime); + } else { + print_time(&TIMING_CHECK_CHANGETIME(node, 0)); + } + + printf_V(", "); + if (TIMING_CHECK_EXPRESSIONCODE(node, 1)) { + trace_timing_event(TIMING_EVENT_EXPRESSION + (CHECK_SPEC_EVENT2(check)), + TIMING_CHECK_EDGESPEC(node, 1), + TIMING_EVENT_CONDITION(CHECK_SPEC_EVENT2 + (check))); + } + printf_V(":"); + if (CHECK_SPEC_CHECKTYPE(check) == SETUPHOLD && !event2) { + print_time(&TIMING_CHECK_CHANGETIME(node, 1)); + } else { + print_time(&CurrentTime); + } + + if (CHECK_SPEC_PARAM1(check)) { + printf_V(", "); + print_expr(CHECK_SPEC_PARAM1(check)); + printf_V(":%d", TIMING_CHECK_PARAM1(node)); + } + if (CHECK_SPEC_PARAM2(check)) { + printf_V(", "); + print_expr(CHECK_SPEC_PARAM2(check)); + printf_V(":%d", TIMING_CHECK_PARAM2(node)); + } + + printf_V(" );\n"); + if (TIMING_CHECK_NOTIFIER(node)) { + toggle_notifier(TIMING_CHECK_NOTIFIER(node)); + } + } + + if (event1) { + ASSIGNTIME64(&TIMING_CHECK_CHANGETIME(node, 0), &CurrentTime); + } + if (event2) { + ASSIGNTIME64(&TIMING_CHECK_CHANGETIME(node, 1), &CurrentTime); + } + TIMING_CHECK_CURRENTVALUE(node, 0) = bit1; + TIMING_CHECK_CURRENTVALUE(node, 1) = bit2; +} + +/********************************************************************** + * + * toggle_notifier + * - toggle notifier expression + * + ********************************************************************** + */ + +void toggle_notifier(tree notifier) +{ + Group *g; + tree decl; + + ASSERT(notifier != NULL_TREE); + /* only allow notifier to be toggled once a tick */ + if (CMPTIME64(&NOTIFIER_TIMESTAMP(notifier), &CurrentTime) == 0) { + return; + } + NOTIFIER_TIMESTAMP(notifier) = CurrentTime; + decl = NOTIFIER_DECL(notifier); + ASSERT(decl != NULL_TREE); + eval_1(decl); + g = *(R - 1); + if (BVAL(g) & 1) { + if (AVAL(g) & 1) { + AVAL(g) = 0; + BVAL(g) = 0; + } + } else { + AVAL(g) = AVAL(g) ^ 1; + } + store(decl, notifier); +} + +/********************************************************************** + * + * eval_bit + * - evaluate a 1 bit expression + * + ********************************************************************** + */ + +static enum logical_value eval_bit(tree * code) +{ + Group *g; + int result; + + ASSERT(code != NULL); + eval(code); + + g = *--R; + result = ((BVAL(g) & 0x1) << 1) | (AVAL(g) & 0x1); + return ((enum logical_value) result); + +} + +/********************************************************************** + * + * setupCheck + * - perform setup timing check + * returns TRUE on pass. + ********************************************************************** + */ +int setupCheck(tree node, int event1, int event2) +{ + time64 time; + + if (event2) { + ASSIGNTIME64(&time, &TIMING_CHECK_CHANGETIME(node, 0)); + if (time.timel == 0 && time.timeh == 0) { + return (TRUE); + } + ADDTIME6432(&time, &time, TIMING_CHECK_PARAM1(node)); + if (CMPTIME64(&time, &CurrentTime) > 0) { + return (FALSE); + } + } + return (TRUE); + +} + + +/********************************************************************** + * + * holdCheck + * - perform hold timing check + * returns TRUE on pass. + ********************************************************************** + */ +int holdCheck(tree node, int event1, int event2) +{ + time64 time; + int zeroHoldCheck; + + if (event2) { + ASSIGNTIME64(&time, &TIMING_CHECK_CHANGETIME(node, 0)); + if (time.timel == 0 && time.timeh == 0) { + return (TRUE); + } + zeroHoldCheck = TIMING_CHECK_PARAM1(node) == 0; + ADDTIME6432(&time, &time, TIMING_CHECK_PARAM1(node)); + if ((event1 && !zeroHoldCheck) + || (CMPTIME64(&time, &CurrentTime) > 0)) { + return (FALSE); + } + } + return (TRUE); + +} + +/********************************************************************** + * + * widthCheck + * - perform width timing check + * returns TRUE on pass. + ********************************************************************** + */ +int widthCheck(tree node, int event1, int event2) +{ + time64 time; + + if (event2) { + ASSIGNTIME64(&time, &TIMING_CHECK_CHANGETIME(node, 0)); + if (time.timel == 0 && time.timeh == 0) { + return (TRUE); + } + ADDTIME6432(&time, &time, TIMING_CHECK_PARAM1(node)); + if (CMPTIME64(&time, &CurrentTime) > 0) { + return (FALSE); + } + } + return (TRUE); + +} + +/********************************************************************** + * + * periodCheck + * - perform period timing check + * returns TRUE on pass. + ********************************************************************** + */ +int periodCheck(tree node, int event1, int event2) +{ + time64 time; + + if (event1) { + ASSIGNTIME64(&time, &TIMING_CHECK_CHANGETIME(node, 0)); + if (time.timel == 0 && time.timeh == 0) { + return (TRUE); + } + ADDTIME6432(&time, &time, TIMING_CHECK_PARAM1(node)); + if (CMPTIME64(&time, &CurrentTime) > 0) { + return (FALSE); + } + } + return (TRUE); + +} + +/********************************************************************** + * + * skewCheck + * - perform skew timing check + * returns TRUE on pass. + ********************************************************************** + */ +int skewCheck(tree node, int event1, int event2) +{ + time64 time; + + if (event2) { + ASSIGNTIME64(&time, &TIMING_CHECK_CHANGETIME(node, 0)); + if (time.timel == 0 && time.timeh == 0) { + return (TRUE); + } + ADDTIME6432(&time, &time, TIMING_CHECK_PARAM1(node)); + if ((CMPTIME64(&time, &CurrentTime) < 0)) { + return (FALSE); + } + } + return (TRUE); + +} + +/********************************************************************** + * + * recoveryCheck + * - perform recovery timing check + * returns TRUE on pass. + ********************************************************************** + */ +int recoveryCheck(tree node, int event1, int event2) +{ + time64 time; + + if (event2) { + ASSIGNTIME64(&time, &TIMING_CHECK_CHANGETIME(node, 0)); + if (time.timel == 0 && time.timeh == 0) { + return (TRUE); + } + ADDTIME6432(&time, &time, TIMING_CHECK_PARAM1(node)); + if (CMPTIME64(&time, &CurrentTime) > 0) { + return (FALSE); + } + } + return (TRUE); + +} + +/********************************************************************** + * + * setupholdCheck + * - perform setuphold timing check + * returns TRUE on pass. + ********************************************************************** + */ +int setupholdCheck(tree node, int event1, int event2) +{ + time64 time; + int zeroHoldCheck; + + if (event1) { + ASSIGNTIME64(&time, &TIMING_CHECK_CHANGETIME(node, 1)); + if (time.timel == 0 && time.timeh == 0) { + goto skip; + } + ADDTIME6432(&time, &time, TIMING_CHECK_PARAM1(node)); + if (CMPTIME64(&time, &CurrentTime) > 0) { + return (FALSE); + } + } + skip: + if (event2) { + ASSIGNTIME64(&time, &TIMING_CHECK_CHANGETIME(node, 0)); + if (time.timel == 0 && time.timeh == 0) { + goto skip1; + } + zeroHoldCheck = TIMING_CHECK_PARAM2(node) == 0; + ADDTIME6432(&time, &time, TIMING_CHECK_PARAM2(node)); + if ((event1 && !zeroHoldCheck) + || (CMPTIME64(&time, &CurrentTime) > 0)) { + return (FALSE); + } + } + skip1: + return (TRUE); + +} + +/********************************************************************** + * + * trace_timing_event + * - print out trace of timing event + ********************************************************************** + */ +void trace_timing_event(tree event, unsigned int edge, tree condition) +{ + int first; + + ASSERT(event != NULL_TREE); + if (edge == posedgeMask) { + printf_V("(posedge "); + print_expr(event); + printf_V(")"); + } else if (edge == negedgeMask) { + printf_V("(negedge "); + print_expr(event); + printf_V(")"); + } else if (edge == alledgeMask) { + print_expr(event); + } else { + first = TRUE; + printf_V("edge["); + if (edgeMask(0, X) & edge) { + if (!first) { + printf_V(","); + } + printf_V("0x"); + first = FALSE; + } + if (edgeMask(0, 1) & edge) { + if (!first) { + printf_V(","); + } + printf_V("01"); + first = FALSE; + } + if (edgeMask(X, 1) & edge) { + if (!first) { + printf_V(","); + } + printf_V("x1"); + first = FALSE; + } + if (edgeMask(X, 0) & edge) { + if (!first) { + printf_V(","); + } + printf_V("x0"); + first = FALSE; + } + if (edgeMask(1, 0) & edge) { + if (!first) { + printf_V(","); + } + printf_V("10"); + first = FALSE; + } + if (edgeMask(1, X) & edge) { + if (!first) { + printf_V(","); + } + printf_V("1x"); + first = FALSE; + } + printf_V("] "); + print_expr(event); + } + if (condition) { + printf_V("&&&("); + print_expr(condition); + printf_V(")"); + } +} diff --git a/src/specify.h b/src/specify.h new file mode 100644 index 0000000..a516b72 --- /dev/null +++ b/src/specify.h @@ -0,0 +1,88 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + + +/********************************************************************** + * + * specify.h + * - header file for specify block code + * + ********************************************************************** + */ + + +#ifndef SPECIFY_H +#define SPECIFY_H + + + +// public prototypes + +void specify_save_param_list(tree scope, tree list); +tree build_path(tree inputs, tree outputs, tree source, tree delays, + tree condition, int parallelFlag, int edge, int polarity); +tree check_input_port(tree identifier); +tree check_output_port(tree identifier); +tree check_path(tree path); +void insert_specify_paths(tree module); +tree get_first_driver(tree decl, int bit); +int get_driver_count(tree decl, int bit); +int is_driven_by(tree gate, tree decl, int bit); +void add_spec_to_gate(tree module, tree driver, tree pathdesc, + int outputNumber); +void pass3_specify(tree spec); +int handle_specify_path(tree gate); +void propagate_specify_path(tree pc); +void calculate_delays(tree constraint); +void specify_update_timings(tree module); +tree build_timing_statement(int checkType, tree event1, tree event2, + tree param1, tree param2, tree notifier); + +tree build_timing_event(int edge, tree expression, tree condition); +void pass3_timing_check(tree check, tree module); +tree make_timing_check(tree module, tree check, unsigned int edgeSpec1, + tree expression1, tree condition1, + unsigned int edgeSpec2, tree expression2, + tree condition2, tree notifier); +int check_scalar(tree node); +tree check_one_bit_constant(tree constant); +void validate_timing_checks(tree module); +void timing_check(tree node); +int setupCheck(tree node, int event1, int event2); +int holdCheck(tree node, int event1, int event2); +int widthCheck(tree node, int event1, int event2); +int periodCheck(tree node, int event1, int event2); +int skewCheck(tree node, int event1, int event2); +int recoveryCheck(tree node, int event1, int event2); +int setupholdCheck(tree node, int event1, int event2); +void trace_timing_event(tree event, unsigned int edge, tree condition); +void calculate_params(tree timing_check); +tree make_notifier(tree ident); +void toggle_notifier(tree notifier); +void timingCheck(tree node); +void setXPathConstraints(tree constraint); + +// private methods +#ifdef SPECIFY_C + +static enum logical_value eval_bit(tree * code); + +#endif // SPECIFY_C + +#endif // SPECIFY_H diff --git a/src/store.cc b/src/store.cc new file mode 100644 index 0000000..57c6930 --- /dev/null +++ b/src/store.cc @@ -0,0 +1,529 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* STORE.C - Routines for storing results of expressions */ + +#define STORE_C + +#include +#include +#include "vtypes.h" +#include "tree.h" +#include "schedule.h" +#include "eval.h" +#include "runtime.h" +#include "flags.h" +#include "store.h" +#include "veriwell.h" + + +int store_computeOnly = 0; +int store_useCached = 0; +SCB *store_scb = 0; + +void store_array(tree decl, Bit index) +{ +// tree decl = ARRAY_REF_DECL (lval); + ngroups_t array_hi = ARRAY_HI(decl); + ngroups_t array_lo = ARRAY_LO(decl); +// Bit aval = AVAL (g1); + Group *g1, *g2; + ngroups_t ngroups = 1 + bits_to_groups(TREE_NBITS(decl)); + ngroups_t offset, i; + nbits_t nbits; + int cond = 0; + + if (VECTOR_DIRECTION_ATTR(decl)) { + if (index < array_lo || index > array_hi) + cond = X; + else { + offset = (index - array_lo) * ngroups; + } + } else { + if (index < array_hi || index > array_lo) + cond = X; + else { + offset = (index - array_hi) * ngroups; + } + } + + g2 = *--R; + if (!cond) + g1 = DECL_STORAGE(decl) + offset; + else + return; + +// nbits = TREE_NBITS (lval); + nbits = TREE_NBITS(decl); + ngroups = bits_to_groups(nbits); + + for (i = 1; i <= ngroups; i++, g1++, g2++) { + if (!cond) { + AVAL(g1) = AVAL(g2); + BVAL(g1) = BVAL(g2); + } else { + AVAL(g1) = (Bit) - 1; + BVAL(g1) = (Bit) - 1; + } + } + if (!cond) { + AVAL(g1) = AVAL(g2) & mask_right1[nbits & NBITS_MASK]; + BVAL(g1) = BVAL(g2) & mask_right1[nbits & NBITS_MASK]; + } else { + AVAL(g1) = (Bit) - 1 & mask_right1[nbits & NBITS_MASK]; + BVAL(g1) = (Bit) - 1 & mask_right1[nbits & NBITS_MASK]; + } +} + +static int deferred = 0; /* set during the storing of concats */ + +void notify(tree LVAL, enum logical_value STATE, int CHANGED, tree pc) +{ +/* Currently, pc is null only on PLI calls to here */ + if (pc) { + DECL_UPDATE_FILE(LVAL) = STMT_SOURCE_FILE(pc); + DECL_UPDATE_LINE(LVAL) = STMT_SOURCE_LINE(pc); + } + ASSIGNTIME64(&DECL_UPDATE_TIME(LVAL), &CurrentTime); + if (DECL_EVENT_CHAIN(LVAL) && (CHANGED)) + NotifyEvent(DECL_EVENT_CHAIN(LVAL), STATE, deferred); +} + +// ??? mdh - delay part selects and arrays need to be fixed +void store(tree lval, tree pc) +{ + enum tree_code lval_code; + Group *g1, *g2; + Bit a, b, current_a, current_b, save_R_mask; + int cond; + int changed; + ngroups_t i, ngroups, save_R_ngroups; + nbits_t nbits, save_R_nbits; + tree t; + enum logical_value old_state, new_state; + struct part_info *p; +// tree lval; + int offset; + int saveUseCached = store_useCached; + store_useCached = 0; + +// eval (STMT_ASSIGN_RVAL_CODE (pc)); +// lval = STMT_ASSIGN_LVAL (pc); + lval_code = TREE_CODE(lval); + + switch (lval_code) { +/***************************************************************************/ +/* Integer DECL */ +/***************************************************************************/ +/* + case INTEGER_DECL: + if( store_computeOnly ) { + break; + } + g1 = DECL_STORAGE (lval); + g2 = *--R; + SET_DECL_STATE (lval, ZERO); + changed = 0; + if (AVAL (g1) != AVAL (g2)) { + if (AVAL (g1) != AVAL (g2)) { + AVAL (g1) = AVAL (g2); + changed = 1; + } + if (BVAL (g1) != BVAL (g2)) { + BVAL (g1) = BVAL (g2); + changed = 1; + } + } +// g1++; g2++; +// AVAL (g1) = AVAL (g2); +// BVAL (g1) = BVAL (g2); + SET_DECL_STATE (lval, ZERO); + SET_STATE (g1); + notify (lval, DECL_STATE (lval), changed, pc); + break; +*/ +/***************************************************************************/ +/* REG scalar DECL */ +/***************************************************************************/ + + case REG_SCALAR_DECL: + case NET_SCALAR_DECL: + if (store_computeOnly) { + break; + } + g1 = DECL_STORAGE(lval); + g2 = *--R; + old_state = DECL_STATE(lval); + AVAL(g1) = AVAL(g2) & 1; + BVAL(g1) = BVAL(g2) & 1; + SET_DECL_STATE(lval, ZERO); + SET_STATE(g1); + changed = old_state != DECL_STATE(lval); + notify(lval, DECL_STATE(lval), changed, pc); + break; + +/***************************************************************************/ +/* REG vector DECL */ +/***************************************************************************/ + + case INTEGER_DECL: + case REG_VECTOR_DECL: + case NET_VECTOR_DECL: + case TMP_DECL: + case TIME_DECL: + case PARAM_DECL: + case SPECPARAM_DECL: + if (store_computeOnly) { + break; + } + nbits = TREE_NBITS(lval); + ngroups = bits_to_groups(nbits); + g1 = DECL_STORAGE(lval); + g2 = *--R; + old_state = DECL_STATE(lval); +/* MAKE THIS changed = 0 AFTER DEBUGGING!!! */ + changed = 0; + SET_DECL_STATE(lval, ZERO); + if (ngroups > 0) + for (i = 1; i <= ngroups; i++, g1++, g2++) { + if (AVAL(g1) != AVAL(g2)) { + AVAL(g1) = AVAL(g2); + changed = 1; + } + if (BVAL(g1) != BVAL(g2)) { + BVAL(g1) = BVAL(g2); + changed = 1; + } + SET_STATE(g1); + } + if (((AVAL(g1) ^ AVAL(g2)) & mask_right1[nbits & NBITS_MASK]) + || ((BVAL(g1) ^ BVAL(g2)) & mask_right1[nbits & NBITS_MASK])) { + AVAL(g1) = AVAL(g2) & mask_right1[nbits & NBITS_MASK]; + BVAL(g1) = BVAL(g2) & mask_right1[nbits & NBITS_MASK]; + changed = 1; + } + SET_STATE(g1); + notify(lval, DECL_STATE(lval), changed, pc); + break; + +/***************************************************************************/ +/* Part reference */ +/***************************************************************************/ + + case PART_REF: + if (store_computeOnly) { + break; + } + g1 = PART_STORAGE(lval); + g2 = *--R; + + changed = part_lref(g1, g2, PART_INFO(lval)); + notify(PART_DECL(lval), ZERO, changed, pc); + break; + +/***************************************************************************/ +/* Bit reference */ +/***************************************************************************/ + + case BIT_REF: + /* evaluate the index */ + nbits = R_nbits; /* save these */ + ngroups = R_ngroups; + eval(BIT_EXPR_CODE(lval)); + g2 = DECL_STORAGE(BIT_REF_DECL(lval)); +// g1 = *--R; /* points to index */ + + cond = 0; + changed = 0; + new_state = ZERO; + /* if index is a big number, make sure all high bits are zero */ + if (R_ngroups) /* R_ngroups is from the index eval */ + for (i = 1, g1 = *(R - 1) + 1; i < R_ngroups; i++, g1++) { + if (BVAL(g1) || AVAL(g1)) { + cond = X; + break; + } + } + g1 = *--R; /* Points to index */ + if (BVAL(g1) || cond) + cond = X; + { + tree decl = BIT_REF_DECL(lval); + nbits_t decl_lsb = LSB(decl); + nbits_t decl_msb = MSB(decl); + Bit aval = AVAL(g1); + nbits_t bit_offset; + ngroups_t group_offset; + + /* Make sure index is within bounds, else ignore */ + if (VECTOR_DIRECTION_ATTR(decl)) { + if (aval < decl_lsb || aval > decl_msb) + cond = Z; /* will make store not happen */ + else { + bit_offset = (aval - decl_lsb) % BITS_IN_GROUP; + group_offset = bits_to_groups(aval - decl_lsb + 1); + } + } else { + if (aval < decl_msb || aval > decl_lsb) + cond = Z; /* Will make store not happen */ + else { +// bit_offset = (aval - decl_msb) % BITS_IN_GROUP; +// group_offset = bits_to_groups (aval - decl_msb + 1); + bit_offset = (decl_lsb - aval) % BITS_IN_GROUP; + group_offset = bits_to_groups(decl_lsb - aval + 1); + } + } + + if (store_computeOnly) { + // handle cond==Z case + store_scb->bit_offset = bit_offset; + if (cond == Z) { + store_scb->group_offset = 0xffffffff; + } else { + store_scb->group_offset = group_offset; + } + R_nbits = nbits; /* restore original values in case trace */ + R_ngroups = ngroups; /* need them. */ + break; + } + if (saveUseCached) { + bit_offset = readylist->bit_offset; + group_offset = readylist->group_offset; + cond = 0; + if (group_offset == 0xffffffff) { + cond = Z; + } + } + + /* take out the least significant bit and pop the stack */ + a = AVAL(*--R) & 1; + b = BVAL(*R) & 1; + if (cond == Z) + goto bit_ref_end; /* Don't do store, but clean up */ + + + current_a = AVAL(g2 + group_offset) & ((Bit) 1 << bit_offset); + current_b = BVAL(g2 + group_offset) & ((Bit) 1 << bit_offset); + + if (a || cond == X) { /* set bit */ + if (!current_a) { + AVAL(g2 + group_offset) |= (Bit) 1 << bit_offset; + changed = 1; + new_state = ONE; + } + } else { /* clear bit */ + + if (current_a) { + AVAL(g2 + group_offset) &= ~((Bit) 1 << bit_offset); + changed = 1; + } else + new_state = ONE; /* never changed; reflects current val */ + } + + if (b || cond == X) { /* set bit */ + if (!current_b) { + BVAL(g2 + group_offset) |= (Bit) 1 << bit_offset; + changed = 1; + new_state = (new_state == ZERO) ? Z : X; + } + } else { /* clear bit */ + + if (current_b) { + Bit bval = BVAL(g2 + group_offset); + bval &= ~((Bit) 1 << bit_offset); + BVAL(g2 + group_offset) = bval; +// BVAL (g2 + group_offset) &= ~((Bit) 1 << bit_offset); + changed = 1; + } else + new_state = (new_state == ZERO) ? Z : X; + } + } + + bit_ref_end: + R_nbits = nbits; /* restore original values in case trace */ + R_ngroups = ngroups; /* need them. */ + notify(BIT_REF_DECL(lval), new_state, changed, pc); + break; + +/****************************************************************************/ +/* Array reference */ +/****************************************************************************/ + + case ARRAY_REF: +//{ int test = farheapcheck (); +// if (test < 0) +// fatal ("Corrupted before array store"); +//} + /* evaluate the index */ + save_R_nbits = R_nbits; /* save these */ + save_R_ngroups = R_ngroups; + save_R_mask = R_mask; + + eval(ARRAY_EXPR_CODE(lval)); + + + R_nbits = save_R_nbits; /* save these */ + R_ngroups = save_R_ngroups; + R_mask = save_R_mask; + cond = 0; + + /* if index is a big number, make sure all high bits are zero */ +// if (R_ngroups) +// for (i = 1, g1 = *(R - 1); i < R_ngroups; i++, g1++) { +// if (BVAL (g1) || AVAL (g1)) { +// cond = 'X'; +// break; +// } +// } + g1 = *--R; /* Points to index */ + if (BVAL(g1)) { + cond = Z; + } + + offset = AVAL(g1); + if (store_computeOnly) { + // handle cond==Z case + if (cond == Z) { + store_scb->group_offset = 0xffffffff; + } else { + store_scb->group_offset = offset; + } + break;; + } + if (saveUseCached) { + offset = readylist->group_offset; + cond = 0; + if (offset == 0xffffffff) { + cond = Z; + } + } + if (cond) { + --R; + break; + } + + store_array(ARRAY_REF_DECL(lval), offset); + + // R_nbits = nbits; /* restore original values in case trace */ + // R_ngroups = ngroups; /* need them. */ + notify(ARRAY_REF_DECL(lval), ZERO, 1, pc); + break; + +/***************************************************************************/ +/* Concatenation */ +/***************************************************************************/ + + case CONCAT_REF: + store_useCached = saveUseCached; + if (store_computeOnly) { + for (t = CONCAT_LIST(lval); t; t = TREE_CHAIN(t)) { + p = (struct part_info *) TREE_VALUE(TREE_VALUE(t)); + store(*(tree *) TREE_PURPOSE(TREE_VALUE(t)), pc); + } + break; + } + g1 = *--R; + g2 = g1; + nbits = R_nbits; /* save these */ + ngroups = R_ngroups; + i = 0; + deferred++; /* Don't trigger con't assgn yet */ + /* assume TREE_LIST is in reverse order (lsb first) */ + for (t = CONCAT_LIST(lval); t; t = TREE_CHAIN(t)) { + p = (struct part_info *) TREE_VALUE(TREE_VALUE(t)); + i += PART_NEXT(p); + current_a = AVAL(g1 + i); + current_b = BVAL(g1 + i); +// g2 += part_rref (g1, g2, (struct part_info *) TREE_VALUE (TREE_VALUE (t))); + g2 += part_rref(g1, g2, p); + R++; + store(*(tree *) TREE_PURPOSE(TREE_VALUE(t)), pc); + AVAL(g1 + i) = current_a; + BVAL(g1 + i) = current_b; + } + { /* Save the global deferred_marker and clear. This is done + because NotifyDeferred is not automic. The case in + that excersizes this is where two module have + concatenated argument ports which connect to + each other and are defined as INOUTs: + foo f0 ({a0, a1}); + bar b0 ({a0, a1}); */ + extern tree deferred_markers; + tree local_deferred = deferred_markers; + deferred_markers = NULL; + if (!--deferred) + NotifyDeferred(local_deferred); + } + R_nbits = nbits; /* restore original values in case trace */ + R_ngroups = ngroups; /* need them. */ + saveUseCached = store_useCached; + break; + +/***************************************************************************/ +/* Shadow lval reference (from hierarchical ref) */ +/***************************************************************************/ + + case SHADOW_LVAL_REF: + if (store_computeOnly) { + break; + } + store(TREE_CHAIN(lval), pc); + break; + +/***************************************************************************/ +/* Real DECL */ +/***************************************************************************/ + + case REAL_DECL: + if (store_computeOnly) { + break; + } + g1 = DECL_STORAGE(lval); + g2 = *--R; + SET_DECL_STATE(lval, ZERO); + changed = 0; + if (AVAL(g1) != AVAL(g2)) { + AVAL(g1) = AVAL(g2); + changed = 1; + } + if (BVAL(g1) != BVAL(g2)) { + BVAL(g1) = BVAL(g2); + changed = 1; + } +// g1++; g2++; +// AVAL (g1) = AVAL (g2); +// BVAL (g1) = BVAL (g2); + SET_DECL_STATE(lval, ZERO); + SET_STATE(g1); + notify(lval, DECL_STATE(lval), changed, pc); + break; + + default: +// printf ("Line: %ld, File %s: \n", STMT_SOURCE_LINE (pc), STMT_SOURCE_FILE (pc)); + fatal("Internal error: Unimplemented lval reference: %s", + tree_code_name[lval_code]); +// abort (); + } /* switch */ + store_useCached = saveUseCached; +} + +void init_store() +{ + deferred = 0; +} diff --git a/src/store.h b/src/store.h new file mode 100644 index 0000000..4c5ab4d --- /dev/null +++ b/src/store.h @@ -0,0 +1,40 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* STORE.H - Macros and prototypes for Store.c */ + +#ifndef STORE_H +#define STORE_H + +// public methods + +extern int store_computeOnly; +extern int store_useCached; +extern SCB *store_scb; +void notify(tree LVAL, enum logical_value STATE, int CHANGED, tree pc); +void store_array(tree decl, Bit index); +void store(tree lval, tree pc); +void init_store(void); + +// private methods + +#ifdef STORE_C +#endif // STORE_C + +#endif // STORE_H diff --git a/src/strobe.cc b/src/strobe.cc new file mode 100644 index 0000000..7371e49 --- /dev/null +++ b/src/strobe.cc @@ -0,0 +1,312 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* Strobe.c - strobe tasks and functions */ + +#define STROBE_C + +#include +#include "glue.h" +#include "vtypes.h" +#include "tree.h" +#include "acc_user.h" +#include "pli.h" +#include "schedule.h" +#include "strobe.h" +#include "dumpvar.h" +#include "systask.h" +#include "veriwell.h" + +/* free strobe queue - one for all strobe queues */ + +static sched_strobe_t *strobe_free = (sched_strobe_t *) BADPTR; +static sched_strobe_t *active_strobe = (sched_strobe_t *) BADPTR; + +/* strobe queue defines */ + +strobe_queue_t idle_strobe_queue = + { (sched_strobe_t *) BADPTR, (sched_strobe_t *) BADPTR, NULL }; +strobe_queue_t final_strobe_queue = + { (sched_strobe_t *) BADPTR, (sched_strobe_t *) BADPTR, NULL }; + +/************************************************************** + * + * tickle_monitor + * - enqueue strobe for monitoring if not already queued + * + ************************************************************* + */ + +void tickle_monitor(strobe_queue_t * queue, tree pc) +{ + sched_strobe_t *s; + + ASSERT(queue != NULL); + ASSERT(queue->head != BADPTR); + ASSERT(queue->tail != BADPTR); + ASSERT(pc != NULL); + ASSERT(strobe_free != BADPTR); + ASSERT(active_strobe != BADPTR); + + + for (s = queue->head; s; s = s->next) { + if (s->pc == pc) { + return; + } + } + + enqueue_strobe(queue, pc); +} + +/************************************************************** + * + * tickle_monitor_old + * - old way currently works with markers of type M_STROBE + * + ************************************************************* + */ + +void +tickle_monitor_old(strobe_queue_t * queue, + struct monitor_info *monitor_info) +{ + sched_strobe_t *s; + + ASSERT(queue != NULL); + ASSERT(queue->head != BADPTR); + ASSERT(queue->tail != BADPTR); + ASSERT(monitor_info != NULL); + ASSERT(strobe_free != BADPTR); + ASSERT(active_strobe != BADPTR); + + if (!monitor_info->enable) { + return; + } + + + for (s = queue->head; s; s = s->next) { + if (s->pc == monitor_info->node) { + return; + } + } + + enqueue_strobe(queue, monitor_info->node); +} + +/************************************************************** + * + * is_strobe_active + * - returns TRUE if given pc is the active strobe + * - returns address of queue is pc is active strobe + * + ************************************************************* + */ +//BOOL is_strobe_active( tree pc ) +strobe_queue_t *is_strobe_active(tree pc) +{ + ASSERT(pc != NULL); + ASSERT(strobe_free != BADPTR); + ASSERT(active_strobe != BADPTR); + if (active_strobe && active_strobe->pc == pc) { + return (active_strobe->list); + } else { + return (NULL); + } +} + +/************************************************************** + * + * enqueue_strobe + * - enqueue pc to be executed on given strobe queue + * + ************************************************************* + */ + +void enqueue_strobe(strobe_queue_t * queue, tree pc) +{ + sched_strobe_t *strobe_tmp; + + ASSERT(queue != NULL); + ASSERT(queue->head != BADPTR); + ASSERT(queue->tail != BADPTR); + ASSERT(pc != NULL); + ASSERT(strobe_free != BADPTR); + ASSERT(active_strobe != BADPTR); + if (!strobe_free) { + strobe_tmp = (sched_strobe_t *) xmalloc(sizeof(sched_strobe_t)); + } else { + strobe_tmp = strobe_free; + strobe_free = strobe_free->next; + } + strobe_tmp->pc = pc; + strobe_tmp->next = NULL; +// strobe_tmp->list = STROBE_ON; + strobe_tmp->list = queue; + if (queue->tail) { + queue->tail->next = strobe_tmp; + queue->tail = strobe_tmp; + } else { + queue->head = strobe_tmp; + queue->tail = strobe_tmp; + } +} + + +/************************************************************** + * + * remove_strobe + * - remove given strobe from queue. returns + * TRUE on success. + * + ************************************************************* + */ + +BOOL remove_strobe(strobe_queue_t * queue, sched_strobe_t * s) +{ + sched_strobe_t *s1, *prev; + + ASSERT(queue != NULL); + ASSERT(queue->head != BADPTR); + ASSERT(queue->tail != BADPTR); + ASSERT(s != NULL); + ASSERT(strobe_free != BADPTR); + ASSERT(active_strobe != BADPTR); + for (s1 = queue->head, prev = NULL; s1; prev = s1, s1 = s1->next) { + if (s1 == s) { + if (!prev) { /* Remove from front of list */ + queue->head = s->next; + if (!queue->head) { + queue->tail = NULL; + } + } else { + prev->next = s->next; + if (s == queue->tail) { + queue->tail = prev; + } + } + + /* thread onto free list */ + s->next = strobe_free; +// s->list = STROBE_OFF; + // s->list = NULL; + strobe_free = s; + return (TRUE); + } + } + return (FALSE); +} + +/************************************************************** + * + * dequeue_strobe + * - remove strobe entry for a given pc + * returns TRUE if pc is found. + * + ************************************************************* + */ + +BOOL dequeue_strobe(strobe_queue_t * queue, tree pc) +{ + sched_strobe_t *s; + BOOL result; + + ASSERT(queue != NULL); + ASSERT(queue->head != BADPTR); + ASSERT(queue->tail != BADPTR); + ASSERT(pc != NULL); + ASSERT(strobe_free != BADPTR); + ASSERT(active_strobe != BADPTR); + + result = FALSE; + + for (s = queue->head; s; s = s->next) { + if (s->pc == pc) { + remove_strobe(queue, s); + result = TRUE; + } + } + return (result); +} + +/************************************************************** + * + * check_strobe + * - execute all strobes on queue, removing them + * as we go + * + ************************************************************* + */ + +void check_strobe(strobe_queue_t * queue) +{ + sched_strobe_t *s; + + ASSERT(queue != NULL); + ASSERT(queue->head != BADPTR); + ASSERT(queue->tail != BADPTR); + ASSERT(strobe_free != BADPTR); + ASSERT(active_strobe != BADPTR); + + dumpvar.new_time = 1; + + /* + * set fence at current end of list so + * newly enqueue strobes are processed in + * the next pass + */ + queue->fence = queue->tail; + for (s = queue->head; s; s = queue->head) { + active_strobe = s; + remove_strobe(queue, s); + exec_systask(s->pc); + active_strobe = NULL; + if (s == queue->fence) { + break; + } + } + queue->fence = NULL; +} + +/************************************************************** + * + * empty_strobe + * - return TRUE if strobe queue is empty + * + ************************************************************* + */ +int empty_strobe(strobe_queue_t * queue) +{ + return queue->head == NULL; +} + +/************************************************************** + * + * init_strobe + * - initializes global and static variables for strobe.c + * + ************************************************************* + */ + +void init_strobe() +{ + strobe_free = NULL; + active_strobe = NULL; + memset(&idle_strobe_queue, 0, sizeof(idle_strobe_queue)); + memset(&final_strobe_queue, 0, sizeof(final_strobe_queue)); +} diff --git a/src/strobe.h b/src/strobe.h new file mode 100644 index 0000000..4f62269 --- /dev/null +++ b/src/strobe.h @@ -0,0 +1,77 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* STROBE.H - all maintaince methods for managing strobes */ + +#ifndef STROBE_H +#define STROBE_H + +// public methods + +#define BOOL int + +struct strobe_queue; + +/* Thread strobe or monitor request; exec() checks when time changes */ +typedef struct sched_strobe { + tree pc; + struct strobe_queue *list; /* Which list; 0 for OFF */ + struct sched_strobe *next; +} sched_strobe_t; + + +/* monitor structure */ + +typedef struct monitor_info { + int enable; + tree node; +} monitor_info_t; + +/* strobe queue structure */ + +typedef struct strobe_queue { + sched_strobe_t *head; + sched_strobe_t *tail; + sched_strobe_t *fence; +} strobe_queue_t; + +/* extern strobe queue defines */ + +extern strobe_queue_t idle_strobe_queue; +extern strobe_queue_t final_strobe_queue; + +/* access routine prototypes */ + +void init_strobe(void); +void check_strobe(strobe_queue_t * queue); +void enqueue_strobe(strobe_queue_t * queue, tree pc); +BOOL remove_strobe(strobe_queue_t * queue, struct sched_strobe *strobe); +BOOL dequeue_strobe(strobe_queue_t * queue, tree pc); +strobe_queue_t *is_strobe_active(tree pc); +void tickle_monitor_old(strobe_queue_t * queue, + monitor_info_t * monitor_info); +void tickle_monitor(strobe_queue_t * queue, tree t); +void init_strobe(void); +int empty_strobe(strobe_queue_t * queue); + +#ifdef STROBE_C +// private methods +#endif // STROBE_C + +#endif /* STROBE_H */ diff --git a/src/systask.cc b/src/systask.cc new file mode 100644 index 0000000..4548e65 --- /dev/null +++ b/src/systask.cc @@ -0,0 +1,2102 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* SYSTASK.C - System tasks and functions */ + +#define SYSTASK_C + +#include +#include +#include +#include +#include +#include "vtypes.h" +#include "tree.h" +#include "lex.h" +#include "flags.h" +#include "runtime.h" +#include "schedule.h" +#include "print.h" +#include "io.h" +#include "macro.h" +#include "glue.h" +#include "dumpvar.h" +#include "pass3.h" +#include "strobe.h" +#include "scope.h" +#include "veriuser.h" +#include "eval.h" +#include "timescal.h" +#include "specify.h" +#include "veriwell.h" +#include "pass2.h" +#include "store.h" +#include "trace.h" +#include "acc_user.h" +#include "pli.h" +#include "systask.h" +#include "usertask.h" + + +int systime_once = 0; /* initialize the following only once */ +tree systime_return; /* variable for returning $time value */ + +int sysstime_once = 0; /* initialize the following only once */ +tree sysstime_return; /* variable for returning $stime value */ + +int sysrealtime_once = 0; /* initialize the following only once */ +tree sysrealtime_return; /* variable for returning $realtime value */ + +int sysopen_once = 0; /* initialize the following only once */ +tree sysopen_return; /* variable for returning $fopen value */ + +int sysrand_once = 0; /* initialize the following only once */ +tree sysrand_return; /* variable for returning $random value */ + +int sysplus_once = 0; /* initialize the following only once */ +tree sysplus_return; /* variable for returning $test$plusargs value */ + +int roFlag = FALSE; /* true when in a misc routine for rosynch */ + +static tree pliInstanceList; /* linked list of all pli instances */ + +struct monitor_info monitor_info = { 1, NULL_TREE }; +struct monitor_info mwaves_info = { 1, NULL_TREE }; + +/* There are 3 kinds of system tasks/functions (names that start with '$'): + - internal tasks implemented either before there were PLI hooks or that + require direct access to VeriWell structures -- these are implemented + here; + - internal tasks written using all PLI functions as if they were + user-defined functions -- they are implemented elsewhere but the + name resolution is here; + - user-defined tasks using PLI functions implemented outside VeriWell -- + the name resolution is also done here. + */ + +/* [tf: task/function] */ + +/* These are the internal non-PLI tasks/functions: (some could eventually + be re-written into PLI...) */ + +struct systask_info systask_info[] = { + "$scope", SCOPE, + "$showscopes", SHOWSCOPES, + "$display", DISPLAY, + "$displayh", DISPLAYH, + "$displayb", DISPLAYB, + "$displayo", DISPLAYO, + "$write", WRITE, + "$writeh", WRITEH, + "$writeb", WRITEB, + "$writeo", WRITEO, + "$fdisplay", FDISPLAY, + "$fdisplayh", FDISPLAYH, + "$fdisplayb", FDISPLAYB, + "$fdisplayo", FDISPLAYO, + "$fwrite", T_FWRITE, + "$fwriteh", T_FWRITEH, + "$fwriteb", T_FWRITEB, + "$fwriteo", T_FWRITEO, + "$monitor", MONITOR, + "$monitorb", MONITORB, + "$monitorh", MONITORH, + "$monitoro", MONITORO, + "$fmonitor", FMONITOR, + "$fmonitorb", FMONITORB, + "$fmonitorh", FMONITORH, + "$fmonitoro", FMONITORO, + "$strobe", STROBE, + "$strobeb", STROBEB, + "$strobeh", STROBEH, + "$strobeo", STROBEO, + "$fstrobe", FSTROBE, + "$fstrobeb", FSTROBEB, + "$fstrobeh", FSTROBEH, + "$fstrobeo", FSTROBEO, + "$monitoron", T_MONITORON, + "$monitoroff", T_MONITOROFF, + "$stop", STOP, + "$finish", FINISH, + "$settrace", SETTRACE, + "$cleartrace", CLEARTRACE, + "$showstats", SHOWSTATS, + "$fclose", T_FCLOSE, + "$log", T_LOG, + "$nolog", T_NOLOG, + "$key", T_KEY, + "$nokey", T_NOKEY, + "$input", T_INPUT, + "$showvars", T_SHOWVARS, + "$readmemh", T_READMEMH, + "$readmemb", T_READMEMB, + "$dumpvars", T_DUMPVARS, + "$dumpon", T_DUMPON, + "$dumpoff", T_DUMPOFF, + "$dumpfile", T_DUMPFILE, + "$dumpall", T_DUMPALL, + "$dumpflush", T_DUMPFLUSH, + "$update_timings", T_UPDATETIMINGS, + "$timeformat", T_TIMEFORMAT, + 0, (enum systask_type) 0 +}; + +struct sysfunction_info sysfunction_info[] = { + "$stime", F_STIME, + "$time", F_TIME, + "$realtime", F_REALTIME, + "$fopen", F_FOPEN, + "$random", F_RANDOM, + "$test$plusargs", F_TEST_PLUSARGS, + 0, (enum sysfunction_type) 0 +}; + +tree current_tf_instance; /* node of systask being executed or compiled */ + +extern s_tfcell veriusertfs[]; /* Hooks into user tfs */ +extern s_tfcell verisystfs[]; /* Hooks into internal tfs */ + +void broadcast_tf(int reason) +{ + tree t; + + t = pliInstanceList; + while (t) { + current_tf_instance = t; + switch (TREE_CODE(t)) { + case SYSFUNCTION_REF: + call_misc_tf(FUNC_REF_USERTF(t), reason); + t = FUNC_REF_NEXT(t); + break; + case SYSTASK_STMT: + call_misc_tf(STMT_SYSTASK_USERTF(t), reason); + t = STMT_SYSTASK_NEXT(t); + break; + } + } + +} + +/* lookup by name a PLI tf either user or internal (user first since it can + override an internal tf); retun pointer to structure. */ + +p_tfcell lookup_user_tf(char *name) +{ + int i; + + p_tfcell userFunction = Usertask_Lookup(name); + if (userFunction) { + return userFunction; + } + for (i = 0; verisystfs[i].type; i++) { + if (!strcmp(name, verisystfs[i].tfname)) + return &verisystfs[i]; + } + return 0; +} + +/* Lookup a PLI _task_ (either internal or user-defined); return pointer + to structure */ + +p_tfcell lookup_user_task(char *name) +{ + p_tfcell p_tf = lookup_user_tf(name); /* look it up in both tables */ + if (p_tf == 0) /* not found */ + return 0; + + if (p_tf->type != USERTASK) /* its not a task */ + return 0; + else + return p_tf; +} + +/* Same as above but for a function */ + +p_tfcell lookup_user_func(char *name) +{ + p_tfcell p_tf = lookup_user_tf(name); /* look it up in both tables */ + if (p_tf == 0) /* not found */ + return 0; + + if (p_tf->type != USERFUNCTION) /* its not a function */ + return 0; + else + return p_tf; +} + +/* Call the correct _check_ routine for the given user task/function */ + +void call_check_tf(p_tfcell p_tf) +{ + if (p_tf->checktf) + (p_tf->checktf) (p_tf->data, (int) REASON_CHECKTF); +} + +/* Call the correct _call_ routine for the given user task/function */ + +void call_call_tf(p_tfcell p_tf) +{ + if (p_tf->calltf) + (p_tf->calltf) (p_tf->data, (int) REASON_CALLTF); +} + +/* Call the correct _size_ routine for the given user task/function */ + +int call_size_tf(p_tfcell p_tf) +{ + if (p_tf->sizetf) + return (p_tf->sizetf) (p_tf->data, (int) REASON_SIZETF); + return 0; +} + +/* Call the correct _misc_ routine for the given user task/function */ + +void call_misc_tf(p_tfcell p_tf, int reason) +{ + if (p_tf->misctf) + (p_tf->misctf) (p_tf->data, reason); +} + +void call_misc_tf1(p_tfcell p_tf, int reason, int arg) +{ + if (p_tf->misctf) + ((int (*)(int, int, int)) p_tf->misctf) (p_tf->data, reason, arg); +} + +void systaskDoDelay(tree delayNode) +{ + tree node; + + ASSERT(delayNode != NULL); + ASSERT(TREE_CODE(delayNode) == PLI_DELAY); + + node = PLI_DELAY_NODE(delayNode); + ASSERT(node != NULL); + current_tf_instance = node; + switch (TREE_CODE(node)) { + case SYSFUNCTION_REF: + call_misc_tf(FUNC_REF_USERTF(node), reason_reactivate); + break; + case SYSTASK_STMT: + call_misc_tf(STMT_SYSTASK_USERTF(node), reason_reactivate); + break; + } +} + + +void pli_asynccall(PliInfo_t * info) +{ + tree node; + + node = info->instance; + + if (ASYNCH_ATTR(node)) { + roFlag = TRUE; + info->pvc = TRUE; + current_tf_instance = node; + switch (TREE_CODE(node)) { + case SYSFUNCTION_REF: + call_misc_tf1(FUNC_REF_USERTF(node), + reason_paramvc, info->argNumber); + break; + case SYSTASK_STMT: + call_misc_tf1(STMT_SYSTASK_USERTF(node), + reason_paramvc, info->argNumber); + break; + } + roFlag = FALSE; + } +} + + + +/* "top-level" lookup called from pass3; look for user PLI, internal PLI, + internal custom, in that order. Return the enum of the internal + tf and the pointer to the PLI tf through the arg list */ + +enum systask_type lookup_systask(char *name, p_tfcell * pp_tf) +{ + int i; + + *pp_tf = lookup_user_task(name); + if (*pp_tf) + return USER_TASK; /* found PLI, pass pointer through arg list */ + + for (i = 0; systask_info[i].name; i++) { + if (!strcmp(name, systask_info[i].name)) + return systask_info[i].type; + } + return (enum systask_type) -1; +} + +enum sysfunction_type lookup_sysfunction(char *name, p_tfcell * pp_tf) +{ + int i; + + *pp_tf = lookup_user_func(name); + if (*pp_tf) + return USER_FUNC; + + for (i = 0; sysfunction_info[i].name; i++) { + if (!strcmp(name, sysfunction_info[i].name)) + return sysfunction_info[i].type; + } + return (enum sysfunction_type) -1; +} + +/* Convert bits in a group to a null-terminated string. It is assumed that + 'buffer' is large enough to handle the string. */ + +void bits_to_string(char *buffer, Group * g, nbits_t nbits) +{ + char *p = buffer; + ngroups_t ngroups, i; + int j, c; + Group *g1; + + ngroups = bits_to_groups(nbits); +// start_bit = ((nbits - 1) % (sizeof (Bit) * 8)) + 1; + g1 = g + ngroups; + + for (i = ngroups; i >= 0; i--, g1--) + for (j = sizeof(Bit) - 1; j >= 0; j--) { +#ifdef WORDS_BIGENDIAN + c = *(((char *) &AVAL(g1)) + sizeof(Bit) - 1 - j); /* endianess problem */ +#else + c = (AVAL(g1) >> j * 8) & 255; +#endif + if (c) + *p++ = c; + } + *p = 0; +} + +handle_t get_handle(tree * code) +{ + nbits_t nbits; + Group *val; + + val = eval_(code, &nbits); + return check_handle((handle_t) AVAL(val)); +} + +tree init_function_return(char *name, int size, enum tree_code code) +{ + tree var_name = make_node(IDENTIFIER_NODE); + tree rtn = make_node(code); + + IDENTIFIER_LENGTH(var_name) = strlen(name); + IDENTIFIER_POINTER(var_name) = name; + DECL_NAME(rtn) = var_name; +// if (code == REG_VECTOR_DECL) + TREE_NBITS(rtn) = size; + DECL_STORAGE(rtn) = (Group *) malloc_X(bits_to_groups(size) + 1); + if (!DECL_STORAGE(rtn)) + fatal("Not enough memory to allocate for '%s' system function", + name); +// STMT_TASK_ARGS (node) = NULL_TREE; + return rtn; +} + +int args_one(int num_args, char *taskname) +{ + if (num_args > 1) + error("Unexpected arguments in system function '%s'", taskname, + NULL); + else if (num_args == 0) + error("Missing arguments in call to system function '%s'", + taskname, NULL); + else + return 1; + return 0; +} + +int args_zero(int num_args, char *taskname) +{ + if (num_args != 0) + error("Unexpected arguments in system function '%s'", taskname, + NULL); + else + return 1; + return 0; +} + +int args_zero_or_one(int num_args, char *taskname) +{ + if (num_args > 1) + error("Unexpected arguments in system function '%s'", taskname, + NULL); + else + return 1; + return 0; +} + +void arg_common(tree args) +{ + tree t; + + for (t = args; t; t = TREE_CHAIN(t)) + if (TREE_EXPR(t)) + TREE_EXPR_CODE(t) = pass3_expr(TREE_EXPR(t)); +} + +int count_args(tree node) +{ + tree t; + int arg_count = 0; + + if (TREE_CODE(node) == SYSTASK_STMT) + t = STMT_TASK_ARGS(node); + else if (TREE_CODE(node) == SYSFUNCTION_REF) + t = FUNC_REF_ARGS(node); + else { + error("Illegal node type", NULL, NULL); /* do error handling later */ + return 0; + } + + if (!t || !TREE_EXPR(t)) /* This covers $foo; and $foo(); */ + return 0; + for (; t; t = TREE_CHAIN(t)) + arg_count++; + return arg_count; +} + +void init_sysfunction(tree node) +{ + int num_args; + tree t; + enum tree_code code; + PliInfo_t *info; + int count; + +/* First, count the number of arguments */ + num_args = count_args(node); + TREE_NBITS(node) = 1; /* make sure this is something if error causes early exit */ + + switch (FUNC_REF_SYSTYPE(node)) { + + case USER_FUNC: + + FUNC_REF_NEXT(node) = pliInstanceList; + pliInstanceList = node; + FUNC_REF_DELAYSCB(node) = NULL; + // setup for async marker + count = 1; + +// ??? mdh - change +// for (t = STMT_TASK_ARGS (node); t; t = TREE_CHAIN (t)) { + for (t = FUNC_REF_ARGS(node); t; t = TREE_CHAIN(t)) { + info = (PliInfo_t *) xmalloc(sizeof(PliInfo_t)); + info->storage = NULL; + info->pvc = FALSE; + info->saved_pvc = FALSE; + info->vclSet = FALSE; + info->instance = node; + info->argNumber = count; + info->marker = NULL; + TREE_PLIINFO(t) = (tree) info; + count++; + + if (TREE_EXPR(t)) { + // ??? mdh - but this version doen't install markers so + // pvc calls won't be performed + TREE_EXPR_CODE(t) = pass3_expr_intrude(TREE_EXPR(t), 1); + // ??? mdh - this destroys function return code +// TREE_EXPR_CODE (t) = pass3_expr_marker (TREE_EXPR (t), +// &info->marker, (enum marker_flags)(M_ASYNCH + M_FIXED), (tree)info, NULL_TREE ); + } + } + + current_tf_instance = node; + ASYNCH_ATTR(node) = FALSE; + call_check_tf(FUNC_REF_USERTF(node)); +// arg_common (FUNC_REF_ARGS (node)); + TREE_NBITS(node) = call_size_tf(FUNC_REF_USERTF(node)); + FUNC_REF_RETURNDECL(node) = + init_function_return(((p_tfcell) FUNC_REF_USERTF(node))-> + tfname, TREE_NBITS(node), + REG_VECTOR_DECL); + return; + + + case F_STIME: + if (!args_zero(num_args, "$stime")) + break; + + TREE_NBITS(node) = 32; + if (!sysstime_once) { + sysstime_return = + init_function_return("$stime", 32, REG_VECTOR_DECL); + sysstime_once = 1; + } + break; + + case F_TIME: + if (!args_zero(num_args, "$time")) + break; + + TREE_NBITS(node) = 64; + if (!systime_once) { + systime_return = + init_function_return("$time", 64, REG_VECTOR_DECL); + systime_once = 1; + } + break; + + case F_REALTIME: + if (!args_zero(num_args, "$realtime")) + break; + + TREE_NBITS(node) = 32; + TREE_REAL_ATTR(node) = 1; /* make $realtime a real (not int) node */ + if (!sysrealtime_once) { + sysrealtime_return = + init_function_return("$realtime", 32, REAL_DECL); + sysrealtime_once = 1; + } + break; + + case F_RANDOM: + if (!args_zero_or_one(num_args, "$random")) + break; + + if (num_args == 1) { + t = TREE_PURPOSE(FUNC_REF_ARGS(node)); /* 1st arg */ + if (HIERARCHICAL_ATTR(t)) { + FUNC_REF_INASSIGN(node) = resolve_hierarchical_name(t); + if (FUNC_REF_INASSIGN(node) == error_mark_node) { + TREE_NBITS(t) = 1; + break; + } + } else + FUNC_REF_INASSIGN(node) = t; + code = TREE_CODE(FUNC_REF_INASSIGN(node)); + if (code != REG_VECTOR_DECL && code != INTEGER_DECL + && code != TIME_DECL) { + error("Illegal arguments is call to $random", NULL, NULL); + break; + } + } + TREE_NBITS(node) = 32; + if (!sysrand_once) { + sysrand_return = + init_function_return("$random", 32, REG_VECTOR_DECL); + sysrand_once = 1; + } + break; + + case F_FOPEN: + if (!args_one(num_args, "$fopen")) + break; + + FUNC_REF_INASSIGN(node) = build_tree_list((tree) + pass3_expr_intrude + (TREE_PURPOSE + (FUNC_REF_ARGS(node)), + 1), NULL_TREE); + + TREE_NBITS(node) = 32; + if (!sysopen_once) { + sysopen_return = + init_function_return("$fopen", 32, REG_VECTOR_DECL); + sysopen_once = 1; + } + break; + + case F_TEST_PLUSARGS: + if (!args_one(num_args, "$test$plusargs")) + break; + + if (num_args == 0) + yyerror + ("Missing arguments in call to system function '$test$plusargs'"); + FUNC_REF_INASSIGN(node) = build_tree_list((tree) + pass3_expr_intrude + (TREE_PURPOSE + (FUNC_REF_ARGS(node)), + 1), NULL_TREE); + + TREE_NBITS(node) = 1; + if (!sysplus_once) { + sysplus_return = + init_function_return("$test$plusargs", 1, REG_SCALAR_DECL); + sysplus_once = 1; + } + break; + } +} + +void init_systask(tree node) +{ + int num_args; + int is_file = 0; + tree t; + tree decl; + PliInfo_t *info; + int count; + +/* First, count the number of arguments */ + num_args = count_args(node); + R_alloc(10, 10); + TREE_NBITS(node) = 1; /* in case an error causes an early exit */ + + + switch (STMT_SYSTASK_TYPE(node)) { + + case USER_TASK: + // setup for async marker + STMT_SYSTASK_NEXT(node) = pliInstanceList; + pliInstanceList = node; + STMT_SYSTASK_DELAYSCB(node) = NULL; + count = 1; + for (t = STMT_TASK_ARGS(node); t; t = TREE_CHAIN(t)) { + info = (PliInfo_t *) xmalloc(sizeof(PliInfo_t)); + info->storage = NULL; + info->pvc = FALSE; + info->saved_pvc = FALSE; + info->instance = node; + info->argNumber = count; + info->marker = NULL; + TREE_PLIINFO(t) = (tree) info; + count++; + + if (TREE_EXPR(t)) { + TREE_EXPR_CODE(t) = pass3_expr_marker(TREE_EXPR(t), + &info->marker, + (enum + marker_flags) + (M_ASYNCH + M_FIXED), + (tree) info, + NULL_TREE); + } + + } + + current_tf_instance = node; + call_check_tf(STMT_SYSTASK_USERTF(node)); +// arg_common (STMT_TASK_ARGS (node)); + ASYNCH_ATTR(node) = FALSE; + break; + + case SCOPE: + if (!args_one(num_args, "$scope")) + break; + + t = TREE_PURPOSE(STMT_TASK_ARGS(node)); +// if (*tree_code_type [TREE_CODE (t)] != 'b' && !HIERARCHICAL_ATTR (t)) + if (TREE_CODE(t) != BLOCK_DECL && !HIERARCHICAL_ATTR(t)) + yyerror("Illegal argument type for $scope system task"); + break; + + case SHOWSCOPES: + case T_NOLOG: + case T_NOKEY: + case T_MONITORON: + case T_MONITOROFF: + case T_DUMPON: + case T_DUMPOFF: + case T_DUMPALL: + case T_DUMPFLUSH: + case T_UPDATETIMINGS: + + if (!args_zero(num_args, STMT_TASK_NAME(node))) + break; + break; + + case T_SHOWVARS: + if (num_args > 1) + yyerror("Unexpected arguments in system task $showvars"); + else if (num_args == 1) + arg_common(STMT_TASK_ARGS(node)); + break; + + case T_LOG: + case T_KEY: + if (num_args > 1 || STMT_TASK_ARGS(node) + && !TREE_EXPR(STMT_TASK_ARGS(node))) + error("Unexpected arguments in system task %s", + STMT_TASK_NAME(node), NULL_CHAR); + else + arg_common(STMT_TASK_ARGS(node)); + break; + + case T_FCLOSE: + case T_INPUT: + case T_DUMPFILE: + if (args_one(num_args, STMT_TASK_NAME(node))) + arg_common(STMT_TASK_ARGS(node)); + break; + + case FDISPLAY: + case FDISPLAYB: + case FDISPLAYH: + case FDISPLAYO: + case T_FWRITE: + case T_FWRITEB: + case T_FWRITEH: + case T_FWRITEO: + case FSTROBE: + case FSTROBEB: + case FSTROBEH: + case FSTROBEO: + case FMONITOR: + case FMONITORB: + case FMONITORH: + case FMONITORO: + is_file = 1; + case DISPLAY: + case DISPLAYB: + case DISPLAYH: + case DISPLAYO: + case WRITE: + case WRITEB: + case WRITEH: + case WRITEO: + case STROBE: + case STROBEB: + case STROBEH: + case STROBEO: + case MONITOR: + case MONITORB: + case MONITORH: + case MONITORO: + if (!disp_common(node, DEC, is_file, 1)) { + error("Illegal arguments in call to %s", STMT_TASK_NAME(node), + NULL_CHAR); + break; + } + arg_common(STMT_TASK_ARGS(node)); + break; + + case T_READMEMH: + case T_READMEMB: + if (num_args < 2) { + error("Missing arguments in call to %s", STMT_TASK_NAME(node), + NULL_CHAR); + break; + } + if (num_args > 4) { + error("Too many arguments in call to %s", STMT_TASK_NAME(node), + NULL_CHAR); + break; + } + /* Process file name */ + t = STMT_TASK_ARGS(node); + if (TREE_EXPR(t)) + TREE_EXPR_CODE(t) = pass3_expr(TREE_EXPR(t)); + else { + error("Missing file name in call to %s", STMT_TASK_NAME(node), + NULL_CHAR); + break; + } + + /* Make sure 2nd argument is an array */ + t = TREE_CHAIN(t); + decl = TREE_EXPR(t); + if (HIERARCHICAL_ATTR(decl)) + decl = resolve_hierarchical_name(decl); + if (TREE_CODE(decl) != ARRAY_DECL) { + error("Second argument to %s must be an array", + STMT_TASK_NAME(node), NULL_CHAR); + break; + } + for (t = TREE_CHAIN(t); t; t = TREE_CHAIN(t)) + if (TREE_EXPR(t)) { + TREE_EXPR_CODE(t) = pass3_expr(TREE_EXPR(t)); + if (TREE_NBITS(*TREE_EXPR_CODE(t)) > MAX_BITS_IN_NUMBER) + yyerror("Array index must be within 32 bits"); + } else + error("Missing argument in call to %s", + STMT_TASK_NAME(node), NULL_CHAR); + + break; + + case T_WWAVES: + /* For waves, make sure arguments are in label-signal pairs */ + for (t = STMT_TASK_ARGS(node); t; t = TREE_CHAIN(t)) { + if (is_string(TREE_EXPR(t))) + TREE_EXPR_CODE(t) = pass3_expr(TREE_EXPR(t)); + else { + error("Missing label in call to %s", STMT_TASK_NAME(node), + NULL_CHAR); + break; + } + if (((t = TREE_CHAIN(t)) == NULL_TREE) || !TREE_EXPR(t)) { + error("Missing argument in call to %s", + STMT_TASK_NAME(node), NULL_CHAR); + break; + } + if (is_array(TREE_EXPR(t))) { + error("Illegal array reference in call to %s", + STMT_TASK_NAME(node), NULL_CHAR); + break; + } + if (is_string(TREE_EXPR(t))) { + error("Missing signal in call to %s", + STMT_TASK_NAME(node), NULL_CHAR); + break; + } + TREE_EXPR_CODE(t) = pass3_expr(TREE_EXPR(t)); + } + break; + + case T_DUMPVARS: + dumpvar.markers_first = NULL; + dumpvar.markers_last = NULL; + dumpvar.printed = NULL; + dumpvar.unprinted = NULL; + dumpvar.disallow_dumpvars = 0; + dumpvar.first_dumpvars = 1; + dumpvar.enabled = 0; + dumpvar.new_time = 1; + + if (!num_args) /* No args, simple case */ + break; + + t = STMT_TASK_ARGS(node); + if (is_block(TREE_EXPR(t), &decl)) + error("Illegal type in first argument of $dumpvars", NULL, + NULL); + else + TREE_EXPR_CODE(t) = pass3_expr(TREE_EXPR(t)); + + /* Put actual decl or block node in TREE_STMT */ + for (t = TREE_CHAIN(t); t; t = TREE_CHAIN(t)) + if (is_var(TREE_EXPR(t), &TREE_STMT(t)) + || is_block(TREE_EXPR(t), &TREE_STMT(t))); + else + error("Illegal argument in $dumpvars list", NULL, NULL); + break; + + case T_TIMEFORMAT: + default: + arg_common(STMT_TASK_ARGS(node)); + } +} + +void exec_systask(tree node) +{ + tree t, t1; + extern tree current_scope; + extern char *token_buffer; + enum radii radix; + int is_file = 0; /* to distiguish between $display and $fdisplay, etc */ + int level = 0; + + if (TREE_CODE(node) == TIMING_CHECK) { + timingCheck(node); + return; + } + + switch (STMT_SYSTASK_TYPE(node)) { + + case USER_TASK: + current_tf_instance = node; + { + strobe_queue_t *queue = is_strobe_active(node); + + /* Get here because of call to user task, call call_tf */ + if (!queue) + call_call_tf(STMT_SYSTASK_USERTF(node)); + /* Get here at end of time unit and [ro]synchronize had been armed */ + else { + if (queue == &idle_strobe_queue) + call_misc_tf(STMT_SYSTASK_USERTF(node), REASON_SYNCH); + else { + roFlag = TRUE; + call_misc_tf(STMT_SYSTASK_USERTF(node), + REASON_ROSYNCH); + roFlag = FALSE; + } + } + } + break; + + case SCOPE: + /* arg is either string or block node */ + t1 = TREE_PURPOSE(STMT_TASK_ARGS(node)); +// if (*tree_code_type [TREE_CODE (t1)] != 'b') { + if (TREE_CODE(t1) != BLOCK_DECL) { + strcpy(token_buffer, IDENTIFIER_POINTER(t1)); + t = search_scope(token_buffer, 0); /* traverse the scope */ + if (t != error_mark_node) { + strcpy(token_buffer, IDENTIFIER_POINTER(t1)); + search_scope(token_buffer, 1); /* actually set the scope */ + } + } else { + t = DECL_THREAD(t1); + if (!t) + error("'%s' not declared", IDENT(DECL_NAME(t)), NULL_CHAR); + else + look_for_and_set_scope(t); + } + +// if (BLOCK_UP (t) == current_scope) /* down one */ +// set_scope (t); +// else +// lookupward_scope (t); /* go up and set scope */ +// } + broadcast_tf(reason_scope); + + break; + + case SHOWSCOPES: + printf_V("Directory of scopes at current scope level:\n"); + for (t = BLOCK_DOWN(current_scope); t; t = TREE_CHAIN(t)) { + if (TREE_CODE(t) == MODULE_BLOCK) { + printf_V("module (%s), instance (%s)\n", + MODULE_NAME(t), IDENT(BLOCK_NAME(t))); + } else if (TREE_CODE(t) == TASK_BLOCK) { + printf_V("task (%s)\n", IDENT(BLOCK_NAME(t))); + } else if (TREE_CODE(t) == FUNCTION_BLOCK) { + printf_V("function (%s)\n", IDENT(BLOCK_NAME(t))); + } else if (TREE_CODE(t) == NAMED_BLOCK) { + printf_V("named block (%s)\n", IDENT(BLOCK_NAME(t))); + } + } + printf_V("\nCurrent scope is ("); + print_scope((handle_t) 1, current_scope); + printf_V(")\n"); + print_top_modules(); + break; + + case T_SHOWVARS: + if (STMT_TASK_ARGS(node) && TREE_EXPR(STMT_TASK_ARGS(node))) + showvar(*TREE_EXPR_CODE(STMT_TASK_ARGS(node))); + else { + for (t = BLOCK_PORTS(current_scope); t; t = TREE_CHAIN(t)) + showvar(t); + for (t = BLOCK_DECL(current_scope); t; t = TREE_CHAIN(t)) + showvar(t); + + /* only module blocks have spec parameters */ + if (TREE_CODE(current_scope) == MODULE_BLOCK) { + for (t = MODULE_SPECDEFS(current_scope); t; + t = TREE_CHAIN(t)) + if (TREE_CODE(t) == SPECPARAM_DECL) { + showvar(t); + } + } + + } + break; + + case SETTRACE: + trace_flag = 1; + normal_flag = 0; + break; + + case CLEARTRACE: + trace_flag = 0; + normal_flag = 0; + break; + + case T_UPDATETIMINGS: + if (TREE_CODE(current_scope) == MODULE_BLOCK) { + specify_update_timings(current_scope); + } + break; + + case T_NOLOG: + log_enable = 0; + break; + + case T_NOKEY: + key_enable = 0; + break; + + case T_LOG: + if (STMT_TASK_ARGS(node)) { + eval(TREE_EXPR_CODE(STMT_TASK_ARGS(node))); + bits_to_string(token_buffer, *--R, R_nbits); + fclose(log_file); + log_file = shell_fopen(token_buffer, "w+t"); + if (!log_file) { + warning("Cannot open log file '%s'", token_buffer, + NULL_CHAR); + log_available = 0; + log_enable = 0; + } else { + log_file_name = (char *) xmalloc(strlen(token_buffer)); + strcpy(log_file_name, token_buffer); + log_enable = 1; + log_available = 1; + } + } else /* no arguments */ + log_enable = 1; + break; + + case T_KEY: + if (STMT_TASK_ARGS(node)) { + eval(TREE_EXPR_CODE(STMT_TASK_ARGS(node))); + bits_to_string(token_buffer, *--R, R_nbits); + fclose(key_file); + key_file = shell_fopen(token_buffer, "wt"); + if (!key_file) { + warning("Cannot open key file '%s'", token_buffer, + NULL_CHAR); + key_available = 0; + key_enable = 0; + } else { + key_file_name = (char *) xmalloc(strlen(token_buffer)); + strcpy(key_file_name, token_buffer); + key_enable = 1; + key_available = 1; + } + } else /* no arguments */ + key_enable = 1; + break; + + case T_INPUT: + { + File *input; + extern int prompt_flag; /* in exec.c */ + + eval(TREE_EXPR_CODE(STMT_TASK_ARGS(node))); + bits_to_string(token_buffer, *--R, R_nbits); + input = File::fopen(token_buffer, "r+t"); + if (!input) { + error("Cannot open input file '%s'", token_buffer, + NULL_CHAR); + } else { +// extern char i_buf[]; + push_stream(fin, 0); + fin = input; + prompt_flag = 1; +// setbuf (fin, i_buf); + } + } + break; + + case STOP: + do_stop(); + if (STMT_TASK_ARGS(node) && TREE_EXPR(STMT_TASK_ARGS(node))) + print_info(); + break; + + case FINISH: + do_finish(); + break; + + case T_FCLOSE: + fclose_V(get_handle(TREE_EXPR_CODE(STMT_TASK_ARGS(node)))); + break; + + case T_MONITOROFF: + monitor_info.enable = 0; + dequeue_strobe(&final_strobe_queue, monitor_info.node); + break; + + case T_MONITORON: + monitor_info.enable = 1; + tickle_monitor_old(&final_strobe_queue, &monitor_info); + break; + + case FDISPLAY: + case T_FWRITE: + is_file = 1; + case DISPLAY: + case WRITE: + disp_common(node, DEC, is_file, 0); + break; + + case FDISPLAYH: + case T_FWRITEH: + is_file = 1; + case DISPLAYH: + case WRITEH: + disp_common(node, HEX, is_file, 0); + break; + + case FDISPLAYB: + case T_FWRITEB: + is_file = 1; + case DISPLAYB: + case WRITEB: + disp_common(node, BIN, is_file, 0); + break; + + case FDISPLAYO: + case T_FWRITEO: + is_file = 1; + case DISPLAYO: + case WRITEO: + disp_common(node, OCT, is_file, 0); + break; + +/* Strobes get here in one of two ways: 1) a call to $strobe; this queues + a message to strobe_first. 2) at the end of a simulation time; this + actually performs the action */ + case FSTROBE: + is_file = 1; + case STROBE: + if (!is_strobe_active(node)) + enqueue_strobe(&final_strobe_queue, node); + else + disp_common(node, DEC, is_file, 0); + break; + + case FSTROBEB: + is_file = 1; + case STROBEB: + if (!is_strobe_active(node)) + enqueue_strobe(&final_strobe_queue, node); + else + disp_common(node, BIN, is_file, 0); + break; + + case FSTROBEH: + is_file = 1; + case STROBEH: + if (!is_strobe_active(node)) + enqueue_strobe(&final_strobe_queue, node); + else + disp_common(node, HEX, is_file, 0); + break; + + case FSTROBEO: + is_file = 1; + case STROBEO: + if (!is_strobe_active(node)) + enqueue_strobe(&final_strobe_queue, node); + else + disp_common(node, OCT, is_file, 0); + break; + +/* Monitor gets here in one of two ways: 1) a call to $monitor which + sets up the markers; 2) at the end of a simulation time when the action + happens. When an argument changes, NotifyEvent calls enqueue_strobe + to queue the action. Note that this is slightly different from XL; + monitors in XL trigger when the argument expression changes -- here, + we trigger is any operand in the expression changes. Eg: $monitor (x+y); + if x changes from 2->3 and y changes from 3->2, we will trigger, XL + would not. If we implement PLI later, we'll change it then. */ + + case FMONITOR: + is_file = 1; + case MONITOR: + if (!is_strobe_active(node)) + monitor_args(node, &monitor_info); + else + disp_common(node, DEC, is_file, 0); + break; + + case FMONITORB: + is_file = 1; + case MONITORB: + if (!is_strobe_active(node)) + monitor_args(node, &monitor_info); + else + disp_common(node, BIN, is_file, 0); + break; + + case FMONITORH: + is_file = 1; + case MONITORH: + if (!is_strobe_active(node)) + monitor_args(node, &monitor_info); + else + disp_common(node, HEX, is_file, 0); + break; + + case FMONITORO: + is_file = 1; + case MONITORO: + if (!is_strobe_active(node)) + monitor_args(node, &monitor_info); + else + disp_common(node, OCT, is_file, 0); + break; + + case SHOWSTATS: + print_stats(); + break; + + case T_READMEMH: + radix = HEX; + do_readmem(node, radix); + break; + + case T_READMEMB: + radix = BIN; + do_readmem(node, radix); + break; + + case T_DUMPVARS: + if (!is_strobe_active(node)) { + if (dumpvar.disallow_dumpvars) { + runtime_error(node); + warning("Too late to call $dumpvars, this call ignored", + NULL, NULL); + break; + } + + /* Case 1: no arguments */ + if (!STMT_TASK_ARGS(node)) + dumpvars_all(); + /* Case 2: Parse arguments */ + else { + nbits_t nbits; + Group *val = + eval_(TREE_EXPR_CODE(STMT_TASK_ARGS(node)), &nbits); + + if (BVAL(val)) { + runtime_error(node); + error("Illegal value in first argument of $dumpvar", + NULL, NULL); + } + level = AVAL(val); + if (!level) + level = 64000; + for (t = TREE_CHAIN(STMT_TASK_ARGS(node)); t; + t = TREE_CHAIN(t)) + if (*tree_code_type[TREE_CODE(TREE_STMT(t))] == 'b') + dumpvars_scope_down(TREE_STMT(t), level); + else + dumpvars_mark(TREE_STMT(t)); + } + if (dumpvar.first_dumpvars) + enqueue_strobe(&final_strobe_queue, node); /* Schedule this to run at end of time */ + dumpvar.first_dumpvars = 0; + } + + /* Get here at the end of the time unit in which all dumpvars are + called */ + else { + dumpvar.disallow_dumpvars = 1; /* don't allow any more calls */ + dumpvar.unprinted = dumpvar.markers_first; + if (dumpvars_header(node)) { + dumpvars_enable(); + dumpvars_checkpoint("$dumpvars"); + } + } + break; + + case T_DUMPFILE: + if (dumpvar.disallow_dumpvars) { + runtime_error(node); + error("Too late to change dump file name", NULL, NULL); + break; + } + eval(TREE_EXPR_CODE(STMT_TASK_ARGS(node))); + bits_to_string(token_buffer, *--R, R_nbits); + dumpvar.file_name = (char *) xmalloc(strlen(token_buffer) + 1); + strcpy(dumpvar.file_name, token_buffer); + break; + + case T_DUMPON: + /* 2nd condition is needed in case $dumpon is called before dump + file is opened in dumpvar_header */ + if (!dumpvar.enabled && dumpvar.disallow_dumpvars) { + dumpvars_enable(); + dumpvars_checkpoint("$dumpon"); + } + break; + + case T_DUMPOFF: + if (dumpvar.enabled) { + dumpvars_disable(); + dumpvars_x("$dumpoff"); + } + break; + + case T_DUMPALL: + if (!dumpvar.enabled && dumpvar.disallow_dumpvars) + dumpvars_checkpoint("$dumpall"); + break; + + case T_DUMPFLUSH: + dumpvars_flush(); + break; + +/* $timeformat (units, prec, string, width) + default: time_precision, 0, "", 20 */ +#if 0 + case T_TIMEFORMAT: + nbits_t nbits; + int units, prec, width; + + t = STMT_TASK_ARGS(node); /* first arg: units */ + Group *val = eval_(TREE_EXPR_CODE(t), &nbits); + + if (BVAL(val)) { + runtime_error(node); + error("Illegal value in first argument of $timeformat", NULL, + NULL); + } + units = AVAL(val); + + t = TREE_CHAIN(t); /* 2nd arg: precision */ + Group *val = eval_(TREE_EXPR_CODE(t), &nbits); + + if (BVAL(val)) { + runtime_error(node); + error("Illegal value in second argument of $timeformat", NULL, + NULL); + } + prec = AVAL(val); + + t = TREE_CHAIN(t); /* 3rd arg: suffix string */ + eval(TREE_EXPR_CODE(t)); + bits_to_string(token_buffer, *--R, R_nbits); + + t = TREE_CHAIN(t); /* 2nd arg: precision */ + Group *val = eval_(TREE_EXPR_CODE(t), &nbits); + + if (BVAL(val)) { + runtime_error(node); + error("Illegal value in fourth argument of $timeformat", NULL, + NULL); + } + width = AVAL(val); + + timeformat(units, prec, token_buffer, width); + break; +#endif + } +} + +void exec_sysfunc(tree node, nbits_t nbits) +{ + Group *g; + struct Time64 tmpTime; + + switch FUNC_REF_SYSTYPE + (node) { + case USER_FUNC: + current_tf_instance = node; + { + strobe_queue_t *queue = is_strobe_active(node); + + /* Get here because of call to user task, call call_tf */ + if (!queue) { + call_call_tf(FUNC_REF_USERTF(node)); + eval_nbits(FUNC_REF_RETURNDECL(node), TREE_NBITS(node)); + /* Get here at end of time unit and [ro]synchronize had been armed */ + } else { + if (queue == &idle_strobe_queue) + call_misc_tf(FUNC_REF_USERTF(node), REASON_SYNCH); + else + call_misc_tf(FUNC_REF_USERTF(node), REASON_ROSYNCH); + } + } + break; + case F_TIME: + tmpTime = CurrentTime; + timescale_divide(&tmpTime, FUNC_REF_CONTEXT(node)); + AVAL(DECL_STORAGE(systime_return)) = tmpTime.timel; + BVAL(DECL_STORAGE(systime_return)) = 0; + AVAL(DECL_STORAGE(systime_return) + 1) = tmpTime.timeh; + BVAL(DECL_STORAGE(systime_return) + 1) = 0; + eval_nbits(systime_return, nbits); + break; + case F_STIME: + tmpTime = CurrentTime; + timescale_divide(&tmpTime, FUNC_REF_CONTEXT(node)); + AVAL(DECL_STORAGE(sysstime_return)) = tmpTime.timel; + BVAL(DECL_STORAGE(sysstime_return)) = 0; + eval_nbits(sysstime_return, nbits); + break; + case F_REALTIME: + tmpTime = CurrentTime; + REAL_(DECL_STORAGE(sysrealtime_return)) = + timescale_divide(&tmpTime, FUNC_REF_CONTEXT(node)); + eval_nbits(sysrealtime_return, nbits); + break; + case F_FOPEN: + eval((tree *) TREE_PURPOSE(FUNC_REF_INASSIGN(node))); + { + unsigned_32_t handle; + extern char *token_buffer; + + bits_to_string(token_buffer, *--R, R_nbits); + handle = fopen_V(token_buffer); + AVAL(DECL_STORAGE(sysopen_return)) = handle; + BVAL(DECL_STORAGE(sysopen_return)) = 0; + eval_nbits(sysopen_return, nbits); + break; + } + case F_RANDOM: + if (FUNC_REF_INASSIGN(node)) { /* seed present? */ + eval_1(FUNC_REF_INASSIGN(node)); + srand((unsigned) AVAL(*--R)); + g = *R; + AVAL(g) = ((int) rand() << 16) + rand(); /* new seed */ + *++R = g + 1; + store(FUNC_REF_INASSIGN(node), node); + } + AVAL(DECL_STORAGE(sysrand_return)) = + ((int) rand() << 16) + rand(); + BVAL(DECL_STORAGE(sysrand_return)) = 0; + eval_nbits(sysrand_return, nbits); + break; + case F_TEST_PLUSARGS: + eval((tree *) TREE_PURPOSE(FUNC_REF_INASSIGN(node))); + { + extern char *token_buffer; + tree t; + + bits_to_string(token_buffer, *--R, R_nbits); + AVAL(DECL_STORAGE(sysplus_return)) = 0; + BVAL(DECL_STORAGE(sysplus_return)) = 0; + for (t = plusargs; t; t = TREE_CHAIN(t)) { + if (!strcmp(token_buffer, (char *) TREE_PURPOSE(t))) { + /* Found a plusarg */ + AVAL(DECL_STORAGE(sysplus_return)) = 1; + break; + } + } + eval_nbits(sysplus_return, nbits); + break; + } + + } /* switch */ +} + +/* Process monitor */ + +void monitor_args(tree node, struct monitor_info *monitor_info) +{ + tree t; + extern struct Marker_info marker_info; + + + if (monitor_info->node != NULL_TREE) { + /* clear the markers from previous invocation */ + for (t = STMT_TASK_ARGS(monitor_info->node); t; t = TREE_CHAIN(t)) + if (TREE_EXPR(t)) + event_undo((Marker *) TREE_STMT(t)); + dequeue_strobe(&final_strobe_queue, monitor_info->node); + + } + monitor_info->node = node; + + for (t = STMT_TASK_ARGS(node); t; t = TREE_CHAIN(t)) + if (TREE_EXPR(t)) { + tree save_current_scope = current_scope; + current_scope = STMT_SCOPE(node); /* use this when resolving + hierarchical names */ + TREE_EXPR_CODE(t) = pass3_expr_marker(TREE_EXPR(t), + (Marker **) & + TREE_STMT(t), + (enum + marker_flags) (M_STROBE + + + M_FIXED), + (tree) monitor_info, + NULL_TREE); + current_scope = save_current_scope; + } + + enqueue_strobe(&final_strobe_queue, node); /* Tickle it now */ +} + +#if 0 +void monitor_args(tree node, struct monitor_info *monitor_info) +{ + SCB *save_scb; + tree t; + extern struct Marker_info marker_info; + + + save_scb = marker_info.current_scb; + if (monitor_info->scb) { + /* clear the markers from previous invocation */ + for (t = STMT_TASK_ARGS(monitor_info->scb->pc); t; + t = TREE_CHAIN(t)) + if (TREE_EXPR(t)) + event_undo(TREE_STMT(t)); + dequeue_strobe(&final_strobe_queue, monitor_info->scb->pc); + + FreeSCB(monitor_info->scb); + } + /* Only one $monitor allow at on time */ + monitor_info->scb = marker_info.current_scb = BuildSCB(node, NOLIST); +// monitor_info->scb->context->scope = readylist->current_scope; +//printf ("Scope is %s\n", IDENT(readylist->current_scope->block_common.name)); + /* Save a pointer to out info in "fork" (ok, so its available). */ +// monitor_info->scb->fork = (SCB*) monitor_info; + monitor_info->node = node; + + for (t = STMT_TASK_ARGS(node); t; t = TREE_CHAIN(t)) + if (TREE_EXPR(t)) + TREE_EXPR_CODE(t) = pass3_expr_marker(TREE_EXPR(t), + (Marker **) & + TREE_STMT(t), + M_STROBE + M_FIXED, + (tree) monitor_info); + enqueue_strobe(&final_strobe_queue, node); /* Tickle it now */ + marker_info.current_scb = save_scb; +} +#endif + +int +disp_common(tree node, enum radii default_radix, int is_file, + int check_only) +{ + tree t, t1; + Group *g; + Group *val; + nbits_t nbits; + int c, j; + ngroups_t i; + int attr = 0; + handle_t handle; + int is_integer = 0, fill_space = 1; + char length_spec[10] = "%", *ls = &length_spec[1]; + + t = STMT_TASK_ARGS(node); + if (is_file) { + if (!check_only) + handle = get_handle(TREE_EXPR_CODE(t)); + t = TREE_CHAIN(t); + } else + handle = 1; + + for (; t; t = t ? TREE_CHAIN(t) : t) /* If too few args, t will be NULL */ + // for (; t; t = TREE_CHAIN (t)) /* If too few args, t will be NULL */ + { + + t1 = TREE_EXPR(t); + + if (!t1) { /* Null argument */ + if (!check_only) + fprintf_V(handle, " "); + } else if (TREE_CODE(t1) == BIT_CST + && BIT_CST_RADIX(t1) == STRING_) { + is_integer = TREE_INTEGER_ATTR(t1); + g = BIT_CST_GROUP(t1) + bits_to_groups(TREE_NBITS(t1)); + for (i = bits_to_groups(TREE_NBITS(t1)); i >= 0; i--, g--) { + for (j = sizeof(Bit) - 1; j >= 0; j--) { + c = (AVAL(g) >> j * 8) & 255; + if (attr) { + if (!t) + return 0; + attr = 0; + *ls = 0; + switch (tolower(c)) { + case 't': + t = print_next_arg(handle, t, TIME_, + check_only, 1, fill_space, + NULL, STMT_SCOPE(node)); + ls = &length_spec[1]; + break; + case 'd': + t = print_next_arg(handle, t, DEC, check_only, + 1, fill_space, NULL, NULL); +// is_integer, fill_space, NULL, NULL); + ls = &length_spec[1]; + break; + case 'o': + t = print_next_arg(handle, t, OCT, check_only, + is_integer, fill_space, + NULL, NULL); + ls = &length_spec[1]; + break; + case 'h': + case 'x': + t = print_next_arg(handle, t, HEX, check_only, + is_integer, fill_space, + NULL, NULL); + ls = &length_spec[1]; + break; + case 'b': + t = print_next_arg(handle, t, BIN, check_only, + is_integer, fill_space, + NULL, NULL); + ls = &length_spec[1]; + break; + case 's': + t = print_next_arg(handle, t, STRING_, + check_only, is_integer, + fill_space, NULL, NULL); + ls = &length_spec[1]; + break; + case 'c': + t = print_next_arg(handle, t, CHAR_, + check_only, is_integer, + fill_space, NULL, NULL); + ls = &length_spec[1]; + break; + case 'e': + strcat(length_spec, "le"); + t = print_next_arg(handle, t, EXP_, check_only, + is_integer, fill_space, + length_spec, NULL); + ls = &length_spec[1]; + break; + case 'f': + strcat(length_spec, "lf"); + t = print_next_arg(handle, t, FLOAT_, + check_only, is_integer, + fill_space, length_spec, + NULL); + ls = &length_spec[1]; + break; + case 'g': + strcat(length_spec, "lg"); + t = print_next_arg(handle, t, EXPFLOAT_, + check_only, is_integer, + fill_space, length_spec, + NULL); + ls = &length_spec[1]; + break; + case 'm': + if (!check_only) +// print_scope (handle, readylist -> current_scope); + print_scope(handle, STMT_SCOPE(node)); + ls = &length_spec[1]; + break; + case '%': + if (!check_only) + fprintf_V(handle, "%%%%"); + break; + case '0': +// if (check_only) +// warning ("%%0 spec not supported and will be ignored"); + fill_space = 0; + attr = 1; /* look at next character anyway */ + *ls++ = c; + break; + case '1': + case '2': + case '3': + case '4': + case '5': + case '6': + case '7': + case '8': + case '9': + case '.': + if (ls < length_spec + 10) { + *ls++ = c; + attr = 1; + break; + } + default: + if (check_only) + return 0; + if (length_spec[1] != '\0') { + *ls = 0; + fprintf_V(handle, "%%%s", length_spec); + ls = &length_spec[1]; + *ls = 0; + } + fprintf_V(handle, "%%%c", c); + } + } else if (c == '%') { + attr = 1; + fill_space = 1; + } else if (c != 0 && !check_only) + fprintf_V(handle, "%c", c); + } + } + } + + else { + if (check_only) { + if (TREE_REAL_ATTR(TREE_EXPR(t)) && default_radix != DEC) + error + ("Illegal arguments in call to display system task", + NULL, NULL); + } else { + is_integer = TREE_INTEGER_ATTR(t1); + val = eval_(TREE_EXPR_CODE(t), &nbits); + if (TREE_REAL_ATTR(TREE_EXPR(t))) { +// AVAL (val) = REAL_ (val); +// BVAL (val) = 0; + print_datum_file(handle, val, (nbits_t) 0, nbits, + FLOAT_, is_integer, fill_space, "%g"); + } else { + print_datum_file(handle, val, (nbits_t) 0, nbits, + default_radix, is_integer, fill_space, + NULL); + } + } + } + } + if (!check_only) { + if (STMT_SYSTASK_TYPE(node) != WRITE && + STMT_SYSTASK_TYPE(node) != WRITEH && + STMT_SYSTASK_TYPE(node) != WRITEB && + STMT_SYSTASK_TYPE(node) != T_FWRITE && + STMT_SYSTASK_TYPE(node) != T_FWRITEH && + STMT_SYSTASK_TYPE(node) != T_FWRITEB) + fprintf_V(handle, "\n"); + fflush_V(handle); + } + return 1; +} + +tree +print_next_arg(handle_t handle, tree node, enum radii radix, int check, + int is_integer, int fill_space, char *spec, tree scope) +{ + Group *val; + nbits_t nbits; + tree t = TREE_CHAIN(node); + extern void timeformatprint(handle_t, tree, double); /* in verisys */ + + if (check) { + if (!t) { + error("More format specs than arguments", NULL, NULL); + return t; + } + + switch (radix) { + case HEX: + case OCT: + case BIN: + case DEC: + case STRING_: + case CHAR_: + if (radix != DEC && TREE_REAL_ATTR(TREE_EXPR(t))) + error("Illegal argument in call to display system task", + NULL, NULL); + break; +// case EXP_: case FLOAT_: case EXPFLOAT_: +// if (!TREE_REAL_ATTR (TREE_EXPR (t))) +// error ("Illegal argument in call to display system task", NULL, NULL); +// break; + } + return t; + } + val = eval_(TREE_EXPR_CODE(t), &nbits); + is_integer = TREE_INTEGER_ATTR(*TREE_EXPR_CODE(t)); + switch (radix) { + case EXP_: + case FLOAT_: + case EXPFLOAT_: + case TIME_: + if (!TREE_REAL_ATTR(TREE_EXPR(t))) + REAL_(val) = reg_to_real(val, nbits); + if (radix == TIME_) { + timeformatprint(handle, scope, REAL_(val)); + return t; + } + + break; + case DEC: + if (TREE_REAL_ATTR(TREE_EXPR(t))) + real_to_reg(REAL_(val), val, bits_to_groups(nbits)); + } + print_datum_file(handle, val, (nbits_t) 0, nbits, radix, + is_integer, fill_space, spec); + return t; +} + +void showvar(tree decl) +{ + enum tree_code code = TREE_CODE(decl); + + /* If this is a hierarchical reference, sort it out */ + if (code == SHADOW_REF) { + decl = TREE_CHAIN(decl); + code = TREE_CODE(decl); + } else if (code == ERROR_MARK) + return; + + if (code == ARRAY_DECL) + return; + printf_V("%s (", IDENT(DECL_NAME(decl))); + print_scope((handle_t) 1, DECL_CONTEXT(decl)); + printf_V(") "); + if (code != BLOCK_DECL) + if (DECL_THREAD(decl)) + decl = DECL_THREAD(decl); + + switch (code) { + case REG_VECTOR_DECL: + printf_V("reg [%lu, %lu] = ", MSB(decl), LSB(decl)); + trace_result(DECL_STORAGE(decl), TREE_NBITS(decl), + TREE_NBITS(decl), 0); + break; + case REG_SCALAR_DECL: + printf_V("reg = "); + trace_result(DECL_STORAGE(decl), TREE_NBITS(decl), + TREE_NBITS(decl), 0); + break; + case NET_VECTOR_DECL: + trace_net_type((enum tree_type) TREE_TYPE(decl)); + printf_V("[%lu, %lu] = ", MSB(decl), LSB(decl)); + trace_result(DECL_STORAGE(decl), TREE_NBITS(decl), + TREE_NBITS(decl), 0); + break; + case NET_SCALAR_DECL: + trace_net_type((enum tree_type) TREE_TYPE(decl)); + printf_V("= "); + trace_result(DECL_STORAGE(decl), TREE_NBITS(decl), + TREE_NBITS(decl), 0); + break; + case INTEGER_DECL: + printf_V("integer = "); + trace_result(DECL_STORAGE(decl), TREE_NBITS(decl), + TREE_NBITS(decl), 0); + break; + case PARAM_DECL: + printf_V("parameter = "); + trace_result(DECL_STORAGE(decl), TREE_NBITS(decl), + TREE_NBITS(decl), 0); + break; + case SPECPARAM_DECL: + printf_V("specparam = "); + trace_result(DECL_STORAGE(decl), TREE_NBITS(decl), + TREE_NBITS(decl), 0); + break; + case BLOCK_DECL: + switch (TREE_CODE(DECL_THREAD(decl))) { + case MODULE_BLOCK: + printf_V("MODULE"); + break; + case NAMED_BLOCK: + printf_V("NAMED BLOCK"); + break; + case TASK_BLOCK: + printf_V("TASK"); + break; + case FUNCTION_BLOCK: + printf_V("FUNCTION"); + break; + } + printf_V("\n"); + return; + + default: + break; + } + if (var_debug_flag) { +// printf_V (" [line %lu, file '%s', time %lu]\n", DECL_UPDATE_LINE (decl), +// DECL_UPDATE_FILE (decl), DECL_UPDATE_TIME (decl)); + if (DECL_UPDATE_FILE(decl)) { + printf_V("\t[line %lu, file '%s', time ", + DECL_UPDATE_LINE(decl), DECL_UPDATE_FILE(decl)); + print_time(&DECL_UPDATE_TIME(decl)); + printf_V("]\n"); + } else + printf("\t[** Untouched **]\n"); + } else + printf_V("\n"); +} + +void do_readmem(tree node, enum radii radix) +{ + tree cst_node, decl, arg; + Group *val; + nbits_t nbits, length, numchars; + Bit addr, start_addr, end_addr, expected_words, num_words = 0; + File *readmem_file; + File *save_fin; + char *readmem_file_name; + int c, enable_check = 0; + int inc = 1; /* assume increment by one; could be -1 */ + extern char *token_buffer; /* defined in lex.c */ + + lineno = STMT_SOURCE_LINE(node); + input_filename = STMT_SOURCE_FILE(node); + arg = STMT_TASK_ARGS(node); /* 1st arg: file name */ + + /* First, try to open file */ + eval(TREE_EXPR_CODE(arg)); + bits_to_string(token_buffer, *--R, R_nbits); + readmem_file_name = (char *) xmalloc((strlen(token_buffer) + 1) + * sizeof(char)); + strcpy(readmem_file_name, token_buffer); + readmem_file = File::fopen(readmem_file_name, "rt"); + if (!readmem_file) { + error("Cannot open readmem file '%s'", token_buffer, NULL_CHAR); + return; + } + save_fin = fin; + fin = readmem_file; + + arg = TREE_CHAIN(arg); /* 2nd arg: array name */ + decl = TREE_PURPOSE(arg); + if (HIERARCHICAL_ATTR(decl)) + decl = resolve_hierarchical_name(decl); + + /* If low bounds not specified, use array's low bounds */ + arg = TREE_CHAIN(arg); /* 3rd arg: low bounds */ + if (!arg) + start_addr = addr = ARRAY_LO(decl); + else { + val = eval_(TREE_EXPR_CODE(arg), &nbits); + if (BVAL(val)) { + error("Illegal index value in call to %s", + STMT_TASK_NAME(node), NULL_CHAR); + goto readmem_cleanup; + } else + start_addr = addr = AVAL(val); + + arg = TREE_CHAIN(arg); /* 4th arg: high bounds */ + } + /* If array high bounds not specified, use infinity */ + if (!arg) + end_addr = (Bit) - 1; + else { + val = eval_(TREE_EXPR_CODE(arg), &nbits); + if (BVAL(val)) { + error("Illegal index value in call to %s", + STMT_TASK_NAME(node), NULL_CHAR); + goto readmem_cleanup; + } else + end_addr = AVAL(val); + + enable_check = 1; /* turn on line checking */ + if (VECTOR_DIRECTION_ATTR(decl)) + expected_words = end_addr - start_addr + 1; + else + expected_words = start_addr - end_addr + 1; + } + /* if specified bounds is backwards or vector is backwards, set negative + increment */ + if (addr > end_addr || !VECTOR_DIRECTION_ATTR(decl)) + inc = -1; + + /* allocate a single constant node to be used for all entries */ + cst_node = build_bit_cst(TREE_NBITS(decl), radix); + + length = TREE_NBITS(decl); + + /* Read file, look for '@' or anything else. If too many digits, + give warning and stop. */ + + lineno = 1; + input_filename = readmem_file_name; + for (c = readmem_file->fgetc(); c != EOF; c = readmem_file->fgetc()) { + c = skip_white_space(c); + if (c == EOF) + break; + if (c == '@') { + readmem_file->fscanf("%lx", &addr); + if (enable_check) { + if (VECTOR_DIRECTION_ATTR(decl)) { + if (addr < start_addr || addr > end_addr) + yyerror + ("Address outside specified range; aborting readmem"); + } else { + if (addr > start_addr || addr < end_addr) + yyerror + ("Address outside specified range; aborting readmem"); + } + } + continue; + } + fin->fungetc(c); + + numchars = read_num_token(token_buffer); + if (radix == HEX) { + if ((numchars - 1) * 4 >= length) { + yyerror("Line too long during $readmemh; aborting"); + goto readmem_cleanup; + } + } else { + if (numchars > length) { + yyerror("Line too long during $readmemb; aborting"); + goto readmem_cleanup; + } + } + parse_base_const1(radix, token_buffer + numchars - 1, length, + numchars, cst_node); + + eval_1(cst_node); + store_array(decl, addr); + + num_words++; + addr += inc; + } + + readmem_cleanup: + if (enable_check) + if (num_words != expected_words) + warning + ("Number of words read is not the number of words expected", + NULL_CHAR, NULL_CHAR); + + /* + * check if file has already been closed + */ + if (fin) { + readmem_file->fclose(); + } + fin = save_fin; +} + +/************************************************************** + * + * do_stop + * - stop the simulation + * + ************************************************************* + */ + +void do_stop() +{ + normal_flag = 0; + single_step_flag = 1; + printf_V("Stop at simulation time "); + print_time(&CurrentTime); + printf_V("\n"); + broadcast_tf(reason_interactive); +} + +/************************************************************** + * + * do_finish + * - exit the simulation + * + ************************************************************* + */ + +void do_finish() +{ + broadcast_tf(reason_finish); + printf_V("Exiting %s at time ", VERIWELL); + print_time(&CurrentTime); + printf_V("\n"); + print_info(); + finish(); +} + +/************************************************************** + * + * init_systask + * - initializes global and static variables for systask.c + * + ************************************************************* + */ + +void init_systask_1() +{ + systime_once = 0; /* initialize the following only once */ + sysstime_once = 0; /* initialize the following only once */ + sysopen_once = 0; /* initialize the following only once */ + sysrand_once = 0; + sysrealtime_once = 0; /* initialize the following only once */ + sysplus_once = 0; /* initialize the following only once */ + monitor_info.enable = 1; + monitor_info.node = NULL_TREE; + systime_return = NULL_TREE; + sysstime_return = NULL_TREE; + sysopen_return = NULL_TREE; + sysrand_return = NULL_TREE; + sysrealtime_return = NULL_TREE; + sysplus_return = NULL_TREE; + roFlag = FALSE; + pliInstanceList = NULL_TREE; + } diff --git a/src/systask.h b/src/systask.h new file mode 100644 index 0000000..bd72be3 --- /dev/null +++ b/src/systask.h @@ -0,0 +1,172 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* SYSTASK.H - Enums for all internal system tasks and functions */ + +/* These are temporary until PLI is used internally */ + +#ifndef SYSTASK_H +#define SYSTASK_H + +// public methods + +#define NUM_SYSTEM_TASKS 0 +#define NUM_SYSTEM_FUNCS 0 + +enum systask_type { + NO_SYSTYPE = 0, + DISPLAY, + DISPLAYH, + DISPLAYB, + DISPLAYO, + WRITE, + WRITEH, + WRITEB, + WRITEO, + FDISPLAY, + FDISPLAYH, + FDISPLAYB, + FDISPLAYO, + T_FWRITE, + T_FWRITEH, + T_FWRITEB, + T_FWRITEO, + MONITOR, + MONITORB, + MONITORH, + MONITORO, + FMONITOR, + FMONITORB, + FMONITORH, + FMONITORO, + STROBE, + STROBEB, + STROBEH, + STROBEO, + FSTROBE, + FSTROBEB, + FSTROBEH, + FSTROBEO, + STOP, + FINISH, + SETTRACE, + CLEARTRACE, + SCOPE, + SHOWSCOPES, + SHOWSTATS, + T_FCLOSE, + T_LOG, + T_NOLOG, + T_KEY, + T_NOKEY, + T_INPUT, + T_SHOWVARS, + T_MONITORON, + T_MONITOROFF, + T_READMEMH, + T_READMEMB, + T_WWAVES, + T_DUMPVARS, + T_DUMPON, + T_DUMPOFF, + T_DUMPFILE, + T_DUMPALL, + T_DUMPFLUSH, + T_UPDATETIMINGS, + T_TIMEFORMAT, + T_GWAVES, + SYSTEM_TASK, + USER_TASK, + LAST_TASK +}; + +enum sysfunction_type { +// NO_SYSFTYPE = LAST_TASK, + NO_SYSFTYPE = 1000, + F_TIME, + F_STIME, + F_REALTIME, + F_FOPEN, + F_RANDOM, + F_TEST_PLUSARGS, + SYSTEM_FUNC, + USER_FUNC, + LAST_FUNCTION +}; + +struct systask_info { + char *name; + enum systask_type type; +}; + +struct sysfunction_info { + char *name; + enum sysfunction_type type; +}; + + +enum systask_type lookup_systask(char *, p_tfcell *); +enum sysfunction_type lookup_sysfunction(char *, p_tfcell *); + +extern int roFlag; + +void init_sysfunction(tree); +void init_systask(tree); +p_tfcell lookup_user_func(char *); +p_tfcell lookup_user_task(char *); +void call_check_tf(p_tfcell); +void call_misc_tf(p_tfcell, int); +void call_misc_tf1(p_tfcell, int, int); +void call_call_tf(p_tfcell); +int call_size_tf(p_tfcell); +int count_args(tree); +void exec_systask(tree node); +void exec_sysfunc(tree node, nbits_t); +void monitor_args(tree node, struct monitor_info *monitor_info); +int disp_common(tree node, enum radii default_radix, int is_file, + int check_only); +tree print_next_arg(handle_t handle, tree node, enum radii radix, + int check, int is_integer, int fill_space, char *spec, + tree); +void broadcast_tf(int reason); +void showvar(tree decl); +void do_readmem(tree node, enum radii radix); +void init_systask_1(void); + +p_tfcell lookup_user_tf(char *name); +void bits_to_string(char *buffer, Group * g, nbits_t nbits); +handle_t get_handle(tree * code); +tree init_function_return(char *name, int size, enum tree_code); +int args_one(int num_args, char *taskname); +int args_zero(int num_args, char *taskname); +void arg_common(tree args); +void do_stop(void); +void do_finish(void); + +void pli_asynccall(PliInfo_t *); +int args_zero_or_one(int, char *); +void systaskDoDelay(tree); +int call_size_tf(p_tfcell p_tf); + +// private methods + +#ifdef SYSTASK_C +#endif // SYSTASK_C + +#endif // SYSTASK_H diff --git a/src/timescal.cc b/src/timescal.cc new file mode 100644 index 0000000..0892b09 --- /dev/null +++ b/src/timescal.cc @@ -0,0 +1,364 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* TIMESCAL.C - routines to support timescale and related stuff */ + +#define TIMESCAL_C + +#include +#include +#include +#include +#include +#include "vtypes.h" +#include "tree.h" +#include "schedule.h" +#include "scope.h" +#include "pass3.h" +#include "timescal.h" +#include "acc_user.h" +#include "io.h" +#include "pli.h" +#include "systask.h" +#include "glue.h" + + +#define MIN(x,y) ((xy)?x:y) + +/* Timescales global info */ + +enum any_enum { T_NONE, T_YES, T_NO }; + +static struct { + int smallest_scale; + enum any_enum any; + int unit; + int prec; +} timescale_global; + +/* For timescales, convert units into a numerical form */ + +static int timescaleunits(char *units) +{ + if (!strncmp(units, "s", 1)) + return 0; + else if (!strncmp(units, "ms", 2)) + return -3; + else if (!strncmp(units, "us", 2)) + return -6; + else if (!strncmp(units, "ns", 2)) + return -9; + else if (!strncmp(units, "ps", 2)) + return -12; + else if (!strncmp(units, "fs", 2)) + return -15; + else + return 1; +} + +static char *unitnames[] = { "s", "ms", "us", "ns", "ps", "fs" }; +static int unitnums[] = { 1, 100, 10 }; + +char *timescale_string(int units, char *unitbuf) +{ + int unit; + int remain; + + unit = (units + 2) / 3; + remain = units % 3; + +// printf ("(%d,%d,%d)\n", remain, unit, units); + sprintf(unitbuf, "%d%s", unitnums[remain], unitnames[unit]); + return unitbuf; +} + +void timescale_get(tree scope, int *unit, int *prec) +{ + tree module; /* The current module */ + + module = module_of(scope); + *unit = MODULE_TIME_UNIT(module); + *prec = MODULE_TIME_PREC(module); +} + +/* Return the scaling factor for a particular scope. */ + +double timescale_precision(tree scope) +{ + double multiplier = 1; + int unit, prec, i; + + timescale_get(scope, &unit, &prec); /* get unit, prec */ + + /* Determine scaling factor. This is based on the units for this module + and the smallest precision of all the modules. */ + + for (i = timescale_global.smallest_scale - unit; i > 0; i--) + multiplier *= 10; + + return multiplier; +} + +/* Scale the simulation time to the timescale of the scope */ + +double timescale_divide(struct Time64 *ptime, tree scope) +{ + double x, y; + const double pow2_32 = ldexp((double) 1, 32); + + /* First, convert time to real */ + x = ptime->timeh; + x = ldexp(x, sizeof(Bit) * 8); /* shift by 32 */ + x += ptime->timel; + + /* Next, divide by the precision */ + x /= timescale_precision(scope); + + /* Finally, convert back into integer */ + + y = x + 0.5; /* round to compensate for small errors in conversion */ + + ptime->timel = (unsigned int) fmod(y, pow2_32); /* mod 2^32 */ + ptime->timeh = (unsigned int) ldexp(y, -(sizeof(Bit) * 8)); /* div 2^32 */ + return x; +} + +/* process the `timescale directive; save info in global table. Subsequent + module definitions will copy the global data into the module block. + Return non-zero if successful. */ + +int process_timescale(void) +{ + int magnitude, unit, prec, u; + char buffer[32]; + char *ptr; + int c; + if (current_scope) { + warning("`timescale directive must be outside a module", NULL, + NULL); + return 0; + } + + if (timescale_global.any == T_NO) { + error("Modules defined before `timescale encountered", NULL, NULL); + return 0; + } + c = fin->fgetc(); + while (strchr(" \t", c)) { + c = fin->fgetc(); + } + ptr = buffer; + while (isdigit(c) && ptr < buffer + sizeof(buffer) - 1) { + *ptr++ = c; + c = fin->fgetc(); + } + *ptr = 0; + magnitude = atoi(buffer); + unit = magnitude == 1 ? 0 : + magnitude == 10 ? -1 : magnitude == 100 ? -2 : 1; + + if (unit == 1) { + error("`timescale unit spec must be 1, 10 or 100", NULL, NULL); + return 0; + } + while (strchr(" \t", c)) { + c = fin->fgetc(); + } + ptr = buffer; + while (isalpha(c) && ptr < buffer + sizeof(buffer) - 1) { + *ptr++ = c; + c = fin->fgetc(); + } + *ptr = 0; + u = timescaleunits(buffer); /* Convert units to number */ + unit -= u; + + if (u == 1) { + error("`timescale units must be s, ms, us, ps, ot fs", NULL, NULL); + return 0; + } + while (strchr(" \t", c)) { + c = fin->fgetc(); + } + if (c != '/') { + error("`timescale precision spec is missing /", NULL, NULL); + } + c = fin->fgetc(); + while (strchr(" \t", c)) { + c = fin->fgetc(); + } + ptr = buffer; + while (isdigit(c) && ptr < buffer + sizeof(buffer) - 1) { + *ptr++ = c; + c = fin->fgetc(); + } + *ptr = 0; + magnitude = atoi(buffer); + prec = magnitude == 1 ? 0 : + magnitude == 10 ? -1 : magnitude == 100 ? -2 : 1; + + if (prec == 1) { + error("`timescale precision spec must be 1, 10 or 100", NULL, + NULL); + return 0; + } + while (strchr(" \t", c)) { + c = fin->fgetc(); + } + ptr = buffer; + while (isalpha(c) && ptr < buffer + sizeof(buffer) - 1) { + *ptr++ = c; + c = fin->fgetc(); + } + *ptr = 0; + u = timescaleunits(buffer); /* Convert units to number */ + prec -= u; + + if (u == 1) { + error("`timescale precision must be s, ms, us, ps, or fs", NULL, + NULL); + return 0; + } + if (isspace(c)) { + fin->fungetc(c); + } + timescale_global.unit = unit; + timescale_global.prec = prec; + + /* keep track of the smallest precision in the model. */ + + timescale_global.smallest_scale = + MAX(timescale_global.smallest_scale, prec); + timescale_global.any = T_YES; /* into timescales */ + return 1; +} + +/* This is called from build_module to set up timescales or the module */ + +void module_timescale(tree module) +{ + if (timescale_global.any == T_NONE || timescale_global.any == T_NO) { + MODULE_TIME_UNIT(module) = 0; + MODULE_TIME_PREC(module) = 0; + timescale_global.any = T_NO; /* no timescale; don't allow any now */ + } else { + MODULE_TIME_UNIT(module) = timescale_global.unit; + MODULE_TIME_PREC(module) = timescale_global.prec; + } +} + +/* Modify the tree structure for delay to compensate for timescales, + constant folding, and real conversion. This is called by pass3_delay + and pass3_delay_stmt. + */ + +tree *timescale_scale(tree delay) +{ + tree const_node; /* constant node for folding */ + Bit intdelay; + double multiplier; /* precision multiplier */ + double tmpfloat; + Group *val; + nbits_t nbits; + tree *expr; + + multiplier = timescale_precision(current_scope); + + /* Scale the delay using the units and the smallest precision of + each timescale directive in the model. If scaling isn't necessary, + just convert from real, if necessary, and return. If it is, multiply by + a power of 10. If the delay is a constant, do it here. If not, + insert a unary operator to the expression. + */ + + /* Note that hierarchical references will have the constant bit enabled. + Make sure that this isn't counted! */ + if (TREE_CONSTANT_ATTR(delay) && TREE_CODE(delay) != IDENTIFIER_NODE) { + val = get_const(delay, &nbits); + // ??? mdh - this needs to convert to 64 bits cleanly + if (TREE_REAL_ATTR(delay)) { + tmpfloat = REAL_(val) * multiplier + 0.5; + intdelay = (unsigned int) tmpfloat; + } else { + if (!BVAL(val)) + intdelay = AVAL(val) * (unsigned int) multiplier; + else + intdelay = 0; /* delay had X or Z */ + } + const_node = build_int_cst(intdelay); + // force all time to 64 bits + expr = pass3_expr(const_node); /* Use this for the delay expression */ + adjust_nbits(64, &const_node, expr); + return expr; + } + + /* Not a constant, and requires scaling. Add the scaling op (which will + work with both real and integral delays). + */ + + if (multiplier != 1) { + // ??? mdh - time needs to 64 bits + delay = + build_binary_op(MULT_EXPR, delay, build_int_cst(multiplier)); + } + + /* return the code for either scaled or unscaled delays */ + + expr = pass3_expr_convert(delay, eINT); + // force all time to 64 bits + adjust_nbits(64, &delay, expr); + return expr; +} + +/* This is for $timeformat */ + + +/* Execute $timeformat system call. Assumes pass3 checked everything out. */ +#if 0 +void time_format(int units, int prec, char *suffix, int width) +{ + timeformat.units = units; + timeformat.precision = prec; + timeformat.width = width; + + if (timeformat.suffix) + free(timeformat.suffix); + + timeformat.suffix = (char *) xmalloc(strlen(suffix) + 2); + if (!timeformat.suffix) { + error("Not enough memory to save timeformat suffix!", NULL, NULL); + return; + } + strcpy(timeformat.suffix, suffix); +} +#endif +int get_tick_precision() +{ + return (timescale_global.smallest_scale); +} + + +void init_timescale() +{ + timescale_global.smallest_scale = 0; + timescale_global.any = T_NONE; + + +} diff --git a/src/timescal.h b/src/timescal.h new file mode 100644 index 0000000..327f5d5 --- /dev/null +++ b/src/timescal.h @@ -0,0 +1,38 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* TIMESCALE.H - Prototypes for timecale.c */ + +#ifndef TIMESCALE_H +#define TIMESCALE_H + +int process_timescale(void); +void module_timescale(tree); +tree *timescale_scale(tree); +double timescale_divide(struct Time64 *, tree); +void init_timescale(void); +int get_tick_precision(void); +void timescale_get(tree, int *, int *); +void time_format(int, int, Group *, nbits_t, int); +double timescale_precision(tree scope); +char *timescale_string(int, char *); + +#ifdef TIMSCAL_C +#endif // TIMSCAL_C +#endif /* TIMESCALE_H */ diff --git a/src/trace.cc b/src/trace.cc new file mode 100644 index 0000000..7f5ae7b --- /dev/null +++ b/src/trace.cc @@ -0,0 +1,473 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* TRACE.C - Print statements as they are being executed */ + +#define TRACE_C + +#include +#include "vtypes.h" +#include "tree.h" +#include "runtime.h" +#include "schedule.h" +#include "io.h" +#include "print.h" +#include "trace.h" + +void +trace_result(Group * val, nbits_t print_nbits, nbits_t nbits, + int integer_attr) +{ + print_datum(val, print_nbits, nbits, HEX, 0, 0); + printf_V(", "); + print_bcd((handle_t) 1, val, nbits, integer_attr, 0); +// printf_V("\n"); + HEAPTEST("trace_result 2"); +} + +static void trace_lval(tree lval) +{ + enum tree_code code = TREE_CODE(lval); + Group g; + + switch (code) { + case PART_REF: + printf_V("%s", IDENTIFIER_POINTER(DECL_NAME(PART_DECL(lval)))); + printf_V("["); + g.bit.aval = PART_MSB(lval); + g.bit.bval = 0; + /* Since we don't keep around the code for the index epression, + we don't have the actual nbits if the expression is a since + hierarchical name. Use 32 bits in that case (the default size + for hierarchical names). */ + trace_result(&g, TREE_NBITS(PART_MSB_(lval)), + TREE_NBITS(PART_MSB_(lval)), + TREE_INTEGER_ATTR(PART_MSB_(lval))); + printf_V(": "); + g.bit.aval = PART_LSB(lval); + trace_result(&g, TREE_NBITS(PART_LSB_(lval)), + TREE_NBITS(PART_LSB_(lval)), + TREE_INTEGER_ATTR(PART_LSB_(lval))); + printf_V("]"); + break; + + default: + print_expr(lval); + } +} + +static void +trace_assign_result(tree lval, Group * val, nbits_t nbits, + int integer_attr) +{ + trace_lval(lval); + printf_V(" = "); +// trace_result (val, R_nbits, nbits, integer_attr); + if (TREE_REAL_ATTR(lval)) + printf_V("%lg", REAL_(val)); + else + trace_result(val, nbits, nbits, integer_attr); + printf_V(";\n"); +} + +void trace_net_type(enum tree_type type) +{ + switch (type) { + case NET_WIRE_TYPE: + printf_V("WIRE "); + break; + case NET_TRI_TYPE: + printf_V("TRI "); + break; + case NET_WAND_TYPE: + printf_V("WAND "); + break; + case NET_TRIAND_TYPE: + printf_V("TRIAND "); + break; + case NET_WOR_TYPE: + printf_V("WOR "); + break; + case NET_TRIOR_TYPE: + printf_V("TRIOR "); + break; + case NET_TRI0_TYPE: + printf_V("TRI0 "); + break; + case NET_TRI1_TYPE: + printf_V("TRI1 "); + break; + case (int) NULL: + printf_V("ASSIGN "); + break; + default: + printf_V("(NOT KNOWN) "); + break; + } +} + +static tree current_trace_scope = NULL_TREE; + +void trace_stmt(tree node, Group * g, int skip, int val) +{ + tree lval, tmp_tree; + extern int in_simulation; + enum tree_code code = TREE_CODE(node); + tree scope; + + if (!in_simulation) + return; + + if (code == FUNCTION_REF) { + printf_V("L%d ", FUNC_REF_LINE(node)); + printf_V("\"%s\" ", FUNC_REF_FILE(node)); + } else { + printf_V("L%d ", STMT_SOURCE_LINE(node)); + printf_V("\"%s\" ", STMT_SOURCE_FILE(node)); + } + + if (*tree_code_type[code] == 's') { + scope = STMT_SCOPE(node); + printf_V("("); + print_scope((handle_t) 1, scope); + printf_V(")"); + } else if (*tree_code_type[code] == 'g') { + scope = GATE_SCOPE(node); + printf_V("("); + print_scope((handle_t) 1, scope); + printf_V(")"); + } else { + printf_V("("); + if (*tree_code_type[code] == 'd') { + scope = DECL_CONTEXT(node); + print_scope((handle_t) 1, DECL_CONTEXT(node)); + } else if (code == FUNCTION_REF) { + scope = FUNC_REF_CONTEXT(node); + print_scope((handle_t) 1, FUNC_REF_CONTEXT(node)); + } else { /* scopying blocks get here (eg. task_block upon return from task) */ + + scope = node; + print_scope((handle_t) 1, node); + } + printf_V(")"); + } + +/* Work on this later... + if (scope != current_trace_scope) + { + printf_V ("*** New Scope: "); + print_scope ((handle_t) 1, scope); + printf_V ("\n"); + current_trace_scope = scope; + } +*/ +// if (BLOCK_UP (readylist -> current_scope)) { + printf_V(": "); + { + HEAPTEST("Heap Corrupted (Detected in Trace)"); + } + switch (code) { + case ALWAYS_BLOCK: + case INITIAL_BLOCK: + case BEGIN_STMT: + case END_STMT: + case BEGIN_NAMED_STMT: + case END_NAMED_STMT: + case FORK_STMT: + case JOIN_STMT: + case FOREVER_STMT: + case ARROW_STMT: + case TASK_STMT: + case SYSTASK_STMT: + case FUNCTION_REF: + case DISABLE_STMT: + case DEASSIGN_STMT: + case RELEASE_STMT: + case NULL_STMT: + print_node(node); + printf_V("\n"); + break; + + case WHILE_STMT: + print_node(node); + printf_V(" >> "); + if (skip) + printf_V("FALSE\n"); + else + printf_V("TRUE\n"); + break; + + case (IF_STMT): + print_node(node); + printf_V(" >>> "); + if (skip) + printf_V("skipping\n"); + else + printf_V("continue\n"); + break; + + case REPEAT_STMT: + case REPEAT_INIT_STMT: + print_node(node); + printf_V(" >>> "); + tmp_tree = + H_(*STMT_REPEAT_EXPR_CODE(node), STMT_REPEAT_EXPR(node)); + trace_result(g, TREE_NBITS(tmp_tree), TREE_NBITS(tmp_tree), + TREE_INTEGER_ATTR(tmp_tree)); + printf_V("\n"); + break; + + case CASE_STMT: + case CASEX_STMT: + case CASEZ_STMT: + print_node(node); + printf_V(" >>> case ("); + trace_result(g, R_nbits, R_nbits, + TREE_INTEGER_ATTR(STMT_CASE_EXPR(node))); + printf_V(")\n"); + break; + + case ASSIGN_STMT: + case ASSIGN_PROC_STMT: + case FORCE_STMT: + print_node(node); + if (!TREE_INTEGER_ATTR(STMT_ASSIGN_RVAL(node)) + || *tree_code_type[TREE_CODE(STMT_ASSIGN_RVAL(node))] != 'c') { + printf_V(" >>> "); + tmp_tree = + H_(*STMT_ASSIGN_RVAL_CODE(node), STMT_ASSIGN_RVAL(node)); + + trace_assign_result(STMT_ASSIGN_LVAL(node), g, + TREE_NBITS(tmp_tree), + TREE_INTEGER_ATTR(tmp_tree)); + } else + printf_V("\n"); + break; + + case ASSIGN_DELAY_STMT: + case ASSIGN_EVENT_STMT: + print_node(node); + printf_V(" >>> "); + + if (!val) { /* after the event is triggered */ + if (!TREE_INTEGER_ATTR(STMT_ASSIGN_RVAL(node)) + || *tree_code_type[TREE_CODE(STMT_ASSIGN_RVAL(node))] != + 'c') { + + + tmp_tree = + H_(*STMT_ASSIGN_RVAL_CODE(node), + STMT_ASSIGN_RVAL(node)); + trace_assign_result(STMT_ASSIGN_LVAL(node), g, + TREE_NBITS(tmp_tree), + TREE_INTEGER_ATTR(tmp_tree)); + } else + printf_V("\n"); + } else { + if (code == ASSIGN_DELAY_STMT) { + printf_V(" #("); + trace_result(g, R_nbits, R_nbits, + TREE_INTEGER_ATTR(STMT_DELAY_EXPR(node))); + printf_V(") "); + } else { + printf_V(" @() "); + } + tmp_tree = + H_(*STMT_ASSIGN_RVAL_CODE(node), STMT_ASSIGN_RVAL(node)); + trace_assign_result(STMT_ASSIGN_LVAL(node), + DECL_STORAGE(STMT_ASSIGN_TMP(node)), + TREE_NBITS(tmp_tree), + TREE_INTEGER_ATTR(tmp_tree)); + } + break; + + case ASSIGN_NONBLK_DELAY_STMT: + case ASSIGN_NONBLK_EVENT_STMT: + print_node(node); + + if (!val) { /* after the event is triggered */ + if (!TREE_INTEGER_ATTR(STMT_ASSIGN_RVAL(node)) + || *tree_code_type[TREE_CODE(STMT_ASSIGN_RVAL(node))] != + 'c') { + + printf_V(" >>> "); + + tmp_tree = + H_(*STMT_ASSIGN_RVAL_CODE(node), + STMT_ASSIGN_RVAL(node)); + trace_assign_result(STMT_ASSIGN_LVAL(node), g, + TREE_NBITS(tmp_tree), + TREE_INTEGER_ATTR(tmp_tree)); + } else + printf_V("\n"); + } else { + printf_V(" >>> "); + + tmp_tree = + H_(*STMT_ASSIGN_RVAL_CODE(node), STMT_ASSIGN_RVAL(node)); + if (code == ASSIGN_NONBLK_DELAY_STMT) { + printf_V(" #("); + trace_result(g, R_nbits, R_nbits, + TREE_INTEGER_ATTR(STMT_DELAY_EXPR + (STMT_ASSIGN_DELAY(node)))); + printf_V(") "); + trace_assign_result(STMT_ASSIGN_LVAL(node), + DECL_STORAGE(((SCB *) + STMT_ASSIGN_TMP(node))-> + here.decl), +// DECL_STORAGE ((tree) ((SCB *) STMT_ASSIGN_TMP (node))->fork), + TREE_NBITS(tmp_tree), + TREE_INTEGER_ATTR(tmp_tree)); + } else { + printf_V(" @() "); + trace_assign_result(STMT_ASSIGN_LVAL(node), + DECL_STORAGE(STMT_ASSIGN_TMP(node)), +// DECL_STORAGE ((tree) ((SCB *) STMT_ASSIGN_TMP (node))->fork), + TREE_NBITS(tmp_tree), + TREE_INTEGER_ATTR(tmp_tree)); + } + } + break; + + case NET_VECTOR_DECL: + case NET_SCALAR_DECL: + if (!val) { +// printf_V ("(port propagation (down))\n"); +// return; + } + + trace_net_type((enum tree_type) TREE_TYPE(node)); + print_expr(node); + printf_V(" >>> NET = "); + trace_result(g, TREE_NBITS(node), TREE_NBITS(node), 0); +// trace_result (g, TREE_NBITS (node), R_nbits, 0); +// trace_assign_result (lval, g, R_nbits, 0); + printf_V("\n"); + break; + + case GATE_INSTANCE: + printf_V("GATE >>> 1'b"); + switch (GATE_OUTPUT(node)) { + case ONE: + printf_V("1"); + break; + case ZERO: + printf_V("0"); + break; + case X: + printf_V("x"); + break; + case Z: + printf_V("z"); + break; + } + + printf_V("\n"); + break; + + case ASSIGN_CONT_STMT: + if (TREE_CHAIN(node) && + TREE_CODE(TREE_CHAIN(node)) == ASSIGN_CONT_STMT) + lval = STMT_ASSIGN_LVAL(TREE_CHAIN(node)); + else + lval = STMT_ASSIGN_LVAL(node); + /* first part of statement (with most info) is pointed to by TREE_CHAIN */ + + trace_net_type((enum tree_type) TREE_TYPE(lval)); + print_delay(STMT_ASSIGN_DELAY(node)); +// printf_V (" "); + print_expr(lval); +// printf_V (" = "); +// if (STMT_ASSIGN_RVAL (node)) +// trace_expr (STMT_ASSIGN_RVAL (node)); + printf_V(" >>> "); + trace_assign_result(lval, g, R_nbits, + TREE_INTEGER_ATTR(STMT_ASSIGN_RVAL(node))); + break; + + case (FOR_STMT): + print_node(node); + printf_V(") >>> "); + if (val) { + trace_assign_result(STMT_ASSIGN_LVAL(STMT_FOR_ASSIGN(node)), g, + R_nbits, + TREE_INTEGER_ATTR(STMT_ASSIGN_RVAL + (STMT_FOR_ASSIGN + (node)))); + } else if (skip) + printf_V("TRUE\n"); + else + printf_V("FALSE\n"); + break; + + case DELAY_STMT: + print_node(node); + if (val) { + if (!TREE_INTEGER_ATTR(STMT_DELAY_EXPR(node))) { + printf_V(" >>> #"); + trace_result(g, R_nbits, R_nbits, + TREE_INTEGER_ATTR(STMT_DELAY_EXPR(node))); + } + } else + printf_V(" >>> CONTINUE"); + printf_V("\n"); + break; + + case WAIT_STMT: + print_node(node); + printf_V(" >>> "); + if (skip) + printf_V("CONTINUE\n"); + else + printf_V("WAIT\n"); + break; + + case EVENT_STMT: + print_node(node); + if (skip) + printf_V(" >>> CONTINUE\n"); + else + printf_V("\n"); + break; + + case TASK_BLOCK: + case FUNCTION_BLOCK: +// print_node (node); + printf_V("%s; >>> RETURNING\n", IDENT(BLOCK_NAME(node))); + break; + + default: + printf_V("Statment not known to trace: %s\n", + tree_code_name[code]); + break; + } + return; +} + +/********************************************************************** + * + * init_trace + * - initializes global and static data for trace.c + * + ********************************************************************** + */ +void init_trace() +{ +// currently no globals to initialize +} diff --git a/src/trace.h b/src/trace.h new file mode 100644 index 0000000..1ad826a --- /dev/null +++ b/src/trace.h @@ -0,0 +1,43 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* TRACE.H - trace.c routine prototypes */ + +#ifndef TRACE_H +#define TRACE_H + +// public methods + +void trace_result(Group * val, nbits_t print_nbits, + nbits_t nbits, int integer_attr); +void trace_net_type(enum tree_type type); +void trace_stmt(tree node, Group * g, int skip, int val); +void init_trace(void); + +// private methods + +#ifdef TRACE_C + +static void trace_lval(tree lval); +static void trace_assign_result(tree lval, Group * val, nbits_t nbits, + int integer_attr); + +#endif // TRACE_C + +#endif // TRACE_H diff --git a/src/tree.cc b/src/tree.cc new file mode 100644 index 0000000..1698b99 --- /dev/null +++ b/src/tree.cc @@ -0,0 +1,1152 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +#define TREE_C + +#include +#include +//#if !defined(THINK_C) && !defined(__MWERKS__) +//#include +//#endif // THINK_C +#include +#include +#include "vtypes.h" +#include "tree.h" +//#ifndef __GNUC__ +#include "obstack.h" +//#else +//#include +//#endif +#include "decl.h" +#include "glue.h" +#include "scope.h" +#include "veriwell.h" +#include "timescal.h" +#if VDEBUG != 0 +#include "flags.h" +#endif + +#define obstack_chunk_alloc xmalloc +#define obstack_chunk_free free + +tree resolve_hierarchical_name(tree); + +//extern void * xmalloc (); + +/* Tree nodes of permanent duration are allocated in this obstack. + They are the identifier nodes, declaration nodes, and + block nodes. */ + +struct obstack permanent_obstack; + +/* Each module has its own stack for its statements so that they + can be deallocated on a per-module basis after its code has been + generated. These are initialized dynamically. */ + +struct obstack *module_obstack; + +/* Scaffolding (information needed between phases) are put in the linkage + stack. */ + +struct obstack linkage_obstack; + +/* Low-level code that is generated from syntax trees is put on the + code stack. */ + +struct obstack code_obstack; + +/* Expressions are put on the temporary stack while they are being + processed. They are copied to the permanent stack after being + folded and converted, where necessary. */ + +struct obstack temporary_obstack; + +/* This usually points to permanent obstack. */ + +struct obstack *saveable_obstack; + +/* This points at either permanent_obstack or temporary_obstack. */ + +struct obstack *current_obstack; + +/* This points to either permanent, temporary, or momentary obstack. */ + +struct obstack *expression_obstack; + +/* Addresses of first objects in some obstacks. + This is for freeing their entire contents. */ +char *temporary_firstobj; + +/* Table indexed by tree code giving a string containing a character + classifying the tree code. Possibilities are + d, s, c, r and e. See tree.def for details. */ + +#define DEFTREECODE(SYM, NAME, TYPE, LENGTH) TYPE, + +char *tree_code_type[] = { +#include "tree.def" +}; + +#undef DEFTREECODE + +/* Table indexed by tree code giving number of expression + operands beyond the fixed part of the node structure. + Not used for types or decls. */ + +#define DEFTREECODE(SYM, NAME, TYPE, LENGTH) LENGTH, + +int tree_code_length[] = { +#include "tree.def" +}; + +#undef DEFTREECODE + +#define DEFTREECODE(SYM, NAME, TYPE, LENGTH) NAME, + +char *tree_code_name[] = { +#include "tree.def" +}; + +#undef DEFTREECODE + +/* Hash table for uniquizing IDENTIFIER_NODEs by name. */ + +#define MAX_HASH_TABLE 1009 +static tree hash_table[MAX_HASH_TABLE]; /* id hash buckets */ + +/* 0 while creating built-in identifiers. */ +static int do_identifier_warnings; + +/* Used to pass lsb and msb expression pointers during parsing. */ +tree range_handle; + +/* Points to the toplevel of the tree */ +tree top_level = NULL_TREE; + +/* List of continuous assignments */ +tree continuous_assignments = NULL_TREE; + +/* Init data for node creation, at the beginning of compilation. */ + +tree build_decl(enum tree_code code, tree name, enum tree_type type); + +void init_tree() +{ + obstack_init(&permanent_obstack); + obstack_init(&linkage_obstack); + + obstack_init(&temporary_obstack); + temporary_firstobj = (char *) obstack_alloc(&temporary_obstack, 0); + + current_obstack = &permanent_obstack; +// expression_obstack = &momentary_obstack; + expression_obstack = &permanent_obstack; + + range_handle = make_node(RANGE_HANDLE); + integer_zero_node = build_int_cst((unsigned_32_t) 0); + integer_one_node = build_int_cst((unsigned_32_t) 1); + error_mark_node = make_node(ERROR_MARK); + TREE_NBITS(error_mark_node) = 0; +} + +/* Allocate SIZE bytes in the current obstack + and return a pointer to them. + In practice the current obstack is always the temporary one. */ + +char *oballoc(long size) +{ + return (char *) obstack_alloc(current_obstack, size); +} + +/* Free the object PTR in the current obstack + as well as everything allocated since PTR. + In practice the current obstack is always the temporary one. */ + +void obfree(char *ptr) +{ + obstack_free(current_obstack, ptr); +} + +/* Allocate SIZE bytes in the permanent obstack + and return a pointer to them. */ + +char *permalloc(long size) +{ + char *tmp = (char *) obstack_alloc(&permanent_obstack, size); + return tmp; +} + +/* Allocate SIZE bytes in the linkage obstack + and return a pointer to them. */ + +char *linkalloc(long size) +{ + return (char *) obstack_alloc(&linkage_obstack, size); +} + +/* clear everything out of the temporary obstack */ + +void clear_temporary() +{ + obstack_free(&temporary_obstack, temporary_firstobj); +} + +tree build_int_cst(signed_32_t i) +{ + tree t = make_node(INTEGER_CST); + +// INT_CST_HIGH (t) = HIGH_INT (i); +// INT_CST_LOW (t) = LOW_INT (i); + INT_CST_DATA(t) = i; + TREE_CONSTANT_ATTR(t) = 1; + TREE_INTEGER_ATTR(t) = 1; + TREE_NBITS(t) = 32; + return t; +} + +tree build_real_cst(char *real_string) +{ + tree t = make_node(REAL_CST); + REAL_CST_DATA(t) = atof(real_string); + TREE_CONSTANT_ATTR(t) = 1; + TREE_REAL_ATTR(t) = 1; + TREE_NBITS(t) = 32; + return t; +} + +void switch_to_linkage_obstack() +{ + current_obstack = &linkage_obstack; +} + +void switch_to_permanent_obstack() +{ + current_obstack = &permanent_obstack; +} + + +/* Return a newly allocated node of code CODE. + Initialize the node's unique id and its TREE_PERMANENT flag. + For decl and type nodes, some other fields are initialized. + The rest of the node is initialized to zero. + + Achoo! I got a code in the node. */ + +int num_nodes = 0; +int num_nodes_g = 0; +int num_nodes_e = 0; +int num_nodes_b = 0; +int num_nodes_s = 0; +int num_nodes_r = 0; +int num_nodes_c = 0; +int num_nodes_d = 0; +int num_nodes_x = 0; + +tree make_node(enum tree_code code) +{ + register tree t; + register int type = *tree_code_type[(int) code]; + register int length; + register struct obstack *obstack = current_obstack; + + num_nodes++; +//HEAPTEST ("Heap corrupted (in make_node)"); + + switch (type) { + case 'b': /* A block node */ + num_nodes_b++; + length = sizeof(struct tree_block_common) + + tree_code_length[(int) code] * sizeof(char *); + obstack = &permanent_obstack; + break; + + case 'd': /* A decl node */ + num_nodes_d++; + length = sizeof(struct tree_decl_common) + + tree_code_length[(int) code] * sizeof(char *); + obstack = &permanent_obstack; + break; + + case 'g': /* a gate node */ + num_nodes_g++; + length = sizeof(struct tree_gate_instance) + + (tree_code_length[(int) code]) * sizeof(char *); + /* All gates are put where we can preserve them if nec. */ + if (obstack != &permanent_obstack) + obstack = module_obstack; + break; + + case 's': /* a stmt node */ + num_nodes_s++; + length = sizeof(struct tree_stmt) + + (tree_code_length[(int) code] - 1) * sizeof(char *); + /* All stmts are put where we can preserve them if nec. */ + if (obstack != &permanent_obstack) + obstack = module_obstack; + break; + + case 'r': /* a reference */ + num_nodes_r++; + goto e; + case 'e': /* an expression */ + num_nodes_e++; + e: + obstack = expression_obstack; + length = sizeof(struct tree_exp) + + (tree_code_length[(int) code] - 1) * sizeof(char *); + break; + + case 'c': /* a constant */ + num_nodes_c++; + obstack = expression_obstack; + goto x; + + case 'x': /* something random, like an identifier. */ + num_nodes_x++; + x:length = sizeof(struct tree_common) + + tree_code_length[(int) code] * sizeof(char *); + /* Identifier nodes are always permanent since they are + unique in a compiler run. */ + if (code == IDENTIFIER_NODE) + obstack = &permanent_obstack; + } + +//HEAPTEST ("In make_node, before alloc"); + t = (tree) obstack_alloc(obstack, length); + + memset(t, 0, length); + TREE_SET_TYPE(t, 0); + TREE_CHAIN(t) = 0; + + TREE_SET_CODE(t, code); + TREE_LABEL(t) = 0; + TREE_SUB_LABEL(t) = 0; + + if (type == 's' || type == 'd' || type == 'b') { + STMT_SOURCE_LINE(t) = (type == 's' + || type == 'b') ? stmt_lineno : lineno; +#if VDEBUG != 0 + if (vdebug) + printf_V("Line %d\n", STMT_SOURCE_LINE(t)); +#endif + STMT_SOURCE_FILE(t) = input_filename; + if (type == 'd') + DECL_EVENT_NOCAST(t) = NULL; + else if (type == 's') + STMT_SCOPE(t) = current_scope; + } + if (code == REAL_DECL) + TREE_REAL_ATTR(t) = 1; + +#if VDEBUG != 0 + if (vdebug) { + extern unsigned long mem; + unsigned long mem_left = mem_avail(); + + printf_V("Made node '%s', at %p, size %d\n", tree_code_name[code], + t, length); + printf_V("Memory used: %lu\n", mem - mem_left); + printf_V("Memory left: %lu\n", mem_left); + + } +#endif +//HEAPTEST ("Heap corrupted (make_node)"); + + return t; +} + +/* Return a new node with the same contents as NODE + except that its TREE_CHAIN is zero and it has a fresh uid. */ + +tree copy_node(tree node) +{ + register tree t; + register enum tree_code code = TREE_CODE(node); + register int length; + + HEAPTEST("In copy_node"); + switch (*tree_code_type[(int) code]) { + case 'b': /* A block node */ + length = sizeof(struct tree_block_common) + + tree_code_length[(int) code] * sizeof(char *); + break; + + case 'd': /* A decl node */ + length = sizeof(struct tree_decl_common) + + tree_code_length[(int) code] * sizeof(char *); + break; + + case 's': /* a stmt node */ + length = sizeof(struct tree_stmt) + + (tree_code_length[(int) code] - 1) * sizeof(char *); + break; + + + case 'g': /* a gate node */ + length = sizeof(struct tree_gate_instance) + + (tree_code_length[(int) code]) * sizeof(char *); + break; + + case 'r': /* a reference */ + case 'e': /* an expression */ + length = sizeof(struct tree_exp) + + (tree_code_length[(int) code] - 1) * sizeof(char *); + break; + + case 'c': /* a constant */ + case 'x': /* something random, like an identifier. */ + length = sizeof(struct tree_common) + + tree_code_length[(int) code] * sizeof(char *); + } + + HEAPTEST("In copy_node, before alloc"); +//printf ("next free = %p, limit = %p\n", current_obstack->next_free, current_obstack->chunk_limit); +//printf ("length is %d\n", length); +// t = (tree) obstack_alloc (current_obstack, length); + t = (tree) obstack_copy(current_obstack, node, length); + HEAPTEST("In copy_node, after alloc"); +//printf ("Allocated node %p, length %d\n", t, length); +//printf ("alignment %d, base %p, limit %p\n", +//current_obstack->alignment_mask, current_obstack->object_base, current_obstack->chunk_limit); + +// for (i = ((length + sizeof (int) - 1) / sizeof (int)) - 1; +// i >= 0; +// i--) +// ((int *) t)[i] = ((int *) node)[i]; + HEAPTEST("In copy_node, after alloc and init"); + + TREE_CHAIN(t) = 0; + + return t; +} + + +#define HASHBITS 30 + +/* Return an IDENTIFIER_NODE whose name is TEXT (a null-terminated string). + If an identifier with that name has previously been referred to, + the same node is returned this time. */ + +tree get_identifier(char *text) +{ + register unsigned hi; + register int i; + register tree idp; + register int len, hash_len; + + /* Compute length of text in len. */ + for (len = 0; text[len]; len++); + + /* Decide how much of that length to hash on */ + hash_len = len; +/* if (warn_id_clash && len > id_clash_len) + * hash_len = id_clash_len; + */ + + /* Compute hash code */ + hi = hash_len; + for (i = 0; i < hash_len; i++) + hi = ((hi * 613) + (unsigned) (text[i])); + + hi &= (1 << HASHBITS) - 1; + hi %= MAX_HASH_TABLE; + + /* Search table for identifier */ + for (idp = hash_table[hi]; idp; idp = TREE_CHAIN(idp)) + if (IDENTIFIER_LENGTH(idp) == len + && !strcmp(IDENTIFIER_POINTER(idp), text)) + return idp; /* <-- return if found */ + + /* Not found; optionally warn about a similar identifier */ +/* + if (warn_id_clash && do_identifier_warnings && len >= id_clash_len) + for (idp = hash_table[hi]; idp; idp = TREE_CHAIN (idp)) + if (!strncmp (IDENTIFIER_POINTER (idp), text, id_clash_len)) + { + warning ("`%s' and `%s' identical in first n characters", + IDENTIFIER_POINTER (idp), text); + break; + } +*/ + /* Not found, create one, add to chain */ + idp = make_node(IDENTIFIER_NODE); + IDENTIFIER_LENGTH(idp) = len; + IDENTIFIER_POINTER(idp) = + (char *) obstack_copy0(&permanent_obstack, text, len); + TREE_CHAIN(idp) = hash_table[hi]; + hash_table[hi] = idp; + TREE_NBITS(idp) = 32; /* A default number for hierarchical names */ + return idp; /* <-- return if created */ +} + +/* Enable warnings on similar identifiers (if requested). + Done after the built-in identifiers are created. */ + +void start_identifier_warnings() +{ + do_identifier_warnings = 1; +} + + +/* Return a node that points to a bit constant. */ + +tree build_bit_cst(nbits_t length, enum radii radix) +{ + register tree t = make_node(BIT_CST); + Group *g = + (Group *) permalloc((bits_to_groups(length) + 1) * sizeof(Group)); + + + BIT_CST_GROUP(t) = g; + BIT_CST_NBITS(t) = length; + BIT_CST_SET_RADIX(t, radix); + TREE_TYPE(t) = REG_TYPE; + TREE_CONSTANT_ATTR(t) = 1; + TREE_NBITS(t) = length; /* default to this; this may be changed at pass 2 */ + + return t; +} + +/* Return a newly constructed STRING_CST node whose value is + the LEN characters at STR. + The TREE_TYPE is not initialized. */ + +tree build_string(int len, char *str) +{ + register tree s = make_node(STRING_CST); + TREE_STRING_LENGTH(s) = len; + TREE_STRING_POINTER(s) = + (char *) obstack_copy0(current_obstack, str, len); + return s; +} + + + +/* Return the length of a chain of nodes chained through TREE_CHAIN. + We expect a null pointer to mark the end of the chain. + This is the Lisp primitive `length'. */ + +int list_length(tree t) +{ + register tree tail; + register int len = 0; + + for (tail = t; tail; tail = TREE_CHAIN(tail)) + len++; + + return len; +} + +/* Concatenate two chains of nodes (chained through TREE_CHAIN) + by modifying the last node in chain 1 to point to chain 2. + This is the Lisp primitive `nconc'. */ + +tree chainon(tree op1, tree op2) +{ + tree t; + + if (op1) { + for (t = op1; TREE_CHAIN(t); t = TREE_CHAIN(t)) + if (t == op2) { + printf("Fatal: Circularity during compilation\n"); +// printf ("%lu\n", coreleft ()); + shell_abort(); /* Circularity being created */ + } + TREE_CHAIN(t) = op2; + return op1; + } else + return op2; +} + +/* Return a newly created TREE_LIST node whose + purpose and value fields are PARM and VALUE. */ + +tree build_tree_list(tree parm, tree value) +{ + register tree t = make_node(TREE_LIST); + TREE_PURPOSE(t) = parm; + TREE_VALUE(t) = value; + TREE_3RD(t) = NULL_TREE; + return t; +} + +/* Return a newly created TREE_LIST node whose + purpose and value fields are PARM and VALUE + and whose TREE_CHAIN is CHAIN. */ + +tree tree_cons(tree purpose, tree value, tree chain) +{ + register tree node = make_node(TREE_LIST); + TREE_CHAIN(node) = chain; + TREE_PURPOSE(node) = purpose; + TREE_VALUE(node) = value; + TREE_3RD(node) = NULL_TREE; + return node; +} + +/* Same as `tree_cons' but make a permanent object. */ + +tree perm_tree_cons(tree purpose, tree value, tree chain) +{ + register tree node; + register struct obstack *ambient_obstack = current_obstack; + current_obstack = &permanent_obstack; + + node = make_node(TREE_LIST); + TREE_CHAIN(node) = chain; + TREE_PURPOSE(node) = purpose; + TREE_VALUE(node) = value; + TREE_3RD(node) = NULL_TREE; + + current_obstack = ambient_obstack; + return node; +} + +tree free_link = NULL_TREE; + +/* Same as `tree_cons' but make a linkage object. */ + +tree link_tree_cons(tree purpose, tree value, tree chain) +{ + register tree node; + register struct obstack *ambient_obstack = current_obstack; + current_obstack = &permanent_obstack; + + if (!free_link) + node = make_node(TREE_LIST); + else { + node = free_link; + free_link = TREE_CHAIN(free_link); + } + TREE_CHAIN(node) = chain; + TREE_PURPOSE(node) = purpose; + TREE_VALUE(node) = value; + TREE_3RD(node) = NULL_TREE; + + current_obstack = ambient_obstack; + return node; +} + +void free_link_list(tree node) +{ + TREE_CHAIN(node) = free_link; + free_link = node; +} + +/* Reverse the order of elements in the chain T, + and return the new head of the chain (old last element). */ + +tree nreverse(tree t) +{ + register tree prev = 0, decl, next; + for (decl = t; decl; decl = next) { + next = TREE_CHAIN(decl); + TREE_CHAIN(decl) = prev; + prev = decl; + } + return prev; +} + +void set_all_list_values(tree list, tree value) +{ + tree t; + + for (t = list; t; t = TREE_CHAIN(t)) + TREE_VALUE(t) = value; +} + +/* Return non-zero if node is a vector net or scalar net */ + +int is_net_code(enum tree_code code) +{ + +/* Return nonzero if node is a net or a reference to a net or any entry + of a concat is a net. */ + + if (code == NET_VECTOR_DECL || code == NET_SCALAR_DECL) + return 1; + else + return 0; +} + +int is_all_net(tree node) +{ + enum tree_code code = TREE_CODE(node); + tree t; + + if (code == BIT_REF) + code = TREE_CODE(BIT_REF_DECL(node)); + else if (code == PART_REF) + code = TREE_CODE(PART_DECL(node)); + + if (is_net_code(code)) + return 1; + if (code == CONCAT_REF) { + for (t = CONCAT_LIST(node); t; t = TREE_CHAIN(t)) + if (!is_all_net(TREE_EXPR(t))) + return 0; + return 1; + } + + return 0; +} + +/* Return nonzero if REF is a reference to an array */ + +int is_array(tree ref) +{ + if (ref) + return (TREE_CODE(ref) == ARRAY_REF); + else + return 0; +} + +/* Return nonzero if REF is a string */ + +int is_string(tree ref) +{ + if (ref) + if (TREE_CODE(ref) == BIT_CST) + return (BIT_CST_RADIX(ref) == STRING_); + return 0; +} + +/* Return non-zero if pure decl (used for $dumpvar, currently) as well + as the actual decl node. */ + +int is_var(tree node, tree * decl) +{ + enum tree_code code = TREE_CODE(node); + + /* Hierarchical name; get decl node then check again */ + if (code == IDENTIFIER_NODE && HIERARCHICAL_ATTR(node)) { + *decl = resolve_hierarchical_name(node); + return is_var(*decl, decl); + } + + /* Must be a DECL and not array nor parameter (for dumpvars) */ + if (*tree_code_type[code] == 'd') + if (code != ARRAY_DECL && code != PARAM_DECL && code != BLOCK_DECL) { + *decl = node; + return 1; + } + + return 0; +} + +/* Return nonzero if var or hierarchical ref is a block as well as actual + BLOCK node. */ + +int is_block(tree node, tree * scope) +{ + enum tree_code code = TREE_CODE(node); + + /* Hierarchical scope, get actual BLOCK node */ + if (code == IDENTIFIER_NODE && HIERARCHICAL_ATTR(node)) { + *scope = search_scope(IDENT(node), 0); + return is_block(*scope, scope); + } + + /* This could be either a pointer to a block (if called recursively)... */ + if (*tree_code_type[code] == 'b') { + *scope = node; + return 1; + } + /* ...or a pointer to a BLOCK_DECL */ + else if (code == BLOCK_DECL) { + *scope = DECL_CONTEXT(node); + return 1; + } + + return 0; +} + +/* return non-zero if node is a legal procedural lvalue. */ + +int is_proc_lval(tree node) +{ + enum tree_code code = TREE_CODE(node); + + if (*tree_code_type[code] == 'c' || *tree_code_type[code] == 'e') + return 0; + if (is_all_net(node)) + return 0; + if (code == FUNCTION_REF) + return 0; + return 1; +} + +/* Return name of identifier, be it hierarchical or otherwise */ + +char *ident_name(tree node) +{ + enum tree_code code = TREE_CODE(node); + + if (code == IDENTIFIER_NODE) + return IDENT(node); + else + return IDENT(DECL_NAME(node)); +} + +/* Given an lval, check if it is a "SHADOW_LVAL_REF". If so, return the + lval that it is shadowing (a hierarchical reference). */ + +tree the_lval(tree lval_arg) +{ + tree lval; + + if (TREE_CODE(lval_arg) != SHADOW_LVAL_REF) + return lval_arg; + lval = TREE_CHAIN(lval_arg); /* This points to the actual decl */ + return lval; +} + +/* Return the string of the type, suitable for printing */ + +char *decl_type(tree node) +{ + enum tree_code code = TREE_CODE(node); + + switch (code) { + case EVENT_DECL: + return "event"; + case INTEGER_DECL: + return "integer"; + case REG_SCALAR_DECL: + return "reg"; + case REG_VECTOR_DECL: + return "reg"; + case TIME_DECL: + return "time"; + case REAL_DECL: + return "real"; + case NET_SCALAR_DECL: + case NET_VECTOR_DECL: + switch (TREE_TYPE(node)) { + case NET_WIRE_TYPE: + return "wire"; + case NET_TRI_TYPE: + return "tri"; + case NET_WAND_TYPE: + return "wand"; + case NET_TRIAND_TYPE: + return "triand"; + case NET_WOR_TYPE: + return "wor"; + case NET_TRIOR_TYPE: + return "trior"; + case NET_TRI0_TYPE: + return "tri0"; + case NET_TRI1_TYPE: + return "tri1"; + case NET_SUPPLY0_TYPE: + return "supply0"; + case NET_SUPPLY1_TYPE: + return "supply1"; + } + } + return ""; +} + + +/* Low-level constructors for expressions. */ + +/* Build an expression of code CODE, data type TYPE, + and operands as specified by the arguments ARG1 and following arguments. + Expressions and reference nodes can be created this way. + Constants, decls, types and misc nodes cannot be. */ + +tree build(enum tree_code code, enum tree_type type, ...) +{ + /*register */ va_list p; + register tree t; + register int length; + register int i; + + va_start(p, type); + +// code = va_arg (p, enum tree_code); + t = make_node(code); + length = tree_code_length[(int) code]; + TREE_TYPE(t) = type; +// TREE_TYPE (t) = va_arg (p, enum tree_type); + + if (length == 2) { + /* This is equivalent to the loop below, but faster. */ + register tree arg0 = va_arg(p, tree); + register tree arg1 = va_arg(p, tree); + TREE_OPERAND(t, 0) = arg0; + TREE_OPERAND(t, 1) = arg1; + } else { + for (i = 0; i < length; i++) { + register tree operand = va_arg(p, tree); + TREE_OPERAND(t, i) = operand; + } + } + va_end(p); + return t; +} + +/* Similar except don't specify the TREE_TYPE + and leave the TREE_VOLATILE as 0. + It is permissible for arguments to be null, + or even garbage if their values do not matter. */ + +tree build_nt(enum tree_code code, ...) +{ + /*register */ va_list p; + register tree t; + register int length; + register int i; + + va_start(p, code); + + t = make_node(code); + length = tree_code_length[(int) code]; + + for (i = 0; i < length; i++) + TREE_OPERAND(t, i) = va_arg(p, tree); + + va_end(p); + return t; +} + +/* Create a DECL_... node of code CODE, name NAME and data type TYPE. + We do NOT enter this node in any sort of symbol table. + + layout_decl is used to set up the decl's storage layout. + Other slots are initialized to 0 or null pointers. */ + +tree build_decl(enum tree_code code, tree name, enum tree_type type) +{ + register tree t; + + t = make_node(code); + +/* if (type == error_mark_node) + type = integer_type_node; */ +/* That is not done, deliberately, so that having error_mark_node + as the type can suppress useless errors in the use of this variable. */ + + DECL_NAME(t) = name; + TREE_TYPE(t) = type; + + return t; +} + +/* Build an array node */ +tree build_array(tree ident, tree decl, tree lobounds, tree hibounds) +{ + tree node = make_node(ARRAY_DECL); + +// ARRAY_DECL (node) = decl; + ARRAY_CODE(node) = TREE_CODE(decl); + ARRAY_HI_EXPR(node) = hibounds; + ARRAY_LO_EXPR(node) = lobounds; + DECL_NAME(node) = ident; + DECL_MSB(node) = DECL_MSB(decl); + DECL_LSB(node) = DECL_LSB(decl); + if (TREE_CODE(decl) == INTEGER_DECL) + TREE_INTEGER_ATTR(node) = 1; + if (TREE_CODE(decl) == REAL_DECL) + TREE_REAL_ATTR(node) = 1; + return node; +} + +/* Build a module block */ +tree build_module(tree ident) +{ + tree tmp = make_node(MODULE_BLOCK); +#if VDEBUG != 0 + if (vdebug) + printf_error_V("Building module %s\n", IDENTIFIER_POINTER(ident)); +#endif + BLOCK_NAME(tmp) = ident; + MODULE_NAME(tmp) = IDENTIFIER_POINTER(ident); + BLOCK_UP(tmp) = BLOCK_DECL(tmp) = BLOCK_PORTS(tmp) = NULL_TREE; + BLOCK_DOWN(tmp) = BLOCK_ARGS(tmp) = NULL_TREE; + MODULE_DEFPARAMS(tmp) = NULL_TREE; + MODULE_SPECDEFS(tmp) = NULL_TREE; + MODULE_SPECINST(tmp) = NULL_TREE; + /* Module names have their own namespace, so the following remains comment out */ + /* IDENT_CURRENT_DECL (ident) = tmp; *//* make ident point to mod */ + set_decl(ident, tmp); + module_timescale(tmp); + return tmp; +} + +/* Clean up at end of module parse */ + +void end_module(tree node) +{ + tree t, t1, t2; + char *name; + + for (t = MODULE_PORT_LIST(node); t; t = TREE_CHAIN(t)) { + t1 = TREE_PURPOSE(t); + t2 = root_port_decl(t1); + if (!t2 || TREE_CODE(t2) == IDENTIFIER_NODE) + error("Port '%s' not declared", IDENT(t1), NULL_CHAR); + else if (!PORT_INPUT_ATTR(t1) && !PORT_OUTPUT_ATTR(t1)) { + if (TREE_CODE(t1) == IDENTIFIER_NODE) + name = IDENT(t1); + else + name = IDENT(DECL_NAME(t1)); + error("Port '%s' not declared as INPUT, OUTPUT, or INOUT", + name, NULL_CHAR); + } + } +} + +extern tree current_scope; + +/* Build a task block */ +tree build_task(tree ident) +{ + tree tmp = make_node(TASK_BLOCK); + + BLOCK_NAME(tmp) = ident; + BLOCK_UP(tmp) = current_scope; +// make_decl (ident, current_scope); + return tmp; +} + +/* Build a function block */ +tree build_function(tree ident) +{ + tree tmp = make_node(FUNCTION_BLOCK); + + BLOCK_NAME(tmp) = ident; + BLOCK_UP(tmp) = current_scope; +// make_decl (ident, current_scope); + return tmp; +} + +tree build_stmt(enum tree_code code, ...) +{ + /*register */ va_list p; +// register enum tree_code code; + register tree t; + register int length; + register int i; + + va_start(p, code); + +// code = va_arg (p, enum tree_code); + t = make_node(code); + if (*tree_code_type[(int) code] == 's') + STMT_SOURCE_LINE(t) = va_arg(p, lineno_t); + length = tree_code_length[(int) code]; + + for (i = 0; i < length; i++) + STMT_OPERAND(t, i) = va_arg(p, tree); + + va_end(p); + return t; +} + +/* add a node to the list of continuous assignments + (used during intialization) */ + +void add_cont_assign_list(tree node) +{ + continuous_assignments = + tree_cons(node, NULL_TREE, continuous_assignments); +} + +/* Low-level constructors for statements. + These constructors all expect source file name and line number + as arguments, as well as enough arguments to fill in the data + in the statement node. */ + +tree +build_cont_assign(tree lval, tree rval, lineno_t lineno, tree delay, + int split) +{ + tree stmt, tmp_var; + + if (split) { + /* Make two assignments */ + + if (TREE_CODE(lval) == NET_SCALAR_DECL) + tmp_var = make_node(TMP_DECL); + else + tmp_var = make_node(TMP_DECL); + TREE_CHAIN(tmp_var) = lval; /* point to NET for pass3 */ + + /* pass3 fills on the rest */ + stmt = build_stmt(ASSIGN_CONT_STMT, lineno, tmp_var, rval, + NULL_TREE, NULL_TREE, delay); + TREE_CHAIN(stmt) = build_stmt(ASSIGN_CONT_STMT, lineno, + lval, NULL_TREE, NULL_TREE, + NULL_TREE, NULL_TREE); + + if (TREE_CODE(lval) == NET_SCALAR_DECL) { + NET_ASSIGNMENT(lval) = tmp_var; + } + + } else + stmt = build_stmt(ASSIGN_CONT_STMT, lineno, lval, rval, + NULL_TREE, NULL_TREE, delay); + + if (TREE_CODE(lval) == NET_SCALAR_DECL) { + NET_ASSIGNMENT(lval) = stmt; + } + + add_cont_assign_list(stmt); + return stmt; +} + + + +/************************************************************************ + * + * init_tree_1 + * - initializes global and static variables for tree.c + * + ************************************************************************ + */ + +void init_tree_1() +{ + top_level = NULL_TREE; + continuous_assignments = NULL_TREE; + num_nodes = 0; + num_nodes_g = 0; + num_nodes_e = 0; + num_nodes_b = 0; + num_nodes_s = 0; + num_nodes_r = 0; + num_nodes_c = 0; + num_nodes_d = 0; + num_nodes_x = 0; + free_link = NULL_TREE; + memset(&permanent_obstack, 0, sizeof(permanent_obstack)); + memset(&module_obstack, 0, sizeof(module_obstack)); + memset(&linkage_obstack, 0, sizeof(linkage_obstack)); + memset(&code_obstack, 0, sizeof(code_obstack)); + memset(&temporary_obstack, 0, sizeof(temporary_obstack)); + memset(&saveable_obstack, 0, sizeof(saveable_obstack)); + memset(¤t_obstack, 0, sizeof(current_obstack)); + memset(&expression_obstack, 0, sizeof(expression_obstack)); + memset(&temporary_firstobj, 0, sizeof(temporary_firstobj)); + memset(&hash_table, 0, sizeof(hash_table)); + do_identifier_warnings = 0; + range_handle = NULL_TREE; +} diff --git a/src/tree.def b/src/tree.def new file mode 100644 index 0000000..84ed345 --- /dev/null +++ b/src/tree.def @@ -0,0 +1,608 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* The third argument can be: + "b" for a scoping block (tasks, functions, named begins, and modules) + "x" for an exceptional code (fits no category). + "s" for a statement code. + "g" for a gate primitive. + + "c" for codes for constants. + "d" for codes for declarations (also serving as variable refs). + "r" for codes for references to storage. + "e" for codes for other kinds of expressions. */ + +/* Expression nodes are further broken down: + "e3" for conditional (?:) + "ex" for arithmetic and bit-wise (context-dependent lengths) (+ - * / %) + "eu" for arithmetic unary (-) + "es" for shift (<< >>) + "e1" for conditionals (length = 1) + "er" for reduction (unary conditional) + "ec" for unary type conversion +*/ + +/* For `r', `e' and `x' nodes, + the 4th element is the number of argument slots to allocate. + This determines the size of the tree node object. */ + +/* Any erroneous construct is parsed into a node of this type. + This type of node is accepted without complaint in all contexts + by later parsing activities, to avoid multiple error messages + for one error. + No fields in these nodes are used except the TREE_CODE. + Must also alias for decls so extend by 3*/ +DEFTREECODE (ERROR_MARK, "error_mark", "x", 3) + +/* Used to represent a name (such as, in the DECL_NAME of a decl node). + Internally it looks like a STRING_CST node. + There is only one IDENTIFIER_NODE ever made for any particular name. + Use `get_identifier' to get it (or create it, the first time). */ +DEFTREECODE (IDENTIFIER_NODE, "identifier_node", "x", 7) + +/* Has the TREE_VALUE and TREE_PURPOSE fields. */ +/* These nodes are made into lists by chaining through the + TREE_CHAIN field. The elements of the list live in the + TREE_VALUE fields, while TREE_PURPOSE fields are occasionally + used as well to get the effect of Lisp association lists. */ +DEFTREECODE (TREE_LIST, "tree_list", "x", 3) + +DEFTREECODE (PATH_OUTPUT, "path_output", "x", 6 ) +DEFTREECODE (PATH_INSTANCE, "path_instance", "x", 2 ) + +/* Has the PATH_DELAYS, PATH_INPUTS, PATH_OUTPUTS, PATH_PARALLEL fields. */ +/* These nodes are made into lists by chaining through the + TREE_CHAIN field. PATH_DELAYS points to a list of delay expressions. + PATH_INPUTS points to a list of input/inout ports. PATH_OUTPUTS points + to a list of output/inout ports. PATH_PARALLEL is a flag indication + if the path is a parallel specification. PATH_SOURCE is the source + expression for edge triggered paths. PATH_CONDITION is the expression + for the if clause. PATH_EDGE is the transition for edge triggered paths. + PATH_POLARITY is the polarity for level and edge sensitive paths. +*/ +DEFTREECODE (PATH_NODE, "path_node", "x", 10) + +/* Has CHECK_SPEC_EVENT1, CHECK_SPEC_EVENT2, CHECK_SPEC_PARAM1, + CHECK_SPEC_PARAM2, CHECK_SPEC_CHECKTYPE, CHECK_SPEC_NOTIFIER fields. + All check specs are chained anchored to its MODULE. + EVENT1 and EVENT2 are trees to scalar,part or bit selects of in, or inout. + PARAM1 and PARAM2 are trees to constants. + CHECKTYPE identifies the type of check. + NOTIFIER is a tree to the notifier or NULL. +*/ +DEFTREECODE (CHECK_SPEC, "check_spec", "x", 8) + +/* Has: + PLI_DELAY_NEXT - next delay for pli task/function + PLI_DELAY_NODE - task/function node for this delay + PLI_DELAY_TIME - time for this delay to fire + PLI_DELAY_STORAGE - group structure for assigns + PLI_DELAY_LVAL - lval tree for assigns +*/ +DEFTREECODE (PLI_DELAY, "pli_delay", "x", 5 ) + +/* Has TIMING_EVENT_EDGESPEC, TIMING_EVENT_EXPRESSION, TIMING_EVENT_CONDITION + fields. + EDGESPEC is a long with one bit per edge type. + EXPRESSION is a tree to the expression to be evaluated. + CONDITION is a tree to the condition expression. +*/ +DEFTREECODE (TIMING_EVENT, "timing_event", "x", 3 ) + +DEFTREECODE (TIMING_CHECK, "timing_check", "x", 21 ) +DEFTREECODE (NOTIFIER_NODE, "notifier", "x", 2 ) +DEFTREECODE (UDP_STRING_NODE, "udp_string", "x", 9 ) +DEFTREECODE (UDP_TABLE_NODE, "udp_table", "x", 10 ) + +/* Scoping blocks. These represent a push to a new scoping (context) level + for hierarchical references, where each level can define new variables or + redeclare previously-used names. These are modules, tasks, fuctions, + named begin/end, and named fork/join. These are also used to resolve + forward references for calls and the DISABLE statement. + TREE_CHAIN points to another block at the same level. + TREE_TYPE is the return type for functions. + BLOCK_NAME points to the INDENTIFIER_NODE with the name of the block. + BLOCK_DOWN points to a chain of subblocks. + BLOCK_UP points to the next higher level. + BLOCK_DECL points to a chain of ..._DECL nodes that represent the + declarations within this block. + BLOCK_PARAM points to a TREE_LIST of parameter expressions; TREE_PURPOSE + is the name of the parameter. + BLOCK_PARAM_ASSIGN points to a chain of parameter expressions. + BLOCK_PORTS is a TREE_LIST of ..._DECL nodes representing the ports + or task/function arguments; TREE_PURPOSE points to the identifier + node of the name of the port. + BLOCK_BODY point to either a tree list of INITIAL/ALWAYS blcoks (modules) + or to the code (tasks, functions, begin/fork). */ + +/* Module. This is sort of a root node. + MODULE_INSTANCES point to a chain of module and gate instances. */ +DEFTREECODE (MODULE_BLOCK, "module_block", "b", 8) + +/* Tasks and functions. + FUNCT_DECL points to a declaration node representing the return type */ +DEFTREECODE (TASK_BLOCK, "task_block", "b", 2) +DEFTREECODE (FUNCTION_BLOCK, "function_block", "b", 5) + +/* Named begin/end and named fork/join */ +DEFTREECODE (NAMED_BLOCK, "named_block", "b", 0) + +/* Mother of all blocks */ +DEFTREECODE (SUPER_BLOCK, "super_block", "b", 0) + + +/* All statement types have fields STMT_SOURCE_FILE and STMT_SOURCE_LINE. */ +/* Consecutive statements within a compound statement are chained together + through the TREE_CHAIN field. */ + +/* INITIAL and ALWAYS blocks. These are sort of a cross between statement + nodes and blcok nodes. TREE_CHAIN links all INITIAL and ALWAYS block + in a module. BLOCK_BODY points to a chain of statements. */ +DEFTREECODE (INITIAL_BLOCK, "initial_block", "s", 1) +DEFTREECODE (ALWAYS_BLOCK, "always_block", "s", 1) + +/* A null statement for use with stamtement_or_null. Although + exec will execute it, it is needed only for aesthetic purposes during + trace. */ +DEFTREECODE (NULL_STMT, "null_stmt", "s", 0) + +/* This is a fast way to return from exec() during disable stmt processing */ +DEFTREECODE (DUMMY_RETURN_STMT, "dummy_return_stmt", "s", 0) + +/* Removes process from system. Used by INITIAL and interactive stmts */ +DEFTREECODE (DUMP_STMT, "dump_stmt", "s", 0) + +/* Finishes a Verilog session */ +DEFTREECODE (FINISH_STMT, "finish_stmt", "s", 0) + +/* A label definition, encapsulated as a statement. + STMT_BODY is the LABEL_DECL node for the label that appears here. */ +DEFTREECODE (LABEL_STMT, "label_stmt", "s", 1) + +/* Assignment statements: + ASSIGN_STMT is a simple procedural assignment. + ASSIGN_DELAY_STMT is an intra assignment delay. + ASSIGN_EVENT_STMT is an intra assignment event. + ASSIGN_NONBLK_DELAY_STMT is a non-blocking assignment w/delay. + ASSIGN_NONBLK_EVENT_STMT is a non-blocking assignment w/event. + ASSIGN_CONT_STMT is a simple continuous assignment. + + STMT_ASSIGN_LVAL is the lvalue of the assignment + STMT_ASSIGN_RVAL is the rvalue expression + STMT_ASSIGN_RVAL_CODE is the rvalue expression instructions + + STMT_ASSIGN_EVENT_LIST is a list of markers that will trigger this + assignment. + STMT_ASSIGN_DELAY is an event or delay expression or NULL. + STMT_ASSIGN_NEXT points to another continuous assignment of the same net. + */ +DEFTREECODE (ASSIGN_STMT, "assign_stmt", "s", 3) +DEFTREECODE (ASSIGN_DELAY_STMT, "assign_delay_stmt", "s", 7) +DEFTREECODE (ASSIGN_EVENT_STMT, "assign_delay_stmt", "s", 7) +DEFTREECODE (ASSIGN_NONBLK_DELAY_STMT, "assign_delay_stmt", "s", 7) +DEFTREECODE (ASSIGN_NONBLK_EVENT_STMT, "assign_delay_stmt", "s", 9) +DEFTREECODE (ASSIGN_CONT_STMT, "assign_cont_stmt", "s", 5) + +/* Procedural continuous assignment and force assignment. Uses + same structures as ASSIGN statements */ + +DEFTREECODE (ASSIGN_PROC_STMT, "assign_proc_stmt", "s", 5) +DEFTREECODE (FORCE_STMT, "force_stmt", "s", 7) + + +//DEFTREECODE (ASSIGN2_STMT, "assign2_stmt", "s", 4) +//DEFTREECODE (ASSIGN_NOBLOCK_STMT, "assign_noblock_stmt", "s", 4) + +/* if-then-else statement. + STMT_COND is the condition (an expression). + STMT_THEN is the then-branch (a statement or chain of statements). + STMT_ELSE is the else-branch (a statement or chain of statements). */ +DEFTREECODE (IF_STMT, "if_stmt", "s", 4) + +/* case, casez, casex. + STMT_CASE_INDEX is an expression for the value to dispatch on. + STMT_CASE_LIST is a list (a chain of TREE_LIST nodes) + of the branches of the dispatch. + Each such TREE_LIST node has the case it is for (a constant expression) + as the TREE_PURPOSE (if there is a comma-delimited list of constant + expressions, then these are expanded to multiple TREE_LIST nodes) + and statement to execute as the TREE_VALUE. A null value for + TREE_PURPOSE indicates the default item. + STMT_CASE_DEFAULT_ATTR is set once a default is found and tested to + prevent and flag multiple defaults. */ +DEFTREECODE (CASE_STMT, "case_stmt", "s", 4) +DEFTREECODE (CASEZ_STMT, "casez_stmt", "s", 4) +DEFTREECODE (CASEX_STMT, "casex_stmt", "s", 4) + +/* forever statement. + STMT_BODY is the list of statements with the loop. */ +DEFTREECODE (FOREVER_STMT, "forever_stmt", "s", 1) + +/* repeat statement. + STMT_REPEAT_COUNT is the repeat count expression. + STMT_BODY is the list of statements within the loop. */ +DEFTREECODE (REPEAT_INIT_STMT, "repeat_init_stmt", "s", 4) +DEFTREECODE (REPEAT_STMT, "repeat_init_stmt", "s", 4) + +/* while statement. + STMT_COND is the while condition. + STMT_BODY is the list of statements within the loop. */ +DEFTREECODE (WHILE_STMT, "while_stmt", "s", 3) + +/* for statement. + STMT_FOR_INIT is the initial assignment. + STMT_FOR_COND is the condition. + STMT_FOR_ITER is the iteartion assignment. + STMT_BODY is the list of statements within the loop. */ +DEFTREECODE (FOR_STMT, "for_stmt", "s", 4) + +/* wait statement. + STMT_WAIT_EXPR is the expression on which to wait. + STMT_WAIT_EXPR_CODE is the instructions of the expression + STMT_WAIT_MARKER is the list of markers that can trigger the event */ +DEFTREECODE (WAIT_STMT, "wait_stmt", "s", 4) + +/* phantom jump for the end of loops. */ +DEFTREECODE (LOOPBACK_STMT, "loopback_stmt", "s", 1) + +/* delay control (e.g. #5) + STMT_BODY + STMT_DELAY_EXPR is the delay expression. + STMT_DELAY_EXPR_CODE is the list of expression to evaluate */ +DEFTREECODE (DELAY_STMT, "delay_stmt", "s", 3) + +/* event control (e.g. @foo; @(posedge foo) ) + STMT_BODY is the next stmt to execute after the event is triggered. + STMT_EVENT_MARKER is a list of event markers. */ +DEFTREECODE (EVENT_STMT, "event_stmt", "s", 3) + +/* trigger named event + STMT_ARROW_NAME is the name of the event. + STMT_ARROW_EVENT is actual event if NAME is hierarchical. */ +DEFTREECODE (ARROW_STMT, "arrow_stmt", "s", 2) + +/* begin/end block (possibly named) + STMT_NAME is the name of the block. If it is null, then it is not + named and no scoping occurs. If there is a name, then the scope is + pushed and new declarations may occur. + STMT_BLOCK points to scoping block, + STMT_BEGIN_NAMED_END points to stmt after end for disable stmt. */ +DEFTREECODE (BEGIN_STMT, "begin_stmt", "s", 1) +DEFTREECODE (BEGIN_NAMED_STMT, "begin_named_stmt", "s", 3) +DEFTREECODE (END_STMT, "end_stmt", "s", 0) +DEFTREECODE (END_NAMED_STMT, "end_named_stmt", "s", 2) + +/* fork/join block (possibly named) + STMT_BLOCK_NAME is the name of the block. If it is null, then it is not + named and no scoping occurs. If there is a name, then the scope is + pushed and new declarations may occur. + STMT_BODY is the chain of substatements. + STMT_FORK_SCB points to te sub-SCBs (for disabling) */ +DEFTREECODE (FORK_STMT, "fork_stmt", "s", 3) +DEFTREECODE (FORK_NAMED_STMT, "fork_named_stmt", "s", 4) +DEFTREECODE (JOIN_STMT, "join_stmt", "s", 1) +DEFTREECODE (JOIN_NAMED_STMT, "join_named_stmt", "s", 2) + +/* Task and system task enable. + Function and system function reference. + STMT_TASK_NAME is the task name. + STMT_TASK_ARGS is the argument list, a list of expressions made out + of a chain of TREE_LIST nodes. */ +DEFTREECODE (TASK_STMT, "task_stmt", "s", 5) +DEFTREECODE (SYSTASK_STMT, "sys_task_stmt", "s", 10) +DEFTREECODE (FUNCTION_REF, "function_ref", "r", 7) +DEFTREECODE (SYSFUNCTION_REF, "sysfunction_ref", "r", 12) + +DEFTREECODE (GATE_INSTANCE, "gate_instance", "g", 0) + +/* These next two may be combined, since it probably is not known + at first pass if the name refers to a task or a block. */ +/* disable task and disable block. + STMT_DISABLE_NAME is the name of the task. */ +DEFTREECODE (DISABLE_STMT, "disable_stmt", "s", 2) +DEFTREECODE (DISABLE_TASK_STMT, "disable_task_stmt", "s", 1) +DEFTREECODE (DISABLE_BLOCK_STMT, "disable_block_stmt", "s", 1) + +/* Deassign psuedo continuous assignment and release. + STMT_LVAL is the lvalue to be deassigned. */ +DEFTREECODE (DEASSIGN_STMT, "deassign_stmt", "s", 1) +DEFTREECODE (RELEASE_STMT, "release_stmt", "s", 1) + +/* Continuous assignments, in two parts */ +//DEFTREECODE (CONT_ASSIGN, "cont_assign", "s", 9) +//DEFTREECODE (CONT_ASSIGN2, "cont_assign2", "s", 0) + +/* Instance placeholders. When a module instantiates another module, + this structure hold all the information until the hierarchy is created + in phase 2. ex. foo foobar #(1, 2) (a, b, c); + INSTANCE_NAME is the name of the instance (foobar), + INSTANCE_MODULE_NAME is the name of the referenced module (foo), + INSTANCE_PORTS is a TREE_LIST of arguments (a, b, c), + INSTANCE_PARAMS is a TREE_LIST of parameter overrides (1, 2), + INSTANCE_BLOCK is set to the actual module block during pass2. +*/ +DEFTREECODE (INSTANCE_NODE, "instance_node", "s", 5) + + +/* Expressions */ + +/* First, the constants. */ + +/* Contents are in TREE_INT_CST; 32 bits, signed. */ +DEFTREECODE (INTEGER_CST, "integer_cst", "c", 2) + +/* Contents are in TREE_REAL_CST; double. */ +DEFTREECODE (REAL_CST, "real_cst", "c", 2) + +/* Contents are in TREE_BIT_DATUM */ +DEFTREECODE (BIT_CST, "bit_cst", "c", 3) + +/* Contents are TREE_STRING_LENGTH and TREE_STRING_POINTER fields. */ +DEFTREECODE (STRING_CST, "string_cst", "c", 3) + +/* Declarations. All references to names are represented as ..._DECL nodes. + The decls in one binding context are chained through the TREE_CHAIN field. + Each DECL has a DECL_NAME field which contains an IDENTIFIER_NODE. + (Some decls, most often labels, may have zero as the DECL_NAME). + DECL_SCOPE points to the node representing the context in which + this declaration has its scope. This is either a MODULE, FUNCTION, + TASK, NAMED_BEGIN or NAMED_FORK scoping node. + The TREE_TYPE field holds the data type of the object, when relevant. + LABEL_DECLs have no data type. For TYPE_DECL, the TREE_TYPE field + contents are the type whose name is being declared. + DECL_SIZE hold the size in bytes required to store the value. + If parameters were used in the definition, then this is not known + at first pass time. + DECL_ADDR points to the address in memory where the value is held. + DECL_ACTIVE points to the activation list, that is, the list of event + markers that this declaration could trigger*/ +/* Integer declaration. */ +DEFTREECODE (INTEGER_DECL, "integer_decl", "d", 0) + +/* Real declaration */ +DEFTREECODE (REAL_DECL, "real_decl", "d", 0) + +/* Register scalar (single-bit) declaration. */ +DEFTREECODE (REG_SCALAR_DECL, "reg_scalar_decl", "d", 0) + +/* Time declaration */ +DEFTREECODE (TIME_DECL, "time_decl", "d", 0) + +/* Register vector declaration. */ +DEFTREECODE (REG_VECTOR_DECL, "reg_vector_decl", "d", 0) + +/* temp used for intermediate storage of delayed assignments */ +DEFTREECODE (TMP_DECL, "tmp_decl", "d", 0) + +/* Specify path constraint */ +DEFTREECODE (PATH_CONSTRAINT,"path_constraint", "x", 19 ) + +/* Net declarations. TREE_TYPE indicates the subtype. + NET_LIST is a pointer to other sources to this net + NET_DELAY is a pointer to the delay expression (must be constant) */ +DEFTREECODE (NET_SCALAR_DECL, "net_scalar_decl", "d", 3) +DEFTREECODE (NET_VECTOR_DECL, "net_vector_decl", "d", 3) + +/* Array declarations. DECL_NOUN points to another declaration node + that describes the type of array. Currently, only integers and registers + are arrayable (or is that arrayible). Also: + DECL_LOW_BOUNDS Low bounds of array. + DECL_HIGH_BOUNDS High bounds of array. */ +DEFTREECODE (ARRAY_DECL, "array_decl", "d", 5) + +/* Port and argument declarations. DECL_NOUN points to another + declaration node if this port is redefined as a register, or other + type. If null, then its type is the default net type. For vector ports: + DECL_PORT_MSB is the most significant bit. + DECL_PORT_LSB is the least significant bit. + PORT_INPUT_ATTR is set if the port/arg is an input. + PORT_OUTPUT_ATTR is set if the port/arg is an output. + if both are set, the port/arg is an INOUT. */ +DEFTREECODE (PORT_SCALAR_DECL, "port_scalar_decl", "d", 1) +DEFTREECODE (PORT_VECTOR_DECL, "port_vector_decl", "d", 3) +DEFTREECODE (ARG_SCALAR_DECL, "arg_scalar_decl", "d", 1) +DEFTREECODE (ARG_VECTOR_DECL, "arg_vector_decl", "d", 3) + +/* Parameter Declarations. These may be modified by a parent module, + so their current value cannot be used. Treat and a variable during + first pass, resolve and collapse during second pass. + DECL_PARAM_SEQ is the sequence number of the parameter (the order is which + it appeared in the declarations). + DECL_PARAM_EXPR is the default expression for the parameter. + DECL_PARAM_WHERE os a TREE_LIST of the heads of expressions that use + this parameter. */ +DEFTREECODE (PARAM_DECL, "param_decl", "d", 3) +/* Spec parameters have same layout as Parameter Declarations only different code */ +DEFTREECODE (SPECPARAM_DECL, "specparam_decl", "d", 3) + + +/* Named event declaration. This type does not store a value; it is used + only to trigger an event. */ +DEFTREECODE (EVENT_DECL, "event_decl", "d", 0) + +/* Result represents the return value of a function. DECL_NOUN points + to the subtype. */ +DEFTREECODE (RESULT_DECL, "result_decl", "d", 1) + +/* Represents a placeholder for block names: named begin, named fork, task + or function names are represented. */ +DEFTREECODE (BLOCK_DECL, "block_decl", "d", 0) + +/* References to storage. */ + +/* A placeholder for hierarchical names */ +DEFTREECODE (HIERARCHICAL_REF, "hierarchical_ref", "r", 1) + +/* Array indexing. + Operand 0 is the array; operand 1 is the index. */ +DEFTREECODE (ARRAY_REF, "array_ref", "r", 4) + +/* Bit-select. Operand 0 is the register or net, operand 1 is the index. */ +DEFTREECODE (BIT_REF, "bit_ref", "r", 4) + +/* Part-select. Operand 0 is the register or net. + PART_DECL is the pointer to the referenced decl node. + PART_MSB_ is the most significant bit (expression on the left side of + the colon). + PART_LSB_ is the least significant bit (expression on the right side + of the colon). + PART_MSB and PART_LSB are the actual constants, evaluated in pass 3.*/ +DEFTREECODE (PART_REF, "part_ref", "r", 9) + +DEFTREECODE (CONCAT_REF, "concat_ref", "r", 2) +DEFTREECODE (CONCAT_REP_REF, "concat_rep_ref", "r", 4) + +/* Shadow references are used when the size of a var must be adjusted + to something other than the native size. */ +DEFTREECODE (SHADOW_REF, "shadow_ref", "r", 0) + +/* Shadow lval references are for resolving direct (not indexed) references + to hierarchical names in the lval */ +DEFTREECODE (SHADOW_LVAL_REF, "shadow_lval_ref", "r", 1) + +/* The expression types are mostly straightforward, + with the fourth argument of DEFTREECODE saying + how many operands there are. + Unless otherwise specified, the operands are expressions. */ + +/* This is used to pass msb and lsb expression pointers during + parsing. Only one of these are needed. */ +DEFTREECODE (RANGE_HANDLE, "range_handle", "e", 2) + +/* Contains two expressions to compute, one followed by the other. + the first value is ignored. The second one's value is used. */ +DEFTREECODE (COMPOUND_EXPR, "compound_expr", "e", 2) + +/* Initialization expression. Operand 0 is the variable to initialize; + Operand 1 is the initializer. */ +DEFTREECODE (INIT_EXPR, "init_expr", "e", 2) + +/* Conditional expression ( ... ? ... : ... ). + Operand 0, 1 is the condition. + Operand 2, 3 is the then-value. + Operand 4, 5 is the else-value. */ +DEFTREECODE (COND_EXPR, "cond_expr", "e3", 6) + +/* Edge detection. Expression node contains the previous state for + edge comparison. */ +DEFTREECODE (ANYEDGE_EXPR, "anyedge_expr", "er", 2) +DEFTREECODE (POSEDGE_EXPR, "POSEDGE ", "er", 2) +DEFTREECODE (NEGEDGE_EXPR, "NEGEDGE ", "er", 2) + +/* Simple arithmetic. Operands must have the same machine mode + and the value shares that mode. */ +DEFTREECODE (PLUS_EXPR, "+", "ex", 2) +DEFTREECODE (MINUS_EXPR, "-", "ex", 2) +DEFTREECODE (MULT_EXPR, "*", "ex", 2) + +/* Division for integer result that rounds the quotient toward zero. */ +/* Operands must have the same machine mode. + In principle they may be real, but that is not currently supported. + The result is always fixed point, and it has the same type as the + operands if they are fixed point. */ +DEFTREECODE (DIV_EXPR, "/", "ex", 2) + +/* Four kinds of remainder that go with the four kinds of division. */ +DEFTREECODE (MOD_EXPR, "%", "ex", 2) + +/* Unary negation. Value has same type as operand. */ +DEFTREECODE (NEGATE_EXPR, "-", "eu", 1) + +/* Shift operations for shift and rotate. + Shift is supposed to mean logical shift if done on an + unsigned type, arithmetic shift on a signed type. + The second operand is the number of bits to + shift by, and must always have mode SImode. + The result has the same mode as the first operand. */ +DEFTREECODE (LSHIFT_EXPR, "<<", "es", 3) +DEFTREECODE (RSHIFT_EXPR, ">>", "es", 3) +/* DEFTREECODE (LROTATE_EXPR, "lrotate_expr", "e", 2) + DEFTREECODE (RROTATE_EXPR, "rrotate_expr", "e", 2) */ + +/* Bitwise operations. Operands have same mode as result. */ +DEFTREECODE (BIT_OR_EXPR, "|", "ex", 2) +DEFTREECODE (BIT_NOR_EXPR, "~|", "ex", 2) +DEFTREECODE (BIT_XOR_EXPR, "^", "ex", 2) +DEFTREECODE (BIT_XNOR_EXPR, "~^", "ex", 2) +DEFTREECODE (BIT_AND_EXPR, "&", "ex", 2) +DEFTREECODE (BIT_NAND_EXPR, "~&", "ex", 2) + /* DEFTREECODE (BIT_ANDTC_EXPR, "bit_andtc_expr", "ex", 2) */ +DEFTREECODE (BIT_NOT_EXPR, "~", "eu", 1) + +/* Combination of boolean values or of integers considered only + as zero or nonzero. ANDIF and ORIF allow the second operand + not to be computed if the value of the expression is determined + from the first operand. AND and OR always compute the second + operand whether its value is needed or not (for side effects). */ +DEFTREECODE (TRUTH_ANDIF_EXPR, "&&", "e1", 3) +DEFTREECODE (TRUTH_ORIF_EXPR, "||", "e1", 3) +DEFTREECODE (TRUTH_AND_EXPR, "&&", "e1", 2) +DEFTREECODE (TRUTH_OR_EXPR, "||", "e1", 2) +DEFTREECODE (TRUTH_NOT_EXPR, "!", "er", 1) + +/* Relational operators. + `EQ_EXPR' and `NE_EXPR' are allowed for any types. + The others are allowed only for integer (or pointer or enumeral) + or real types. + In all cases the operands will have the same type, + and the value is always the type used by the language for booleans. */ +DEFTREECODE (LT_EXPR, "<", "e1", 2) +DEFTREECODE (LE_EXPR, "<=", "e1", 2) +DEFTREECODE (GT_EXPR, ">", "e1", 2) +DEFTREECODE (GE_EXPR, ">=", "e1", 2) +DEFTREECODE (EQ_EXPR, "==", "e1", 2) +DEFTREECODE (NE_EXPR, "!=", "e1", 2) +DEFTREECODE (EQ_CASE_EXPR, "===", "e1", 2) +DEFTREECODE (NE_CASE_EXPR, "!==", "e1", 2) + +/* Unary reduction operators */ +DEFTREECODE (AND_REDUCE_EXPR, "&", "er", 1) +DEFTREECODE (NAND_REDUCE_EXPR, "~&", "er", 1) +DEFTREECODE (OR_REDUCE_EXPR, "|", "er", 1) +DEFTREECODE (NOR_REDUCE_EXPR, "~|", "er", 1) +DEFTREECODE (XOR_REDUCE_EXPR, "^", "er", 1) +DEFTREECODE (XNOR_REDUCE_EXPR, "~^", "er", 1) + +/* Expressions that represent simulation activity: delay and event */ + +/* Delay points to rise, fall, and Z delay expressions. The transition + to Z may be null. The next 3 entries are for the respective + expression instructions */ +DEFTREECODE (DELAY_EXPR, "delay_expr", "e", 6) + +/* Event expression points to a tree list of ORed event expressions. + TREE_PURPOSE pointe to the exent expression; + TREE_VALUE contains either ANY_EDGE, POS_EDGE, or NEG_EDGE */ +/* DEFTREECODE (EVENT_EXPR, "event_expr", "e", 1) */ + +/* Represents a conversion of type of a value. + All conversions, including implicit ones, must be + represented by CONVERT_EXPR nodes. */ +DEFTREECODE (CONVERT_EXPR, "convert_expr", "e", 1) + +/* Represents conversion to REAL from any other type */ +DEFTREECODE (REAL_CONV_EXPR, "$itor ", "ec", 1) + +/* Represents conversion to INTEGER from REAL */ +DEFTREECODE (INT_CONV_EXPR, "$rtoi ", "ec", 1) + +/* Represents a conversion expected to require no code to be generated. */ +DEFTREECODE (NOP_EXPR, "nop_expr", "ec", 1) + + diff --git a/src/tree.h b/src/tree.h new file mode 100644 index 0000000..94421a1 --- /dev/null +++ b/src/tree.h @@ -0,0 +1,1481 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* TREE.H - Tree structures and routine prototypes + +/* This is here as a placeholder since not all modules that include + tree.h will also include decl.h +*/ + +#ifndef TREE_H +#define TREE_H + +#include "veriuser.h" + +/* codes of tree nodes */ + +#define DEFTREECODE(SYM, STRING, TYPE, NARGS) SYM, + +enum tree_code { +#include "tree.def" + + LAST_AND_UNUSED_TREE_CODE /* A convienent way to get a value for + NUM_TREE_CODE. */ +}; + +#undef DEFTREECODE + +/* Number of tree codes. */ +#define NUM_TREE_CODES ((int)LAST_AND_UNUSED_TREE_CODE) + +/* Indexed by enum tree_code, contains a character which is + `e' for an expression, `r' for a reference, `c' for a constant, + `d' for a decl, `s' for a statement, `b' for a block, + and `x' for anything else (TREE_LIST, IDENTIFIER, etc). */ + +extern char *tree_code_type[]; + +/* Number of argument-words in each kind of tree-node. */ + +extern int tree_code_length[]; + +/* Name of tree node */ + +extern char *tree_code_name[]; + +enum tree_type { + NO_TYPE, + MODULE_TYPE, + FUNCTION_TYPE, + TASK_TYPE, + REG_TYPE, + INTEGER_TYPE, + EVENT_TYPE, + TIME_TYPE, + REAL_TYPE, + NET_TRI_TYPE, + NET_WIRE_TYPE, + NET_TRIOR_TYPE, + NET_WOR_TYPE, + NET_TRIAND_TYPE, + NET_WAND_TYPE, + NET_TRIREG_TYPE, + NET_TRI0_TYPE, + NET_TRI1_TYPE, + NET_SUPPLY0_TYPE, + NET_SUPPLY1_TYPE, + NAMED_BLOCK_TYPE, + GATE_AND_TYPE, + GATE_NAND_TYPE, + GATE_OR_TYPE, + GATE_NOR_TYPE, + GATE_XOR_TYPE, + GATE_XNOR_TYPE, + GATE_BUF_TYPE, + GATE_NOT_TYPE, + GATE_BUFIF0_TYPE, + GATE_BUFIF1_TYPE, + GATE_NOTIF0_TYPE, + GATE_NOTIF1_TYPE, + GATE_NMOS_TYPE, + GATE_PMOS_TYPE, + GATE_RNMOS_TYPE, + GATE_RPMOS_TYPE, + GATE_CMOS_TYPE, + GATE_RCMOS_TYPE, + GATE_PULLUP_TYPE, + GATE_PULLDN_TYPE, + GATE_TRAN_TYPE, + GATE_RTRAN_TYPE, + GATE_TRANIF0_TYPE, + GATE_TRANIF1_TYPE, + GATE_RTRANIF0_TYPE, + GATE_RTRANIF1_TYPE, + GATE_UDP_TYPE, + STRENGTH_SUPPLY0_TYPE, + STRENGTH_SUPPLY1_TYPE, + STRENGTH_STRONG0_TYPE, + STRENGTH_STRONG1_TYPE, + STRENGTH_PULL0_TYPE, + STRENGTH_PULL1_TYPE, + STRENGTH_HIGHZ0_TYPE, + STRENGTH_HIGHZ1_TYPE, + STRENGTH_WEAK0_TYPE, + STRENGTH_WEAK1_TYPE +}; + +enum delay_type { + MIN_DELAY, + TYP_DELAY, + MAX_DELAY +}; + +enum lval_type { + LVAL_REG, + LVAL_NEW_NET, + LVAL_NET, + LVAL_REG_NET, + LVAL_GATE +}; + +/* Codes that identify the various built in functions + so that expand_call can identify them quickly. */ + +/* May use this later for $display, etc. */ +//enum built_in_function +//{ +// DISPLAY, +// DISPLAYH, +// DISPLAYO, +// DISPLAYB +//}; + +/* The definition of tree nodes fills the next several pages. */ + +/* A tree node can represent a variable, an expression + or a statement. Each node has a TREE_CODE which says what kind of + thing it represents. Some common codes are: + INTEGER_TYPE -- represents a type of integers. + VAR_DECL -- represents a declared variable. + INTEGER_CST -- represents a constant integer value. + PLUS_EXPR -- represents a sum (an expression). + + As for the contents of a tree node: there are some fields + that all nodes share. Each TREE_CODE has various special-purpose + fields as well. The fields of a node are never accessed directly, + always through accessor macros. */ + +/* This type is used everywhere to refer to a tree node. */ + +typedef union tree_node *tree; + +#define NULL_TREE (tree) NULL + +/* forward defines for Metrowerks */ +struct Marker; +struct timeq_tag; + +/* Every kind of tree node starts with this structure, + so all nodes have these fields. + + See the accessor macros, defined below, for documentation of the fields. */ + +struct tree_common { + union tree_node *chain; + nbits_t nbits; + unsigned char type:8; + unsigned char code:8; + unsigned int label:8; + unsigned int sub_label:8; + + unsigned constant:1; + unsigned integer:1; +// unsigned signed_attr : 1; +// unsigned self_determined : 1; + unsigned port_input:1; + unsigned port_output:1; + unsigned port_redefined:1; + unsigned port_collapsed:1; + unsigned case_default:1; + /*unsigned parameter_override : 1; *//* uses case_default */ + /*unsigned lib_module : 1; *//* uses case_default */ + /*unsigned net_assign : 1; *//* uses case_default */ + unsigned net_scalared:1; + unsigned net_vectored:1; + unsigned stmt_surrogate:1; + unsigned vector_direction:1; + unsigned named_port:1; + /* unsigned port_immediate : 1; *//* uses named_port */ + unsigned interrupt_flag:1; /* Used only by CASE */ + /* unsigned real : 1; *//* uses interrupt_flag */ + unsigned hierarchical:1; + unsigned initialized:1; + unsigned referenced:1; +/* There is room for 0 more attributes. */ +/* -------------------- */ + unsigned unknown_type:1; + unsigned udp:1; + unsigned pli_asynch:1; + unsigned pad:13; +/* There is room for 14 more attributes. */ + +//#ifdef ALIGN_32 +// short pad; /* align to 32 bits */ +//#endif +}; + +/* Define accessors for the fields that all tree nodes have + (though some fields are not used for all kinds of nodes). */ + +/* The tree-code says what kind of node it is. + Codes are defined in tree.def. */ +#define TREE_CODE(NODE) ((enum tree_code) (NODE)->common.code) +#define TREE_SET_CODE(NODE, VALUE) ((NODE)->common.code = (int) (VALUE)) + +/* In all nodes that are expressions, this is the data type of the expression. + In declarations, this is the declaration data type. + In NET declarations, this is the NET subtype (WIRE, TRI0, etc.) */ +#define TREE_TYPE(NODE) ((NODE)->common.type) +#define TREE_SET_TYPE(NODE, VALUE) ((NODE)->common.type = (int) (VALUE)) + +/* In all nodes that are expressions, assign a "label" that will determine + the order of execution and the required depth of the stack for that + expression (From Aho 1986) */ +#define TREE_LABEL(NODE) ((NODE)->common.label) + +/* In all nodes that are expressions, assign a "sub-label" that is used + to determin the depth of the stack for a subexpression using the same + expression length (reduction, conditional, etc. operations may change + the expression length and will thus reset this value within an + expression. */ +#define TREE_SUB_LABEL(NODE) ((NODE)->common.sub_label) + +/* In all nodes that are expressions, "nbits" is the number of bits + in the result taking into account context dependent-ness. */ +#define TREE_NBITS(NODE) ((NODE)->common.nbits) + +/* Nodes are chained together for many purposes. + Decls in the same scope are chained together to record the contents + of the scope. + Statement nodes for successive statements used to be chained together. + Often lists of things are represented by TREE_LIST nodes that + are chained together. */ + +#define TREE_CHAIN(NODE) ((NODE)->common.chain) + +/* Define many boolean fields that all tree nodes have. */ + +/* For expression nodes, this determines if the expression tree represents + a constant expression. */ +#define TREE_CONSTANT_ATTR(NODE) ((NODE)->common.constant) + +/* For expression nodes, this determines if the expression tree represents + an integer expression. */ +#define TREE_INTEGER_ATTR(NODE) ((NODE)->common.integer) + +/* Also, determine if expression/constant/ref is signed or unsigned */ +#define TREE_SIGNED_ATTR(NODE) ((NODE)->common.signed_attr) + +/* Certain operators are defined as have self-determined or context-determined + lengths as a result. */ +#define TREE_SELF_DETERMINED_ATTR(NODE) ((NODE)->common.self_determined) + + +/* For ports and function/task arguments, define it as being an input, + output or inout. */ +#define PORT_INPUT_ATTR(NODE) ((NODE)->common.port_input) +#define PORT_OUTPUT_ATTR(NODE) ((NODE)->common.port_output) +#define PORT_REDEFINED_ATTR(NODE) ((NODE)->common.port_redefined) + +/* For NETs (applied to all DECLs, but should always be 0), mark if a + source to a net is a collapsed port. If so, it will be scheduled + immediately. */ +#define PORT_COLLAPSED_ATTR(NODE) ((NODE)->common.port_collapsed) + +/* For NETS that are collapsed, indicate this fact in the port argument + in the instance statement. It cannot be labeled as PORT_COLLAPSE + because do_net_eval uses that to ignore it for calculating the value + to be propigated to the output port. */ +#define PORT_IMMEDIATE_ATTR(NODE) ((NODE)->common.named_port) + +/* For case statements, mark the statement as having seen a default case + to flag multiple default cases. */ +#define CASE_DEFAULT_ATTR(NODE) ((NODE)->common.case_default) + +/* For parameter assignments, indicates that this assignment has + been overridden. Use the override rval. */ +#define PARAMETER_OVERRIDE_ATTR(NODE) ((NODE)->common.case_default) + +/* Modules that have been found in the library are tagged as such since + the same module name might be used for several library modules, each + a different number of arguments */ +#define LIB_MODULE_ATTR(NODE) ((NODE)->common.case_default) + +/* Net assignments get evaluated immediately, as opposed to continuous + assignements which are scheduled. Use this attribute to distinguish + the difference. */ +#define NET_ASSIGN_ATTR(NODE) ((NODE)->common.case_default) + +/* For nets, indicate if declaration is forcing expansion or forcing + no expansion. */ +#define NET_SCALARED_ATTR(NODE) ((NODE)->common.net_scalared) +#define NET_VECTORED_ATTR(NODE) ((NODE)->common.net_vectored) + +/* In a FOR statement, there are two nodes generated, on for the initial + expression/condition, and one for the iteration expression/condition. + Mark the interation node so that it can be fixed up in pass 3. */ +/* In certain statements, entering it for the first time has a different + effect that re-entering after a loop or returning after an event. + Such statements include FOR. */ +#define STMT_SURROGATE_ATTR(NODE) ((NODE)->common.stmt_surrogate) + +/* In a repeat statement, this it toggled at runtime to determine of the + expression should be evaluated (first time through), or if the top + of the stack should be decremented. */ +//#define REPEAT_1ST_ATTR(NODE) ((NODE)->common.repeat_1st) + +/* In a vectored data type, this is set if the msb is greater than the + lsb (usual case) */ +#define VECTOR_DIRECTION_ATTR(NODE) ((NODE)->common.vector_direction) + +/* In module instances and module declarations, NAMED_PORT_ATTR indicates + that named ports are being used and in the port list, TREE_VALUE + points to an IDENTIFIER_NODE that is the name of the port. */ +#define NAMED_PORT_ATTR(NODE) ((NODE) -> common.named_port) + +/* Determines if this decl is a REAL number */ +#define TREE_REAL_ATTR(NODE) ((NODE) -> common.interrupt_flag) + +/* For case statements (and maybe others in the future), the statement could + be interrupted in the middle of processing by control C or single step. + This is intself is OK, but if another statment is executed, then the state + needs to be staved. INTERRUPT_FLAG tells exec to redo the command without + tracing. */ +#define INTERRUPT_FLAG_ATTR(NODE) ((NODE) -> common.interrupt_flag) + +/* If an IDENTIFIER_NODE (as well as TASK and FUNCTION nodes) + contains a hierarchical reference (xx.xxx.xxx...) + then it will be tagged as such in parse.y. */ +#define HIERARCHICAL_ATTR(NODE) ((NODE) -> common.hierarchical) + +/* When a block node or decl node has been initialized in pass2 (or pass3), + set INITIALIZED_ATTR for debugging and sanity check and, in the case of + module blocks, to avoid being initialized twice. */ +#define INITIALIZED_ATTR(NODE) ((NODE) -> common.initialized) + +/* When a decl node is referenced, mark it as such. For now, if a port + is declared, then referenced, then redeclared, we can't handle this, + so flag it. */ +#define REFERENCED_ATTR(NODE) ((NODE) -> common.referenced) + +/* If there is a hierarchical name or a function in an expression, then + compile-time type conversion won't work. Do some extra work in pass3.c */ +#define UNKNOWN_TYPE_ATTR(NODE) ((NODE) -> common.unknown_type) + +/* If module definition is really for a udp flag, set this flag */ +#define UDP_ATTR(NODE) ((NODE) -> common.udp) + +/* If pli async is enabled set this flag */ +#define ASYNCH_ATTR(NODE) ((NODE) -> common.pli_asynch) + + +/* Define additional fields and accessors for nodes representing constants. */ + +/* In an INTEGER_CST node. This represents a signed 32-bit constant. */ +#define INT_CST_HIGH(node) ((node)->int_cst.high) +#define INT_CST_LOW(node) ((node)->int_cst.low) +#define INT_CST_DATA(NODE) ((NODE)->int_cst.data) + +struct tree_int_cst { + char common[sizeof(struct tree_common)]; + signed_32_t data; +}; + +#define REAL_CST_DATA(NODE) ((NODE)->real_cst.data) + +struct tree_real_cst { + char common[sizeof(struct tree_common)]; + double data; +}; + +/* Bit constants are unsigned, of any length. TREE_BIT_LENGTH is the + size of the constant in bits; TREE_BITVAL_POINTER points to a bitval + structure that stores the value. */ + +enum radii { BIN, HEX, OCT, DEC, STRING_, CHAR_, EXP_, FLOAT_, EXPFLOAT_, + TIME_ }; + +#define BIT_CST_GROUP(NODE) ((NODE)->bit_cst.group) +#define BIT_CST_RADIX(NODE) ((NODE)->bit_cst.radix) +#define BIT_CST_SET_RADIX(NODE, VALUE) ((NODE)->bit_cst.radix = (enum radii) (VALUE)) +#define BIT_CST_NBITS(NODE) ((NODE)->bit_cst.nbits) +//#define BIT_CST_NGROUPS(NODE) (((NODE)->bit_cst.nbits) >> GROUP_SHIFT_BITS) + +struct tree_bit_cst { + char common[sizeof(struct tree_common)]; + enum radii radix; + nbits_t nbits; + union group *group; +}; + +/* In a STRING_CST */ +#define TREE_STRING_LENGTH(NODE) ((NODE)->string.length) +#define TREE_STRING_POINTER(NODE) ((NODE)->string.pointer) + +struct tree_string { + char common[sizeof(struct tree_common)]; + int length; + char *pointer; +}; + +/* Define fields and accessors for some special-purpose tree nodes. */ + +#define IDENTIFIER_LENGTH(NODE) ((NODE)->identifier.length) +#define IDENTIFIER_POINTER(NODE) ((NODE)->identifier.pointer) +#define IDENT(NODE) ((NODE)->identifier.pointer) +#define IDENT_CURRENT_DECL(NODE) ((NODE)->identifier.current_decl) + +struct tree_identifier { + char common[sizeof(struct tree_common)]; + int length; + char *pointer; + union tree_node *current_decl; +}; + +/* In a TREE_LIST node. */ +#define TREE_PURPOSE(NODE) ((NODE)->list.purpose) +#define TREE_VALUE(NODE) ((NODE)->list.value) +#define TREE_3RD(NODE) ((NODE)->list.third.exp) + +/* Alternate reference method */ +#define TREE_EXPR(NODE) ((NODE)->list.purpose) +#define TREE_STMT(NODE) ((NODE)->list.value) +#define TREE_EXPR_CODE(NODE) ((NODE)->list.third.exp_code) + +/* Another reference for tmp vars for PLI arguments */ +#define TREE_PLIINFO(NODE) ((NODE)->list.value) + +struct tree_list { + char common[sizeof(struct tree_common)]; + union tree_node *purpose; + union tree_node *value; + union { + union tree_node *exp; + union tree_node **exp_code; + } third; +}; + + +/* Define fields and accessors for some nodes that represent expressions. */ + +/* In expression and reference nodes. */ +#define TREE_OPERAND(NODE, I) ((NODE)->exp.operands[I].exp) +#define REF_NAME(NODE) ((NODE)->exp.operands[0].exp) + +#define TRUTH_EXPR_CODE(NODE) ((NODE)->exp.operands[2].exp_code) + +#define BIT_REF_DECL(NODE) ((NODE)->exp.operands[0].exp) +#define BIT_EXPR(NODE) ((NODE)->exp.operands[1].exp) +#define BIT_EXPR_CODE(NODE) ((NODE)->exp.operands[2].exp_code) +#define BIT_REF_NAME(NODE) ((NODE)->exp.operands[3].exp) + +#define ARRAY_REF_DECL(NODE) ((NODE)->exp.operands[0].exp) +#define ARRAY_EXPR(NODE) ((NODE)->exp.operands[1].exp) +#define ARRAY_EXPR_CODE(NODE) ((NODE)->exp.operands[2].exp_code) +#define ARRAY_REF_NAME(NODE) ((NODE)->exp.operands[3].exp) + +#define FUNC_REF_NAME(NODE) ((NODE)->func.name) +#define FUNC_REF_ARGS(NODE) ((NODE)->func.args) +#define FUNC_REF_FUNC(NODE) ((NODE)->func.type.func) +#define FUNC_REF_INASSIGN(NODE) ((NODE)->func.inassign) +#define FUNC_REF_LINE(NODE) ((lineno_t)(NODE)->func.line) +#define FUNC_REF_FILE(NODE) ((NODE)->func.file) +#define FUNC_REF_CONTEXT(NODE) ((NODE)->func.context) +#define FUNC_REF_SYSTYPE(NODE) ((enum sysfunction_type)(NODE)->func.type.systype) +#define SET_FUNC_REF_SYSTYPE(NODE, VALUE) ((NODE)->func.type.systype = \ + (int)(VALUE)) +#define FUNC_REF_USERTF(NODE) ((NODE)->func.usertf) +#define FUNC_REF_WORKAREA(NODE) ((NODE)->func.workArea) +#define FUNC_REF_DELAYSCB(NODE) ((NODE)->func.delaySCB) +#define FUNC_REF_RETURNDECL(NODE) ((NODE)->func.returndecl) +#define FUNC_REF_NEXT(NODE) ((NODE)->func.nextinstance) + +struct tree_func { + char common[sizeof(struct tree_common)]; + char *name; + union tree_node *args; + union { + union tree_node *func; + int systype; +// enum sysfunction_type systype; + } type; + union tree_node *inassign; + lineno_t line; + char *file; + union tree_node *context; + p_tfcell usertf; /* PLI user_tf pointer (0 if not PLI) */ + char *workArea; /* used by pli routines */ + struct SCB *delaySCB; /* used for tf_setdelay */ + union tree_node *returndecl; /* decl holding return value */ + union tree_node *nextinstance; /* linked list of all pli instances */ +}; + +#define HIERARCHICAL_REF_IDENT(NODE) ((NODE)->exp.operands[0].exp) + +#define SHIFT_OPERAND(NODE) ((NODE)->shift.operand) +#define SHIFT_COUNT(NODE) ((NODE)->shift.count) +#define SHIFT_NBITS(NODE) ((NODE)->shift.nbits) + +struct tree_shift { + char common[sizeof(struct tree_common)]; + union tree_node *operand; + union tree_node *count; + nbits_t nbits; +}; + +/* This is used for part-selects and conatenations */ +#define PART_RMASK(NODE) ((NODE)->rmask) +#define PART_LMASK1(NODE) ((NODE)->lmask1) +#define PART_LMASK2(NODE) ((NODE)->lmask2) +#define PART_NGROUPS(NODE) ((NODE)->ngroups) +#define PART_SHIFT(NODE) ((NODE)->shift) +#define PART_NEXT(NODE) ((NODE)->next) +#define PART_ALIGNED(NODE) ((NODE)->aligned) +struct part_info { + Bit rmask; + Bit lmask1; + Bit lmask2; + ngroups_t ngroups; + int shift; + ngroups_t next; + unsigned aligned:1; +}; + +#define COND_EXPR(NODE) ((NODE)->exp.operands[0].exp) +#define COND_EXPR_CODE(NODE) ((NODE)->exp.operands[1].exp_code) +#define COND_TRUE(NODE) ((NODE)->exp.operands[2].exp) +#define COND_TRUE_CODE(NODE) ((NODE)->exp.operands[3].exp_code) +#define COND_FALSE(NODE) ((NODE)->exp.operands[4].exp) +#define COND_FALSE_CODE(NODE) ((NODE)->exp.operands[5].exp_code) + +#define PART_INFO(NODE) ((NODE)->part.info) +#define PART_DECL(NODE) ((NODE)->part.decl) +#define PART_MSB_(NODE) ((NODE)->part.msb_) +#define PART_LSB_(NODE) ((NODE)->part.lsb_) +#define PART_MSB(NODE) ((NODE)->part.msb) +#define PART_LSB(NODE) ((NODE)->part.lsb) +#define PART_STORAGE(NODE) ((NODE)->part.storage) +#define PART_NAME(NODE) ((NODE)->part.name) + +struct tree_part { + char common[sizeof(struct tree_common)]; + struct part_info *info; + union tree_node *decl; + union tree_node *msb_; + union tree_node *lsb_; + nbits_t msb; + nbits_t lsb; + Group *storage; + union tree_node *name; +}; + +#define CONCAT_LIST(NODE) ((NODE)->concat.list) +#define CONCAT_NBITS(NODE) ((NODE)->concat.nbits) +#define CONCAT_EXPR(NODE) ((NODE)->concat.expr) +#define CONCAT_COUNT(NODE) ((NODE)->concat.count) + +struct tree_concat { + char common[sizeof(struct tree_common)]; + union tree_node *list; + nbits_t nbits; + union tree_node *expr; /* for repeat counts */ + unsigned_32_t count; /* ditto */ +}; + +struct tree_exp { + char common[sizeof(struct tree_common)]; + union { + int value; + union tree_node *exp; + union tree_node **exp_code; + } operands[1]; +}; + +/* Define fields and accessors for nodes representing declared names. */ + +#define DECL_NAME(NODE) ((NODE)->decl_common.name) +#define DECL_CONTEXT(NODE) ((NODE)->decl_common.context) +#define DECL_RESULT(NODE) ((NODE)->decl_common.result) +#define DECL_INITIAL(NODE) ((NODE)->decl_common.initial) +#define DECL_SOURCE_FILE(NODE) ((NODE)->decl_common.filename) +#define DECL_SOURCE_LINE(NODE) ((NODE)->decl_common.linenum) +#define DECL_SIZE(NODE) ((NODE)->decl_common.size) +//#define DECL_ACTIVE(NODE) ((NODE)->decl_common.active) +#define DECL_UNUSED_FLAG(NODE) ((NODE)->common.parameter1_attr) +#define DECL_STORAGE(NODE) ((NODE)->decl_common.storage) +//#define DECL_ARRAY(NODE) ((NODE)->common.flag2) +#define DECL_MSB(NODE) ((NODE)->decl_common.msb_) +#define DECL_LSB(NODE) ((NODE)->decl_common.lsb_) +//#define DECL_NBITS(NODE) ((NODE)->decl_common.nbits) +#define DECL_STORAGE(NODE) ((NODE)->decl_common.storage) +#define DECL_EVENT_CHAIN(NODE) ((NODE)->decl_common.event_chain) +#define DECL_EVENT_NOCAST(NODE) ((NODE)->decl_common.event_chain) +#define DECL_STATE(NODE) ((enum logical_value) (NODE)->decl_common.state) +#define SET_DECL_STATE(NODE, VALUE) ((NODE)->decl_common.state = (enum logical_value)(VALUE)) +#define DECL_THREAD(NODE) ((NODE)->decl_common.thread) +#define DECL_UPDATE_FILE(NODE) ((NODE)->decl_common.update_file) +#define DECL_UPDATE_LINE(NODE) ((NODE)->decl_common.update_line) +#define DECL_UPDATE_TIME(NODE) ((NODE)->decl_common.update_time) + +#define MSB(NODE) ((NODE)->decl_common.msb) +#define LSB(NODE) ((NODE)->decl_common.lsb) + +struct tree_decl_common { + char common[sizeof(struct tree_common)]; + char *filename; + lineno_t linenum; + int size; + union tree_node *name; + union tree_node *context; + union tree_node *msb_; + union tree_node *lsb_; + nbits_t msb; + nbits_t lsb; +// nbits_t nbits; + union group *storage; + struct Marker *event_chain; +// void *event_chain; + int state; +// enum logical_value state; + union tree_node *thread; + char *update_file; + lineno_t update_line; + time64 update_time; +}; + +/* In a PLI_DELAY node */ +#define PLI_DELAY_NEXT(NODE) ((NODE)->pli_delay.next) +#define PLI_DELAY_NODE(NODE) ((NODE)->pli_delay.node) +#define PLI_DELAY_TIME(NODE) ((NODE)->pli_delay.time) +#define PLI_DELAY_STORAGE(NODE) ((NODE)->pli_delay.storage) +#define PLI_DELAY_LVAL(NODE) ((NODE)->pli_delay.lval) + +struct tree_pli_delay { + char common[sizeof(struct tree_common)]; + union tree_node *next; + union tree_node *node; + time64 time; + union group *storage; + union tree_node *lval; +}; + + + + +/* In a PATH_INPUT_TERMINAL (TREE_LIST) */ +#define MODPATH_INPUT_TERMINAL_PARENT(NODE) TREE_STMT(NODE) + +/* In a PATH_NODE node. */ +#define PATH_SOURCE_FILE(NODE) ((NODE)->path.filename) +#define PATH_SOURCE_LINE(NODE) ((NODE)->path.linenum) +#define PATH_DELAYS(NODE) ((NODE)->path.delays) +#define PATH_INPUTS(NODE) ((NODE)->path.inputs) +#define PATH_OUTPUTS(NODE) ((NODE)->path.outputs) +#define PATH_PARALLEL(NODE) ((NODE)->path.parallel) +#define PATH_SOURCE(NODE) ((NODE)->path.source) +#define PATH_CONDITION(NODE) ((NODE)->path.condition) +#define PATH_EDGE(NODE) ((NODE)->path.edge) +#define PATH_POLARITY(NODE) ((NODE)->path.polarity) + +struct tree_path { + char common[sizeof(struct tree_common)]; + char *filename; + lineno_t linenum; + union tree_node *delays; + union tree_node *inputs; + union tree_node *outputs; + union tree_node *source; + union tree_node *condition; + int parallel; + int edge; + int polarity; +}; + + + +/* in PATH_INSTANCE */ +#define PATH_INSTANCE_MODULE(NODE) ((NODE)->path_instance.module) +#define PATH_INSTANCE_PATHDESC(NODE) ((NODE)->path_instance.pathdesc) + +struct tree_path_instance { + char common[sizeof(struct tree_common)]; + union tree_node *module; /* points to containing module */ + union tree_node *pathdesc; /* path description */ +}; + + + +/* in PATH_OUTPUT */ +#define PATH_OUTPUT_GATE(NODE) ((NODE)->path_output.gate) +#define PATH_OUTPUT_VALUE(NODE) ((NODE)->path_output.value) +#define PATH_OUTPUT_PATHDESC(NODE) ((NODE)->path_output.pathdesc) +#define PATH_OUTPUT_CONSTRAINTS(NODE) ((NODE)->path_output.constraints) +#define PATH_OUTPUT_SCB(NODE) ((NODE)->path_output.scb) +#define PATH_OUTPUT_CURRENT_VALUE(NODE) ((NODE)->path_output.current_value) + +struct tree_path_output { + char common[sizeof(struct tree_common)]; + union tree_node *gate; /* points to associated gate */ + enum logical_value value; /* keeps track of value to be propagated */ + union tree_node *pathdesc; /* list of path descriptions */ + union tree_node *constraints; /* list of path constraints */ + struct SCB *scb; /* scb for specify path */ + enum logical_value current_value; /* keeps track of current value */ +}; + + + +#define PATH_CONSTRAINT_DELAY(NODE,FROM,TO) ((NODE)->path_constraint.delays[((FROM)<<2)|(TO)]) +#define PATH_CONSTRAINT_DEPENDENCIES(NODE) ((NODE)->path_constraint.dependencies) +#define PATH_CONSTRAINT_PATHDESC(NODE) ((NODE)->path_constraint.pathdesc) +#define PATH_CONSTRAINT_INSTANCE(NODE) ((NODE)->path_constraint.instance) +#define PATH_CONSTRAINT_OUTPUT_NUMBER(NODE) ((NODE)->common.sub_label) + +struct tree_path_constraint { + char common[sizeof(struct tree_common)]; + union tree_node *dependencies; + union tree_node *pathdesc; + union tree_node *instance; + unsigned delays[16]; +}; + +/* timing check specification */ + +#define CHECK_SPEC_EVENT1(NODE) ((NODE)->check_spec.event1) +#define CHECK_SPEC_EVENT2(NODE) ((NODE)->check_spec.event2) +#define CHECK_SPEC_PARAM1(NODE) ((NODE)->check_spec.param1) +#define CHECK_SPEC_PARAM2(NODE) ((NODE)->check_spec.param2) +#define CHECK_SPEC_NOTIFIER(NODE) ((NODE)->check_spec.notifier) +#define CHECK_SPEC_CHECKTYPE(NODE) ((NODE)->check_spec.checkType) + +struct tree_check_spec { + char common[sizeof(struct tree_common)]; + char *filename; + lineno_t linenum; + union tree_node *event1; + union tree_node *event2; + union tree_node *param1; + union tree_node *param2; + union tree_node *notifier; + unsigned checkType; +}; + +/* specify timing event specification */ + +#define TIMING_EVENT_EXPRESSION(NODE) ((NODE)->timing_event.expression) +#define TIMING_EVENT_CONDITION(NODE) ((NODE)->timing_event.condition) +#define TIMING_EVENT_EDGESPEC(NODE) ((NODE)->timing_event.edgeSpec) +struct tree_timing_event { + char common[sizeof(struct tree_common)]; + union tree_node *expression; + union tree_node *condition; + unsigned edgeSpec; +}; + +/* timing check terminal */ + +#define TIMING_TERMINAL_CHECK(NODE) (TREE_STMT(NODE)) + +/* timing check node */ + +#define TIMING_CHECK_PARAM1(NODE) ((NODE)->timing_check.param1) +#define TIMING_CHECK_PARAM2(NODE) ((NODE)->timing_check.param2) +#define TIMING_CHECK_EXPRESSIONCODE(NODE,I) ((NODE)->timing_check.expressionCode[I]) +#define TIMING_CHECK_EXPRESSION(NODE,I) ((NODE)->timing_check.expression[I]) +#define TIMING_CHECK_NOTIFIER(NODE) ((NODE)->timing_check.notifier) +#define TIMING_CHECK_CURRENTVALUE(NODE,I) ((NODE)->timing_check.currentValue[I]) +#define TIMING_CHECK_CHANGETIME(NODE,I) ((NODE)->timing_check.changeTime[I]) +#define TIMING_CHECK_CONDITION(NODE,I) ((NODE)->timing_check.condition[I]) +#define TIMING_CHECK_CONDITIONCODE(NODE,I) ((NODE)->timing_check.conditionCode[I]) +#define TIMING_CHECK_EDGESPEC(NODE,I) ((NODE)->timing_check.edgeSpec[I]) +#define TIMING_CHECK_CHECKSPEC(NODE) ((NODE)->timing_check.checkSpec) +#define TIMING_CHECK_MODULE(NODE) ((NODE)->timing_check.module) + +struct tree_timing_check { + char common[sizeof(struct tree_common)]; + int param1; + int param2; + union tree_node *expression[2]; + union tree_node **expressionCode[2]; + union tree_node *notifier; + int currentValue[2]; + time64 changeTime[2]; + union tree_node *condition[2]; + union tree_node **conditionCode[2]; + unsigned int edgeSpec[2]; + union tree_node *checkSpec; + union tree_node *module; +}; + +#define NOTIFIER_DECL(NODE) ((NODE)->common.chain) +#define NOTIFIER_TIMESTAMP(NODE) ((NODE)->notifier.timeStamp) + +struct tree_notifier { + char common[sizeof(struct tree_common)]; + time64 timeStamp; +}; + +#define UDP_STRING_STRING(NODE) ((NODE)->udp_string.string) +#define UDP_STRING_FILE(NODE) ((NODE)->udp_string.filename) +#define UDP_STRING_LINE(NODE) ((NODE)->udp_string.linenum) + +struct tree_udp_string { + char common[sizeof(struct tree_common)]; + char *filename; + lineno_t linenum; + char string[28]; +}; + +#define UDP_TABLE_ARRAY(NODE,I) ((NODE)->udp_table.array[I]) + +struct tree_udp_table { + char common[sizeof(struct tree_common)]; + char *array[10]; +}; + +/* Array is used as a modifier; noun points to decl node. Array is used + for regs (scalar and vector), int, time and real (eventually) */ +//#define ARRAY_DECL(NODE) ((NODE)->decl_array.decl) +#define ARRAY_CODE(NODE) ((NODE)->decl_array.code) +#define ARRAY_HI_EXPR(NODE) ((NODE)->decl_array.hi_expr) +#define ARRAY_LO_EXPR(NODE) ((NODE)->decl_array.lo_expr) +#define ARRAY_HI(NODE) ((NODE)->decl_array.hi) +#define ARRAY_LO(NODE) ((NODE)->decl_array.lo) +/* Recast storage to be array of pointers */ +//#define ARRAY_STORAGE(NODE) ((Group **)(NODE)->decl_common.storage) + +struct tree_decl_array { + char decl_common[sizeof(struct tree_decl_common)]; +// union tree_node *decl; + enum tree_code code; + union tree_node *lo_expr; + union tree_node *hi_expr; + nbits_t lo; + nbits_t hi; +}; + +/* For net declarations. STMT_SURROGATE_ATTR indicates that the net is one + of many sources to the net and holds the value for that source. */ + +#define NET_DELAY(NODE) ((NODE)->decl_net.delay) +#define NET_SOURCE(NODE) ((NODE)->decl_net.source) +#define NET_ASSIGNMENT(NODE) ((NODE)->decl_net.assignment) + +struct tree_decl_net { + char decl_common[sizeof(struct tree_decl_common)]; + union tree_node *delay; /* points to delay expression for the net */ + union tree_node *source; /* points to other sources to this net */ + union tree_node *assignment; /* points to con't ass't for this net */ +}; + +/* This is used for port terminal connections */ + +#define PORT_TERMINAL_HICONN(NODE) (TREE_VALUE(NODE)) + +/* This is used for module ports and function/task arguments */ + +#define DECL_PORT_NOUN(NODE) ((NODE)->tree_decl_port.noun) +#define DECL_TASK_NOUN(NODE) ((NODE)->tree_decl_port.noun) +#define DECL_PORT_MSB(NODE) ((NODE)->tree_decl_port_vector.msb) +#define DECL_PORT_LSB(NODE) ((NODE)->tree_decl_port_vector.lsb) +struct tree_decl_port { + char decl_common[sizeof(struct tree_decl_common)]; + union tree_node *noun; +}; + +struct tree_decl_port_vector { + char decl_port[sizeof(struct tree_decl_port)]; + union tree_node *msb; + union tree_node *lsb; +}; + +/* Parameter declaration. Points to constant expression that represents + default value. */ + +//#define DECL_PARAM_INIT(NODE) ((NODE)->decl_parameter.initial) +#define DECL_PARAM_RVAL(NODE) ((NODE)->decl_parameter.rval) +#define DECL_PARAM_RVAL_CODE(NODE) ((NODE)->decl_parameter.rval_code) +#define DECL_PARAM_REDIRECT(NODE) ((NODE)->decl_parameter.redirect) + +struct tree_decl_parameter { + char decl_common[sizeof(struct tree_decl_common)]; + union tree_node *rval; + union tree_node **rval_code; + union tree_node *redirect; +}; + + + +/* This is used at runtime to keep track of which SCB is in which scope. + It is needed for disable and for future $list */ + +struct context_member { + struct context_member *next; + struct context_member **prev; + struct context_member *shadow; /* context_member of previous context */ + struct SCB *scb; /* Owner */ + union tree_node *pc; /* PC to which to return upon leaving */ + union tree_node *scope; /* Pointer to scoping block */ +}; + +/* Define scoping block nodes */ + +#define BLOCK_SOURCE_LINE(NODE) ((NODE)->block_common.linenum) +#define BLOCK_SOURCE_FILE(NODE) ((NODE)->block_common.filename) +#define BLOCK_NAME(NODE) ((NODE)->block_common.name) +#define BLOCK_DECL(NODE) ((NODE)->block_common.decl) +#define BLOCK_PORTS(NODE) ((NODE)->block_common.ports) +#define BLOCK_ARGS(NODE) ((NODE)->block_common.ports) +#define BLOCK_PARAM(NODE) ((NODE)->block_common.param) +#define BLOCK_DOWN(NODE) ((NODE)->block_common.down) +#define BLOCK_UP(NODE) ((NODE)->block_common.up) +#define BLOCK_BODY(NODE) ((NODE)->block_common.body) +#define BLOCK_CONTEXT_LIST(NODE) ((NODE)->block_common.context_list) +#define BLOCK_LCB_LIST(NODE) ((NODE)->block_common.lcb) + +struct tree_block_common { + char common[sizeof(struct tree_common)]; + char *filename; + lineno_t linenum; + union tree_node *name; + union tree_node *decl; + union tree_node *param; + union tree_node *ports; // Maybe merge w/decl later? + union tree_node *down; + union tree_node *up; + union tree_node *body; + struct context_member *context_list; + union tree_node *lcb; // line execution call back list +// union tree_node *scb_list; +}; + +#define MODULE_PORT_LIST(NODE) ((NODE)->block_module.port_list) +//#define MODULE_INSTANCES(NODE) ((NODE)->block_module.common.module.instances) +#define MODULE_INSTANCES(NODE) ((NODE)->block_common.body) +#define MODULE_ASSIGNMENTS(NODE) ((NODE)->block_module.common.module.assignments) +#define MODULE_NAME(NODE) ((NODE)->block_module.name) +#define MODULE_DEFPARAMS(NODE) ((NODE)->block_module.common.module.defparams) +#define MODULE_SPECDEFS(NODE) ((NODE)->block_module.common.module.specdefs) +#define MODULE_SPECINST(NODE) ((NODE)->block_module.common.module.specinst) + +#define MODULE_TIME_UNIT(NODE) ((NODE)->block_module.time_unit) +#define MODULE_TIME_PREC(NODE) ((NODE)->block_module.time_prec) + +/* UDP definitions overlay the same structure and type as modules + UDP will have the UDP_ATTR flag set */ + +#define UDP_PORT_LIST(NODE) ((NODE)->block_module.port_list) +#define UDP_NAME(NODE) ((NODE)->block_module.name) +#define UDP_REG_NAME(NODE) ((NODE)->block_module.common.udp.reg_name) +#define UDP_INITIAL_VALUE(NODE) ((NODE)->block_module.common.udp.initial_value) +#define UDP_STRING_LIST(NODE) ((NODE)->block_module.common.udp.string_list) +#define UDP_TABLE(NODE) ((NODE)->block_module.common.udp.udp_table) + +enum module_code { INITIAL_CODE, ALWAYS_CODE }; + +struct tree_block_module { + char block_common[sizeof(struct tree_block_common)]; + char *name; + union tree_node *port_list; + union tree_node *instances; + union { + struct { + union tree_node *assignments; + union tree_node *defparams; + union tree_node *specinst; + union tree_node *specdefs; + } module; + struct { + union tree_node *reg_name; + union tree_node *initial_value; + union tree_node *string_list; + union tree_node *udp_table; + } udp; + } common; + unsigned char time_unit:8; + unsigned char time_prec:8; +}; + +/* Block structure for functions (and tasks). decl is the decl node for + the return var */ + +#define FUNCT_INPUT(NODE) ((NODE)->block_funct.input) +#define FUNCT_OUTPUT(NODE) ((NODE)->block_funct.output) +#define FUNCT_DECL(NODE) ((NODE)->block_funct.decl) +//#define FUNCT_DECL_CODE(NODE) ((NODE)->block_funct.code) +#define FUNCT_AREA(NODE) ((NODE)->block_funct.area) + +#define TASK_INPUT(NODE) ((NODE)->block_funct.input) +#define TASK_OUTPUT(NODE) ((NODE)->block_funct.output) + +struct tree_block_funct { + char block_common[sizeof(struct tree_block_common)]; + union tree_node *input; + union tree_node *output; + union tree_node *decl; +// union tree_node **code; + ngroups_t area; +}; + +#define GATE(NODE) (&((NODE)->gate_instance)) +#define GATE_FILE(NODE) ((NODE)->gate_instance.filename) +#define GATE_LINE(NODE) ((NODE)->gate_instance.linenum) +#define GATE_SCOPE(NODE) ((NODE)->gate_instance.scope) +#define GATE_NAME(NODE) ((NODE)->gate_instance.name) +#define GATE_ROUTINE(NODE) ((NODE)->gate_instance.routine) +#define GATE_PROPAGATE_ROUTINE(NODE) ((NODE)->gate_instance.propagate_routine) +#define GATE_DELAY(NODE) ((NODE)->gate_instance.delay) +#define GATE_MARKERS(NODE) ((NODE)->gate_instance.markers) +#define GATE_TIME(NODE) ((NODE)->gate_instance.time) +#define GATE_OUTPUT(NODE) ((NODE)->gate_instance.output) +#define GATE_STATE(NODE) ((NODE)->gate_instance.state) +#define GATE_INPUTS(NODE) ((NODE)->gate_instance.total_inputs) +#define GATE_INPUT_LIST(NODE) ((NODE)->gate_instance.input_ports) +#define GATE_OUTPUT_LIST(NODE) ((NODE)->gate_instance.output_ports) +#define GATE_FIRED_INPUTS(NODE) ((NODE)->gate_instance.shared.gate.fired_inputs) +#define GATE_CONTROL(NODE) ((NODE)->gate_instance.shared.gate.fired_inputs) +#define GATE_ZEROS(NODE) ((NODE)->gate_instance.shared.gate.fired_inputs) +#define GATE_ONES(NODE) ((NODE)->gate_instance.shared.gate.fired_inputs) +#define GATE_X(NODE) ((NODE)->gate_instance.shared.gate.any_Xs) +#define GATE_NEXT(NODE) ((NODE)->gate_instance.next) +#define GATE_PREV(NODE) ((NODE)->gate_instance.prev) +#define GATE_INPUT_NUMBER(NODE) ((NODE)->common.sub_label) +#define GATE_TIMEQ(NODE) ((NODE)->gate_instance.timeq) + +/* Holds/sets the current value of the gate input */ +#define GATE_IN(LIST) ((enum logical_value)(LIST)->common.nbits) +#define SET_GATE_IN(LIST, NEW) ((LIST)->common.nbits=(NEW)) +#define GATE_PATH_OUTPUT(NODE) ((NODE)->gate_instance.path_output) +#define GATE_TERMINAL_GATE(NODE) (TREE_STMT(NODE)) +#define GATE_TERMINAL_NUMBER(NODE) ((NODE)->common.label) + +/* special members for udp gates */ +#define GATE_UDP_DEF(NODE) ((NODE)->gate_instance.shared.udp.udp_def) + + +struct tree_gate_instance { + char common[sizeof(struct tree_common)]; + char *filename; + lineno_t linenum; + union tree_node *scope; + char *name; /* name of the instance */ + void (*routine) (struct Marker *); /* routine to call to process gate */ + void (*propagate_routine) (union tree_node *); /* routine to call to propage gate output */ + union tree_node *input_ports; /* TREE_LIST of inputs */ + union tree_node *output_ports; /* TREE_LIST of outputs */ + union tree_node *delay; /* delay structure */ + struct Marker *markers; /* Pointer to markers */ +// void *markers; +// time64 time; /* time to trigger if delayed */ + enum logical_value output; /* scheduled output */ + int state; /* State of gate */ + int total_inputs; /* total number of inputs */ +// struct tree_gate_instance *next; /* For threading on the wait list */ +// struct tree_gate_instance **prev; /* (ok to use ADD_LIST, etc.) */ + tree next; /* next gate for given time */ + tree prev; /* prev gate for given time */ + struct timeq_tag *timeq; /* pointer to index node */ + union tree_node *path_output; /* pointer to specify path */ + union { + struct { + union tree_node *udp_def; /* points to udp_def node */ + int dummy; /* not used */ + } udp; + struct { + int fired_inputs; /* number of inputs at 1 (or 0) */ + int any_Xs; /* Are any inputs X (or Z)? */ + } gate; + } shared; + + +// union tree_node *next; /* For threading on the wait list */ +// union tree_node **prev; /* (ok to use ADD_LIST, etc.) */ +}; + + +/* Define fields and accessors for nodes representing statements. */ + +/* Common for most statements */ +#define STMT_SOURCE_LINE(NODE) ((NODE)->stmt.linenum) +#define STMT_SOURCE_FILE(NODE) ((NODE)->stmt.filename) +#define STMT_SCOPE(NODE) ((NODE)->stmt.scope) +#define STMT_BODY(NODE) ((NODE)->stmt.operand[0].exp) +#define STMT_OPERAND(NODE,I) ((NODE)->stmt.operand[I].exp) + +/* For IF_STMT. */ +#define STMT_COND(NODE) ((NODE)->stmt.operand[0].exp) +#define STMT_THEN(NODE) ((NODE)->stmt.operand[1].exp) +#define STMT_ELSE(NODE) ((NODE)->stmt.operand[2].exp) +#define STMT_COND_CODE(NODE) ((NODE)->stmt.operand[3].exp_code) + +/* For CASE_STMT. */ +#define STMT_CASE_EXPR(NODE) ((NODE)->stmt.operand[0].exp) +#define STMT_CASE_LIST(NODE) ((NODE)->stmt.operand[1].exp) +#define STMT_CASE_DEFAULT(NODE) ((NODE)->stmt.operand[2].exp) +#define STMT_CASE_EXPR_CODE(NODE) ((NODE)->stmt.operand[3].exp_code) +//#define STMT_CASE_DEFAULT_ATTR(NODE) ((NODE)->common.general1_attr) + +/* For REPEAT_STMT */ +#define STMT_REPEAT_EXPR(NODE) ((NODE)->stmt.operand[1].exp) +#define STMT_REPEAT_EXPR_CODE(NODE) ((NODE)->stmt.operand[2].exp_code) +#define STMT_REPEAT_VAR(NODE) ((NODE)->stmt.operand[3].group) + +/* For WHILE_STMT */ +#define STMT_WHILE_COND(NODE) ((NODE)->stmt.operand[1].exp) +#define STMT_WHILE_COND_CODE(NODE) ((NODE)->stmt.operand[2].exp_code) + +/* For FOR_STMT */ +#define STMT_FOR_ASSIGN(NODE) ((NODE)->stmt.operand[1].exp) +#define STMT_FOR_COND(NODE) ((NODE)->stmt.operand[2].exp) +#define STMT_FOR_COND_CODE(NODE) ((NODE)->stmt.operand[3].exp_code) + +/* Delay control */ +#define STMT_DELAY_EXPR(NODE) ((NODE)->stmt.operand[1].exp) +#define STMT_DELAY_EXPR_CODE(NODE) ((NODE)->stmt.operand[2].exp_code) + +/* Named BEGIN or FORK */ +#define STMT_BLOCK(NODE) ((NODE)->stmt.operand[1].exp) +/* points to stmt after end (points to end at parse; fixed up in pass 3) */ +//#define STMT_BEGIN_NAMED_END(NODE) ((NODE)->stmt.operand[2].exp) + +/* Fork stmts */ +#define STMT_FORK_SCB(NODE) ((NODE)->stmt.operand[2].scb) +/* Join stmt */ +//#define STMT_JOIN_FORK(NODE) ((void *)(NODE)->stmt.operand[0].exp) +#define STMT_JOIN_FORK(NODE) ((NODE)->stmt.operand[0].exp) + +/* Tasks and system tasks */ +#define STMT_TASK_NAME(NODE) ((NODE)->stmt.operand[0].name) +#define STMT_TASK_ARGS(NODE) ((NODE)->stmt.operand[1].exp) +#define STMT_TASK_TASK(NODE) ((NODE)->stmt.operand[2].exp) +#define STMT_TASK_INASSIGN(NODE) ((NODE)->stmt.operand[3].exp) +#define STMT_TASK_OUTASSIGN(NODE) ((NODE)->stmt.operand[4].exp) + +#define STMT_SYSTASK_TYPE(NODE) ((NODE)->stmt.operand[2].systask) +#define SET_STMT_SYSTASK_TYPE(NODE, VALUE) ((NODE)->stmt.operand[2].systask = \ + (int)(VALUE)) +#define STMT_SYSTASK_USERTF(NODE) ((NODE)->stmt.operand[5].p_tf) +#define STMT_SYSTASK_WORKAREA(NODE) ((NODE)->stmt.operand[6].workArea) +#define STMT_SYSTASK_DELAYSCB(NODE) ((NODE)->stmt.operand[7].delaySCB) +#define STMT_SYSTASK_NEXT(NODE) ((NODE)->stmt.operand[8].nextInstance) + +/* DISABLE_STMT */ +#define STMT_DISABLE_NAME(NODE) ((NODE)->stmt.operand[0].exp) +#define STMT_DISABLE_EXPR(NODE) ((NODE)->stmt.operand[0].exp) +#define STMT_DISABLE_SCOPE(NODE) ((NODE)->stmt.operand[1].exp) + + +/* WAIT_STMT */ +#define STMT_WAIT_EXPR(NODE) ((NODE)->stmt.operand[1].exp) +#define STMT_WAIT_EXPR_CODE(NODE) ((NODE)->stmt.operand[2].exp_code) +#define STMT_WAIT_MARKER(NODE) ((NODE)->stmt.operand[3].marker) + +/* For event triggereing */ +#define STMT_EVENT_EXPR_LIST(NODE) ((NODE)->stmt.operand[1].exp) +#define STMT_EVENT_MARKER(NODE) ((NODE)->stmt.operand[2].marker) + +/* -> foo: NAME is used for trace, EVENT is used for exec; both are same + unless NAME is hierachical. */ +#define STMT_ARROW_NAME(NODE) ((NODE)->stmt.operand[0].exp) +#define STMT_ARROW_EVENT(NODE) ((NODE)->stmt.operand[1].exp) + +/* Undo ASSIGN and FORCE */ +#define STMT_DEASSIGN_LVAL(NODE) ((NODE)->stmt.operand[0].exp) + +/* Note: any changes here must also be reflected in assign and instance */ +struct tree_stmt { + char common[sizeof(struct tree_common)]; + char *filename; + lineno_t linenum; + union tree_node *scope; + union { + union tree_node *exp; + union tree_node **exp_code; + char *name; + struct Marker *marker; +// void *marker; + struct SCB *scb; +// void *scb; + Group *group; + int systask; + char *workArea; + struct SCB *delaySCB; +/* enum systask_type systask; /* system task type, if internal */ + p_tfcell p_tf; /* points to tf structure for pli tasks */ + union tree_node *nextInstance; + } operand[1]; +}; + +/* All assignments use all or part of this structure. Simple procedural + assignments use lval, rval, and rval code. Continuous assignments use + the whole structure. See tree.def for a full listing. */ + +#define STMT_ASSIGN_LVAL(NODE) ((NODE)->assign.lval) +#define STMT_ASSIGN_RVAL(NODE) ((NODE)->assign.rval) +#define STMT_ASSIGN_RVAL_CODE(NODE) ((NODE)->assign.rval_code) + +#define STMT_ASSIGN_EVENT_LIST(NODE) ((NODE)->assign.event_list) +#define STMT_ASSIGN_DELAY(NODE) ((NODE)->assign.delay) +#define STMT_ASSIGN_EVENT(NODE) ((NODE)->assign.delay) + +#define STMT_ASSIGN_TMP(NODE) ((NODE)->assign.tmp) +#define STMT_ASSIGN_TMPCODE(NODE) ((NODE)->assign.tmp_code) + +#define STMT_ASSIGN_SCB(NODE) ((NODE)->assign.scb) +/* If the following changes, change all calls to build_stmt(ASSIGN...) */ + +struct tree_assign { + char common[sizeof(struct tree_common)]; + char *filename; + lineno_t linenum; + union tree_node *scope; + union tree_node *lval; + union tree_node *rval; + union tree_node **rval_code; + struct Marker *event_list; +// void *event_list; + union tree_node *delay; /* used for cont assign and intra-asgn timing */ + union tree_node *tmp; /* saved rval for intra-asgn and non blk */ + union tree_node **tmp_code; + union tree_node *repeat_count; + struct SCB *scb; /* list of scbs in non blk event assigns */ +// void *scb; +}; + +/* This is a placeholder for module instantiations within a module. If + NAMED_PORT_ATTR is set, then TREE_VALUE of the port list points to + and IDENTIFIER_NODE that is the name of the port. */ + +#define INSTANCE_FILE(NODE) ((NODE)->instance.filename) +#define INSTANCE_LINE(NODE) ((NODE)->instance.linenum) +#define INSTANCE_NAME(NODE) ((NODE)->instance.name) +#define INSTANCE_MODULE_NAME(NODE) ((NODE)->instance.module_name) +#define INSTANCE_PORTS(NODE) ((NODE)->instance.ports) +#define INSTANCE_PARAMS(NODE) ((NODE)->instance.params) +#define INSTANCE_BLOCK(NODE) ((NODE)->instance.block) + +struct tree_instance { + char common[sizeof(struct tree_common)]; + char *filename; + lineno_t linenum; + union tree_node *scope; + union tree_node *name; /* name of the instance */ + union tree_node *module_name; /* name of the referenced module */ + union tree_node *ports; /* TREE_LIST of arguments */ + union tree_node *params; /* TREE_LIST or param overrides */ + union tree_node *block; /* Points to block after pass2 */ +}; + +/* Define the overall contents of a tree node. + It may be any of the structures declared above + for various types of node. */ + +union tree_node { + struct tree_common common; + struct tree_int_cst int_cst; + struct tree_real_cst real_cst; + struct tree_string string; + struct tree_identifier identifier; + struct tree_bit_cst bit_cst; + struct tree_list list; + struct tree_part part; + struct tree_concat concat; + struct tree_exp exp; + struct tree_func func; + struct tree_shift shift; + struct tree_stmt stmt; + struct tree_decl_common decl_common; + struct tree_decl_net decl_net; + struct tree_decl_array decl_array; + struct tree_decl_parameter decl_parameter; + struct tree_block_common block_common; + struct tree_block_module block_module; + struct tree_block_funct block_funct; + struct tree_instance instance; + struct tree_assign assign; + struct tree_path path; + struct tree_path_constraint path_constraint; + struct tree_timing_event timing_event; + struct tree_check_spec check_spec; + struct tree_timing_check timing_check; + struct tree_notifier notifier; + struct tree_gate_instance gate_instance; + struct tree_path_output path_output; + struct tree_udp_string udp_string; + struct tree_udp_table udp_table; + struct tree_path_instance path_instance; + struct tree_pli_delay pli_delay; +}; +char *linkalloc (long); + +/* Lowest level primitive for allocating a node. + The TREE_CODE is the only argument. Contents are initialized + to zero except for a few of the common fields. */ + +tree make_node(enum tree_code); + +/* Make a copy of a node, with all the same contents except + for TREE_UID and TREE_PERMANENT. (The copy is permanent + iff nodes being made now are permanent.) */ + +tree copy_node(tree); + +/* Return the (unique) IDENTIFIER_NODE node for a given name. + The name is supplied as a char *. */ + +tree get_identifier(char *); + +/* Construct various types of nodes. */ + +tree build(enum tree_code, enum tree_type, ...); +tree build_nt(enum tree_code, ...); +tree build_tree_list(tree, tree); +tree build_decl(enum tree_code, tree, enum tree_type); +tree build_string(int, char *); +tree build_array(tree, tree, tree, tree); +tree build_module(tree); +void end_module(tree); +tree build_task(tree); +tree build_function(tree); +tree build_stmt(enum tree_code, ...); +void add_cont_assign_list(tree); +tree build_cont_assign(tree, tree, lineno_t, tree, int); + +/* Construct expressions, performing type checking. */ + +tree build_binary_op(enum tree_code, tree, tree); +tree build_unary_op(enum tree_code, tree); +tree build_cond_expr(tree, tree, tree); + +tree build_int_cst(signed_32_t); +tree build_real_cst(char *); +tree build_bit_cst(nbits_t, enum radii); + +/* Concatenate two lists (chains of TREE_LIST nodes) X and Y + by making the last node in X point to Y. + Returns X, except if X is 0 returns Y. */ + +tree chainon(tree, tree); + +/* Make a new TREE_LIST node from specified PURPOSE, VALUE and CHAIN. */ + +tree tree_cons(tree, tree, tree); +tree perm_tree_cons(tree, tree, tree); +tree link_tree_cons(tree, tree, tree); +void free_link_list(tree); + +/* Reverse the order of elements in a chain, and return the new head. */ + +tree nreverse(tree); + + +/* Returns the length of a chain of nodes + (number of chain pointers to follow before reaching a null pointer). */ + +int list_length(tree); +int lvalue_or_else(); +int is_proc_lval(tree); +tree the_lval(tree); + +/* Declare commonly used variables for tree structure. */ + +/* Node to pass lsb/msb expressions during parse */ +extern tree range_handle; + +/* Points to a TREE_LIST of parsed modules (defined in parse.y) */ +extern tree module_list; + +/* Points to a chain of top level modules */ +extern tree top_level; + +/* List of all port connections */ +extern tree port_connections; + +/* List of all continuous assignments for initializing */ +extern tree continuous_assignments; + +/* An integer constant with value 0 */ +//extern tree integer_zero_node; + +/* An integer constant with value 1 */ +//extern tree integer_one_node; + +/* A single-bit constant 0 (1'b0) */ +//extern tree bit_zero_node; + +/* a single-bit constant 1 (1'b1) */ +//extern tree bit_one_node; + +/* A node of type ERROR_MARK. */ +extern tree error_mark_node; + +/* Points to the name of the input file from which the current input + being parsed originally came (before it went into cpp). */ +extern char *input_filename; + +/* Current source line number in that file. */ +extern lineno_t lineno; +extern lineno_t stmt_lineno; + +/* Points to the FUNCTION_DECL of the function whose body we are reading. */ + +extern tree current_function_decl; + + +void clear_temporary(); + +void concat_labels(tree); + +tree check_lval(tree, enum lval_type, tree); +tree check_lval_nocheck(tree, enum lval_type, tree); +tree check_lval_port(tree); +tree check_rval(tree); +tree check_rval_nocheck(tree); +tree check_block(tree); +tree check_task(tree); +tree check_function(tree); +tree check_reg(tree); +tree check_non_reg(tree); +tree check_net(tree); +tree check_port(tree); +tree check_named_event(tree); +tree build_bit_ref(tree, tree); +tree build_part_ref(tree, tree, tree); +tree build_function_call(tree, tree); +tree make_net_source(tree); + +tree implicit_conversion(tree, tree); + +tree double_check_block(tree); +tree double_check_named_event(tree); + +int is_net_code(enum tree_code); +int is_all_net(tree); +int is_array(tree); +int is_string(tree); +int is_var(tree, tree *); +int is_block(tree, tree *); +char *decl_type(tree); +char *ident_name(tree); +void init_tree(void); + +void switch_to_linkage_obstack(void); +void switch_to_permanent_obstack(void); +void start_identifier_warnings(void); +/* Set all of the values of a list of TREE_LIST nodes to the same value. */ + +void set_all_list_values(tree, tree); +void init_tree_1(void); + +// private methods + +#ifdef TREE_C +#endif // TREE_C + +#endif // TREE_H diff --git a/src/udp.cc b/src/udp.cc new file mode 100644 index 0000000..f8a3072 --- /dev/null +++ b/src/udp.cc @@ -0,0 +1,876 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + + +/******************************************************************* + * + * upd.c + * - procedures for parsing and executing upd's + * + ******************************************************************* + */ + +#define UDP_C + +#include +#include +#include "vtypes.h" +#include "tree.h" +#include "runtime.h" +#include "udp.h" +#include "gates.h" +#include "schedule.h" +#include "eval.h" +#include "glue.h" +#include "copy.h" +#include "veriwell.h" +#include "nsched.h" + +extern lineno_t lineno; +extern char *input_filename; +extern tree current_module; + +int deltaTable[10][4][4]; +static int udp_inited = FALSE; + +/******************************************************************* + * + * build_udp + * - creates a udp tree structure + * + ******************************************************************* + */ +tree build_udp(tree identifier) +{ + tree t; + + ASSERT(udp_inited == TRUE); + t = build_module(identifier); + UDP_ATTR(t) = TRUE; + UDP_TABLE(t) = make_node(UDP_TABLE_NODE); + return (t); +} + + +/******************************************************************* + * + * build_udp_string + * - creates a udp string structure + * + ******************************************************************* + */ +tree build_udp_string(void) +{ + tree t; + + t = make_node(UDP_STRING_NODE); + UDP_STRING_STRING(t)[0] = 0; + UDP_STRING_LINE(t) = lineno; + UDP_STRING_FILE(t) = input_filename; + return (t); +} + +/******************************************************************* + * + * end_primitive + * - post process udp definition + * + ******************************************************************* + */ +void end_primitive(tree node) +{ + tree t; + tree t1; + char *name; + int numberOfTables; + int tableSize; + int i; + char *table; + tree udp_table; + int numberOfEntries; + + ASSERT(node != NULL_TREE); + ASSERT(TREE_CODE(node) == MODULE_BLOCK); + ASSERT(UDP_ATTR(node)); + ASSERT(UDP_STRING_LIST(node) != NULL_TREE); + + for (t = UDP_PORT_LIST(node); t; t = TREE_CHAIN(t)) { + ASSERT(TREE_CODE(t) == TREE_LIST); + t1 = TREE_PURPOSE(t); + ASSERT(t1 != NULL_TREE); + /* port must be defined and an identifier node */ + /* first port must be an output, rest inputs */ + + name = IDENT(DECL_NAME(t1)); + if (TREE_CODE(t1) != NET_SCALAR_DECL) { + error("Port '%s' is not defined as a scalar net", name, + NULL_CHAR); + return; + } else if (t == MODULE_PORT_LIST(node) && + (!PORT_OUTPUT_ATTR(t1) || PORT_INPUT_ATTR(t1))) { + error("Port '%s' not declared as OUTPUT", name, NULL_CHAR); + return; + } else if (t != MODULE_PORT_LIST(node) && + (PORT_OUTPUT_ATTR(t1) || !PORT_INPUT_ATTR(t1))) { + error("Port '%s' not declared as INPUT", name, NULL_CHAR); + return; + } + } + if ((UDP_REG_NAME(node) == NULL_TREE && + list_length(UDP_PORT_LIST(node)) > 11) || + (UDP_REG_NAME(node) != NULL_TREE && + list_length(UDP_PORT_LIST(node)) > 10)) { + error("too many ports for udp primitive '%s'", + UDP_NAME(node), NULL_CHAR); + return; + } + + /* build state tables */ + + if (UDP_REG_NAME(node) == NULL_TREE) { + numberOfTables = list_length(UDP_PORT_LIST(node)) - 1; + numberOfEntries = numberOfTables; + } else { + numberOfTables = list_length(UDP_PORT_LIST(node)) - 1; + numberOfEntries = numberOfTables + 1; + } + + + ASSERT(numberOfTables <= 10); + ASSERT(numberOfEntries <= 10); + + tableSize = int_power(3, numberOfEntries); + udp_table = UDP_TABLE(node); + ASSERT(udp_table != NULL_TREE); + ASSERT(TREE_CODE(udp_table) == UDP_TABLE_NODE); + + for (i = 0; i < numberOfTables; i++) { + table = xmalloc(tableSize); + + UDP_TABLE_ARRAY(udp_table, i) = table; + memset(table, 0xff, tableSize); + fill_udp_table(table, i, numberOfEntries, UDP_STRING_LIST(node), + UDP_REG_NAME(node) != NULL_TREE); + } +} + + +/******************************************************************* + * + * instantiate_udp + * - creates an instance of a udp gate + * + ******************************************************************* + */ +void instantiate_udp(tree module, tree caller, tree udp_def) +{ + tree gate; + tree t; + tree delay; + tree delay1; + tree delay2; + tree delay3; + int label; + + + ASSERT(caller != NULL_TREE); + ASSERT(TREE_CODE(caller) == INSTANCE_NODE); + ASSERT(udp_def != NULL_TREE); + ASSERT(TREE_CODE(udp_def) == MODULE_BLOCK); + ASSERT(UDP_ATTR(udp_def)); + + t = INSTANCE_PARAMS(caller); + if (t != NULL_TREE) { + ASSERT(TREE_CODE(t) == TREE_LIST); + delay1 = TREE_PURPOSE(t); + delay2 = delay1; + delay3 = NULL_TREE; + t = TREE_CHAIN(t); + label = 1; + if (t) { + ASSERT(TREE_CODE(t) == TREE_LIST); + delay2 = TREE_PURPOSE(t); + t = TREE_CHAIN(t); + label = 2; + } + if (t) { + ASSERT(TREE_CODE(t) == TREE_LIST); + delay3 = TREE_PURPOSE(t); + t = TREE_CHAIN(t); + label = 3; + } + delay = build_nt(DELAY_EXPR, delay1, delay2, delay3); + TREE_LABEL(delay) = label; + } else { + delay = NULL_TREE; + } + + gate = build_gate_instance(GATE_UDP_TYPE, INSTANCE_FILE(caller), + INSTANCE_LINE(caller), + INSTANCE_NAME(caller), + copy_tree_with_stuff(INSTANCE_PORTS(caller), + NULL_TREE), delay, + udp_def); + + BLOCK_BODY(module) = chainon(gate, BLOCK_BODY(module)); +// MODULE_INSTANCES(module) = chainon( gate, +// MODULE_INSTANCES(module) ); +} + +/******************************************************************* + * + * append_udp_digits + * - append 2 digits to udp string. allocate new node if needed + * + ******************************************************************* + */ +void append_udp_digits(tree * ptr, char c1, char c2) +{ + tree t; + int length; + + if (*ptr == NULL_TREE) { + *ptr = build_udp_string(); + } + t = *ptr; + /* note the size of the string must be at least one position + greater than the maximum allowable size. This fact will be + used to do later error checking */ + + length = strlen(UDP_STRING_STRING(t)); + if (length >= sizeof(UDP_STRING_STRING(t)) + 2) { + return; + } + + UDP_STRING_STRING(t)[length++] = c1; + UDP_STRING_STRING(t)[length++] = c2; +} + +/******************************************************************* + * + * validate_udp_string + * - validate the contents of the udp string. + * prune out colons. + * + ******************************************************************* + */ +void validate_udp_string(tree udp, tree udp_string) +{ + int combFlag; + int numberOfPorts; + int length; + int i; + int edgeCount; + char *ptr; + + ASSERT(udp != NULL_TREE); + ASSERT(TREE_CODE(udp) == MODULE_BLOCK); + ASSERT(UDP_ATTR(udp)); + ASSERT(udp_string != NULL_TREE); + ASSERT(TREE_CODE(udp_string) == UDP_STRING_NODE); + + ptr = UDP_STRING_STRING(udp_string); + combFlag = (UDP_REG_NAME(udp) == NULL_TREE); + numberOfPorts = list_length(UDP_PORT_LIST(udp)); + length = strlen(ptr); + + if ((combFlag && (numberOfPorts + 1) * 2 != length) || + (!combFlag && (numberOfPorts + 3) * 2 != length)) { + error("Bad table entry", NULL_CHAR, NULL_CHAR); + return; + } + if (combFlag) { + if (ptr[(numberOfPorts - 1) * 2] != ':' || + ptr[(numberOfPorts - 1) * 2 + 1] != ':') { + error("Missing ':' in table entry", NULL_CHAR, NULL_CHAR); + return; + } + memmove(&ptr[(numberOfPorts - 1) * 2], &ptr[numberOfPorts * 2], 3); + } else { + if (ptr[(numberOfPorts - 1) * 2] != ':' || + ptr[(numberOfPorts - 1) * 2 + 1] != ':' || + ptr[(numberOfPorts + 1) * 2] != ':' || + ptr[(numberOfPorts + 1) * 2 + 1] != ':') { + error("Missing ':' in table entry", NULL_CHAR, NULL_CHAR); + return; + } + memmove(&ptr[(numberOfPorts - 1) * 2], &ptr[(numberOfPorts) * 2], + 2); + memmove(&ptr[(numberOfPorts) * 2], &ptr[(numberOfPorts + 2) * 2], + 3); + } + + /* validate number of edges */ + + edgeCount = 0; + length = strlen(ptr); + for (i = 0; i < length; i += 2) { + if (is_edge(&ptr[i])) { + edgeCount++; + } + } + if (combFlag && edgeCount != 0) { + error("Edge specifications are not allowed in sequential upd's", + NULL_CHAR, NULL_CHAR); + return; + } else if (!combFlag && edgeCount > 1) { + error("Only one edge specification is allowed per table entry", + NULL_CHAR, NULL_CHAR); + return; + } + + /* validate inputs */ + for (i = 0; i < (numberOfPorts - 1) * 2; i += 2) { + if (!is_valid_input(&ptr[i], combFlag)) { + error("illegal character in input portion of table", + NULL_CHAR, NULL_CHAR); + return; + } + } + + /* validate previous output for seq. udp */ + + if (!combFlag && !is_valid_input(&ptr[length - 4], TRUE)) { + error("illegal character in current value portion of table", + NULL_CHAR, NULL_CHAR); + return; + } + + /* validate output */ + + if (!is_valid_output(&ptr[length - 2], combFlag)) { + error("illegal character in output portion of table", + NULL_CHAR, NULL_CHAR); + return; + } + + +} + +/******************************************************************* + * + * is_edge + * - returns TRUE if two bytes represent and edge + * + ******************************************************************* + */ +int is_edge(char *ptr) +{ + if (ptr[0] != ptr[1]) { + return (TRUE); + } + switch (*ptr) { + case '*': + case 'r': + case 'f': + case 'p': + case 'n': + return (TRUE); + } + return (FALSE); +} + +/******************************************************************* + * + * is_valid_input + * - returns TRUE if two bytes represent valid input + * + ******************************************************************* + */ +int is_valid_input(char *ptr, int combFlag) +{ + if (combFlag && is_edge(ptr)) { + return (FALSE); + } + if (*ptr == '-') { + return (FALSE); + } + return (TRUE); +} + +/******************************************************************* + * + * is_valid_output + * - returns TRUE if two bytes represent valid output + * + ******************************************************************* + */ +int is_valid_output(char *ptr, int combFlag) +{ + if (is_edge(ptr)) { + return (FALSE); + } + if (combFlag && *ptr == '-') { + return (FALSE); + } + return (TRUE); +} + +/******************************************************************* + * + * fill_udp_table + * - converts string list to execution table for input i + * + ******************************************************************* + */ +void +fill_udp_table(char *table, int inputNumber, int inputCount, + tree string_list, int seqFlag) +{ + tree t; + int position; + int i; + int tableSize; + char *save_input_filename; + int save_lineno; + int report_error; + char *string; + + + ASSERT(table != NULL); + ASSERT(inputCount < 11 && inputCount > 0); + ASSERT(inputNumber < inputCount && inputNumber >= 0); + ASSERT(string_list != NULL); + + + /* do level pass first */ + + for (t = string_list; t; t = TREE_CHAIN(t)) { + ASSERT(TREE_CODE(t) == UDP_STRING_NODE); + string = UDP_STRING_STRING(t); + if (!is_edge_string(t, &position)) { + save_input_filename = input_filename; + save_lineno = lineno; + runtime_error(t); + report_error = (inputNumber == 0); + set_udp_table_entry(table, int_power(3, inputCount - 1), 0, + NULL, string, &string[2], 0xff, + &report_error); + input_filename = save_input_filename; + lineno = save_lineno; + } + } + + /* do edge pass next */ + + for (t = string_list; t; t = TREE_CHAIN(t)) { + ASSERT(TREE_CODE(t) == UDP_STRING_NODE); + string = UDP_STRING_STRING(t); + if (is_edge_string(t, &position) && position == inputNumber) { + save_input_filename = input_filename; + save_lineno = lineno; + runtime_error(t); + report_error = TRUE; + switch (string[inputNumber * 2]) { + case '0': + set_udp_table_entry(table, int_power(3, inputCount - 1), 0, + NULL, string, &string[2], 0x03, + &report_error); + break; + case '1': + set_udp_table_entry(table, int_power(3, inputCount - 1), 0, + NULL, string, &string[2], 0x0c, + &report_error); + break; + case 'x': + set_udp_table_entry(table, int_power(3, inputCount - 1), 0, + NULL, string, &string[2], 0x30, + &report_error); + break; + case '!': + case '?': + case '*': + set_udp_table_entry(table, int_power(3, inputCount - 1), 0, + NULL, string, &string[2], 0x3f, + &report_error); + break; + case '%': + case 'b': + set_udp_table_entry(table, int_power(3, inputCount - 1), 0, + NULL, string, &string[2], 0x0f, + &report_error); + break; + case 'r': + set_udp_table_entry(table, int_power(3, inputCount - 1), 0, + NULL, string, &string[2], 0x03, + &report_error); + break; + case 'f': + set_udp_table_entry(table, int_power(3, inputCount - 1), 0, + NULL, string, &string[2], 0x0c, + &report_error); + break; + case 'p': + set_udp_table_entry(table, int_power(3, inputCount - 1), 0, + NULL, string, &string[2], 0x33, + &report_error); + break; + case 'n': + set_udp_table_entry(table, int_power(3, inputCount - 1), 0, + NULL, string, &string[2], 0x3c, + &report_error); + break; + default: + ASSERT(FALSE); + } + input_filename = save_input_filename; + lineno = save_lineno; + + } + } + + /* x out uninitialized areas */ + + tableSize = int_power(3, inputCount); + for (i = 0; i < tableSize; i++) { + int temp; + + temp = table[i]; + temp = 0x15 & (~temp) & (temp >> 1); + table[i] ^= temp; + } + + +} + +/******************************************************************* + * + * set_udp_table_entry + * - recursive function to set a udp table entry + * + ******************************************************************* + */ +void +set_udp_table_entry(char *table, int position, int state, char *last, + char *next, char *rest, int from_mask, int *reportFlag) +{ + char c; + int from; + int temp; + + + /* check for termination condition */ + + if (rest[0] == 0) { + if (next[0] == '-') { + c = last[0]; + } else { + c = next[0]; + } + switch (c) { + case '0': + from = 0x00; + break; + case '1': + from = 0x15; + break; + case 'x': + from = 0x2a; + break; + default: + ASSERT(FALSE); + } + if ((from_mask & table[state]) != from_mask) { + temp = table[state] & from_mask; + temp = temp & (temp << 1); + temp = temp | (temp >> 1); + temp = temp ^ from_mask; + if (*reportFlag && ((table[state] ^ from) & temp) == 0) { +// warning( "table entry overlap previous entry", NULL_CHAR, NULL_CHAR ); + } else if (*reportFlag) { + if (from_mask == 0xff) { // level<->level conflict + error("level vs level table entry conflict", NULL_CHAR, + NULL_CHAR); + *reportFlag = FALSE; + } else { // edge sensitive entry + if ((table[state] & 0xc0) == 0) { // edge<->level conflict +// I commented this out because I believe this is a common occurance +// warning( "level vs edge table entry conflict", NULL_CHAR, NULL_CHAR ); + } else { // edge<->edge conflict + error("edge vs edge table entry conflict", + NULL_CHAR, NULL_CHAR); + *reportFlag = FALSE; + } + } + } + } else { + table[state] = + (table[state] & ~from_mask) | (from & from_mask); + } + return; + } + + + switch (next[1]) { + case '0': + case 'f': + state = state / 3; + set_udp_table_entry(table, position, state, next, rest, rest + 2, + from_mask, reportFlag); + break; + case '1': + case 'r': + state = state / 3 + position; + set_udp_table_entry(table, position, state, next, rest, rest + 2, + from_mask, reportFlag); + break; + case 'x': + state = state / 3 + 2 * position; + set_udp_table_entry(table, position, state, next, rest, rest + 2, + from_mask, reportFlag); + break; + case 'b': + set_udp_table_entry(table, position, state, last, "00", rest, + from_mask, reportFlag); + set_udp_table_entry(table, position, state, last, "11", rest, + from_mask, reportFlag); + break; + case '?': + case '*': + set_udp_table_entry(table, position, state, last, "00", rest, + from_mask, reportFlag); + set_udp_table_entry(table, position, state, last, "11", rest, + from_mask, reportFlag); + set_udp_table_entry(table, position, state, last, "xx", rest, + from_mask, reportFlag); + break; + case 'p': + set_udp_table_entry(table, position, state, last, "xx", rest, + from_mask, reportFlag); + set_udp_table_entry(table, position, state, last, "11", rest, + from_mask, reportFlag); + break; + case 'n': + set_udp_table_entry(table, position, state, last, "xx", rest, + from_mask, reportFlag); + set_udp_table_entry(table, position, state, last, "00", rest, + from_mask, reportFlag); + break; + case '-': // only an error case can take us here - just return + return; + default: + ASSERT(FALSE); + } +} + + +/******************************************************************* + * + * is_edge_string + * - returns TRUE if UDP_STRING is an edge specification + * + ******************************************************************* + */ + +int is_edge_string(tree t, int *inputNumber) +{ + char *ptr; + int count; + + ASSERT(t != NULL_TREE); + ASSERT(TREE_CODE(t) == UDP_STRING_NODE); + count = 0; + for (ptr = UDP_STRING_STRING(t); *ptr; ptr += 2) { + if (is_edge(ptr)) { + *inputNumber = count; + return (TRUE); + } + count++; + } + + return (FALSE); +} + +/******************************************************************* + * + * int_power + * - returns 'b' raised to the 'p' power + * + ******************************************************************* + */ +int int_power(int b, int p) +{ + int i; + int result; + + result = 1; + for (i = 0; i < p; i++) { + result *= b; + } + return (result); +} + +/******************************************************************* + * + * udp_exec + * - execute a udp gate + * + ******************************************************************* + */ +void udp_exec(struct Marker *marker) +{ + tree gate = (tree) marker->scb; + tree arg; + enum logical_value in_new, in_old, out_new, out_old; + char *table; + tree udp_def; + tree udp_table; + int arg_number; + int state; + nbits_t nbit; + + ASSERT(marker != NULL); + ASSERT(gate != NULL); + udp_def = GATE_UDP_DEF(gate); + ASSERT(udp_def); + ASSERT(TREE_CODE(udp_def) == MODULE_BLOCK); + ASSERT(UDP_ATTR(udp_def)); + udp_table = UDP_TABLE(udp_def); + ASSERT(udp_table != NULL_TREE); + ASSERT(TREE_CODE(udp_table) == UDP_TABLE_NODE); + + + +/* This is the arg expression, code, and last value */ + + arg = marker->expr.arg; + ASSERT(arg != NULL_TREE); + +/* save old input and output values */ + + in_old = GATE_IN(arg); + out_old = GATE_OUTPUT(gate); + arg_number = GATE_INPUT_NUMBER(arg); + ASSERT(arg_number >= 0); + ASSERT(UDP_REG_NAME(udp_def) != NULL_TREE + || arg_number < GATE_INPUTS(gate)); + ASSERT(UDP_REG_NAME(udp_def) == NULL_TREE + || arg_number < GATE_INPUTS(gate) + 1); + table = UDP_TABLE_ARRAY(udp_table, arg_number); + ASSERT(table != NULL); + +/* First, evaluate the active input, if necessary. If the following is + true, then decl is the only argument and no need + reevaluate arg expression. If is isn't true, then decl is only + one component of the argument expression, so arg needs to be + evaluated. +*/ + + if (marker->flags & M_PRIM_FAST) { + in_new = DECL_STATE(marker->decl); /* Value is xfer'd in marker */ + } else { + Group *g = eval_(TREE_EXPR_CODE(arg), &nbit); /* need to re-eval */ + in_new = VAL_TO_STATE(g); + } + if (in_new == Z) { // Z should always be treated as X + in_new = X; + } + + if (in_old == in_new) /* if input didn't change, */ + return; /* ...return. */ + + SET_GATE_IN(arg, in_new); /* Input changed; remember */ + + /* calculate new state value */ + + state = GATE_STATE(gate); + state += deltaTable[arg_number][in_old][in_new]; + GATE_STATE(gate) = state; + + /* calculate new output value */ + + switch (in_old) { + case ZERO: + out_new = (enum logical_value) (table[state] & 0x3); + break; + case ONE: + out_new = (enum logical_value) ((table[state] >> 2) & 0x3); + break; + case X: + out_new = (enum logical_value) ((table[state] >> 4) & 0x3); + break; + case Z: + default: + ASSERT(FALSE); + } + + /* seq. udps require the output value to be written into the state vector */ + + if (out_new != out_old) { + delay_t delay; + + /* seq. udps require the output value to be written into the state vector */ + + if (UDP_REG_NAME(udp_def) != NULL_TREE) { + state += deltaTable[GATE_INPUTS(gate)][out_old][out_new]; + GATE_STATE(gate) = state; + } + + GATE_OUTPUT(gate) = out_new; + if (GATE_DELAY(gate) && !in_initial) { + delay = eval_delay(GATE_DELAY(gate), GATE_OUTPUT(gate)); + } else { + delay = 0; + } + + ScheduleGate(gate, delay); + } +} + +/******************************************************************* + * + * init_udp + * - initialize udp structures + * + ******************************************************************* + */ +void init_udp(void) +{ + + int i; + int new_t; + int old; + int arg_new; + int arg_old; + + udp_inited = TRUE; + +/* load delta table */ + + for (i = 0; i < 10; i++) { + for (new_t = 0; new_t < 4; new_t++) { + if (new_t == 3) { + arg_new = 2; + } else { + arg_new = new_t; + } + for (old = 0; old < 4; old++) { + if (old == 3) { + arg_old = 2; + } else { + arg_old = old; + } + deltaTable[i][old][new_t] = + (arg_new * int_power(3, i)) - + (arg_old * int_power(3, i)); + } + } + } + +} diff --git a/src/udp.h b/src/udp.h new file mode 100644 index 0000000..ff03a3b --- /dev/null +++ b/src/udp.h @@ -0,0 +1,58 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/******************************************************************* + * + * udp.h + * - header file for udp.c + * + ******************************************************************* + */ + + +#ifndef UDP_H +#define UDP_H + +extern int deltaTable[10][4][4]; + +tree build_udp(tree identifier); +tree build_udp_string(void); +void end_primitive(tree node); +void append_udp_digits(tree * node, char c1, char c2); +void validate_udp_string(tree udp, tree udp_string); +int is_edge(char *ptr); +int is_valid_output(char *ptr, int combFlag); +int is_valid_input(char *ptr, int combFlag); +void set_udp_table_entry(char *table, int positin, int state, char *last, + char *next, char *rest, int from_mask, + int *reportFlag); +void fill_udp_table(char *table, int inputNumber, int inputCount, + tree string_list, int seqFlag); +int is_edge_string(tree t, int *position); +int int_power(int b, int p); +void instantiate_udp(tree module, tree caller, tree udp_def); +void udp_exec(struct Marker *marker); +void init_udp(void); + +// private methods + +#ifdef UDP_C +#endif // UDP_C + +#endif // UDP_H diff --git a/src/usertask.cc b/src/usertask.cc new file mode 100644 index 0000000..df861ff --- /dev/null +++ b/src/usertask.cc @@ -0,0 +1,62 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/********************************************************** + * + * usertask.c + * manage user tasks + * + ********************************************************** + */ + +#include +#include "usertask.h" +#include "vtypes.h" + +/* + * existing compiled in list of user tasks + */ +extern s_tfcell veriusertfs[]; + +/********************************************** + Usertask_Init + - initialize usertask module. pass in + command line arguments to be parsed. + **********************************************/ +void Usertask_Init(int argc, char *argv[]) +{ +} + +/********************************************** + Usertask_Lookup + - Lookup user task/function name. Return + task data structure. Return 0 if task/function + is not found. + **********************************************/ +p_tfcell Usertask_Lookup(char *name) +{ + int i; + + for (i = 0; veriusertfs[i].type; i++) { + if (!strcmp(name, veriusertfs[i].tfname)) { + return &veriusertfs[i]; + } + } + return 0; +} diff --git a/src/usertask.h b/src/usertask.h new file mode 100644 index 0000000..ef6a167 --- /dev/null +++ b/src/usertask.h @@ -0,0 +1,36 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/********************************************************** + * + * usertask.h + * manage user tasks + * + ********************************************************** + */ + +#ifndef USERTASK_H +#define USERTASK_H + +#include "veriuser.h" + +void Usertask_Init(int argc, char *argv[]); +p_tfcell Usertask_Lookup(char *name); + +#endif /* USERTASK_H */ diff --git a/src/v.gpe b/src/v.gpe new file mode 100644 index 0000000..e8addbc --- /dev/null +++ b/src/v.gpe @@ -0,0 +1,137 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ +struct keywords { char *name; short kval; short type;}; + +%% +# Statements +module, MODULE, NO_TYPE +macromodule, MACROMODULE, NO_TYPE +endmodule, ENDMODULE, NO_TYPE +specify, SPECIFY, NO_TYPE +endspecify, ENDSPECIFY, NO_TYPE +primitive, PRIMITIVE, NO_TYPE +endprimitive, ENDPRIMITIVE, NO_TYPE +assign, ASSIGN, NO_TYPE +table, TABLE, NO_TYPE +endtable, ENDTABLE, NO_TYPE +task, TASK, NO_TYPE +endtask, ENDTASK, NO_TYPE +function, FUNCTION, NO_TYPE +endfunction, ENDFUNCTION, NO_TYPE +parameter, PARAMETER, NO_TYPE +input, INPUT, NO_TYPE +output, OUTPUT, NO_TYPE +inout, INOUT, NO_TYPE +scalared, SCALARED, NO_TYPE +vectored, VECTORED, NO_TYPE +reg, REG, NO_TYPE +time, TIME, NO_TYPE +integer, INTEGER, NO_TYPE +real, REAL, NO_TYPE +event, EVENT, NO_TYPE +defparam, DEFPARAM, NO_TYPE +initial, INITIAL, NO_TYPE +always, ALWAYS, NO_TYPE +if, IF, NO_TYPE +else, ELSE, NO_TYPE +case, CASE, NO_TYPE +casez, CASEZ, NO_TYPE +casex, CASEX, NO_TYPE +endcase, ENDCASE, NO_TYPE +forever, FOREVER, NO_TYPE +repeat, REPEAT, NO_TYPE +while, WHILE, NO_TYPE +for, FOR, NO_TYPE +wait, WAIT_, NO_TYPE +disable, DISABLE, NO_TYPE +deassign, DEASSIGN, NO_TYPE +force, FORCE, NO_TYPE +release, RELEASE, NO_TYPE +default, DEFAULT, NO_TYPE +begin, BEGIN, NO_TYPE +end, END, NO_TYPE +fork, FORK, NO_TYPE +join, JOIN, NO_TYPE +posedge, POSEDGE, NO_TYPE +negedge, NEGEDGE, NO_TYPE +or, OR, NO_TYPE +small, SMALL, NO_TYPE +medium, MEDIUM, NO_TYPE +# Gate Types +and, LOGIC, GATE_AND_TYPE +nand, LOGIC, GATE_NAND_TYPE +nor, LOGIC, GATE_NOR_TYPE +#or, LOGIC, GATE_OR_TYPE +xor, LOGIC, GATE_XOR_TYPE +xnor, LOGIC, GATE_XNOR_TYPE +buf, BUFFER, GATE_BUF_TYPE +not, BUFFER, GATE_NOT_TYPE +bufif0, BUFIF, GATE_BUFIF0_TYPE +bufif1, BUFIF, GATE_BUFIF1_TYPE +notif0, BUFIF, GATE_NOTIF0_TYPE +notif1, BUFIF, GATE_NOTIF1_TYPE +nmos, BUFIF, GATE_NMOS_TYPE +pmos, BUFIF, GATE_PMOS_TYPE +rnmos, BUFIF, GATE_RNMOS_TYPE +rpmos, BUFIF, GATE_RPMOS_TYPE +cmos, CMOS, GATE_CMOS_TYPE +rcmos, CMOS, GATE_RCMOS_TYPE +pullup, PULL, GATE_PULLUP_TYPE +pulldown, PULL, GATE_PULLDN_TYPE +tran, TRAN, GATE_TRAN_TYPE +tranif0, BUFIF, GATE_TRANIF0_TYPE +tranif1, BUFIF, GATE_TRANIF1_TYPE +rtran, TRAN, GATE_RTRAN_TYPE +rtranif0, BUFIF, GATE_RTRANIF0_TYPE +rtranif1, BUFIF, GATE_RTRANIF1_TYPE +# +# Net Types +wire, NETTYPE, NET_WIRE_TYPE +tri, NETTYPE, NET_TRI_TYPE +wand, NETTYPE, NET_WAND_TYPE +triand, NETTYPE, NET_TRIAND_TYPE +wor, NETTYPE, NET_WOR_TYPE +trior, NETTYPE, NET_TRIOR_TYPE +tri1, NETTYPE, NET_TRI1_TYPE +tri0, NETTYPE, NET_TRI0_TYPE +supply1, SUPPLY1, NET_SUPPLY1_TYPE +supply0, SUPPLY0, NET_SUPPLY0_TYPE +trireg, TRIREG, NET_TRIREG_TYPE +# +# signal strengths +#supply0, STRENGTH0, STRENGTH_SUPPLY0_TYPE +strong0, STRENGTH0, STRENGTH_STRONG0_TYPE +pull0, STRENGTH0, STRENGTH_PULL0_TYPE +weak0, STRENGTH0, STRENGTH_WEAK0_TYPE +highz0, STRENGTH0, STRENGTH_HIGHZ0_TYPE +#supply1, STRENGTH1, STRENGTH_SUPPLY1_TYPE +strong1, STRENGTH1, STRENGTH_STRONG1_TYPE +pull1, STRENGTH1, STRENGTH_PULL1_TYPE +weak1, STRENGTH1, STRENGTH_WEAK1_TYPE +highz1, STRENGTH1, STRENGTH_HIGHZ1_TYPE +specparam, SPECPARAM, NO_TYPE +edge, EDGE, NO_TYPE +$setup, SETUP, NO_TYPE +$hold, HOLD, NO_TYPE +$period, PERIOD, NO_TYPE +$width, WIDTH, NO_TYPE +$skew, SKEW, NO_TYPE +$recovery, RECOVERY, NO_TYPE +$setuphold, SETUPHOLD, NO_TYPE +$nochange, NOCHANGE, NO_TYPE diff --git a/src/v.h b/src/v.h new file mode 100644 index 0000000..abdc953 --- /dev/null +++ b/src/v.h @@ -0,0 +1,356 @@ +/* C++ code produced by gperf version 3.0.1 */ +/* Command-line: gperf -L C++ -a -p -j1 -i 1 -g -o -t -N is_reserved_word v.gpe */ +/* Computed positions: -k'1-3,$' */ + +#if !((' ' == 32) && ('!' == 33) && ('"' == 34) && ('#' == 35) \ + && ('%' == 37) && ('&' == 38) && ('\'' == 39) && ('(' == 40) \ + && (')' == 41) && ('*' == 42) && ('+' == 43) && (',' == 44) \ + && ('-' == 45) && ('.' == 46) && ('/' == 47) && ('0' == 48) \ + && ('1' == 49) && ('2' == 50) && ('3' == 51) && ('4' == 52) \ + && ('5' == 53) && ('6' == 54) && ('7' == 55) && ('8' == 56) \ + && ('9' == 57) && (':' == 58) && (';' == 59) && ('<' == 60) \ + && ('=' == 61) && ('>' == 62) && ('?' == 63) && ('A' == 65) \ + && ('B' == 66) && ('C' == 67) && ('D' == 68) && ('E' == 69) \ + && ('F' == 70) && ('G' == 71) && ('H' == 72) && ('I' == 73) \ + && ('J' == 74) && ('K' == 75) && ('L' == 76) && ('M' == 77) \ + && ('N' == 78) && ('O' == 79) && ('P' == 80) && ('Q' == 81) \ + && ('R' == 82) && ('S' == 83) && ('T' == 84) && ('U' == 85) \ + && ('V' == 86) && ('W' == 87) && ('X' == 88) && ('Y' == 89) \ + && ('Z' == 90) && ('[' == 91) && ('\\' == 92) && (']' == 93) \ + && ('^' == 94) && ('_' == 95) && ('a' == 97) && ('b' == 98) \ + && ('c' == 99) && ('d' == 100) && ('e' == 101) && ('f' == 102) \ + && ('g' == 103) && ('h' == 104) && ('i' == 105) && ('j' == 106) \ + && ('k' == 107) && ('l' == 108) && ('m' == 109) && ('n' == 110) \ + && ('o' == 111) && ('p' == 112) && ('q' == 113) && ('r' == 114) \ + && ('s' == 115) && ('t' == 116) && ('u' == 117) && ('v' == 118) \ + && ('w' == 119) && ('x' == 120) && ('y' == 121) && ('z' == 122) \ + && ('{' == 123) && ('|' == 124) && ('}' == 125) && ('~' == 126)) +/* The character set is not based on ISO-646. */ +#error "gperf generated tables don't work with this execution character set. Please report a bug to ." +#endif + +#line 19 "v.gpe" +struct keywords { + char *name; + short kval; + short type; +}; + +#define TOTAL_KEYWORDS 107 +#define MIN_WORD_LENGTH 2 +#define MAX_WORD_LENGTH 12 +#define MIN_HASH_VALUE 7 +#define MAX_HASH_VALUE 170 +/* maximum key range = 164, duplicates = 0 */ + +class Perfect_Hash { + private: + static inline unsigned int hash(const char *str, unsigned int len); + public: + static struct keywords *is_reserved_word(const char *str, + unsigned int len); +}; + +inline unsigned int + Perfect_Hash::hash(register const char *str, register unsigned int len) +{ + static unsigned char asso_values[] = { + 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, + 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, + 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, + 171, 171, 171, 171, 171, 171, 82, 171, 171, 171, + 171, 171, 171, 171, 171, 171, 171, 171, 65, 57, + 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, + 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, + 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, + 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, + 171, 171, 171, 171, 171, 171, 171, 37, 9, 44, + 1, 1, 36, 77, 14, 8, 5, 21, 47, 9, + 1, 17, 20, 171, 1, 11, 2, 5, 11, 45, + 18, 24, 2, 171, 171, 171, 171, 171, 171, 171, + 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, + 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, + 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, + 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, + 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, + 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, + 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, + 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, + 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, + 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, + 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, + 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, + 171, 171, 171, 171, 171, 171 + }; + register int hval = len; + + switch (hval) { + default: + hval += asso_values[(unsigned char) str[2]]; + /*FALLTHROUGH*/ case 2: + hval += asso_values[(unsigned char) str[1]]; + /*FALLTHROUGH*/ case 1: + hval += asso_values[(unsigned char) str[0]]; + break; + } + return hval + asso_values[(unsigned char) str[len - 1]]; +} + +struct keywords *Perfect_Hash::is_reserved_word(register const char *str, + register unsigned int len) +{ + static struct keywords wordlist[] = { + {""}, {""}, {""}, {""}, {""}, {""}, {""}, +#line 68 "v.gpe" + {"end", END, NO_TYPE}, + {""}, {""}, +#line 100 "v.gpe" + {"rtran", TRAN, GATE_RTRAN_TYPE}, +#line 56 "v.gpe" + {"endcase", ENDCASE, NO_TYPE}, +#line 32 "v.gpe" + {"endtable", ENDTABLE, NO_TYPE}, +#line 25 "v.gpe" + {"endmodule", ENDMODULE, NO_TYPE}, + {""}, +#line 36 "v.gpe" + {"endfunction", ENDFUNCTION, NO_TYPE}, +#line 29 "v.gpe" + {"endprimitive", ENDPRIMITIVE, NO_TYPE}, +#line 110 "v.gpe" + {"trior", NETTYPE, NET_TRIOR_TYPE}, +#line 108 "v.gpe" + {"triand", NETTYPE, NET_TRIAND_TYPE}, +#line 45 "v.gpe" + {"integer", INTEGER, NO_TYPE}, +#line 47 "v.gpe" + {"event", EVENT, NO_TYPE}, +#line 73 "v.gpe" + {"or", OR, NO_TYPE}, +#line 106 "v.gpe" + {"tri", NETTYPE, NET_TRI_TYPE}, +#line 79 "v.gpe" + {"nor", LOGIC, GATE_NOR_TYPE}, +#line 44 "v.gpe" + {"time", TIME, NO_TYPE}, +#line 84 "v.gpe" + {"not", BUFFER, GATE_NOT_TYPE}, +#line 75 "v.gpe" + {"medium", MEDIUM, NO_TYPE}, +#line 91 "v.gpe" + {"rnmos", BUFIF, GATE_RNMOS_TYPE}, +#line 62 "v.gpe" + {"disable", DISABLE, NO_TYPE}, + {""}, +#line 58 "v.gpe" + {"repeat", REPEAT, NO_TYPE}, +#line 34 "v.gpe" + {"endtask", ENDTASK, NO_TYPE}, +#line 39 "v.gpe" + {"output", OUTPUT, NO_TYPE}, +#line 40 "v.gpe" + {"inout", INOUT, NO_TYPE}, +#line 23 "v.gpe" + {"module", MODULE, NO_TYPE}, +#line 70 "v.gpe" + {"join", JOIN, NO_TYPE}, +#line 38 "v.gpe" + {"input", INPUT, NO_TYPE}, +#line 27 "v.gpe" + {"endspecify", ENDSPECIFY, NO_TYPE}, + {""}, +#line 28 "v.gpe" + {"primitive", PRIMITIVE, NO_TYPE}, +#line 81 "v.gpe" + {"xor", LOGIC, GATE_XOR_TYPE}, +#line 82 "v.gpe" + {"xnor", LOGIC, GATE_XNOR_TYPE}, +#line 89 "v.gpe" + {"nmos", BUFIF, GATE_NMOS_TYPE}, +#line 77 "v.gpe" + {"and", LOGIC, GATE_AND_TYPE}, +#line 78 "v.gpe" + {"nand", LOGIC, GATE_NAND_TYPE}, +#line 97 "v.gpe" + {"tran", TRAN, GATE_TRAN_TYPE}, +#line 92 "v.gpe" + {"rpmos", BUFIF, GATE_RPMOS_TYPE}, +#line 66 "v.gpe" + {"default", DEFAULT, NO_TYPE}, +#line 63 "v.gpe" + {"deassign", DEASSIGN, NO_TYPE}, + {""}, +#line 128 "v.gpe" + {"specparam", SPECPARAM, NO_TYPE}, +#line 35 "v.gpe" + {"function", FUNCTION, NO_TYPE}, + {""}, {""}, +#line 31 "v.gpe" + {"table", TABLE, NO_TYPE}, +#line 48 "v.gpe" + {"defparam", DEFPARAM, NO_TYPE}, +#line 71 "v.gpe" + {"posedge", POSEDGE, NO_TYPE}, +#line 65 "v.gpe" + {"release", RELEASE, NO_TYPE}, +#line 60 "v.gpe" + {"for", FOR, NO_TYPE}, +#line 105 "v.gpe" + {"wire", NETTYPE, NET_WIRE_TYPE}, +#line 64 "v.gpe" + {"force", FORCE, NO_TYPE}, +#line 90 "v.gpe" + {"pmos", BUFIF, GATE_PMOS_TYPE}, +#line 57 "v.gpe" + {"forever", FOREVER, NO_TYPE}, +#line 26 "v.gpe" + {"specify", SPECIFY, NO_TYPE}, +#line 52 "v.gpe" + {"else", ELSE, NO_TYPE}, +#line 42 "v.gpe" + {"vectored", VECTORED, NO_TYPE}, +#line 30 "v.gpe" + {"assign", ASSIGN, NO_TYPE}, +#line 109 "v.gpe" + {"wor", NETTYPE, NET_WOR_TYPE}, +#line 37 "v.gpe" + {"parameter", PARAMETER, NO_TYPE}, +#line 102 "v.gpe" + {"rtranif1", BUFIF, GATE_RTRANIF1_TYPE}, +#line 94 "v.gpe" + {"rcmos", CMOS, GATE_RCMOS_TYPE}, +#line 49 "v.gpe" + {"initial", INITIAL, NO_TYPE}, +#line 111 "v.gpe" + {"tri1", NETTYPE, NET_TRI1_TYPE}, +#line 59 "v.gpe" + {"while", WHILE, NO_TYPE}, + {""}, +#line 33 "v.gpe" + {"task", TASK, NO_TYPE}, + {""}, +#line 101 "v.gpe" + {"rtranif0", BUFIF, GATE_RTRANIF0_TYPE}, +#line 124 "v.gpe" + {"strong1", STRENGTH1, STRENGTH_STRONG1_TYPE}, +#line 69 "v.gpe" + {"fork", FORK, NO_TYPE}, +#line 112 "v.gpe" + {"tri0", NETTYPE, NET_TRI0_TYPE}, +#line 96 "v.gpe" + {"pulldown", PULL, GATE_PULLDN_TYPE}, +#line 51 "v.gpe" + {"if", IF, NO_TYPE}, +#line 88 "v.gpe" + {"notif1", BUFIF, GATE_NOTIF1_TYPE}, +#line 129 "v.gpe" + {"edge", EDGE, NO_TYPE}, +#line 93 "v.gpe" + {"cmos", CMOS, GATE_CMOS_TYPE}, +#line 119 "v.gpe" + {"strong0", STRENGTH0, STRENGTH_STRONG0_TYPE}, +#line 72 "v.gpe" + {"negedge", NEGEDGE, NO_TYPE}, +#line 107 "v.gpe" + {"wand", NETTYPE, NET_WAND_TYPE}, +#line 83 "v.gpe" + {"buf", BUFFER, GATE_BUF_TYPE}, +#line 46 "v.gpe" + {"real", REAL, NO_TYPE}, +#line 87 "v.gpe" + {"notif0", BUFIF, GATE_NOTIF0_TYPE}, + {""}, +#line 67 "v.gpe" + {"begin", BEGIN, NO_TYPE}, +#line 115 "v.gpe" + {"trireg", TRIREG, NET_TRIREG_TYPE}, + {""}, +#line 61 "v.gpe" + {"wait", WAIT_, NO_TYPE}, +#line 53 "v.gpe" + {"case", CASE, NO_TYPE}, +#line 95 "v.gpe" + {"pullup", PULL, GATE_PULLUP_TYPE}, +#line 54 "v.gpe" + {"casez", CASEZ, NO_TYPE}, +#line 113 "v.gpe" + {"supply1", SUPPLY1, NET_SUPPLY1_TYPE}, +#line 41 "v.gpe" + {"scalared", SCALARED, NO_TYPE}, +#line 24 "v.gpe" + {"macromodule", MACROMODULE, NO_TYPE}, + {""}, +#line 99 "v.gpe" + {"tranif1", BUFIF, GATE_TRANIF1_TYPE}, +#line 136 "v.gpe" + {"$setuphold", SETUPHOLD, NO_TYPE}, + {""}, {""}, +#line 114 "v.gpe" + {"supply0", SUPPLY0, NET_SUPPLY0_TYPE}, +#line 74 "v.gpe" + {"small", SMALL, NO_TYPE}, +#line 137 "v.gpe" + {"$nochange", NOCHANGE, NO_TYPE}, +#line 132 "v.gpe" + {"$period", PERIOD, NO_TYPE}, +#line 98 "v.gpe" + {"tranif0", BUFIF, GATE_TRANIF0_TYPE}, +#line 86 "v.gpe" + {"bufif1", BUFIF, GATE_BUFIF1_TYPE}, + {""}, +#line 55 "v.gpe" + {"casex", CASEX, NO_TYPE}, + {""}, +#line 135 "v.gpe" + {"$recovery", RECOVERY, NO_TYPE}, + {""}, +#line 131 "v.gpe" + {"$hold", HOLD, NO_TYPE}, +#line 130 "v.gpe" + {"$setup", SETUP, NO_TYPE}, +#line 85 "v.gpe" + {"bufif0", BUFIF, GATE_BUFIF0_TYPE}, + {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, + {""}, {""}, {""}, +#line 125 "v.gpe" + {"pull1", STRENGTH1, STRENGTH_PULL1_TYPE}, + {""}, {""}, {""}, {""}, {""}, {""}, {""}, +#line 120 "v.gpe" + {"pull0", STRENGTH0, STRENGTH_PULL0_TYPE}, + {""}, {""}, +#line 126 "v.gpe" + {"weak1", STRENGTH1, STRENGTH_WEAK1_TYPE}, +#line 50 "v.gpe" + {"always", ALWAYS, NO_TYPE}, + {""}, {""}, {""}, {""}, {""}, {""}, +#line 121 "v.gpe" + {"weak0", STRENGTH0, STRENGTH_WEAK0_TYPE}, + {""}, +#line 133 "v.gpe" + {"$width", WIDTH, NO_TYPE}, + {""}, {""}, {""}, +#line 43 "v.gpe" + {"reg", REG, NO_TYPE}, + {""}, {""}, +#line 127 "v.gpe" + {"highz1", STRENGTH1, STRENGTH_HIGHZ1_TYPE}, + {""}, +#line 134 "v.gpe" + {"$skew", SKEW, NO_TYPE}, + {""}, {""}, {""}, {""}, {""}, +#line 122 "v.gpe" + {"highz0", STRENGTH0, STRENGTH_HIGHZ0_TYPE} + }; + + if (len <= MAX_WORD_LENGTH && len >= MIN_WORD_LENGTH) { + register int key = hash(str, len); + + if (key <= MAX_HASH_VALUE && key >= 0) { + register const char *s = wordlist[key].name; + + if (*str == *s && !strcmp(str + 1, s + 1)) + return &wordlist[key]; + } + } + return 0; +} diff --git a/src/verisys.cc b/src/verisys.cc new file mode 100644 index 0000000..345b782 --- /dev/null +++ b/src/verisys.cc @@ -0,0 +1,578 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* VERISYS.C - PLI system routine hooks */ +#define VERISYS_C + +#include +#include +#include +#include "veriuser.h" +#include "acc_user.h" +#include "glue.h" +#include "vtypes.h" +#include "tree.h" +#include "veriwell.h" +#include "io.h" +#include +#include +#include "verisys.h" + +int timeformatcheck(int, int); +int timeformatcall(int, int); +int p(int user, int reason); +int pcheck(int user, int reason); +int mon_check(int user, int reason); +int mon_call(int user, int reason); +int mon_misc(int data, int reason); +int pmisc(int user, int reason); + + +#include "sdf.h" + + +#include "plihacks.h" + +s_tfcell verisystfs[] = { + /*** Template for an entry: + { usertask|userfunction, data, checktf(), sizetf(), calltf(), misctf(), + "$tfname", forwref?, Vtool?, ErrMsg? }, + Example: + { usertask, 0, my_check, 0, my_func, my_misctf, "$my_task" }, + ***/ + + /*** add user entries here ***/ + {usertask, 0, timeformatcheck, 0, timeformatcall, 0, "$timeformat"}, + {usertask, 0, showallinstances_call, 0, showallinstances_call, 0, + "$showallinstances"}, + {usertask, 0, pcheck, 0, p, pmisc, "$p"}, + {usertask, 1, mon_check, 0, mon_call, mon_misc, "$my_monitor"}, + {usertask, 0, dumpstructure_call, 0, dumpstructure_call, + dumpstructure_call, + "$$dumpstructure"}, + {usertask, 0, 0, 0, abort_call, 0, "$$abort"}, + {usertask, 0, 0, 0, setvalue_call, 0, "$$testsetvalue"}, + + {usertask, 0, sdf_check, 0, sdf_call, sdf_misc, "$sdf_annotate"}, + + + {0} /*** final entry must be 0 ***/ +}; + +#include + +int p(int user, int reason) +{ + printf("Get here on execution, user is %d, reason is %d\n", user, + reason); + + printf("Number of arguments: %d\n", tf_nump()); + tf_rosynchronize(); + tf_synchronize(); + return (0); +} + +int pcheck(int user, int reason) +{ + printf("Get here on compile, user is %d, reason is %d\n", user, + reason); + return (0); +} + +int pmisc(int user, int reason) +{ + return (0); +} + +/********************************************** + * vcl example from manual + **********************************************/ + +int mon_consume(p_vc_record); + +typedef struct t_mon_node { + handle param; + char name[256]; + short int value; +} s_mon_node, *p_mon_node; + +p_mon_node mon_array; +char *mon_instance_p; +int mon_num_params; + +int mon_check(int data, int reason) +{ + int i; + handle object; + static int net_reg_list[3] = { accNet, accRegister, 0 }; + + acc_initialize(); + acc_configure(accDevelopmentVersion, "1.6a"); + + for (i = 1; i <= tf_nump(); i++) { + if (!(object = acc_handle_tfarg(i))) + tf_error("parameter #%d to $my_monitor illegal", i); + + if (acc_fetch_type(object) != accNet + && acc_fetch_type(object) != accRegister) + tf_error("parameter #%d to $my_monitor illegal", i); + + if (acc_fetch_size(object) != 1) + tf_error("parameter #%d to $my_monitor illegal", i); + } + + acc_close(); + return (0); +} + +int mon_call(int data, int reason) +{ + int i; + char *value_str; + + acc_initialize(); + acc_configure(accDevelopmentVersion, "1.6a"); + + mon_instance_p = tf_getinstance(); + mon_num_params = tf_nump(); + + mon_array = (p_mon_node) malloc(mon_num_params * (sizeof(s_mon_node))); + + for (i = 0; i < mon_num_params; i++) { + mon_array[i].param = acc_handle_tfarg(i + 1); + strcpy(mon_array[i].name, acc_fetch_name(mon_array[i].param)); + + value_str = acc_fetch_value(mon_array[i].param, "%b"); + switch (value_str[0]) { + case '0': + mon_array[i].value = vcl0; + break; + case '1': + mon_array[i].value = vcl1; + break; + case 'x': + mon_array[i].value = vclX; + break; + case 'z': + mon_array[i].value = vclZ; + break; + default: + tf_error("Unknown value..."); + break; + } + acc_vcl_add(mon_array[i].param, mon_consume, + (char *) &mon_array[i], vcl_verilog_logic); + } + acc_close(); + tf_synchronize(); + return (0); +} + +int mon_consume(p_vc_record change_data) +{ + p_mon_node curr_mon_node; + + switch (change_data->vc_reason) { + case logic_value_change: + case sregister_value_change: + curr_mon_node = (p_mon_node) change_data->user_data; + curr_mon_node->value = change_data->out_value.logic_value; + tf_isynchronize(mon_instance_p); + break; + default: + tf_error("Illegal callback from VCL"); + } + return (TRUE); +} + +int mon_misc(int data, int reason) +{ + int i; + char *value; + + switch (reason) { + case reason_synch: + io_printf("%s ", tf_strgettime()); + + for (i = 0; i < mon_num_params; i++) { + switch (mon_array[i].value) { + case vcl0: + value = "0"; + break; + + case vcl1: + value = "1"; + break; + + case vclX: + value = "x"; + break; + + case vclZ: + value = "z"; + break; + } + io_printf("%s=%s ", mon_array[i].name, value); + } + io_printf("\n"); + break; + + } + return (0); +} + + +/* $timeformat (units, prec, suffix, width) */ + +/* This is for $timeformat. NOTE: This is imported by print.c! */ + +struct timeformat { + int units; + int precision; + char *suffix; + int width; + int use_defaults; +} timeformat; + + +int timeformatcall(int user, int reason) +{ + char *tmp_suffix; + + acc_initialize(); + timeformat.units = tf_getp(1); /* units */ + timeformat.precision = tf_getp(2); /* precision */ + + if (!timeformat.use_defaults) /* deallocate old stuff, if any */ + free(timeformat.suffix); + tmp_suffix = tf_getcstringp(3); /* suffix string */ + timeformat.suffix = (char *) xmalloc(strlen(tmp_suffix) + 1); + strcpy(timeformat.suffix, tmp_suffix); /* make perm copy */ + + timeformat.width = tf_getp(4); + timeformat.use_defaults = 0; + + return 0; +} + +int timeformatcheck(int user, int reason) +{ + return 0; +} + +/* this is called from print.c when %t is used (file_handle is the VeriWell file + handle) */ + +void timeformatprint(handle_t file_handle, tree scope, double this_time) +{ + char spec_format[100]; /* this holds the print spec */ + s_timescale_info timescale; + int printunits; + int scaleunits; /* how much to rescale this_time */ + double realmult; /* multiplier */ + double printtime; /* The time to print after rescaling */ + int numwidth; /* width of number part */ + +/* get the timescale for the module containing the display */ + + acc_fetch_timescale_info((handle) scope, ×cale); + + + if (timeformat.use_defaults) { + printunits = acc_fetch_precision(); /* get smallest precision */ + strcpy(spec_format, "%20.0f"); /* default time format */ + } else { + printunits = timeformat.units; + numwidth = timeformat.width - strlen(timeformat.suffix); + if (numwidth < 0) + numwidth = 0; + sprintf(spec_format, "%%%d.%df%s", timeformat.width, + timeformat.precision, timeformat.suffix); + } + +/* the given time has already been scaled to local units; unscale and + scale to timeformat units */ + + scaleunits = timescale.unit - printunits; + realmult = pow(10, scaleunits); + + printtime = this_time * realmult; /* rescale */ + + fprintf_V(file_handle, spec_format, printtime); /* finally, print it */ + +} + +/***************************************************************** + * + * showallinstances_call + * implements $showallinstances + * + ***************************************************************** + */ + + +static ShowallEntry_t **showallTable; + +int showallinstances_call(int data, int reason) +{ + handle object; + + acc_initialize(); + + switch (reason) { + case reason_checktf: + if (tf_nump() != 0) { + tf_error("$showallinstances takes no arguments"); + } + break; + + case reason_calltf: + if (!showall_init()) { + break; + } + object = null; + while (TRUE) { + object = acc_next_topmod(object); + if (object == null) { + break; + } + if (!showall_search(object)) { + acc_close(); + return 0; + } + } + showall_output(); + break; + } + + acc_close(); + return 0; + +} + +/*--------------------------------------------------- + showall_init + - initialize hash table +-----------------------------------------------------*/ +int showall_init(void) +{ + int i; + + showallTable = (ShowallEntry_t **) xmalloc(SHOWALL_HASH_SIZE * + sizeof(ShowallEntry_t + *)); + if (showallTable == NULL) { + tf_error("$showallinstances: not enough memory"); + return FALSE; + } + for (i = 0; i < SHOWALL_HASH_SIZE; i++) { + showallTable[i] = NULL; + } + return TRUE; +} + +/*--------------------------------------------------- + showall_register + - log the object +-----------------------------------------------------*/ +int showall_register(handle object) +{ + char *ptr; + int type; + char *name; + char *filename; + s_location location; + int index; + ShowallEntry_t *entry; + int fulltype; + + name = acc_fetch_defname(object); + acc_fetch_location(&location, object); + + type = acc_fetch_type(object); + fulltype = acc_fetch_fulltype(object); + if (type == accModule || fulltype == accCombPrim + || fulltype == accSeqPrim) { + if (type == accModule && fulltype != accTopModule) { + type = accModule; + } else { + type = fulltype; + } + } + + index = 0; + for (ptr = name; *ptr; ptr = ptr + 1) { + index = index ^ (unsigned) *ptr; + } + index &= 0xff; + + for (entry = showallTable[index]; entry; entry = entry->next) { + if (!strcmp(entry->name, name) && entry->type == type) { + entry->count++; + return TRUE; + } + } + entry = (ShowallEntry_t *) xmalloc(sizeof(ShowallEntry_t)); + if (entry == NULL) { + tf_error("$showallinstances: Out of memory"); + return FALSE; + } + + entry->name = name; + entry->type = type; + entry->count = 1; + entry->next = showallTable[index]; + entry->filename = location.filename; + showallTable[index] = entry; + + return TRUE; + +} + +/*--------------------------------------------------- + showall_search + - traverse the hierarchy +-----------------------------------------------------*/ +int showall_search(handle object) +{ + int type; + handle newObject; + + type = acc_fetch_type(object); + + switch (type) { + case accModule: + if (!showall_register(object)) { + return FALSE; + } + case accTask: + case accFunction: + newObject = null; + while (TRUE) { + newObject = acc_next_primitive(object, newObject); + if (newObject == null) { + break; + } + if (!showall_register(newObject)) { + return FALSE; + } + } + + newObject = null; + while (TRUE) { + newObject = acc_next_scope(object, newObject); + if (newObject == null) { + break; + } + if (!showall_search(newObject)) { + return FALSE; + } + } + break; + } + return TRUE; +} + +/*--------------------------------------------------- + showall_output + - dump object list and free structures +-----------------------------------------------------*/ +void showall_output(void) +{ + ShowallEntry_t *entry; + ShowallEntry_t *temp; + int i; + int moduleCount; + int primitiveCount; + int gateCount; + + + gateCount = 0; + primitiveCount = 0; + moduleCount = 0; + + for (i = 0; i < SHOWALL_HASH_SIZE; i++) { + entry = showallTable[i]; + while (entry) { + switch (entry->type) { + case accModule: + moduleCount += entry->count; + break; + case accPrimitive: + gateCount += entry->count; + break; + case accSeqPrim: + case accCombPrim: + gateCount += entry->count; + primitiveCount += entry->count; + break; + } + entry = entry->next; + } + } + io_printf("Total number of module instances = %d\n", moduleCount); + io_printf("Total number of primitive instances = %d\n", + primitiveCount); + + for (i = 0; i < SHOWALL_HASH_SIZE; i++) { + entry = showallTable[i]; + while (entry) { + switch (entry->type) { + case accTopModule: + io_printf("\ttop level module %s, from file \"%s\"\n", + entry->name, entry->filename); + break; + case accSeqPrim: + case accCombPrim: + io_printf("\t%d of primitive %s, from file \"%s\"\n", + entry->count, entry->name, entry->filename); + break; + case accModule: + io_printf("\t%d of module %s, from file \"%s\"\n", + entry->count, entry->name, entry->filename); + break; + } + entry = entry->next; + } + } + + io_printf("Total number of gates = %d\n", gateCount); + + for (i = 0; i < SHOWALL_HASH_SIZE; i++) { + entry = showallTable[i]; + while (entry) { + switch (entry->type) { + case accPrimitive: + io_printf("\t%d of %s\n", entry->count, entry->name); + break; + } + temp = entry; + entry = entry->next; + free(temp); + } + } + + free(showallTable); + showallTable = NULL; +} + +void init_verisys() +{ + timeformat.use_defaults = 1; +} diff --git a/src/verisys.h b/src/verisys.h new file mode 100644 index 0000000..14701d0 --- /dev/null +++ b/src/verisys.h @@ -0,0 +1,54 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* VERISYS.H - verisys.c routine prototypes */ + +#ifndef VERISYS_H +#define VERISYS_H + +// public methods + +void init_verisys(void); + +// private methods + +#ifdef VERISYS_C + +#define SHOWALL_HASH_SIZE (256) + +typedef struct ShowallEntry_tag { + struct ShowallEntry_tag *next; + char *name; + char *filename; + int type; + int count; +} ShowallEntry_t; + +int showallinstances_call(int, int); +int showall_init(void); +int showall_register(handle); +int showall_search(handle); +void showall_output(void); +int timeformatcall(int user, int reason); +int timeformatcheck(int user, int reason); +void timeformatprint(handle_t file_handle, tree scope, double this_time); + +#endif // VERISYS_C + +#endif // VERIWELL_H diff --git a/src/veriuser.c b/src/veriuser.c new file mode 100644 index 0000000..1a86a3f --- /dev/null +++ b/src/veriuser.c @@ -0,0 +1,52 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* VERIUSER.C - PLI user routine hooks */ + +/* Filename: veriuser.c */ +#define VERIUSER_C + +#include "veriuser.h" +#include "acc_user.h" + +//char *veriuser_version_str = "Sample PLI version string 1.0\n"; +char *veriuser_version_str = ""; + int (*endofcompile_routines[]) () = { + /*** my_eoc_routine, ***/ + 0 /*** final entry must be 0 ***/ +}; + +/* +bool err_intercept(level,facility,code) +int level; char *facility; char *code; +{ return(true); } +*/ + +s_tfcell veriusertfs[] = { + /*** Template for an entry: + { usertask|userfunction, data, checktf(), sizetf(), calltf(), misctf(), + "$tfname", forwref?, Vtool?, ErrMsg? }, + Example: + { usertask, 0, my_check, 0, my_func, my_misctf, "$my_task" }, + ***/ + + /*** add user entries here ***/ + + {0} /*** final entry must be 0 ***/ +}; diff --git a/src/veriuser.h b/src/veriuser.h new file mode 100644 index 0000000..fcefd32 --- /dev/null +++ b/src/veriuser.h @@ -0,0 +1,467 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* VERIUSER.H - PLI user routine header */ + +#ifndef VERIUSER_H +#define VERIUSER_H + +#ifdef _LP64 +#define LP64 long +#else +#define LP64 int +#endif + + +/* general defines */ + +#define true 1 +#define false 0 +#define TRUE 1 +#define FALSE 0 + +/* defines for error interception */ + +#define ERR_MESSAGE 1 +#define ERR_WARNING 2 +#define ERR_ERROR 3 +#define ERR_INTERNAL 4 +#define ERR_SYSTEM 5 + + +/* VERILOG user tasks and functions C header file */ + +typedef struct t_tfcell { + short type; /* either usertask or userfunction */ + short data; /* parameter for the following routines */ + int (*checktf) (int, int); /* routine for checking parameters */ + int (*sizetf) (int, int); /* for providing size of function return value */ + int (*calltf) (int, int); /* routine called during simulation */ + int (*misctf) (int, int); /* miscellaneous routine (see below) */ + char *tfname; /* the name of the system task or function */ + int forwref; /* indicates special parameters allowed */ + char *tfveritool; /* Which Veritool owns the task */ + char *tferrmessage; /* An optional special case error message + which will be printed if the task is skipped */ + + /* these components are for system usage only */ + int hash; + struct t_tfcell *left_p; + struct t_tfcell *right_p; + char *namecell_p; + int warning_printed; /* Flag is set when skipping warning is printed */ +} s_tfcell, *p_tfcell; + +struct t_tfexprinfo; +struct t_vecval; + +/* values for component 'type' in tfcell structure */ +#define usertask 1 +#define USERTASK 1 +#define userfunction 2 +#define USERFUNCTION 2 +#define userrealfunction 3 +#define USERREALFUNCTION 3 + + +/* The routines checktf, sizetf, calltf and misctf are always +passed two arguments: 'data' and 'reason'. +The value for 'data' is defined as the second component +supplied by the user in the above table structure. +The value for 'reason' is defined as follows: + + reason_checktf for checktf + reason_sizetf for sizetf + reason_calltf for calltf + reason_save for misctf during $save + reason_restart for misctf during $restart + reason_disable for misctf during disable + reason_paramvc for misctf at a parameter value change (when enabled) + reason_synch for misctf at end of time slot for synchronisation + reason_finish for misctf at finish of simulation + reason_reactivate for misctf at a delayed reactivation event + reason_rosynch for misctf at end of time slot read-only synchronisation + reason_paramdrc for misctf at a driver value change (when enabled) + +(see below for the #defines on these) + +Note that any of the routine pointers maybe 0, in which +case the calls from VERILOG are not made. + +For the misctf at a parameter value change, the parameter +number is passed as the 3rd argument. +*/ + +/* values for 'reason' passed as 2nd argument */ +#define reason_checktf 1 +#define REASON_CHECKTF 1 +#define reason_sizetf 2 +#define REASON_SIZETF 2 +#define reason_calltf 3 +#define REASON_CALLTF 3 +#define reason_save 4 +#define REASON_SAVE 4 +#define reason_restart 5 +#define REASON_RESTART 5 +#define reason_disable 6 +#define REASON_DISABLE 6 +#define reason_paramvc 7 +#define REASON_PARAMVC 7 +#define reason_synch 8 +#define REASON_SYNCH 8 +#define reason_finish 9 +#define REASON_FINISH 9 +#define reason_reactivate 10 +#define REASON_REACTIVATE 10 +#define reason_rosynch 11 +#define REASON_ROSYNCH 11 +#define reason_paramdrc 12 +#define REASON_PARAMDRC 12 + +#define reason_interactive 14 +#define REASON_INTERACTIVE 14 +#define reason_endofcompile 15 +#define REASON_ENDOFCOMPILE 15 +#define reason_force 16 +#define REASON_FORCE 16 +#define reason_release 17 +#define REASON_RELEASE 17 +#define reason_scope 18 +#define REASON_SCOPE 18 + +#ifdef __cplusplus +extern "C" { +#endif + +/* user error message string */ + extern char *tf_error_message; + +/******** utility routines *********************/ + char *tf_getinstance(); + + int tf_sizep(int); + int tf_isizep(int, char *); + + int tf_nump(); + int tf_inump(char *); + + int tf_typep(int); + int tf_itypep(int, char *); + + LP64 tf_getp(int); + LP64 tf_igetp(int, char *); + void tf_putp(int, int); + void tf_iputp(int, int, char *); + + int tf_getlongp(int *, int); + int tf_igetlongp(int *, int, char *); + void tf_putlongp(int, int, int); + void tf_iputlongp(int, int, int, char *); + + double tf_getrealp(int); + double tf_igetrealp(int, char *); + void tf_putrealp(int, double); + void tf_iputrealp(int, double, char *); + + char *tf_strgetp(int, char); + char *tf_istrgetp(int, char, char *); + + struct t_tfexprinfo *tf_exprinfo(int, struct t_tfexprinfo *); + struct t_tfexprinfo *tf_iexprinfo(int, struct t_tfexprinfo *, char *); + struct t_tfnodeinfo *tf_nodeinfo(int, struct t_tfnodeinfo *); + struct t_tfnodeinfo *tf_inodeinfo(int, struct t_tfnodeinfo *, char *); + + void tf_evaluatep(int); + void tf_ievaluatep(int, char *); + + void tf_propagatep(int); + void tf_ipropagatep(int, char *); + + void tf_asynchon(); + void tf_iasynchon(char *); + void tf_asynchoff(); + void tf_iasynchoff(char *); + + void tf_synchronize(); + void tf_isynchronize(char *); + void tf_rosynchronize(); + void tf_irosynchronize(char *); + + int tf_gettime(); + double tf_getrealtime(); + void io_printf(char *, ...); + void tf_error(char *, ...); + void tf_warning(char *, ...); + void tf_text(char *, ...); + void tf_message(int, char *, char *, char *, ...); + void tf_dostop(); + void tf_dofinish(); + char *tf_getcstringp(int); + char *tf_igetcstringp(int, char *); + int tf_gettimeprecision(void); + int tf_igettimeprecision(char *); + int tf_gettimeunit(void); + int tf_igettimeunit(char *); + void tf_finish(void); + void tf_stop(void); + + extern char *tf_dumpfilename(); + extern int tf_setdelay(int delay); + extern int tf_isetdelay(int delay, char *instance); + extern int tf_setlongdelay(int low, int high); + extern int tf_isetlongdelay(int low, int high, char *instance); + extern int tf_setrealdelay(double delay); + extern int tf_isetrealdelay(double delay, char *instance); + + extern void tf_clearalldelays(); + extern void tf_iclearalldelays(char *instance); + + extern int tf_strdelputp(int nparam, int bitlength, int format_char, + char *value_p, int delay, int delaytype); + extern int tf_istrdelputp(int nparam, int bitlength, int format_char, + char *value_p, int delay, int delaytype, + char *instance); + extern int tf_strlongdelputp(int nparam, int bitlength, + int format_char, char *value_p, int low, + int high, int delaytype); + extern int tf_istrlongdelputp(int nparam, int bitlength, + int format_char, char *value_p, int low, + int high, int delaytype, char *instance); + extern int tf_strrealdelputp(int nparam, int bitlength, + int format_char, char *value_p, + double delay, int delaytype); + extern int tf_istrrealdelputp(int nparam, int bitlength, + int format_char, char *value_p, + double delay, int delaytype, + char *instance); + + extern int tf_copypvc_flag(int); + extern int tf_icopypvc_flag(int, char *); + extern int tf_movepvc_flag(int); + extern int tf_imovepvc_flag(int, char *); + extern int tf_testpvc_flag(int); + extern int tf_itestpvc_flag(int, char *); + extern int tf_getpchange(int); + extern int tf_igetpchange(int, char *); + + extern void tf_setworkarea(char *); + extern void tf_isetworkarea(char *, char *); + extern char *tf_getworkarea(); + extern char *tf_igetworkarea(char *); + extern char *(*tf_getroutine()) (); + extern char *(*tf_igetroutine()) (); + extern char *tf_gettflist(); + extern char *tf_igettflist(); + + extern char *tf_mipname(); + extern char *tf_imipname(char *); + extern char *tf_spname(); + extern char *tf_ispname(char *); + + extern void io_mcdprintf(int, char *, ...); + + extern char *mc_scan_plusargs(char *startarg); + + extern int tf_getlongtime(int *); + extern int tf_igetlongtime(int *, char *); + extern char *tf_strgettime(); + + extern int tf_getnextlongtime(int *aof_lowtime, int *aof_hightime); + extern int tf_getnextrealtime(); + extern char *tf_longtime_tostr(int lowtime, int hightime); + + extern int tf_compare_long(int low1, int high1, int low2, int high2); + extern void tf_add_long(int *low1p, int *high1p, int low2, int high2); + extern void tf_subtract_long(int *low1p, int *high1p, int low2, + int high2); + + extern void tf_multiply_long(int *low1p, int *high1p, int low2, + int high2); + extern void tf_divide_long(int *low1p, int *high1p, int low2, + int high2); + + extern void tf_scale_realdelay(char *instance_p, double realdelay, + double *aof_realdelay); + extern void tf_scale_longdelay(char *, int, int, int *, int *); + extern void tf_unscale_realdelay(char *instance_p, double realdelay, + double *aof_realdelay); + extern void tf_unscale_longdelay(char *, int, int, int *, int *); + + extern void tf_long_to_real(int low, int high, double *aof_real); + extern void tf_real_to_long(double realvalue, int *aof_int_lo, + int *aof_int_hi); + extern int tf_write_save(char *blockptr, int blocklen); + extern int tf_read_restart(char *blockptr, int blocklen); + + +#ifdef __cplusplus +} +#endif +/***********************************************//* data structure for use with tf_exprinfo routine to get + expression information +*/ typedef struct t_tfexprinfo { + short expr_type; /* expression type information, one of: + tf_nullparam + tf_string + tf_readonly + tf_readwrite + tf_rwbitselect + tf_rwpartselect + tf_rwmemselect + tf_readonlyreal + tf_readwritereal + */ + struct t_vecval *expr_value_p; /* pointer to expression value */ + double real_value; /* expression value for 'real' expressions */ + char *expr_string; /* pointer to string when parameter is a string */ + int expr_ngroups; /* no of groups in expression value */ + int expr_vec_size; /* no of bits in expression value */ + int expr_sign; /* sign of the expression value: + 0 for unsigned , non-zero for signed */ + int expr_lhs_select; /* not used at present + result of either: + bit-select + msb of part-select + element selection + */ + int expr_rhs_select; /* not used at present + result of either: + bit-select (same value as previous component) + lsb of part-select + element selection (same value as previous component) + */ +} s_tfexprinfo, *p_tfexprinfo; + + + +/* data structure for use with tf_nodeinfo routine to get + node information +*/ +typedef struct t_tfnodeinfo { + short node_type; /* expression type information, one of: + tf_null_node + tf_reg_node + tf_integer_node + tf_time_node + tf_netvector_node + tf_netscalar_node + tf_memory_node + tf_real_node + */ + union { + struct t_vecval *vecval_p; /* reg, integer, time, net vector value */ + struct t_strengthval *strengthval_p; /* net scalar value */ + char *memoryval_p; /* memory value */ + double *real_val_p; /* type 'real' value */ + } node_value; + char *node_symbol; /* identifying string of node */ + int node_ngroups; /* no of groups in node value */ + int node_vec_size; /* no of bits in node value */ + int node_sign; /* sign of the node value + 0 for unsigned , non-zero for signed */ + int node_ms_index; /* not used at present + most significant index of node value */ + int node_ls_index; /* not used at present + least significant index of node value */ + int node_mem_size; /* no of elements in memory structure */ + int node_lhs_element; /* not used at present + lhs memory element address */ + int node_rhs_element; /* not used at present + rhs memory element address */ + int *node_handle; /*jjp052389 add handle field for access integration */ +} s_tfnodeinfo, *p_tfnodeinfo; + + + +/* data structure of vector values */ +typedef struct t_vecval { + int avalbits; /* bit-coding for each bit of vector: */ + int bvalbits; /* ab: 00=0, 10=1, 11=X, 01=Z */ +} s_vecval, *p_vecval; + + + +/* data structure of scalar net strength values */ +typedef struct t_strengthval { + int strength0; /* 0 strength component */ + int strength1; /* 1 strength component */ +} s_strengthval, *p_strengthval; + + + +/* + data structure of memory values + byte array organized in format: + + struct + { + char avalbits[ngroups]; bit-coding for each element: + char bvalbits[ngroups]; ab: 00=0, 10=1, 11=X, 01=Z + } memval[mem_size]; + + with element addressed by left-hand-side index in + declaration as the first word. + N.B. this data structure cannot be represented in C, thus it + it is declared as an array of char's. +*/ + + + + +/* types used by tf_typep() and expr_type in tf_exprinfo structure */ +#define tf_nullparam 0 +#define TF_NULLPARAM 0 +#define tf_string 1 +#define TF_STRING 1 +#define tf_specialparam 2 +#define TF_SPECIALPARAM 2 +#define tf_readonly 10 +#define TF_READONLY 10 +#define tf_readwrite 11 +#define TF_READWRITE 11 +#define tf_rwbitselect 12 +#define TF_RWBITSELECT 12 +#define tf_rwpartselect 13 +#define TF_RWPARTSELECT 13 +#define tf_rwmemselect 14 +#define TF_RWMEMSELECT 14 +#define tf_readonlyreal 15 +#define TF_READONLYREAL 15 +#define tf_readwritereal 16 +#define TF_READWRITEREAL 16 + +/* types used by node_type in tf_nodeinfo structure */ +#define tf_null_node 100 +#define TF_NULL_NODE 100 +#define tf_reg_node 101 +#define TF_REG_NODE 101 +#define tf_integer_node 102 +#define TF_INTEGER_NODE 102 +#define tf_time_node 103 +#define TF_TIME_NODE 103 +#define tf_netvector_node 104 +#define TF_NETVECTOR_NODE 104 +#define tf_netscalar_node 105 +#define TF_NETSCALAR_NODE 105 +#define tf_memory_node 106 +#define TF_MEMORY_NODE 106 +#define tf_real_node 107 +#define TF_REAL_NODE 107 + +#endif diff --git a/src/veriwell.cc b/src/veriwell.cc new file mode 100644 index 0000000..2a8b2b6 --- /dev/null +++ b/src/veriwell.cc @@ -0,0 +1,970 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* veriwell.c - Main, parse arguments, misc utilities */ + +#define VERIWELL_C + +#include +#include +#include +#include +#include +#include +#include +#include +#include "vtypes.h" +#include "tree.h" +#include "schedule.h" +#include "veriwell.h" +#include "lex.h" +#include "flags.h" +#include "runtime.h" +#include "macro.h" +#include "io.h" +#include "glue.h" +#include "scope.h" +#include "veriwell.h" +#include "pass3.h" +#include "gates.h" +#include "exec.h" +#include "pass2.h" +#include "acc_user.h" +#include "pli.h" +#include "systask.h" + +int dump_it = 0; +FILE *dumpfile; +unsigned _ovrbuffer = 0x400; +void *zero_ptr = 0; /* for monitoring 0000:0000 in debugger */ +tree dbg; /* for debugging */ +tree dbg1; /* for debugging */ + +extern LibPath_t *ypathList; + +char *versionString = VERSION; + +#define MAX_LEVEL 25 +Bit mask_right[sizeof(Bit) * 8 + 1]; +Bit mask_right1[sizeof(Bit) * 8 + 1]; + +int globalArgc; +char **globalArgv; + +clock_t clock_start; +clock_t clock_compile; +clock_t clock_load; +clock_t clock_simulate; +clock_t clock_pause = 0; + +/* The current program counter (actually a pointer to a tree node to be + "executed" */ + +#define CPS sysconf(_SC_CLK_TCK) +static clock_t mclock() +{ + struct tms tms; + times(&tms); + return tms.tms_utime + tms.tms_stime; +} + +tree save_pc; + +/* The name of this program (Verilog) */ +char *progname; + +extern int yydebug; /* was in BISON.SIM; now here to avoid multiple definitions + (now that there are two parsers) */ + +/* Ignore the argument after an unsupported option for now */ +int extra_flag = 0; + + +/* Default net type and delay type (min/typ/max) can be changed by + compiler directive or command-line option */ +enum tree_type default_net_type = NET_WIRE_TYPE; +enum delay_type delay_type = TYP_DELAY; + + +/* Print the header, check for key/passwd/whatever, init a few other things */ +void init() +{ + extern char *veriuser_version_str; + time_t t = time(NULL); + + /* Print out our header */ + printf_V("\n\n\t%s version %s, \n" + "\tCopyright (C) 1993-2005 Elliot Mednick and Mark Hummel\n\n" + "\tVeriwell comes with ABSOLUTELY NO WARRANTY; This is free\n" + "\tsoftware, and you are welcome to redistribute it under the\n" + "\tterms of the GNU General Public License as published by\n" + "\tthe Free Software Foundation; either version 2 of the License,\n" + "\tor (at your option) any later version. " + "\n\n", VERIWELL, VERSION); + printf_V(veriuser_version_str); + + + /* initialize tree structures */ + + /* mask_right is 0:0, 1:1, 2:3, 3:7, 4:15, ..., 32:-1 + * mask_right1 is 0:-1, 1:1, 2:3, ..., 32:0 + */ + mask_right[0] = 0; + mask_right1[0] = (Bit) - 1; + mask_right[sizeof(Bit) * 8] = (Bit) - 1; + mask_right1[sizeof(Bit) * 8] = 0; + + for (int i = 1; i < sizeof(Bit) * 8; i++) { + mask_right[sizeof(Bit) * 8 - i] = (Bit) - 1 >> i; + mask_right1[sizeof(Bit) * 8 - i] = (Bit) - 1 >> i; + } + if (dump_it) + dumpfile = shell_fopen("dump.out", "wb"); +} + +/* Number of error messages and warning messages so far. */ + +int errorcount = 0; +int warningcount = 0; + +/* Count an error or warning. Return 1 if the message should be printed. */ + +int count_error(int warningp) +{ + if (warningp && inhibit_warnings) { + return 0; + } + + if (warningp) { + warningcount++; + } else { + errorcount++; + } + return 1; +} + +/* Print a fatal error message. NAME is the text. + Also include a system error message based on `errno'. */ + +void fatal(char *s, char *v) +{ + error(s, v, (char *) NULL); + shell_exit(34); +} + +/* Prints out, if necessary, the name of the current function + which caused an error. Called from all error and warning functions. */ + +void report_error_function(char *file) +{ +} + +/* Report an error at line LINE of file FILE. + S and V are a string and an arg for `printf'. */ + +void +error_with_file_and_line(char *file, + lineno_t line, char *s, char *v, char *v2) +{ + count_error(0); + report_error_function(file); + if (is_interactive) { + printf_error_V("C%d: ", cmd_level); + new_cmd_level = cmd_level; + } else if (file) { + printf_error_V("%s: L%ld: ", file, line); + } else if (progname) { + printf_error_V("VeriWell: "); + } + + printf_error_V("error: "); + printf_error_V(s, v, v2); + printf_error_V("\n"); +} + +/* Report an error at the current line number. + S and V are a string and an arg for `printf'. */ + +void error(char *s, char *v, char *v2) +{ + error_with_file_and_line(input_filename, lineno, s, v, v2); +} + +/* Report a warning at line LINE. + S and V are a string and an arg for `printf'. */ + +void +warning_with_file_and_line(char *file, lineno_t line, char *s, char *v, + char *v2) +{ + if (count_error(1) == 0) { + return; + } + + report_error_function(file); + + if (file) { + printf_error_V("%s: L%ld: ", file, line); + } else { + printf_error_V("VeriWell: "); + } + printf_error_V("warning: "); + printf_error_V(s, v, v2); + printf_error_V("\n"); +} + +/* Report a warning at the current line number. + S and V are a string and an arg for `printf'. */ + +void warning(char *s, char *v, char *v2) +{ + warning_with_file_and_line(input_filename, lineno, s, v, v2); +} + +/* Report a warning at line LINE. + S and V are a string and an arg for `printf'. */ + +void +sorry_with_file_and_line(char *file, lineno_t line, + char *s, char *v, char *v2) +{ + if (count_error(0) == 0) { + return; + } + + report_error_function(file); + + if (file) { + printf_error_V("%s: L%ld: ", file, line); + } else { + printf_error_V("VeriWell: "); + } + printf_error_V("sorry: "); + printf_error_V(s, v, v2); + printf_error_V("\n"); +} + +/* Report a warning at the current line number. + S and V are a string and an arg for `printf'. */ + +void sorry(char *s) +{ + sorry_with_file_and_line(input_filename, lineno, s, NULL_CHAR, + NULL_CHAR); +} + +void sorry1(char *s, char *v) +{ + sorry_with_file_and_line(input_filename, lineno, s, v, NULL_CHAR); +} + +/* Warn about incompatibilities with Synopsys 2.0 */ + +void synopsys_warn(char *s) +{ + char msg[64]; + + strcpy(msg, s); + strcat(msg, " not supported by Synopsys HDL Compiler(tm)"); + warning(msg, NULL_CHAR, NULL_CHAR); +} + +void runtime_error(tree node) +{ + input_filename = STMT_SOURCE_FILE(node); + lineno = STMT_SOURCE_LINE(node); +} + + +/* Same as `malloc' but report error if no memory available. */ + +char *xmalloc(unsigned size) +{ + char *value; + value = (char *) malloc(size); + if (value == 0) { + fatal("Memory exhausted.", NULL); + } + return value; +} + +/* Same as `realloc' but report error if no memory available. */ + +char *xrealloc(char *ptr, int size) +{ + char *result = (char *) realloc(ptr, size); + if (!result) { + fatal("Memory exhausted.", NULL); + } + return result; +} + +typedef struct filelist { + char *name; + struct filelist *next; +} Filelist; + +static File *i_file; +char i_buf[BUFSIZ]; +static Filelist *f_first = 0; +static Filelist *f_last = 0; +static Filelist *source_first = 0; +static Filelist *source_last = 0; + + +int in_simulation = 0; + +/* test file; return 1 if file exists */ + +int test_file(char *filename) +{ + FILE *tmp = shell_fopen(filename, "r"); + if (!tmp) { + return 0; + } + fclose(tmp); + return 1; +} + +/* Parse the command line */ + +void Cmdline(int argc, char **argv) +{ + char input[256]; + Filelist *fp; + + /* First, read command line */ + + while (--argc > 0) { + process_cmdline(*++argv); + } + + if (f_flag) { + printf_error_V("Specifying -f without a filename is illegal\n"); + CmdlineHelp(); + shell_exit(1); + } + if (i_flag) { + printf_error_V("Specifying -i without a filename is illegal\n"); + CmdlineHelp(); + shell_exit(1); + } + if (l_flag) { + printf_error_V("Specifying -l without a filename is illegal\n"); + CmdlineHelp(); + shell_exit(1); + } + if (k_flag) { + printf_error_V("Specifying -k without a filename is illegal\n"); + CmdlineHelp(); + shell_exit(1); + } + + /* Open log file */ + if (!log_available) { + /* set if new file name given in command line */ + log_file_name = (char *) xmalloc(13); + strcpy(log_file_name, "veriwell.log"); + } + if (!strcmp(log_file_name, "nolog")) { + log_file = 0; + log_available = 0; + log_enable = 0; + warning("Proceeding without a log file", NULL_CHAR, NULL_CHAR); + } else { + log_file = shell_fopen(log_file_name, "w+t"); + if (!log_file) { + log_available = 0; + log_enable = 0; + warning("Cannot open log file '%s', proceeding without it", + log_file_name, NULL_CHAR); + } else { + log_available = 1; + log_enable = 1; + } + } + + /* Open key file */ + if (!key_available) { + /* set if new file name given in command line */ + key_file_name = (char *) xmalloc(13); + strcpy(key_file_name, "veriwell.key"); + } + if (!strcmp(key_file_name, "nokey")) { + key_file = 0; + key_available = 0; + key_enable = 0; + warning("Proceeding without a key file", NULL_CHAR, NULL_CHAR); + } else { + key_file = shell_fopen(key_file_name, "w+t"); + if (!key_file) { + key_available = 0; + key_enable = 0; + warning("Cannot open key file '%s', proceeding without it", + key_file_name, NULL_CHAR); + } else { + key_available = 1; + key_enable = 1; + } + } + + init_macro(); + init_input(); + + /* Now, parse all cmd arg files */ + + for (fp = f_first; fp != (Filelist *) 0; fp = fp->next) { + int c; + printf_V("Processing command file : %s\n", fp->name); + push_stream(fin, 0); + input_filename = fp->name; + lineno = 0; + if ((fin = File::fopen(fp->name, "r")) == NULL) { + printf_error_V("%s: can't open %s\n", progname, fp->name); + shell_exit(1); + } + while ((c = skip_white_space(fin->fgetc())) != EOF) { + fin->fungetc(c); + fin->fscanf("%s", input); + process_cmdline(input); + } + if (f_flag) { + printf_error_V + ("Specifying -f without a filename is illegal\n"); + CmdlineHelp(); + shell_exit(1); + } + if (i_flag) { + printf_error_V + ("Specifying -i without a filename is illegal\n"); + CmdlineHelp(); + shell_exit(1); + } + + if (fin) { + /* skipwhitespace will close this, but let's make sure */ + fin->fclose(); + } + pop_stream(); + } + + init(); + init_interactive(); + + /* Now, parse all source files */ + clock_start = mclock(); + + if (!errorcount) { + printf_V("Entering Phase I...\n"); + for (fp = source_first; fp != (Filelist *) 0; fp = fp->next) { + input_filename = fp->name; + moreinput(fp->name); + printf_V("Compiling source file : %s\n", fp->name); + PhaseI(); + } + } + clock_compile = mclock() - clock_start; + if (!errorcount) { + printf_V("\nEntering Phase II...\n"); + PhaseII(); + } + if (!errorcount) { + printf_V("Entering Phase III...\n"); + PhaseIII(); + } +#if VDEBUG != 0 + if (vdebug) + print_stats(); +#endif + + if (warningcount) { + if (warningcount == 1) { + printf_V("1 warning in compilation\n"); + } else { + printf_V("%d warnings in compilation\n", warningcount); + } + } + if (errorcount) { + if (errorcount == 1) { + printf_V("1 error in compilation\n"); + } else { + printf_V("%d errors in compilation\n", errorcount); + } + shell_exit(1); + } + printf_V("No errors in compilation\n"); + clock_load = mclock() - clock_start - clock_compile; + + if (!simulate) { + shell_exit(0); + } + initialize_scope(top_level); + initialize_gates(); + initialize_cont_assignments(); + save_pc = dispatch_pc((enum which_list) NULL); + init_interactive(); + print_top_modules(); + in_simulation = 1; + broadcast_tf(reason_endofcompile); + fin = File::Stdin(); + if (i_file) { + push_stream(fin, 0); + fin = i_file; + } +} + + +void process_cmdline(char *input) +{ + Filelist *fp; + char c; + int f_nest = 0; + int extra_flag = 0; + + /* + * Consider the "-f" filename case + */ + if (f_flag) { + if (!test_file(input)) { + fatal("Could not open (-f) input file '%s'\n", input); + } + f_flag = 0; + fp = (Filelist *) xmalloc(sizeof(Filelist)); + fp->name = (char *) xmalloc(strlen(input) + 1); /* +1 for '/0' */ + strcpy(fp->name, input); + fp->next = (Filelist *) 0; + if (f_last) { + f_last->next = fp; + } else { + f_first = fp; + } + f_last = fp; + } else if (i_flag) { + if ((i_file = File::fopen(input, "r")) == 0) { + fatal("Could not open (-i) input file '%s'\n", input); + } + i_flag = 0; + } else if (l_flag) { + l_flag = 0; + log_file_name = (char *) xmalloc(strlen(input) + 1); + strcpy(log_file_name, input); + /* in this context, indicates explicit log file name */ + log_available = 1; + } else if (k_flag) { + k_flag = 0; + key_file_name = (char *) xmalloc(strlen(input) + 1); + strcpy(key_file_name, input); + /* in this context, indicates explicit log file name */ + key_available = 1; + } else if (y_flag) { + LibPath_t *libPath; + y_flag = 0; + libPath = (LibPath_t *) xmalloc(sizeof(LibPath_t)); + libPath->next = ypathList; + ypathList = libPath; + libPath->path = (char *) xmalloc(strlen(input) + 1); + strcpy(libPath->path, input); + } else if (extra_flag) { + extra_flag = 0; /* ignore argument after option that takes args */ + /* + * Consider the command line switches + */ + } else if (!strcmp( input, "--help" ) ) { + CmdlineHelp(); + shell_exit(0); + } else if (!strcmp( input, "--version" ) ) { + printf( "%s\n", VERSION ); + shell_exit(0); + } else if (!strcmp( input, "--bindir" ) ) { + printf( "%s\n", BINDIR ); + shell_exit(0); + } else if (!strcmp( input, "--libdir" ) ) { + printf( "%s\n", LIBDIR ); + shell_exit(0); + } else if (!strcmp( input, "--includedir" ) ) { + printf( "%s\n", INCLUDEDIR ); + shell_exit(0); + } else if (!strcmp( input, "--cflags" ) ) { + printf( "%s\n", CFLAGS ); + shell_exit(0); + } else if (!strcmp( input, "--ldflags" ) ) { + printf( "%s\n", LDFLAGS ); + shell_exit(0); + } else if (!strcmp( input, "--libs" ) ) { + printf( "%s\n", LIBS ); + shell_exit(0); + } else if (input[0] == '-') { + while ((c = *++input) != 0) { + if (f_flag) { + fprintf(stderr, "-f option must be alone in" + " command line argument\n"); + shell_exit(1); + } + + if (i_flag) { + fprintf(stderr, + "-i option must be alone in command line argument\n"); + shell_exit(1); + } else { + switch (c) { + case 'd': + debug++; + break; +#if VDEBUG != 0 + case 'v': + vdebug = 1; + break; + case 'P': + program++; + break; +#endif + case 'c': + simulate = 0; + break; + case 'f': + if (++f_nest > MAX_LEVEL) { + fprintf(stderr, "Exceeded -f nesting capacity!\n"); + shell_exit(1); + } + if (input != &input[0]) { + fprintf(stderr, "-f option must be alone in" + " command line argument\n"); + shell_exit(1); + } + f_flag++; + break; + case 's': + s_flag = 1; + break; + case 't': + trace_flag = 1; + normal_flag = 0; + break; + case 'i': + if (input != &input[0]) { + fprintf(stderr, "-i option must be alone in" + " command line argument\n"); + shell_exit(1); + } + i_flag = 1; + break; + case 'l': + l_flag = 1; + break; + case 'k': + k_flag = 1; + break; + case 'r': + case 'y': + y_flag = 1; + break; + case '?': + case 'h': + CmdlineHelp(); + shell_exit(0); + break; + default:; + } + } + } /* while */ + } else { + /* Might be one of those plus options - compare against the list */ + if (input[0] == '+') { + input++; + if (!strcmp("synopsys", input)) { + synopsys_flag = 1; + } else if (!strcmp("mindelays", input)) { + delay_type = MIN_DELAY; + } else if (!strcmp("typdelays", input)) { + delay_type = TYP_DELAY; + } else if (!strcmp("maxdelays", input)) { + delay_type = MAX_DELAY; + } else if (!strncmp("define", input, 6)) { + char *p = strtok(input, "+"); /* skip "define+" */ + for (p = strtok(NULL, "+"); p; p = strtok(NULL, "+")) { + char *b = strchr(p, '='); + if (b == NULL) { + define_macro(build_string(strlen(p), p), + NULL_TREE); + } else { + *b++ = 0; + define_macro(build_string(strlen(p), p), + build_string(strlen(b), b)); + } + } + } else if (!strcmp("noshow_var_change", input)) { + var_debug_flag = 0; + } else if (!strncmp("libext", input, 6)) { + ylibext = (char *) xmalloc(strlen(input) - 5); + strcpy(ylibext, &input[7]); /* copy from past "libext" */ + } else if (!strncmp("incdir", input, 6)) { + int len = strlen(incdir); + char *prevIncDir = incdir; + incdir = (char *) xmalloc(len + 1 + strlen(input) - 5); + strcpy(incdir, prevIncDir); /* "incdir" is cummulative */ + if (len != 0) { + strcat(incdir, "+"); + } + strcat(incdir, &input[7]); /* copy from past "incdir" */ + free(prevIncDir); + } else if (!strcmp("yydebug", input)) { + yydebug = 1; +#ifdef DUMP + } else if (!strcmp("dump", input)) { + dump_it = 1; +#endif + } else if (!strcmp("MemTrace", input)) { + MemTrace = 1; + } else { + plusargs = tree_cons((tree) input, NULL_TREE, plusargs); + } + } else { + /* Is it a source file? */ + fp = (Filelist *) xmalloc(sizeof(Filelist)); + fp->name = (char *) xmalloc(strlen(input) + 1); + strcpy(fp->name, input); + fp->next = NULL; + if (!source_last) { + source_first = fp; + } else { + source_last->next = fp; + } + source_last = fp; + } + } +} + +int moreinput(char *infile) +{ + if (fin && fin != File::Stdin()) { + fin->fclose(); + } + init_lex(); + if ((fin = File::fopen(infile, "r")) == NULL) { + printf_error_V("%s: cannot open %s\n", progname, infile); + shell_exit(1); + } + return 1; +} + +/* + This routine just prints out the command line help message +*/ + +void CmdlineHelp() +{ + printf("Usage: veriwell [options] [...]\n"); + printf(" -c Compile only - do not simulate\n"); + printf(" -s Enter interactive mode before running\n"); + printf(" -t Turn trace on\n"); + printf(" -f Read options from \n"); + printf(" -i Read commands from \n"); + printf(" -l Set log file to \n"); + printf(" -l nolog Disable log file\n"); + printf(" -k Set key file to \n"); + printf(" -k nokey Disable key file\n"); + printf(" -?, -h This message\n"); + printf + (" +synopsys Enable Synopsys HDL Compiler(tm) 2.x checking\n"); + printf(" --help This message\n"); + printf(" --version print version\n"); + printf(" --bindir Binary install path\n"); + printf(" --libdir Library install path\n"); + printf(" --includedir Include install path\n"); + printf(" --cflags Compiler flags used\n"); + printf(" --ldflags Linker flags used\n"); + printf(" --libs Libraries used\n"); + printf(" All other options are tested for arguments and ignored\n"); +} + +/* Parse the input files and generate a syntax tree */ + +void PhaseI() +{ /* compile all input */ + prog_parse(); +} + +void PhaseII() +{ + build_hierarchy(); +} + +void PhaseIII() +{ + pass3_tree(top_level); + stack_allocate(); +} + +void segv(int sign_number) +{ + fputs("Caught internal error\n", stdout); + fflush(stdout); + shell_exit(1); +} + +void breaker(int sig_number) +{ + if (!in_simulation) { + fputs("Compilation terminated by user\n", stdout); + fflush(stdout); +#if VDEBUG != 0 + if (vdebug) { + print_stats(); + } +#endif + shell_exit(1); + } else { +#if VDEBUG != 0 + if (vdebug) { + printf_V("Ctl-C detected\n"); + } +#endif + normal_flag = 0; + break_flag = 1; + shell_signal(SIGINT, breaker); + } +} + +void __main_v(int argc, char **argv) +{ /* hoc6 */ + shell_signal(SIGINT, breaker); + + globalArgc = argc; + globalArgv = argv; + srand((unsigned) time(NULL)); + progname = argv[0]; + if (argc == 1) { /* print the standard "bad command line" */ + CmdlineHelp(); + shell_exit(0); + } + init_tree(); + Cmdline(argc, argv); + + exec_(save_pc); + shell_exit(0); +} + +void print_info(void) +{ + clock_t clock_current = mclock(); + + clock_simulate = clock_current - clock_start - clock_compile - + clock_load - clock_pause; + + printf_V("%d Error", errorcount); + if (errorcount != 1) { + printf_V("%c", (int) 's'); + } + printf_V(", %d Warning", warningcount); + if (warningcount != 1) { + printf_V("%c", (int) 's'); + } + printf_V("Compile time = %.1f, Load time = %.1f," + " Simulation time = %.1f\n", + (double) clock_compile / CPS, (double) clock_load / CPS, + (double) clock_simulate / CPS); +} + +void finish() +{ + broadcast_tf(reason_finish); + printf_V("\nNormal exit\n"); + printf_V("Thank you for using %s\n", VERIWELL); + shell_exit(0); +} + +void put_out(int w, FILE * file) +{ + int ww; + ww = w << 5; + ww += rand() % 32; + ww += (rand() % 2) << 15; + putc(*((unsigned char *) &(ww)), file); + putc(*((unsigned char *) &(ww) + 1), file); +} + +unsigned long mem_avail() +{ + return (0); +} + + +void heap_test(char *msg) +{ +} + +void flush_files() +{ + if (log_enable) { + fflush(log_file); + } + if (key_enable) { + fflush(key_file); + } +} + +#if defined (DEBUG) || defined(ASSERTIONS) +void _Assert(char *strFile, unsigned uLine) +{ + fflush(stdout); + fprintf(stderr, "\nAssertion failed: %s, line %lu\n", strFile, uLine); + fflush(stderr); + shell_abort(); +} +#endif + +/*************************************************************** + * + * initverilog + * - initialize global and static variables for verilog.c + * + *************************************************************** + */ + +void init_verilog() +{ + dump_it = 0; + _ovrbuffer = 0x400; + zero_ptr = 0; /* for monitoring 0000:0000 in debugger */ + clock_pause = 0; + extra_flag = 0; + default_net_type = NET_WIRE_TYPE; + delay_type = TYP_DELAY; + errorcount = 0; + warningcount = 0; + f_first = 0; + f_last = 0; + source_first = 0; + source_last = 0; + in_simulation = 0; + dumpfile = 0; + memset(&mask_right, 0, sizeof(mask_right)); + memset(&mask_right1, 0, sizeof(mask_right1)); + clock_start = 0; + clock_compile = 0; + clock_load = 0; + clock_simulate = 0; + save_pc = NULL_TREE; + progname = 0; +#ifdef VDEBUG + yydebug = 0; +#endif + i_file = 0; + memset(&i_buf, 0, sizeof(i_buf)); +} diff --git a/src/veriwell.h b/src/veriwell.h new file mode 100644 index 0000000..01af585 --- /dev/null +++ b/src/veriwell.h @@ -0,0 +1,71 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* veriwell.h - veriwell.c routine prototypes */ + +#ifndef VERIWELL_H +#define VERIWELL_H + +// public methods + +extern int globalArgc; +extern char **globalArgv; + +void runtime_error(tree node); +void print_info(void); +void finish(void); +void flush_files(void); +void synopsys_warn(char *s); +void init(void); +int count_error(int warningp); +void fatal(char *s, char *v); +void report_error_function(char *file); +void error_with_file_and_line(char *file, lineno_t line, char *s, + char *v, char *v2); +void error(char *s, char *v, char *v2); +void warning_with_file_and_line(char *file, lineno_t line, char *s, + char *v, char *v2); +void warning(char *s, char *v, char *v2); +void sorry_with_file_and_line(char *file, lineno_t line, char *s, + char *v, char *v2); +void sorry(char *s); +void sorry1(char *s, char *v); +char *xmalloc(unsigned size); +char *xrealloc(char *ptr, int size); +int test_file(char *filename); +void Cmdline(int argc, char **argv); +void process_cmdline(char *input); +int moreinput(char *infile); +void CmdlineHelp(void); +void PhaseI(void); +void PhaseII(void); +void PhaseIII(void); +void segv(int); +void breaker(int sig_number); +void checkdate(void); +void __main_v(int argc, char **argv); +void print_info(void); +void finish(void); +void put_out(int w, FILE * file); +unsigned long mem_avail(void); +void heap_test(char *msg); +void init_verilog(void); +void _Assert(char *strFile, unsigned uLine); + +#endif // VERIWELL_H diff --git a/src/vtypes.h b/src/vtypes.h new file mode 100644 index 0000000..2b169a0 --- /dev/null +++ b/src/vtypes.h @@ -0,0 +1,197 @@ +/***************************************************************************** + * Copyright 1994-2005, Elliot Mednick and Mark Hummel + * This file is part of Veriwell. + * + * Veriwell 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. + * + * Veriwell 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 Foobar; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *****************************************************************************/ + +/* vtypes.h - Compiler-independent data types; common prototypes */ + +#ifndef VTYPES_H +#define VTYPES_H + +#if HAVE_CONFIG_H +# include +#endif + +#ifdef __cplusplus +# define BEGIN_C_DECLS extern "C" { +# define END_C_DECLS } +#else /* !__cplusplus */ +# define BEGIN_C_DECLS +# define END_C_DECLS +#endif + +enum logical_value { ZERO = 0, ONE = 1, Z = 2, X = 3 }; +//#define H_NBITS(X, Y) HIERARCHICAL_ATTR (node) ? TREE_NBITS (X) : TREE_NBITS (Y); +#define H_(X, Y) HIERARCHICAL_ATTR (Y) ? (X) : (Y) +#define NULL_CHAR ((char *) 0) + +#ifndef TRUE +#define TRUE 1 +#endif +#ifndef FALSE +#define FALSE 0 +#endif + +#define BADPTR ((void*)(0xff)) + +struct SCB; + +struct Time64 { + unsigned timeh; + unsigned timel; +}; + +#define ADDTIME6432(RESULT, TIME, NUM) \ + { \ + (RESULT)->timeh = ((TIME)->timel > ~(NUM)) \ + ? (TIME)->timeh + 1 : (TIME)->timeh; \ + (RESULT)->timel = (TIME)->timel + (NUM); \ + } + +#define ADDTIME6464(RESULT, TIME1, TIME2) \ + { \ + (RESULT)->timeh = ((TIME1)->timel > ~(TIME2)->timel) \ + ? (TIME1)->timeh + (TIME2)->timeh + 1 : (TIME1)->timeh + (TIME2)->timeh; \ + (RESULT)->timel = (TIME1)->timel + (TIME2)->timel; \ + } + +/* Return 0 if equal, a negative number is TIME1 < TIME2, else a positive number */ + +#define CMPTIME64(TIME1, TIME2) \ + ((TIME1)->timeh != (TIME2)->timeh \ + ? (((TIME1)->timeh < (TIME2)->timeh)?-1:1) \ + : (((TIME1)->timel < (TIME2)->timel))?-1: \ + ((TIME1)->timel != (TIME2)->timel?1:0)) + +#define ASSIGNTIME64(DEST, SRC) \ + { \ + (DEST)->timeh = (SRC)->timeh; \ + (DEST)->timel = (SRC)->timel; \ + } + + +#define max(x,y) ((x) > (y) ? (x) : (y)) +#define min(x,y) ((x) < (y) ? (x) : (y)) +#define ALIGN_32 +#define PATHSEP "/" +#define CLOCK_T + +#define VERIWELL "Veriwell" + +/* Attempt to put all machine dependent types here */ + +#define MAX_BITS_IN_NUMBER 32 +/* It takes 8 bytes to store 32 bits; in one 64k segment, there can be + 8192 groups. Take two away malloc header overhead. */ +#define MAX_GROUPS (8192L-2) +#define MAX_BITS (MAX_GROUPS*32) +#define MAX_ARRAY ((unsigned) -1) + + +typedef unsigned unsigned_32_t; +typedef signed int signed_32_t; +typedef unsigned short unsigned_16_t; +typedef signed short signed_16_t; + +/* For storing a single group; for 32-bit compilers, this should be 32 bits. */ +typedef unsigned_32_t Bit; +#define BITS_IN_GROUP (sizeof (Bit) * 8) + +/* For storing the number of bits for a datum */ +typedef signed_32_t nbits_t; + +/* For storing the number of groups for a datum */ +typedef int ngroups_t; +typedef unsigned_32_t lineno_t; +typedef unsigned_32_t delay_t; +typedef struct Time64 time64; +typedef unsigned_32_t handle_t; +typedef unsigned int array_t; + +#define SIZEOF_INTEGER sizeof (Group) + + +/* number of bits to shift nbits by to get n groups. 5 -> 32 bits, 4 -> 16 */ +//#define GROUP_SHIFT_BITS 5 +#define bits_to_groups(BITS) ((BITS==0)?0:((Bit)((BITS) - 1) >> 5)) +#define chars_to_groups(CHARS) ((Bit)((CHARS) - 1) >> 2) +#define NBITS_MASK 0x1f + +#define ABS(N) ((N) >= 0 ? (N) : -(N)) + +typedef union group { + struct { /* 0 1 z x */ + Bit aval; /* aval: 0 1 0 1 */ + Bit bval; /* bval: 0 0 1 1 */ + } bit; + double real; +} Group; + +#define NGROUPS(p) (p)->ngroups +#define GROUP(p) (p)->group +#define NBITS(p) (p)->nbits +#define D_INTEGER(p) (p)->integer +#define D_CONSTANT(p) (p)->constant + +#define AVAL(G) ((G)->bit.aval) +#define BVAL(G) ((G)->bit.bval) + +#define REAL_(G) ((G)->real) + +#define FLAGS(p) (unsigned_16_t *)(p) + + +extern Bit mask_right[]; +extern Bit mask_right1[]; + +extern void error(char *, char *, char *); +extern void warning(char *, char *, char *); +extern void sorry(char *); +extern void sorry1(char *, char *); + +union tree_node; +extern void store(union tree_node *, union tree_node *); + + + +#if defined(DEBUG) || defined(ASSERTIONS) +#ifndef ASSERT +void _Assert(char *, unsigned); /* defined in verilog.c */ + +#define ASSERT(f) \ + if (f) \ + NULL; \ + else \ + _Assert(__FILE__, __LINE__) + +#endif +#else +#ifdef ASSERT +#undef ASSERT +#endif +#define ASSERT(f) NULL +#endif + +#if defined(DEBUG) +#define DEBUGPRINT(P) printf (P) +#else +#define DEBUGPRINT(P) +#endif + +#define HEAPTEST(X) + +#endif // VTYPES_H