1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906190719081909191019111912191319141915191619171918191919201921192219231924192519261927192819291930193119321933193419351936193719381939194019411942194319441945194619471948194919501951195219531954195519561957195819591960196119621963196419651966196719681969197019711972197319741975197619771978197919801981198219831984198519861987198819891990199119921993199419951996199719981999200020012002200320042005200620072008200920102011201220132014201520162017201820192020202120222023202420252026202720282029203020312032203320342035203620372038203920402041204220432044204520462047204820492050205120522053205420552056205720582059206020612062206320642065206620672068206920702071207220732074207520762077207820792080208120822083208420852086208720882089209020912092209320942095209620972098209921002101210221032104210521062107210821092110211121122113211421152116211721182119212021212122212321242125212621272128212921302131213221332134213521362137213821392140214121422143214421452146214721482149215021512152215321542155215621572158215921602161216221632164216521662167216821692170217121722173217421752176217721782179218021812182218321842185218621872188218921902191219221932194219521962197219821992200220122022203220422052206220722082209221022112212221322142215221622172218221922202221222222232224222522262227222822292230223122322233223422352236223722382239224022412242224322442245224622472248224922502251225222532254225522562257225822592260226122622263226422652266226722682269227022712272227322742275227622772278227922802281228222832284228522862287228822892290229122922293229422952296229722982299230023012302230323042305230623072308230923102311231223132314231523162317231823192320232123222323232423252326232723282329233023312332233323342335233623372338233923402341234223432344234523462347234823492350235123522353235423552356235723582359236023612362236323642365236623672368236923702371237223732374237523762377237823792380238123822383238423852386238723882389239023912392239323942395239623972398239924002401240224032404240524062407240824092410241124122413241424152416241724182419242024212422242324242425242624272428242924302431243224332434243524362437243824392440244124422443244424452446244724482449245024512452245324542455245624572458245924602461246224632464246524662467246824692470247124722473247424752476247724782479248024812482248324842485248624872488248924902491249224932494249524962497249824992500250125022503250425052506250725082509251025112512251325142515251625172518251925202521252225232524252525262527252825292530253125322533253425352536253725382539254025412542254325442545254625472548254925502551255225532554255525562557255825592560256125622563256425652566256725682569257025712572257325742575257625772578257925802581258225832584258525862587258825892590259125922593259425952596259725982599260026012602260326042605260626072608260926102611261226132614261526162617261826192620262126222623262426252626262726282629263026312632263326342635263626372638263926402641264226432644264526462647264826492650265126522653265426552656265726582659266026612662266326642665266626672668266926702671267226732674267526762677267826792680268126822683268426852686268726882689269026912692269326942695269626972698269927002701270227032704270527062707270827092710271127122713271427152716271727182719272027212722272327242725272627272728272927302731273227332734273527362737273827392740274127422743274427452746274727482749275027512752275327542755275627572758275927602761276227632764276527662767276827692770277127722773277427752776277727782779278027812782278327842785278627872788278927902791279227932794279527962797279827992800280128022803280428052806280728082809281028112812281328142815281628172818281928202821282228232824282528262827282828292830283128322833283428352836283728382839284028412842284328442845284628472848284928502851285228532854285528562857285828592860286128622863286428652866286728682869287028712872287328742875287628772878287928802881288228832884288528862887288828892890289128922893289428952896289728982899290029012902290329042905290629072908290929102911291229132914291529162917291829192920292129222923292429252926292729282929293029312932293329342935293629372938293929402941294229432944294529462947294829492950295129522953295429552956295729582959296029612962296329642965296629672968296929702971297229732974297529762977297829792980298129822983298429852986298729882989299029912992299329942995299629972998299930003001300230033004300530063007300830093010301130123013301430153016301730183019302030213022302330243025302630273028302930303031303230333034303530363037303830393040304130423043304430453046304730483049305030513052305330543055305630573058305930603061306230633064306530663067306830693070307130723073307430753076307730783079308030813082308330843085308630873088308930903091309230933094309530963097309830993100310131023103310431053106310731083109311031113112311331143115311631173118311931203121312231233124312531263127312831293130313131323133313431353136313731383139314031413142314331443145314631473148314931503151315231533154315531563157315831593160316131623163316431653166316731683169317031713172317331743175317631773178317931803181318231833184318531863187318831893190319131923193319431953196319731983199320032013202320332043205320632073208320932103211321232133214321532163217321832193220322132223223322432253226322732283229323032313232323332343235323632373238323932403241324232433244324532463247324832493250325132523253325432553256325732583259326032613262326332643265326632673268326932703271327232733274327532763277327832793280328132823283328432853286328732883289329032913292329332943295329632973298329933003301330233033304330533063307330833093310331133123313331433153316331733183319332033213322332333243325332633273328332933303331333233333334333533363337333833393340334133423343334433453346334733483349335033513352335333543355335633573358335933603361336233633364336533663367336833693370337133723373337433753376337733783379338033813382338333843385338633873388338933903391339233933394339533963397339833993400340134023403340434053406340734083409341034113412341334143415341634173418341934203421342234233424342534263427342834293430343134323433343434353436343734383439344034413442344334443445344634473448344934503451345234533454345534563457345834593460346134623463346434653466346734683469347034713472347334743475347634773478347934803481348234833484348534863487348834893490349134923493349434953496349734983499350035013502350335043505350635073508350935103511351235133514351535163517351835193520352135223523352435253526352735283529353035313532353335343535353635373538353935403541354235433544354535463547354835493550355135523553355435553556355735583559356035613562356335643565356635673568356935703571357235733574357535763577357835793580358135823583358435853586358735883589359035913592359335943595359635973598359936003601360236033604360536063607360836093610361136123613361436153616361736183619362036213622362336243625362636273628362936303631363236333634363536363637363836393640364136423643364436453646364736483649365036513652365336543655365636573658365936603661366236633664366536663667366836693670367136723673367436753676367736783679368036813682368336843685368636873688368936903691369236933694369536963697369836993700370137023703370437053706370737083709371037113712371337143715371637173718371937203721372237233724372537263727372837293730373137323733373437353736373737383739374037413742374337443745374637473748374937503751375237533754375537563757375837593760376137623763376437653766376737683769377037713772377337743775377637773778377937803781378237833784378537863787378837893790379137923793379437953796379737983799380038013802380338043805380638073808380938103811381238133814381538163817381838193820382138223823382438253826382738283829383038313832383338343835383638373838383938403841384238433844384538463847384838493850385138523853385438553856385738583859386038613862386338643865386638673868386938703871387238733874387538763877387838793880388138823883388438853886388738883889389038913892389338943895389638973898389939003901390239033904390539063907390839093910391139123913391439153916391739183919392039213922392339243925392639273928392939303931393239333934393539363937393839393940394139423943394439453946394739483949395039513952395339543955395639573958395939603961396239633964396539663967396839693970397139723973397439753976397739783979398039813982398339843985398639873988398939903991399239933994399539963997399839994000400140024003400440054006400740084009401040114012401340144015401640174018401940204021402240234024402540264027402840294030403140324033403440354036403740384039404040414042404340444045404640474048404940504051405240534054405540564057405840594060406140624063406440654066406740684069407040714072407340744075407640774078407940804081408240834084408540864087408840894090409140924093409440954096409740984099410041014102410341044105410641074108410941104111411241134114411541164117411841194120412141224123412441254126412741284129413041314132413341344135413641374138413941404141414241434144414541464147414841494150415141524153415441554156415741584159416041614162416341644165416641674168416941704171417241734174417541764177417841794180418141824183418441854186418741884189419041914192419341944195419641974198419942004201420242034204420542064207420842094210421142124213421442154216421742184219422042214222422342244225422642274228422942304231423242334234423542364237423842394240424142424243424442454246424742484249425042514252425342544255425642574258425942604261426242634264426542664267426842694270427142724273427442754276427742784279428042814282428342844285428642874288428942904291429242934294429542964297429842994300430143024303430443054306430743084309 |
- /* dlltool.c -- tool to generate stuff for PE style DLLs
- Copyright (C) 1995-2022 Free Software Foundation, Inc.
- This file is part of GNU Binutils.
- 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 3 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. */
- /* This program allows you to build the files necessary to create
- DLLs to run on a system which understands PE format image files.
- (eg, Windows NT)
- See "Peering Inside the PE: A Tour of the Win32 Portable Executable
- File Format", MSJ 1994, Volume 9 for more information.
- Also see "Microsoft Portable Executable and Common Object File Format,
- Specification 4.1" for more information.
- A DLL contains an export table which contains the information
- which the runtime loader needs to tie up references from a
- referencing program.
- The export table is generated by this program by reading
- in a .DEF file or scanning the .a and .o files which will be in the
- DLL. A .o file can contain information in special ".drectve" sections
- with export information.
- A DEF file contains any number of the following commands:
- NAME <name> [ , <base> ]
- The result is going to be <name>.EXE
- LIBRARY <name> [ , <base> ]
- The result is going to be <name>.DLL
- EXPORTS ( ( ( <name1> [ = <name2> ] )
- | ( <name1> = <module-name> . <external-name>))
- [ @ <integer> ] [ NONAME ] [CONSTANT] [DATA] [PRIVATE] ) *
- Declares name1 as an exported symbol from the
- DLL, with optional ordinal number <integer>.
- Or declares name1 as an alias (forward) of the function <external-name>
- in the DLL <module-name>.
- IMPORTS ( ( <internal-name> = <module-name> . <integer> )
- | ( [ <internal-name> = ] <module-name> . <external-name> )) *
- Declares that <external-name> or the exported function whose ordinal number
- is <integer> is to be imported from the file <module-name>. If
- <internal-name> is specified then this is the name that the imported
- function will be refereed to in the body of the DLL.
- DESCRIPTION <string>
- Puts <string> into output .exp file in the .rdata section
- [STACKSIZE|HEAPSIZE] <number-reserve> [ , <number-commit> ]
- Generates --stack|--heap <number-reserve>,<number-commit>
- in the output .drectve section. The linker will
- see this and act upon it.
- [CODE|DATA] <attr>+
- SECTIONS ( <sectionname> <attr>+ )*
- <attr> = READ | WRITE | EXECUTE | SHARED
- Generates --attr <sectionname> <attr> in the output
- .drectve section. The linker will see this and act
- upon it.
- A -export:<name> in a .drectve section in an input .o or .a
- file to this program is equivalent to a EXPORTS <name>
- in a .DEF file.
- The program generates output files with the prefix supplied
- on the command line, or in the def file, or taken from the first
- supplied argument.
- The .exp.s file contains the information necessary to export
- the routines in the DLL. The .lib.s file contains the information
- necessary to use the DLL's routines from a referencing program.
- Example:
- file1.c:
- asm (".section .drectve");
- asm (".ascii \"-export:adef\"");
- void adef (char * s)
- {
- printf ("hello from the dll %s\n", s);
- }
- void bdef (char * s)
- {
- printf ("hello from the dll and the other entry point %s\n", s);
- }
- file2.c:
- asm (".section .drectve");
- asm (".ascii \"-export:cdef\"");
- asm (".ascii \"-export:ddef\"");
- void cdef (char * s)
- {
- printf ("hello from the dll %s\n", s);
- }
- void ddef (char * s)
- {
- printf ("hello from the dll and the other entry point %s\n", s);
- }
- int printf (void)
- {
- return 9;
- }
- themain.c:
- int main (void)
- {
- cdef ();
- return 0;
- }
- thedll.def
- LIBRARY thedll
- HEAPSIZE 0x40000, 0x2000
- EXPORTS bdef @ 20
- cdef @ 30 NONAME
- SECTIONS donkey READ WRITE
- aardvark EXECUTE
- # Compile up the parts of the dll and the program
- gcc -c file1.c file2.c themain.c
- # Optional: put the dll objects into a library
- # (you don't have to, you could name all the object
- # files on the dlltool line)
- ar qcv thedll.in file1.o file2.o
- ranlib thedll.in
- # Run this tool over the DLL's .def file and generate an exports
- # file (thedll.o) and an imports file (thedll.a).
- # (You may have to use -S to tell dlltool where to find the assembler).
- dlltool --def thedll.def --output-exp thedll.o --output-lib thedll.a
- # Build the dll with the library and the export table
- ld -o thedll.dll thedll.o thedll.in
- # Link the executable with the import library
- gcc -o themain.exe themain.o thedll.a
- This example can be extended if relocations are needed in the DLL:
- # Compile up the parts of the dll and the program
- gcc -c file1.c file2.c themain.c
- # Run this tool over the DLL's .def file and generate an imports file.
- dlltool --def thedll.def --output-lib thedll.lib
- # Link the executable with the import library and generate a base file
- # at the same time
- gcc -o themain.exe themain.o thedll.lib -Wl,--base-file -Wl,themain.base
- # Run this tool over the DLL's .def file and generate an exports file
- # which includes the relocations from the base file.
- dlltool --def thedll.def --base-file themain.base --output-exp thedll.exp
- # Build the dll with file1.o, file2.o and the export table
- ld -o thedll.dll thedll.exp file1.o file2.o */
- /* .idata section description
- The .idata section is the import table. It is a collection of several
- subsections used to keep the pieces for each dll together: .idata$[234567].
- IE: Each dll's .idata$2's are catenated together, each .idata$3's, etc.
- .idata$2 = Import Directory Table
- = array of IMAGE_IMPORT_DESCRIPTOR's.
- DWORD Import Lookup Table; - pointer to .idata$4
- DWORD TimeDateStamp; - currently always 0
- DWORD ForwarderChain; - currently always 0
- DWORD Name; - pointer to dll's name
- PIMAGE_THUNK_DATA FirstThunk; - pointer to .idata$5
- .idata$3 = null terminating entry for .idata$2.
- .idata$4 = Import Lookup Table
- = array of array of pointers to hint name table.
- There is one for each dll being imported from, and each dll's set is
- terminated by a trailing NULL.
- .idata$5 = Import Address Table
- = array of array of pointers to hint name table.
- There is one for each dll being imported from, and each dll's set is
- terminated by a trailing NULL.
- Initially, this table is identical to the Import Lookup Table. However,
- at load time, the loader overwrites the entries with the address of the
- function.
- .idata$6 = Hint Name Table
- = Array of { short, asciz } entries, one for each imported function.
- The `short' is the function's ordinal number.
- .idata$7 = dll name (eg: "kernel32.dll"). */
- #include "sysdep.h"
- #include "bfd.h"
- #include "libiberty.h"
- #include "getopt.h"
- #include "demangle.h"
- #include "dyn-string.h"
- #include "bucomm.h"
- #include "dlltool.h"
- #include "safe-ctype.h"
- #include "coff-bfd.h"
- #include <time.h>
- #include <assert.h>
- #ifdef DLLTOOL_ARM
- #include "coff/arm.h"
- #include "coff/internal.h"
- #endif
- #ifdef DLLTOOL_DEFAULT_MX86_64
- #include "coff/x86_64.h"
- #endif
- #ifdef DLLTOOL_DEFAULT_I386
- #include "coff/i386.h"
- #endif
- #ifndef COFF_PAGE_SIZE
- #define COFF_PAGE_SIZE ((bfd_vma) 4096)
- #endif
- #ifndef PAGE_MASK
- #define PAGE_MASK ((bfd_vma) (- COFF_PAGE_SIZE))
- #endif
- /* Get current BFD error message. */
- #define bfd_get_errmsg() (bfd_errmsg (bfd_get_error ()))
- /* Forward references. */
- static char *look_for_prog (const char *, const char *, int);
- static char *deduce_name (const char *);
- #ifdef DLLTOOL_MCORE_ELF
- static void mcore_elf_cache_filename (const char *);
- static void mcore_elf_gen_out_file (void);
- #endif
- #ifdef HAVE_SYS_WAIT_H
- #include <sys/wait.h>
- #else /* ! HAVE_SYS_WAIT_H */
- #if ! defined (_WIN32) || defined (__CYGWIN32__)
- #ifndef WIFEXITED
- #define WIFEXITED(w) (((w) & 0377) == 0)
- #endif
- #ifndef WIFSIGNALED
- #define WIFSIGNALED(w) (((w) & 0377) != 0177 && ((w) & ~0377) == 0)
- #endif
- #ifndef WTERMSIG
- #define WTERMSIG(w) ((w) & 0177)
- #endif
- #ifndef WEXITSTATUS
- #define WEXITSTATUS(w) (((w) >> 8) & 0377)
- #endif
- #else /* defined (_WIN32) && ! defined (__CYGWIN32__) */
- #ifndef WIFEXITED
- #define WIFEXITED(w) (((w) & 0xff) == 0)
- #endif
- #ifndef WIFSIGNALED
- #define WIFSIGNALED(w) (((w) & 0xff) != 0 && ((w) & 0xff) != 0x7f)
- #endif
- #ifndef WTERMSIG
- #define WTERMSIG(w) ((w) & 0x7f)
- #endif
- #ifndef WEXITSTATUS
- #define WEXITSTATUS(w) (((w) & 0xff00) >> 8)
- #endif
- #endif /* defined (_WIN32) && ! defined (__CYGWIN32__) */
- #endif /* ! HAVE_SYS_WAIT_H */
- #define show_allnames 0
- /* ifunc and ihead data structures: ttk@cygnus.com 1997
- When IMPORT declarations are encountered in a .def file the
- function import information is stored in a structure referenced by
- the global variable IMPORT_LIST. The structure is a linked list
- containing the names of the dll files each function is imported
- from and a linked list of functions being imported from that dll
- file. This roughly parallels the structure of the .idata section
- in the PE object file.
- The contents of .def file are interpreted from within the
- process_def_file function. Every time an IMPORT declaration is
- encountered, it is broken up into its component parts and passed to
- def_import. IMPORT_LIST is initialized to NULL in function main. */
- typedef struct ifunct
- {
- char * name; /* Name of function being imported. */
- char * its_name; /* Optional import table symbol name. */
- int ord; /* Two-byte ordinal value associated with function. */
- struct ifunct *next;
- } ifunctype;
- typedef struct iheadt
- {
- char * dllname; /* Name of dll file imported from. */
- long nfuncs; /* Number of functions in list. */
- struct ifunct *funchead; /* First function in list. */
- struct ifunct *functail; /* Last function in list. */
- struct iheadt *next; /* Next dll file in list. */
- } iheadtype;
- /* Structure containing all import information as defined in .def file
- (qv "ihead structure"). */
- static iheadtype *import_list = NULL;
- static char *as_name = NULL;
- static char * as_flags = "";
- static char *tmp_prefix = NULL;
- static int no_idata4;
- static int no_idata5;
- static char *exp_name;
- static char *imp_name;
- static char *delayimp_name;
- static char *identify_imp_name;
- static bool identify_strict;
- /* Types used to implement a linked list of dllnames associated
- with the specified import lib. Used by the identify_* code.
- The head entry is acts as a sentinal node and is always empty
- (head->dllname is NULL). */
- typedef struct dll_name_list_node_t
- {
- char * dllname;
- struct dll_name_list_node_t * next;
- } dll_name_list_node_type;
- typedef struct dll_name_list_t
- {
- dll_name_list_node_type * head;
- dll_name_list_node_type * tail;
- } dll_name_list_type;
- /* Types used to pass data to iterator functions. */
- typedef struct symname_search_data_t
- {
- const char *symname;
- bool found;
- } symname_search_data_type;
- typedef struct identify_data_t
- {
- dll_name_list_type *list;
- bool ms_style_implib;
- } identify_data_type;
- static char *head_label;
- static char *imp_name_lab;
- static char *dll_name;
- static int dll_name_set_by_exp_name;
- static int add_indirect = 0;
- static int add_underscore = 0;
- static int add_stdcall_underscore = 0;
- /* This variable can hold three different values. The value
- -1 (default) means that default underscoring should be used,
- zero means that no underscoring should be done, and one
- indicates that underscoring should be done. */
- static int leading_underscore = -1;
- static int dontdeltemps = 0;
- /* TRUE if we should export all symbols. Otherwise, we only export
- symbols listed in .drectve sections or in the def file. */
- static bool export_all_symbols;
- /* TRUE if we should exclude the symbols in DEFAULT_EXCLUDES when
- exporting all symbols. */
- static bool do_default_excludes = true;
- static bool use_nul_prefixed_import_tables = false;
- /* Default symbols to exclude when exporting all the symbols. */
- static const char *default_excludes = "DllMain@12,DllEntryPoint@0,impure_ptr";
- /* TRUE if we should add __imp_<SYMBOL> to import libraries for backward
- compatibility to old Cygwin releases. */
- static bool create_compat_implib;
- /* TRUE if we have to write PE+ import libraries. */
- static bool create_for_pep;
- static char *def_file;
- extern char * program_name;
- static int machine;
- static int killat;
- static int add_stdcall_alias;
- static const char *ext_prefix_alias;
- static int verbose;
- static FILE *output_def;
- static FILE *base_file;
- #ifdef DLLTOOL_DEFAULT_ARM
- static const char *mname = "arm";
- #endif
- #ifdef DLLTOOL_DEFAULT_ARM_WINCE
- static const char *mname = "arm-wince";
- #endif
- #ifdef DLLTOOL_DEFAULT_I386
- static const char *mname = "i386";
- #endif
- #ifdef DLLTOOL_DEFAULT_MX86_64
- static const char *mname = "i386:x86-64";
- #endif
- #ifdef DLLTOOL_DEFAULT_SH
- static const char *mname = "sh";
- #endif
- #ifdef DLLTOOL_DEFAULT_MIPS
- static const char *mname = "mips";
- #endif
- #ifdef DLLTOOL_DEFAULT_MCORE
- static const char * mname = "mcore-le";
- #endif
- #ifdef DLLTOOL_DEFAULT_MCORE_ELF
- static const char * mname = "mcore-elf";
- static char * mcore_elf_out_file = NULL;
- static char * mcore_elf_linker = NULL;
- static char * mcore_elf_linker_flags = NULL;
- #define DRECTVE_SECTION_NAME ((machine == MMCORE_ELF || machine == MMCORE_ELF_LE) ? ".exports" : ".drectve")
- #endif
- #ifndef DRECTVE_SECTION_NAME
- #define DRECTVE_SECTION_NAME ".drectve"
- #endif
- /* What's the right name for this ? */
- #define PATHMAX 250
- /* External name alias numbering starts here. */
- #define PREFIX_ALIAS_BASE 20000
- char *tmp_asm_buf;
- char *tmp_head_s_buf;
- char *tmp_head_o_buf;
- char *tmp_tail_s_buf;
- char *tmp_tail_o_buf;
- char *tmp_stub_buf;
- #define TMP_ASM dlltmp (&tmp_asm_buf, "%sc.s")
- #define TMP_HEAD_S dlltmp (&tmp_head_s_buf, "%sh.s")
- #define TMP_HEAD_O dlltmp (&tmp_head_o_buf, "%sh.o")
- #define TMP_TAIL_S dlltmp (&tmp_tail_s_buf, "%st.s")
- #define TMP_TAIL_O dlltmp (&tmp_tail_o_buf, "%st.o")
- #define TMP_STUB dlltmp (&tmp_stub_buf, "%ss")
- /* This bit of assembly does jmp * .... */
- static const unsigned char i386_jtab[] =
- {
- 0xff, 0x25, 0x00, 0x00, 0x00, 0x00, 0x90, 0x90
- };
- static const unsigned char i386_dljtab[] =
- {
- 0xFF, 0x25, 0x00, 0x00, 0x00, 0x00, /* jmp __imp__function */
- 0xB8, 0x00, 0x00, 0x00, 0x00, /* mov eax, offset __imp__function */
- 0xE9, 0x00, 0x00, 0x00, 0x00 /* jmp __tailMerge__dllname */
- };
- static const unsigned char i386_x64_dljtab[] =
- {
- 0xFF, 0x25, 0x00, 0x00, 0x00, 0x00, /* jmp __imp__function */
- 0x48, 0x8d, 0x05, /* leaq rax, (__imp__function) */
- 0x00, 0x00, 0x00, 0x00,
- 0xE9, 0x00, 0x00, 0x00, 0x00 /* jmp __tailMerge__dllname */
- };
- static const unsigned char arm_jtab[] =
- {
- 0x00, 0xc0, 0x9f, 0xe5, /* ldr ip, [pc] */
- 0x00, 0xf0, 0x9c, 0xe5, /* ldr pc, [ip] */
- 0, 0, 0, 0
- };
- static const unsigned char arm_interwork_jtab[] =
- {
- 0x04, 0xc0, 0x9f, 0xe5, /* ldr ip, [pc] */
- 0x00, 0xc0, 0x9c, 0xe5, /* ldr ip, [ip] */
- 0x1c, 0xff, 0x2f, 0xe1, /* bx ip */
- 0, 0, 0, 0
- };
- static const unsigned char thumb_jtab[] =
- {
- 0x40, 0xb4, /* push {r6} */
- 0x02, 0x4e, /* ldr r6, [pc, #8] */
- 0x36, 0x68, /* ldr r6, [r6] */
- 0xb4, 0x46, /* mov ip, r6 */
- 0x40, 0xbc, /* pop {r6} */
- 0x60, 0x47, /* bx ip */
- 0, 0, 0, 0
- };
- static const unsigned char mcore_be_jtab[] =
- {
- 0x71, 0x02, /* lrw r1,2 */
- 0x81, 0x01, /* ld.w r1,(r1,0) */
- 0x00, 0xC1, /* jmp r1 */
- 0x12, 0x00, /* nop */
- 0x00, 0x00, 0x00, 0x00 /* <address> */
- };
- static const unsigned char mcore_le_jtab[] =
- {
- 0x02, 0x71, /* lrw r1,2 */
- 0x01, 0x81, /* ld.w r1,(r1,0) */
- 0xC1, 0x00, /* jmp r1 */
- 0x00, 0x12, /* nop */
- 0x00, 0x00, 0x00, 0x00 /* <address> */
- };
- static const char i386_trampoline[] =
- "\tpushl %%ecx\n"
- "\tpushl %%edx\n"
- "\tpushl %%eax\n"
- "\tpushl $__DELAY_IMPORT_DESCRIPTOR_%s\n"
- "\tcall ___delayLoadHelper2@8\n"
- "\tpopl %%edx\n"
- "\tpopl %%ecx\n"
- "\tjmp *%%eax\n";
- static const char i386_x64_trampoline[] =
- "\tsubq $72, %%rsp\n"
- "\t.seh_stackalloc 72\n"
- "\t.seh_endprologue\n"
- "\tmovq %%rcx, 64(%%rsp)\n"
- "\tmovq %%rdx, 56(%%rsp)\n"
- "\tmovq %%r8, 48(%%rsp)\n"
- "\tmovq %%r9, 40(%%rsp)\n"
- "\tmovq %%rax, %%rdx\n"
- "\tleaq __DELAY_IMPORT_DESCRIPTOR_%s(%%rip), %%rcx\n"
- "\tcall __delayLoadHelper2\n"
- "\tmovq 40(%%rsp), %%r9\n"
- "\tmovq 48(%%rsp), %%r8\n"
- "\tmovq 56(%%rsp), %%rdx\n"
- "\tmovq 64(%%rsp), %%rcx\n"
- "\taddq $72, %%rsp\n"
- "\tjmp *%%rax\n";
- struct mac
- {
- const char *type;
- const char *how_byte;
- const char *how_short;
- const char *how_long;
- const char *how_asciz;
- const char *how_comment;
- const char *how_jump;
- const char *how_global;
- const char *how_space;
- const char *how_align_short;
- const char *how_align_long;
- const char *how_default_as_switches;
- const char *how_bfd_target;
- enum bfd_architecture how_bfd_arch;
- const unsigned char *how_jtab;
- int how_jtab_size; /* Size of the jtab entry. */
- int how_jtab_roff; /* Offset into it for the ind 32 reloc into idata 5. */
- const unsigned char *how_dljtab;
- int how_dljtab_size; /* Size of the dljtab entry. */
- int how_dljtab_roff1; /* Offset for the ind 32 reloc into idata 5. */
- int how_dljtab_roff2; /* Offset for the ind 32 reloc into idata 5. */
- int how_dljtab_roff3; /* Offset for the ind 32 reloc into idata 5. */
- bool how_seh;
- const char *trampoline;
- };
- static const struct mac
- mtable[] =
- {
- {
- #define MARM 0
- "arm", ".byte", ".short", ".long", ".asciz", "@",
- "ldr\tip,[pc]\n\tldr\tpc,[ip]\n\t.long",
- ".global", ".space", ".align\t2",".align\t4", "-mapcs-32",
- "pe-arm-little", bfd_arch_arm,
- arm_jtab, sizeof (arm_jtab), 8,
- 0, 0, 0, 0, 0, false, 0
- }
- ,
- {
- #define M386 1
- "i386", ".byte", ".short", ".long", ".asciz", "#",
- "jmp *", ".global", ".space", ".align\t2",".align\t4", "",
- "pe-i386",bfd_arch_i386,
- i386_jtab, sizeof (i386_jtab), 2,
- i386_dljtab, sizeof (i386_dljtab), 2, 7, 12, false, i386_trampoline
- }
- ,
- {
- #define MTHUMB 2
- "thumb", ".byte", ".short", ".long", ".asciz", "@",
- "push\t{r6}\n\tldr\tr6, [pc, #8]\n\tldr\tr6, [r6]\n\tmov\tip, r6\n\tpop\t{r6}\n\tbx\tip",
- ".global", ".space", ".align\t2",".align\t4", "-mthumb-interwork",
- "pe-arm-little", bfd_arch_arm,
- thumb_jtab, sizeof (thumb_jtab), 12,
- 0, 0, 0, 0, 0, false, 0
- }
- ,
- #define MARM_INTERWORK 3
- {
- "arm_interwork", ".byte", ".short", ".long", ".asciz", "@",
- "ldr\tip,[pc]\n\tldr\tip,[ip]\n\tbx\tip\n\t.long",
- ".global", ".space", ".align\t2",".align\t4", "-mthumb-interwork",
- "pe-arm-little", bfd_arch_arm,
- arm_interwork_jtab, sizeof (arm_interwork_jtab), 12,
- 0, 0, 0, 0, 0, false, 0
- }
- ,
- {
- #define MMCORE_BE 4
- "mcore-be", ".byte", ".short", ".long", ".asciz", "//",
- "lrw r1,[1f]\n\tld.w r1,(r1,0)\n\tjmp r1\n\tnop\n1:.long",
- ".global", ".space", ".align\t2",".align\t4", "",
- "pe-mcore-big", bfd_arch_mcore,
- mcore_be_jtab, sizeof (mcore_be_jtab), 8,
- 0, 0, 0, 0, 0, false, 0
- }
- ,
- {
- #define MMCORE_LE 5
- "mcore-le", ".byte", ".short", ".long", ".asciz", "//",
- "lrw r1,[1f]\n\tld.w r1,(r1,0)\n\tjmp r1\n\tnop\n1:.long",
- ".global", ".space", ".align\t2",".align\t4", "-EL",
- "pe-mcore-little", bfd_arch_mcore,
- mcore_le_jtab, sizeof (mcore_le_jtab), 8,
- 0, 0, 0, 0, 0, false, 0
- }
- ,
- {
- #define MMCORE_ELF 6
- "mcore-elf-be", ".byte", ".short", ".long", ".asciz", "//",
- "lrw r1,[1f]\n\tld.w r1,(r1,0)\n\tjmp r1\n\tnop\n1:.long",
- ".global", ".space", ".align\t2",".align\t4", "",
- "elf32-mcore-big", bfd_arch_mcore,
- mcore_be_jtab, sizeof (mcore_be_jtab), 8,
- 0, 0, 0, 0, 0, false, 0
- }
- ,
- {
- #define MMCORE_ELF_LE 7
- "mcore-elf-le", ".byte", ".short", ".long", ".asciz", "//",
- "lrw r1,[1f]\n\tld.w r1,(r1,0)\n\tjmp r1\n\tnop\n1:.long",
- ".global", ".space", ".align\t2",".align\t4", "-EL",
- "elf32-mcore-little", bfd_arch_mcore,
- mcore_le_jtab, sizeof (mcore_le_jtab), 8,
- 0, 0, 0, 0, 0, false, 0
- }
- ,
- {
- #define MARM_WINCE 8
- "arm-wince", ".byte", ".short", ".long", ".asciz", "@",
- "ldr\tip,[pc]\n\tldr\tpc,[ip]\n\t.long",
- ".global", ".space", ".align\t2",".align\t4", "-mapcs-32",
- "pe-arm-wince-little", bfd_arch_arm,
- arm_jtab, sizeof (arm_jtab), 8,
- 0, 0, 0, 0, 0, false, 0
- }
- ,
- {
- #define MX86 9
- "i386:x86-64", ".byte", ".short", ".long", ".asciz", "#",
- "jmp *", ".global", ".space", ".align\t2",".align\t4", "",
- "pe-x86-64",bfd_arch_i386,
- i386_jtab, sizeof (i386_jtab), 2,
- i386_x64_dljtab, sizeof (i386_x64_dljtab), 2, 9, 14, true, i386_x64_trampoline
- }
- ,
- { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 }
- };
- typedef struct dlist
- {
- char *text;
- struct dlist *next;
- }
- dlist_type;
- typedef struct export
- {
- const char *name;
- const char *internal_name;
- const char *import_name;
- const char *its_name;
- int ordinal;
- int constant;
- int noname; /* Don't put name in image file. */
- int private; /* Don't put reference in import lib. */
- int data;
- int forward; /* Number of forward label, 0 means no forward. */
- struct export *next;
- }
- export_type;
- /* A list of symbols which we should not export. */
- struct string_list
- {
- struct string_list *next;
- char *string;
- };
- static struct string_list *excludes;
- static const char *rvaafter (int);
- static const char *rvabefore (int);
- static const char *asm_prefix (int, const char *);
- static void process_def_file (const char *);
- static void new_directive (char *);
- static void append_import (const char *, const char *, int, const char *);
- static void run (const char *, char *);
- static void scan_drectve_symbols (bfd *);
- static void scan_filtered_symbols (bfd *, void *, long, unsigned int);
- static void add_excludes (const char *);
- static bool match_exclude (const char *);
- static void set_default_excludes (void);
- static long filter_symbols (bfd *, void *, long, unsigned int);
- static void scan_all_symbols (bfd *);
- static void scan_open_obj_file (bfd *);
- static void scan_obj_file (const char *);
- static void dump_def_info (FILE *);
- static int sfunc (const void *, const void *);
- static void flush_page (FILE *, bfd_vma *, bfd_vma, int);
- static void gen_def_file (void);
- static void generate_idata_ofile (FILE *);
- static void assemble_file (const char *, const char *);
- static void gen_exp_file (void);
- static const char *xlate (const char *);
- static char *make_label (const char *, const char *);
- static char *make_imp_label (const char *, const char *);
- static bfd *make_one_lib_file (export_type *, int, int);
- static bfd *make_head (void);
- static bfd *make_tail (void);
- static bfd *make_delay_head (void);
- static void gen_lib_file (int);
- static void dll_name_list_append (dll_name_list_type *, bfd_byte *);
- static int dll_name_list_count (dll_name_list_type *);
- static void dll_name_list_print (dll_name_list_type *);
- static void dll_name_list_free_contents (dll_name_list_node_type *);
- static void dll_name_list_free (dll_name_list_type *);
- static dll_name_list_type * dll_name_list_create (void);
- static void identify_dll_for_implib (void);
- static void identify_search_archive
- (bfd *, void (*) (bfd *, bfd *, void *), void *);
- static void identify_search_member (bfd *, bfd *, void *);
- static bool identify_process_section_p (asection *, bool);
- static void identify_search_section (bfd *, asection *, void *);
- static void identify_member_contains_symname (bfd *, bfd *, void *);
- static int pfunc (const void *, const void *);
- static int nfunc (const void *, const void *);
- static void remove_null_names (export_type **);
- static void process_duplicates (export_type **);
- static void fill_ordinals (export_type **);
- static void mangle_defs (void);
- static void usage (FILE *, int);
- static void inform (const char *, ...) ATTRIBUTE_PRINTF_1;
- static void set_dll_name_from_def (const char *name, char is_dll);
- static char *
- prefix_encode (char *start, unsigned code)
- {
- static char alpha[26] = "abcdefghijklmnopqrstuvwxyz";
- static char buf[32];
- char *p;
- strcpy (buf, start);
- p = strchr (buf, '\0');
- do
- *p++ = alpha[code % sizeof (alpha)];
- while ((code /= sizeof (alpha)) != 0);
- *p = '\0';
- return buf;
- }
- static char *
- dlltmp (char **buf, const char *fmt)
- {
- if (!*buf)
- {
- *buf = malloc (strlen (tmp_prefix) + 64);
- sprintf (*buf, fmt, tmp_prefix);
- }
- return *buf;
- }
- static void
- inform (const char * message, ...)
- {
- va_list args;
- va_start (args, message);
- if (!verbose)
- return;
- report (message, args);
- va_end (args);
- }
- static const char *
- rvaafter (int mach)
- {
- switch (mach)
- {
- case MARM:
- case M386:
- case MX86:
- case MTHUMB:
- case MARM_INTERWORK:
- case MMCORE_BE:
- case MMCORE_LE:
- case MMCORE_ELF:
- case MMCORE_ELF_LE:
- case MARM_WINCE:
- break;
- default:
- /* xgettext:c-format */
- fatal (_("Internal error: Unknown machine type: %d"), mach);
- break;
- }
- return "";
- }
- static const char *
- rvabefore (int mach)
- {
- switch (mach)
- {
- case MARM:
- case M386:
- case MX86:
- case MTHUMB:
- case MARM_INTERWORK:
- case MMCORE_BE:
- case MMCORE_LE:
- case MMCORE_ELF:
- case MMCORE_ELF_LE:
- case MARM_WINCE:
- return ".rva\t";
- default:
- /* xgettext:c-format */
- fatal (_("Internal error: Unknown machine type: %d"), mach);
- break;
- }
- return "";
- }
- static const char *
- asm_prefix (int mach, const char *name)
- {
- switch (mach)
- {
- case MARM:
- case MTHUMB:
- case MARM_INTERWORK:
- case MMCORE_BE:
- case MMCORE_LE:
- case MMCORE_ELF:
- case MMCORE_ELF_LE:
- case MARM_WINCE:
- break;
- case M386:
- case MX86:
- /* Symbol names starting with ? do not have a leading underscore. */
- if ((name && *name == '?') || leading_underscore == 0)
- break;
- else
- return "_";
- default:
- /* xgettext:c-format */
- fatal (_("Internal error: Unknown machine type: %d"), mach);
- break;
- }
- return "";
- }
- #define ASM_BYTE mtable[machine].how_byte
- #define ASM_SHORT mtable[machine].how_short
- #define ASM_LONG mtable[machine].how_long
- #define ASM_TEXT mtable[machine].how_asciz
- #define ASM_C mtable[machine].how_comment
- #define ASM_JUMP mtable[machine].how_jump
- #define ASM_GLOBAL mtable[machine].how_global
- #define ASM_SPACE mtable[machine].how_space
- #define ASM_ALIGN_SHORT mtable[machine].how_align_short
- #define ASM_RVA_BEFORE rvabefore (machine)
- #define ASM_RVA_AFTER rvaafter (machine)
- #define ASM_PREFIX(NAME) asm_prefix (machine, (NAME))
- #define ASM_ALIGN_LONG mtable[machine].how_align_long
- #define HOW_BFD_READ_TARGET 0 /* Always default. */
- #define HOW_BFD_WRITE_TARGET mtable[machine].how_bfd_target
- #define HOW_BFD_ARCH mtable[machine].how_bfd_arch
- #define HOW_JTAB (delay ? mtable[machine].how_dljtab \
- : mtable[machine].how_jtab)
- #define HOW_JTAB_SIZE (delay ? mtable[machine].how_dljtab_size \
- : mtable[machine].how_jtab_size)
- #define HOW_JTAB_ROFF (delay ? mtable[machine].how_dljtab_roff1 \
- : mtable[machine].how_jtab_roff)
- #define HOW_JTAB_ROFF2 (delay ? mtable[machine].how_dljtab_roff2 : 0)
- #define HOW_JTAB_ROFF3 (delay ? mtable[machine].how_dljtab_roff3 : 0)
- #define ASM_SWITCHES mtable[machine].how_default_as_switches
- #define HOW_SEH mtable[machine].how_seh
- static char **oav;
- static void
- process_def_file (const char *name)
- {
- FILE *f = fopen (name, FOPEN_RT);
- if (!f)
- /* xgettext:c-format */
- fatal (_("Can't open def file: %s"), name);
- yyin = f;
- /* xgettext:c-format */
- inform (_("Processing def file: %s"), name);
- yyparse ();
- inform (_("Processed def file"));
- }
- /**********************************************************************/
- /* Communications with the parser. */
- static int d_nfuncs; /* Number of functions exported. */
- static int d_named_nfuncs; /* Number of named functions exported. */
- static int d_low_ord; /* Lowest ordinal index. */
- static int d_high_ord; /* Highest ordinal index. */
- static export_type *d_exports; /* List of exported functions. */
- static export_type **d_exports_lexically; /* Vector of exported functions in alpha order. */
- static dlist_type *d_list; /* Descriptions. */
- static dlist_type *a_list; /* Stuff to go in directives. */
- static int d_nforwards = 0; /* Number of forwarded exports. */
- static int d_is_dll;
- static int d_is_exe;
- void
- yyerror (const char * err ATTRIBUTE_UNUSED)
- {
- /* xgettext:c-format */
- non_fatal (_("Syntax error in def file %s:%d"), def_file, linenumber);
- }
- void
- def_exports (const char *name, const char *internal_name, int ordinal,
- int noname, int constant, int data, int private,
- const char *its_name)
- {
- struct export *p = (struct export *) xmalloc (sizeof (*p));
- p->name = name;
- p->internal_name = internal_name ? internal_name : name;
- p->its_name = its_name;
- p->import_name = name;
- p->ordinal = ordinal;
- p->constant = constant;
- p->noname = noname;
- p->private = private;
- p->data = data;
- p->next = d_exports;
- d_exports = p;
- d_nfuncs++;
- if ((internal_name != NULL)
- && (strchr (internal_name, '.') != NULL))
- p->forward = ++d_nforwards;
- else
- p->forward = 0; /* no forward */
- }
- static void
- set_dll_name_from_def (const char *name, char is_dll)
- {
- const char *image_basename = lbasename (name);
- if (image_basename != name)
- non_fatal (_("%s: Path components stripped from image name, '%s'."),
- def_file, name);
- /* Append the default suffix, if none specified. */
- if (strchr (image_basename, '.') == 0)
- {
- const char * suffix = is_dll ? ".dll" : ".exe";
- dll_name = xmalloc (strlen (image_basename) + strlen (suffix) + 1);
- sprintf (dll_name, "%s%s", image_basename, suffix);
- }
- else
- dll_name = xstrdup (image_basename);
- }
- void
- def_name (const char *name, int base)
- {
- /* xgettext:c-format */
- inform (_("NAME: %s base: %x"), name, base);
- if (d_is_dll)
- non_fatal (_("Can't have LIBRARY and NAME"));
- if (dll_name_set_by_exp_name && name && *name != 0)
- {
- dll_name = NULL;
- dll_name_set_by_exp_name = 0;
- }
- /* If --dllname not provided, use the one in the DEF file.
- FIXME: Is this appropriate for executables? */
- if (!dll_name)
- set_dll_name_from_def (name, 0);
- d_is_exe = 1;
- }
- void
- def_library (const char *name, int base)
- {
- /* xgettext:c-format */
- inform (_("LIBRARY: %s base: %x"), name, base);
- if (d_is_exe)
- non_fatal (_("Can't have LIBRARY and NAME"));
- if (dll_name_set_by_exp_name && name && *name != 0)
- {
- dll_name = NULL;
- dll_name_set_by_exp_name = 0;
- }
- /* If --dllname not provided, use the one in the DEF file. */
- if (!dll_name)
- set_dll_name_from_def (name, 1);
- d_is_dll = 1;
- }
- void
- def_description (const char *desc)
- {
- dlist_type *d = (dlist_type *) xmalloc (sizeof (dlist_type));
- d->text = xstrdup (desc);
- d->next = d_list;
- d_list = d;
- }
- static void
- new_directive (char *dir)
- {
- dlist_type *d = (dlist_type *) xmalloc (sizeof (dlist_type));
- d->text = xstrdup (dir);
- d->next = a_list;
- a_list = d;
- }
- void
- def_heapsize (int reserve, int commit)
- {
- char b[200];
- if (commit > 0)
- sprintf (b, "-heap 0x%x,0x%x ", reserve, commit);
- else
- sprintf (b, "-heap 0x%x ", reserve);
- new_directive (xstrdup (b));
- }
- void
- def_stacksize (int reserve, int commit)
- {
- char b[200];
- if (commit > 0)
- sprintf (b, "-stack 0x%x,0x%x ", reserve, commit);
- else
- sprintf (b, "-stack 0x%x ", reserve);
- new_directive (xstrdup (b));
- }
- /* append_import simply adds the given import definition to the global
- import_list. It is used by def_import. */
- static void
- append_import (const char *symbol_name, const char *dllname, int func_ordinal,
- const char *its_name)
- {
- iheadtype **pq;
- iheadtype *q;
- for (pq = &import_list; *pq != NULL; pq = &(*pq)->next)
- {
- if (strcmp ((*pq)->dllname, dllname) == 0)
- {
- q = *pq;
- q->functail->next = xmalloc (sizeof (ifunctype));
- q->functail = q->functail->next;
- q->functail->ord = func_ordinal;
- q->functail->name = xstrdup (symbol_name);
- q->functail->its_name = (its_name ? xstrdup (its_name) : NULL);
- q->functail->next = NULL;
- q->nfuncs++;
- return;
- }
- }
- q = xmalloc (sizeof (iheadtype));
- q->dllname = xstrdup (dllname);
- q->nfuncs = 1;
- q->funchead = xmalloc (sizeof (ifunctype));
- q->functail = q->funchead;
- q->next = NULL;
- q->functail->name = xstrdup (symbol_name);
- q->functail->its_name = (its_name ? xstrdup (its_name) : NULL);
- q->functail->ord = func_ordinal;
- q->functail->next = NULL;
- *pq = q;
- }
- /* def_import is called from within defparse.y when an IMPORT
- declaration is encountered. Depending on the form of the
- declaration, the module name may or may not need ".dll" to be
- appended to it, the name of the function may be stored in internal
- or entry, and there may or may not be an ordinal value associated
- with it. */
- /* A note regarding the parse modes:
- In defparse.y we have to accept import declarations which follow
- any one of the following forms:
- <func_name_in_app> = <dll_name>.<func_name_in_dll>
- <func_name_in_app> = <dll_name>.<number>
- <dll_name>.<func_name_in_dll>
- <dll_name>.<number>
- Furthermore, the dll's name may or may not end with ".dll", which
- complicates the parsing a little. Normally the dll's name is
- passed to def_import() in the "module" parameter, but when it ends
- with ".dll" it gets passed in "module" sans ".dll" and that needs
- to be reappended.
- def_import gets five parameters:
- APP_NAME - the name of the function in the application, if
- present, or NULL if not present.
- MODULE - the name of the dll, possibly sans extension (ie, '.dll').
- DLLEXT - the extension of the dll, if present, NULL if not present.
- ENTRY - the name of the function in the dll, if present, or NULL.
- ORD_VAL - the numerical tag of the function in the dll, if present,
- or NULL. Exactly one of <entry> or <ord_val> must be
- present (i.e., not NULL). */
- void
- def_import (const char *app_name, const char *module, const char *dllext,
- const char *entry, int ord_val, const char *its_name)
- {
- const char *application_name;
- char *buf = NULL;
- if (entry != NULL)
- application_name = entry;
- else
- {
- if (app_name != NULL)
- application_name = app_name;
- else
- application_name = "";
- }
- if (dllext != NULL)
- module = buf = concat (module, ".", dllext, NULL);
- append_import (application_name, module, ord_val, its_name);
- free (buf);
- }
- void
- def_version (int major, int minor)
- {
- printf (_("VERSION %d.%d\n"), major, minor);
- }
- void
- def_section (const char *name, int attr)
- {
- char buf[200];
- char atts[5];
- char *d = atts;
- if (attr & 1)
- *d++ = 'R';
- if (attr & 2)
- *d++ = 'W';
- if (attr & 4)
- *d++ = 'X';
- if (attr & 8)
- *d++ = 'S';
- *d++ = 0;
- sprintf (buf, "-attr %s %s", name, atts);
- new_directive (xstrdup (buf));
- }
- void
- def_code (int attr)
- {
- def_section ("CODE", attr);
- }
- void
- def_data (int attr)
- {
- def_section ("DATA", attr);
- }
- /**********************************************************************/
- static void
- run (const char *what, char *args)
- {
- char *s;
- int pid, wait_status;
- int i;
- const char **argv;
- char *errmsg_fmt, *errmsg_arg;
- char *temp_base = choose_temp_base ();
- inform (_("run: %s %s"), what, args);
- /* Count the args */
- i = 0;
- for (s = args; *s; s++)
- if (*s == ' ')
- i++;
- i++;
- argv = xmalloc (sizeof (char *) * (i + 3));
- i = 0;
- argv[i++] = what;
- s = args;
- while (1)
- {
- while (*s == ' ')
- ++s;
- argv[i++] = s;
- while (*s != ' ' && *s != 0)
- s++;
- if (*s == 0)
- break;
- *s++ = 0;
- }
- argv[i++] = NULL;
- pid = pexecute (argv[0], (char * const *) argv, program_name, temp_base,
- &errmsg_fmt, &errmsg_arg, PEXECUTE_ONE | PEXECUTE_SEARCH);
- free (argv);
- if (pid == -1)
- {
- inform ("%s", strerror (errno));
- fatal (errmsg_fmt, errmsg_arg);
- }
- pid = pwait (pid, & wait_status, 0);
- if (pid == -1)
- {
- /* xgettext:c-format */
- fatal (_("wait: %s"), strerror (errno));
- }
- else if (WIFSIGNALED (wait_status))
- {
- /* xgettext:c-format */
- fatal (_("subprocess got fatal signal %d"), WTERMSIG (wait_status));
- }
- else if (WIFEXITED (wait_status))
- {
- if (WEXITSTATUS (wait_status) != 0)
- /* xgettext:c-format */
- non_fatal (_("%s exited with status %d"),
- what, WEXITSTATUS (wait_status));
- }
- else
- abort ();
- }
- /* Look for a list of symbols to export in the .drectve section of
- ABFD. Pass each one to def_exports. */
- static void
- scan_drectve_symbols (bfd *abfd)
- {
- asection * s;
- int size;
- char * buf;
- char * p;
- char * e;
- /* Look for .drectve's */
- s = bfd_get_section_by_name (abfd, DRECTVE_SECTION_NAME);
- if (s == NULL)
- return;
- size = bfd_section_size (s);
- buf = xmalloc (size);
- bfd_get_section_contents (abfd, s, buf, 0, size);
- /* xgettext:c-format */
- inform (_("Sucking in info from %s section in %s"),
- DRECTVE_SECTION_NAME, bfd_get_filename (abfd));
- /* Search for -export: strings. The exported symbols can optionally
- have type tags (eg., -export:foo,data), so handle those as well.
- Currently only data tag is supported. */
- p = buf;
- e = buf + size;
- while (p < e)
- {
- if (p[0] == '-'
- && startswith (p, "-export:"))
- {
- char * name;
- char * c;
- flagword flags = BSF_FUNCTION;
- p += 8;
- /* Do we have a quoted export? */
- if (*p == '"')
- {
- p++;
- name = p;
- while (p < e && *p != '"')
- ++p;
- }
- else
- {
- name = p;
- while (p < e && *p != ',' && *p != ' ' && *p != '-')
- p++;
- }
- c = xmalloc (p - name + 1);
- memcpy (c, name, p - name);
- c[p - name] = 0;
- /* Advance over trailing quote. */
- if (p < e && *p == '"')
- ++p;
- if (p < e && *p == ',') /* found type tag. */
- {
- char *tag_start = ++p;
- while (p < e && *p != ' ' && *p != '-')
- p++;
- if (startswith (tag_start, "data"))
- flags &= ~BSF_FUNCTION;
- }
- /* FIXME: The 5th arg is for the `constant' field.
- What should it be? Not that it matters since it's not
- currently useful. */
- def_exports (c, 0, -1, 0, 0, ! (flags & BSF_FUNCTION), 0, NULL);
- if (add_stdcall_alias && strchr (c, '@'))
- {
- int lead_at = (*c == '@') ;
- char *exported_name = xstrdup (c + lead_at);
- char *atsym = strchr (exported_name, '@');
- *atsym = '\0';
- /* Note: stdcall alias symbols can never be data. */
- def_exports (exported_name, xstrdup (c), -1, 0, 0, 0, 0, NULL);
- }
- }
- else
- p++;
- }
- free (buf);
- }
- /* Look through the symbols in MINISYMS, and add each one to list of
- symbols to export. */
- static void
- scan_filtered_symbols (bfd *abfd, void *minisyms, long symcount,
- unsigned int size)
- {
- asymbol *store;
- bfd_byte *from, *fromend;
- store = bfd_make_empty_symbol (abfd);
- if (store == NULL)
- bfd_fatal (bfd_get_filename (abfd));
- from = (bfd_byte *) minisyms;
- fromend = from + symcount * size;
- for (; from < fromend; from += size)
- {
- asymbol *sym;
- const char *symbol_name;
- sym = bfd_minisymbol_to_symbol (abfd, false, from, store);
- if (sym == NULL)
- bfd_fatal (bfd_get_filename (abfd));
- symbol_name = bfd_asymbol_name (sym);
- if (bfd_get_symbol_leading_char (abfd) == symbol_name[0])
- ++symbol_name;
- def_exports (xstrdup (symbol_name) , 0, -1, 0, 0,
- ! (sym->flags & BSF_FUNCTION), 0, NULL);
- if (add_stdcall_alias && strchr (symbol_name, '@'))
- {
- int lead_at = (*symbol_name == '@');
- char *exported_name = xstrdup (symbol_name + lead_at);
- char *atsym = strchr (exported_name, '@');
- *atsym = '\0';
- /* Note: stdcall alias symbols can never be data. */
- def_exports (exported_name, xstrdup (symbol_name), -1, 0, 0, 0, 0, NULL);
- }
- }
- }
- /* Add a list of symbols to exclude. */
- static void
- add_excludes (const char *new_excludes)
- {
- char *local_copy;
- char *exclude_string;
- local_copy = xstrdup (new_excludes);
- exclude_string = strtok (local_copy, ",:");
- for (; exclude_string; exclude_string = strtok (NULL, ",:"))
- {
- struct string_list *new_exclude;
- new_exclude = ((struct string_list *)
- xmalloc (sizeof (struct string_list)));
- new_exclude->string = (char *) xmalloc (strlen (exclude_string) + 2);
- /* Don't add a leading underscore for fastcall symbols. */
- if (*exclude_string == '@')
- sprintf (new_exclude->string, "%s", exclude_string);
- else
- sprintf (new_exclude->string, "%s%s", (!leading_underscore ? "" : "_"),
- exclude_string);
- new_exclude->next = excludes;
- excludes = new_exclude;
- /* xgettext:c-format */
- inform (_("Excluding symbol: %s"), exclude_string);
- }
- free (local_copy);
- }
- /* See if STRING is on the list of symbols to exclude. */
- static bool
- match_exclude (const char *string)
- {
- struct string_list *excl_item;
- for (excl_item = excludes; excl_item; excl_item = excl_item->next)
- if (strcmp (string, excl_item->string) == 0)
- return true;
- return false;
- }
- /* Add the default list of symbols to exclude. */
- static void
- set_default_excludes (void)
- {
- add_excludes (default_excludes);
- }
- /* Choose which symbols to export. */
- static long
- filter_symbols (bfd *abfd, void *minisyms, long symcount, unsigned int size)
- {
- bfd_byte *from, *fromend, *to;
- asymbol *store;
- store = bfd_make_empty_symbol (abfd);
- if (store == NULL)
- bfd_fatal (bfd_get_filename (abfd));
- from = (bfd_byte *) minisyms;
- fromend = from + symcount * size;
- to = (bfd_byte *) minisyms;
- for (; from < fromend; from += size)
- {
- int keep = 0;
- asymbol *sym;
- sym = bfd_minisymbol_to_symbol (abfd, false, (const void *) from, store);
- if (sym == NULL)
- bfd_fatal (bfd_get_filename (abfd));
- /* Check for external and defined only symbols. */
- keep = (((sym->flags & BSF_GLOBAL) != 0
- || (sym->flags & BSF_WEAK) != 0
- || bfd_is_com_section (sym->section))
- && ! bfd_is_und_section (sym->section));
- keep = keep && ! match_exclude (sym->name);
- if (keep)
- {
- memcpy (to, from, size);
- to += size;
- }
- }
- return (to - (bfd_byte *) minisyms) / size;
- }
- /* Export all symbols in ABFD, except for ones we were told not to
- export. */
- static void
- scan_all_symbols (bfd *abfd)
- {
- long symcount;
- void *minisyms;
- unsigned int size;
- /* Ignore bfds with an import descriptor table. We assume that any
- such BFD contains symbols which are exported from another DLL,
- and we don't want to reexport them from here. */
- if (bfd_get_section_by_name (abfd, ".idata$4"))
- return;
- if (! (bfd_get_file_flags (abfd) & HAS_SYMS))
- {
- /* xgettext:c-format */
- non_fatal (_("%s: no symbols"), bfd_get_filename (abfd));
- return;
- }
- symcount = bfd_read_minisymbols (abfd, false, &minisyms, &size);
- if (symcount < 0)
- bfd_fatal (bfd_get_filename (abfd));
- if (symcount == 0)
- {
- /* xgettext:c-format */
- non_fatal (_("%s: no symbols"), bfd_get_filename (abfd));
- return;
- }
- /* Discard the symbols we don't want to export. It's OK to do this
- in place; we'll free the storage anyway. */
- symcount = filter_symbols (abfd, minisyms, symcount, size);
- scan_filtered_symbols (abfd, minisyms, symcount, size);
- free (minisyms);
- }
- /* Look at the object file to decide which symbols to export. */
- static void
- scan_open_obj_file (bfd *abfd)
- {
- if (export_all_symbols)
- scan_all_symbols (abfd);
- else
- scan_drectve_symbols (abfd);
- /* FIXME: we ought to read in and block out the base relocations. */
- /* xgettext:c-format */
- inform (_("Done reading %s"), bfd_get_filename (abfd));
- }
- static void
- scan_obj_file (const char *filename)
- {
- bfd * f = bfd_openr (filename, 0);
- if (!f)
- /* xgettext:c-format */
- fatal (_("Unable to open object file: %s: %s"), filename, bfd_get_errmsg ());
- /* xgettext:c-format */
- inform (_("Scanning object file %s"), filename);
- if (bfd_check_format (f, bfd_archive))
- {
- bfd *arfile = bfd_openr_next_archived_file (f, 0);
- while (arfile)
- {
- bfd *next;
- if (bfd_check_format (arfile, bfd_object))
- scan_open_obj_file (arfile);
- next = bfd_openr_next_archived_file (f, arfile);
- bfd_close (arfile);
- /* PR 17512: file: 58715298. */
- if (next == arfile)
- break;
- arfile = next;
- }
- #ifdef DLLTOOL_MCORE_ELF
- if (mcore_elf_out_file)
- inform (_("Cannot produce mcore-elf dll from archive file: %s"), filename);
- #endif
- }
- else if (bfd_check_format (f, bfd_object))
- {
- scan_open_obj_file (f);
- #ifdef DLLTOOL_MCORE_ELF
- if (mcore_elf_out_file)
- mcore_elf_cache_filename (filename);
- #endif
- }
- bfd_close (f);
- }
- static void
- dump_def_info (FILE *f)
- {
- int i;
- export_type *exp;
- fprintf (f, "%s ", ASM_C);
- for (i = 0; oav[i]; i++)
- fprintf (f, "%s ", oav[i]);
- fprintf (f, "\n");
- for (i = 0, exp = d_exports; exp; i++, exp = exp->next)
- {
- fprintf (f, "%s %d = %s %s @ %d %s%s%s%s%s%s\n",
- ASM_C,
- i,
- exp->name,
- exp->internal_name,
- exp->ordinal,
- exp->noname ? "NONAME " : "",
- exp->private ? "PRIVATE " : "",
- exp->constant ? "CONSTANT" : "",
- exp->data ? "DATA" : "",
- exp->its_name ? " ==" : "",
- exp->its_name ? exp->its_name : "");
- }
- }
- /* Generate the .exp file. */
- static int
- sfunc (const void *a, const void *b)
- {
- if (*(const bfd_vma *) a == *(const bfd_vma *) b)
- return 0;
- return ((*(const bfd_vma *) a > *(const bfd_vma *) b) ? 1 : -1);
- }
- static void
- flush_page (FILE *f, bfd_vma *need, bfd_vma page_addr, int on_page)
- {
- int i;
- /* Flush this page. */
- fprintf (f, "\t%s\t0x%08x\t%s Starting RVA for chunk\n",
- ASM_LONG,
- (int) page_addr,
- ASM_C);
- fprintf (f, "\t%s\t0x%x\t%s Size of block\n",
- ASM_LONG,
- (on_page * 2) + (on_page & 1) * 2 + 8,
- ASM_C);
- for (i = 0; i < on_page; i++)
- {
- bfd_vma needed = need[i];
- if (needed)
- {
- if (!create_for_pep)
- {
- /* Relocation via HIGHLOW. */
- needed = ((needed - page_addr) | 0x3000) & 0xffff;
- }
- else
- {
- /* Relocation via DIR64. */
- needed = ((needed - page_addr) | 0xa000) & 0xffff;
- }
- }
- fprintf (f, "\t%s\t0x%lx\n", ASM_SHORT, (long) needed);
- }
- /* And padding */
- if (on_page & 1)
- fprintf (f, "\t%s\t0x%x\n", ASM_SHORT, 0 | 0x0000);
- }
- static void
- gen_def_file (void)
- {
- int i;
- export_type *exp;
- inform (_("Adding exports to output file"));
- fprintf (output_def, ";");
- for (i = 0; oav[i]; i++)
- fprintf (output_def, " %s", oav[i]);
- fprintf (output_def, "\nEXPORTS\n");
- for (i = 0, exp = d_exports; exp; i++, exp = exp->next)
- {
- char *quote = strchr (exp->name, '.') ? "\"" : "";
- char *res = cplus_demangle (exp->internal_name, DMGL_ANSI | DMGL_PARAMS);
- if (res)
- {
- fprintf (output_def,";\t%s\n", res);
- free (res);
- }
- if (strcmp (exp->name, exp->internal_name) == 0)
- {
- fprintf (output_def, "\t%s%s%s @ %d%s%s%s%s%s\n",
- quote,
- exp->name,
- quote,
- exp->ordinal,
- exp->noname ? " NONAME" : "",
- exp->private ? "PRIVATE " : "",
- exp->data ? " DATA" : "",
- exp->its_name ? " ==" : "",
- exp->its_name ? exp->its_name : "");
- }
- else
- {
- char * quote1 = strchr (exp->internal_name, '.') ? "\"" : "";
- /* char *alias = */
- fprintf (output_def, "\t%s%s%s = %s%s%s @ %d%s%s%s%s%s\n",
- quote,
- exp->name,
- quote,
- quote1,
- exp->internal_name,
- quote1,
- exp->ordinal,
- exp->noname ? " NONAME" : "",
- exp->private ? "PRIVATE " : "",
- exp->data ? " DATA" : "",
- exp->its_name ? " ==" : "",
- exp->its_name ? exp->its_name : "");
- }
- }
- inform (_("Added exports to output file"));
- }
- /* generate_idata_ofile generates the portable assembly source code
- for the idata sections. It appends the source code to the end of
- the file. */
- static void
- generate_idata_ofile (FILE *filvar)
- {
- iheadtype *headptr;
- ifunctype *funcptr;
- int headindex;
- int funcindex;
- int nheads;
- if (import_list == NULL)
- return;
- fprintf (filvar, "%s Import data sections\n", ASM_C);
- fprintf (filvar, "\n\t.section\t.idata$2\n");
- fprintf (filvar, "\t%s\tdoi_idata\n", ASM_GLOBAL);
- fprintf (filvar, "doi_idata:\n");
- nheads = 0;
- for (headptr = import_list; headptr != NULL; headptr = headptr->next)
- {
- fprintf (filvar, "\t%slistone%d%s\t%s %s\n",
- ASM_RVA_BEFORE, nheads, ASM_RVA_AFTER,
- ASM_C, headptr->dllname);
- fprintf (filvar, "\t%s\t0\n", ASM_LONG);
- fprintf (filvar, "\t%s\t0\n", ASM_LONG);
- fprintf (filvar, "\t%sdllname%d%s\n",
- ASM_RVA_BEFORE, nheads, ASM_RVA_AFTER);
- fprintf (filvar, "\t%slisttwo%d%s\n\n",
- ASM_RVA_BEFORE, nheads, ASM_RVA_AFTER);
- nheads++;
- }
- fprintf (filvar, "\t%s\t0\n", ASM_LONG); /* NULL record at */
- fprintf (filvar, "\t%s\t0\n", ASM_LONG); /* end of idata$2 */
- fprintf (filvar, "\t%s\t0\n", ASM_LONG); /* section */
- fprintf (filvar, "\t%s\t0\n", ASM_LONG);
- fprintf (filvar, "\t%s\t0\n", ASM_LONG);
- fprintf (filvar, "\n\t.section\t.idata$4\n");
- headindex = 0;
- for (headptr = import_list; headptr != NULL; headptr = headptr->next)
- {
- fprintf (filvar, "listone%d:\n", headindex);
- for (funcindex = 0; funcindex < headptr->nfuncs; funcindex++)
- {
- if (create_for_pep)
- fprintf (filvar, "\t%sfuncptr%d_%d%s\n%s\t0\n",
- ASM_RVA_BEFORE, headindex, funcindex, ASM_RVA_AFTER,
- ASM_LONG);
- else
- fprintf (filvar, "\t%sfuncptr%d_%d%s\n",
- ASM_RVA_BEFORE, headindex, funcindex, ASM_RVA_AFTER);
- }
- if (create_for_pep)
- fprintf (filvar, "\t%s\t0\n\t%s\t0\n", ASM_LONG, ASM_LONG);
- else
- fprintf (filvar, "\t%s\t0\n", ASM_LONG); /* NULL terminating list. */
- headindex++;
- }
- fprintf (filvar, "\n\t.section\t.idata$5\n");
- headindex = 0;
- for (headptr = import_list; headptr != NULL; headptr = headptr->next)
- {
- fprintf (filvar, "listtwo%d:\n", headindex);
- for (funcindex = 0; funcindex < headptr->nfuncs; funcindex++)
- {
- if (create_for_pep)
- fprintf (filvar, "\t%sfuncptr%d_%d%s\n%s\t0\n",
- ASM_RVA_BEFORE, headindex, funcindex, ASM_RVA_AFTER,
- ASM_LONG);
- else
- fprintf (filvar, "\t%sfuncptr%d_%d%s\n",
- ASM_RVA_BEFORE, headindex, funcindex, ASM_RVA_AFTER);
- }
- if (create_for_pep)
- fprintf (filvar, "\t%s\t0\n\t%s\t0\n", ASM_LONG, ASM_LONG);
- else
- fprintf (filvar, "\t%s\t0\n", ASM_LONG); /* NULL terminating list. */
- headindex++;
- }
- fprintf (filvar, "\n\t.section\t.idata$6\n");
- headindex = 0;
- for (headptr = import_list; headptr != NULL; headptr = headptr->next)
- {
- funcindex = 0;
- for (funcptr = headptr->funchead; funcptr != NULL;
- funcptr = funcptr->next)
- {
- fprintf (filvar,"funcptr%d_%d:\n", headindex, funcindex);
- fprintf (filvar,"\t%s\t%d\n", ASM_SHORT,
- ((funcptr->ord) & 0xFFFF));
- fprintf (filvar,"\t%s\t\"%s\"\n", ASM_TEXT,
- (funcptr->its_name ? funcptr->its_name : funcptr->name));
- fprintf (filvar,"\t%s\t0\n", ASM_BYTE);
- funcindex++;
- }
- headindex++;
- }
- fprintf (filvar, "\n\t.section\t.idata$7\n");
- headindex = 0;
- for (headptr = import_list; headptr != NULL; headptr = headptr->next)
- {
- fprintf (filvar,"dllname%d:\n", headindex);
- fprintf (filvar,"\t%s\t\"%s\"\n", ASM_TEXT, headptr->dllname);
- fprintf (filvar,"\t%s\t0\n", ASM_BYTE);
- headindex++;
- }
- }
- /* Assemble the specified file. */
- static void
- assemble_file (const char * source, const char * dest)
- {
- char * cmd;
- cmd = xmalloc (strlen (ASM_SWITCHES) + strlen (as_flags)
- + strlen (source) + strlen (dest) + 50);
- sprintf (cmd, "%s %s -o %s %s", ASM_SWITCHES, as_flags, dest, source);
- run (as_name, cmd);
- free (cmd);
- }
- static const char * temp_file_to_remove[5];
- #define TEMP_EXPORT_FILE 0
- #define TEMP_HEAD_FILE 1
- #define TEMP_TAIL_FILE 2
- #define TEMP_HEAD_O_FILE 3
- #define TEMP_TAIL_O_FILE 4
- static void
- unlink_temp_files (void)
- {
- unsigned i;
- if (dontdeltemps > 0)
- return;
- for (i = 0; i < ARRAY_SIZE (temp_file_to_remove); i++)
- {
- if (temp_file_to_remove[i])
- {
- unlink (temp_file_to_remove[i]);
- temp_file_to_remove[i] = NULL;
- }
- }
- }
- static void
- gen_exp_file (void)
- {
- FILE *f;
- int i;
- export_type *exp;
- dlist_type *dl;
- /* xgettext:c-format */
- inform (_("Generating export file: %s"), exp_name);
- f = fopen (TMP_ASM, FOPEN_WT);
- if (!f)
- /* xgettext:c-format */
- fatal (_("Unable to open temporary assembler file: %s"), TMP_ASM);
- temp_file_to_remove[TEMP_EXPORT_FILE] = TMP_ASM;
- /* xgettext:c-format */
- inform (_("Opened temporary file: %s"), TMP_ASM);
- dump_def_info (f);
- if (d_exports)
- {
- fprintf (f, "\t.section .edata\n\n");
- fprintf (f, "\t%s 0 %s Allways 0\n", ASM_LONG, ASM_C);
- fprintf (f, "\t%s 0x%lx %s Time and date\n", ASM_LONG,
- (unsigned long) time(0), ASM_C);
- fprintf (f, "\t%s 0 %s Major and Minor version\n", ASM_LONG, ASM_C);
- fprintf (f, "\t%sname%s %s Ptr to name of dll\n", ASM_RVA_BEFORE, ASM_RVA_AFTER, ASM_C);
- fprintf (f, "\t%s %d %s Starting ordinal of exports\n", ASM_LONG, d_low_ord, ASM_C);
- fprintf (f, "\t%s %d %s Number of functions\n", ASM_LONG, d_high_ord - d_low_ord + 1, ASM_C);
- fprintf(f,"\t%s named funcs %d, low ord %d, high ord %d\n",
- ASM_C,
- d_named_nfuncs, d_low_ord, d_high_ord);
- fprintf (f, "\t%s %d %s Number of names\n", ASM_LONG,
- show_allnames ? d_high_ord - d_low_ord + 1 : d_named_nfuncs, ASM_C);
- fprintf (f, "\t%safuncs%s %s Address of functions\n", ASM_RVA_BEFORE, ASM_RVA_AFTER, ASM_C);
- fprintf (f, "\t%sanames%s %s Address of Name Pointer Table\n",
- ASM_RVA_BEFORE, ASM_RVA_AFTER, ASM_C);
- fprintf (f, "\t%sanords%s %s Address of ordinals\n", ASM_RVA_BEFORE, ASM_RVA_AFTER, ASM_C);
- fprintf (f, "name: %s \"%s\"\n", ASM_TEXT, dll_name);
- fprintf(f,"%s Export address Table\n", ASM_C);
- fprintf(f,"\t%s\n", ASM_ALIGN_LONG);
- fprintf (f, "afuncs:\n");
- i = d_low_ord;
- for (exp = d_exports; exp; exp = exp->next)
- {
- if (exp->ordinal != i)
- {
- while (i < exp->ordinal)
- {
- fprintf(f,"\t%s\t0\n", ASM_LONG);
- i++;
- }
- }
- if (exp->forward == 0)
- {
- if (exp->internal_name[0] == '@')
- fprintf (f, "\t%s%s%s\t%s %d\n", ASM_RVA_BEFORE,
- exp->internal_name, ASM_RVA_AFTER, ASM_C, exp->ordinal);
- else
- fprintf (f, "\t%s%s%s%s\t%s %d\n", ASM_RVA_BEFORE,
- ASM_PREFIX (exp->internal_name),
- exp->internal_name, ASM_RVA_AFTER, ASM_C, exp->ordinal);
- }
- else
- fprintf (f, "\t%sf%d%s\t%s %d\n", ASM_RVA_BEFORE,
- exp->forward, ASM_RVA_AFTER, ASM_C, exp->ordinal);
- i++;
- }
- fprintf (f,"%s Export Name Pointer Table\n", ASM_C);
- fprintf (f, "anames:\n");
- for (i = 0; (exp = d_exports_lexically[i]); i++)
- {
- if (!exp->noname || show_allnames)
- fprintf (f, "\t%sn%d%s\n",
- ASM_RVA_BEFORE, exp->ordinal, ASM_RVA_AFTER);
- }
- fprintf (f,"%s Export Ordinal Table\n", ASM_C);
- fprintf (f, "anords:\n");
- for (i = 0; (exp = d_exports_lexically[i]); i++)
- {
- if (!exp->noname || show_allnames)
- fprintf (f, "\t%s %d\n", ASM_SHORT, exp->ordinal - d_low_ord);
- }
- fprintf(f,"%s Export Name Table\n", ASM_C);
- for (i = 0; (exp = d_exports_lexically[i]); i++)
- {
- if (!exp->noname || show_allnames)
- fprintf (f, "n%d: %s \"%s\"\n",
- exp->ordinal, ASM_TEXT,
- (exp->its_name ? exp->its_name : xlate (exp->name)));
- if (exp->forward != 0)
- fprintf (f, "f%d: %s \"%s\"\n",
- exp->forward, ASM_TEXT, exp->internal_name);
- }
- if (a_list)
- {
- fprintf (f, "\t.section %s\n", DRECTVE_SECTION_NAME);
- for (dl = a_list; dl; dl = dl->next)
- {
- fprintf (f, "\t%s\t\"%s\"\n", ASM_TEXT, dl->text);
- }
- }
- if (d_list)
- {
- fprintf (f, "\t.section .rdata\n");
- for (dl = d_list; dl; dl = dl->next)
- {
- char *p;
- int l;
- /* We don't output as ascii because there can
- be quote characters in the string. */
- l = 0;
- for (p = dl->text; *p; p++)
- {
- if (l == 0)
- fprintf (f, "\t%s\t", ASM_BYTE);
- else
- fprintf (f, ",");
- fprintf (f, "%d", *p);
- if (p[1] == 0)
- {
- fprintf (f, ",0\n");
- break;
- }
- if (++l == 10)
- {
- fprintf (f, "\n");
- l = 0;
- }
- }
- }
- }
- }
- /* Add to the output file a way of getting to the exported names
- without using the import library. */
- if (add_indirect)
- {
- fprintf (f, "\t.section\t.rdata\n");
- for (i = 0, exp = d_exports; exp; i++, exp = exp->next)
- if (!exp->noname || show_allnames)
- {
- /* We use a single underscore for MS compatibility, and a
- double underscore for backward compatibility with old
- cygwin releases. */
- if (create_compat_implib)
- fprintf (f, "\t%s\t__imp_%s\n", ASM_GLOBAL, exp->name);
- fprintf (f, "\t%s\t_imp_%s%s\n", ASM_GLOBAL,
- (!leading_underscore ? "" : "_"), exp->name);
- if (create_compat_implib)
- fprintf (f, "__imp_%s:\n", exp->name);
- fprintf (f, "_imp_%s%s:\n", (!leading_underscore ? "" : "_"), exp->name);
- fprintf (f, "\t%s\t%s\n", ASM_LONG, exp->name);
- }
- }
- /* Dump the reloc section if a base file is provided. */
- if (base_file)
- {
- bfd_vma addr;
- bfd_vma need[COFF_PAGE_SIZE];
- bfd_vma page_addr;
- bfd_size_type numbytes;
- int num_entries;
- bfd_vma *copy;
- int j;
- int on_page;
- fprintf (f, "\t.section\t.init\n");
- fprintf (f, "lab:\n");
- fseek (base_file, 0, SEEK_END);
- numbytes = ftell (base_file);
- fseek (base_file, 0, SEEK_SET);
- copy = xmalloc (numbytes);
- if (fread (copy, 1, numbytes, base_file) < numbytes)
- fatal (_("failed to read the number of entries from base file"));
- num_entries = numbytes / sizeof (bfd_vma);
- fprintf (f, "\t.section\t.reloc\n");
- if (num_entries)
- {
- int src;
- int dst = 0;
- bfd_vma last = (bfd_vma) -1;
- qsort (copy, num_entries, sizeof (bfd_vma), sfunc);
- /* Delete duplicates */
- for (src = 0; src < num_entries; src++)
- {
- if (last != copy[src])
- last = copy[dst++] = copy[src];
- }
- num_entries = dst;
- addr = copy[0];
- page_addr = addr & PAGE_MASK; /* work out the page addr */
- on_page = 0;
- for (j = 0; j < num_entries; j++)
- {
- addr = copy[j];
- if ((addr & PAGE_MASK) != page_addr)
- {
- flush_page (f, need, page_addr, on_page);
- on_page = 0;
- page_addr = addr & PAGE_MASK;
- }
- need[on_page++] = addr;
- }
- flush_page (f, need, page_addr, on_page);
- /* fprintf (f, "\t%s\t0,0\t%s End\n", ASM_LONG, ASM_C);*/
- }
- }
- generate_idata_ofile (f);
- fclose (f);
- /* Assemble the file. */
- assemble_file (TMP_ASM, exp_name);
- if (dontdeltemps == 0)
- {
- temp_file_to_remove[TEMP_EXPORT_FILE] = NULL;
- unlink (TMP_ASM);
- }
- inform (_("Generated exports file"));
- }
- static const char *
- xlate (const char *name)
- {
- int lead_at = (*name == '@');
- int is_stdcall = (!lead_at && strchr (name, '@') != NULL);
- if (!lead_at && (add_underscore
- || (add_stdcall_underscore && is_stdcall)))
- {
- char *copy = xmalloc (strlen (name) + 2);
- copy[0] = '_';
- strcpy (copy + 1, name);
- name = copy;
- }
- if (killat)
- {
- char *p;
- name += lead_at;
- /* PR 9766: Look for the last @ sign in the name. */
- p = strrchr (name, '@');
- if (p && ISDIGIT (p[1]))
- *p = 0;
- }
- return name;
- }
- typedef struct
- {
- int id;
- const char *name;
- int flags;
- int align;
- asection *sec;
- asymbol *sym;
- asymbol **sympp;
- int size;
- unsigned char *data;
- } sinfo;
- #define INIT_SEC_DATA(id, name, flags, align) \
- { id, name, flags, align, NULL, NULL, NULL, 0, NULL }
- #define TEXT 0
- #define DATA 1
- #define BSS 2
- #define IDATA7 3
- #define IDATA5 4
- #define IDATA4 5
- #define IDATA6 6
- #define NSECS 7
- #define TEXT_SEC_FLAGS \
- (SEC_ALLOC | SEC_LOAD | SEC_CODE | SEC_READONLY | SEC_HAS_CONTENTS)
- #define DATA_SEC_FLAGS (SEC_ALLOC | SEC_LOAD | SEC_DATA)
- #define BSS_SEC_FLAGS SEC_ALLOC
- static sinfo secdata[NSECS] =
- {
- INIT_SEC_DATA (TEXT, ".text", TEXT_SEC_FLAGS, 2),
- INIT_SEC_DATA (DATA, ".data", DATA_SEC_FLAGS, 2),
- INIT_SEC_DATA (BSS, ".bss", BSS_SEC_FLAGS, 2),
- INIT_SEC_DATA (IDATA7, ".idata$7", SEC_HAS_CONTENTS, 2),
- INIT_SEC_DATA (IDATA5, ".idata$5", SEC_HAS_CONTENTS, 2),
- INIT_SEC_DATA (IDATA4, ".idata$4", SEC_HAS_CONTENTS, 2),
- INIT_SEC_DATA (IDATA6, ".idata$6", SEC_HAS_CONTENTS, 1)
- };
- /* This is what we're trying to make. We generate the imp symbols with
- both single and double underscores, for compatibility.
- .text
- .global _GetFileVersionInfoSizeW@8
- .global __imp_GetFileVersionInfoSizeW@8
- _GetFileVersionInfoSizeW@8:
- jmp * __imp_GetFileVersionInfoSizeW@8
- .section .idata$7 # To force loading of head
- .long __version_a_head
- # Import Address Table
- .section .idata$5
- __imp_GetFileVersionInfoSizeW@8:
- .rva ID2
- # Import Lookup Table
- .section .idata$4
- .rva ID2
- # Hint/Name table
- .section .idata$6
- ID2: .short 2
- .asciz "GetFileVersionInfoSizeW" */
- static char *
- make_label (const char *prefix, const char *name)
- {
- int len = strlen (ASM_PREFIX (name)) + strlen (prefix) + strlen (name);
- char *copy = xmalloc (len + 1);
- strcpy (copy, ASM_PREFIX (name));
- strcat (copy, prefix);
- strcat (copy, name);
- return copy;
- }
- static char *
- make_imp_label (const char *prefix, const char *name)
- {
- int len;
- char *copy;
- if (name[0] == '@')
- {
- len = strlen (prefix) + strlen (name);
- copy = xmalloc (len + 1);
- strcpy (copy, prefix);
- strcat (copy, name);
- }
- else
- {
- len = strlen (ASM_PREFIX (name)) + strlen (prefix) + strlen (name);
- copy = xmalloc (len + 1);
- strcpy (copy, prefix);
- strcat (copy, ASM_PREFIX (name));
- strcat (copy, name);
- }
- return copy;
- }
- static bfd *
- make_one_lib_file (export_type *exp, int i, int delay)
- {
- bfd * abfd;
- asymbol * exp_label;
- asymbol * iname = 0;
- asymbol * iname2;
- asymbol * iname_lab;
- asymbol ** iname_lab_pp;
- asymbol ** iname_pp;
- #ifndef EXTRA
- #define EXTRA 0
- #endif
- asymbol * ptrs[NSECS + 4 + EXTRA + 1];
- flagword applicable;
- char * outname = xmalloc (strlen (TMP_STUB) + 10);
- int oidx = 0;
- sprintf (outname, "%s%05d.o", TMP_STUB, i);
- abfd = bfd_openw (outname, HOW_BFD_WRITE_TARGET);
- if (!abfd)
- /* xgettext:c-format */
- fatal (_("bfd_open failed open stub file: %s: %s"),
- outname, bfd_get_errmsg ());
- /* xgettext:c-format */
- inform (_("Creating stub file: %s"), outname);
- bfd_set_format (abfd, bfd_object);
- bfd_set_arch_mach (abfd, HOW_BFD_ARCH, 0);
- #ifdef DLLTOOL_ARM
- if (machine == MARM_INTERWORK || machine == MTHUMB)
- bfd_set_private_flags (abfd, F_INTERWORK);
- #endif
- applicable = bfd_applicable_section_flags (abfd);
- /* First make symbols for the sections. */
- for (i = 0; i < NSECS; i++)
- {
- sinfo *si = secdata + i;
- if (si->id != i)
- abort ();
- si->sec = bfd_make_section_old_way (abfd, si->name);
- bfd_set_section_flags (si->sec, si->flags & applicable);
- bfd_set_section_alignment (si->sec, si->align);
- si->sec->output_section = si->sec;
- si->sym = bfd_make_empty_symbol(abfd);
- si->sym->name = si->sec->name;
- si->sym->section = si->sec;
- si->sym->flags = BSF_LOCAL;
- si->sym->value = 0;
- ptrs[oidx] = si->sym;
- si->sympp = ptrs + oidx;
- si->size = 0;
- si->data = NULL;
- oidx++;
- }
- if (! exp->data)
- {
- exp_label = bfd_make_empty_symbol (abfd);
- exp_label->name = make_imp_label ("", exp->name);
- exp_label->section = secdata[TEXT].sec;
- exp_label->flags = BSF_GLOBAL;
- exp_label->value = 0;
- #ifdef DLLTOOL_ARM
- if (machine == MTHUMB)
- bfd_coff_set_symbol_class (abfd, exp_label, C_THUMBEXTFUNC);
- #endif
- ptrs[oidx++] = exp_label;
- }
- /* Generate imp symbols with one underscore for Microsoft
- compatibility, and with two underscores for backward
- compatibility with old versions of cygwin. */
- if (create_compat_implib)
- {
- iname = bfd_make_empty_symbol (abfd);
- iname->name = make_imp_label ("___imp", exp->name);
- iname->section = secdata[IDATA5].sec;
- iname->flags = BSF_GLOBAL;
- iname->value = 0;
- }
- iname2 = bfd_make_empty_symbol (abfd);
- iname2->name = make_imp_label ("__imp_", exp->name);
- iname2->section = secdata[IDATA5].sec;
- iname2->flags = BSF_GLOBAL;
- iname2->value = 0;
- iname_lab = bfd_make_empty_symbol (abfd);
- iname_lab->name = head_label;
- iname_lab->section = bfd_und_section_ptr;
- iname_lab->flags = 0;
- iname_lab->value = 0;
- iname_pp = ptrs + oidx;
- if (create_compat_implib)
- ptrs[oidx++] = iname;
- ptrs[oidx++] = iname2;
- iname_lab_pp = ptrs + oidx;
- ptrs[oidx++] = iname_lab;
- ptrs[oidx] = 0;
- for (i = 0; i < NSECS; i++)
- {
- sinfo *si = secdata + i;
- asection *sec = si->sec;
- arelent *rel, *rel2 = 0, *rel3 = 0;
- arelent **rpp;
- switch (i)
- {
- case TEXT:
- if (! exp->data)
- {
- si->size = HOW_JTAB_SIZE;
- si->data = xmalloc (HOW_JTAB_SIZE);
- memcpy (si->data, HOW_JTAB, HOW_JTAB_SIZE);
- /* Add the reloc into idata$5. */
- rel = xmalloc (sizeof (arelent));
- rpp = xmalloc (sizeof (arelent *) * (delay ? 4 : 2));
- rpp[0] = rel;
- rpp[1] = 0;
- rel->address = HOW_JTAB_ROFF;
- rel->addend = 0;
- if (delay)
- {
- rel2 = xmalloc (sizeof (arelent));
- rpp[1] = rel2;
- rel2->address = HOW_JTAB_ROFF2;
- rel2->addend = 0;
- rel3 = xmalloc (sizeof (arelent));
- rpp[2] = rel3;
- rel3->address = HOW_JTAB_ROFF3;
- rel3->addend = 0;
- rpp[3] = 0;
- }
- if (machine == MX86)
- {
- rel->howto = bfd_reloc_type_lookup (abfd,
- BFD_RELOC_32_PCREL);
- rel->sym_ptr_ptr = iname_pp;
- }
- else
- {
- rel->howto = bfd_reloc_type_lookup (abfd, BFD_RELOC_32);
- rel->sym_ptr_ptr = secdata[IDATA5].sympp;
- }
- if (delay)
- {
- if (machine == MX86)
- rel2->howto = bfd_reloc_type_lookup (abfd,
- BFD_RELOC_32_PCREL);
- else
- rel2->howto = bfd_reloc_type_lookup (abfd, BFD_RELOC_32);
- rel2->sym_ptr_ptr = rel->sym_ptr_ptr;
- rel3->howto = bfd_reloc_type_lookup (abfd,
- BFD_RELOC_32_PCREL);
- rel3->sym_ptr_ptr = iname_lab_pp;
- }
- sec->orelocation = rpp;
- sec->reloc_count = delay ? 3 : 1;
- }
- break;
- case IDATA5:
- if (delay)
- {
- si->size = create_for_pep ? 8 : 4;
- si->data = xmalloc (si->size);
- sec->reloc_count = 1;
- memset (si->data, 0, si->size);
- /* Point after jmp [__imp_...] instruction. */
- si->data[0] = 6;
- rel = xmalloc (sizeof (arelent));
- rpp = xmalloc (sizeof (arelent *) * 2);
- rpp[0] = rel;
- rpp[1] = 0;
- rel->address = 0;
- rel->addend = 0;
- if (create_for_pep)
- rel->howto = bfd_reloc_type_lookup (abfd, BFD_RELOC_64);
- else
- rel->howto = bfd_reloc_type_lookup (abfd, BFD_RELOC_32);
- rel->sym_ptr_ptr = secdata[TEXT].sympp;
- sec->orelocation = rpp;
- break;
- }
- /* Fall through. */
- case IDATA4:
- /* An idata$4 or idata$5 is one word long, and has an
- rva to idata$6. */
- if (create_for_pep)
- {
- si->data = xmalloc (8);
- si->size = 8;
- if (exp->noname)
- {
- si->data[0] = exp->ordinal ;
- si->data[1] = exp->ordinal >> 8;
- si->data[2] = exp->ordinal >> 16;
- si->data[3] = exp->ordinal >> 24;
- si->data[4] = 0;
- si->data[5] = 0;
- si->data[6] = 0;
- si->data[7] = 0x80;
- }
- else
- {
- sec->reloc_count = 1;
- memset (si->data, 0, si->size);
- rel = xmalloc (sizeof (arelent));
- rpp = xmalloc (sizeof (arelent *) * 2);
- rpp[0] = rel;
- rpp[1] = 0;
- rel->address = 0;
- rel->addend = 0;
- rel->howto = bfd_reloc_type_lookup (abfd, BFD_RELOC_RVA);
- rel->sym_ptr_ptr = secdata[IDATA6].sympp;
- sec->orelocation = rpp;
- }
- }
- else
- {
- si->data = xmalloc (4);
- si->size = 4;
- if (exp->noname)
- {
- si->data[0] = exp->ordinal ;
- si->data[1] = exp->ordinal >> 8;
- si->data[2] = exp->ordinal >> 16;
- si->data[3] = 0x80;
- }
- else
- {
- sec->reloc_count = 1;
- memset (si->data, 0, si->size);
- rel = xmalloc (sizeof (arelent));
- rpp = xmalloc (sizeof (arelent *) * 2);
- rpp[0] = rel;
- rpp[1] = 0;
- rel->address = 0;
- rel->addend = 0;
- rel->howto = bfd_reloc_type_lookup (abfd, BFD_RELOC_RVA);
- rel->sym_ptr_ptr = secdata[IDATA6].sympp;
- sec->orelocation = rpp;
- }
- }
- break;
- case IDATA6:
- if (!exp->noname)
- {
- int idx = exp->ordinal;
- if (exp->its_name)
- si->size = strlen (exp->its_name) + 3;
- else
- si->size = strlen (xlate (exp->import_name)) + 3;
- si->data = xmalloc (si->size);
- memset (si->data, 0, si->size);
- si->data[0] = idx & 0xff;
- si->data[1] = idx >> 8;
- if (exp->its_name)
- strcpy ((char *) si->data + 2, exp->its_name);
- else
- strcpy ((char *) si->data + 2, xlate (exp->import_name));
- }
- break;
- case IDATA7:
- if (delay)
- break;
- si->size = 4;
- si->data = xmalloc (4);
- memset (si->data, 0, si->size);
- rel = xmalloc (sizeof (arelent));
- rpp = xmalloc (sizeof (arelent *) * 2);
- rpp[0] = rel;
- rel->address = 0;
- rel->addend = 0;
- rel->howto = bfd_reloc_type_lookup (abfd, BFD_RELOC_RVA);
- rel->sym_ptr_ptr = iname_lab_pp;
- sec->orelocation = rpp;
- sec->reloc_count = 1;
- break;
- }
- }
- {
- bfd_vma vma = 0;
- /* Size up all the sections. */
- for (i = 0; i < NSECS; i++)
- {
- sinfo *si = secdata + i;
- bfd_set_section_size (si->sec, si->size);
- bfd_set_section_vma (si->sec, vma);
- }
- }
- /* Write them out. */
- for (i = 0; i < NSECS; i++)
- {
- sinfo *si = secdata + i;
- if (i == IDATA5 && no_idata5)
- continue;
- if (i == IDATA4 && no_idata4)
- continue;
- bfd_set_section_contents (abfd, si->sec,
- si->data, 0,
- si->size);
- }
- bfd_set_symtab (abfd, ptrs, oidx);
- bfd_close (abfd);
- abfd = bfd_openr (outname, HOW_BFD_READ_TARGET);
- if (!abfd)
- /* xgettext:c-format */
- fatal (_("bfd_open failed reopen stub file: %s: %s"),
- outname, bfd_get_errmsg ());
- return abfd;
- }
- static bfd *
- make_head (void)
- {
- FILE *f = fopen (TMP_HEAD_S, FOPEN_WT);
- bfd *abfd;
- if (f == NULL)
- {
- fatal (_("failed to open temporary head file: %s"), TMP_HEAD_S);
- return NULL;
- }
- temp_file_to_remove[TEMP_HEAD_FILE] = TMP_HEAD_S;
- fprintf (f, "%s IMAGE_IMPORT_DESCRIPTOR\n", ASM_C);
- fprintf (f, "\t.section\t.idata$2\n");
- fprintf (f,"\t%s\t%s\n", ASM_GLOBAL, head_label);
- fprintf (f, "%s:\n", head_label);
- fprintf (f, "\t%shname%s\t%sPtr to image import by name list\n",
- ASM_RVA_BEFORE, ASM_RVA_AFTER, ASM_C);
- fprintf (f, "\t%sthis should be the timestamp, but NT sometimes\n", ASM_C);
- fprintf (f, "\t%sdoesn't load DLLs when this is set.\n", ASM_C);
- fprintf (f, "\t%s\t0\t%s loaded time\n", ASM_LONG, ASM_C);
- fprintf (f, "\t%s\t0\t%s Forwarder chain\n", ASM_LONG, ASM_C);
- fprintf (f, "\t%s__%s_iname%s\t%s imported dll's name\n",
- ASM_RVA_BEFORE,
- imp_name_lab,
- ASM_RVA_AFTER,
- ASM_C);
- fprintf (f, "\t%sfthunk%s\t%s pointer to firstthunk\n",
- ASM_RVA_BEFORE,
- ASM_RVA_AFTER, ASM_C);
- fprintf (f, "%sStuff for compatibility\n", ASM_C);
- if (!no_idata5)
- {
- fprintf (f, "\t.section\t.idata$5\n");
- if (use_nul_prefixed_import_tables)
- {
- if (create_for_pep)
- fprintf (f,"\t%s\t0\n\t%s\t0\n", ASM_LONG, ASM_LONG);
- else
- fprintf (f,"\t%s\t0\n", ASM_LONG);
- }
- fprintf (f, "fthunk:\n");
- }
- if (!no_idata4)
- {
- fprintf (f, "\t.section\t.idata$4\n");
- if (use_nul_prefixed_import_tables)
- {
- if (create_for_pep)
- fprintf (f,"\t%s\t0\n\t%s\t0\n", ASM_LONG, ASM_LONG);
- else
- fprintf (f,"\t%s\t0\n", ASM_LONG);
- }
- fprintf (f, "hname:\n");
- }
- fclose (f);
- assemble_file (TMP_HEAD_S, TMP_HEAD_O);
- abfd = bfd_openr (TMP_HEAD_O, HOW_BFD_READ_TARGET);
- if (abfd == NULL)
- /* xgettext:c-format */
- fatal (_("failed to open temporary head file: %s: %s"),
- TMP_HEAD_O, bfd_get_errmsg ());
- temp_file_to_remove[TEMP_HEAD_O_FILE] = TMP_HEAD_O;
- return abfd;
- }
- bfd *
- make_delay_head (void)
- {
- FILE *f = fopen (TMP_HEAD_S, FOPEN_WT);
- bfd *abfd;
- if (f == NULL)
- {
- fatal (_("failed to open temporary head file: %s"), TMP_HEAD_S);
- return NULL;
- }
- temp_file_to_remove[TEMP_HEAD_FILE] = TMP_HEAD_S;
- /* Output the __tailMerge__xxx function */
- fprintf (f, "%s Import trampoline\n", ASM_C);
- fprintf (f, "\t.section\t.text\n");
- fprintf(f,"\t%s\t%s\n", ASM_GLOBAL, head_label);
- if (HOW_SEH)
- fprintf (f, "\t.seh_proc\t%s\n", head_label);
- fprintf (f, "%s:\n", head_label);
- fprintf (f, mtable[machine].trampoline, imp_name_lab);
- if (HOW_SEH)
- fprintf (f, "\t.seh_endproc\n");
- /* Output the delay import descriptor */
- fprintf (f, "\n%s DELAY_IMPORT_DESCRIPTOR\n", ASM_C);
- fprintf (f, ".section\t.text$2\n");
- fprintf (f,"%s __DELAY_IMPORT_DESCRIPTOR_%s\n", ASM_GLOBAL,imp_name_lab);
- fprintf (f, "__DELAY_IMPORT_DESCRIPTOR_%s:\n", imp_name_lab);
- fprintf (f, "\t%s 1\t%s grAttrs\n", ASM_LONG, ASM_C);
- fprintf (f, "\t%s__%s_iname%s\t%s rvaDLLName\n",
- ASM_RVA_BEFORE, imp_name_lab, ASM_RVA_AFTER, ASM_C);
- fprintf (f, "\t%s__DLL_HANDLE_%s%s\t%s rvaHmod\n",
- ASM_RVA_BEFORE, imp_name_lab, ASM_RVA_AFTER, ASM_C);
- fprintf (f, "\t%s__IAT_%s%s\t%s rvaIAT\n",
- ASM_RVA_BEFORE, imp_name_lab, ASM_RVA_AFTER, ASM_C);
- fprintf (f, "\t%s__INT_%s%s\t%s rvaINT\n",
- ASM_RVA_BEFORE, imp_name_lab, ASM_RVA_AFTER, ASM_C);
- fprintf (f, "\t%s\t0\t%s rvaBoundIAT\n", ASM_LONG, ASM_C);
- fprintf (f, "\t%s\t0\t%s rvaUnloadIAT\n", ASM_LONG, ASM_C);
- fprintf (f, "\t%s\t0\t%s dwTimeStamp\n", ASM_LONG, ASM_C);
- /* Output the dll_handle */
- fprintf (f, "\n.section .data\n");
- fprintf (f, "__DLL_HANDLE_%s:\n", imp_name_lab);
- fprintf (f, "\t%s\t0\t%s Handle\n", ASM_LONG, ASM_C);
- if (create_for_pep)
- fprintf (f, "\t%s\t0\n", ASM_LONG);
- fprintf (f, "\n");
- fprintf (f, "%sStuff for compatibility\n", ASM_C);
- if (!no_idata5)
- {
- fprintf (f, "\t.section\t.idata$5\n");
- /* NULL terminating list. */
- if (create_for_pep)
- fprintf (f,"\t%s\t0\n\t%s\t0\n", ASM_LONG, ASM_LONG);
- else
- fprintf (f,"\t%s\t0\n", ASM_LONG);
- fprintf (f, "__IAT_%s:\n", imp_name_lab);
- }
- if (!no_idata4)
- {
- fprintf (f, "\t.section\t.idata$4\n");
- fprintf (f, "\t%s\t0\n", ASM_LONG);
- if (create_for_pep)
- fprintf (f, "\t%s\t0\n", ASM_LONG);
- fprintf (f, "\t.section\t.idata$4\n");
- fprintf (f, "__INT_%s:\n", imp_name_lab);
- }
- fprintf (f, "\t.section\t.idata$2\n");
- fclose (f);
- assemble_file (TMP_HEAD_S, TMP_HEAD_O);
- abfd = bfd_openr (TMP_HEAD_O, HOW_BFD_READ_TARGET);
- if (abfd == NULL)
- /* xgettext:c-format */
- fatal (_("failed to open temporary head file: %s: %s"),
- TMP_HEAD_O, bfd_get_errmsg ());
- temp_file_to_remove[TEMP_HEAD_O_FILE] = TMP_HEAD_O;
- return abfd;
- }
- static bfd *
- make_tail (void)
- {
- FILE *f = fopen (TMP_TAIL_S, FOPEN_WT);
- bfd *abfd;
- if (f == NULL)
- {
- fatal (_("failed to open temporary tail file: %s"), TMP_TAIL_S);
- return NULL;
- }
- temp_file_to_remove[TEMP_TAIL_FILE] = TMP_TAIL_S;
- if (!no_idata4)
- {
- fprintf (f, "\t.section\t.idata$4\n");
- if (create_for_pep)
- fprintf (f,"\t%s\t0\n\t%s\t0\n", ASM_LONG, ASM_LONG);
- else
- fprintf (f,"\t%s\t0\n", ASM_LONG); /* NULL terminating list. */
- }
- if (!no_idata5)
- {
- fprintf (f, "\t.section\t.idata$5\n");
- if (create_for_pep)
- fprintf (f,"\t%s\t0\n\t%s\t0\n", ASM_LONG, ASM_LONG);
- else
- fprintf (f,"\t%s\t0\n", ASM_LONG); /* NULL terminating list. */
- }
- fprintf (f, "\t.section\t.idata$7\n");
- fprintf (f, "\t%s\t__%s_iname\n", ASM_GLOBAL, imp_name_lab);
- fprintf (f, "__%s_iname:\t%s\t\"%s\"\n",
- imp_name_lab, ASM_TEXT, dll_name);
- fclose (f);
- assemble_file (TMP_TAIL_S, TMP_TAIL_O);
- abfd = bfd_openr (TMP_TAIL_O, HOW_BFD_READ_TARGET);
- if (abfd == NULL)
- /* xgettext:c-format */
- fatal (_("failed to open temporary tail file: %s: %s"),
- TMP_TAIL_O, bfd_get_errmsg ());
- temp_file_to_remove[TEMP_TAIL_O_FILE] = TMP_TAIL_O;
- return abfd;
- }
- static void
- gen_lib_file (int delay)
- {
- int i;
- export_type *exp;
- bfd *ar_head;
- bfd *ar_tail;
- bfd *outarch;
- bfd * head = 0;
- unlink (imp_name);
- outarch = bfd_openw (imp_name, HOW_BFD_WRITE_TARGET);
- if (!outarch)
- /* xgettext:c-format */
- fatal (_("Can't create .lib file: %s: %s"),
- imp_name, bfd_get_errmsg ());
- /* xgettext:c-format */
- inform (_("Creating library file: %s"), imp_name);
- xatexit (unlink_temp_files);
- bfd_set_format (outarch, bfd_archive);
- outarch->has_armap = 1;
- outarch->is_thin_archive = 0;
- /* Work out a reasonable size of things to put onto one line. */
- if (delay)
- {
- ar_head = make_delay_head ();
- }
- else
- {
- ar_head = make_head ();
- }
- ar_tail = make_tail();
- if (ar_head == NULL || ar_tail == NULL)
- return;
- for (i = 0; (exp = d_exports_lexically[i]); i++)
- {
- bfd *n;
- /* Don't add PRIVATE entries to import lib. */
- if (exp->private)
- continue;
- n = make_one_lib_file (exp, i, delay);
- n->archive_next = head;
- head = n;
- if (ext_prefix_alias)
- {
- export_type alias_exp;
- assert (i < PREFIX_ALIAS_BASE);
- alias_exp.name = make_imp_label (ext_prefix_alias, exp->name);
- alias_exp.internal_name = exp->internal_name;
- alias_exp.its_name = exp->its_name;
- alias_exp.import_name = exp->name;
- alias_exp.ordinal = exp->ordinal;
- alias_exp.constant = exp->constant;
- alias_exp.noname = exp->noname;
- alias_exp.private = exp->private;
- alias_exp.data = exp->data;
- alias_exp.forward = exp->forward;
- alias_exp.next = exp->next;
- n = make_one_lib_file (&alias_exp, i + PREFIX_ALIAS_BASE, delay);
- n->archive_next = head;
- head = n;
- }
- }
- /* Now stick them all into the archive. */
- ar_head->archive_next = head;
- ar_tail->archive_next = ar_head;
- head = ar_tail;
- if (! bfd_set_archive_head (outarch, head))
- bfd_fatal ("bfd_set_archive_head");
- if (! bfd_close (outarch))
- bfd_fatal (imp_name);
- while (head != NULL)
- {
- bfd *n = head->archive_next;
- bfd_close (head);
- head = n;
- }
- /* Delete all the temp files. */
- unlink_temp_files ();
- if (dontdeltemps < 2)
- {
- char *name;
- name = xmalloc (strlen (TMP_STUB) + 10);
- for (i = 0; (exp = d_exports_lexically[i]); i++)
- {
- /* Don't delete non-existent stubs for PRIVATE entries. */
- if (exp->private)
- continue;
- sprintf (name, "%s%05d.o", TMP_STUB, i);
- if (unlink (name) < 0)
- /* xgettext:c-format */
- non_fatal (_("cannot delete %s: %s"), name, strerror (errno));
- if (ext_prefix_alias)
- {
- sprintf (name, "%s%05d.o", TMP_STUB, i + PREFIX_ALIAS_BASE);
- if (unlink (name) < 0)
- /* xgettext:c-format */
- non_fatal (_("cannot delete %s: %s"), name, strerror (errno));
- }
- }
- free (name);
- }
- inform (_("Created lib file"));
- }
- /* Append a copy of data (cast to char *) to list. */
- static void
- dll_name_list_append (dll_name_list_type * list, bfd_byte * data)
- {
- dll_name_list_node_type * entry;
- /* Error checking. */
- if (! list || ! list->tail)
- return;
- /* Allocate new node. */
- entry = ((dll_name_list_node_type *)
- xmalloc (sizeof (dll_name_list_node_type)));
- /* Initialize its values. */
- entry->dllname = xstrdup ((char *) data);
- entry->next = NULL;
- /* Add to tail, and move tail. */
- list->tail->next = entry;
- list->tail = entry;
- }
- /* Count the number of entries in list. */
- static int
- dll_name_list_count (dll_name_list_type * list)
- {
- dll_name_list_node_type * p;
- int count = 0;
- /* Error checking. */
- if (! list || ! list->head)
- return 0;
- p = list->head;
- while (p && p->next)
- {
- count++;
- p = p->next;
- }
- return count;
- }
- /* Print each entry in list to stdout. */
- static void
- dll_name_list_print (dll_name_list_type * list)
- {
- dll_name_list_node_type * p;
- /* Error checking. */
- if (! list || ! list->head)
- return;
- p = list->head;
- while (p && p->next && p->next->dllname && *(p->next->dllname))
- {
- printf ("%s\n", p->next->dllname);
- p = p->next;
- }
- }
- /* Free all entries in list, and list itself. */
- static void
- dll_name_list_free (dll_name_list_type * list)
- {
- if (list)
- {
- dll_name_list_free_contents (list->head);
- list->head = NULL;
- list->tail = NULL;
- free (list);
- }
- }
- /* Recursive function to free all nodes entry->next->next...
- as well as entry itself. */
- static void
- dll_name_list_free_contents (dll_name_list_node_type * entry)
- {
- if (entry)
- {
- if (entry->next)
- dll_name_list_free_contents (entry->next);
- free (entry->dllname);
- free (entry);
- }
- }
- /* Allocate and initialize a dll_name_list_type object,
- including its sentinel node. Caller is responsible
- for calling dll_name_list_free when finished with
- the list. */
- static dll_name_list_type *
- dll_name_list_create (void)
- {
- /* Allocate list. */
- dll_name_list_type * list = xmalloc (sizeof (dll_name_list_type));
- /* Allocate and initialize sentinel node. */
- list->head = xmalloc (sizeof (dll_name_list_node_type));
- list->head->dllname = NULL;
- list->head->next = NULL;
- /* Bookkeeping for empty list. */
- list->tail = list->head;
- return list;
- }
- /* Search the symbol table of the suppled BFD for a symbol whose name matches
- OBJ (where obj is cast to const char *). If found, set global variable
- identify_member_contains_symname_result TRUE. It is the caller's
- responsibility to set the result variable FALSE before iterating with
- this function. */
- static void
- identify_member_contains_symname (bfd * abfd,
- bfd * archive_bfd ATTRIBUTE_UNUSED,
- void * obj)
- {
- long storage_needed;
- asymbol ** symbol_table;
- long number_of_symbols;
- long i;
- symname_search_data_type * search_data = (symname_search_data_type *) obj;
- /* If we already found the symbol in a different member,
- short circuit. */
- if (search_data->found)
- return;
- storage_needed = bfd_get_symtab_upper_bound (abfd);
- if (storage_needed <= 0)
- return;
- symbol_table = xmalloc (storage_needed);
- number_of_symbols = bfd_canonicalize_symtab (abfd, symbol_table);
- if (number_of_symbols < 0)
- {
- free (symbol_table);
- return;
- }
- for (i = 0; i < number_of_symbols; i++)
- {
- if (strncmp (symbol_table[i]->name,
- search_data->symname,
- strlen (search_data->symname)) == 0)
- {
- search_data->found = true;
- break;
- }
- }
- free (symbol_table);
- }
- /* This is the main implementation for the --identify option.
- Given the name of an import library in identify_imp_name, first
- determine if the import library is a GNU binutils-style one (where
- the DLL name is stored in an .idata$7 section), or if it is a
- MS-style one (where the DLL name, along with much other data, is
- stored in the .idata$6 section). We determine the style of import
- library by searching for the DLL-structure symbol inserted by MS
- tools: __NULL_IMPORT_DESCRIPTOR.
- Once we know which section to search, evaluate each section for the
- appropriate properties that indicate it may contain the name of the
- associated DLL (this differs depending on the style). Add the contents
- of all sections which meet the criteria to a linked list of dll names.
- Finally, print them all to stdout. (If --identify-strict, an error is
- reported if more than one match was found). */
- static void
- identify_dll_for_implib (void)
- {
- bfd * abfd = NULL;
- int count = 0;
- identify_data_type identify_data;
- symname_search_data_type search_data;
- /* Initialize identify_data. */
- identify_data.list = dll_name_list_create ();
- identify_data.ms_style_implib = false;
- /* Initialize search_data. */
- search_data.symname = "__NULL_IMPORT_DESCRIPTOR";
- search_data.found = false;
- if (bfd_init () != BFD_INIT_MAGIC)
- fatal (_("fatal error: libbfd ABI mismatch"));
- abfd = bfd_openr (identify_imp_name, 0);
- if (abfd == NULL)
- /* xgettext:c-format */
- fatal (_("Can't open .lib file: %s: %s"),
- identify_imp_name, bfd_get_errmsg ());
- if (! bfd_check_format (abfd, bfd_archive))
- {
- if (! bfd_close (abfd))
- bfd_fatal (identify_imp_name);
- fatal (_("%s is not a library"), identify_imp_name);
- }
- /* Detect if this a Microsoft import library. */
- identify_search_archive (abfd,
- identify_member_contains_symname,
- (void *)(& search_data));
- if (search_data.found)
- identify_data.ms_style_implib = true;
- /* Rewind the bfd. */
- if (! bfd_close (abfd))
- bfd_fatal (identify_imp_name);
- abfd = bfd_openr (identify_imp_name, 0);
- if (abfd == NULL)
- bfd_fatal (identify_imp_name);
- if (!bfd_check_format (abfd, bfd_archive))
- {
- if (!bfd_close (abfd))
- bfd_fatal (identify_imp_name);
- fatal (_("%s is not a library"), identify_imp_name);
- }
- /* Now search for the dll name. */
- identify_search_archive (abfd,
- identify_search_member,
- (void *)(& identify_data));
- if (! bfd_close (abfd))
- bfd_fatal (identify_imp_name);
- count = dll_name_list_count (identify_data.list);
- if (count > 0)
- {
- if (identify_strict && count > 1)
- {
- dll_name_list_free (identify_data.list);
- identify_data.list = NULL;
- fatal (_("Import library `%s' specifies two or more dlls"),
- identify_imp_name);
- }
- dll_name_list_print (identify_data.list);
- dll_name_list_free (identify_data.list);
- identify_data.list = NULL;
- }
- else
- {
- dll_name_list_free (identify_data.list);
- identify_data.list = NULL;
- fatal (_("Unable to determine dll name for `%s' (not an import library?)"),
- identify_imp_name);
- }
- }
- /* Loop over all members of the archive, applying the supplied function to
- each member that is a bfd_object. The function will be called as if:
- func (member_bfd, abfd, user_storage) */
- static void
- identify_search_archive (bfd * abfd,
- void (* operation) (bfd *, bfd *, void *),
- void * user_storage)
- {
- bfd * arfile = NULL;
- bfd * last_arfile = NULL;
- char ** matching;
- while (1)
- {
- arfile = bfd_openr_next_archived_file (abfd, arfile);
- if (arfile == NULL)
- {
- if (bfd_get_error () != bfd_error_no_more_archived_files)
- bfd_fatal (bfd_get_filename (abfd));
- break;
- }
- if (bfd_check_format_matches (arfile, bfd_object, &matching))
- (*operation) (arfile, abfd, user_storage);
- else
- {
- bfd_nonfatal (bfd_get_filename (arfile));
- free (matching);
- }
- if (last_arfile != NULL)
- {
- bfd_close (last_arfile);
- /* PR 17512: file: 8b2168d4. */
- if (last_arfile == arfile)
- {
- last_arfile = NULL;
- break;
- }
- }
- last_arfile = arfile;
- }
- if (last_arfile != NULL)
- {
- bfd_close (last_arfile);
- }
- }
- /* Call the identify_search_section() function for each section of this
- archive member. */
- static void
- identify_search_member (bfd *abfd,
- bfd *archive_bfd ATTRIBUTE_UNUSED,
- void *obj)
- {
- bfd_map_over_sections (abfd, identify_search_section, obj);
- }
- /* This predicate returns true if section->name matches the desired value.
- By default, this is .idata$7 (.idata$6 if the import library is
- ms-style). */
- static bool
- identify_process_section_p (asection * section, bool ms_style_implib)
- {
- static const char * SECTION_NAME = ".idata$7";
- static const char * MS_SECTION_NAME = ".idata$6";
- const char * section_name =
- (ms_style_implib ? MS_SECTION_NAME : SECTION_NAME);
- if (strcmp (section_name, section->name) == 0)
- return true;
- return false;
- }
- /* If *section has contents and its name is .idata$7 (.idata$6 if
- import lib ms-generated) -- and it satisfies several other constraints
- -- then add the contents of the section to obj->list. */
- static void
- identify_search_section (bfd * abfd, asection * section, void * obj)
- {
- bfd_byte *data = 0;
- bfd_size_type datasize;
- identify_data_type * identify_data = (identify_data_type *)obj;
- bool ms_style = identify_data->ms_style_implib;
- if ((section->flags & SEC_HAS_CONTENTS) == 0)
- return;
- if (! identify_process_section_p (section, ms_style))
- return;
- /* Binutils import libs seem distinguish the .idata$7 section that contains
- the DLL name from other .idata$7 sections by the absence of the
- SEC_RELOC flag. */
- if (!ms_style && ((section->flags & SEC_RELOC) == SEC_RELOC))
- return;
- /* MS import libs seem to distinguish the .idata$6 section
- that contains the DLL name from other .idata$6 sections
- by the presence of the SEC_DATA flag. */
- if (ms_style && ((section->flags & SEC_DATA) == 0))
- return;
- if ((datasize = bfd_section_size (section)) == 0)
- return;
- data = (bfd_byte *) xmalloc (datasize + 1);
- data[0] = '\0';
- bfd_get_section_contents (abfd, section, data, 0, datasize);
- data[datasize] = '\0';
- /* Use a heuristic to determine if data is a dll name.
- Possible to defeat this if (a) the library has MANY
- (more than 0x302f) imports, (b) it is an ms-style
- import library, but (c) it is buggy, in that the SEC_DATA
- flag is set on the "wrong" sections. This heuristic might
- also fail to record a valid dll name if the dllname uses
- a multibyte or unicode character set (is that valid?).
- This heuristic is based on the fact that symbols names in
- the chosen section -- as opposed to the dll name -- begin
- at offset 2 in the data. The first two bytes are a 16bit
- little-endian count, and start at 0x0000. However, the dll
- name begins at offset 0 in the data. We assume that the
- dll name does not contain unprintable characters. */
- if (data[0] != '\0' && ISPRINT (data[0])
- && ((datasize < 2) || ISPRINT (data[1])))
- dll_name_list_append (identify_data->list, data);
- free (data);
- }
- /* Run through the information gathered from the .o files and the
- .def file and work out the best stuff. */
- static int
- pfunc (const void *a, const void *b)
- {
- export_type *ap = *(export_type **) a;
- export_type *bp = *(export_type **) b;
- if (ap->ordinal == bp->ordinal)
- return 0;
- /* Unset ordinals go to the bottom. */
- if (ap->ordinal == -1)
- return 1;
- if (bp->ordinal == -1)
- return -1;
- return (ap->ordinal - bp->ordinal);
- }
- static int
- nfunc (const void *a, const void *b)
- {
- export_type *ap = *(export_type **) a;
- export_type *bp = *(export_type **) b;
- const char *an = ap->name;
- const char *bn = bp->name;
- if (ap->its_name)
- an = ap->its_name;
- if (bp->its_name)
- an = bp->its_name;
- if (killat)
- {
- an = (an[0] == '@') ? an + 1 : an;
- bn = (bn[0] == '@') ? bn + 1 : bn;
- }
- return (strcmp (an, bn));
- }
- static void
- remove_null_names (export_type **ptr)
- {
- int src;
- int dst;
- for (dst = src = 0; src < d_nfuncs; src++)
- {
- if (ptr[src])
- {
- ptr[dst] = ptr[src];
- dst++;
- }
- }
- d_nfuncs = dst;
- }
- static void
- process_duplicates (export_type **d_export_vec)
- {
- int more = 1;
- int i;
- while (more)
- {
- more = 0;
- /* Remove duplicates. */
- qsort (d_export_vec, d_nfuncs, sizeof (export_type *), nfunc);
- for (i = 0; i < d_nfuncs - 1; i++)
- {
- if (strcmp (d_export_vec[i]->name,
- d_export_vec[i + 1]->name) == 0)
- {
- export_type *a = d_export_vec[i];
- export_type *b = d_export_vec[i + 1];
- more = 1;
- /* xgettext:c-format */
- inform (_("Warning, ignoring duplicate EXPORT %s %d,%d"),
- a->name, a->ordinal, b->ordinal);
- if (a->ordinal != -1
- && b->ordinal != -1)
- /* xgettext:c-format */
- fatal (_("Error, duplicate EXPORT with ordinals: %s"),
- a->name);
- /* Merge attributes. */
- b->ordinal = a->ordinal > 0 ? a->ordinal : b->ordinal;
- b->constant |= a->constant;
- b->noname |= a->noname;
- b->data |= a->data;
- d_export_vec[i] = 0;
- }
- remove_null_names (d_export_vec);
- }
- }
- /* Count the names. */
- for (i = 0; i < d_nfuncs; i++)
- if (!d_export_vec[i]->noname)
- d_named_nfuncs++;
- }
- static void
- fill_ordinals (export_type **d_export_vec)
- {
- int lowest = -1;
- int i;
- char *ptr;
- int size = 65536;
- qsort (d_export_vec, d_nfuncs, sizeof (export_type *), pfunc);
- /* Fill in the unset ordinals with ones from our range. */
- ptr = (char *) xmalloc (size);
- memset (ptr, 0, size);
- /* Mark in our large vector all the numbers that are taken. */
- for (i = 0; i < d_nfuncs; i++)
- {
- if (d_export_vec[i]->ordinal != -1)
- {
- ptr[d_export_vec[i]->ordinal] = 1;
- if (lowest == -1 || d_export_vec[i]->ordinal < lowest)
- lowest = d_export_vec[i]->ordinal;
- }
- }
- /* Start at 1 for compatibility with MS toolchain. */
- if (lowest == -1)
- lowest = 1;
- /* Now fill in ordinals where the user wants us to choose. */
- for (i = 0; i < d_nfuncs; i++)
- {
- if (d_export_vec[i]->ordinal == -1)
- {
- int j;
- /* First try within or after any user supplied range. */
- for (j = lowest; j < size; j++)
- if (ptr[j] == 0)
- {
- ptr[j] = 1;
- d_export_vec[i]->ordinal = j;
- goto done;
- }
- /* Then try before the range. */
- for (j = lowest; j >0; j--)
- if (ptr[j] == 0)
- {
- ptr[j] = 1;
- d_export_vec[i]->ordinal = j;
- goto done;
- }
- done:;
- }
- }
- free (ptr);
- /* And resort. */
- qsort (d_export_vec, d_nfuncs, sizeof (export_type *), pfunc);
- /* Work out the lowest and highest ordinal numbers. */
- if (d_nfuncs)
- {
- if (d_export_vec[0])
- d_low_ord = d_export_vec[0]->ordinal;
- if (d_export_vec[d_nfuncs-1])
- d_high_ord = d_export_vec[d_nfuncs-1]->ordinal;
- }
- }
- static void
- mangle_defs (void)
- {
- /* First work out the minimum ordinal chosen. */
- export_type *exp;
- export_type **d_export_vec = xmalloc (sizeof (export_type *) * d_nfuncs);
- int i;
- inform (_("Processing definitions"));
- for (i = 0, exp = d_exports; exp; i++, exp = exp->next)
- d_export_vec[i] = exp;
- process_duplicates (d_export_vec);
- fill_ordinals (d_export_vec);
- /* Put back the list in the new order. */
- d_exports = 0;
- for (i = d_nfuncs - 1; i >= 0; i--)
- {
- d_export_vec[i]->next = d_exports;
- d_exports = d_export_vec[i];
- }
- /* Build list in alpha order. */
- d_exports_lexically = (export_type **)
- xmalloc (sizeof (export_type *) * (d_nfuncs + 1));
- for (i = 0, exp = d_exports; exp; i++, exp = exp->next)
- d_exports_lexically[i] = exp;
- d_exports_lexically[i] = 0;
- qsort (d_exports_lexically, i, sizeof (export_type *), nfunc);
- inform (_("Processed definitions"));
- }
- static void
- usage (FILE *file, int status)
- {
- /* xgetext:c-format */
- fprintf (file, _("Usage %s <option(s)> <object-file(s)>\n"), program_name);
- /* xgetext:c-format */
- fprintf (file, _(" -m --machine <machine> Create as DLL for <machine>. [default: %s]\n"), mname);
- fprintf (file, _(" possible <machine>: arm[_interwork], i386, mcore[-elf]{-le|-be}, thumb\n"));
- fprintf (file, _(" -e --output-exp <outname> Generate an export file.\n"));
- fprintf (file, _(" -l --output-lib <outname> Generate an interface library.\n"));
- fprintf (file, _(" -y --output-delaylib <outname> Create a delay-import library.\n"));
- fprintf (file, _(" -a --add-indirect Add dll indirects to export file.\n"));
- fprintf (file, _(" -D --dllname <name> Name of input dll to put into interface lib.\n"));
- fprintf (file, _(" -d --input-def <deffile> Name of .def file to be read in.\n"));
- fprintf (file, _(" -z --output-def <deffile> Name of .def file to be created.\n"));
- fprintf (file, _(" --export-all-symbols Export all symbols to .def\n"));
- fprintf (file, _(" --no-export-all-symbols Only export listed symbols\n"));
- fprintf (file, _(" --exclude-symbols <list> Don't export <list>\n"));
- fprintf (file, _(" --no-default-excludes Clear default exclude symbols\n"));
- fprintf (file, _(" -b --base-file <basefile> Read linker generated base file.\n"));
- fprintf (file, _(" -x --no-idata4 Don't generate idata$4 section.\n"));
- fprintf (file, _(" -c --no-idata5 Don't generate idata$5 section.\n"));
- fprintf (file, _(" --use-nul-prefixed-import-tables Use zero prefixed idata$4 and idata$5.\n"));
- fprintf (file, _(" -U --add-underscore Add underscores to all symbols in interface library.\n"));
- fprintf (file, _(" --add-stdcall-underscore Add underscores to stdcall symbols in interface library.\n"));
- fprintf (file, _(" --no-leading-underscore All symbols shouldn't be prefixed by an underscore.\n"));
- fprintf (file, _(" --leading-underscore All symbols should be prefixed by an underscore.\n"));
- fprintf (file, _(" -k --kill-at Kill @<n> from exported names.\n"));
- fprintf (file, _(" -A --add-stdcall-alias Add aliases without @<n>.\n"));
- fprintf (file, _(" -p --ext-prefix-alias <prefix> Add aliases with <prefix>.\n"));
- fprintf (file, _(" -S --as <name> Use <name> for assembler.\n"));
- fprintf (file, _(" -f --as-flags <flags> Pass <flags> to the assembler.\n"));
- fprintf (file, _(" -C --compat-implib Create backward compatible import library.\n"));
- fprintf (file, _(" -n --no-delete Keep temp files (repeat for extra preservation).\n"));
- fprintf (file, _(" -t --temp-prefix <prefix> Use <prefix> to construct temp file names.\n"));
- fprintf (file, _(" -I --identify <implib> Report the name of the DLL associated with <implib>.\n"));
- fprintf (file, _(" --identify-strict Causes --identify to report error when multiple DLLs.\n"));
- fprintf (file, _(" -v --verbose Be verbose.\n"));
- fprintf (file, _(" -V --version Display the program version.\n"));
- fprintf (file, _(" -h --help Display this information.\n"));
- fprintf (file, _(" @<file> Read options from <file>.\n"));
- #ifdef DLLTOOL_MCORE_ELF
- fprintf (file, _(" -M --mcore-elf <outname> Process mcore-elf object files into <outname>.\n"));
- fprintf (file, _(" -L --linker <name> Use <name> as the linker.\n"));
- fprintf (file, _(" -F --linker-flags <flags> Pass <flags> to the linker.\n"));
- #endif
- if (REPORT_BUGS_TO[0] && status == 0)
- fprintf (file, _("Report bugs to %s\n"), REPORT_BUGS_TO);
- exit (status);
- }
- #define OPTION_EXPORT_ALL_SYMS 150
- #define OPTION_NO_EXPORT_ALL_SYMS (OPTION_EXPORT_ALL_SYMS + 1)
- #define OPTION_EXCLUDE_SYMS (OPTION_NO_EXPORT_ALL_SYMS + 1)
- #define OPTION_NO_DEFAULT_EXCLUDES (OPTION_EXCLUDE_SYMS + 1)
- #define OPTION_ADD_STDCALL_UNDERSCORE (OPTION_NO_DEFAULT_EXCLUDES + 1)
- #define OPTION_USE_NUL_PREFIXED_IMPORT_TABLES \
- (OPTION_ADD_STDCALL_UNDERSCORE + 1)
- #define OPTION_IDENTIFY_STRICT (OPTION_USE_NUL_PREFIXED_IMPORT_TABLES + 1)
- #define OPTION_NO_LEADING_UNDERSCORE (OPTION_IDENTIFY_STRICT + 1)
- #define OPTION_LEADING_UNDERSCORE (OPTION_NO_LEADING_UNDERSCORE + 1)
- static const struct option long_options[] =
- {
- {"no-delete", no_argument, NULL, 'n'},
- {"dllname", required_argument, NULL, 'D'},
- {"no-idata4", no_argument, NULL, 'x'},
- {"no-idata5", no_argument, NULL, 'c'},
- {"use-nul-prefixed-import-tables", no_argument, NULL,
- OPTION_USE_NUL_PREFIXED_IMPORT_TABLES},
- {"output-exp", required_argument, NULL, 'e'},
- {"output-def", required_argument, NULL, 'z'},
- {"export-all-symbols", no_argument, NULL, OPTION_EXPORT_ALL_SYMS},
- {"no-export-all-symbols", no_argument, NULL, OPTION_NO_EXPORT_ALL_SYMS},
- {"exclude-symbols", required_argument, NULL, OPTION_EXCLUDE_SYMS},
- {"no-default-excludes", no_argument, NULL, OPTION_NO_DEFAULT_EXCLUDES},
- {"output-lib", required_argument, NULL, 'l'},
- {"def", required_argument, NULL, 'd'}, /* for compatibility with older versions */
- {"input-def", required_argument, NULL, 'd'},
- {"add-underscore", no_argument, NULL, 'U'},
- {"add-stdcall-underscore", no_argument, NULL, OPTION_ADD_STDCALL_UNDERSCORE},
- {"no-leading-underscore", no_argument, NULL, OPTION_NO_LEADING_UNDERSCORE},
- {"leading-underscore", no_argument, NULL, OPTION_LEADING_UNDERSCORE},
- {"kill-at", no_argument, NULL, 'k'},
- {"add-stdcall-alias", no_argument, NULL, 'A'},
- {"ext-prefix-alias", required_argument, NULL, 'p'},
- {"identify", required_argument, NULL, 'I'},
- {"identify-strict", no_argument, NULL, OPTION_IDENTIFY_STRICT},
- {"verbose", no_argument, NULL, 'v'},
- {"version", no_argument, NULL, 'V'},
- {"help", no_argument, NULL, 'h'},
- {"machine", required_argument, NULL, 'm'},
- {"add-indirect", no_argument, NULL, 'a'},
- {"base-file", required_argument, NULL, 'b'},
- {"as", required_argument, NULL, 'S'},
- {"as-flags", required_argument, NULL, 'f'},
- {"mcore-elf", required_argument, NULL, 'M'},
- {"compat-implib", no_argument, NULL, 'C'},
- {"temp-prefix", required_argument, NULL, 't'},
- {"output-delaylib", required_argument, NULL, 'y'},
- {NULL,0,NULL,0}
- };
- int main (int, char **);
- int
- main (int ac, char **av)
- {
- int c;
- int i;
- char *firstarg = 0;
- program_name = av[0];
- oav = av;
- #ifdef HAVE_LC_MESSAGES
- setlocale (LC_MESSAGES, "");
- #endif
- setlocale (LC_CTYPE, "");
- bindtextdomain (PACKAGE, LOCALEDIR);
- textdomain (PACKAGE);
- bfd_set_error_program_name (program_name);
- expandargv (&ac, &av);
- while ((c = getopt_long (ac, av,
- #ifdef DLLTOOL_MCORE_ELF
- "m:e:l:aD:d:z:b:xp:cCuUkAS:t:f:nI:vVHhM:L:F:",
- #else
- "m:e:l:y:aD:d:z:b:xp:cCuUkAS:t:f:nI:vVHh",
- #endif
- long_options, 0))
- != EOF)
- {
- switch (c)
- {
- case OPTION_EXPORT_ALL_SYMS:
- export_all_symbols = true;
- break;
- case OPTION_NO_EXPORT_ALL_SYMS:
- export_all_symbols = false;
- break;
- case OPTION_EXCLUDE_SYMS:
- add_excludes (optarg);
- break;
- case OPTION_NO_DEFAULT_EXCLUDES:
- do_default_excludes = false;
- break;
- case OPTION_USE_NUL_PREFIXED_IMPORT_TABLES:
- use_nul_prefixed_import_tables = true;
- break;
- case OPTION_ADD_STDCALL_UNDERSCORE:
- add_stdcall_underscore = 1;
- break;
- case OPTION_NO_LEADING_UNDERSCORE:
- leading_underscore = 0;
- break;
- case OPTION_LEADING_UNDERSCORE:
- leading_underscore = 1;
- break;
- case OPTION_IDENTIFY_STRICT:
- identify_strict = 1;
- break;
- case 'x':
- no_idata4 = 1;
- break;
- case 'c':
- no_idata5 = 1;
- break;
- case 'S':
- as_name = optarg;
- break;
- case 't':
- tmp_prefix = optarg;
- break;
- case 'f':
- as_flags = optarg;
- break;
- /* Ignored for compatibility. */
- case 'u':
- break;
- case 'a':
- add_indirect = 1;
- break;
- case 'z':
- output_def = fopen (optarg, FOPEN_WT);
- if (!output_def)
- /* xgettext:c-format */
- fatal (_("Unable to open def-file: %s"), optarg);
- break;
- case 'D':
- dll_name = (char*) lbasename (optarg);
- if (dll_name != optarg)
- non_fatal (_("Path components stripped from dllname, '%s'."),
- optarg);
- break;
- case 'l':
- imp_name = optarg;
- break;
- case 'e':
- exp_name = optarg;
- break;
- case 'H':
- case 'h':
- usage (stdout, 0);
- break;
- case 'm':
- mname = optarg;
- break;
- case 'I':
- identify_imp_name = optarg;
- break;
- case 'v':
- verbose = 1;
- break;
- case 'V':
- print_version (program_name);
- break;
- case 'U':
- add_underscore = 1;
- break;
- case 'k':
- killat = 1;
- break;
- case 'A':
- add_stdcall_alias = 1;
- break;
- case 'p':
- ext_prefix_alias = optarg;
- break;
- case 'd':
- def_file = optarg;
- break;
- case 'n':
- dontdeltemps++;
- break;
- case 'b':
- base_file = fopen (optarg, FOPEN_RB);
- if (!base_file)
- /* xgettext:c-format */
- fatal (_("Unable to open base-file: %s"), optarg);
- break;
- #ifdef DLLTOOL_MCORE_ELF
- case 'M':
- mcore_elf_out_file = optarg;
- break;
- case 'L':
- mcore_elf_linker = optarg;
- break;
- case 'F':
- mcore_elf_linker_flags = optarg;
- break;
- #endif
- case 'C':
- create_compat_implib = 1;
- break;
- case 'y':
- delayimp_name = optarg;
- break;
- default:
- usage (stderr, 1);
- break;
- }
- }
- for (i = 0; mtable[i].type; i++)
- if (strcmp (mtable[i].type, mname) == 0)
- break;
- if (!mtable[i].type)
- /* xgettext:c-format */
- fatal (_("Machine '%s' not supported"), mname);
- machine = i;
- /* Check if we generated PE+. */
- create_for_pep = strcmp (mname, "i386:x86-64") == 0;
- {
- /* Check the default underscore */
- int u = leading_underscore; /* Underscoring mode. -1 for use default. */
- if (u == -1)
- bfd_get_target_info (mtable[machine].how_bfd_target, NULL,
- NULL, &u, NULL);
- if (u != -1)
- leading_underscore = u != 0;
- }
- if (!dll_name && exp_name)
- {
- /* If we are inferring dll_name from exp_name,
- strip off any path components, without emitting
- a warning. */
- const char* exp_basename = lbasename (exp_name);
- const int len = strlen (exp_basename) + 5;
- dll_name = xmalloc (len);
- strcpy (dll_name, exp_basename);
- strcat (dll_name, ".dll");
- dll_name_set_by_exp_name = 1;
- }
- if (as_name == NULL)
- as_name = deduce_name ("as");
- /* Don't use the default exclude list if we're reading only the
- symbols in the .drectve section. The default excludes are meant
- to avoid exporting DLL entry point and Cygwin32 impure_ptr. */
- if (! export_all_symbols)
- do_default_excludes = false;
- if (do_default_excludes)
- set_default_excludes ();
- if (def_file)
- process_def_file (def_file);
- while (optind < ac)
- {
- if (!firstarg)
- firstarg = av[optind];
- scan_obj_file (av[optind]);
- optind++;
- }
- if (tmp_prefix == NULL)
- {
- /* If possible use a deterministic prefix. */
- if (imp_name || delayimp_name)
- {
- const char *input = imp_name ? imp_name : delayimp_name;
- tmp_prefix = xmalloc (strlen (input) + 2);
- sprintf (tmp_prefix, "%s_", input);
- for (i = 0; tmp_prefix[i]; i++)
- if (!ISALNUM (tmp_prefix[i]))
- tmp_prefix[i] = '_';
- }
- else
- {
- tmp_prefix = prefix_encode ("d", getpid ());
- }
- }
- mangle_defs ();
- if (exp_name)
- gen_exp_file ();
- if (imp_name)
- {
- /* Make imp_name safe for use as a label. */
- char *p;
- imp_name_lab = xstrdup (imp_name);
- for (p = imp_name_lab; *p; p++)
- {
- if (!ISALNUM (*p))
- *p = '_';
- }
- head_label = make_label("_head_", imp_name_lab);
- gen_lib_file (0);
- }
- if (delayimp_name)
- {
- /* Make delayimp_name safe for use as a label. */
- char *p;
- if (mtable[machine].how_dljtab == 0)
- {
- inform (_("Warning, machine type (%d) not supported for "
- "delayimport."), machine);
- }
- else
- {
- killat = 1;
- imp_name = delayimp_name;
- imp_name_lab = xstrdup (imp_name);
- for (p = imp_name_lab; *p; p++)
- {
- if (!ISALNUM (*p))
- *p = '_';
- }
- head_label = make_label("__tailMerge_", imp_name_lab);
- gen_lib_file (1);
- }
- }
- if (output_def)
- gen_def_file ();
- if (identify_imp_name)
- {
- identify_dll_for_implib ();
- }
- #ifdef DLLTOOL_MCORE_ELF
- if (mcore_elf_out_file)
- mcore_elf_gen_out_file ();
- #endif
- return 0;
- }
- /* Look for the program formed by concatenating PROG_NAME and the
- string running from PREFIX to END_PREFIX. If the concatenated
- string contains a '/', try appending EXECUTABLE_SUFFIX if it is
- appropriate. */
- static char *
- look_for_prog (const char *prog_name, const char *prefix, int end_prefix)
- {
- struct stat s;
- char *cmd;
- cmd = xmalloc (strlen (prefix)
- + strlen (prog_name)
- #ifdef HAVE_EXECUTABLE_SUFFIX
- + strlen (EXECUTABLE_SUFFIX)
- #endif
- + 10);
- strcpy (cmd, prefix);
- sprintf (cmd + end_prefix, "%s", prog_name);
- if (strchr (cmd, '/') != NULL)
- {
- int found;
- found = (stat (cmd, &s) == 0
- #ifdef HAVE_EXECUTABLE_SUFFIX
- || stat (strcat (cmd, EXECUTABLE_SUFFIX), &s) == 0
- #endif
- );
- if (! found)
- {
- /* xgettext:c-format */
- inform (_("Tried file: %s"), cmd);
- free (cmd);
- return NULL;
- }
- }
- /* xgettext:c-format */
- inform (_("Using file: %s"), cmd);
- return cmd;
- }
- /* Deduce the name of the program we are want to invoke.
- PROG_NAME is the basic name of the program we want to run,
- eg "as" or "ld". The catch is that we might want actually
- run "i386-pe-as".
- If argv[0] contains the full path, then try to find the program
- in the same place, with and then without a target-like prefix.
- Given, argv[0] = /usr/local/bin/i586-cygwin32-dlltool,
- deduce_name("as") uses the following search order:
- /usr/local/bin/i586-cygwin32-as
- /usr/local/bin/as
- as
- If there's an EXECUTABLE_SUFFIX, it'll use that as well; for each
- name, it'll try without and then with EXECUTABLE_SUFFIX.
- Given, argv[0] = i586-cygwin32-dlltool, it will not even try "as"
- as the fallback, but rather return i586-cygwin32-as.
- Oh, and given, argv[0] = dlltool, it'll return "as".
- Returns a dynamically allocated string. */
- static char *
- deduce_name (const char *prog_name)
- {
- char *cmd;
- char *dash, *slash, *cp;
- dash = NULL;
- slash = NULL;
- for (cp = program_name; *cp != '\0'; ++cp)
- {
- if (*cp == '-')
- dash = cp;
- if (
- #if defined(__DJGPP__) || defined (__CYGWIN__) || defined(__WIN32__)
- *cp == ':' || *cp == '\\' ||
- #endif
- *cp == '/')
- {
- slash = cp;
- dash = NULL;
- }
- }
- cmd = NULL;
- if (dash != NULL)
- {
- /* First, try looking for a prefixed PROG_NAME in the
- PROGRAM_NAME directory, with the same prefix as PROGRAM_NAME. */
- cmd = look_for_prog (prog_name, program_name, dash - program_name + 1);
- }
- if (slash != NULL && cmd == NULL)
- {
- /* Next, try looking for a PROG_NAME in the same directory as
- that of this program. */
- cmd = look_for_prog (prog_name, program_name, slash - program_name + 1);
- }
- if (cmd == NULL)
- {
- /* Just return PROG_NAME as is. */
- cmd = xstrdup (prog_name);
- }
- return cmd;
- }
- #ifdef DLLTOOL_MCORE_ELF
- typedef struct fname_cache
- {
- const char * filename;
- struct fname_cache * next;
- }
- fname_cache;
- static fname_cache fnames;
- static void
- mcore_elf_cache_filename (const char * filename)
- {
- fname_cache * ptr;
- ptr = & fnames;
- while (ptr->next != NULL)
- ptr = ptr->next;
- ptr->filename = filename;
- ptr->next = (fname_cache *) malloc (sizeof (fname_cache));
- if (ptr->next != NULL)
- ptr->next->next = NULL;
- }
- #define MCORE_ELF_TMP_OBJ "mcoreelf.o"
- #define MCORE_ELF_TMP_EXP "mcoreelf.exp"
- #define MCORE_ELF_TMP_LIB "mcoreelf.lib"
- static void
- mcore_elf_gen_out_file (void)
- {
- fname_cache * ptr;
- dyn_string_t ds;
- /* Step one. Run 'ld -r' on the input object files in order to resolve
- any internal references and to generate a single .exports section. */
- ptr = & fnames;
- ds = dyn_string_new (100);
- dyn_string_append_cstr (ds, "-r ");
- if (mcore_elf_linker_flags != NULL)
- dyn_string_append_cstr (ds, mcore_elf_linker_flags);
- while (ptr->next != NULL)
- {
- dyn_string_append_cstr (ds, ptr->filename);
- dyn_string_append_cstr (ds, " ");
- ptr = ptr->next;
- }
- dyn_string_append_cstr (ds, "-o ");
- dyn_string_append_cstr (ds, MCORE_ELF_TMP_OBJ);
- if (mcore_elf_linker == NULL)
- mcore_elf_linker = deduce_name ("ld");
- run (mcore_elf_linker, ds->s);
- dyn_string_delete (ds);
- /* Step two. Create a .exp file and a .lib file from the temporary file.
- Do this by recursively invoking dlltool... */
- ds = dyn_string_new (100);
- dyn_string_append_cstr (ds, "-S ");
- dyn_string_append_cstr (ds, as_name);
- dyn_string_append_cstr (ds, " -e ");
- dyn_string_append_cstr (ds, MCORE_ELF_TMP_EXP);
- dyn_string_append_cstr (ds, " -l ");
- dyn_string_append_cstr (ds, MCORE_ELF_TMP_LIB);
- dyn_string_append_cstr (ds, " " );
- dyn_string_append_cstr (ds, MCORE_ELF_TMP_OBJ);
- if (verbose)
- dyn_string_append_cstr (ds, " -v");
- if (dontdeltemps)
- {
- dyn_string_append_cstr (ds, " -n");
- if (dontdeltemps > 1)
- dyn_string_append_cstr (ds, " -n");
- }
- /* XXX - FIME: ought to check/copy other command line options as well. */
- run (program_name, ds->s);
- dyn_string_delete (ds);
- /* Step four. Feed the .exp and object files to ld -shared to create the dll. */
- ds = dyn_string_new (100);
- dyn_string_append_cstr (ds, "-shared ");
- if (mcore_elf_linker_flags)
- dyn_string_append_cstr (ds, mcore_elf_linker_flags);
- dyn_string_append_cstr (ds, " ");
- dyn_string_append_cstr (ds, MCORE_ELF_TMP_EXP);
- dyn_string_append_cstr (ds, " ");
- dyn_string_append_cstr (ds, MCORE_ELF_TMP_OBJ);
- dyn_string_append_cstr (ds, " -o ");
- dyn_string_append_cstr (ds, mcore_elf_out_file);
- run (mcore_elf_linker, ds->s);
- dyn_string_delete (ds);
- if (dontdeltemps == 0)
- unlink (MCORE_ELF_TMP_EXP);
- if (dontdeltemps < 2)
- unlink (MCORE_ELF_TMP_OBJ);
- }
- #endif /* DLLTOOL_MCORE_ELF */
|