options.pas 81 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964196519661967196819691970197119721973197419751976197719781979198019811982198319841985198619871988198919901991199219931994199519961997199819992000200120022003200420052006200720082009201020112012201320142015201620172018201920202021202220232024202520262027202820292030203120322033203420352036203720382039204020412042204320442045204620472048204920502051205220532054205520562057205820592060206120622063206420652066206720682069207020712072207320742075207620772078207920802081208220832084208520862087208820892090209120922093209420952096209720982099210021012102210321042105210621072108210921102111211221132114211521162117211821192120212121222123212421252126212721282129213021312132213321342135213621372138213921402141214221432144214521462147214821492150215121522153215421552156215721582159216021612162216321642165216621672168216921702171217221732174217521762177217821792180218121822183218421852186218721882189219021912192219321942195219621972198219922002201220222032204220522062207220822092210221122122213221422152216221722182219222022212222222322242225222622272228222922302231223222332234223522362237223822392240224122422243224422452246224722482249225022512252225322542255225622572258225922602261226222632264226522662267226822692270227122722273227422752276227722782279228022812282228322842285228622872288228922902291229222932294229522962297229822992300230123022303230423052306230723082309231023112312231323142315231623172318231923202321232223232324232523262327232823292330233123322333233423352336233723382339234023412342234323442345234623472348234923502351235223532354235523562357235823592360236123622363236423652366236723682369237023712372237323742375237623772378237923802381238223832384238523862387238823892390239123922393239423952396239723982399240024012402240324042405240624072408240924102411241224132414241524162417241824192420242124222423242424252426242724282429243024312432243324342435243624372438243924402441244224432444244524462447244824492450245124522453245424552456245724582459246024612462246324642465246624672468246924702471247224732474247524762477247824792480248124822483248424852486248724882489249024912492249324942495249624972498249925002501250225032504250525062507250825092510251125122513251425152516251725182519252025212522252325242525252625272528
  1. {
  2. Copyright (c) 1998-2002 by Florian Klaempfl and Peter Vreman
  3. Reads command line options and config files
  4. This program is free software; you can redistribute it and/or modify
  5. it under the terms of the GNU General Public License as published by
  6. the Free Software Foundation; either version 2 of the License, or
  7. (at your option) any later version.
  8. This program is distributed in the hope that it will be useful,
  9. but WITHOUT ANY WARRANTY; without even the implied warranty of
  10. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  11. GNU General Public License for more details.
  12. You should have received a copy of the GNU General Public License
  13. along with this program; if not, write to the Free Software
  14. Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  15. ****************************************************************************
  16. }
  17. unit options;
  18. {$i fpcdefs.inc}
  19. interface
  20. uses
  21. CClasses,cfileutl,
  22. globtype,globals,verbose,systems,cpuinfo, comprsrc;
  23. Type
  24. TOption=class
  25. FirstPass,
  26. ParaLogo,
  27. NoPressEnter,
  28. LogoWritten : boolean;
  29. FileLevel : longint;
  30. QuickInfo : string;
  31. ParaIncludePath,
  32. ParaUnitPath,
  33. ParaObjectPath,
  34. ParaLibraryPath,
  35. ParaFrameworkPath : TSearchPathList;
  36. ParaAlignment : TAlignmentInfo;
  37. Constructor Create;
  38. Destructor Destroy;override;
  39. procedure WriteLogo;
  40. procedure WriteInfo;
  41. procedure WriteHelpPages;
  42. procedure WriteQuickInfo;
  43. procedure IllegalPara(const opt:string);
  44. function Unsetbool(var Opts:TCmdStr; Pos: Longint):boolean;
  45. procedure interpret_option(const opt :string;ispara:boolean);
  46. procedure Interpret_envvar(const envname : string);
  47. procedure Interpret_file(const filename : string);
  48. procedure Read_Parameters;
  49. procedure parsecmd(cmd:string);
  50. procedure TargetOptions(def:boolean);
  51. end;
  52. TOptionClass=class of toption;
  53. var
  54. coption : TOptionClass;
  55. procedure read_arguments(cmd:string);
  56. implementation
  57. uses
  58. widestr,
  59. charset,
  60. SysUtils,
  61. version,
  62. cutils,cmsgs,
  63. comphook,
  64. symtable,scanner,rabase
  65. ;
  66. const
  67. page_size = 24;
  68. var
  69. option : toption;
  70. read_configfile, { read config file, set when a cfgfile is found }
  71. disable_configfile : boolean;
  72. fpcdir,
  73. ppccfg,
  74. ppcaltcfg,
  75. param_file : string; { file to compile specified on the commandline }
  76. {****************************************************************************
  77. Defines
  78. ****************************************************************************}
  79. procedure set_default_link_type;
  80. begin
  81. undef_system_macro('FPC_LINK_SMART');
  82. def_system_macro('FPC_LINK_STATIC');
  83. undef_system_macro('FPC_LINK_DYNAMIC');
  84. init_settings.globalswitches:=init_settings.globalswitches+[cs_link_static];
  85. init_settings.globalswitches:=init_settings.globalswitches-[cs_link_shared,cs_link_smart];
  86. end;
  87. {****************************************************************************
  88. Toption
  89. ****************************************************************************}
  90. procedure StopOptions(err:longint);
  91. begin
  92. if assigned(Option) then
  93. begin
  94. Option.free;
  95. Option:=nil;
  96. end;
  97. raise ECompilerAbortSilent.Create;
  98. end;
  99. procedure Toption.WriteLogo;
  100. var
  101. p : pchar;
  102. begin
  103. if not LogoWritten then
  104. begin
  105. p:=MessagePchar(option_logo);
  106. while assigned(p) do
  107. Comment(V_Normal,GetMsgLine(p));
  108. LogoWritten:= true;
  109. end;
  110. end;
  111. procedure Toption.WriteInfo;
  112. var
  113. p : pchar;
  114. hs,hs1,s : TCmdStr;
  115. target : tsystem;
  116. cpu : tcputype;
  117. fpu : tfputype;
  118. opt : toptimizerswitch;
  119. begin
  120. p:=MessagePchar(option_info);
  121. while assigned(p) do
  122. begin
  123. s:=GetMsgLine(p);
  124. { list OS Targets }
  125. if pos('$OSTARGETS',s)>0 then
  126. begin
  127. for target:=low(tsystem) to high(tsystem) do
  128. if assigned(targetinfos[target]) then
  129. begin
  130. hs:=s;
  131. hs1:=targetinfos[target]^.name;
  132. if tf_under_development in targetinfos[target]^.flags then
  133. hs1:=hs1+' (under development)';
  134. Replace(hs,'$OSTARGETS',hs1);
  135. Comment(V_Normal,hs);
  136. end;
  137. end
  138. else if pos('$INSTRUCTIONSETS',s)>0 then
  139. begin
  140. for cpu:=low(tcputype) to high(tcputype) do
  141. begin
  142. hs:=s;
  143. hs1:=cputypestr[cpu];
  144. if hs1<>'' then
  145. begin
  146. Replace(hs,'$INSTRUCTIONSETS',hs1);
  147. Comment(V_Normal,hs);
  148. end;
  149. end;
  150. end
  151. else if pos('$FPUINSTRUCTIONSETS',s)>0 then
  152. begin
  153. for fpu:=low(tfputype) to high(tfputype) do
  154. begin
  155. hs:=s;
  156. hs1:=fputypestr[fpu];
  157. if hs1<>'' then
  158. begin
  159. Replace(hs,'$FPUINSTRUCTIONSETS',hs1);
  160. Comment(V_Normal,hs);
  161. end;
  162. end;
  163. end
  164. else if pos('$OPTIMIZATIONS',s)>0 then
  165. begin
  166. for opt:=low(toptimizerswitch) to high(toptimizerswitch) do
  167. begin
  168. if opt in supported_optimizerswitches then
  169. begin
  170. hs:=s;
  171. hs1:=OptimizerSwitchStr[opt];
  172. if hs1<>'' then
  173. begin
  174. Replace(hs,'$OPTIMIZATIONS',hs1);
  175. Comment(V_Normal,hs);
  176. end;
  177. end;
  178. end;
  179. end
  180. else
  181. Comment(V_Normal,s);
  182. end;
  183. StopOptions(0);
  184. end;
  185. procedure Toption.WriteHelpPages;
  186. function PadEnd(s:string;i:longint):string;
  187. begin
  188. while (length(s)<i) do
  189. s:=s+' ';
  190. PadEnd:=s;
  191. end;
  192. var
  193. lastident,
  194. j,outline,
  195. ident,
  196. lines : longint;
  197. show : boolean;
  198. opt : string[32];
  199. input,
  200. s : string;
  201. p : pchar;
  202. begin
  203. WriteLogo;
  204. Lines:=4;
  205. Message1(option_usage,FixFileName(system.paramstr(0)));
  206. lastident:=0;
  207. p:=MessagePChar(option_help_pages);
  208. while assigned(p) do
  209. begin
  210. { get a line and reset }
  211. s:=GetMsgLine(p);
  212. ident:=0;
  213. show:=false;
  214. { parse options }
  215. case s[1] of
  216. {$ifdef UNITALIASES}
  217. 'a',
  218. {$endif}
  219. {$ifdef EXTDEBUG}
  220. 'e',
  221. {$endif EXTDEBUG}
  222. {$ifdef i386}
  223. '3',
  224. {$endif}
  225. {$ifdef x86_64}
  226. '4',
  227. {$endif}
  228. {$ifdef m68k}
  229. '6',
  230. {$endif}
  231. {$ifdef arm}
  232. 'A',
  233. {$endif}
  234. {$ifdef powerpc}
  235. 'P',
  236. {$endif}
  237. {$ifdef powerpc64}
  238. 'p',
  239. {$endif}
  240. {$ifdef sparc}
  241. 'S',
  242. {$endif}
  243. {$ifdef vis}
  244. 'V',
  245. {$endif}
  246. '*' : show:=true;
  247. end;
  248. if show then
  249. begin
  250. case s[2] of
  251. 'g',
  252. {$ifdef Unix}
  253. 'L',
  254. {$endif}
  255. {$ifdef os2}
  256. 'O',
  257. {$endif}
  258. '*' : show:=true;
  259. else
  260. show:=false;
  261. end;
  262. end;
  263. { now we may show the message or not }
  264. if show then
  265. begin
  266. case s[3] of
  267. '0' : begin
  268. ident:=0;
  269. outline:=0;
  270. end;
  271. '1' : begin
  272. ident:=2;
  273. outline:=7;
  274. end;
  275. '2' : begin
  276. ident:=6;
  277. outline:=11;
  278. end;
  279. '3' : begin
  280. ident:=9;
  281. outline:=11;
  282. end;
  283. end;
  284. j:=pos('_',s);
  285. opt:=Copy(s,4,j-4);
  286. if opt='*' then
  287. opt:=''
  288. else
  289. if opt=' ' then
  290. opt:=PadEnd(opt,outline)
  291. else
  292. opt:=PadEnd('-'+opt,outline);
  293. if (ident=0) and (lastident<>0) then
  294. begin
  295. Comment(V_Normal,'');
  296. inc(Lines);
  297. end;
  298. { page full ? }
  299. if (lines >= page_size - 1) then
  300. begin
  301. if not NoPressEnter then
  302. begin
  303. Message(option_help_press_enter);
  304. readln(input);
  305. if upper(input)='Q' then
  306. StopOptions(0);
  307. end;
  308. lines:=0;
  309. end;
  310. Comment(V_Normal,PadEnd('',ident)+opt+Copy(s,j+1,255));
  311. LastIdent:=Ident;
  312. inc(Lines);
  313. end;
  314. end;
  315. StopOptions(0);
  316. end;
  317. procedure Toption.IllegalPara(const opt:string);
  318. begin
  319. Message1(option_illegal_para,opt);
  320. Message(option_help_pages_para);
  321. StopOptions(1);
  322. end;
  323. function Toption.Unsetbool(var Opts:TCmdStr; Pos: Longint):boolean;
  324. { checks if the character after pos in Opts is a + or a - and returns resp.
  325. false or true. If it is another character (or none), it also returns false }
  326. begin
  327. UnsetBool := false;
  328. if Length(Opts)>Pos then
  329. begin
  330. inc(Pos);
  331. UnsetBool := Opts[Pos] = '-';
  332. if Opts[Pos] in ['-','+']then
  333. delete(Opts,Pos,1);
  334. end;
  335. end;
  336. procedure TOption.interpret_option(const opt:string;ispara:boolean);
  337. var
  338. code : integer;
  339. c : char;
  340. more : TCmdStr;
  341. major,minor : longint;
  342. error : integer;
  343. j,l : longint;
  344. d,s : TCmdStr;
  345. unicodemapping : punicodemap;
  346. begin
  347. if opt='' then
  348. exit;
  349. { only parse define,undef,target,verbosity,link etc options the firsttime }
  350. if firstpass and
  351. not(
  352. (opt[1]='-') and
  353. (
  354. ((length(opt)>1) and (opt[2] in ['i','d','v','T','u','n','X','l'])) or
  355. ((length(opt)>3) and (opt[2]='F') and (opt[3]='e'))
  356. )
  357. ) then
  358. exit;
  359. Message1(option_handling_option,opt);
  360. case opt[1] of
  361. '-' :
  362. begin
  363. more:=Copy(opt,3,255);
  364. if firstpass then
  365. Message1(option_interpreting_firstpass_option,opt)
  366. else
  367. Message1(option_interpreting_option,opt);
  368. case opt[2] of
  369. '?' :
  370. WriteHelpPages;
  371. 'a' :
  372. begin
  373. include(init_settings.globalswitches,cs_asm_leave);
  374. j:=1;
  375. while j<=length(more) do
  376. begin
  377. case more[j] of
  378. 'l' :
  379. include(init_settings.globalswitches,cs_asm_source);
  380. 'r' :
  381. include(init_settings.globalswitches,cs_asm_regalloc);
  382. 't' :
  383. include(init_settings.globalswitches,cs_asm_tempalloc);
  384. 'n' :
  385. include(init_settings.globalswitches,cs_asm_nodes);
  386. 'p' :
  387. begin
  388. exclude(init_settings.globalswitches,cs_asm_leave);
  389. if UnsetBool(More, 0) then
  390. exclude(init_settings.globalswitches,cs_asm_pipe)
  391. else
  392. include(init_settings.globalswitches,cs_asm_pipe);
  393. end;
  394. '-' :
  395. init_settings.globalswitches:=init_settings.globalswitches -
  396. [cs_asm_leave, cs_asm_source,cs_asm_regalloc, cs_asm_tempalloc,
  397. cs_asm_nodes, cs_asm_pipe];
  398. else
  399. IllegalPara(opt);
  400. end;
  401. inc(j);
  402. end;
  403. end;
  404. 'A' :
  405. begin
  406. paratargetasm:=find_asm_by_string(More);
  407. if paratargetasm=as_none then
  408. IllegalPara(opt);
  409. end;
  410. 'b' :
  411. begin
  412. // Message1(option_obsolete_switch,'-b');
  413. if UnsetBool(More,0) then
  414. begin
  415. init_settings.moduleswitches:=init_settings.moduleswitches-[cs_browser];
  416. init_settings.moduleswitches:=init_settings.moduleswitches-[cs_local_browser];
  417. end
  418. else
  419. begin
  420. init_settings.moduleswitches:=init_settings.moduleswitches+[cs_browser];
  421. end;
  422. if More<>'' then
  423. if (More='l') or (More='l+') then
  424. init_settings.moduleswitches:=init_settings.moduleswitches+[cs_local_browser]
  425. else if More='l-' then
  426. init_settings.moduleswitches:=init_settings.moduleswitches-[cs_local_browser]
  427. else
  428. IllegalPara(opt);
  429. end;
  430. 'B' :
  431. do_build:=not UnSetBool(more,0);
  432. 'C' :
  433. begin
  434. j:=1;
  435. while j<=length(more) do
  436. begin
  437. case more[j] of
  438. 'c' :
  439. begin
  440. if not SetAktProcCall(upper(copy(more,j+1,length(more)-j)),init_settings.defproccall) then
  441. IllegalPara(opt);
  442. break;
  443. end;
  444. {$ifdef cpufpemu}
  445. 'e' :
  446. begin
  447. If UnsetBool(More, j) then
  448. exclude(init_settings.moduleswitches,cs_fp_emulation)
  449. Else
  450. include(init_settings.moduleswitches,cs_fp_emulation);
  451. end;
  452. {$endif cpufpemu}
  453. 'f' :
  454. begin
  455. s:=upper(copy(more,j+1,length(more)-j));
  456. if not(SetFpuType(s,init_settings.fputype)) then
  457. IllegalPara(opt);
  458. break;
  459. end;
  460. 'F' :
  461. begin
  462. if not SetMinFPConstPrec(copy(more,j+1,length(more)-j),init_settings.minfpconstprec) then
  463. IllegalPara(opt);
  464. break;
  465. end;
  466. 'g' :
  467. begin
  468. if tf_no_pic_supported in target_info.flags then
  469. begin
  470. { consume a possible '-' coming after it }
  471. UnsetBool(More, j);
  472. message(scan_w_pic_ignored);
  473. end
  474. else if UnsetBool(More, j) then
  475. exclude(init_settings.moduleswitches,cs_create_pic)
  476. else
  477. include(init_settings.moduleswitches,cs_create_pic);
  478. end;
  479. 'h' :
  480. begin
  481. val(copy(more,j+1,length(more)-j),heapsize,code);
  482. if (code<>0) or (heapsize<1024) then
  483. IllegalPara(opt);
  484. break;
  485. end;
  486. 'i' :
  487. If UnsetBool(More, j) then
  488. exclude(init_settings.localswitches,cs_check_io)
  489. else
  490. include(init_settings.localswitches,cs_check_io);
  491. 'n' :
  492. If UnsetBool(More, j) then
  493. exclude(init_settings.globalswitches,cs_link_nolink)
  494. Else
  495. include(init_settings.globalswitches,cs_link_nolink);
  496. 'o' :
  497. If UnsetBool(More, j) then
  498. exclude(init_settings.localswitches,cs_check_overflow)
  499. Else
  500. include(init_settings.localswitches,cs_check_overflow);
  501. 'O' :
  502. If UnsetBool(More, j) then
  503. exclude(init_settings.localswitches,cs_check_ordinal_size)
  504. Else
  505. include(init_settings.localswitches,cs_check_ordinal_size);
  506. 'p' :
  507. begin
  508. s:=upper(copy(more,j+1,length(more)-j));
  509. if not(Setcputype(s,init_settings.cputype)) then
  510. IllegalPara(opt);
  511. break;
  512. end;
  513. 'P':
  514. begin
  515. delete(more,1,1);
  516. if upper(copy(more,1,pos('=',more)-1))='PACKSET' then
  517. begin
  518. delete(more,1,pos('=',more));
  519. if more='0' then
  520. init_settings.setalloc:=0
  521. else if (more='1') or (more='DEFAULT') or (more='NORMAL') then
  522. init_settings.setalloc:=1
  523. else if more='2' then
  524. init_settings.setalloc:=2
  525. else if more='4' then
  526. init_settings.setalloc:=4
  527. else if more='8' then
  528. init_settings.setalloc:=8
  529. else
  530. IllegalPara(opt);
  531. end
  532. else
  533. IllegalPara(opt);
  534. end;
  535. 'r' :
  536. If UnsetBool(More, j) then
  537. exclude(init_settings.localswitches,cs_check_range)
  538. Else
  539. include(init_settings.localswitches,cs_check_range);
  540. 'R' :
  541. If UnsetBool(More, j) then
  542. begin
  543. exclude(init_settings.localswitches,cs_check_range);
  544. exclude(init_settings.localswitches,cs_check_object);
  545. end
  546. Else
  547. begin
  548. include(init_settings.localswitches,cs_check_range);
  549. include(init_settings.localswitches,cs_check_object);
  550. end;
  551. 's' :
  552. begin
  553. val(copy(more,j+1,length(more)-j),stacksize,code);
  554. if (code<>0) or (stacksize>=67107840) or (stacksize<1024) then
  555. IllegalPara(opt);
  556. break;
  557. end;
  558. 't' :
  559. If UnsetBool(More, j) then
  560. exclude(init_settings.localswitches,cs_check_stack)
  561. Else
  562. include(init_settings.localswitches,cs_check_stack);
  563. 'D' :
  564. If UnsetBool(More, j) then
  565. exclude(init_settings.moduleswitches,cs_create_dynamic)
  566. Else
  567. include(init_settings.moduleswitches,cs_create_dynamic);
  568. 'X' :
  569. If UnsetBool(More, j) then
  570. exclude(init_settings.moduleswitches,cs_create_smart)
  571. Else
  572. include(init_settings.moduleswitches,cs_create_smart);
  573. else
  574. IllegalPara(opt);
  575. end;
  576. inc(j);
  577. end;
  578. end;
  579. 'd' :
  580. if more <> '' then
  581. begin
  582. l:=Pos(':=',more);
  583. if l>0 then
  584. set_system_compvar(Copy(more,1,l-1),Copy(more,l+2,255))
  585. else
  586. def_system_macro(more);
  587. end;
  588. 'D' :
  589. begin
  590. include(init_settings.globalswitches,cs_link_deffile);
  591. j:=1;
  592. while j<=length(more) do
  593. begin
  594. case more[j] of
  595. 'd' :
  596. begin
  597. description:=Copy(more,j+1,255);
  598. break;
  599. end;
  600. 'v' :
  601. begin
  602. dllversion:=Copy(more,j+1,255);
  603. l:=pos('.',dllversion);
  604. dllminor:=0;
  605. error:=0;
  606. if l>0 then
  607. begin
  608. val(copy(dllversion,l+1,255),minor,error);
  609. if (error=0) and
  610. (minor>=0) and (minor<=$ffff) then
  611. dllminor:=minor
  612. else
  613. if error=0 then
  614. error:=1;
  615. end;
  616. if l=0 then
  617. l:=256;
  618. dllmajor:=1;
  619. if error=0 then
  620. val(copy(dllversion,1,l-1),major,error);
  621. if (error=0) and (major>=0) and (major<=$ffff) then
  622. dllmajor:=major
  623. else
  624. if error=0 then
  625. error:=1;
  626. if error<>0 then
  627. Message1(scan_w_wrong_version_ignored,dllversion);
  628. break;
  629. end;
  630. 'w' :
  631. usewindowapi:=true;
  632. '-' :
  633. begin
  634. exclude(init_settings.globalswitches,cs_link_deffile);
  635. usewindowapi:=false;
  636. end;
  637. else
  638. IllegalPara(opt);
  639. end;
  640. inc(j);
  641. end;
  642. end;
  643. 'e' :
  644. exepath:=FixPath(More,true);
  645. 'E' :
  646. begin
  647. if UnsetBool(More, 0) then
  648. exclude(init_settings.globalswitches,cs_link_nolink)
  649. else
  650. include(init_settings.globalswitches,cs_link_nolink);
  651. end;
  652. 'f' :
  653. begin
  654. if more='PIC' then
  655. begin
  656. if tf_no_pic_supported in target_info.flags then
  657. message(scan_w_pic_ignored)
  658. else
  659. include(init_settings.moduleswitches,cs_create_pic)
  660. end
  661. else
  662. IllegalPara(opt);
  663. end;
  664. 'F' :
  665. begin
  666. if more='' then
  667. IllegalPara(opt);
  668. c:=more[1];
  669. Delete(more,1,1);
  670. DefaultReplacements(More);
  671. case c of
  672. 'a' :
  673. autoloadunits:=more;
  674. 'c' :
  675. begin
  676. if (upper(more)='UTF8') or (upper(more)='UTF-8') then
  677. init_settings.sourcecodepage:='utf8'
  678. else if not(cpavailable(more)) then
  679. Message1(option_code_page_not_available,more)
  680. else
  681. init_settings.sourcecodepage:=more;
  682. end;
  683. 'C' :
  684. RCCompiler := More;
  685. 'D' :
  686. utilsdirectory:=FixPath(More,true);
  687. 'e' :
  688. SetRedirectFile(More);
  689. 'E' :
  690. OutputExeDir:=FixPath(More,true);
  691. 'f' :
  692. if (target_info.system in systems_darwin) then
  693. if ispara then
  694. ParaFrameworkPath.AddPath(More,false)
  695. else
  696. frameworksearchpath.AddPath(More,true)
  697. else
  698. IllegalPara(opt);
  699. 'i' :
  700. begin
  701. if ispara then
  702. ParaIncludePath.AddPath(More,false)
  703. else
  704. includesearchpath.AddPath(More,true);
  705. end;
  706. 'm' :
  707. begin
  708. unicodemapping:=loadunicodemapping(More,More+'.txt');
  709. if assigned(unicodemapping) then
  710. registermapping(unicodemapping)
  711. else
  712. IllegalPara(opt);
  713. end;
  714. 'g' :
  715. Message2(option_obsolete_switch_use_new,'-Fg','-Fl');
  716. 'l' :
  717. begin
  718. if ispara then
  719. ParaLibraryPath.AddPath(sysrootpath,More,false)
  720. else
  721. LibrarySearchPath.AddPath(sysrootpath,More,true);
  722. end;
  723. 'L' :
  724. begin
  725. if More<>'' then
  726. ParaDynamicLinker:=More
  727. else
  728. IllegalPara(opt);
  729. end;
  730. 'o' :
  731. begin
  732. if ispara then
  733. ParaObjectPath.AddPath(More,false)
  734. else
  735. ObjectSearchPath.AddPath(More,true);
  736. end;
  737. 'r' :
  738. Msgfilename:=More;
  739. 'R' :
  740. ResCompiler := More;
  741. 'u' :
  742. begin
  743. if ispara then
  744. ParaUnitPath.AddPath(More,false)
  745. else
  746. unitsearchpath.AddPath(More,true);
  747. end;
  748. 'U' :
  749. OutputUnitDir:=FixPath(More,true);
  750. else
  751. IllegalPara(opt);
  752. end;
  753. end;
  754. 'g' :
  755. begin
  756. if UnsetBool(More, 0) then
  757. begin
  758. exclude(init_settings.moduleswitches,cs_debuginfo);
  759. exclude(init_settings.globalswitches,cs_use_heaptrc);
  760. exclude(init_settings.globalswitches,cs_use_lineinfo);
  761. exclude(init_settings.localswitches,cs_checkpointer);
  762. localvartrashing := -1;
  763. end
  764. else
  765. begin
  766. include(init_settings.moduleswitches,cs_debuginfo);
  767. if paratargetdbg=dbg_none then
  768. paratargetdbg:=target_info.dbg;
  769. end;
  770. if not RelocSectionSetExplicitly then
  771. RelocSection:=false;
  772. j:=1;
  773. while j<=length(more) do
  774. begin
  775. case more[j] of
  776. 'c' :
  777. begin
  778. if UnsetBool(More, j) then
  779. exclude(init_settings.localswitches,cs_checkpointer)
  780. else
  781. include(init_settings.localswitches,cs_checkpointer);
  782. end;
  783. 'h' :
  784. begin
  785. if UnsetBool(More, j) then
  786. exclude(init_settings.globalswitches,cs_use_heaptrc)
  787. else
  788. include(init_settings.globalswitches,cs_use_heaptrc);
  789. end;
  790. 'l' :
  791. begin
  792. if UnsetBool(More, j) then
  793. exclude(init_settings.globalswitches,cs_use_lineinfo)
  794. else
  795. include(init_settings.globalswitches,cs_use_lineinfo);
  796. end;
  797. 'o' :
  798. begin
  799. if not UpdateDebugStr(copy(more,j+1,length(more)),init_settings.debugswitches) then
  800. IllegalPara(opt);
  801. break;
  802. end;
  803. 'p' :
  804. begin
  805. if UnsetBool(More, j) then
  806. exclude(init_settings.globalswitches,cs_stabs_preservecase)
  807. else
  808. include(init_settings.globalswitches,cs_stabs_preservecase);
  809. end;
  810. 's' :
  811. begin
  812. paratargetdbg:=dbg_stabs;
  813. end;
  814. 't' :
  815. begin
  816. if UnsetBool(More, j) then
  817. localvartrashing := -1
  818. else
  819. localvartrashing := (localvartrashing + 1) mod nroftrashvalues;
  820. end;
  821. 'v' :
  822. begin
  823. if UnsetBool(More, j) then
  824. exclude(init_settings.globalswitches,cs_gdb_valgrind)
  825. else
  826. include(init_settings.globalswitches,cs_gdb_valgrind);
  827. end;
  828. 'w' :
  829. begin
  830. if (j<length(more)) and (more[j+1] in ['2','3']) then
  831. begin
  832. case more[j+1] of
  833. '2': paratargetdbg:=dbg_dwarf2;
  834. '3': paratargetdbg:=dbg_dwarf3;
  835. end;
  836. inc(j);
  837. end
  838. else
  839. paratargetdbg:=dbg_dwarf2;
  840. end;
  841. else
  842. IllegalPara(opt);
  843. end;
  844. inc(j);
  845. end;
  846. end;
  847. 'h' :
  848. begin
  849. NoPressEnter:=true;
  850. WriteHelpPages;
  851. end;
  852. 'i' :
  853. begin
  854. if More='' then
  855. WriteInfo
  856. else
  857. QuickInfo:=QuickInfo+More;
  858. end;
  859. 'I' :
  860. begin
  861. if ispara then
  862. ParaIncludePath.AddPath(More,false)
  863. else
  864. includesearchpath.AddPath(More,false);
  865. end;
  866. 'k' :
  867. begin
  868. if more<>'' then
  869. ParaLinkOptions:=ParaLinkOptions+' '+More
  870. else
  871. IllegalPara(opt);
  872. end;
  873. 'l' :
  874. ParaLogo:=not UnSetBool(more,0);
  875. 'm' :
  876. parapreprocess:=not UnSetBool(more,0);
  877. 'M' :
  878. begin
  879. more:=Upper(more);
  880. if not SetCompileMode(more, true) then
  881. IllegalPara(opt);
  882. end;
  883. 'n' :
  884. begin
  885. if More='' then
  886. disable_configfile:=true
  887. else
  888. IllegalPara(opt);
  889. end;
  890. 'o' :
  891. begin
  892. if More<>'' then
  893. begin
  894. DefaultReplacements(More);
  895. D:=ExtractFilePath(More);
  896. if (D<>'') then
  897. OutputExeDir:=FixPath(D,True);
  898. OutputFileName:=ExtractFileName(More);
  899. end
  900. else
  901. IllegalPara(opt);
  902. end;
  903. 'O' :
  904. begin
  905. j:=1;
  906. while j<=length(more) do
  907. begin
  908. case more[j] of
  909. '1' :
  910. init_settings.optimizerswitches:=init_settings.optimizerswitches+level1optimizerswitches;
  911. '2' :
  912. init_settings.optimizerswitches:=init_settings.optimizerswitches+level2optimizerswitches;
  913. '3' :
  914. init_settings.optimizerswitches:=init_settings.optimizerswitches+level3optimizerswitches;
  915. 'a' :
  916. begin
  917. if not(UpdateAlignmentStr(Copy(Opt,j+3,255),ParaAlignment)) then
  918. IllegalPara(opt);
  919. break;
  920. end;
  921. 's' :
  922. include(init_settings.optimizerswitches,cs_opt_size);
  923. 'p' :
  924. begin
  925. if not Setcputype(copy(more,j+1,length(more)),init_settings.optimizecputype) then
  926. begin
  927. { Give warning for old i386 switches }
  928. if (Length(More)-j=1) and
  929. (More[j+1]>='1') and (More[j+1]<='5')then
  930. Message2(option_obsolete_switch_use_new,'-Op<nr>','-Op<name>')
  931. else
  932. IllegalPara(opt);
  933. end;
  934. break;
  935. end;
  936. 'o' :
  937. begin
  938. if not UpdateOptimizerStr(copy(more,j+1,length(more)),init_settings.optimizerswitches) then
  939. IllegalPara(opt);
  940. break;
  941. end;
  942. '-' :
  943. begin
  944. init_settings.optimizerswitches:=[];
  945. FillChar(ParaAlignment,sizeof(ParaAlignment),0);
  946. end;
  947. { Obsolete switches }
  948. 'g' :
  949. Message2(option_obsolete_switch_use_new,'-Og','-Os');
  950. 'G' :
  951. Message1(option_obsolete_switch,'-OG');
  952. 'r' :
  953. Message2(option_obsolete_switch_use_new,'-Or','-O2 or -Ooregvar');
  954. 'u' :
  955. Message2(option_obsolete_switch_use_new,'-Ou','-Oouncertain');
  956. else
  957. IllegalPara(opt);
  958. end;
  959. inc(j);
  960. end;
  961. end;
  962. 'p' :
  963. begin
  964. if UnsetBool(More, 0) then
  965. begin
  966. init_settings.moduleswitches:=init_settings.moduleswitches-[cs_profile];
  967. undef_system_macro('FPC_PROFILE');
  968. end
  969. else
  970. if Length(More)=0 then
  971. IllegalPara(opt)
  972. else
  973. case more[1] of
  974. 'g' : if UnsetBool(more, 1) then
  975. begin
  976. exclude(init_settings.moduleswitches,cs_profile);
  977. undef_system_macro('FPC_PROFILE');
  978. end
  979. else
  980. begin
  981. include(init_settings.moduleswitches,cs_profile);
  982. def_system_macro('FPC_PROFILE');
  983. end;
  984. else
  985. IllegalPara(opt);
  986. end;
  987. end;
  988. 'P' : ; { Ignore used by fpc.pp }
  989. 'R' :
  990. begin
  991. if not SetAsmReadMode(More,init_settings.asmmode) then
  992. IllegalPara(opt);
  993. end;
  994. 's' :
  995. begin
  996. if UnsetBool(More, 0) then
  997. begin
  998. init_settings.globalswitches:=init_settings.globalswitches-[cs_asm_extern,cs_link_extern,cs_link_nolink];
  999. if more<>'' then
  1000. IllegalPara(opt);
  1001. end
  1002. else
  1003. begin
  1004. init_settings.globalswitches:=init_settings.globalswitches+[cs_asm_extern,cs_link_extern,cs_link_nolink];
  1005. if more='h' then
  1006. init_settings.globalswitches:=init_settings.globalswitches-[cs_link_on_target]
  1007. else if more='t' then
  1008. init_settings.globalswitches:=init_settings.globalswitches+[cs_link_on_target]
  1009. else if more='r' then
  1010. init_settings.globalswitches:=init_settings.globalswitches+[cs_asm_leave,cs_no_regalloc]
  1011. else if more<>'' then
  1012. IllegalPara(opt);
  1013. end;
  1014. end;
  1015. 'S' :
  1016. begin
  1017. if more='' then
  1018. IllegalPara(opt);
  1019. if more[1]='I' then
  1020. begin
  1021. if upper(more)='ICOM' then
  1022. init_settings.interfacetype:=it_interfacecom
  1023. else if upper(more)='ICORBA' then
  1024. init_settings.interfacetype:=it_interfacecorba
  1025. else
  1026. IllegalPara(opt);
  1027. end
  1028. else
  1029. begin
  1030. j:=1;
  1031. while j<=length(more) do
  1032. begin
  1033. case more[j] of
  1034. '2' : //an alternative to -Mobjfpc
  1035. SetCompileMode('OBJFPC',true);
  1036. 'a' :
  1037. If UnsetBool(More, j) then
  1038. exclude(init_settings.localswitches,cs_do_assertion)
  1039. else
  1040. include(init_settings.localswitches,cs_do_assertion);
  1041. 'c' :
  1042. If UnsetBool(More, j) then
  1043. include(init_settings.moduleswitches,cs_support_c_operators)
  1044. else
  1045. include(init_settings.moduleswitches,cs_support_c_operators);
  1046. 'd' : //an alternative to -Mdelphi
  1047. SetCompileMode('DELPHI',true);
  1048. 'e' :
  1049. begin
  1050. SetErrorFlags(copy(more,j+1,length(more)));
  1051. break;
  1052. end;
  1053. 'f' :
  1054. begin
  1055. inc(j);
  1056. if more[j]='-' then
  1057. begin
  1058. features:=[];
  1059. if length(more)>j then
  1060. IllegalPara(opt);
  1061. end
  1062. else
  1063. begin
  1064. if not(IncludeFeature(upper(copy(more,j,length(more)-j+1)))) then
  1065. IllegalPara(opt);
  1066. end;
  1067. end;
  1068. 'g' :
  1069. If UnsetBool(More, j) then
  1070. exclude(init_settings.moduleswitches,cs_support_goto)
  1071. else
  1072. include(init_settings.moduleswitches,cs_support_goto);
  1073. 'h' :
  1074. If UnsetBool(More, j) then
  1075. exclude(init_settings.localswitches,cs_ansistrings)
  1076. else
  1077. include(init_settings.localswitches,cs_ansistrings);
  1078. 'i' :
  1079. If UnsetBool(More, j) then
  1080. exclude(init_settings.localswitches,cs_do_inline)
  1081. else
  1082. include(init_settings.localswitches,cs_do_inline);
  1083. 'k' :
  1084. If UnsetBool(More, j) then
  1085. exclude(init_settings.globalswitches,cs_load_fpcylix_unit)
  1086. else
  1087. include(init_settings.globalswitches,cs_load_fpcylix_unit);
  1088. 'm' :
  1089. If UnsetBool(More, j) then
  1090. exclude(init_settings.moduleswitches,cs_support_macro)
  1091. else
  1092. include(init_settings.moduleswitches,cs_support_macro);
  1093. 'o' : //an alternative to -Mtp
  1094. SetCompileMode('TP',true);
  1095. {$ifdef gpc_mode}
  1096. 'p' : //an alternative to -Mgpc
  1097. SetCompileMode('GPC',true);
  1098. {$endif}
  1099. 's' :
  1100. If UnsetBool(More, j) then
  1101. exclude(init_settings.globalswitches,cs_constructor_name)
  1102. else
  1103. include(init_settings.globalswitches,cs_constructor_name);
  1104. 't' :
  1105. If UnsetBool(More, j) then
  1106. exclude(init_settings.moduleswitches,cs_static_keyword)
  1107. else
  1108. include(init_settings.moduleswitches,cs_static_keyword);
  1109. 'v' :
  1110. If UnsetBool(More, j) then
  1111. exclude(init_settings.globalswitches,cs_support_vectors)
  1112. else
  1113. include(init_settings.globalswitches,cs_support_vectors);
  1114. 'x' :
  1115. If UnsetBool(More, j) then
  1116. exclude(init_settings.globalswitches,cs_support_exceptions)
  1117. else
  1118. include(init_settings.globalswitches,cs_support_exceptions);
  1119. '-' :
  1120. begin
  1121. init_settings.globalswitches:=init_settings.globalswitches - [cs_constructor_name,cs_support_exceptions];
  1122. init_settings.localswitches:=init_settings.localswitches - [cs_do_assertion, cs_do_inline, cs_ansistrings];
  1123. init_settings.moduleswitches:=init_settings.moduleswitches - [cs_support_c_operators, cs_support_goto,
  1124. cs_support_macro,
  1125. cs_static_keyword];
  1126. end;
  1127. else
  1128. IllegalPara(opt);
  1129. end;
  1130. inc(j);
  1131. end;
  1132. end;
  1133. end;
  1134. 'T' :
  1135. begin
  1136. more:=Upper(More);
  1137. if paratarget=system_none then
  1138. begin
  1139. { remove old target define }
  1140. TargetOptions(false);
  1141. { load new target }
  1142. paratarget:=find_system_by_string(More);
  1143. if paratarget<>system_none then
  1144. set_target(paratarget)
  1145. else
  1146. IllegalPara(opt);
  1147. { set new define }
  1148. TargetOptions(true);
  1149. end
  1150. else
  1151. if More<>upper(target_info.shortname) then
  1152. Message1(option_target_is_already_set,target_info.shortname);
  1153. end;
  1154. 'u' :
  1155. if more <> '' then
  1156. undef_system_macro(more);
  1157. 'U' :
  1158. begin
  1159. j:=1;
  1160. while j<=length(more) do
  1161. begin
  1162. case more[j] of
  1163. {$ifdef UNITALIASES}
  1164. 'a' :
  1165. begin
  1166. AddUnitAlias(Copy(More,j+1,255));
  1167. break;
  1168. end;
  1169. {$endif UNITALIASES}
  1170. 'n' :
  1171. exclude(init_settings.globalswitches,cs_check_unit_name);
  1172. 'p' :
  1173. begin
  1174. Message2(option_obsolete_switch_use_new,'-Up','-Fu');
  1175. break;
  1176. end;
  1177. 'r' :
  1178. do_release:=true;
  1179. 's' :
  1180. include(init_settings.moduleswitches,cs_compilesystem);
  1181. '-' :
  1182. begin
  1183. exclude(init_settings.moduleswitches,cs_compilesystem);
  1184. exclude(init_settings.globalswitches,cs_check_unit_name);
  1185. end;
  1186. else
  1187. IllegalPara(opt);
  1188. end;
  1189. inc(j);
  1190. end;
  1191. end;
  1192. 'v' :
  1193. begin
  1194. if not setverbosity(More) then
  1195. IllegalPara(opt);
  1196. end;
  1197. 'V' : ; { Ignore used by fpc }
  1198. 'W' :
  1199. begin
  1200. j:=1;
  1201. while j<=length(More) do
  1202. begin
  1203. case More[j] of
  1204. 'A':
  1205. begin
  1206. if UnsetBool(More, j) then
  1207. apptype:=app_native
  1208. else
  1209. apptype:=app_cui;
  1210. end;
  1211. 'b':
  1212. begin
  1213. if (target_info.system in systems_darwin) then
  1214. begin
  1215. if not UnsetBool(More, j) then
  1216. apptype:=app_bundle
  1217. else
  1218. apptype:=app_cui
  1219. end
  1220. else
  1221. IllegalPara(opt);
  1222. end;
  1223. 'B':
  1224. begin
  1225. { -WB200000 means set trefered base address
  1226. to $200000, but does not change relocsection boolean
  1227. this way we can create both relocatble and
  1228. non relocatable DLL at a specific base address PM }
  1229. if (length(More)>j) then
  1230. begin
  1231. if DLLImageBase=nil then
  1232. DLLImageBase:=StringDup(Copy(More,j+1,255));
  1233. end
  1234. else
  1235. begin
  1236. RelocSection:=true;
  1237. RelocSectionSetExplicitly:=true;
  1238. end;
  1239. break;
  1240. end;
  1241. 'C':
  1242. begin
  1243. if UnsetBool(More, j) then
  1244. apptype:=app_gui
  1245. else
  1246. apptype:=app_cui;
  1247. end;
  1248. 'D':
  1249. begin
  1250. UseDeffileForExports:=not UnsetBool(More, j);
  1251. UseDeffileForExportsSetExplicitly:=true;
  1252. end;
  1253. 'F':
  1254. begin
  1255. if UnsetBool(More, j) then
  1256. apptype:=app_cui
  1257. else
  1258. apptype:=app_fs;
  1259. end;
  1260. 'G':
  1261. begin
  1262. if UnsetBool(More, j) then
  1263. apptype:=app_cui
  1264. else
  1265. apptype:=app_gui;
  1266. end;
  1267. 'I':
  1268. begin
  1269. GenerateImportSection:=not UnsetBool(More,j);
  1270. GenerateImportSectionSetExplicitly:=true;
  1271. end;
  1272. 'N':
  1273. begin
  1274. RelocSection:=UnsetBool(More,j);
  1275. RelocSectionSetExplicitly:=true;
  1276. end;
  1277. 'R':
  1278. begin
  1279. { support -WR+ / -WR- as synonyms to -WR / -WN }
  1280. RelocSection:=not UnsetBool(More,j);
  1281. RelocSectionSetExplicitly:=true;
  1282. end;
  1283. 'T':
  1284. begin
  1285. if UnsetBool(More, j) then
  1286. apptype:=app_cui
  1287. else
  1288. apptype:=app_tool;
  1289. end;
  1290. else
  1291. IllegalPara(opt);
  1292. end;
  1293. inc(j);
  1294. end;
  1295. end;
  1296. 'X' :
  1297. begin
  1298. j:=1;
  1299. while j<=length(more) do
  1300. begin
  1301. case More[j] of
  1302. 'c' : Cshared:=TRUE;
  1303. 'd' : Dontlinkstdlibpath:=TRUE;
  1304. 'e' :
  1305. begin
  1306. If UnsetBool(More, j) then
  1307. exclude(init_settings.globalswitches,cs_link_extern)
  1308. else
  1309. include(init_settings.globalswitches,cs_link_extern);
  1310. end;
  1311. 'f' :
  1312. include(init_settings.globalswitches,cs_link_pthread);
  1313. 'g' :
  1314. begin
  1315. If UnsetBool(More, j) then
  1316. exclude(init_settings.globalswitches,cs_link_separate_dbg_file)
  1317. else
  1318. include(init_settings.globalswitches,cs_link_separate_dbg_file);
  1319. end;
  1320. 'i' :
  1321. begin
  1322. If UnsetBool(More, j) then
  1323. include(init_settings.globalswitches,cs_link_extern)
  1324. else
  1325. exclude(init_settings.globalswitches,cs_link_extern);
  1326. end;
  1327. 'm' :
  1328. begin
  1329. If UnsetBool(More, j) then
  1330. exclude(init_settings.globalswitches,cs_link_map)
  1331. else
  1332. include(init_settings.globalswitches,cs_link_map);
  1333. end;
  1334. 'p' : ; { Ignore used by fpc.pp }
  1335. 'r' :
  1336. begin
  1337. rlinkpath:=Copy(more,2,length(More)-1);
  1338. DefaultReplacements(rlinkpath);
  1339. More:='';
  1340. end;
  1341. 'R' :
  1342. begin
  1343. sysrootpath:=copy(more,2,length(more)-1);
  1344. defaultreplacements(sysrootpath);
  1345. more:='';
  1346. end;
  1347. 's' :
  1348. begin
  1349. If UnsetBool(More, j) then
  1350. exclude(init_settings.globalswitches,cs_link_strip)
  1351. else
  1352. include(init_settings.globalswitches,cs_link_strip);
  1353. end;
  1354. 't' :
  1355. include(init_settings.globalswitches,cs_link_staticflag);
  1356. 'v' :
  1357. begin
  1358. If UnsetBool(More, j) then
  1359. exclude(init_settings.globalswitches,cs_link_opt_vtable)
  1360. else
  1361. include(init_settings.globalswitches,cs_link_opt_vtable);
  1362. end;
  1363. 'D' :
  1364. begin
  1365. def_system_macro('FPC_LINK_DYNAMIC');
  1366. undef_system_macro('FPC_LINK_SMART');
  1367. undef_system_macro('FPC_LINK_STATIC');
  1368. exclude(init_settings.globalswitches,cs_link_static);
  1369. exclude(init_settings.globalswitches,cs_link_smart);
  1370. include(init_settings.globalswitches,cs_link_shared);
  1371. LinkTypeSetExplicitly:=true;
  1372. end;
  1373. 'M' :
  1374. begin
  1375. mainaliasname:=Copy(more,2,length(More)-1);
  1376. More:='';
  1377. end;
  1378. 'P' :
  1379. begin
  1380. utilsprefix:=Copy(more,2,length(More)-1);
  1381. DefaultReplacements(utilsprefix);
  1382. More:='';
  1383. end;
  1384. 'L' : begin // -XLO is link order -XLA is link alias. -XLD avoids load defaults.
  1385. // these are not aggregable.
  1386. if (j=length(more)) or not (more[j+1] in ['O','A','D']) then
  1387. IllegalPara(opt)
  1388. else
  1389. begin
  1390. case more[j+1] of
  1391. 'A' : begin
  1392. s:=Copy(more,3,length(More)-2);
  1393. if not LinkLibraryAliases.AddDep(s) Then
  1394. IllegalPara(opt);
  1395. end;
  1396. 'O' : begin
  1397. s:=Copy(more,3,length(More)-2);
  1398. if not LinkLibraryOrder.AddWeight(s) Then
  1399. IllegalPara(opt);
  1400. end;
  1401. 'D' : include(init_settings.globalswitches,cs_link_no_default_lib_order)
  1402. else
  1403. IllegalPara(opt);
  1404. end; {case}
  1405. j:=length(more);
  1406. end; {else begin}
  1407. end;
  1408. 'S' :
  1409. begin
  1410. def_system_macro('FPC_LINK_STATIC');
  1411. undef_system_macro('FPC_LINK_SMART');
  1412. undef_system_macro('FPC_LINK_DYNAMIC');
  1413. include(init_settings.globalswitches,cs_link_static);
  1414. exclude(init_settings.globalswitches,cs_link_smart);
  1415. exclude(init_settings.globalswitches,cs_link_shared);
  1416. LinkTypeSetExplicitly:=true;
  1417. end;
  1418. 'X' :
  1419. begin
  1420. def_system_macro('FPC_LINK_SMART');
  1421. undef_system_macro('FPC_LINK_STATIC');
  1422. undef_system_macro('FPC_LINK_DYNAMIC');
  1423. exclude(init_settings.globalswitches,cs_link_static);
  1424. include(init_settings.globalswitches,cs_link_smart);
  1425. exclude(init_settings.globalswitches,cs_link_shared);
  1426. LinkTypeSetExplicitly:=true;
  1427. end;
  1428. '-' :
  1429. begin
  1430. exclude(init_settings.globalswitches,cs_link_staticflag);
  1431. exclude(init_settings.globalswitches,cs_link_strip);
  1432. exclude(init_settings.globalswitches,cs_link_map);
  1433. set_default_link_type;
  1434. end;
  1435. else
  1436. IllegalPara(opt);
  1437. end;
  1438. inc(j);
  1439. end;
  1440. end;
  1441. end;
  1442. end;
  1443. '@' :
  1444. begin
  1445. Message(option_no_nested_response_file);
  1446. StopOptions(1);
  1447. end;
  1448. else
  1449. begin
  1450. if (length(param_file)<>0) then
  1451. Message(option_only_one_source_support);
  1452. param_file:=opt;
  1453. Message1(option_found_file,opt);
  1454. end;
  1455. end;
  1456. end;
  1457. procedure Toption.Interpret_file(const filename : string);
  1458. procedure RemoveSep(var fn:string);
  1459. var
  1460. i : longint;
  1461. begin
  1462. i:=0;
  1463. while (i<length(fn)) and (fn[i+1] in [',',' ',#9]) do
  1464. inc(i);
  1465. Delete(fn,1,i);
  1466. i:=length(fn);
  1467. while (i>0) and (fn[i] in [',',' ',#9]) do
  1468. dec(i);
  1469. fn:=copy(fn,1,i);
  1470. end;
  1471. function GetName(var fn:string):string;
  1472. var
  1473. i : longint;
  1474. begin
  1475. i:=0;
  1476. while (i<length(fn)) and (fn[i+1] in ['a'..'z','A'..'Z','0'..'9','_','-']) do
  1477. inc(i);
  1478. GetName:=Copy(fn,1,i);
  1479. Delete(fn,1,i);
  1480. end;
  1481. const
  1482. maxlevel=16;
  1483. var
  1484. f : text;
  1485. s, tmp,
  1486. opts : string;
  1487. skip : array[0..maxlevel-1] of boolean;
  1488. level : longint;
  1489. option_read : boolean;
  1490. begin
  1491. { avoid infinite loop }
  1492. Inc(FileLevel);
  1493. Option_read:=false;
  1494. If FileLevel>MaxLevel then
  1495. Message(option_too_many_cfg_files);
  1496. { Maybe It's Directory ?} //Jaro Change:
  1497. if PathExists(filename,false) then
  1498. begin
  1499. Message1(option_config_is_dir,filename);
  1500. exit;
  1501. end;
  1502. { open file }
  1503. Message1(option_using_file,filename);
  1504. assign(f,ExpandFileName(filename));
  1505. {$I-}
  1506. reset(f);
  1507. {$I+}
  1508. if ioresult<>0 then
  1509. begin
  1510. Message1(option_unable_open_file,filename);
  1511. exit;
  1512. end;
  1513. Message1(option_start_reading_configfile,filename);
  1514. fillchar(skip,sizeof(skip),0);
  1515. level:=0;
  1516. while not eof(f) do
  1517. begin
  1518. readln(f,opts);
  1519. RemoveSep(opts);
  1520. if (opts<>'') and (opts[1]<>';') then
  1521. begin
  1522. if opts[1]='#' then
  1523. begin
  1524. Message1(option_interpreting_file_option,opts);
  1525. Delete(opts,1,1);
  1526. s:=upper(GetName(opts));
  1527. if (s='SECTION') then
  1528. begin
  1529. RemoveSep(opts);
  1530. s:=upper(GetName(opts));
  1531. if level=0 then
  1532. skip[level]:=not (assigned(search_macro(s)) or (s='COMMON'));
  1533. end
  1534. else
  1535. if (s='IFDEF') then
  1536. begin
  1537. RemoveSep(opts);
  1538. if Level>=maxlevel then
  1539. begin
  1540. Message(option_too_many_ifdef);
  1541. stopOptions(1);
  1542. end;
  1543. inc(Level);
  1544. skip[level]:=(skip[level-1] or not assigned(search_macro(upper(GetName(opts)))));
  1545. end
  1546. else
  1547. if (s='IFNDEF') then
  1548. begin
  1549. RemoveSep(opts);
  1550. if Level>=maxlevel then
  1551. begin
  1552. Message(option_too_many_ifdef);
  1553. stopOptions(1);
  1554. end;
  1555. inc(Level);
  1556. skip[level]:=(skip[level-1] or assigned(search_macro(upper(GetName(opts)))));
  1557. end
  1558. else
  1559. if (s='ELSE') then
  1560. skip[level]:=skip[level-1] or (not skip[level])
  1561. else
  1562. if (s='ENDIF') then
  1563. begin
  1564. skip[level]:=false;
  1565. if Level=0 then
  1566. begin
  1567. Message(option_too_many_endif);
  1568. stopOptions(1);
  1569. end;
  1570. dec(level);
  1571. end
  1572. else
  1573. if (not skip[level]) then
  1574. begin
  1575. if (s='DEFINE') then
  1576. begin
  1577. RemoveSep(opts);
  1578. tmp:= GetName(opts);
  1579. if tmp <> '' then
  1580. def_system_macro(tmp);
  1581. end
  1582. else
  1583. if (s='UNDEF') then
  1584. begin
  1585. RemoveSep(opts);
  1586. tmp:= GetName(opts);
  1587. if tmp <> '' then
  1588. undef_system_macro(tmp);
  1589. end
  1590. else
  1591. if (s='WRITE') then
  1592. begin
  1593. Delete(opts,1,1);
  1594. WriteLn(opts);
  1595. end
  1596. else
  1597. if (s='INCLUDE') then
  1598. begin
  1599. Delete(opts,1,1);
  1600. Interpret_file(opts);
  1601. end;
  1602. end;
  1603. end
  1604. else
  1605. begin
  1606. if (opts[1]='-') or (opts[1]='@') then
  1607. begin
  1608. if (not skip[level]) then
  1609. interpret_option(opts,false);
  1610. Option_read:=true;
  1611. end
  1612. else
  1613. Message1(option_illegal_para,opts);
  1614. end;
  1615. end;
  1616. end;
  1617. if Level>0 then
  1618. Message(option_too_less_endif);
  1619. if Not Option_read then
  1620. Message1(option_no_option_found,filename)
  1621. else
  1622. Message1(option_end_reading_configfile,filename);
  1623. Close(f);
  1624. Dec(FileLevel);
  1625. end;
  1626. procedure Toption.Interpret_envvar(const envname : string);
  1627. var
  1628. argstart,
  1629. env,
  1630. pc : pchar;
  1631. arglen : longint;
  1632. quote : set of char;
  1633. hs : string;
  1634. begin
  1635. Message1(option_using_env,envname);
  1636. env:=GetEnvPChar(envname);
  1637. pc:=env;
  1638. if assigned(pc) then
  1639. begin
  1640. repeat
  1641. { skip leading spaces }
  1642. while pc^ in [' ',#9,#13] do
  1643. inc(pc);
  1644. case pc^ of
  1645. #0 :
  1646. break;
  1647. '"' :
  1648. begin
  1649. quote:=['"'];
  1650. inc(pc);
  1651. end;
  1652. '''' :
  1653. begin
  1654. quote:=[''''];
  1655. inc(pc);
  1656. end;
  1657. else
  1658. quote:=[' ',#9,#13];
  1659. end;
  1660. { scan until the end of the argument }
  1661. argstart:=pc;
  1662. while (pc^<>#0) and not(pc^ in quote) do
  1663. inc(pc);
  1664. { create argument }
  1665. arglen:=pc-argstart;
  1666. {$warning FIXME: silent truncation of environment parameters }
  1667. if (arglen > 255) then
  1668. arglen := 255;
  1669. setlength(hs,arglen);
  1670. move(argstart^,hs[1],arglen);
  1671. interpret_option(hs,true);
  1672. { skip quote }
  1673. if pc^ in quote then
  1674. inc(pc);
  1675. until false;
  1676. end
  1677. else
  1678. Message1(option_no_option_found,'(env) '+envname);
  1679. FreeEnvPChar(env);
  1680. end;
  1681. procedure toption.read_parameters;
  1682. var
  1683. opts : string;
  1684. paramindex : longint;
  1685. begin
  1686. paramindex:=0;
  1687. while paramindex<paramcount do
  1688. begin
  1689. inc(paramindex);
  1690. opts:=system.paramstr(paramindex);
  1691. case opts[1] of
  1692. '@' :
  1693. if not firstpass then
  1694. begin
  1695. Delete(opts,1,1);
  1696. Message1(option_reading_further_from,opts);
  1697. interpret_file(opts);
  1698. end;
  1699. '!' :
  1700. if not firstpass then
  1701. begin
  1702. Delete(opts,1,1);
  1703. Message1(option_reading_further_from,'(env) '+opts);
  1704. interpret_envvar(opts);
  1705. end;
  1706. else
  1707. interpret_option(opts,true);
  1708. end;
  1709. end;
  1710. end;
  1711. procedure toption.parsecmd(cmd:string);
  1712. var
  1713. i,ps : longint;
  1714. opts : string;
  1715. begin
  1716. while (cmd<>'') do
  1717. begin
  1718. while cmd[1]=' ' do
  1719. delete(cmd,1,1);
  1720. i:=pos(' ',cmd);
  1721. if i=0 then
  1722. i:=256;
  1723. opts:=Copy(cmd,1,i-1);
  1724. Delete(cmd,1,i);
  1725. case opts[1] of
  1726. '@' :
  1727. if not firstpass then
  1728. begin
  1729. Delete(opts,1,1);
  1730. Message1(option_reading_further_from,opts);
  1731. interpret_file(opts);
  1732. end;
  1733. '!' :
  1734. if not firstpass then
  1735. begin
  1736. Delete(opts,1,1);
  1737. Message1(option_reading_further_from,'(env) '+opts);
  1738. interpret_envvar(opts);
  1739. end;
  1740. '"' :
  1741. begin
  1742. Delete(opts,1,1);
  1743. ps:=pos('"',cmd);
  1744. if (i<>256) and (ps>0) then
  1745. begin
  1746. opts:=opts + ' '+ copy(cmd,1,ps-1);
  1747. cmd:=copy(cmd,ps+1,255);
  1748. end;
  1749. interpret_option(opts,true);
  1750. end;
  1751. else
  1752. interpret_option(opts,true);
  1753. end;
  1754. end;
  1755. end;
  1756. procedure toption.writequickinfo;
  1757. var
  1758. s : string;
  1759. i : longint;
  1760. procedure addinfo(const hs:string);
  1761. begin
  1762. if s<>'' then
  1763. s:=s+' '+hs
  1764. else
  1765. s:=hs;
  1766. end;
  1767. begin
  1768. s:='';
  1769. i:=0;
  1770. while (i<length(quickinfo)) do
  1771. begin
  1772. inc(i);
  1773. case quickinfo[i] of
  1774. 'S' :
  1775. begin
  1776. inc(i);
  1777. case quickinfo[i] of
  1778. 'O' :
  1779. addinfo(lower(source_info.shortname));
  1780. 'P' :
  1781. addinfo(source_cpu_string);
  1782. else
  1783. IllegalPara('-i'+QuickInfo);
  1784. end;
  1785. end;
  1786. 'T' :
  1787. begin
  1788. inc(i);
  1789. case quickinfo[i] of
  1790. 'O' :
  1791. addinfo(lower(target_info.shortname));
  1792. 'P' :
  1793. AddInfo(target_cpu_string);
  1794. else
  1795. IllegalPara('-i'+QuickInfo);
  1796. end;
  1797. end;
  1798. 'V' :
  1799. AddInfo(version_string);
  1800. 'W' :
  1801. AddInfo(full_version_string);
  1802. 'D' :
  1803. AddInfo(date_string);
  1804. '_' :
  1805. ;
  1806. else
  1807. IllegalPara('-i'+QuickInfo);
  1808. end;
  1809. end;
  1810. if s<>'' then
  1811. begin
  1812. writeln(s);
  1813. stopoptions(0);
  1814. end;
  1815. end;
  1816. procedure TOption.TargetOptions(def:boolean);
  1817. var
  1818. s : string;
  1819. i : integer;
  1820. abi : tabi;
  1821. begin
  1822. if def then
  1823. def_system_macro(target_info.shortname)
  1824. else
  1825. undef_system_macro(target_info.shortname);
  1826. s:=target_info.extradefines;
  1827. while (s<>'') do
  1828. begin
  1829. i:=pos(';',s);
  1830. if i=0 then
  1831. i:=length(s)+1;
  1832. if def then
  1833. def_system_macro(Copy(s,1,i-1))
  1834. else
  1835. undef_system_macro(Copy(s,1,i-1));
  1836. delete(s,1,i);
  1837. end;
  1838. { endian define }
  1839. case target_info.endian of
  1840. endian_little :
  1841. begin
  1842. if def then
  1843. begin
  1844. def_system_macro('ENDIAN_LITTLE');
  1845. def_system_macro('FPC_LITTLE_ENDIAN');
  1846. end
  1847. else
  1848. begin
  1849. undef_system_macro('ENDIAN_LITTLE');
  1850. undef_system_macro('FPC_LITTLE_ENDIAN');
  1851. end;
  1852. end;
  1853. endian_big :
  1854. begin
  1855. if def then
  1856. begin
  1857. def_system_macro('ENDIAN_BIG');
  1858. def_system_macro('FPC_BIG_ENDIAN');
  1859. end
  1860. else
  1861. begin
  1862. undef_system_macro('ENDIAN_BIG');
  1863. undef_system_macro('FPC_BIG_ENDIAN');
  1864. end
  1865. end;
  1866. end;
  1867. { define abi }
  1868. for abi:=low(tabi) to high(tabi) do
  1869. undef_system_macro('FPC_ABI_'+upper(abi2str[abi]));
  1870. def_system_macro('FPC_ABI_'+upper(abi2str[target_info.abi]));
  1871. if (tf_winlikewidestring in target_info.flags) then
  1872. if def then
  1873. def_system_macro('FPC_WINLIKEWIDESTRING')
  1874. else
  1875. undef_system_macro('FPC_WINLIKEWIDESTRING');
  1876. if (tf_requires_proper_alignment in target_info.flags) then
  1877. if def then
  1878. def_system_macro('FPC_REQUIRES_PROPER_ALIGNMENT')
  1879. else
  1880. undef_system_macro('FPC_REQUIRES_PROPER_ALIGNMENT');
  1881. if source_info.system<>target_info.system then
  1882. if def then
  1883. def_system_macro('FPC_CROSSCOMPILING')
  1884. else
  1885. undef_system_macro('FPC_CROSSCOMPILING');
  1886. if source_info.cpu<>target_info.cpu then
  1887. if def then
  1888. def_system_macro('FPC_CPUCROSSCOMPILING')
  1889. else
  1890. def_system_macro('FPC_CPUCROSSCOMPILING');
  1891. if (tf_no_generic_stackcheck in target_info.flags) then
  1892. if def then
  1893. def_system_macro('FPC_NO_GENERIC_STACK_CHECK')
  1894. else
  1895. undef_system_macro('FPC_NO_GENERIC_STACK_CHECK');
  1896. { Code generation flags }
  1897. if def and
  1898. (tf_pic_default in target_info.flags) then
  1899. include(init_settings.moduleswitches,cs_create_pic)
  1900. else
  1901. exclude(init_settings.moduleswitches,cs_create_pic);
  1902. end;
  1903. constructor TOption.create;
  1904. begin
  1905. LogoWritten:=false;
  1906. NoPressEnter:=false;
  1907. FirstPass:=false;
  1908. FileLevel:=0;
  1909. Quickinfo:='';
  1910. ParaIncludePath:=TSearchPathList.Create;
  1911. ParaObjectPath:=TSearchPathList.Create;
  1912. ParaUnitPath:=TSearchPathList.Create;
  1913. ParaLibraryPath:=TSearchPathList.Create;
  1914. ParaFrameworkPath:=TSearchPathList.Create;
  1915. FillChar(ParaAlignment,sizeof(ParaAlignment),0);
  1916. end;
  1917. destructor TOption.destroy;
  1918. begin
  1919. ParaIncludePath.Free;
  1920. ParaObjectPath.Free;
  1921. ParaUnitPath.Free;
  1922. ParaLibraryPath.Free;
  1923. ParaFrameworkPath.Free;
  1924. end;
  1925. {****************************************************************************
  1926. Callable Routines
  1927. ****************************************************************************}
  1928. function check_configfile(const fn:string;var foundfn:string):boolean;
  1929. function CfgFileExists(const fn:string):boolean;
  1930. begin
  1931. Comment(V_Tried,'Configfile search: '+fn);
  1932. CfgFileExists:=FileExists(fn);
  1933. end;
  1934. var
  1935. hs,
  1936. configpath : string;
  1937. begin
  1938. foundfn:=fn;
  1939. check_configfile:=true;
  1940. { retrieve configpath }
  1941. configpath:=FixPath(GetEnvironmentVariable('PPC_CONFIG_PATH'),false);
  1942. {$ifdef Unix}
  1943. if configpath='' then
  1944. configpath:=ExpandFileName(FixPath(exepath+'../etc/',false));
  1945. {$endif}
  1946. {
  1947. Order to read configuration file :
  1948. try reading fpc.cfg in :
  1949. 1 - current dir
  1950. 2 - configpath
  1951. 3 - compiler path
  1952. }
  1953. if not FileExists(fn) then
  1954. begin
  1955. {$ifdef Unix}
  1956. hs:=GetEnvironmentVariable('HOME');
  1957. if (hs<>'') and CfgFileExists(FixPath(hs,false)+'.'+fn) then
  1958. foundfn:=FixPath(hs,false)+'.'+fn
  1959. else
  1960. {$endif}
  1961. if CfgFileExists(configpath+fn) then
  1962. foundfn:=configpath+fn
  1963. else
  1964. {$ifndef Unix}
  1965. if CfgFileExists(exepath+fn) then
  1966. foundfn:=exepath+fn
  1967. else
  1968. {$else}
  1969. if CfgFileExists('/etc/'+fn) then
  1970. foundfn:='/etc/'+fn
  1971. else
  1972. {$endif}
  1973. check_configfile:=false;
  1974. end;
  1975. end;
  1976. procedure read_arguments(cmd:string);
  1977. var
  1978. env: ansistring;
  1979. i : tfeature;
  1980. begin
  1981. option:=coption.create;
  1982. disable_configfile:=false;
  1983. { Non-core target defines }
  1984. Option.TargetOptions(true);
  1985. { get default messagefile }
  1986. msgfilename:=GetEnvironmentVariable('PPC_ERROR_FILE');
  1987. { default configfile can be specified on the commandline,
  1988. remove it first }
  1989. if (cmd<>'') and (cmd[1]='[') then
  1990. begin
  1991. ppccfg:=Copy(cmd,2,pos(']',cmd)-2);
  1992. Delete(cmd,1,pos(']',cmd));
  1993. end
  1994. else
  1995. begin
  1996. ppccfg:='fpc.cfg';
  1997. ppcaltcfg:='ppc386.cfg';
  1998. end;
  1999. { first pass reading of parameters, only -i -v -T etc.}
  2000. option.firstpass:=true;
  2001. if cmd<>'' then
  2002. option.parsecmd(cmd)
  2003. else
  2004. begin
  2005. option.read_parameters;
  2006. { Write only quickinfo }
  2007. if option.quickinfo<>'' then
  2008. option.writequickinfo;
  2009. end;
  2010. option.firstpass:=false;
  2011. { target is set here, for wince the default app type is gui }
  2012. if target_info.system in system_wince then
  2013. apptype:=app_gui;
  2014. { default defines }
  2015. def_system_macro(target_info.shortname);
  2016. def_system_macro('FPC');
  2017. def_system_macro('VER'+version_nr);
  2018. def_system_macro('VER'+version_nr+'_'+release_nr);
  2019. def_system_macro('VER'+version_nr+'_'+release_nr+'_'+patch_nr);
  2020. { Temporary defines, until things settle down }
  2021. { "main" symbol is generated in the main program, and left out of the system unit }
  2022. def_system_macro('FPC_DARWIN_PASCALMAIN');
  2023. def_system_macro('FPC_DARWIN_JMP_MAIN');
  2024. def_system_macro('PARAOUTFILE');
  2025. def_system_macro('RESSTRSECTIONS');
  2026. def_system_macro('FPC_HASFIXED64BITVARIANT');
  2027. def_system_macro('FPC_HASINTERNALOLEVARIANT2VARIANTCAST');
  2028. def_system_macro('FPC_HAS_VARSETS');
  2029. def_system_macro('FPC_HAS_VALGRINDBOOL');
  2030. def_system_macro('FPC_HAS_STR_CURRENCY');
  2031. def_system_macro('FPC_REAL2REAL_FIXED');
  2032. def_system_macro('FPC_STRTOCHARARRAYPROC');
  2033. def_system_macro('FPC_NEW_BIGENDIAN_SETS');
  2034. def_system_macro('FPC_STRTOSHORTSTRINGPROC');
  2035. def_system_macro('FPC_OBJFPC_EXTENDED_IF');
  2036. {$if defined(x86) or defined(powerpc) or defined(powerpc64)}
  2037. def_system_macro('FPC_HAS_INTERNAL_ABS_LONG');
  2038. {$endif}
  2039. {$ifdef SUPPORT_UNALIGNED}
  2040. def_system_macro('FPC_SUPPORTS_UNALIGNED');
  2041. def_system_macro('FPC_UNALIGNED_FIXED');
  2042. {$endif SUPPORT_UNALIGNED}
  2043. {$ifdef powerpc64}
  2044. def_system_macro('FPC_HAS_LWSYNC');
  2045. {$endif}
  2046. def_system_macro('FPC_HAS_MEMBAR');
  2047. def_system_macro('FPC_SETBASE_USED');
  2048. {$if defined(x86) or defined(arm)}
  2049. def_system_macro('INTERNAL_BACKTRACE');
  2050. {$endif}
  2051. def_system_macro('STR_CONCAT_PROCS');
  2052. if pocall_default = pocall_register then
  2053. def_system_macro('REGCALL');
  2054. { don't remove this, it's also for fpdoc necessary (FK) }
  2055. def_system_macro('FPC_HAS_FEATURE_SUPPORT');
  2056. { using a case is pretty useless here (FK) }
  2057. { some stuff for TP compatibility }
  2058. {$ifdef i386}
  2059. def_system_macro('CPU86');
  2060. def_system_macro('CPU87');
  2061. def_system_macro('CPU386');
  2062. {$endif}
  2063. { new processor stuff }
  2064. {$ifdef i386}
  2065. def_system_macro('CPUI386');
  2066. def_system_macro('CPU32');
  2067. def_system_macro('FPC_HAS_TYPE_EXTENDED');
  2068. def_system_macro('FPC_HAS_TYPE_DOUBLE');
  2069. def_system_macro('FPC_HAS_TYPE_SINGLE');
  2070. def_system_macro('FPC_HAS_RESOURCES');
  2071. {$endif}
  2072. {$ifdef m68k}
  2073. def_system_macro('CPU68');
  2074. def_system_macro('CPU68K');
  2075. def_system_macro('CPUM68K');
  2076. def_system_macro('CPU32');
  2077. def_system_macro('FPC_HAS_TYPE_DOUBLE');
  2078. def_system_macro('FPC_HAS_TYPE_SINGLE');
  2079. def_system_macro('FPC_INCLUDE_SOFTWARE_INT64_TO_DOUBLE');
  2080. def_system_macro('FPC_CURRENCY_IS_INT64');
  2081. def_system_macro('FPC_COMP_IS_INT64');
  2082. {$endif}
  2083. {$ifdef ALPHA}
  2084. def_system_macro('CPUALPHA');
  2085. def_system_macro('CPU64');
  2086. {$endif}
  2087. {$ifdef powerpc}
  2088. def_system_macro('CPUPOWERPC');
  2089. def_system_macro('CPUPOWERPC32');
  2090. def_system_macro('CPU32');
  2091. def_system_macro('FPC_HAS_TYPE_DOUBLE');
  2092. def_system_macro('FPC_HAS_TYPE_SINGLE');
  2093. def_system_macro('FPC_INCLUDE_SOFTWARE_INT64_TO_DOUBLE');
  2094. def_system_macro('FPC_CURRENCY_IS_INT64');
  2095. def_system_macro('FPC_COMP_IS_INT64');
  2096. {$endif}
  2097. {$ifdef POWERPC64}
  2098. def_system_macro('CPUPOWERPC');
  2099. def_system_macro('CPUPOWERPC64');
  2100. def_system_macro('CPU64');
  2101. def_system_macro('FPC_HAS_TYPE_DOUBLE');
  2102. def_system_macro('FPC_HAS_TYPE_SINGLE');
  2103. def_system_macro('FPC_INCLUDE_SOFTWARE_INT64_TO_DOUBLE');
  2104. def_system_macro('FPC_CURRENCY_IS_INT64');
  2105. def_system_macro('FPC_COMP_IS_INT64');
  2106. {$endif}
  2107. {$ifdef iA64}
  2108. def_system_macro('CPUIA64');
  2109. def_system_macro('CPU64');
  2110. {$endif}
  2111. {$ifdef x86_64}
  2112. def_system_macro('CPUX86_64');
  2113. def_system_macro('CPUAMD64');
  2114. def_system_macro('CPU64');
  2115. { not supported for now, afaik (FK)
  2116. def_system_macro('FPC_HAS_TYPE_FLOAT128'); }
  2117. { win64 doesn't support the legacy fpu }
  2118. if target_info.system<>system_x86_64_win64 then
  2119. def_system_macro('FPC_HAS_TYPE_EXTENDED')
  2120. else
  2121. begin
  2122. def_system_macro('FPC_CURRENCY_IS_INT64');
  2123. def_system_macro('FPC_COMP_IS_INT64');
  2124. undef_system_macro('FPC_HAS_TYPE_EXTENDED');
  2125. end;
  2126. def_system_macro('FPC_HAS_TYPE_DOUBLE');
  2127. def_system_macro('FPC_HAS_TYPE_SINGLE');
  2128. {$endif}
  2129. {$ifdef sparc}
  2130. def_system_macro('CPUSPARC');
  2131. def_system_macro('CPUSPARC32');
  2132. def_system_macro('CPU32');
  2133. def_system_macro('FPC_HAS_TYPE_DOUBLE');
  2134. def_system_macro('FPC_HAS_TYPE_SINGLE');
  2135. def_system_macro('FPC_INCLUDE_SOFTWARE_INT64_TO_DOUBLE');
  2136. def_system_macro('FPC_CURRENCY_IS_INT64');
  2137. def_system_macro('FPC_COMP_IS_INT64');
  2138. {$endif}
  2139. {$ifdef vis}
  2140. def_system_macro('CPUVIS');
  2141. def_system_macro('CPU32');
  2142. {$endif}
  2143. {$ifdef arm}
  2144. def_system_macro('CPUARM');
  2145. def_system_macro('CPU32');
  2146. def_system_macro('FPC_HAS_TYPE_DOUBLE');
  2147. def_system_macro('FPC_HAS_TYPE_SINGLE');
  2148. def_system_macro('FPC_INCLUDE_SOFTWARE_INT64_TO_DOUBLE');
  2149. def_system_macro('FPC_CURRENCY_IS_INT64');
  2150. def_system_macro('FPC_COMP_IS_INT64');
  2151. {$endif arm}
  2152. {$ifdef avr}
  2153. def_system_macro('CPUAVR');
  2154. def_system_macro('CPU16');
  2155. def_system_macro('FPC_HAS_TYPE_DOUBLE');
  2156. def_system_macro('FPC_HAS_TYPE_SINGLE');
  2157. def_system_macro('FPC_INCLUDE_SOFTWARE_INT64_TO_DOUBLE');
  2158. def_system_macro('FPC_CURRENCY_IS_INT64');
  2159. def_system_macro('FPC_COMP_IS_INT64');
  2160. {$endif avr}
  2161. { read configuration file }
  2162. if (not disable_configfile) and
  2163. (ppccfg<>'') then
  2164. begin
  2165. read_configfile:=check_configfile(ppccfg,ppccfg);
  2166. { Maybe alternative configfile ? }
  2167. if (not read_configfile) and
  2168. (ppcaltcfg<>'') then
  2169. read_configfile:=check_configfile(ppcaltcfg,ppccfg);
  2170. end
  2171. else
  2172. read_configfile := false;
  2173. { Read commandline and configfile }
  2174. param_file:='';
  2175. { read configfile }
  2176. if read_configfile then
  2177. option.interpret_file(ppccfg);
  2178. { read parameters again to override config file }
  2179. if cmd<>'' then
  2180. option.parsecmd(cmd)
  2181. else
  2182. begin
  2183. { Write help pages if no parameters are passed }
  2184. if (paramcount=0) then
  2185. Option.WriteHelpPages;
  2186. option.read_parameters;
  2187. { Write only quickinfo }
  2188. if option.quickinfo<>'' then
  2189. option.writequickinfo;
  2190. end;
  2191. { Stop if errors in options }
  2192. if ErrorCount>0 then
  2193. StopOptions(1);
  2194. { Write logo }
  2195. if option.ParaLogo then
  2196. option.writelogo;
  2197. { Check file to compile }
  2198. if param_file='' then
  2199. begin
  2200. Message(option_no_source_found);
  2201. StopOptions(1);
  2202. end;
  2203. {$ifndef Unix}
  2204. param_file:=FixFileName(param_file);
  2205. {$endif not unix}
  2206. inputfilepath:=ExtractFilePath(param_file);
  2207. inputfilename:=ExtractFileName(param_file);
  2208. if ExtractFileExt(inputfilename)='' then
  2209. begin
  2210. if FileExists(inputfilepath+ChangeFileExt(inputfilename,sourceext)) then
  2211. inputfilename:=ChangeFileExt(inputfilename,sourceext)
  2212. else if FileExists(inputfilepath+ChangeFileExt(inputfilename,pasext)) then
  2213. inputfilename:=ChangeFileExt(inputfilename,pasext)
  2214. else if ((m_mac in current_settings.modeswitches) or
  2215. (tf_p_ext_support in target_info.flags))
  2216. and FileExists(inputfilepath+ChangeFileExt(inputfilename,pext)) then
  2217. inputfilename:=ChangeFileExt(inputfilename,pext);
  2218. end;
  2219. { Check output dir }
  2220. if (OutputExeDir<>'') and
  2221. not PathExists(OutputExeDir,false) then
  2222. begin
  2223. Message1(general_e_path_does_not_exist,OutputExeDir);
  2224. StopOptions(1);
  2225. end;
  2226. { Add paths specified with parameters to the searchpaths }
  2227. UnitSearchPath.AddList(option.ParaUnitPath,true);
  2228. ObjectSearchPath.AddList(option.ParaObjectPath,true);
  2229. IncludeSearchPath.AddList(option.ParaIncludePath,true);
  2230. LibrarySearchPath.AddList(option.ParaLibraryPath,true);
  2231. FrameworkSearchPath.AddList(option.ParaFrameworkPath,true);
  2232. { add unit environment and exepath to the unit search path }
  2233. if inputfilepath<>'' then
  2234. Unitsearchpath.AddPath(inputfilepath,true);
  2235. if not disable_configfile then
  2236. begin
  2237. env:=GetEnvironmentVariable(target_info.unit_env);
  2238. if env<>'' then
  2239. UnitSearchPath.AddPath(GetEnvironmentVariable(target_info.unit_env),false);
  2240. end;
  2241. {$ifdef Unix}
  2242. fpcdir:=FixPath(GetEnvironmentVariable('FPCDIR'),false);
  2243. if fpcdir='' then
  2244. begin
  2245. if PathExists('/usr/local/lib/fpc/'+version_string,true) then
  2246. fpcdir:='/usr/local/lib/fpc/'+version_string+'/'
  2247. else
  2248. fpcdir:='/usr/lib/fpc/'+version_string+'/';
  2249. end;
  2250. {$else unix}
  2251. fpcdir:=FixPath(GetEnvironmentVariable('FPCDIR'),false);
  2252. if fpcdir='' then
  2253. begin
  2254. fpcdir:=ExePath+'../';
  2255. if not(PathExists(fpcdir+'/units',true)) and
  2256. not(PathExists(fpcdir+'/rtl',true)) then
  2257. fpcdir:=fpcdir+'../';
  2258. end;
  2259. {$endif unix}
  2260. { first try development RTL, else use the default installation path }
  2261. if not disable_configfile then
  2262. begin
  2263. if PathExists(FpcDir+'rtl',true) then
  2264. if tf_use_8_3 in Source_Info.Flags then
  2265. UnitSearchPath.AddPath(FpcDir+'rtl/'+target_os_string,false)
  2266. else
  2267. UnitSearchPath.AddPath(FpcDir+'rtl/'+target_full_string,false)
  2268. else
  2269. if tf_use_8_3 in Source_Info.Flags then
  2270. UnitSearchPath.AddPath(FpcDir+'units/'+target_os_string+'/rtl',false)
  2271. else
  2272. UnitSearchPath.AddPath(FpcDir+'units/'+target_full_string+'/rtl',false);
  2273. end;
  2274. { Add exepath if the exe is not in the current dir, because that is always searched already.
  2275. Do not add it when linking on the target because then we can maybe already find
  2276. .o files that are not for the target }
  2277. if (ExePath<>GetCurrentDir) and
  2278. not(cs_link_on_target in init_settings.globalswitches) then
  2279. UnitSearchPath.AddPath(ExePath,false);
  2280. { Add unit dir to the object and library path }
  2281. objectsearchpath.AddList(unitsearchpath,false);
  2282. librarysearchpath.AddList(unitsearchpath,false);
  2283. { maybe override assembler }
  2284. if (paratargetasm<>as_none) then
  2285. begin
  2286. if not set_target_asm(paratargetasm) then
  2287. begin
  2288. Message2(option_incompatible_asm,asminfos[paratargetasm]^.idtxt,target_info.name);
  2289. set_target_asm(target_info.assemextern);
  2290. Message1(option_asm_forced,target_asm.idtxt);
  2291. end;
  2292. if (af_no_debug in asminfos[paratargetasm]^.flags) and
  2293. (paratargetdbg<>dbg_none) then
  2294. begin
  2295. Message1(option_confict_asm_debug,
  2296. asminfos[paratargetasm]^.idtxt);
  2297. paratargetdbg:=dbg_none;
  2298. exclude(init_settings.moduleswitches,cs_debuginfo);
  2299. end;
  2300. end;
  2301. { maybe override debug info format }
  2302. if (paratargetdbg<>dbg_none) then
  2303. set_target_dbg(paratargetdbg);
  2304. { switch assembler if it's binary and we got -a on the cmdline }
  2305. if (cs_asm_leave in init_settings.globalswitches) and
  2306. (af_outputbinary in target_asm.flags) then
  2307. begin
  2308. Message(option_switch_bin_to_src_assembler);
  2309. set_target_asm(target_info.assemextern);
  2310. end;
  2311. { Force use of external linker if there is no
  2312. internal linker or the linking is skipped }
  2313. if not(cs_link_extern in init_settings.globalswitches) and
  2314. (not assigned(target_info.link) or
  2315. (cs_link_nolink in init_settings.globalswitches)) then
  2316. include(init_settings.globalswitches,cs_link_extern);
  2317. { turn off stripping if compiling with debuginfo or profile }
  2318. if (
  2319. (cs_debuginfo in init_settings.moduleswitches) or
  2320. (cs_profile in init_settings.moduleswitches)
  2321. ) and
  2322. not(cs_link_separate_dbg_file in init_settings.globalswitches) then
  2323. exclude(init_settings.globalswitches,cs_link_strip);
  2324. { force fpu emulation on arm/wince, arm/gba and arm/nds}
  2325. if (target_info.system in [system_arm_wince,system_arm_gba,system_m68k_amiga,
  2326. system_m68k_linux,system_arm_nds])
  2327. {$ifdef arm}
  2328. or (init_settings.fputype=fpu_soft)
  2329. or (target_info.abi=abi_eabi)
  2330. {$endif arm}
  2331. then
  2332. begin
  2333. {$ifdef cpufpemu}
  2334. include(init_settings.moduleswitches,cs_fp_emulation);
  2335. { cs_fp_emulation and fpu_soft are equal on arm }
  2336. init_settings.fputype:=fpu_soft;
  2337. {$endif cpufpemu}
  2338. end;
  2339. { now we can defined cpu and cpu type }
  2340. def_system_macro('CPU'+Cputypestr[init_settings.cputype]);
  2341. def_system_macro('FPU'+fputypestr[init_settings.fputype]);
  2342. {$ifdef ARM}
  2343. { define FPC_DOUBLE_HILO_SWAPPED if needed to properly handle doubles in RTL }
  2344. if (init_settings.fputype in [fpu_fpa,fpu_fpa10,fpu_fpa11]) and
  2345. not(cs_fp_emulation in init_settings.moduleswitches) then
  2346. def_system_macro('FPC_DOUBLE_HILO_SWAPPED');
  2347. {$endif ARM}
  2348. { Section smartlinking conflicts with import sections on Windows }
  2349. if GenerateImportSection and
  2350. (target_info.system in [system_i386_win32,system_x86_64_win64]) then
  2351. exclude(target_info.flags,tf_smartlink_sections);
  2352. if not LinkTypeSetExplicitly then
  2353. set_default_link_type;
  2354. { Default alignment settings,
  2355. 1. load the defaults for the target
  2356. 2. override with generic optimizer setting (little size)
  2357. 3. override with the user specified -Oa }
  2358. UpdateAlignment(init_settings.alignment,target_info.alignment);
  2359. if (cs_opt_size in current_settings.optimizerswitches) then
  2360. begin
  2361. init_settings.alignment.procalign:=1;
  2362. init_settings.alignment.jumpalign:=1;
  2363. init_settings.alignment.loopalign:=1;
  2364. end;
  2365. UpdateAlignment(init_settings.alignment,option.paraalignment);
  2366. set_system_macro('FPC_VERSION',version_nr);
  2367. set_system_macro('FPC_RELEASE',release_nr);
  2368. set_system_macro('FPC_PATCH',patch_nr);
  2369. for i:=low(tfeature) to high(tfeature) do
  2370. if i in features then
  2371. def_system_macro('FPC_HAS_FEATURE_'+featurestr[i]);
  2372. option.free;
  2373. Option:=nil;
  2374. end;
  2375. initialization
  2376. coption:=toption;
  2377. finalization
  2378. if assigned(option) then
  2379. option.free;
  2380. end.