123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899190019011902190319041905190619071908190919101911191219131914191519161917191819191920192119221923192419251926192719281929193019311932193319341935193619371938193919401941194219431944194519461947194819491950195119521953195419551956195719581959196019611962196319641965196619671968196919701971197219731974197519761977197819791980198119821983198419851986198719881989199019911992199319941995199619971998199920002001200220032004200520062007200820092010201120122013201420152016201720182019202020212022202320242025202620272028202920302031203220332034203520362037203820392040204120422043204420452046204720482049205020512052205320542055205620572058205920602061206220632064206520662067206820692070207120722073207420752076207720782079208020812082208320842085208620872088208920902091209220932094209520962097209820992100210121022103210421052106210721082109211021112112211321142115211621172118211921202121212221232124212521262127212821292130213121322133213421352136213721382139214021412142214321442145214621472148214921502151215221532154215521562157215821592160216121622163216421652166216721682169217021712172217321742175217621772178217921802181218221832184218521862187218821892190219121922193219421952196219721982199220022012202220322042205220622072208220922102211221222132214221522162217221822192220222122222223222422252226222722282229223022312232223322342235223622372238223922402241224222432244224522462247224822492250225122522253225422552256225722582259226022612262226322642265226622672268226922702271227222732274227522762277227822792280228122822283228422852286228722882289229022912292229322942295229622972298229923002301230223032304230523062307230823092310231123122313231423152316231723182319232023212322232323242325232623272328232923302331233223332334233523362337233823392340234123422343234423452346234723482349235023512352235323542355235623572358235923602361236223632364236523662367236823692370237123722373237423752376237723782379238023812382238323842385238623872388238923902391239223932394239523962397239823992400240124022403240424052406240724082409241024112412241324142415241624172418241924202421242224232424242524262427242824292430243124322433243424352436243724382439244024412442244324442445244624472448244924502451245224532454245524562457245824592460246124622463246424652466246724682469247024712472247324742475247624772478247924802481248224832484248524862487248824892490249124922493249424952496249724982499250025012502250325042505250625072508250925102511251225132514251525162517251825192520252125222523252425252526252725282529253025312532253325342535253625372538253925402541254225432544254525462547254825492550255125522553255425552556255725582559256025612562256325642565256625672568256925702571257225732574257525762577257825792580258125822583258425852586258725882589259025912592259325942595259625972598259926002601260226032604260526062607260826092610261126122613261426152616261726182619262026212622262326242625262626272628262926302631263226332634263526362637263826392640264126422643264426452646264726482649265026512652265326542655265626572658265926602661266226632664266526662667266826692670267126722673267426752676267726782679268026812682268326842685268626872688268926902691269226932694269526962697269826992700270127022703270427052706270727082709271027112712271327142715271627172718271927202721272227232724272527262727272827292730273127322733273427352736273727382739274027412742274327442745274627472748274927502751275227532754275527562757275827592760276127622763276427652766276727682769277027712772277327742775277627772778277927802781278227832784278527862787278827892790279127922793279427952796279727982799280028012802280328042805280628072808280928102811281228132814281528162817281828192820282128222823282428252826282728282829283028312832283328342835283628372838283928402841284228432844284528462847284828492850285128522853285428552856285728582859286028612862286328642865286628672868286928702871287228732874287528762877287828792880288128822883288428852886288728882889289028912892289328942895289628972898289929002901290229032904290529062907290829092910291129122913291429152916291729182919292029212922292329242925292629272928292929302931293229332934293529362937293829392940294129422943294429452946294729482949295029512952295329542955295629572958295929602961296229632964296529662967296829692970297129722973297429752976297729782979298029812982298329842985298629872988298929902991299229932994299529962997299829993000300130023003300430053006300730083009301030113012301330143015301630173018301930203021302230233024302530263027302830293030303130323033303430353036303730383039304030413042304330443045304630473048304930503051305230533054305530563057305830593060306130623063306430653066306730683069307030713072307330743075307630773078307930803081308230833084308530863087308830893090309130923093309430953096309730983099310031013102310331043105310631073108310931103111311231133114311531163117311831193120312131223123312431253126312731283129313031313132313331343135313631373138313931403141314231433144314531463147314831493150315131523153315431553156315731583159316031613162316331643165316631673168316931703171317231733174317531763177317831793180318131823183318431853186318731883189319031913192319331943195319631973198319932003201320232033204320532063207320832093210321132123213321432153216321732183219322032213222322332243225322632273228322932303231323232333234323532363237323832393240324132423243324432453246324732483249325032513252325332543255325632573258325932603261326232633264326532663267326832693270327132723273327432753276327732783279328032813282328332843285328632873288328932903291329232933294329532963297329832993300330133023303330433053306330733083309331033113312331333143315331633173318331933203321332233233324332533263327332833293330333133323333333433353336333733383339334033413342334333443345334633473348334933503351335233533354335533563357335833593360336133623363336433653366336733683369337033713372337333743375337633773378337933803381338233833384338533863387338833893390339133923393339433953396339733983399340034013402340334043405340634073408340934103411341234133414341534163417341834193420342134223423342434253426342734283429343034313432343334343435343634373438343934403441344234433444344534463447344834493450345134523453345434553456345734583459346034613462346334643465346634673468346934703471347234733474347534763477347834793480348134823483348434853486348734883489349034913492349334943495349634973498349935003501350235033504350535063507350835093510351135123513351435153516351735183519352035213522352335243525352635273528352935303531353235333534353535363537353835393540354135423543354435453546354735483549355035513552355335543555355635573558355935603561356235633564356535663567356835693570357135723573357435753576357735783579358035813582358335843585358635873588358935903591359235933594359535963597359835993600360136023603360436053606360736083609361036113612361336143615361636173618361936203621362236233624362536263627362836293630363136323633363436353636363736383639364036413642364336443645364636473648364936503651365236533654365536563657365836593660366136623663366436653666366736683669367036713672367336743675367636773678367936803681368236833684368536863687368836893690369136923693369436953696369736983699370037013702370337043705370637073708370937103711371237133714371537163717371837193720372137223723372437253726372737283729373037313732373337343735373637373738373937403741374237433744374537463747374837493750375137523753375437553756375737583759376037613762376337643765376637673768376937703771377237733774377537763777377837793780378137823783378437853786378737883789379037913792379337943795379637973798379938003801380238033804380538063807380838093810381138123813381438153816381738183819382038213822382338243825382638273828382938303831383238333834383538363837383838393840384138423843384438453846384738483849385038513852385338543855385638573858385938603861386238633864386538663867386838693870387138723873387438753876387738783879388038813882388338843885388638873888388938903891389238933894389538963897389838993900390139023903390439053906390739083909391039113912391339143915391639173918391939203921392239233924392539263927392839293930393139323933393439353936393739383939394039413942394339443945394639473948394939503951395239533954395539563957395839593960396139623963396439653966396739683969397039713972397339743975397639773978397939803981398239833984398539863987398839893990399139923993399439953996399739983999400040014002400340044005400640074008400940104011401240134014401540164017401840194020402140224023402440254026402740284029403040314032403340344035403640374038403940404041404240434044404540464047404840494050405140524053405440554056405740584059406040614062406340644065406640674068406940704071407240734074407540764077407840794080408140824083408440854086408740884089409040914092409340944095409640974098409941004101410241034104410541064107410841094110411141124113411441154116411741184119412041214122412341244125412641274128412941304131413241334134413541364137413841394140414141424143414441454146414741484149415041514152415341544155415641574158415941604161416241634164416541664167416841694170417141724173417441754176417741784179418041814182418341844185418641874188418941904191419241934194419541964197419841994200420142024203420442054206420742084209421042114212421342144215421642174218421942204221422242234224422542264227422842294230423142324233423442354236423742384239424042414242424342444245424642474248424942504251425242534254425542564257425842594260426142624263426442654266426742684269427042714272427342744275427642774278427942804281428242834284428542864287428842894290429142924293429442954296429742984299430043014302430343044305430643074308430943104311431243134314431543164317431843194320432143224323432443254326432743284329433043314332433343344335433643374338433943404341434243434344434543464347434843494350435143524353435443554356435743584359436043614362436343644365436643674368436943704371437243734374437543764377437843794380438143824383438443854386438743884389439043914392439343944395439643974398439944004401440244034404440544064407440844094410441144124413441444154416441744184419442044214422442344244425442644274428442944304431443244334434443544364437443844394440444144424443444444454446444744484449445044514452445344544455445644574458445944604461446244634464446544664467446844694470447144724473447444754476447744784479448044814482448344844485448644874488448944904491449244934494449544964497 |
- /* tc-m68hc11.c -- Assembler code for the Motorola 68HC11 & 68HC12.
- Copyright (C) 1999-2022 Free Software Foundation, Inc.
- Written by Stephane Carrez (stcarrez@nerim.fr)
- XGATE and S12X added by James Murray (jsm@jsm-net.demon.co.uk)
- This file is part of GAS, the GNU Assembler.
- GAS 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, or (at your option)
- any later version.
- GAS 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 GAS; see the file COPYING. If not, write to
- the Free Software Foundation, 51 Franklin Street - Fifth Floor,
- Boston, MA 02110-1301, USA. */
- #include "as.h"
- #include "safe-ctype.h"
- #include "subsegs.h"
- #include "opcode/m68hc11.h"
- #include "dwarf2dbg.h"
- #include "elf/m68hc11.h"
- const char comment_chars[] = ";!";
- const char line_comment_chars[] = "#*";
- const char line_separator_chars[] = "";
- const char EXP_CHARS[] = "eE";
- const char FLT_CHARS[] = "dD";
- #define STATE_CONDITIONAL_BRANCH (1)
- #define STATE_PC_RELATIVE (2)
- #define STATE_INDEXED_OFFSET (3)
- #define STATE_INDEXED_PCREL (4)
- #define STATE_XBCC_BRANCH (5)
- #define STATE_CONDITIONAL_BRANCH_6812 (6)
- #define STATE_BYTE (0)
- #define STATE_BITS5 (0)
- #define STATE_WORD (1)
- #define STATE_BITS9 (1)
- #define STATE_LONG (2)
- #define STATE_BITS16 (2)
- #define STATE_UNDF (3) /* Symbol undefined in pass1 */
- /* This macro has no side-effects. */
- #define ENCODE_RELAX(what,length) (((what) << 2) + (length))
- #define RELAX_STATE(s) ((s) >> 2)
- #define RELAX_LENGTH(s) ((s) & 3)
- #define IS_OPCODE(C1,C2) (((C1) & 0x0FF) == ((C2) & 0x0FF))
- /* This table describes how you change sizes for the various types of variable
- size expressions. This version only supports two kinds. */
- /* The fields are:
- How far Forward this mode will reach.
- How far Backward this mode will reach.
- How many bytes this mode will add to the size of the frag.
- Which mode to go to if the offset won't fit in this one. */
- relax_typeS md_relax_table[] =
- {
- {1, 1, 0, 0}, /* First entries aren't used. */
- {1, 1, 0, 0}, /* For no good reason except. */
- {1, 1, 0, 0}, /* that the VAX doesn't either. */
- {1, 1, 0, 0},
- /* Relax for bcc <L>.
- These insns are translated into b!cc +3 jmp L. */
- {(127), (-128), 0, ENCODE_RELAX (STATE_CONDITIONAL_BRANCH, STATE_WORD)},
- {0, 0, 3, 0},
- {1, 1, 0, 0},
- {1, 1, 0, 0},
- /* Relax for bsr <L> and bra <L>.
- These insns are translated into jsr and jmp. */
- {(127), (-128), 0, ENCODE_RELAX (STATE_PC_RELATIVE, STATE_WORD)},
- {0, 0, 1, 0},
- {1, 1, 0, 0},
- {1, 1, 0, 0},
- /* Relax for indexed offset: 5-bits, 9-bits, 16-bits. */
- {(15), (-16), 0, ENCODE_RELAX (STATE_INDEXED_OFFSET, STATE_BITS9)},
- {(255), (-256), 1, ENCODE_RELAX (STATE_INDEXED_OFFSET, STATE_BITS16)},
- {0, 0, 2, 0},
- {1, 1, 0, 0},
- /* Relax for PC relative offset: 5-bits, 9-bits, 16-bits.
- For the 9-bit case, there will be a -1 correction to take into
- account the new byte that's why the range is -255..256. */
- {(15), (-16), 0, ENCODE_RELAX (STATE_INDEXED_PCREL, STATE_BITS9)},
- {(256), (-255), 1, ENCODE_RELAX (STATE_INDEXED_PCREL, STATE_BITS16)},
- {0, 0, 2, 0},
- {1, 1, 0, 0},
- /* Relax for dbeq/ibeq/tbeq r,<L>:
- These insns are translated into db!cc +3 jmp L. */
- {(255), (-256), 0, ENCODE_RELAX (STATE_XBCC_BRANCH, STATE_WORD)},
- {0, 0, 3, 0},
- {1, 1, 0, 0},
- {1, 1, 0, 0},
- /* Relax for bcc <L> on 68HC12.
- These insns are translated into lbcc <L>. */
- {(127), (-128), 0, ENCODE_RELAX (STATE_CONDITIONAL_BRANCH_6812, STATE_WORD)},
- {0, 0, 2, 0},
- {1, 1, 0, 0},
- {1, 1, 0, 0},
- };
- /* 68HC11 and 68HC12 registers. They are numbered according to the 68HC12. */
- typedef enum register_id
- {
- REG_NONE = -1,
- REG_A = 0,
- REG_B = 1,
- REG_CCR = 2,
- REG_D = 4,
- REG_X = 5,
- REG_Y = 6,
- REG_SP = 7,
- REG_PC = 8,
- REG_R0 = 0,
- REG_R1 = 1,
- REG_R2 = 2,
- REG_R3 = 3,
- REG_R4 = 4,
- REG_R5 = 5,
- REG_R6 = 6,
- REG_R7 = 7,
- REG_SP_XG = 8,
- REG_PC_XG = 9,
- REG_CCR_XG = 10
- } register_id;
- typedef struct operand
- {
- expressionS exp;
- register_id reg1;
- register_id reg2;
- int mode;
- } operand;
- struct m68hc11_opcode_def
- {
- long format;
- int min_operands;
- int max_operands;
- int nb_modes;
- int used;
- struct m68hc11_opcode *opcode;
- };
- static struct m68hc11_opcode_def *m68hc11_opcode_defs = 0;
- static int m68hc11_nb_opcode_defs = 0;
- typedef struct alias
- {
- const char *name;
- const char *alias;
- } alias;
- static alias alias_opcodes[] =
- {
- {"cpd", "cmpd"},
- {"cpx", "cmpx"},
- {"cpy", "cmpy"},
- {0, 0}
- };
- struct m9s12xg_opcode_def
- {
- long format;
- int min_operands;
- int max_operands;
- int nb_modes;
- int used;
- struct m9s12xg_opcode *opcode;
- };
- /* Local functions. */
- static register_id reg_name_search (char *);
- static register_id register_name (void);
- static int cmp_opcode (struct m68hc11_opcode *, struct m68hc11_opcode *);
- static char *print_opcode_format (struct m68hc11_opcode *, int);
- static char *skip_whites (char *);
- static int check_range (long, int);
- static void print_opcode_list (void);
- static void get_default_target (void);
- static void print_insn_format (char *);
- static int get_operand (operand *, int, long);
- static void fixup8 (expressionS *, int, int);
- static void fixup16 (expressionS *, int, int);
- static void fixup24 (expressionS *, int, int);
- static void fixup8_xg (expressionS *, int, int);
- static unsigned char convert_branch (unsigned char);
- static char *m68hc11_new_insn (int);
- static void build_dbranch_insn (struct m68hc11_opcode *,
- operand *, int, int);
- static int build_indexed_byte (operand *, int, int);
- static int build_reg_mode (operand *, int);
- static struct m68hc11_opcode *find (struct m68hc11_opcode_def *,
- operand *, int);
- static struct m68hc11_opcode *find_opcode (struct m68hc11_opcode_def *,
- operand *, int *);
- static void build_jump_insn (struct m68hc11_opcode *, operand *, int, int);
- static void build_insn_xg (struct m68hc11_opcode *, operand *, int);
- static void build_insn (struct m68hc11_opcode *, operand *, int);
- static int relaxable_symbol (symbolS *);
- /* Pseudo op to indicate a relax group. */
- static void s_m68hc11_relax (int);
- /* Pseudo op to control the ELF flags. */
- static void s_m68hc11_mode (int);
- /* Process directives specified via pseudo ops. */
- static void s_m68hc11_parse_pseudo_instruction (int);
- /* Mark the symbols with STO_M68HC12_FAR to indicate the functions
- are using 'rtc' for returning. It is necessary to use 'call'
- to invoke them. This is also used by the debugger to correctly
- find the stack frame. */
- static void s_m68hc11_mark_symbol (int);
- /* Controls whether relative branches can be turned into long branches.
- When the relative offset is too large, the insn are changed:
- bra -> jmp
- bsr -> jsr
- bcc -> b!cc +3
- jmp L
- dbcc -> db!cc +3
- jmp L
- Setting the flag forbids this. */
- static short flag_fixed_branches = 0;
- /* Force to use long jumps (absolute) instead of relative branches. */
- static short flag_force_long_jumps = 0;
- /* Change the direct addressing mode into an absolute addressing mode
- when the insn does not support direct addressing.
- For example, "clr *ZD0" is normally not possible and is changed
- into "clr ZDO". */
- static short flag_strict_direct_addressing = 1;
- /* When an opcode has invalid operand, print out the syntax of the opcode
- to stderr. */
- static short flag_print_insn_syntax = 0;
- /* Dumps the list of instructions with syntax and then exit:
- 1 -> Only dumps the list (sorted by name)
- 2 -> Generate an example (or test) that can be compiled. */
- static short flag_print_opcodes = 0;
- /* Opcode hash table. */
- static htab_t m68hc11_hash;
- /* Current cpu (either cpu6811 or cpu6812). This is determined automagically
- by 'get_default_target' by looking at default BFD vector. This is overridden
- with the -m<cpu> option. */
- static int current_architecture = 0;
- /* Default cpu determined by 'get_default_target'. */
- static const char *default_cpu;
- /* Number of opcodes in the sorted table (filtered by current cpu). */
- static int num_opcodes;
- /* The opcodes sorted by name and filtered by current cpu. */
- static struct m68hc11_opcode *m68hc11_sorted_opcodes;
- /* ELF flags to set in the output file header. */
- static int elf_flags = E_M68HC11_F64;
- /* These are the machine dependent pseudo-ops. These are included so
- the assembler can work on the output from the SUN C compiler, which
- generates these. */
- /* This table describes all the machine specific pseudo-ops the assembler
- has to support. The fields are:
- pseudo-op name without dot
- function to call to execute this pseudo-op
- Integer arg to pass to the function. */
- const pseudo_typeS md_pseudo_table[] =
- {
- /* The following pseudo-ops are supported for MRI compatibility. */
- {"fcb", cons, 1},
- {"fdb", cons, 2},
- {"fqb", cons, 4},
- {"fcc", stringer, 8 + 1},
- {"rmb", s_space, 0},
- /* Motorola ALIS. */
- {"xrefb", s_ignore, 0}, /* Same as xref */
- /* Gcc driven relaxation. */
- {"relax", s_m68hc11_relax, 0},
- /* .mode instruction (ala SH). */
- {"mode", s_m68hc11_mode, 0},
- /* .far instruction. */
- {"far", s_m68hc11_mark_symbol, STO_M68HC12_FAR},
- /* .interrupt instruction. */
- {"interrupt", s_m68hc11_mark_symbol, STO_M68HC12_INTERRUPT},
- /* .nobankwarning instruction. */
- {"nobankwarning", s_m68hc11_parse_pseudo_instruction, E_M68HC11_NO_BANK_WARNING},
- {0, 0, 0}
- };
- /* Options and initialization. */
- const char *md_shortopts = "Sm:";
- struct option md_longopts[] =
- {
- #define OPTION_FORCE_LONG_BRANCH (OPTION_MD_BASE)
- {"force-long-branches", no_argument, NULL, OPTION_FORCE_LONG_BRANCH},
- {"force-long-branchs", no_argument, NULL, OPTION_FORCE_LONG_BRANCH}, /* Misspelled version kept for backwards compatibility. */
- #define OPTION_SHORT_BRANCHES (OPTION_MD_BASE + 1)
- {"short-branches", no_argument, NULL, OPTION_SHORT_BRANCHES},
- {"short-branchs", no_argument, NULL, OPTION_SHORT_BRANCHES}, /* Misspelled version kept for backwards compatibility. */
- #define OPTION_STRICT_DIRECT_MODE (OPTION_MD_BASE + 2)
- {"strict-direct-mode", no_argument, NULL, OPTION_STRICT_DIRECT_MODE},
- #define OPTION_PRINT_INSN_SYNTAX (OPTION_MD_BASE + 3)
- {"print-insn-syntax", no_argument, NULL, OPTION_PRINT_INSN_SYNTAX},
- #define OPTION_PRINT_OPCODES (OPTION_MD_BASE + 4)
- {"print-opcodes", no_argument, NULL, OPTION_PRINT_OPCODES},
- #define OPTION_GENERATE_EXAMPLE (OPTION_MD_BASE + 5)
- {"generate-example", no_argument, NULL, OPTION_GENERATE_EXAMPLE},
- #define OPTION_MSHORT (OPTION_MD_BASE + 6)
- {"mshort", no_argument, NULL, OPTION_MSHORT},
- #define OPTION_MLONG (OPTION_MD_BASE + 7)
- {"mlong", no_argument, NULL, OPTION_MLONG},
- #define OPTION_MSHORT_DOUBLE (OPTION_MD_BASE + 8)
- {"mshort-double", no_argument, NULL, OPTION_MSHORT_DOUBLE},
- #define OPTION_MLONG_DOUBLE (OPTION_MD_BASE + 9)
- {"mlong-double", no_argument, NULL, OPTION_MLONG_DOUBLE},
- #define OPTION_XGATE_RAMOFFSET (OPTION_MD_BASE + 10)
- {"xgate-ramoffset", no_argument, NULL, OPTION_XGATE_RAMOFFSET},
- {NULL, no_argument, NULL, 0}
- };
- size_t md_longopts_size = sizeof (md_longopts);
- /* Get the target cpu for the assembler. This is based on the configure
- options and on the -m68hc11/-m68hc12 option. If no option is specified,
- we must get the default. */
- const char *
- m68hc11_arch_format (void)
- {
- get_default_target ();
- if (current_architecture & cpu6811)
- return "elf32-m68hc11";
- else
- return "elf32-m68hc12";
- }
- enum bfd_architecture
- m68hc11_arch (void)
- {
- get_default_target ();
- if (current_architecture & cpu6811)
- return bfd_arch_m68hc11;
- else
- return bfd_arch_m68hc12;
- }
- int
- m68hc11_mach (void)
- {
- return 0;
- }
- /* Listing header selected according to cpu. */
- const char *
- m68hc11_listing_header (void)
- {
- if (current_architecture & cpu6811)
- return "M68HC11 GAS ";
- else if (current_architecture & cpuxgate)
- return "XGATE GAS ";
- else if (current_architecture & cpu9s12x)
- return "S12X GAS ";
- else
- return "M68HC12 GAS ";
- }
- void
- md_show_usage (FILE *stream)
- {
- get_default_target ();
- fprintf (stream, _("\
- Motorola 68HC11/68HC12/68HCS12 options:\n\
- -m68hc11 | -m68hc12 |\n\
- -m68hcs12 | -mm9s12x |\n\
- -mm9s12xg specify the processor [default %s]\n\
- -mshort use 16-bit int ABI (default)\n\
- -mlong use 32-bit int ABI\n\
- -mshort-double use 32-bit double ABI\n\
- -mlong-double use 64-bit double ABI (default)\n\
- --force-long-branches always turn relative branches into absolute ones\n\
- -S,--short-branches do not turn relative branches into absolute ones\n\
- when the offset is out of range\n\
- --strict-direct-mode do not turn the direct mode into extended mode\n\
- when the instruction does not support direct mode\n\
- --print-insn-syntax print the syntax of instruction in case of error\n\
- --print-opcodes print the list of instructions with syntax\n\
- --xgate-ramoffset offset ram addresses by 0xc000\n\
- --generate-example generate an example of each instruction\n\
- (used for testing)\n"), default_cpu);
- }
- /* Try to identify the default target based on the BFD library. */
- static void
- get_default_target (void)
- {
- const bfd_target *target;
- bfd abfd;
- if (current_architecture != 0)
- return;
- default_cpu = "unknown";
- target = bfd_find_target (0, &abfd);
- if (target && target->name)
- {
- if (strcmp (target->name, "elf32-m68hc12") == 0)
- {
- current_architecture = cpu6812;
- default_cpu = "m68hc12";
- }
- else if (strcmp (target->name, "elf32-m68hc11") == 0)
- {
- current_architecture = cpu6811;
- default_cpu = "m68hc11";
- }
- else
- {
- as_bad (_("Default target `%s' is not supported."), target->name);
- }
- }
- }
- void
- m68hc11_print_statistics (FILE *file)
- {
- int i;
- struct m68hc11_opcode_def *opc;
- htab_print_statistics (file, "opcode table", m68hc11_hash);
- opc = m68hc11_opcode_defs;
- if (opc == 0 || m68hc11_nb_opcode_defs == 0)
- return;
- /* Dump the opcode statistics table. */
- fprintf (file, _("Name # Modes Min ops Max ops Modes mask # Used\n"));
- for (i = 0; i < m68hc11_nb_opcode_defs; i++, opc++)
- {
- fprintf (file, "%-7.7s %5d %7d %7d 0x%08lx %7d\n",
- opc->opcode->name,
- opc->nb_modes,
- opc->min_operands, opc->max_operands, opc->format, opc->used);
- }
- }
- int
- md_parse_option (int c, const char *arg)
- {
- get_default_target ();
- switch (c)
- {
- /* -S means keep external to 2 bit offset rather than 16 bit one. */
- case OPTION_SHORT_BRANCHES:
- case 'S':
- flag_fixed_branches = 1;
- break;
- case OPTION_FORCE_LONG_BRANCH:
- flag_force_long_jumps = 1;
- break;
- case OPTION_PRINT_INSN_SYNTAX:
- flag_print_insn_syntax = 1;
- break;
- case OPTION_PRINT_OPCODES:
- flag_print_opcodes = 1;
- break;
- case OPTION_STRICT_DIRECT_MODE:
- flag_strict_direct_addressing = 0;
- break;
- case OPTION_GENERATE_EXAMPLE:
- flag_print_opcodes = 2;
- break;
- case OPTION_MSHORT:
- elf_flags &= ~E_M68HC11_I32;
- break;
- case OPTION_MLONG:
- elf_flags |= E_M68HC11_I32;
- break;
- case OPTION_MSHORT_DOUBLE:
- elf_flags &= ~E_M68HC11_F64;
- break;
- case OPTION_MLONG_DOUBLE:
- elf_flags |= E_M68HC11_F64;
- break;
- case OPTION_XGATE_RAMOFFSET:
- elf_flags |= E_M68HC11_XGATE_RAMOFFSET;
- break;
- case 'm':
- if ((strcasecmp (arg, "68hc11") == 0)
- || (strcasecmp (arg, "m68hc11") == 0))
- current_architecture = cpu6811;
- else if ((strcasecmp (arg, "68hc12") == 0)
- || (strcasecmp (arg, "m68hc12") == 0))
- current_architecture = cpu6812;
- else if ((strcasecmp (arg, "68hcs12") == 0)
- || (strcasecmp (arg, "m68hcs12") == 0))
- current_architecture = cpu6812 | cpu6812s;
- else if (strcasecmp (arg, "m9s12x") == 0)
- current_architecture = cpu6812 | cpu6812s | cpu9s12x;
- else if ((strcasecmp (arg, "m9s12xg") == 0)
- || (strcasecmp (arg, "xgate") == 0))
- /* xgate for backwards compatibility */
- current_architecture = cpuxgate;
- else
- as_bad (_("Option `%s' is not recognized."), arg);
- break;
- default:
- return 0;
- }
- return 1;
- }
- symbolS *
- md_undefined_symbol (char *name ATTRIBUTE_UNUSED)
- {
- return 0;
- }
- const char *
- md_atof (int type, char *litP, int *sizeP)
- {
- return ieee_md_atof (type, litP, sizeP, true);
- }
- valueT
- md_section_align (asection *seg, valueT addr)
- {
- int align = bfd_section_alignment (seg);
- return ((addr + (1 << align) - 1) & -(1 << align));
- }
- static int
- cmp_opcode (struct m68hc11_opcode *op1, struct m68hc11_opcode *op2)
- {
- return strcmp (op1->name, op2->name);
- }
- #define IS_CALL_SYMBOL(MODE) \
- (((MODE) & (M6812_OP_PAGE|M6811_OP_IND16)) \
- == ((M6812_OP_PAGE|M6811_OP_IND16)))
- /* Initialize the assembler. Create the opcode hash table
- (sorted on the names) with the M6811 opcode table
- (from opcode library). */
- void
- md_begin (void)
- {
- const char *prev_name = "";
- struct m68hc11_opcode *opcodes;
- struct m68hc11_opcode_def *opc = 0;
- int i, j;
- get_default_target ();
- m68hc11_hash = str_htab_create ();
- /* Get a writable copy of the opcode table and sort it on the names. */
- opcodes = XNEWVEC (struct m68hc11_opcode, m68hc11_num_opcodes);
- m68hc11_sorted_opcodes = opcodes;
- num_opcodes = 0;
- for (i = 0; i < m68hc11_num_opcodes; i++)
- {
- if (m68hc11_opcodes[i].arch & current_architecture)
- {
- opcodes[num_opcodes] = m68hc11_opcodes[i];
- if (opcodes[num_opcodes].name[0] == 'b'
- && opcodes[num_opcodes].format & M6811_OP_JUMP_REL
- && !(opcodes[num_opcodes].format & M6811_OP_BITMASK))
- {
- num_opcodes++;
- opcodes[num_opcodes] = m68hc11_opcodes[i];
- }
- num_opcodes++;
- for (j = 0; alias_opcodes[j].name != 0; j++)
- if (strcmp (m68hc11_opcodes[i].name, alias_opcodes[j].name) == 0)
- {
- opcodes[num_opcodes] = m68hc11_opcodes[i];
- opcodes[num_opcodes].name = alias_opcodes[j].alias;
- num_opcodes++;
- break;
- }
- }
- }
- qsort (opcodes, num_opcodes, sizeof (struct m68hc11_opcode),
- (int (*) (const void*, const void*)) cmp_opcode);
- opc = XNEWVEC (struct m68hc11_opcode_def, num_opcodes);
- m68hc11_opcode_defs = opc--;
- /* Insert unique names into hash table. The M6811 instruction set
- has several identical opcode names that have different opcodes based
- on the operands. This hash table then provides a quick index to
- the first opcode with a particular name in the opcode table. */
- for (i = 0; i < num_opcodes; i++, opcodes++)
- {
- int expect;
- if (strcmp (prev_name, opcodes->name))
- {
- prev_name = (char *) opcodes->name;
- opc++;
- opc->format = 0;
- opc->min_operands = 100;
- opc->max_operands = 0;
- opc->nb_modes = 0;
- opc->opcode = opcodes;
- opc->used = 0;
- str_hash_insert (m68hc11_hash, opcodes->name, opc, 0);
- }
- opc->nb_modes++;
- opc->format |= opcodes->format;
- /* See how many operands this opcode needs. */
- expect = 0;
- if (opcodes->arch == cpuxgate)
- {
- if (opcodes->format & (M68XG_OP_IMM3 | M68XG_OP_R | M68XG_OP_REL9
- | M68XG_OP_REL10 ))
- expect = 1;
- else if (opcodes->format & (M68XG_OP_R_R | M68XG_OP_R_IMM4
- | M68XG_OP_R_IMM8 | M68XG_OP_R_IMM8))
- expect = 2;
- else if (opcodes->format & (M68XG_OP_R_R_R | M68XG_OP_R_R_OFFS5
- | M68XG_OP_RD_RB_RI | M68XG_OP_RD_RB_RIp
- | M68XG_OP_RD_RB_mRI))
- expect = 3;
- }
- else
- {
- if (opcodes->format & M6811_OP_MASK)
- expect++;
- if (opcodes->format & M6811_OP_BITMASK)
- expect++;
- if (opcodes->format & (M6811_OP_JUMP_REL | M6812_OP_JUMP_REL16))
- expect++;
- if (opcodes->format & (M6812_OP_IND16_P2 | M6812_OP_IDX_P2))
- expect++;
- /* Special case for call instruction. */
- if ((opcodes->format & M6812_OP_PAGE)
- && !(opcodes->format & M6811_OP_IND16))
- expect++;
- }
- if (expect < opc->min_operands)
- opc->min_operands = expect;
- if (IS_CALL_SYMBOL (opcodes->format))
- expect++;
- if (expect > opc->max_operands)
- opc->max_operands = expect;
- }
- opc++;
- m68hc11_nb_opcode_defs = opc - m68hc11_opcode_defs;
- if (flag_print_opcodes)
- {
- print_opcode_list ();
- exit (EXIT_SUCCESS);
- }
- }
- void
- m68hc11_init_after_args (void)
- {
- }
- /* Builtin help. */
- /* Return a string that represents the operand format for the instruction.
- When example is true, this generates an example of operand. This is used
- to give an example and also to generate a test. */
- static char *
- print_opcode_format (struct m68hc11_opcode *opcode, int example)
- {
- static char buf[128];
- int format = opcode->format;
- char *p;
- p = buf;
- buf[0] = 0;
- if (current_architecture == cpuxgate)
- {
- if (format & M68XG_OP_IMM3)
- {
- if (example)
- sprintf (p, "#%d", rand () & 0x007);
- else
- strcpy (p, _("imm3"));
- p = &p[strlen (p)];
- }
- else if (format & M68XG_OP_R)
- {
- if (example)
- sprintf (p, "R%d", rand () & 0x07);
- else
- strcpy (p, _("RD"));
- p = &p[strlen (p)];
- }
- else if (format & M68XG_OP_R_R)
- {
- if (example)
- sprintf (p, "R%d,R%d", rand () & 0x07, rand () & 0x07);
- else
- strcpy (p, _("RD,RS"));
- p = &p[strlen (p)];
- }
- else if (format & M68XG_OP_R_IMM4)
- {
- if (example)
- sprintf (p, "R%d,#%d", rand () & 0x07, rand () & 0x0f);
- else
- strcpy (p, _("RI, #imm4"));
- p = &p[strlen (p)];
- }
- else if (format & M68XG_OP_R_R_R)
- {
- if (example)
- sprintf (p, "R%d,R%d,R%d", rand () & 0x07, rand () & 0x07, rand () & 0x07);
- else
- strcpy (p, "RD,RS1,RS2");
- p = &p[strlen (p)];
- }
- else if (format & M68XG_OP_REL9)
- {
- if (example)
- sprintf (p, "%d", rand () & 0x1FF);
- else
- strcpy (p, "<rel9>");
- p = &p[strlen (p)];
- }
- else if (format & M68XG_OP_REL10)
- {
- if (example)
- sprintf (p, "%d", rand () & 0x3FF);
- else
- strcpy (p, "<rel10>");
- p = &p[strlen (p)];
- }
- else if (format & M68XG_OP_R_R_OFFS5)
- {
- if (example)
- sprintf (p, "R%d, (R%d, #0x%x)", rand () & 0x07, rand () & 0x07, rand () & 0x1f);
- else
- strcpy (p, _("RD, (RI,#offs5)"));
- p = &p[strlen (p)];
- }
- else if (format & M68XG_OP_RD_RB_RI)
- {
- if (example)
- sprintf (p, "R%d, (R%d, R%d)", rand () & 0x07, rand () & 0x07, rand () & 0x07);
- else
- strcpy (p, "RD, (RB, RI)");
- p = &p[strlen (p)];
- }
- else if (format & M68XG_OP_RD_RB_RIp)
- {
- if (example)
- sprintf (p, "R%d, (R%d, R%d+)", rand () & 0x07, rand () & 0x07, rand () & 0x07);
- else
- strcpy (p, "RD, (RB, RI+)");
- p = &p[strlen (p)];
- }
- else if (format & M68XG_OP_RD_RB_mRI)
- {
- if (example)
- sprintf (p, "R%d, (R%d, -R%d)", rand () & 0x07, rand () & 0x07, rand () & 0x07);
- else
- strcpy (p, "RD, (RB, -RI)");
- p = &p[strlen (p)];
- }
- else if (format & M68XG_OP_R_IMM8)
- {
- if (example)
- sprintf (p, "R%d, #0x%x", rand () & 0x07, rand () & 0xff);
- else
- strcpy (p, "RD, #imm8");
- p = &p[strlen (p)];
- }
- else if (format & M68XG_OP_R_IMM16)
- {
- if (example)
- sprintf (p, "R%d, #0x%x", rand () & 0x07, rand () & 0xffff);
- else
- strcpy (p, "RD, #imm16");
- p = &p[strlen (p)];
- }
- }
- else
- {
- if (format & M6811_OP_IMM8)
- {
- if (example)
- sprintf (p, "#%d", rand () & 0x0FF);
- else
- strcpy (p, _("#<imm8>"));
- p = &p[strlen (p)];
- }
- if (format & M6811_OP_IMM16)
- {
- if (example)
- sprintf (p, "#%d", rand () & 0x0FFFF);
- else
- strcpy (p, _("#<imm16>"));
- p = &p[strlen (p)];
- }
- if (format & M6811_OP_IX)
- {
- if (example)
- sprintf (p, "%d,X", rand () & 0x0FF);
- else
- strcpy (p, _("<imm8>,X"));
- p = &p[strlen (p)];
- }
- if (format & M6811_OP_IY)
- {
- if (example)
- sprintf (p, "%d,X", rand () & 0x0FF);
- else
- strcpy (p, _("<imm8>,X"));
- p = &p[strlen (p)];
- }
- if (format & M6812_OP_IDX)
- {
- if (example)
- sprintf (p, "%d,X", rand () & 0x0FF);
- else
- strcpy (p, "n,r");
- p = &p[strlen (p)];
- }
- if (format & M6812_OP_PAGE)
- {
- if (example)
- sprintf (p, ", %d", rand () & 0x0FF);
- else
- strcpy (p, ", <page>");
- p = &p[strlen (p)];
- }
- if (format & M6811_OP_DIRECT)
- {
- if (example)
- sprintf (p, "*Z%d", rand () & 0x0FF);
- else
- strcpy (p, _("*<abs8>"));
- p = &p[strlen (p)];
- }
- if (format & M6811_OP_BITMASK)
- {
- if (buf[0])
- *p++ = ' ';
- if (example)
- sprintf (p, "#$%02x", rand () & 0x0FF);
- else
- strcpy (p, _("#<mask>"));
- p = &p[strlen (p)];
- if (format & M6811_OP_JUMP_REL)
- *p++ = ' ';
- }
- if (format & M6811_OP_IND16)
- {
- if (example)
- sprintf (p, _("symbol%d"), rand () & 0x0FF);
- else
- strcpy (p, _("<abs>"));
- p = &p[strlen (p)];
- }
- if (format & (M6811_OP_JUMP_REL | M6812_OP_JUMP_REL16))
- {
- if (example)
- {
- if (format & M6811_OP_BITMASK)
- {
- sprintf (p, ".+%d", rand () & 0x7F);
- }
- else
- {
- sprintf (p, "L%d", rand () & 0x0FF);
- }
- }
- else
- strcpy (p, _("<label>"));
- }
- }
- return buf;
- }
- /* Prints the list of instructions with the possible operands. */
- static void
- print_opcode_list (void)
- {
- int i;
- const char *prev_name = "";
- struct m68hc11_opcode *opcodes;
- int example = flag_print_opcodes == 2;
- if (example)
- printf (_("# Example of `%s' instructions\n\t.sect .text\n_start:\n"),
- default_cpu);
- opcodes = m68hc11_sorted_opcodes;
- /* Walk the list sorted on names (by md_begin). We only report
- one instruction per line, and we collect the different operand
- formats. */
- for (i = 0; i < num_opcodes; i++, opcodes++)
- {
- char *fmt = print_opcode_format (opcodes, example);
- if (example)
- {
- printf ("L%d:\t", i);
- printf ("%s %s\n", opcodes->name, fmt);
- }
- else
- {
- if (strcmp (prev_name, opcodes->name))
- {
- if (i > 0)
- printf ("\n");
- printf ("%-5.5s ", opcodes->name);
- prev_name = (char *) opcodes->name;
- }
- if (fmt[0])
- printf (" [%s]", fmt);
- }
- }
- printf ("\n");
- }
- /* Print the instruction format. This operation is called when some
- instruction is not correct. Instruction format is printed as an
- error message. */
- static void
- print_insn_format (char *name)
- {
- struct m68hc11_opcode_def *opc;
- struct m68hc11_opcode *opcode;
- char buf[128];
- opc = (struct m68hc11_opcode_def *) str_hash_find (m68hc11_hash, name);
- if (opc == NULL)
- {
- as_bad (_("Instruction `%s' is not recognized."), name);
- return;
- }
- opcode = opc->opcode;
- as_bad (_("Instruction formats for `%s':"), name);
- do
- {
- char *fmt;
- fmt = print_opcode_format (opcode, 0);
- sprintf (buf, "\t%-5.5s %s", opcode->name, fmt);
- as_bad ("%s", buf);
- opcode++;
- }
- while (strcmp (opcode->name, name) == 0);
- }
- /* Analysis of 68HC11 and 68HC12 operands. */
- /* reg_name_search() finds the register number given its name.
- Returns the register number or REG_NONE on failure. */
- static register_id
- reg_name_search (char *name)
- {
- if (strcasecmp (name, "x") == 0 || strcasecmp (name, "ix") == 0)
- return REG_X;
- if (strcasecmp (name, "y") == 0 || strcasecmp (name, "iy") == 0)
- return REG_Y;
- if (strcasecmp (name, "a") == 0)
- return REG_A;
- if (strcasecmp (name, "b") == 0)
- return REG_B;
- if (strcasecmp (name, "d") == 0)
- return REG_D;
- if (strcasecmp (name, "sp") == 0)
- return REG_SP;
- if (strcasecmp (name, "pc") == 0)
- return REG_PC;
- if (strcasecmp (name, "ccr") == 0)
- return REG_CCR;
- /* XGATE */
- if (strcasecmp (name, "r0") == 0)
- return REG_R0;
- if (strcasecmp (name, "r1") == 0)
- return REG_R1;
- if (strcasecmp (name, "r2") == 0)
- return REG_R2;
- if (strcasecmp (name, "r3") == 0)
- return REG_R3;
- if (strcasecmp (name, "r4") == 0)
- return REG_R4;
- if (strcasecmp (name, "r5") == 0)
- return REG_R5;
- if (strcasecmp (name, "r6") == 0)
- return REG_R6;
- if (strcasecmp (name, "r7") == 0)
- return REG_R7;
- if (strcasecmp (name, "sp") == 0)
- return REG_SP_XG;
- if (strcasecmp (name, "pc") == 0)
- return REG_PC_XG;
- if (strcasecmp (name, "ccr") == 0)
- return REG_CCR_XG;
- return REG_NONE;
- }
- static char *
- skip_whites (char *p)
- {
- while (*p == ' ' || *p == '\t')
- p++;
- return p;
- }
- /* Check the string at input_line_pointer
- to see if it is a valid register name. */
- static register_id
- register_name (void)
- {
- register_id reg_number;
- char c, *p = input_line_pointer;
- if (!is_name_beginner (*p++))
- return REG_NONE;
- while (is_part_of_name (*p++))
- continue;
- c = *--p;
- if (c)
- *p++ = 0;
- /* Look to see if it's in the register table. */
- reg_number = reg_name_search (input_line_pointer);
- if (reg_number != REG_NONE)
- {
- if (c)
- *--p = c;
- input_line_pointer = p;
- return reg_number;
- }
- if (c)
- *--p = c;
- return reg_number;
- }
- #define M6811_OP_CALL_ADDR 0x00800000
- #define M6811_OP_PAGE_ADDR 0x04000000
- /* Parse a string of operands and return an array of expressions.
- Operand mode[0] mode[1] exp[0] exp[1]
- #n M6811_OP_IMM16 - O_*
- *<exp> M6811_OP_DIRECT - O_*
- .{+-}<exp> M6811_OP_JUMP_REL - O_*
- <exp> M6811_OP_IND16 - O_*
- ,r N,r M6812_OP_IDX M6812_OP_REG O_constant O_register
- n,-r M6812_PRE_DEC M6812_OP_REG O_constant O_register
- n,+r M6812_PRE_INC " "
- n,r- M6812_POST_DEC " "
- n,r+ M6812_POST_INC " "
- A,r B,r D,r M6811_OP_REG M6812_OP_REG O_register O_register
- [D,r] M6811_OP_D_IDX M6812_OP_REG O_register O_register
- [n,r] M6811_OP_D_IDX_2 M6812_OP_REG O_constant O_register */
- static int
- get_operand (operand *oper, int which, long opmode)
- {
- char *p = input_line_pointer;
- int mode;
- register_id reg;
- oper->exp.X_op = O_absent;
- oper->reg1 = REG_NONE;
- oper->reg2 = REG_NONE;
- mode = M6811_OP_NONE;
- p = skip_whites (p);
- if (*p == 0 || *p == '\n' || *p == '\r')
- {
- input_line_pointer = p;
- return 0;
- }
- if (*p == '*' && (opmode & (M6811_OP_DIRECT | M6811_OP_IND16)))
- {
- mode = M6811_OP_DIRECT;
- p++;
- }
- else if (*p == '#')
- {
- if (!(opmode & (M6811_OP_IMM8 | M6811_OP_IMM16 | M6811_OP_BITMASK)))
- {
- as_bad (_("Immediate operand is not allowed for operand %d."),
- which);
- return -1;
- }
- mode = M6811_OP_IMM16;
- p++;
- if (startswith (p, "%hi"))
- {
- p += 3;
- mode |= M6811_OP_HIGH_ADDR;
- }
- else if (startswith (p, "%lo"))
- {
- p += 3;
- mode |= M6811_OP_LOW_ADDR;
- }
- /* %page modifier is used to obtain only the page number
- of the address of a function. */
- else if (startswith (p, "%page"))
- {
- p += 5;
- mode |= M6811_OP_PAGE_ADDR;
- }
- /* %addr modifier is used to obtain the physical address part
- of the function (16-bit). For 68HC12 the function will be
- mapped in the 16K window at 0x8000 and the value will be
- within that window (although the function address may not fit
- in 16-bit). See bfd/elf32-m68hc12.c for the translation. */
- else if (startswith (p, "%addr"))
- {
- p += 5;
- mode |= M6811_OP_CALL_ADDR;
- }
- }
- else if (*p == '.' && (p[1] == '+' || p[1] == '-'))
- {
- p++;
- mode = M6811_OP_JUMP_REL;
- }
- else if (*p == '[')
- {
- if (current_architecture & cpu6811)
- as_bad (_("Indirect indexed addressing is not valid for 68HC11."));
- p++;
- mode = M6812_OP_D_IDX;
- p = skip_whites (p);
- }
- else if (*p == ',') /* Special handling of ,x and ,y. */
- {
- p++;
- input_line_pointer = p;
- reg = register_name ();
- if (reg != REG_NONE)
- {
- oper->reg1 = reg;
- oper->exp.X_op = O_constant;
- oper->exp.X_add_number = 0;
- oper->mode = M6812_OP_IDX;
- return 1;
- }
- as_bad (_("Spurious `,' or bad indirect register addressing mode."));
- return -1;
- }
- /* Handle 68HC12 page specification in 'call foo,%page(bar)'. */
- else if ((opmode & M6812_OP_PAGE) && startswith (p, "%page"))
- {
- p += 5;
- mode = M6811_OP_PAGE_ADDR | M6812_OP_PAGE | M6811_OP_IND16;
- }
- input_line_pointer = p;
- if (mode == M6811_OP_NONE || mode == M6812_OP_D_IDX)
- reg = register_name ();
- else
- reg = REG_NONE;
- if (reg != REG_NONE)
- {
- p = skip_whites (input_line_pointer);
- if (*p == ']' && mode == M6812_OP_D_IDX)
- {
- as_bad
- (_("Missing second register or offset for indexed-indirect mode."));
- return -1;
- }
- oper->reg1 = reg;
- oper->mode = mode | M6812_OP_REG;
- if (*p != ',')
- {
- if (mode == M6812_OP_D_IDX)
- {
- as_bad (_("Missing second register for indexed-indirect mode."));
- return -1;
- }
- return 1;
- }
- p++;
- input_line_pointer = p;
- reg = register_name ();
- if (reg != REG_NONE)
- {
- p = skip_whites (input_line_pointer);
- if (mode == M6812_OP_D_IDX)
- {
- if (*p != ']')
- {
- as_bad (_("Missing `]' to close indexed-indirect mode."));
- return -1;
- }
- p++;
- oper->mode = M6812_OP_D_IDX;
- }
- input_line_pointer = p;
- oper->reg2 = reg;
- return 1;
- }
- return 1;
- }
- /* In MRI mode, isolate the operand because we can't distinguish
- operands from comments. */
- if (flag_mri)
- {
- char c = 0;
- p = skip_whites (p);
- while (*p && *p != ' ' && *p != '\t')
- p++;
- if (*p)
- {
- c = *p;
- *p = 0;
- }
- /* Parse as an expression. */
- expression (&oper->exp);
- if (c)
- {
- *p = c;
- }
- }
- else
- {
- expression (&oper->exp);
- }
- if (oper->exp.X_op == O_illegal)
- {
- as_bad (_("Illegal operand."));
- return -1;
- }
- else if (oper->exp.X_op == O_absent)
- {
- as_bad (_("Missing operand."));
- return -1;
- }
- p = input_line_pointer;
- if (mode == M6811_OP_NONE || mode == M6811_OP_DIRECT
- || mode == M6812_OP_D_IDX)
- {
- p = skip_whites (input_line_pointer);
- if (*p == ',')
- {
- int possible_mode = M6811_OP_NONE;
- char *old_input_line;
- old_input_line = p;
- p++;
- /* 68HC12 pre increment or decrement. */
- if (mode == M6811_OP_NONE)
- {
- if (*p == '-')
- {
- possible_mode = M6812_PRE_DEC;
- p++;
- }
- else if (*p == '+')
- {
- possible_mode = M6812_PRE_INC;
- p++;
- }
- p = skip_whites (p);
- }
- input_line_pointer = p;
- reg = register_name ();
- /* Backtrack if we have a valid constant expression and
- it does not correspond to the offset of the 68HC12 indexed
- addressing mode (as in N,x). */
- if (reg == REG_NONE && mode == M6811_OP_NONE
- && possible_mode != M6811_OP_NONE)
- {
- oper->mode = M6811_OP_IND16 | M6811_OP_JUMP_REL;
- input_line_pointer = skip_whites (old_input_line);
- return 1;
- }
- if (possible_mode != M6811_OP_NONE)
- mode = possible_mode;
- if ((current_architecture & cpu6811)
- && possible_mode != M6811_OP_NONE)
- as_bad (_("Pre-increment mode is not valid for 68HC11"));
- /* Backtrack. */
- if (which == 0 && opmode & M6812_OP_IDX_P2
- && reg != REG_X && reg != REG_Y
- && reg != REG_PC && reg != REG_SP)
- {
- reg = REG_NONE;
- input_line_pointer = p;
- }
- if (reg == REG_NONE && mode != M6811_OP_DIRECT
- && !(mode == M6811_OP_NONE && opmode & M6811_OP_IND16))
- {
- as_bad (_("Wrong register in register indirect mode."));
- return -1;
- }
- if (mode == M6812_OP_D_IDX)
- {
- p = skip_whites (input_line_pointer);
- if (*p++ != ']')
- {
- as_bad (_("Missing `]' to close register indirect operand."));
- return -1;
- }
- input_line_pointer = p;
- oper->reg1 = reg;
- oper->mode = M6812_OP_D_IDX_2;
- return 1;
- }
- if (reg != REG_NONE)
- {
- oper->reg1 = reg;
- if (mode == M6811_OP_NONE)
- {
- p = input_line_pointer;
- if (*p == '-')
- {
- mode = M6812_POST_DEC;
- p++;
- if (current_architecture & cpu6811)
- as_bad
- (_("Post-decrement mode is not valid for 68HC11."));
- }
- else if (*p == '+')
- {
- mode = M6812_POST_INC;
- p++;
- if (current_architecture & cpu6811)
- as_bad
- (_("Post-increment mode is not valid for 68HC11."));
- }
- else
- mode = M6812_OP_IDX;
- input_line_pointer = p;
- }
- else
- mode |= M6812_OP_IDX;
- oper->mode = mode;
- return 1;
- }
- input_line_pointer = old_input_line;
- }
- if (mode == M6812_OP_D_IDX_2)
- {
- as_bad (_("Invalid indexed indirect mode."));
- return -1;
- }
- }
- /* If the mode is not known until now, this is either a label
- or an indirect address. */
- if (mode == M6811_OP_NONE)
- mode = M6811_OP_IND16 | M6811_OP_JUMP_REL;
- p = input_line_pointer;
- while (*p == ' ' || *p == '\t')
- p++;
- input_line_pointer = p;
- oper->mode = mode;
- return 1;
- }
- #define M6812_AUTO_INC_DEC (M6812_PRE_INC | M6812_PRE_DEC \
- | M6812_POST_INC | M6812_POST_DEC)
- /* Checks that the number 'num' fits for a given mode. */
- static int
- check_range (long num, int mode)
- {
- if (current_architecture == cpuxgate)
- {
- switch (mode)
- {
- case M68XG_OP_IMM3:
- return (num >= 0 && num <= 7) ? 1 : 0;
- case M68XG_OP_R_IMM4:
- return (num >= 0 && num <= 15) ? 1 : 0;
- case M68XG_OP_R_R_OFFS5:
- return (num >= 0 && num <= 31) ? 1 : 0;
- case M68XG_OP_R_IMM8:
- return (num >= 0 && num <= 255) ? 1 : 0;
- case M68XG_OP_R_IMM16:
- return (num >= 0 && num <= 65535) ? 1 : 0;
- case M68XG_OP_B_MARKER:
- return (num >= -512 && num <= 511) ? 1 : 0;
- case M68XG_OP_BRA_MARKER:
- return (num >= -1024 && num <= 1023) ? 1 : 0;
- default:
- return 0;
- }
- }
- else
- {
- /* Auto increment and decrement are ok for [-8..8] without 0. */
- if (mode & M6812_AUTO_INC_DEC)
- return (num != 0 && num <= 8 && num >= -8);
- /* The 68HC12 supports 5, 9 and 16-bit offsets. */
- if (mode & (M6812_INDEXED_IND | M6812_INDEXED | M6812_OP_IDX))
- mode = M6811_OP_IND16;
- if (mode & M6812_OP_JUMP_REL16)
- mode = M6811_OP_IND16;
- mode &= ~M6811_OP_BRANCH;
- switch (mode)
- {
- case M6811_OP_IX:
- case M6811_OP_IY:
- case M6811_OP_DIRECT:
- return (num >= 0 && num <= 255) ? 1 : 0;
- case M6811_OP_BITMASK:
- case M6811_OP_IMM8:
- case M6812_OP_PAGE:
- return (((num & 0xFFFFFF00) == 0) || ((num & 0xFFFFFF00) == 0xFFFFFF00))
- ? 1 : 0;
- case M6811_OP_JUMP_REL:
- return (num >= -128 && num <= 127) ? 1 : 0;
- case M6811_OP_IND16:
- case M6811_OP_IND16 | M6812_OP_PAGE:
- case M6811_OP_IMM16:
- return (((num & 0xFFFF0000) == 0) || ((num & 0xFFFF0000) == 0xFFFF0000))
- ? 1 : 0;
- case M6812_OP_IBCC_MARKER:
- case M6812_OP_TBCC_MARKER:
- case M6812_OP_DBCC_MARKER:
- return (num >= -256 && num <= 255) ? 1 : 0;
- case M6812_OP_TRAP_ID:
- return ((num >= 0x30 && num <= 0x39)
- || (num >= 0x40 && num <= 0x0ff)) ? 1 : 0;
- default:
- return 0;
- }
- }
- }
- /* Gas fixup generation. */
- /* Put a 1 byte expression described by 'oper'. If this expression contains
- unresolved symbols, generate an 8-bit fixup. */
- static void
- fixup8 (expressionS *oper, int mode, int opmode)
- {
- char *f;
- f = frag_more (1);
- if (oper->X_op == O_constant)
- {
- if (mode & M6812_OP_TRAP_ID
- && !check_range (oper->X_add_number, M6812_OP_TRAP_ID))
- {
- static char trap_id_warn_once = 0;
- as_bad (_("Trap id `%ld' is out of range."), oper->X_add_number);
- if (trap_id_warn_once == 0)
- {
- trap_id_warn_once = 1;
- as_bad (_("Trap id must be within [0x30..0x39] or [0x40..0xff]."));
- }
- }
- if (!(mode & M6812_OP_TRAP_ID)
- && !check_range (oper->X_add_number, mode))
- {
- as_bad (_("Operand out of 8-bit range: `%ld'."), oper->X_add_number);
- }
- number_to_chars_bigendian (f, oper->X_add_number & 0x0FF, 1);
- }
- else if (oper->X_op != O_register)
- {
- if (mode & M6812_OP_TRAP_ID)
- as_bad (_("The trap id must be a constant."));
- if (mode == M6811_OP_JUMP_REL)
- {
- fix_new_exp (frag_now, f - frag_now->fr_literal, 1,
- oper, true, BFD_RELOC_8_PCREL);
- }
- else
- {
- fixS *fixp;
- bfd_reloc_code_real_type reloc;
- /* Now create an 8-bit fixup. If there was some %hi, %lo
- or %page modifier, generate the reloc accordingly. */
- if (opmode & M6811_OP_HIGH_ADDR)
- reloc = BFD_RELOC_M68HC11_HI8;
- else if (opmode & M6811_OP_LOW_ADDR)
- reloc = BFD_RELOC_M68HC11_LO8;
- else if (opmode & M6811_OP_PAGE_ADDR)
- reloc = BFD_RELOC_M68HC11_PAGE;
- else
- reloc = BFD_RELOC_8;
- fixp = fix_new_exp (frag_now, f - frag_now->fr_literal, 1,
- oper, false, reloc);
- if (reloc != BFD_RELOC_8)
- fixp->fx_no_overflow = 1;
- }
- number_to_chars_bigendian (f, 0, 1);
- }
- else
- {
- as_fatal (_("Operand `%x' not recognized in fixup8."), oper->X_op);
- }
- }
- /* Put a 2 byte expression described by 'oper'. If this expression contains
- unresolved symbols, generate a 16-bit fixup. */
- static void
- fixup16 (expressionS *oper, int mode, int opmode ATTRIBUTE_UNUSED)
- {
- char *f;
- f = frag_more (2);
- if (oper->X_op == O_constant)
- {
- if (!check_range (oper->X_add_number, mode))
- {
- as_bad (_("Operand out of 16-bit range: `%ld'."),
- oper->X_add_number);
- }
- number_to_chars_bigendian (f, oper->X_add_number & 0x0FFFF, 2);
- }
- else if (oper->X_op != O_register)
- {
- fixS *fixp;
- bfd_reloc_code_real_type reloc;
- if ((opmode & M6811_OP_CALL_ADDR) && (mode & M6811_OP_IMM16))
- reloc = BFD_RELOC_M68HC11_LO16;
- else if (mode & M6812_OP_JUMP_REL16)
- reloc = BFD_RELOC_16_PCREL;
- else if (mode & M6812_OP_PAGE)
- reloc = BFD_RELOC_M68HC11_LO16;
- else
- reloc = BFD_RELOC_16;
- /* Now create a 16-bit fixup. */
- fixp = fix_new_exp (frag_now, f - frag_now->fr_literal, 2,
- oper,
- reloc == BFD_RELOC_16_PCREL,
- reloc);
- number_to_chars_bigendian (f, 0, 2);
- if (reloc == BFD_RELOC_M68HC11_LO16)
- fixp->fx_no_overflow = 1;
- }
- else
- {
- as_fatal (_("Operand `%x' not recognized in fixup16."), oper->X_op);
- }
- }
- /* Put a 3 byte expression described by 'oper'. If this expression contains
- unresolved symbols, generate a 24-bit fixup. */
- static void
- fixup24 (expressionS *oper, int mode, int opmode ATTRIBUTE_UNUSED)
- {
- char *f;
- f = frag_more (3);
- if (oper->X_op == O_constant)
- {
- if (!check_range (oper->X_add_number, mode))
- {
- as_bad (_("Operand out of 16-bit range: `%ld'."),
- oper->X_add_number);
- }
- number_to_chars_bigendian (f, oper->X_add_number & 0x0FFFFFF, 3);
- }
- else if (oper->X_op != O_register)
- {
- /* Now create a 24-bit fixup. */
- fix_new_exp (frag_now, f - frag_now->fr_literal, 3,
- oper, false, BFD_RELOC_M68HC11_24);
- number_to_chars_bigendian (f, 0, 3);
- }
- else
- {
- as_fatal (_("Operand `%x' not recognized in fixup16."), oper->X_op);
- }
- }
- /* XGATE Put a 1 byte expression described by 'oper'. If this expression
- contains unresolved symbols, generate an 8-bit fixup. */
- static void
- fixup8_xg (expressionS *oper, int mode, int opmode)
- {
- char *f;
- f = frag_more (1);
- if (oper->X_op == O_constant)
- {
- fixS *fixp;
- bfd_reloc_code_real_type reloc;
- if ((opmode & M6811_OP_HIGH_ADDR) || (opmode & M6811_OP_LOW_ADDR))
- {
- if (opmode & M6811_OP_HIGH_ADDR)
- reloc = BFD_RELOC_M68HC11_HI8;
- else
- reloc = BFD_RELOC_M68HC11_LO8;
- fixp = fix_new_exp (frag_now, f - frag_now->fr_literal, 1,
- oper, false, reloc);
- fixp->fx_no_overflow = 1;
- number_to_chars_bigendian (f, 0, 1);
- }
- else
- {
- if (!(check_range (oper->X_add_number, mode)))
- as_bad (_("Operand out of 8-bit range: `%ld'."),
- oper->X_add_number);
- number_to_chars_bigendian (f, oper->X_add_number & 0x0FF, 1);
- }
- }
- else if (oper->X_op != O_register)
- {
- if (mode == M68XG_OP_REL9)
- {
- /* Future improvement:
- This fixup/reloc isn't adding on constants to symbols. */
- fix_new_exp (frag_now, f - frag_now->fr_literal -1, 2,
- oper, true, BFD_RELOC_M68HC12_9_PCREL);
- }
- else if (mode == M68XG_OP_REL10)
- {
- /* Future improvement:
- This fixup/reloc isn't adding on constants to symbols. */
- fix_new_exp (frag_now, f - frag_now->fr_literal -1, 2,
- oper, true, BFD_RELOC_M68HC12_10_PCREL);
- }
- else
- {
- fixS *fixp;
- bfd_reloc_code_real_type reloc;
- /* Now create an 8-bit fixup. If there was some %hi, %lo
- modifier, generate the reloc accordingly. */
- if (opmode & M6811_OP_HIGH_ADDR)
- reloc = BFD_RELOC_M68HC11_HI8;
- else if (opmode & M6811_OP_LOW_ADDR)
- reloc = BFD_RELOC_M68HC11_LO8;
- else
- reloc = BFD_RELOC_8;
- fixp = fix_new_exp (frag_now, f - frag_now->fr_literal, 1,
- oper, false, reloc);
- if (reloc != BFD_RELOC_8)
- fixp->fx_no_overflow = 1;
- }
- number_to_chars_bigendian (f, 0, 1);
- }
- else
- as_fatal (_("Operand `%x' not recognized in fixup8."), oper->X_op);
- }
- /* 68HC11 and 68HC12 code generation. */
- /* Translate the short branch/bsr instruction into a long branch. */
- static unsigned char
- convert_branch (unsigned char code)
- {
- if (IS_OPCODE (code, M6812_BSR))
- return M6812_JSR;
- else if (IS_OPCODE (code, M6811_BSR))
- return M6811_JSR;
- else if (IS_OPCODE (code, M6811_BRA))
- return (current_architecture & cpu6812) ? M6812_JMP : M6811_JMP;
- else
- as_fatal (_("Unexpected branch conversion with `%x'"), code);
- /* Keep gcc happy. */
- return M6811_JSR;
- }
- /* Start a new insn that contains at least 'size' bytes. Record the
- line information of that insn in the dwarf2 debug sections. */
- static char *
- m68hc11_new_insn (int size)
- {
- char *f;
- f = frag_more (size);
- dwarf2_emit_insn (size);
- return f;
- }
- /* Builds a jump instruction (bra, bcc, bsr). */
- static void
- build_jump_insn (struct m68hc11_opcode *opcode, operand operands[],
- int nb_operands, int jmp_mode)
- {
- unsigned char code;
- char *f;
- unsigned long n;
- /* The relative branch conversion is not supported for
- brclr and brset. */
- gas_assert ((opcode->format & M6811_OP_BITMASK) == 0);
- gas_assert (nb_operands == 1);
- gas_assert (operands[0].reg1 == REG_NONE && operands[0].reg2 == REG_NONE);
- code = opcode->opcode;
- n = operands[0].exp.X_add_number;
- /* Turn into a long branch:
- - when force long branch option (and not for jbcc pseudos),
- - when jbcc and the constant is out of -128..127 range,
- - when branch optimization is allowed and branch out of range. */
- if ((jmp_mode == 0 && flag_force_long_jumps)
- || (operands[0].exp.X_op == O_constant
- && (!check_range (n, opcode->format) &&
- (jmp_mode == 1 || flag_fixed_branches == 0))))
- {
- fix_new (frag_now, frag_now_fix (), 0,
- &abs_symbol, 0, 1, BFD_RELOC_M68HC11_RL_JUMP);
- if (code == M6811_BSR || code == M6811_BRA || code == M6812_BSR)
- {
- code = convert_branch (code);
- f = m68hc11_new_insn (1);
- number_to_chars_bigendian (f, code, 1);
- }
- else if (current_architecture & cpu6812)
- {
- /* 68HC12: translate the bcc into a lbcc. */
- f = m68hc11_new_insn (2);
- number_to_chars_bigendian (f, M6811_OPCODE_PAGE2, 1);
- number_to_chars_bigendian (f + 1, code, 1);
- fixup16 (&operands[0].exp, M6812_OP_JUMP_REL16,
- M6812_OP_JUMP_REL16);
- return;
- }
- else
- {
- /* 68HC11: translate the bcc into b!cc +3; jmp <L>. */
- f = m68hc11_new_insn (3);
- code ^= 1;
- number_to_chars_bigendian (f, code, 1);
- number_to_chars_bigendian (f + 1, 3, 1);
- number_to_chars_bigendian (f + 2, M6811_JMP, 1);
- }
- fixup16 (&operands[0].exp, M6811_OP_IND16, M6811_OP_IND16);
- return;
- }
- /* Branch with a constant that must fit in 8-bits. */
- if (operands[0].exp.X_op == O_constant)
- {
- if (!check_range (n, opcode->format))
- {
- as_bad (_("Operand out of range for a relative branch: `%ld'"),
- n);
- }
- else if (opcode->format & M6812_OP_JUMP_REL16)
- {
- f = m68hc11_new_insn (4);
- number_to_chars_bigendian (f, M6811_OPCODE_PAGE2, 1);
- number_to_chars_bigendian (f + 1, code, 1);
- number_to_chars_bigendian (f + 2, n & 0x0ffff, 2);
- }
- else
- {
- f = m68hc11_new_insn (2);
- number_to_chars_bigendian (f, code, 1);
- number_to_chars_bigendian (f + 1, n & 0x0FF, 1);
- }
- }
- else if (opcode->format & M6812_OP_JUMP_REL16)
- {
- fix_new (frag_now, frag_now_fix (), 0,
- &abs_symbol, 0, 1, BFD_RELOC_M68HC11_RL_JUMP);
- f = m68hc11_new_insn (2);
- number_to_chars_bigendian (f, M6811_OPCODE_PAGE2, 1);
- number_to_chars_bigendian (f + 1, code, 1);
- fixup16 (&operands[0].exp, M6812_OP_JUMP_REL16, M6812_OP_JUMP_REL16);
- }
- else
- {
- char *op;
- fix_new (frag_now, frag_now_fix (), 0,
- &abs_symbol, 0, 1, BFD_RELOC_M68HC11_RL_JUMP);
- /* Branch offset must fit in 8-bits, don't do some relax. */
- if (jmp_mode == 0 && flag_fixed_branches)
- {
- op = m68hc11_new_insn (1);
- number_to_chars_bigendian (op, code, 1);
- fixup8 (&operands[0].exp, M6811_OP_JUMP_REL, M6811_OP_JUMP_REL);
- }
- /* bra/bsr made be changed into jmp/jsr. */
- else if (code == M6811_BSR || code == M6811_BRA || code == M6812_BSR)
- {
- /* Allocate worst case storage. */
- op = m68hc11_new_insn (3);
- number_to_chars_bigendian (op, code, 1);
- number_to_chars_bigendian (op + 1, 0, 1);
- frag_variant (rs_machine_dependent, 1, 1,
- ENCODE_RELAX (STATE_PC_RELATIVE, STATE_UNDF),
- operands[0].exp.X_add_symbol, (offsetT) n,
- op);
- }
- else if (current_architecture & cpu6812)
- {
- op = m68hc11_new_insn (2);
- number_to_chars_bigendian (op, code, 1);
- number_to_chars_bigendian (op + 1, 0, 1);
- frag_var (rs_machine_dependent, 2, 2,
- ENCODE_RELAX (STATE_CONDITIONAL_BRANCH_6812, STATE_UNDF),
- operands[0].exp.X_add_symbol, (offsetT) n, op);
- }
- else
- {
- op = m68hc11_new_insn (2);
- number_to_chars_bigendian (op, code, 1);
- number_to_chars_bigendian (op + 1, 0, 1);
- frag_var (rs_machine_dependent, 3, 3,
- ENCODE_RELAX (STATE_CONDITIONAL_BRANCH, STATE_UNDF),
- operands[0].exp.X_add_symbol, (offsetT) n, op);
- }
- }
- }
- /* Builds a dbne/dbeq/tbne/tbeq instruction. */
- static void
- build_dbranch_insn (struct m68hc11_opcode *opcode, operand operands[],
- int nb_operands, int jmp_mode)
- {
- unsigned char code;
- char *f;
- unsigned long n;
- /* The relative branch conversion is not supported for
- brclr and brset. */
- gas_assert ((opcode->format & M6811_OP_BITMASK) == 0);
- gas_assert (nb_operands == 2);
- gas_assert (operands[0].reg1 != REG_NONE);
- code = opcode->opcode & 0x0FF;
- f = m68hc11_new_insn (1);
- number_to_chars_bigendian (f, code, 1);
- n = operands[1].exp.X_add_number;
- code = operands[0].reg1;
- if (operands[0].reg1 == REG_NONE || operands[0].reg1 == REG_CCR
- || operands[0].reg1 == REG_PC)
- as_bad (_("Invalid register for dbcc/tbcc instruction."));
- if (opcode->format & M6812_OP_IBCC_MARKER)
- code |= 0x80;
- else if (opcode->format & M6812_OP_TBCC_MARKER)
- code |= 0x40;
- if (!(opcode->format & M6812_OP_EQ_MARKER))
- code |= 0x20;
- /* Turn into a long branch:
- - when force long branch option (and not for jbcc pseudos),
- - when jdbcc and the constant is out of -256..255 range,
- - when branch optimization is allowed and branch out of range. */
- if ((jmp_mode == 0 && flag_force_long_jumps)
- || (operands[1].exp.X_op == O_constant
- && (!check_range (n, M6812_OP_IBCC_MARKER) &&
- (jmp_mode == 1 || flag_fixed_branches == 0))))
- {
- f = frag_more (2);
- code ^= 0x20;
- number_to_chars_bigendian (f, code, 1);
- number_to_chars_bigendian (f + 1, M6812_JMP, 1);
- fixup16 (&operands[0].exp, M6811_OP_IND16, M6811_OP_IND16);
- return;
- }
- /* Branch with a constant that must fit in 9-bits. */
- if (operands[1].exp.X_op == O_constant)
- {
- if (!check_range (n, M6812_OP_IBCC_MARKER))
- {
- as_bad (_("Operand out of range for a relative branch: `%ld'"),
- n);
- }
- else
- {
- if ((long) n < 0)
- code |= 0x10;
- f = frag_more (2);
- number_to_chars_bigendian (f, code, 1);
- number_to_chars_bigendian (f + 1, n & 0x0FF, 1);
- }
- }
- else
- {
- /* Branch offset must fit in 8-bits, don't do some relax. */
- if (jmp_mode == 0 && flag_fixed_branches)
- {
- fixup8 (&operands[0].exp, M6811_OP_JUMP_REL, M6811_OP_JUMP_REL);
- }
- else
- {
- f = frag_more (2);
- number_to_chars_bigendian (f, code, 1);
- number_to_chars_bigendian (f + 1, 0, 1);
- frag_var (rs_machine_dependent, 3, 3,
- ENCODE_RELAX (STATE_XBCC_BRANCH, STATE_UNDF),
- operands[1].exp.X_add_symbol, (offsetT) n, f);
- }
- }
- }
- #define OP_EXTENDED (M6811_OP_PAGE2 | M6811_OP_PAGE3 | M6811_OP_PAGE4)
- /* Assemble the post index byte for 68HC12 extended addressing modes. */
- static int
- build_indexed_byte (operand *op, int format ATTRIBUTE_UNUSED, int move_insn)
- {
- unsigned char byte = 0;
- char *f;
- int mode;
- long val;
- val = op->exp.X_add_number;
- mode = op->mode;
- if (mode & M6812_AUTO_INC_DEC)
- {
- byte = 0x20;
- if (mode & (M6812_POST_INC | M6812_POST_DEC))
- byte |= 0x10;
- if (op->exp.X_op == O_constant)
- {
- if (!check_range (val, mode))
- as_bad (_("Increment/decrement value is out of range: `%ld'."),
- val);
- if (mode & (M6812_POST_INC | M6812_PRE_INC))
- byte |= (val - 1) & 0x07;
- else
- byte |= (8 - ((val) & 7)) | 0x8;
- }
- switch (op->reg1)
- {
- case REG_NONE:
- as_fatal (_("Expecting a register."));
- case REG_X:
- byte |= 0;
- break;
- case REG_Y:
- byte |= 0x40;
- break;
- case REG_SP:
- byte |= 0x80;
- break;
- default:
- as_bad (_("Invalid register for post/pre increment."));
- break;
- }
- f = frag_more (1);
- number_to_chars_bigendian (f, byte, 1);
- return 1;
- }
- if (mode & (M6812_OP_IDX | M6812_OP_D_IDX_2))
- {
- switch (op->reg1)
- {
- case REG_X:
- byte = 0;
- break;
- case REG_Y:
- byte = 1;
- break;
- case REG_SP:
- byte = 2;
- break;
- case REG_PC:
- byte = 3;
- break;
- default:
- as_bad (_("Invalid register."));
- break;
- }
- if (op->exp.X_op == O_constant)
- {
- if (!check_range (val, M6812_OP_IDX))
- as_bad (_("Offset out of 16-bit range: %ld."), val);
- if (move_insn && !(val >= -16 && val <= 15)
- && ((!(mode & M6812_OP_IDX) && !(mode & M6812_OP_D_IDX_2))
- || !(current_architecture & cpu9s12x)))
- {
- as_bad (_("Offset out of 5-bit range for movw/movb insn: %ld."),
- val);
- return -1;
- }
- if (val >= -16 && val <= 15 && !(mode & M6812_OP_D_IDX_2))
- {
- byte = byte << 6;
- byte |= val & 0x1f;
- f = frag_more (1);
- number_to_chars_bigendian (f, byte, 1);
- return 1;
- }
- else if (val >= -256 && val <= 255 && !(mode & M6812_OP_D_IDX_2))
- {
- byte = byte << 3;
- byte |= 0xe0;
- if (val < 0)
- byte |= 0x1;
- f = frag_more (2);
- number_to_chars_bigendian (f, byte, 1);
- number_to_chars_bigendian (f + 1, val & 0x0FF, 1);
- return 2;
- }
- else
- {
- byte = byte << 3;
- if (mode & M6812_OP_D_IDX_2)
- byte |= 0xe3;
- else
- byte |= 0xe2;
- f = frag_more (3);
- number_to_chars_bigendian (f, byte, 1);
- number_to_chars_bigendian (f + 1, val & 0x0FFFF, 2);
- return 3;
- }
- }
- if (mode & M6812_OP_D_IDX_2)
- {
- byte = (byte << 3) | 0xe3;
- f = frag_more (1);
- number_to_chars_bigendian (f, byte, 1);
- fixup16 (&op->exp, 0, 0);
- }
- else if (op->reg1 != REG_PC)
- {
- symbolS *sym;
- offsetT off;
- f = frag_more (1);
- number_to_chars_bigendian (f, byte, 1);
- sym = op->exp.X_add_symbol;
- off = op->exp.X_add_number;
- if (op->exp.X_op != O_symbol)
- {
- sym = make_expr_symbol (&op->exp);
- off = 0;
- }
- /* movb/movw cannot be relaxed. */
- if (move_insn)
- {
- if ((mode & M6812_OP_IDX) && (current_architecture & cpu9s12x))
- {
- /* Must treat as a 16bit relocate as size of final result is unknown. */
- byte <<= 3;
- byte |= 0xe2;
- number_to_chars_bigendian (f, byte, 1);
- f = frag_more (2);
- fix_new (frag_now, f - frag_now->fr_literal, 2,
- sym, off, 0, BFD_RELOC_M68HC12_16B);
- return 1;
- }
- else
- {
- /* Non-S12X will fail at relocate stage if offset out of range. */
- byte <<= 6;
- number_to_chars_bigendian (f, byte, 1);
- fix_new (frag_now, f - frag_now->fr_literal, 1,
- sym, off, 0, BFD_RELOC_M68HC12_5B);
- return 1;
- }
- }
- else
- {
- number_to_chars_bigendian (f, byte, 1);
- frag_var (rs_machine_dependent, 2, 2,
- ENCODE_RELAX (STATE_INDEXED_OFFSET, STATE_UNDF),
- sym, off, f);
- }
- }
- else
- {
- f = frag_more (1);
- /* movb/movw cannot be relaxed. */
- if (move_insn)
- {
- byte <<= 6;
- number_to_chars_bigendian (f, byte, 1);
- fix_new (frag_now, f - frag_now->fr_literal, 1,
- op->exp.X_add_symbol, op->exp.X_add_number, 0, BFD_RELOC_M68HC12_5B);
- return 1;
- }
- else
- {
- number_to_chars_bigendian (f, byte, 1);
- frag_var (rs_machine_dependent, 2, 2,
- ENCODE_RELAX (STATE_INDEXED_PCREL, STATE_UNDF),
- op->exp.X_add_symbol,
- op->exp.X_add_number, f);
- }
- }
- return 3;
- }
- if (mode & (M6812_OP_REG | M6812_OP_D_IDX))
- {
- if (mode & M6812_OP_D_IDX)
- {
- if (op->reg1 != REG_D)
- as_bad (_("Expecting register D for indexed indirect mode."));
- if ((move_insn) && (!(current_architecture & cpu9s12x)))
- as_bad (_("Indexed indirect mode is not allowed for movb/movw."));
- byte = 0xE7;
- }
- else
- {
- switch (op->reg1)
- {
- case REG_A:
- byte = 0xE4;
- break;
- case REG_B:
- byte = 0xE5;
- break;
- default:
- as_bad (_("Invalid accumulator register."));
- /* Fall through. */
- case REG_D:
- byte = 0xE6;
- break;
- }
- }
- switch (op->reg2)
- {
- case REG_X:
- break;
- case REG_Y:
- byte |= (1 << 3);
- break;
- case REG_SP:
- byte |= (2 << 3);
- break;
- case REG_PC:
- byte |= (3 << 3);
- break;
- default:
- as_bad (_("Invalid indexed register."));
- break;
- }
- f = frag_more (1);
- number_to_chars_bigendian (f, byte, 1);
- return 1;
- }
- fprintf (stderr, "mode = 0x%x\nop->reg1 = 0x%x\nop->reg2 = 0x%x\n",
- mode, op->reg1, op->reg2);
- as_fatal (_("Addressing mode not implemented yet."));
- return 0;
- }
- /* Assemble the 68HC12 register mode byte. */
- static int
- build_reg_mode (operand *op, int format)
- {
- unsigned char byte;
- char *f;
- if ((format & M6812_OP_SEX_MARKER)
- && (op->reg1 != REG_A) && (op->reg1 != REG_B) && (op->reg1 != REG_CCR)
- && (!(current_architecture & cpu9s12x)))
- as_bad (_("Invalid source register for this instruction, use 'tfr'."));
- else if (op->reg1 == REG_NONE || op->reg1 == REG_PC)
- as_bad (_("Invalid source register."));
- if (format & M6812_OP_SEX_MARKER
- && op->reg2 != REG_D
- && op->reg2 != REG_X && op->reg2 != REG_Y && op->reg2 != REG_SP)
- as_bad (_("Invalid destination register for this instruction, use 'tfr'."));
- else if (op->reg2 == REG_NONE || op->reg2 == REG_PC)
- as_bad (_("Invalid destination register."));
- byte = (op->reg1 << 4) | (op->reg2);
- if (format & M6812_OP_EXG_MARKER)
- byte |= 0x80;
- if ((format & M6812_OP_SEX_MARKER)
- && (op->reg1 == REG_D) && (current_architecture & cpu9s12x))
- byte |= 0x08;
- f = frag_more (1);
- number_to_chars_bigendian (f, byte, 1);
- return 1;
- }
- /* build_insn_xg takes a pointer to the opcode entry in the opcode table,
- the array of operand expressions and builds the corresponding instruction. */
- static void
- build_insn_xg (struct m68hc11_opcode *opcode,
- operand operands[],
- int nb_operands ATTRIBUTE_UNUSED)
- {
- char *f;
- long format;
- /* Put the page code instruction if there is one. */
- format = opcode->format;
- if (!(operands[0].mode & (M6811_OP_LOW_ADDR | M6811_OP_HIGH_ADDR)))
- /* Need to retain those two modes, but clear for others. */
- operands[0].mode = 0;
- if (format & M68XG_OP_R_IMM8)
- {
- /* These opcodes are byte followed by imm8. */
- f = m68hc11_new_insn (1);
- number_to_chars_bigendian (f, opcode->opcode >> 8, 1);
- fixup8_xg (&operands[0].exp, format, operands[0].mode);
- }
- else if (format & M68XG_OP_R_IMM16)
- {
- fixS *fixp;
- /* These opcodes expand into two imm8 instructions.
- Emit as low:high as per the Freescale datasheet.
- The linker requires them to be adjacent to handle the upper byte. */
- /* Build low byte. */
- f = m68hc11_new_insn (1);
- number_to_chars_bigendian (f, opcode->opcode >> 8, 1);
- operands[0].mode = M6811_OP_LOW_ADDR;
- f = frag_more (1);
- fixp = fix_new_exp (frag_now, f - frag_now->fr_literal, 1,
- &operands[0].exp, false, BFD_RELOC_M68HC12_LO8XG);
- fixp->fx_no_overflow = 1;
- number_to_chars_bigendian (f, 0, 1);
- /* Build high byte. */
- f = m68hc11_new_insn (1);
- number_to_chars_bigendian (f, (opcode->opcode >> 8) | 0x08, 1);
- operands[0].mode = M6811_OP_HIGH_ADDR;
- f = frag_more (1);
- fixp = fix_new_exp (frag_now, f - frag_now->fr_literal, 1,
- &operands[0].exp, false, BFD_RELOC_M68HC12_HI8XG);
- fixp->fx_no_overflow = 1;
- number_to_chars_bigendian (f, 0, 1);
- }
- else if (format & M68XG_OP_REL9)
- {
- f = m68hc11_new_insn (1);
- number_to_chars_bigendian (f, opcode->opcode >> 8, 1); /* High byte. */
- fixup8_xg (&operands[0].exp, format, M68XG_OP_REL9);
- }
- else if (format & M68XG_OP_REL10)
- {
- f = m68hc11_new_insn (1);
- number_to_chars_bigendian (f, opcode->opcode >> 8, 1); /* High byte. */
- fixup8_xg (&operands[0].exp, format, M68XG_OP_REL10);
- }
- else
- {
- f = m68hc11_new_insn (2);
- number_to_chars_bigendian (f, opcode->opcode, 2);
- }
- return;
- }
- /* build_insn takes a pointer to the opcode entry in the opcode table,
- the array of operand expressions and builds the corresponding instruction.
- This operation only deals with non relative jumps insn (need special
- handling). */
- static void
- build_insn (struct m68hc11_opcode *opcode,
- operand operands[],
- int nb_operands ATTRIBUTE_UNUSED)
- {
- int i;
- char *f;
- long format;
- int move_insn = 0;
- /* Put the page code instruction if there is one. */
- format = opcode->format;
- if (format & M6811_OP_BRANCH)
- fix_new (frag_now, frag_now_fix (), 0,
- &abs_symbol, 0, 1, BFD_RELOC_M68HC11_RL_JUMP);
- if (format & OP_EXTENDED)
- {
- int page_code;
- f = m68hc11_new_insn (2);
- if (format & M6811_OP_PAGE2)
- page_code = M6811_OPCODE_PAGE2;
- else if (format & M6811_OP_PAGE3)
- page_code = M6811_OPCODE_PAGE3;
- else
- page_code = M6811_OPCODE_PAGE4;
- number_to_chars_bigendian (f, page_code, 1);
- f++;
- }
- else
- f = m68hc11_new_insn (1);
- number_to_chars_bigendian (f, opcode->opcode, 1);
- i = 0;
- /* The 68HC12 movb and movw instructions are special. We have to handle
- them in a special way. */
- if (format & (M6812_OP_IND16_P2 | M6812_OP_IDX_P2))
- {
- move_insn = 1;
- if (format & M6812_OP_IDX)
- {
- build_indexed_byte (&operands[0], format, 1);
- i = 1;
- format &= ~M6812_OP_IDX;
- }
- if (format & M6812_OP_IDX_P2)
- {
- build_indexed_byte (&operands[1], format, 1);
- i = 0;
- format &= ~M6812_OP_IDX_P2;
- }
- }
- if (format & (M6811_OP_DIRECT | M6811_OP_IMM8))
- {
- fixup8 (&operands[i].exp,
- format & (M6811_OP_DIRECT | M6811_OP_IMM8 | M6812_OP_TRAP_ID),
- operands[i].mode);
- i++;
- }
- else if (IS_CALL_SYMBOL (format) && nb_operands == 1)
- {
- format &= ~M6812_OP_PAGE;
- fixup24 (&operands[i].exp, format & M6811_OP_IND16,
- operands[i].mode);
- i++;
- }
- else if (format & (M6811_OP_IMM16 | M6811_OP_IND16))
- {
- fixup16 (&operands[i].exp,
- format & (M6811_OP_IMM16 | M6811_OP_IND16 | M6812_OP_PAGE),
- operands[i].mode);
- i++;
- }
- else if (format & (M6811_OP_IX | M6811_OP_IY))
- {
- if ((format & M6811_OP_IX) && (operands[0].reg1 != REG_X))
- as_bad (_("Invalid indexed register, expecting register X."));
- if ((format & M6811_OP_IY) && (operands[0].reg1 != REG_Y))
- as_bad (_("Invalid indexed register, expecting register Y."));
- fixup8 (&operands[0].exp, M6811_OP_IX, operands[0].mode);
- i = 1;
- }
- else if (format &
- (M6812_OP_IDX | M6812_OP_IDX_2 | M6812_OP_IDX_1
- | M6812_OP_D_IDX | M6812_OP_D_IDX_2))
- {
- build_indexed_byte (&operands[i], format, move_insn);
- i++;
- }
- else if (format & M6812_OP_REG && current_architecture & cpu6812)
- {
- build_reg_mode (&operands[i], format);
- i++;
- }
- if (format & M6811_OP_BITMASK)
- {
- fixup8 (&operands[i].exp, M6811_OP_BITMASK, operands[i].mode);
- i++;
- }
- if (format & M6811_OP_JUMP_REL)
- {
- fixup8 (&operands[i].exp, M6811_OP_JUMP_REL, operands[i].mode);
- }
- else if (format & M6812_OP_IND16_P2)
- {
- fixup16 (&operands[1].exp, M6811_OP_IND16, operands[1].mode);
- }
- if (format & M6812_OP_PAGE)
- {
- fixup8 (&operands[i].exp, M6812_OP_PAGE, operands[i].mode);
- }
- }
- /* Opcode identification and operand analysis. */
- /* find() gets a pointer to an entry in the opcode table. It must look at all
- opcodes with the same name and use the operands to choose the correct
- opcode. Returns the opcode pointer if there was a match and 0 if none. */
- static struct m68hc11_opcode *
- find (struct m68hc11_opcode_def *opc, operand operands[], int nb_operands)
- {
- int i, match, pos;
- struct m68hc11_opcode *opcode;
- struct m68hc11_opcode *op_indirect;
- op_indirect = 0;
- opcode = opc->opcode;
- /* Now search the opcode table table for one with operands
- that matches what we've got. */
- if (current_architecture & cpuxgate)
- {
- /* Many XGATE insns are simple enough that we get an exact match. */
- for (pos = match = 0; match == 0 && pos < opc->nb_modes; pos++, opcode++)
- if (opcode->format == operands[nb_operands-1].mode)
- return opcode;
- return 0;
- }
- /* Non XGATE */
- /* Now search the opcode table table for one with operands
- that matches what we've got. We're only done if the operands matched so
- far AND there are no more to check. */
- for (pos = match = 0; match == 0 && pos < opc->nb_modes; pos++, opcode++)
- {
- int poss_indirect = 0;
- long format = opcode->format;
- int expect;
- expect = 0;
- if (opcode->format & M6811_OP_MASK)
- expect++;
- if (opcode->format & M6811_OP_BITMASK)
- expect++;
- if (opcode->format & (M6811_OP_JUMP_REL | M6812_OP_JUMP_REL16))
- expect++;
- if (opcode->format & (M6812_OP_IND16_P2 | M6812_OP_IDX_P2))
- expect++;
- if ((opcode->format & M6812_OP_PAGE)
- && (!IS_CALL_SYMBOL (opcode->format) || nb_operands == 2))
- expect++;
- for (i = 0; expect == nb_operands && i < nb_operands; i++)
- {
- int mode = operands[i].mode;
- if (mode & M6811_OP_IMM16)
- {
- if (format &
- (M6811_OP_IMM8 | M6811_OP_IMM16 | M6811_OP_BITMASK))
- continue;
- break;
- }
- if (mode == M6811_OP_DIRECT)
- {
- if (format & M6811_OP_DIRECT)
- continue;
- /* If the operand is a page 0 operand, remember a
- possible <abs-16> addressing mode. We mark
- this and continue to check other operands. */
- if (format & M6811_OP_IND16
- && flag_strict_direct_addressing && op_indirect == 0)
- {
- poss_indirect = 1;
- continue;
- }
- break;
- }
- if (mode & M6811_OP_IND16)
- {
- if (i == 0 && (format & M6811_OP_IND16) != 0)
- continue;
- if (i != 0 && (format & M6812_OP_PAGE) != 0)
- continue;
- if (i != 0 && (format & M6812_OP_IND16_P2) != 0)
- continue;
- if (i == 0 && (format & M6811_OP_BITMASK))
- break;
- }
- if (mode & (M6811_OP_JUMP_REL | M6812_OP_JUMP_REL16))
- {
- if (format & (M6811_OP_JUMP_REL | M6812_OP_JUMP_REL16))
- continue;
- }
- if (mode & M6812_OP_REG)
- {
- if (i == 0
- && (format & M6812_OP_REG)
- && (operands[i].reg2 == REG_NONE))
- continue;
- if (i == 0
- && (format & M6812_OP_REG)
- && (format & M6812_OP_REG_2)
- && (operands[i].reg2 != REG_NONE))
- continue;
- if (i == 0
- && (format & M6812_OP_IDX)
- && (operands[i].reg2 != REG_NONE))
- continue;
- if (i == 0
- && (format & M6812_OP_IDX)
- && (format & (M6812_OP_IND16_P2 | M6812_OP_IDX_P2)))
- continue;
- if (i == 1
- && (format & M6812_OP_IDX_P2))
- continue;
- break;
- }
- if (mode & M6812_OP_IDX)
- {
- if (format & M6811_OP_IX && operands[i].reg1 == REG_X)
- continue;
- if (format & M6811_OP_IY && operands[i].reg1 == REG_Y)
- continue;
- if (i == 0
- && format & (M6812_OP_IDX | M6812_OP_IDX_1 | M6812_OP_IDX_2)
- && (operands[i].reg1 == REG_X
- || operands[i].reg1 == REG_Y
- || operands[i].reg1 == REG_SP
- || operands[i].reg1 == REG_PC))
- continue;
- if (i == 1 && (format & M6812_OP_IDX_P2))
- continue;
- }
- if (mode & format & (M6812_OP_D_IDX | M6812_OP_D_IDX_2))
- {
- if (i == 0)
- continue;
- }
- if (mode & M6812_AUTO_INC_DEC)
- {
- if (i == 0
- && format & (M6812_OP_IDX | M6812_OP_IDX_1 |
- M6812_OP_IDX_2))
- continue;
- if (i == 1 && format & M6812_OP_IDX_P2)
- continue;
- }
- break;
- }
- match = i == nb_operands;
- /* Operands are ok but an operand uses page 0 addressing mode
- while the insn supports abs-16 mode. Keep a reference to this
- insns in case there is no insn supporting page 0 addressing. */
- if (match && poss_indirect)
- {
- op_indirect = opcode;
- match = 0;
- }
- if (match)
- break;
- }
- /* Page 0 addressing is used but not supported by any insn.
- If absolute addresses are supported, we use that insn. */
- if (match == 0 && op_indirect)
- {
- opcode = op_indirect;
- match = 1;
- }
- return match ? opcode : 0;
- }
- /* Find the real opcode and its associated operands. We use a progressive
- approach here. On entry, 'opc' points to the first opcode in the
- table that matches the opcode name in the source line. We try to
- isolate an operand, find a possible match in the opcode table.
- We isolate another operand if no match were found. The table 'operands'
- is filled while operands are recognized.
- Returns the opcode pointer that matches the opcode name in the
- source line and the associated operands. */
- static struct m68hc11_opcode *
- find_opcode (struct m68hc11_opcode_def *opc, operand operands[],
- int *nb_operands)
- {
- struct m68hc11_opcode *opcode;
- int i;
- if (opc->max_operands == 0)
- {
- *nb_operands = 0;
- return opc->opcode;
- }
- for (i = 0; i < opc->max_operands;)
- {
- int result;
- result = get_operand (&operands[i], i, opc->format);
- if (result <= 0)
- return 0;
- /* Special case where the bitmask of the bclr/brclr
- instructions is not introduced by #.
- Example: bclr 3,x $80. */
- if (i == 1 && (opc->format & M6811_OP_BITMASK)
- && (operands[i].mode & M6811_OP_IND16))
- {
- operands[i].mode = M6811_OP_IMM16;
- }
- i += result;
- *nb_operands = i;
- if (i >= opc->min_operands)
- {
- opcode = find (opc, operands, i);
- /* Another special case for 'call foo,page' instructions.
- Since we support 'call foo' and 'call foo,page' we must look
- if the optional page specification is present otherwise we will
- assemble immediately and treat the page spec as garbage. */
- if (opcode && !(opcode->format & M6812_OP_PAGE))
- return opcode;
- if (opcode && *input_line_pointer != ',')
- return opcode;
- }
- if (*input_line_pointer == ',')
- input_line_pointer++;
- }
- return 0;
- }
- #define M6812_XBCC_MARKER (M6812_OP_TBCC_MARKER \
- | M6812_OP_DBCC_MARKER \
- | M6812_OP_IBCC_MARKER)
- /* Gas line assembler entry point. */
- /* This is the main entry point for the machine-dependent assembler. str
- points to a machine-dependent instruction. This function is supposed to
- emit the frags/bytes it assembles to. */
- void
- md_assemble (char *str)
- {
- struct m68hc11_opcode_def *opc;
- struct m68hc11_opcode *opcode;
- struct m68hc11_opcode opcode_local;
- unsigned char *op_start, *op_end;
- char *save;
- char name[20];
- int nlen = 0;
- operand operands[M6811_MAX_OPERANDS];
- int nb_operands = 0;
- int branch_optimize = 0;
- int alias_id = -1;
- /* Drop leading whitespace. */
- while (*str == ' ')
- str++;
- /* Find the opcode end and get the opcode in 'name'. The opcode is forced
- lower case (the opcode table only has lower case op-codes). */
- for (op_start = op_end = (unsigned char *) str;
- *op_end && !is_end_of_line[*op_end] && *op_end != ' ';
- op_end++)
- {
- name[nlen] = TOLOWER (op_start[nlen]);
- nlen++;
- if (nlen == sizeof (name) - 1)
- break;
- }
- name[nlen] = 0;
- if (nlen == 0)
- {
- as_bad (_("No instruction or missing opcode."));
- return;
- }
- if (current_architecture == cpuxgate)
- {
- /* Find the opcode definition given its name. */
- opc = (struct m68hc11_opcode_def *) str_hash_find (m68hc11_hash, name);
- if (opc == NULL)
- {
- as_bad (_("Opcode `%s' is not recognized."), name);
- return;
- }
- /* Grab a local copy. */
- opcode_local.name = opc->opcode->name;
- /* These will be incomplete where multiple variants exist. */
- opcode_local.opcode = opc->opcode->opcode;
- opcode_local.format = opc->opcode->format;
- save = input_line_pointer;
- input_line_pointer = (char *) op_end;
- if (opc->format == M68XG_OP_NONE)
- {
- /* No special handling required. */
- opcode_local.format = M68XG_OP_NONE;
- build_insn_xg (opc->opcode, operands, 0);
- return;
- }
- /* Special handling of TFR. */
- if (startswith (opc->opcode->name, "tfr"))
- {
- /* There must be two operands with a comma. */
- input_line_pointer = skip_whites (input_line_pointer);
- operands[0].reg1 = register_name ();
- if (operands[0].reg1 == REG_NONE)
- {
- as_bad ("Invalid register\n");
- return;
- }
- input_line_pointer = skip_whites (input_line_pointer);
- if (*input_line_pointer != ',')
- {
- as_bad ("Missing comma.\n");
- return;
- }
- input_line_pointer++;
- input_line_pointer = skip_whites (input_line_pointer);
- operands[1].reg1 = register_name ();
- if (operands[1].reg1 == REG_NONE)
- {
- as_bad ("Invalid register\n");
- return;
- }
- input_line_pointer = skip_whites (input_line_pointer);
- if (*input_line_pointer != '\n' && *input_line_pointer)
- {
- as_bad (_("Garbage at end of instruction: `%s'."),
- input_line_pointer);
- return;
- }
- if (operands[1].reg1 == REG_CCR) /* ,CCR */
- opc->opcode->opcode = 0x00f8 | ( operands[0].reg1 << 8);
- else if (operands[0].reg1 == REG_CCR) /* CCR, */
- opc->opcode->opcode = 0x00f9 | ( operands[1].reg1 << 8);
- else if (operands[1].reg1 == REG_PC) /* ,PC */
- opc->opcode->opcode = 0x00fa | ( operands[0].reg1 << 8);
- else
- {
- as_bad ("Invalid operand to TFR\n");
- return;
- }
- /* no special handling required */
- opcode_local.format = M68XG_OP_NONE;
- opcode_local.opcode = opc->opcode->opcode;
- build_insn_xg (&opcode_local, operands, 0);
- return;
- }
- /* CSEM, SSEM */
- if (opc->format & M68XG_OP_IMM3)
- {
- /* Either IMM3 or R */
- input_line_pointer = skip_whites (input_line_pointer);
- if ((*input_line_pointer == 'R') || (*input_line_pointer == 'r'))
- {
- operands[0].reg1 = register_name ();
- if (operands[0].reg1 == REG_NONE)
- {
- as_bad ("Invalid register\n");
- return;
- }
- operands[0].mode = M68XG_OP_R;
- /* One opcode has multiple modes, so find right one. */
- opcode = find (opc, operands, 1);
- if (opcode)
- {
- opcode_local.opcode = opcode->opcode
- | (operands[0].reg1 << 8);
- opcode_local.format = M68XG_OP_NONE;
- build_insn_xg (&opcode_local, operands, 1);
- }
- else
- as_bad ("No opcode found\n");
- return;
- }
- else
- {
- if (*input_line_pointer == '#')
- input_line_pointer++;
- expression (&operands[0].exp);
- if (operands[0].exp.X_op == O_illegal)
- {
- as_bad (_("Illegal operand."));
- return;
- }
- else if (operands[0].exp.X_op == O_absent)
- {
- as_bad (_("Missing operand."));
- return;
- }
- if (check_range (operands[0].exp.X_add_number,M68XG_OP_IMM3))
- {
- opcode_local.opcode |= (operands[0].exp.X_add_number);
- operands[0].mode = M68XG_OP_IMM3;
- opcode = find (opc, operands, 1);
- if (opcode)
- {
- opcode_local.opcode = opcode->opcode;
- opcode_local.opcode
- |= (operands[0].exp.X_add_number) << 8;
- opcode_local.format = M68XG_OP_NONE;
- build_insn_xg (&opcode_local, operands, 1);
- }
- else
- as_bad ("No opcode found\n");
- return;
- }
- else
- {
- as_bad ("Number out of range for IMM3\n");
- return;
- }
- }
- }
- /* Special handling of SIF. */
- if (startswith (opc->opcode->name, "sif"))
- {
- /* Either OP_NONE or OP_RS. */
- if (*input_line_pointer != '\n')
- input_line_pointer = skip_whites (input_line_pointer);
- if ((*input_line_pointer == '\n') || (*input_line_pointer == '\r')
- || (*input_line_pointer == '\0'))
- opc->opcode->opcode = 0x0300;
- else
- {
- operands[0].reg1 = register_name ();
- if (operands[0].reg1 == REG_NONE)
- {
- as_bad ("Invalid register\n");
- return;
- }
- opcode_local.opcode = 0x00f7 | (operands[0].reg1 << 8);
- }
- opcode_local.format = M68XG_OP_NONE;
- build_insn_xg (&opcode_local, operands, 0);
- return;
- }
- /* SEX, PAR, JAL plus aliases NEG, TST, COM */
- if (opc->format & M68XG_OP_R)
- {
- input_line_pointer = skip_whites (input_line_pointer);
- operands[0].reg1 = register_name ();
- if (operands[0].reg1 == REG_NONE)
- {
- as_bad ("Invalid register\n");
- return;
- }
- if ((*input_line_pointer == '\n') || (*input_line_pointer == '\r')
- || (*input_line_pointer == '\0'))
- {
- /* Likely to be OP R. */
- if (opc->format & M68XG_OP_R)
- {
- operands[0].mode = M68XG_OP_R;
- opcode = find (opc, operands, 1);
- if (opcode)
- {
- if ((startswith (opc->opcode->name, "com"))
- || (startswith (opc->opcode->name, "neg")))
- /* Special case for com RD as alias for sub RD,R0,RS */
- /* Special case for neg RD as alias for sub RD,R0,RS */
- opcode_local.opcode = opcode->opcode
- | (operands[0].reg1 << 8) | (operands[0].reg1 << 2);
- else if (startswith (opc->opcode->name, "tst"))
- /* Special case for tst RS alias for sub R0, RS, R0 */
- opcode_local.opcode = opcode->opcode
- | (operands[0].reg1 << 5);
- else
- opcode_local.opcode |= (operands[0].reg1 << 8);
- }
- opcode_local.format = M68XG_OP_NONE;
- build_insn_xg (&opcode_local, operands, 0);
- }
- else
- as_bad ("No valid mode found\n");
- return;
- }
- }
- if (opc->format & (M68XG_OP_REL9 | M68XG_OP_REL10))
- {
- opcode_local.format = opc->format;
- input_line_pointer = skip_whites (input_line_pointer);
- expression (&operands[0].exp);
- if (operands[0].exp.X_op == O_illegal)
- {
- as_bad (_("Illegal operand."));
- return;
- }
- else if (operands[0].exp.X_op == O_absent)
- {
- as_bad (_("Missing operand."));
- return;
- }
- opcode_local.opcode = opc->opcode->opcode;
- build_insn_xg (&opcode_local, operands, 1);
- return;
- }
- /* For other command formats, parse input line and determine the mode
- we are using as we go. */
- input_line_pointer = skip_whites (input_line_pointer);
- if ((*input_line_pointer == '\n') || (*input_line_pointer == '\r')
- || (*input_line_pointer == '\0'))
- return; /* nothing left */
- if (*input_line_pointer == '#')
- {
- as_bad ("No register specified before hash\n");
- return;
- }
- /* first operand is expected to be a register */
- if ((*input_line_pointer == 'R') || (*input_line_pointer == 'r'))
- {
- operands[0].reg1 = register_name ();
- if (operands[0].reg1 == REG_NONE)
- {
- as_bad ("Invalid register\n");
- return;
- }
- }
- input_line_pointer = skip_whites (input_line_pointer);
- if (*input_line_pointer != ',')
- {
- as_bad ("Missing operand\n");
- return;
- }
- input_line_pointer++;
- input_line_pointer = skip_whites (input_line_pointer);
- if (*input_line_pointer == '#')
- {
- /* Some kind of immediate mode, check if this is possible. */
- if (!(opc->format
- & (M68XG_OP_R_IMM8 | M68XG_OP_R_IMM16 | M68XG_OP_R_IMM4)))
- as_bad ("Invalid immediate mode for `%s'", opc->opcode->name);
- else
- {
- input_line_pointer++;
- input_line_pointer = skip_whites (input_line_pointer);
- if (startswith (input_line_pointer, "%hi"))
- {
- input_line_pointer += 3;
- operands[0].mode = M6811_OP_HIGH_ADDR;
- }
- else if (startswith (input_line_pointer, "%lo"))
- {
- input_line_pointer += 3;
- operands[0].mode = M6811_OP_LOW_ADDR;
- }
- else
- operands[0].mode = 0;
- expression (&operands[0].exp);
- if (operands[0].exp.X_op == O_illegal)
- {
- as_bad (_("Illegal operand."));
- return;
- }
- else if (operands[0].exp.X_op == O_absent)
- {
- as_bad (_("Missing operand."));
- return;
- }
- /* ok so far, can only be one mode */
- opcode_local.format = opc->format
- & (M68XG_OP_R_IMM8 | M68XG_OP_R_IMM16 | M68XG_OP_R_IMM4);
- if (opcode_local.format & M68XG_OP_R_IMM4)
- {
- operands[0].mode = M68XG_OP_R_IMM4;
- /* same opcodes have multiple modes, so find right one */
- opcode = find (opc, operands, 1);
- if (opcode)
- opcode_local.opcode = opcode->opcode
- | (operands[0].reg1 << 8);
- if (operands[0].exp.X_op != O_constant)
- as_bad ("Only constants supported at for IMM4 mode\n");
- else
- {
- if (check_range
- (operands[0].exp.X_add_number,M68XG_OP_R_IMM4))
- opcode_local.opcode
- |= (operands[0].exp.X_add_number << 4);
- else
- as_bad ("Number out of range for IMM4\n");
- }
- opcode_local.format = M68XG_OP_NONE;
- }
- else if (opcode_local.format & M68XG_OP_R_IMM16)
- {
- operands[0].mode = M68XG_OP_R_IMM16;
- opcode = find (opc, operands, 1);
- if (opcode)
- {
- opcode_local.opcode = opcode->opcode
- | (operands[0].reg1 << 8);
- }
- }
- else
- {
- opcode_local.opcode = opc->opcode->opcode
- | (operands[0].reg1 << 8);
- }
- build_insn_xg (&opcode_local, operands, 1);
- }
- }
- else if ((*input_line_pointer == 'R') || (*input_line_pointer == 'r'))
- {
- /* we've got as far as OP R, R */
- operands[1].reg1 = register_name ();
- if (operands[1].reg1 == REG_NONE)
- {
- as_bad ("Invalid register\n");
- return;
- }
- if ((*input_line_pointer == '\n') || (*input_line_pointer == '\r')
- || (*input_line_pointer == '\0'))
- {
- /* looks like OP_R_R */
- if (opc->format & M68XG_OP_R_R)
- {
- operands[0].mode = M68XG_OP_R_R;
- /* same opcodes have multiple modes, so find right one */
- opcode = find (opc, operands, 1);
- if (opcode)
- {
- if ((startswith (opc->opcode->name, "com"))
- || (startswith (opc->opcode->name, "mov"))
- || (startswith (opc->opcode->name, "neg")))
- {
- /* Special cases for:
- com RD, RS alias for xnor RD,R0,RS
- mov RD, RS alias for or RD, R0, RS
- neg RD, RS alias for sub RD, R0, RS */
- opcode_local.opcode = opcode->opcode
- | (operands[0].reg1 << 8) | (operands[1].reg1 << 2);
- }
- else if ((startswith (opc->opcode->name, "cmp"))
- || (startswith (opc->opcode->name, "cpc")))
- {
- /* special cases for:
- cmp RS1, RS2 alias for sub R0, RS1, RS2
- cpc RS1, RS2 alias for sbc R0, RS1, RS2 */
- opcode_local.opcode = opcode->opcode
- | (operands[0].reg1 << 5) | (operands[1].reg1 << 2);
- }
- else
- {
- opcode_local.opcode = opcode->opcode
- | (operands[0].reg1 << 8) | (operands[1].reg1 << 5);
- }
- opcode_local.format = M68XG_OP_NONE;
- build_insn_xg (&opcode_local, operands, 1);
- }
- }
- else
- {
- as_bad ("No valid mode found\n");
- }
- }
- else
- {
- /* more data */
- if (*input_line_pointer != ',')
- {
- as_bad (_("Missing operand."));
- return;
- }
- input_line_pointer++;
- input_line_pointer = skip_whites (input_line_pointer);
- if ((*input_line_pointer == 'R') || (*input_line_pointer == 'r'))
- {
- operands[2].reg1 = register_name ();
- if (operands[2].reg1 == REG_NONE)
- {
- as_bad ("Invalid register\n");
- return;
- }
- if (opc->format & M68XG_OP_R_R_R)
- {
- operands[0].mode = M68XG_OP_R_R_R;
- opcode = find (opc, operands, 1);
- if (opcode)
- {
- opcode_local.opcode = opcode->opcode
- | (operands[0].reg1 << 8) | (operands[1].reg1 << 5)
- | (operands[2].reg1 << 2);
- opcode_local.format = M68XG_OP_NONE;
- build_insn_xg (&opcode_local, operands, 1);
- }
- }
- else
- {
- as_bad ("No valid mode found\n");
- }
- }
- }
- }
- else if (*input_line_pointer == '(') /* Indexed modes */
- {
- input_line_pointer++;
- input_line_pointer = skip_whites (input_line_pointer);
- if ((*input_line_pointer == 'R') || (*input_line_pointer == 'r'))
- {
- /* we've got as far as OP R, (R */
- operands[1].reg1 = register_name ();
- if (operands[1].reg1 == REG_NONE)
- {
- as_bad ("Invalid register\n");
- return;
- }
- if ((*input_line_pointer == '\n') || (*input_line_pointer == '\r')
- || (*input_line_pointer == '\0'))
- {
- /* Looks like OP_R_R. */
- as_bad (_("Missing operand."));
- return;
- }
- input_line_pointer = skip_whites (input_line_pointer);
- if (*input_line_pointer != ',')
- {
- as_bad (_("Missing operand."));
- return;
- }
- input_line_pointer++;
- input_line_pointer = skip_whites (input_line_pointer);
- if (*input_line_pointer == '#')
- {
- input_line_pointer++;
- input_line_pointer = skip_whites (input_line_pointer);
- expression (&operands[0].exp);
- if (operands[0].exp.X_op == O_illegal)
- {
- as_bad (_("Illegal operand."));
- return;
- }
- else if (operands[0].exp.X_op == O_absent)
- {
- as_bad (_("Missing operand."));
- return;
- }
- input_line_pointer = skip_whites (input_line_pointer);
- if (*input_line_pointer != ')')
- {
- as_bad ("Missing `)' to close register indirect operand.");
- return;
- }
- else
- {
- input_line_pointer++;
- }
- /* Ok so far, can only be one mode. */
- opcode_local.format = M68XG_OP_R_R_OFFS5;
- operands[0].mode = M68XG_OP_R_R_OFFS5;
- opcode = find (opc, operands, 1);
- if (opcode)
- {
- opcode_local.opcode = opcode->opcode
- | (operands[0].reg1 << 8) | (operands[1].reg1 << 5);
- if (operands[0].exp.X_op != O_constant)
- {
- as_bad
- ("Only constants supported for indexed OFFS5 mode\n");
- }
- else
- {
- if (check_range (operands[0].exp.X_add_number,
- M68XG_OP_R_R_OFFS5))
- {
- opcode_local.opcode
- |= (operands[0].exp.X_add_number);
- opcode_local.format = M68XG_OP_NONE;
- build_insn_xg (&opcode_local, operands, 1);
- }
- else
- {
- as_bad ("Number out of range for OFFS5\n");
- }
- }
- }
- }
- else
- {
- operands[0].mode = M68XG_OP_RD_RB_RI;
- if (*input_line_pointer == '-')
- {
- operands[0].mode = M68XG_OP_RD_RB_mRI;
- input_line_pointer++;
- }
- operands[2].reg1 = register_name ();
- if (operands[2].reg1 == REG_NONE)
- {
- as_bad ("Invalid register\n");
- return;
- }
- if (*input_line_pointer == '+')
- {
- if (opcode_local.format == M68XG_OP_RD_RB_mRI)
- {
- as_bad (_("Illegal operand."));
- return;
- }
- operands[0].mode = M68XG_OP_RD_RB_RIp;
- input_line_pointer++;
- }
- input_line_pointer = skip_whites (input_line_pointer);
- if (*input_line_pointer != ')')
- {
- as_bad
- ("Missing `)' to close register indirect operand.");
- return;
- }
- else
- {
- input_line_pointer++;
- }
- opcode = find (opc, operands, 1);
- if (opcode)
- {
- opcode_local.opcode = opcode->opcode
- | (operands[0].reg1 << 8) | (operands[1].reg1 << 5)
- | (operands[2].reg1 << 2);
- opcode_local.format = M68XG_OP_NONE;
- build_insn_xg (&opcode_local, operands, 1);
- }
- else
- {
- as_bad ("Failed to find opcode for %s %s\n",
- opc->opcode->name, (char *)op_end);
- }
- }
- }
- }
- else
- {
- as_bad (_("Failed to find a valid mode for `%s'."),
- opc->opcode->name);
- }
- if (opc->opcode && !flag_mri)
- {
- char *p = input_line_pointer;
- while (*p == ' ' || *p == '\t' || *p == '\n' || *p == '\r')
- p++;
- if (*p != '\n' && *p)
- as_bad (_("Garbage at end of instruction: `%s'."), p);
- }
- input_line_pointer = save;
- /* Opcode is known but does not have valid operands. Print out the
- syntax for this opcode. */
- if (opc->opcode == 0)
- {
- if (flag_print_insn_syntax)
- print_insn_format (name);
- as_bad (_("Invalid operand for `%s'"), name);
- return;
- }
- return;
- }
- /* Find the opcode definition given its name. */
- opc = (struct m68hc11_opcode_def *) str_hash_find (m68hc11_hash, name);
- /* If it's not recognized, look for 'jbsr' and 'jbxx'. These are
- pseudo insns for relative branch. For these branches, we always
- optimize them (turned into absolute branches) even if --short-branches
- is given. */
- if (opc == NULL && name[0] == 'j' && name[1] == 'b')
- {
- opc = (struct m68hc11_opcode_def *) str_hash_find (m68hc11_hash,
- &name[1]);
- if (opc
- && (!(opc->format & M6811_OP_JUMP_REL)
- || (opc->format & M6811_OP_BITMASK)))
- opc = 0;
- if (opc)
- branch_optimize = 1;
- }
- /* The following test should probably be removed. This does not conform
- to Motorola assembler specs. */
- if (opc == NULL && flag_mri)
- {
- if (*op_end == ' ' || *op_end == '\t')
- {
- while (*op_end == ' ' || *op_end == '\t')
- op_end++;
- if (nlen < 19
- && (*op_end &&
- (is_end_of_line[op_end[1]]
- || op_end[1] == ' ' || op_end[1] == '\t'
- || !ISALNUM (op_end[1])))
- && (*op_end == 'a' || *op_end == 'b'
- || *op_end == 'A' || *op_end == 'B'
- || *op_end == 'd' || *op_end == 'D'
- || *op_end == 'x' || *op_end == 'X'
- || *op_end == 'y' || *op_end == 'Y'))
- {
- name[nlen++] = TOLOWER (*op_end++);
- name[nlen] = 0;
- opc = (struct m68hc11_opcode_def *) str_hash_find (m68hc11_hash,
- name);
- }
- }
- }
- /* Identify a possible instruction alias. There are some on the
- 68HC12 to emulate a few 68HC11 instructions. */
- if (opc == NULL && (current_architecture & cpu6812))
- {
- int i;
- for (i = 0; i < m68hc12_num_alias; i++)
- if (strcmp (m68hc12_alias[i].name, name) == 0)
- {
- alias_id = i;
- break;
- }
- }
- if (opc == NULL && alias_id < 0)
- {
- as_bad (_("Opcode `%s' is not recognized."), name);
- return;
- }
- save = input_line_pointer;
- input_line_pointer = (char *) op_end;
- if (opc)
- {
- opc->used++;
- opcode = find_opcode (opc, operands, &nb_operands);
- }
- else
- opcode = 0;
- if ((opcode || alias_id >= 0) && !flag_mri)
- {
- char *p = input_line_pointer;
- while (*p == ' ' || *p == '\t' || *p == '\n' || *p == '\r')
- p++;
- if (*p != '\n' && *p)
- as_bad (_("Garbage at end of instruction: `%s'."), p);
- }
- input_line_pointer = save;
- if (alias_id >= 0)
- {
- char *f = m68hc11_new_insn (m68hc12_alias[alias_id].size);
- number_to_chars_bigendian (f, m68hc12_alias[alias_id].code1, 1);
- if (m68hc12_alias[alias_id].size > 1)
- number_to_chars_bigendian (f + 1, m68hc12_alias[alias_id].code2, 1);
- return;
- }
- /* Opcode is known but does not have valid operands. Print out the
- syntax for this opcode. */
- if (opcode == 0)
- {
- if (flag_print_insn_syntax)
- print_insn_format (name);
- if (((strcmp (name, "movb") == 0) || (strcmp (name, "movw") == 0))
- && (current_architecture & cpu9s12x))
- {
- char *f;
- int movb;
- if (strcmp (name, "movb") == 0)
- movb = 8;
- else
- movb = 0;
- /* The existing operand extract code fell over if these additional modes
- were enabled in m68hc11-opc.c. So they are commented there and
- decoded here instead. */
- if (operands[1].mode & (M6812_OP_IDX | M6812_OP_IDX_1
- | M6812_OP_IDX_2 | M6812_OP_D_IDX | M6812_OP_D_IDX_2 | M6812_PRE_INC
- | M6812_PRE_DEC | M6812_POST_INC | M6812_POST_DEC ))
- {
- /* first check if valid mode then start building it up */
- if (operands[0].mode & (M6811_OP_IMM8 | M6811_OP_IMM16
- | M6811_OP_IND16 | M6812_OP_IDX | M6812_OP_IDX_1
- | M6812_OP_IDX_2 | M6812_OP_D_IDX | M6812_OP_D_IDX_2))
- {
- int opr16a;
- if (operands[1].mode & (M6811_OP_IND16))
- opr16a = 3;
- else
- opr16a = 0;
- f = m68hc11_new_insn (2);
- if (operands[0].mode & (M6811_OP_IMM8 | M6811_OP_IMM16))
- {
- number_to_chars_bigendian (f, 0x1800 + movb + opr16a, 2);
- build_indexed_byte (&operands[1], operands[1].mode, 1);
- if (movb)
- fixup8 (&operands[0].exp, M6811_OP_IMM8,
- operands[0].mode);
- else
- fixup16 (&operands[0].exp, M6811_OP_IMM16,
- operands[0].mode);
- return;
- }
- else if (operands[0].mode & M6811_OP_IND16)
- {
- number_to_chars_bigendian (f, 0x1801 + movb + opr16a, 2);
- build_indexed_byte (&operands[1], operands[1].mode, 1);
- fixup16 (&operands[0].exp, M6811_OP_IND16, operands[0].mode);
- return;
- }
- else
- {
- number_to_chars_bigendian (f, 0x1802 + movb + opr16a, 2);
- build_indexed_byte (&operands[0], operands[0].mode, 1);
- build_indexed_byte (&operands[1], operands[1].mode, 1);
- return;
- }
- }
- }
- else if (operands[1].mode & M6811_OP_IND16)
- {
- /* First check if this is valid mode, then start building it up. */
- if (operands[0].mode & (M6811_OP_IMM8 | M6811_OP_IMM16
- | M6811_OP_IND16 | M6812_OP_IDX | M6812_OP_IDX_1
- | M6812_OP_IDX_2 | M6812_OP_D_IDX | M6812_OP_D_IDX_2))
- {
- int opr16a;
- if (operands[1].mode & (M6811_OP_IND16))
- opr16a = 3;
- else
- opr16a = 0;
- f = m68hc11_new_insn (2);
- /* The first two cases here should actually be covered by the
- normal operand code. */
- if (operands[0].mode & (M6811_OP_IMM8 | M6811_OP_IMM16))
- {
- number_to_chars_bigendian (f, 0x1800 + movb + opr16a, 2);
- if (movb)
- fixup8 (&operands[0].exp, M6811_OP_IMM8, operands[0].mode);
- else
- fixup16 (&operands[0].exp, M6811_OP_IMM16, operands[0].mode);
- fixup16 (&operands[0].exp, M6811_OP_IND16, operands[0].mode);
- return;
- }
- else if (operands[0].mode & M6811_OP_IND16)
- {
- number_to_chars_bigendian (f, 0x1801 + movb + opr16a, 2);
- build_indexed_byte (&operands[1], operands[1].mode, 1);
- fixup16 (&operands[0].exp, M6811_OP_IND16, operands[0].mode);
- return;
- }
- else
- {
- number_to_chars_bigendian (f, 0x1802 + movb + opr16a, 2);
- build_indexed_byte (&operands[0], operands[0].mode, 1);
- fixup16 (&operands[1].exp, M6811_OP_IND16, operands[1].mode);
- return;
- }
- }
- }
- as_bad (_("Invalid operand for `%s'"), name);
- return;
- }
- else
- {
- as_bad (_("Invalid operand for `%s'"), name);
- return;
- }
- }
- /* Treat dbeq/ibeq/tbeq instructions in a special way. The branch is
- relative and must be in the range -256..255 (9-bits). */
- if ((opcode->format & M6812_XBCC_MARKER)
- && (opcode->format & M6811_OP_JUMP_REL))
- build_dbranch_insn (opcode, operands, nb_operands, branch_optimize);
- /* Relative jumps instructions are taken care of separately. We have to make
- sure that the relative branch is within the range -128..127. If it's out
- of range, the instructions are changed into absolute instructions.
- This is not supported for the brset and brclr instructions. */
- else if ((opcode->format & (M6811_OP_JUMP_REL | M6812_OP_JUMP_REL16))
- && !(opcode->format & M6811_OP_BITMASK))
- build_jump_insn (opcode, operands, nb_operands, branch_optimize);
- else
- build_insn (opcode, operands, nb_operands);
- }
- /* Pseudo op to control the ELF flags. */
- static void
- s_m68hc11_mode (int x ATTRIBUTE_UNUSED)
- {
- char *name = input_line_pointer, ch;
- while (!is_end_of_line[(unsigned char) *input_line_pointer])
- input_line_pointer++;
- ch = *input_line_pointer;
- *input_line_pointer = '\0';
- if (strcmp (name, "mshort") == 0)
- {
- elf_flags &= ~E_M68HC11_I32;
- }
- else if (strcmp (name, "mlong") == 0)
- {
- elf_flags |= E_M68HC11_I32;
- }
- else if (strcmp (name, "mshort-double") == 0)
- {
- elf_flags &= ~E_M68HC11_F64;
- }
- else if (strcmp (name, "mlong-double") == 0)
- {
- elf_flags |= E_M68HC11_F64;
- }
- else
- {
- as_warn (_("Invalid mode: %s\n"), name);
- }
- *input_line_pointer = ch;
- demand_empty_rest_of_line ();
- }
- /* Mark the symbols with STO_M68HC12_FAR to indicate the functions
- are using 'rtc' for returning. It is necessary to use 'call'
- to invoke them. This is also used by the debugger to correctly
- find the stack frame. */
- static void
- s_m68hc11_mark_symbol (int mark)
- {
- char *name;
- int c;
- symbolS *symbolP;
- asymbol *bfdsym;
- elf_symbol_type *elfsym;
- do
- {
- c = get_symbol_name (&name);
- symbolP = symbol_find_or_make (name);
- (void) restore_line_pointer (c);
- SKIP_WHITESPACE ();
- bfdsym = symbol_get_bfdsym (symbolP);
- elfsym = elf_symbol_from (bfdsym);
- gas_assert (elfsym);
- /* Mark the symbol far (using rtc for function return). */
- elfsym->internal_elf_sym.st_other |= mark;
- if (c == ',')
- {
- input_line_pointer ++;
- SKIP_WHITESPACE ();
- if (*input_line_pointer == '\n')
- c = '\n';
- }
- }
- while (c == ',');
- demand_empty_rest_of_line ();
- }
- static void
- s_m68hc11_relax (int ignore ATTRIBUTE_UNUSED)
- {
- expressionS ex;
- expression (&ex);
- if (ex.X_op != O_symbol || ex.X_add_number != 0)
- {
- as_bad (_("bad .relax format"));
- ignore_rest_of_line ();
- return;
- }
- fix_new_exp (frag_now, frag_now_fix (), 0, &ex, 1,
- BFD_RELOC_M68HC11_RL_GROUP);
- demand_empty_rest_of_line ();
- }
- /* Relocation, relaxation and frag conversions. */
- /* PC-relative offsets are relative to the start of the
- next instruction. That is, the address of the offset, plus its
- size, since the offset is always the last part of the insn. */
- long
- md_pcrel_from (fixS *fixP)
- {
- if (fixP->fx_r_type == BFD_RELOC_M68HC11_RL_JUMP)
- return 0;
- return fixP->fx_size + fixP->fx_where + fixP->fx_frag->fr_address;
- }
- /* If while processing a fixup, a reloc really needs to be created
- then it is done here. */
- arelent *
- tc_gen_reloc (asection *section ATTRIBUTE_UNUSED, fixS *fixp)
- {
- arelent *reloc;
- reloc = XNEW (arelent);
- reloc->sym_ptr_ptr = XNEW (asymbol *);
- *reloc->sym_ptr_ptr = symbol_get_bfdsym (fixp->fx_addsy);
- reloc->address = fixp->fx_frag->fr_address + fixp->fx_where;
- if (fixp->fx_r_type == 0)
- reloc->howto = bfd_reloc_type_lookup (stdoutput, BFD_RELOC_16);
- else
- reloc->howto = bfd_reloc_type_lookup (stdoutput, fixp->fx_r_type);
- if (reloc->howto == (reloc_howto_type *) NULL)
- {
- as_bad_where (fixp->fx_file, fixp->fx_line,
- _("Relocation %d is not supported by object file format."),
- (int) fixp->fx_r_type);
- return NULL;
- }
- /* Since we use Rel instead of Rela, encode the vtable entry to be
- used in the relocation's section offset. */
- if (fixp->fx_r_type == BFD_RELOC_VTABLE_ENTRY)
- reloc->address = fixp->fx_offset;
- reloc->addend = 0;
- return reloc;
- }
- /* We need a port-specific relaxation function to cope with sym2 - sym1
- relative expressions with both symbols in the same segment (but not
- necessarily in the same frag as this insn), for example:
- ldab sym2-(sym1-2),pc
- sym1:
- The offset can be 5, 9 or 16 bits long. */
- long
- m68hc11_relax_frag (segT seg ATTRIBUTE_UNUSED, fragS *fragP,
- long stretch ATTRIBUTE_UNUSED)
- {
- long growth;
- offsetT aim = 0;
- symbolS *symbolP;
- const relax_typeS *this_type;
- const relax_typeS *start_type;
- relax_substateT next_state;
- relax_substateT this_state;
- const relax_typeS *table = TC_GENERIC_RELAX_TABLE;
- /* We only have to cope with frags as prepared by
- md_estimate_size_before_relax. The STATE_BITS16 case may get here
- because of the different reasons that it's not relaxable. */
- switch (fragP->fr_subtype)
- {
- case ENCODE_RELAX (STATE_INDEXED_PCREL, STATE_BITS16):
- case ENCODE_RELAX (STATE_INDEXED_OFFSET, STATE_BITS16):
- /* When we get to this state, the frag won't grow any more. */
- return 0;
- case ENCODE_RELAX (STATE_INDEXED_PCREL, STATE_BITS5):
- case ENCODE_RELAX (STATE_INDEXED_OFFSET, STATE_BITS5):
- case ENCODE_RELAX (STATE_INDEXED_PCREL, STATE_BITS9):
- case ENCODE_RELAX (STATE_INDEXED_OFFSET, STATE_BITS9):
- if (fragP->fr_symbol == NULL
- || S_GET_SEGMENT (fragP->fr_symbol) != absolute_section)
- as_fatal (_("internal inconsistency problem in %s: fr_symbol %lx"),
- __FUNCTION__, (long) fragP->fr_symbol);
- symbolP = fragP->fr_symbol;
- if (symbol_resolved_p (symbolP))
- as_fatal (_("internal inconsistency problem in %s: resolved symbol"),
- __FUNCTION__);
- aim = S_GET_VALUE (symbolP);
- break;
- default:
- as_fatal (_("internal inconsistency problem in %s: fr_subtype %d"),
- __FUNCTION__, fragP->fr_subtype);
- }
- /* The rest is stolen from relax_frag. There's no obvious way to
- share the code, but fortunately no requirement to keep in sync as
- long as fragP->fr_symbol does not have its segment changed. */
- this_state = fragP->fr_subtype;
- start_type = this_type = table + this_state;
- if (aim < 0)
- {
- /* Look backwards. */
- for (next_state = this_type->rlx_more; next_state;)
- if (aim >= this_type->rlx_backward)
- next_state = 0;
- else
- {
- /* Grow to next state. */
- this_state = next_state;
- this_type = table + this_state;
- next_state = this_type->rlx_more;
- }
- }
- else
- {
- /* Look forwards. */
- for (next_state = this_type->rlx_more; next_state;)
- if (aim <= this_type->rlx_forward)
- next_state = 0;
- else
- {
- /* Grow to next state. */
- this_state = next_state;
- this_type = table + this_state;
- next_state = this_type->rlx_more;
- }
- }
- growth = this_type->rlx_length - start_type->rlx_length;
- if (growth != 0)
- fragP->fr_subtype = this_state;
- return growth;
- }
- void
- md_convert_frag (bfd *abfd ATTRIBUTE_UNUSED, asection *sec ATTRIBUTE_UNUSED,
- fragS *fragP)
- {
- long value;
- long disp;
- char *buffer_address = fragP->fr_literal;
- /* Address in object code of the displacement. */
- int object_address = fragP->fr_fix + fragP->fr_address;
- buffer_address += fragP->fr_fix;
- /* The displacement of the address, from current location. */
- value = S_GET_VALUE (fragP->fr_symbol);
- disp = (value + fragP->fr_offset) - object_address;
- switch (fragP->fr_subtype)
- {
- case ENCODE_RELAX (STATE_PC_RELATIVE, STATE_BYTE):
- fragP->fr_opcode[1] = disp;
- break;
- case ENCODE_RELAX (STATE_PC_RELATIVE, STATE_WORD):
- /* This relax is only for bsr and bra. */
- gas_assert (IS_OPCODE (fragP->fr_opcode[0], M6811_BSR)
- || IS_OPCODE (fragP->fr_opcode[0], M6811_BRA)
- || IS_OPCODE (fragP->fr_opcode[0], M6812_BSR));
- fragP->fr_opcode[0] = convert_branch (fragP->fr_opcode[0]);
- fix_new (fragP, fragP->fr_fix - 1, 2,
- fragP->fr_symbol, fragP->fr_offset, 0, BFD_RELOC_16);
- fragP->fr_fix += 1;
- break;
- case ENCODE_RELAX (STATE_CONDITIONAL_BRANCH, STATE_BYTE):
- case ENCODE_RELAX (STATE_CONDITIONAL_BRANCH_6812, STATE_BYTE):
- fragP->fr_opcode[1] = disp;
- break;
- case ENCODE_RELAX (STATE_CONDITIONAL_BRANCH, STATE_WORD):
- /* Invert branch. */
- fragP->fr_opcode[0] ^= 1;
- fragP->fr_opcode[1] = 3; /* Branch offset. */
- buffer_address[0] = M6811_JMP;
- fix_new (fragP, fragP->fr_fix + 1, 2,
- fragP->fr_symbol, fragP->fr_offset, 0, BFD_RELOC_16);
- fragP->fr_fix += 3;
- break;
- case ENCODE_RELAX (STATE_CONDITIONAL_BRANCH_6812, STATE_WORD):
- /* Translate branch into a long branch. */
- fragP->fr_opcode[1] = fragP->fr_opcode[0];
- fragP->fr_opcode[0] = M6811_OPCODE_PAGE2;
- fix_new (fragP, fragP->fr_fix, 2,
- fragP->fr_symbol, fragP->fr_offset, 1,
- BFD_RELOC_16_PCREL);
- fragP->fr_fix += 2;
- break;
- case ENCODE_RELAX (STATE_INDEXED_PCREL, STATE_BITS5):
- if (fragP->fr_symbol != 0
- && S_GET_SEGMENT (fragP->fr_symbol) != absolute_section)
- value = disp;
- /* fall through */
- case ENCODE_RELAX (STATE_INDEXED_OFFSET, STATE_BITS5):
- fragP->fr_opcode[0] = fragP->fr_opcode[0] << 6;
- fragP->fr_opcode[0] |= value & 0x1f;
- break;
- case ENCODE_RELAX (STATE_INDEXED_PCREL, STATE_BITS9):
- /* For a PC-relative offset, use the displacement with a -1 correction
- to take into account the additional byte of the insn. */
- if (fragP->fr_symbol != 0
- && S_GET_SEGMENT (fragP->fr_symbol) != absolute_section)
- value = disp - 1;
- /* fall through */
- case ENCODE_RELAX (STATE_INDEXED_OFFSET, STATE_BITS9):
- fragP->fr_opcode[0] = (fragP->fr_opcode[0] << 3);
- fragP->fr_opcode[0] |= 0xE0;
- fragP->fr_opcode[0] |= (value >> 8) & 1;
- fragP->fr_opcode[1] = value;
- fragP->fr_fix += 1;
- break;
- case ENCODE_RELAX (STATE_INDEXED_PCREL, STATE_BITS16):
- case ENCODE_RELAX (STATE_INDEXED_OFFSET, STATE_BITS16):
- fragP->fr_opcode[0] = (fragP->fr_opcode[0] << 3);
- fragP->fr_opcode[0] |= 0xe2;
- if ((fragP->fr_opcode[0] & 0x0ff) == 0x0fa
- && fragP->fr_symbol != 0
- && S_GET_SEGMENT (fragP->fr_symbol) != absolute_section)
- {
- fix_new (fragP, fragP->fr_fix, 2,
- fragP->fr_symbol, fragP->fr_offset,
- 1, BFD_RELOC_16_PCREL);
- }
- else
- {
- fix_new (fragP, fragP->fr_fix, 2,
- fragP->fr_symbol, fragP->fr_offset, 0, BFD_RELOC_16);
- }
- fragP->fr_fix += 2;
- break;
- case ENCODE_RELAX (STATE_XBCC_BRANCH, STATE_BYTE):
- if (disp < 0)
- fragP->fr_opcode[0] |= 0x10;
- fragP->fr_opcode[1] = disp & 0x0FF;
- break;
- case ENCODE_RELAX (STATE_XBCC_BRANCH, STATE_WORD):
- /* Invert branch. */
- fragP->fr_opcode[0] ^= 0x20;
- fragP->fr_opcode[1] = 3; /* Branch offset. */
- buffer_address[0] = M6812_JMP;
- fix_new (fragP, fragP->fr_fix + 1, 2,
- fragP->fr_symbol, fragP->fr_offset, 0, BFD_RELOC_16);
- fragP->fr_fix += 3;
- break;
- default:
- break;
- }
- }
- /* On an ELF system, we can't relax a weak symbol. The weak symbol
- can be overridden at final link time by a non weak symbol. We can
- relax externally visible symbol because there is no shared library
- and such symbol can't be overridden (unless they are weak). */
- static int
- relaxable_symbol (symbolS *symbol)
- {
- return ! S_IS_WEAK (symbol);
- }
- /* Force truly undefined symbols to their maximum size, and generally set up
- the frag list to be relaxed. */
- int
- md_estimate_size_before_relax (fragS *fragP, asection *segment)
- {
- if (RELAX_LENGTH (fragP->fr_subtype) == STATE_UNDF)
- {
- if (S_GET_SEGMENT (fragP->fr_symbol) != segment
- || !relaxable_symbol (fragP->fr_symbol)
- || (segment != absolute_section
- && RELAX_STATE (fragP->fr_subtype) == STATE_INDEXED_OFFSET))
- {
- /* Non-relaxable cases. */
- int old_fr_fix;
- char *buffer_address;
- old_fr_fix = fragP->fr_fix;
- buffer_address = fragP->fr_fix + fragP->fr_literal;
- switch (RELAX_STATE (fragP->fr_subtype))
- {
- case STATE_PC_RELATIVE:
- /* This relax is only for bsr and bra. */
- gas_assert (IS_OPCODE (fragP->fr_opcode[0], M6811_BSR)
- || IS_OPCODE (fragP->fr_opcode[0], M6811_BRA)
- || IS_OPCODE (fragP->fr_opcode[0], M6812_BSR));
- if (flag_fixed_branches)
- as_bad_where (fragP->fr_file, fragP->fr_line,
- _("bra or bsr with undefined symbol."));
- /* The symbol is undefined or in a separate section.
- Turn bra into a jmp and bsr into a jsr. The insn
- becomes 3 bytes long (instead of 2). A fixup is
- necessary for the unresolved symbol address. */
- fragP->fr_opcode[0] = convert_branch (fragP->fr_opcode[0]);
- fix_new (fragP, fragP->fr_fix - 1, 2, fragP->fr_symbol,
- fragP->fr_offset, 0, BFD_RELOC_16);
- fragP->fr_fix++;
- break;
- case STATE_CONDITIONAL_BRANCH:
- gas_assert (current_architecture & cpu6811);
- fragP->fr_opcode[0] ^= 1; /* Reverse sense of branch. */
- fragP->fr_opcode[1] = 3; /* Skip next jmp insn (3 bytes). */
- /* Don't use fr_opcode[2] because this may be
- in a different frag. */
- buffer_address[0] = M6811_JMP;
- fragP->fr_fix++;
- fix_new (fragP, fragP->fr_fix, 2, fragP->fr_symbol,
- fragP->fr_offset, 0, BFD_RELOC_16);
- fragP->fr_fix += 2;
- break;
- case STATE_INDEXED_OFFSET:
- gas_assert (current_architecture & cpu6812);
- if (fragP->fr_symbol
- && S_GET_SEGMENT (fragP->fr_symbol) == absolute_section)
- {
- fragP->fr_subtype = ENCODE_RELAX (STATE_INDEXED_OFFSET,
- STATE_BITS5);
- /* Return the size of the variable part of the frag. */
- return md_relax_table[fragP->fr_subtype].rlx_length;
- }
- else
- {
- /* Switch the indexed operation to 16-bit mode. */
- fragP->fr_opcode[0] = fragP->fr_opcode[0] << 3;
- fragP->fr_opcode[0] |= 0xe2;
- fix_new (fragP, fragP->fr_fix, 2, fragP->fr_symbol,
- fragP->fr_offset, 0, BFD_RELOC_16);
- fragP->fr_fix += 2;
- }
- break;
- case STATE_INDEXED_PCREL:
- gas_assert (current_architecture & cpu6812);
- if (fragP->fr_symbol
- && S_GET_SEGMENT (fragP->fr_symbol) == absolute_section)
- {
- fragP->fr_subtype = ENCODE_RELAX (STATE_INDEXED_PCREL,
- STATE_BITS5);
- /* Return the size of the variable part of the frag. */
- return md_relax_table[fragP->fr_subtype].rlx_length;
- }
- else
- {
- fragP->fr_opcode[0] = fragP->fr_opcode[0] << 3;
- fragP->fr_opcode[0] |= 0xe2;
- fix_new (fragP, fragP->fr_fix, 2, fragP->fr_symbol,
- fragP->fr_offset, 1, BFD_RELOC_16_PCREL);
- fragP->fr_fix += 2;
- }
- break;
- case STATE_XBCC_BRANCH:
- gas_assert (current_architecture & cpu6812);
- fragP->fr_opcode[0] ^= 0x20; /* Reverse sense of branch. */
- fragP->fr_opcode[1] = 3; /* Skip next jmp insn (3 bytes). */
- /* Don't use fr_opcode[2] because this may be
- in a different frag. */
- buffer_address[0] = M6812_JMP;
- fragP->fr_fix++;
- fix_new (fragP, fragP->fr_fix, 2, fragP->fr_symbol,
- fragP->fr_offset, 0, BFD_RELOC_16);
- fragP->fr_fix += 2;
- break;
- case STATE_CONDITIONAL_BRANCH_6812:
- gas_assert (current_architecture & cpu6812);
- /* Translate into a lbcc branch. */
- fragP->fr_opcode[1] = fragP->fr_opcode[0];
- fragP->fr_opcode[0] = M6811_OPCODE_PAGE2;
- fix_new (fragP, fragP->fr_fix, 2, fragP->fr_symbol,
- fragP->fr_offset, 1, BFD_RELOC_16_PCREL);
- fragP->fr_fix += 2;
- break;
- default:
- as_fatal (_("Subtype %d is not recognized."), fragP->fr_subtype);
- }
- frag_wane (fragP);
- /* Return the growth in the fixed part of the frag. */
- return fragP->fr_fix - old_fr_fix;
- }
- /* Relaxable cases. */
- switch (RELAX_STATE (fragP->fr_subtype))
- {
- case STATE_PC_RELATIVE:
- /* This relax is only for bsr and bra. */
- gas_assert (IS_OPCODE (fragP->fr_opcode[0], M6811_BSR)
- || IS_OPCODE (fragP->fr_opcode[0], M6811_BRA)
- || IS_OPCODE (fragP->fr_opcode[0], M6812_BSR));
- fragP->fr_subtype = ENCODE_RELAX (STATE_PC_RELATIVE, STATE_BYTE);
- break;
- case STATE_CONDITIONAL_BRANCH:
- gas_assert (current_architecture & cpu6811);
- fragP->fr_subtype = ENCODE_RELAX (STATE_CONDITIONAL_BRANCH,
- STATE_BYTE);
- break;
- case STATE_INDEXED_OFFSET:
- gas_assert (current_architecture & cpu6812);
- fragP->fr_subtype = ENCODE_RELAX (STATE_INDEXED_OFFSET,
- STATE_BITS5);
- break;
- case STATE_INDEXED_PCREL:
- gas_assert (current_architecture & cpu6812);
- fragP->fr_subtype = ENCODE_RELAX (STATE_INDEXED_PCREL,
- STATE_BITS5);
- break;
- case STATE_XBCC_BRANCH:
- gas_assert (current_architecture & cpu6812);
- fragP->fr_subtype = ENCODE_RELAX (STATE_XBCC_BRANCH, STATE_BYTE);
- break;
- case STATE_CONDITIONAL_BRANCH_6812:
- gas_assert (current_architecture & cpu6812);
- fragP->fr_subtype = ENCODE_RELAX (STATE_CONDITIONAL_BRANCH_6812,
- STATE_BYTE);
- break;
- }
- }
- if (fragP->fr_subtype >= sizeof (md_relax_table) / sizeof (md_relax_table[0]))
- as_fatal (_("Subtype %d is not recognized."), fragP->fr_subtype);
- /* Return the size of the variable part of the frag. */
- return md_relax_table[fragP->fr_subtype].rlx_length;
- }
- /* See whether we need to force a relocation into the output file. */
- int
- tc_m68hc11_force_relocation (fixS *fixP)
- {
- if (fixP->fx_r_type == BFD_RELOC_M68HC11_RL_GROUP)
- return 1;
- return generic_force_reloc (fixP);
- }
- /* Here we decide which fixups can be adjusted to make them relative
- to the beginning of the section instead of the symbol. Basically
- we need to make sure that the linker relaxation is done
- correctly, so in some cases we force the original symbol to be
- used. */
- int
- tc_m68hc11_fix_adjustable (fixS *fixP)
- {
- switch (fixP->fx_r_type)
- {
- /* For the linker relaxation to work correctly, these relocs
- need to be on the symbol itself. */
- case BFD_RELOC_16:
- case BFD_RELOC_M68HC11_RL_JUMP:
- case BFD_RELOC_M68HC11_RL_GROUP:
- case BFD_RELOC_VTABLE_INHERIT:
- case BFD_RELOC_VTABLE_ENTRY:
- case BFD_RELOC_32:
- /* The memory bank addressing translation also needs the original
- symbol. */
- case BFD_RELOC_M68HC11_LO16:
- case BFD_RELOC_M68HC11_PAGE:
- case BFD_RELOC_M68HC11_24:
- return 0;
- default:
- return 1;
- }
- }
- void
- md_apply_fix (fixS *fixP, valueT *valP, segT seg ATTRIBUTE_UNUSED)
- {
- char *where;
- long value = * valP;
- if (fixP->fx_addsy == (symbolS *) NULL)
- fixP->fx_done = 1;
- /* We don't actually support subtracting a symbol. */
- if (fixP->fx_subsy != (symbolS *) NULL)
- as_bad_subtract (fixP);
- /* Patch the instruction with the resolved operand. Elf relocation
- info will also be generated to take care of linker/loader fixups.
- The 68HC11 addresses only 64Kb, we are only concerned by 8 and 16-bit
- relocs. BFD_RELOC_8 is basically used for .page0 access (the linker
- will warn for overflows). BFD_RELOC_8_PCREL should not be generated
- because it's either resolved or turned out into non-relative insns (see
- relax table, bcc, bra, bsr transformations)
- The BFD_RELOC_32 is necessary for the support of --gstabs. */
- where = fixP->fx_frag->fr_literal + fixP->fx_where;
- switch (fixP->fx_r_type)
- {
- case BFD_RELOC_32:
- bfd_putb32 ((bfd_vma) value, (unsigned char *) where);
- break;
- case BFD_RELOC_24:
- case BFD_RELOC_M68HC11_24:
- bfd_putb16 ((bfd_vma) (value & 0x0ffff), (unsigned char *) where);
- ((bfd_byte*) where)[2] = ((value >> 16) & 0x0ff);
- break;
- case BFD_RELOC_16:
- case BFD_RELOC_16_PCREL:
- case BFD_RELOC_M68HC11_LO16:
- bfd_putb16 ((bfd_vma) value, (unsigned char *) where);
- if (value < -65537 || value > 65535)
- as_bad_where (fixP->fx_file, fixP->fx_line,
- _("Value out of 16-bit range."));
- break;
- case BFD_RELOC_M68HC11_HI8:
- /* Caution, %hi(<symbol>+%ld) will generate incorrect code if %lo
- causes a carry. */
- case BFD_RELOC_M68HC12_HI8XG:
- value = value >> 8;
- /* Fall through. */
- case BFD_RELOC_M68HC12_LO8XG:
- case BFD_RELOC_M68HC11_LO8:
- case BFD_RELOC_8:
- case BFD_RELOC_M68HC11_PAGE:
- ((bfd_byte *) where)[0] = (bfd_byte) value;
- break;
- case BFD_RELOC_8_PCREL:
- ((bfd_byte *) where)[0] = (bfd_byte) value;
- if (value < -128 || value > 127)
- as_bad_where (fixP->fx_file, fixP->fx_line,
- _("Value %ld too large for 8-bit PC-relative branch."),
- value);
- break;
- /* These next two are for XGATE. */
- case BFD_RELOC_M68HC12_9_PCREL:
- ((bfd_byte *) where)[0] |= (bfd_byte) ((value >>9) & 0x01);
- ((bfd_byte *) where)[1] = (bfd_byte) ((value>>1) & 0xff);
- if (value < -512 || value > 511)
- as_bad_where (fixP->fx_file, fixP->fx_line,
- _("Value %ld too large for 9-bit PC-relative branch."),
- value);
- break;
- case BFD_RELOC_M68HC12_10_PCREL:
- ((bfd_byte *) where)[0] |= (bfd_byte) ((value >>9) & 0x03);
- ((bfd_byte *) where)[1] = (bfd_byte) ((value>>1) & 0xff);
- if (value < -1024 || value > 1023)
- as_bad_where (fixP->fx_file, fixP->fx_line,
- _("Value %ld too large for 10-bit PC-relative branch."),
- value);
- break;
- case BFD_RELOC_M68HC11_3B:
- if (value <= 0 || value > 8)
- as_bad_where (fixP->fx_file, fixP->fx_line,
- _("Auto increment/decrement offset '%ld' is out of range."),
- value);
- if (where[0] & 0x8)
- value = 8 - value;
- else
- value--;
- where[0] = where[0] | (value & 0x07);
- break;
- case BFD_RELOC_M68HC12_5B:
- if (value < -16 || value > 15)
- as_bad_where (fixP->fx_file, fixP->fx_line,
- _("Offset out of 5-bit range for movw/movb insn: %ld"),
- value);
- if (value >= 0)
- where[0] |= value;
- else
- where[0] |= (0x10 | (16 + value));
- break;
- case BFD_RELOC_M68HC12_9B:
- if (value < -256 || value > 255)
- as_bad_where (fixP->fx_file, fixP->fx_line,
- _("Offset out of 9-bit range for movw/movb insn: %ld"),
- value);
- /* sign bit already in xb postbyte */
- if (value >= 0)
- where[1] = value;
- else
- where[1] = (256 + value);
- break;
- case BFD_RELOC_M68HC12_16B:
- if (value < -32768 || value > 32767)
- as_bad_where (fixP->fx_file, fixP->fx_line,
- _("Offset out of 16-bit range for movw/movb insn: %ld"),
- value);
- if (value < 0)
- value += 65536;
- where[0] = (value >> 8);
- where[1] = (value & 0xff);
- break;
- case BFD_RELOC_M68HC11_RL_JUMP:
- case BFD_RELOC_M68HC11_RL_GROUP:
- case BFD_RELOC_VTABLE_INHERIT:
- case BFD_RELOC_VTABLE_ENTRY:
- fixP->fx_done = 0;
- return;
- default:
- as_fatal (_("Line %d: unknown relocation type: 0x%x."),
- fixP->fx_line, fixP->fx_r_type);
- }
- }
- /* Set the ELF specific flags. */
- void
- m68hc11_elf_final_processing (void)
- {
- if (current_architecture & cpu6812s)
- elf_flags |= EF_M68HCS12_MACH;
- elf_elfheader (stdoutput)->e_flags &= ~EF_M68HC11_ABI;
- elf_elfheader (stdoutput)->e_flags |= elf_flags;
- }
- /* Process directives specified via pseudo ops */
- static void
- s_m68hc11_parse_pseudo_instruction (int pseudo_insn)
- {
- switch (pseudo_insn)
- {
- case E_M68HC11_NO_BANK_WARNING:
- elf_flags |= E_M68HC11_NO_BANK_WARNING;
- break;
- default:
- as_bad (_("Invalid directive"));
- }
- }
|