Changeset 11 for trunk


Ignore:
Timestamp:
Mar 19, 2011, 12:17:53 PM (14 years ago)
Author:
chronos
Message:
  • Fixed: Right setting of FPC instance location on Linux for Lazarus.
Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/FreePascalManager.lpi

    r9 r11  
    3939      </Item2>
    4040    </RequiredPackages>
    41     <Units Count="32">
     41    <Units Count="42">
    4242      <Unit0>
    4343        <Filename Value="FreePascalManager.lpr"/>
    … …  
    4747        <TopLine Value="1"/>
    4848        <CursorPos X="1" Y="15"/>
    49         <UsageCount Value="119"/>
     49        <UsageCount Value="121"/>
    5050      </Unit0>
    5151      <Unit1>
    … …  
    5757        <EditorIndex Value="0"/>
    5858        <WindowIndex Value="0"/>
    59         <TopLine Value="495"/>
    60         <CursorPos X="3" Y="512"/>
    61         <UsageCount Value="119"/>
     59        <TopLine Value="165"/>
     60        <CursorPos X="54" Y="169"/>
     61        <UsageCount Value="121"/>
    6262        <Loaded Value="True"/>
    6363        <LoadedDesigner Value="True"/>
    … …  
    7373        <TopLine Value="96"/>
    7474        <CursorPos X="36" Y="108"/>
    75         <UsageCount Value="119"/>
     75        <UsageCount Value="121"/>
    7676        <Loaded Value="True"/>
    7777        <LoadedDesigner Value="True"/>
    … …  
    8484        <EditorIndex Value="4"/>
    8585        <WindowIndex Value="0"/>
    86         <TopLine Value="128"/>
    87         <CursorPos X="69" Y="154"/>
    88         <UsageCount Value="119"/>
     86        <TopLine Value="109"/>
     87        <CursorPos X="65" Y="124"/>
     88        <UsageCount Value="121"/>
    8989        <Loaded Value="True"/>
    9090      </Unit3>
    … …  
    9393        <IsPartOfProject Value="True"/>
    9494        <UnitName Value="USource"/>
    95         <EditorIndex Value="7"/>
     95        <EditorIndex Value="13"/>
    9696        <WindowIndex Value="0"/>
    9797        <TopLine Value="6"/>
    9898        <CursorPos X="8" Y="19"/>
    99         <UsageCount Value="119"/>
     99        <UsageCount Value="121"/>
    100100        <Loaded Value="True"/>
    101101      </Unit4>
    … …  
    176176        <ResourceBaseClass Value="Form"/>
    177177        <UnitName Value="UOperationProgress"/>
    178         <EditorIndex Value="5"/>
    179         <WindowIndex Value="0"/>
    180         <TopLine Value="73"/>
    181         <CursorPos X="82" Y="82"/>
    182         <UsageCount Value="75"/>
     178        <EditorIndex Value="11"/>
     179        <WindowIndex Value="0"/>
     180        <TopLine Value="103"/>
     181        <CursorPos X="22" Y="107"/>
     182        <UsageCount Value="77"/>
    183183        <Loaded Value="True"/>
    184184        <LoadedDesigner Value="True"/>
    … …  
    233233        <Filename Value="ReadMe.txt"/>
    234234        <IsPartOfProject Value="True"/>
    235         <EditorIndex Value="6"/>
     235        <EditorIndex Value="12"/>
    236236        <WindowIndex Value="0"/>
    237237        <TopLine Value="1"/>
    238238        <CursorPos X="6" Y="22"/>
    239         <UsageCount Value="73"/>
     239        <UsageCount Value="75"/>
    240240        <Loaded Value="True"/>
    241241        <DefaultSyntaxHighlighter Value="None"/>
    … …  
    267267        <TopLine Value="43"/>
    268268        <CursorPos X="22" Y="57"/>
    269         <UsageCount Value="66"/>
     269        <UsageCount Value="68"/>
    270270        <Loaded Value="True"/>
    271271        <LoadedDesigner Value="True"/>
    … …  
    317317        <TopLine Value="38"/>
    318318        <CursorPos X="33" Y="54"/>
    319         <UsageCount Value="27"/>
     319        <UsageCount Value="29"/>
    320320        <Loaded Value="True"/>
    321321        <LoadedDesigner Value="True"/>
    … …  
    328328        <UsageCount Value="11"/>
    329329      </Unit31>
     330      <Unit32>
     331        <Filename Value="..\..\..\lazarus\lcl\interfaces\gtk2\gtk2listviewtreemodel.pas"/>
     332        <UnitName Value="Gtk2ListViewTreeModel"/>
     333        <WindowIndex Value="0"/>
     334        <TopLine Value="197"/>
     335        <CursorPos X="20" Y="200"/>
     336        <UsageCount Value="10"/>
     337      </Unit32>
     338      <Unit33>
     339        <Filename Value="..\..\..\lazarus\lcl\forms.pp"/>
     340        <UnitName Value="Forms"/>
     341        <WindowIndex Value="0"/>
     342        <TopLine Value="590"/>
     343        <CursorPos X="14" Y="607"/>
     344        <UsageCount Value="10"/>
     345      </Unit33>
     346      <Unit34>
     347        <Filename Value="..\..\..\..\..\..\usr\share\fpcsrc\2.4.0\packages\fcl-process\src\process.pp"/>
     348        <UnitName Value="process"/>
     349        <EditorIndex Value="5"/>
     350        <WindowIndex Value="0"/>
     351        <TopLine Value="160"/>
     352        <CursorPos X="23" Y="166"/>
     353        <UsageCount Value="11"/>
     354        <Loaded Value="True"/>
     355      </Unit34>
     356      <Unit35>
     357        <Filename Value="..\..\..\..\..\..\usr\share\fpcsrc\2.4.0\packages\fcl-process\src\unix\process.inc"/>
     358        <EditorIndex Value="9"/>
     359        <WindowIndex Value="0"/>
     360        <TopLine Value="260"/>
     361        <CursorPos X="33" Y="267"/>
     362        <UsageCount Value="11"/>
     363        <Loaded Value="True"/>
     364      </Unit35>
     365      <Unit36>
     366        <Filename Value="..\..\..\..\..\..\usr\share\fpcsrc\2.4.0\rtl\unix\bunxovlh.inc"/>
     367        <EditorIndex Value="10"/>
     368        <WindowIndex Value="0"/>
     369        <TopLine Value="1"/>
     370        <CursorPos X="19" Y="3"/>
     371        <UsageCount Value="11"/>
     372        <Loaded Value="True"/>
     373      </Unit36>
     374      <Unit37>
     375        <Filename Value="..\..\..\..\..\..\usr\share\fpcsrc\2.4.0\rtl\unix\bunxovl.inc"/>
     376        <WindowIndex Value="0"/>
     377        <TopLine Value="62"/>
     378        <CursorPos X="17" Y="64"/>
     379        <UsageCount Value="10"/>
     380      </Unit37>
     381      <Unit38>
     382        <Filename Value="..\..\..\..\..\..\usr\share\fpcsrc\2.4.0\rtl\linux\bunxsysc.inc"/>
     383        <WindowIndex Value="0"/>
     384        <TopLine Value="367"/>
     385        <CursorPos X="22" Y="369"/>
     386        <UsageCount Value="10"/>
     387      </Unit38>
     388      <Unit39>
     389        <Filename Value="..\..\..\..\..\..\usr\share\fpcsrc\2.4.0\rtl\objpas\classes\classesh.inc"/>
     390        <EditorIndex Value="8"/>
     391        <WindowIndex Value="0"/>
     392        <TopLine Value="587"/>
     393        <CursorPos X="26" Y="604"/>
     394        <UsageCount Value="11"/>
     395        <Loaded Value="True"/>
     396      </Unit39>
     397      <Unit40>
     398        <Filename Value="..\..\..\..\..\..\usr\share\fpcsrc\2.4.0\rtl\inc\objpash.inc"/>
     399        <EditorIndex Value="6"/>
     400        <WindowIndex Value="0"/>
     401        <TopLine Value="158"/>
     402        <CursorPos X="23" Y="175"/>
     403        <UsageCount Value="10"/>
     404        <Loaded Value="True"/>
     405      </Unit40>
     406      <Unit41>
     407        <Filename Value="..\..\..\..\..\..\usr\share\fpcsrc\2.4.0\rtl\inc\objpas.inc"/>
     408        <EditorIndex Value="7"/>
     409        <WindowIndex Value="0"/>
     410        <TopLine Value="147"/>
     411        <CursorPos X="9" Y="152"/>
     412        <UsageCount Value="10"/>
     413        <Loaded Value="True"/>
     414      </Unit41>
    330415    </Units>
    331     <JumpHistory Count="30" HistoryIndex="28">
     416    <JumpHistory Count="28" HistoryIndex="27">
    332417      <Position1>
    333418        <Filename Value="Forms\UMainForm.pas"/>
    334         <Caret Line="294" Column="35" TopLine="279"/>
     419        <Caret Line="512" Column="3" TopLine="495"/>
    335420      </Position1>
    336421      <Position2>
    337422        <Filename Value="Forms\UMainForm.pas"/>
    338         <Caret Line="167" Column="55" TopLine="163"/>
     423        <Caret Line="131" Column="11" TopLine="126"/>
    339424      </Position2>
    340425      <Position3>
    341         <Filename Value="UInstance.pas"/>
    342         <Caret Line="109" Column="15" TopLine="102"/>
     426        <Filename Value="Forms\UMainForm.pas"/>
     427        <Caret Line="169" Column="54" TopLine="165"/>
    343428      </Position3>
    344429      <Position4>
    345430        <Filename Value="UInstance.pas"/>
    346         <Caret Line="139" Column="41" TopLine="122"/>
     431        <Caret Line="94" Column="28" TopLine="70"/>
    347432      </Position4>
    348433      <Position5>
    349         <Filename Value="Forms\UMainForm.pas"/>
    350         <Caret Line="362" Column="36" TopLine="433"/>
     434        <Filename Value="UInstance.pas"/>
     435        <Caret Line="107" Column="19" TopLine="100"/>
    351436      </Position5>
    352437      <Position6>
    353         <Filename Value="Forms\UMainForm.pas"/>
    354         <Caret Line="129" Column="8" TopLine="124"/>
     438        <Filename Value="UInstance.pas"/>
     439        <Caret Line="116" Column="7" TopLine="100"/>
    355440      </Position6>
    356441      <Position7>
    357442        <Filename Value="UInstance.pas"/>
    358         <Caret Line="90" Column="28" TopLine="78"/>
     443        <Caret Line="124" Column="16" TopLine="100"/>
    359444      </Position7>
    360445      <Position8>
    361446        <Filename Value="UInstance.pas"/>
    362         <Caret Line="80" Column="61" TopLine="78"/>
     447        <Caret Line="116" Column="25" TopLine="100"/>
    363448      </Position8>
    364449      <Position9>
    365         <Filename Value="Forms\UMainForm.pas"/>
    366         <Caret Line="84" Column="34" TopLine="65"/>
     450        <Filename Value="UInstance.pas"/>
     451        <Caret Line="115" Column="113" TopLine="99"/>
    367452      </Position9>
    368453      <Position10>
    369         <Filename Value="Forms\UMainForm.pas"/>
    370         <Caret Line="534" Column="89" TopLine="506"/>
     454        <Filename Value="UInstance.pas"/>
     455        <Caret Line="117" Column="94" TopLine="99"/>
    371456      </Position10>
    372457      <Position11>
    373         <Filename Value="Forms\UMainForm.pas"/>
    374         <Caret Line="130" Column="9" TopLine="125"/>
     458        <Filename Value="UInstance.pas"/>
     459        <Caret Line="119" Column="1" TopLine="99"/>
    375460      </Position11>
    376461      <Position12>
    377462        <Filename Value="UInstance.pas"/>
    378         <Caret Line="95" Column="20" TopLine="78"/>
     463        <Caret Line="123" Column="1" TopLine="99"/>
    379464      </Position12>
    380465      <Position13>
    381466        <Filename Value="UInstance.pas"/>
    382         <Caret Line="86" Column="24" TopLine="78"/>
     467        <Caret Line="124" Column="1" TopLine="99"/>
    383468      </Position13>
    384469      <Position14>
    385         <Filename Value="Forms\UMainForm.pas"/>
    386         <Caret Line="248" Column="40" TopLine="225"/>
     470        <Filename Value="UInstance.pas"/>
     471        <Caret Line="85" Column="20" TopLine="69"/>
    387472      </Position14>
    388473      <Position15>
    389474        <Filename Value="UInstance.pas"/>
    390         <Caret Line="33" Column="41" TopLine="16"/>
     475        <Caret Line="137" Column="5" TopLine="104"/>
    391476      </Position15>
    392477      <Position16>
    393478        <Filename Value="UInstance.pas"/>
    394         <Caret Line="63" Column="3" TopLine="61"/>
     479        <Caret Line="127" Column="1" TopLine="110"/>
    395480      </Position16>
    396481      <Position17>
    397482        <Filename Value="UInstance.pas"/>
    398         <Caret Line="64" Column="95" TopLine="56"/>
     483        <Caret Line="126" Column="43" TopLine="110"/>
    399484      </Position17>
    400485      <Position18>
    401486        <Filename Value="UInstance.pas"/>
    402         <Caret Line="65" Column="1" TopLine="56"/>
     487        <Caret Line="135" Column="18" TopLine="120"/>
    403488      </Position18>
    404489      <Position19>
    405         <Filename Value="UInstance.pas"/>
    406         <Caret Line="57" Column="95" TopLine="41"/>
     490        <Filename Value="..\..\..\..\..\..\usr\share\fpcsrc\2.4.0\packages\fcl-process\src\unix\process.inc"/>
     491        <Caret Line="284" Column="44" TopLine="270"/>
    407492      </Position19>
    408493      <Position20>
    409494        <Filename Value="UInstance.pas"/>
    410         <Caret Line="74" Column="76" TopLine="43"/>
     495        <Caret Line="128" Column="20" TopLine="100"/>
    411496      </Position20>
    412497      <Position21>
    413         <Filename Value="UInstance.pas"/>
    414         <Caret Line="73" Column="1" TopLine="45"/>
     498        <Filename Value="..\..\..\..\..\..\usr\share\fpcsrc\2.4.0\packages\fcl-process\src\process.pp"/>
     499        <Caret Line="123" Column="34" TopLine="106"/>
    415500      </Position21>
    416501      <Position22>
    417502        <Filename Value="UInstance.pas"/>
    418         <Caret Line="75" Column="1" TopLine="47"/>
     503        <Caret Line="133" Column="45" TopLine="102"/>
    419504      </Position22>
    420505      <Position23>
    421506        <Filename Value="UInstance.pas"/>
    422         <Caret Line="76" Column="1" TopLine="48"/>
     507        <Caret Line="129" Column="72" TopLine="111"/>
    423508      </Position23>
    424509      <Position24>
    425         <Filename Value="Forms\UMainForm.pas"/>
    426         <Caret Line="237" Column="1" TopLine="225"/>
     510        <Filename Value="UInstance.pas"/>
     511        <Caret Line="128" Column="30" TopLine="112"/>
    427512      </Position24>
    428513      <Position25>
    429514        <Filename Value="UInstance.pas"/>
    430         <Caret Line="66" Column="88" TopLine="48"/>
     515        <Caret Line="139" Column="18" TopLine="122"/>
    431516      </Position25>
    432517      <Position26>
    433         <Filename Value="UInstance.pas"/>
    434         <Caret Line="32" Column="33" TopLine="13"/>
     518        <Filename Value="..\..\..\..\..\..\usr\share\fpcsrc\2.4.0\packages\fcl-process\src\unix\process.inc"/>
     519        <Caret Line="267" Column="33" TopLine="260"/>
    435520      </Position26>
    436521      <Position27>
    437522        <Filename Value="UInstance.pas"/>
    438         <Caret Line="178" Column="62" TopLine="149"/>
     523        <Caret Line="114" Column="18" TopLine="112"/>
    439524      </Position27>
    440525      <Position28>
    441526        <Filename Value="UInstance.pas"/>
    442         <Caret Line="146" Column="70" TopLine="128"/>
     527        <Caret Line="180" Column="30" TopLine="169"/>
    443528      </Position28>
    444       <Position29>
    445         <Filename Value="UInstance.pas"/>
    446         <Caret Line="147" Column="64" TopLine="128"/>
    447       </Position29>
    448       <Position30>
    449         <Filename Value="Forms\UMainForm.pas"/>
    450         <Caret Line="512" Column="3" TopLine="495"/>
    451       </Position30>
    452529    </JumpHistory>
    453530  </ProjectOptions>
    454531  <CompilerOptions>
    455     <Version Value="9"/>
     532    <Version Value="10"/>
    456533    <PathDelim Value="\"/>
    457534    <Target>
    … …  
    470547        <StackChecks Value="True"/>
    471548      </Checks>
     549      <VerifyObjMethodCallValidity Value="True"/>
    472550    </CodeGeneration>
    473551    <Linking>
    474       <Debugging>
    475         <UseHeaptrc Value="True"/>
    476       </Debugging>
    477552      <Options>
    478553        <Win32>

  • trunk/UInstance.pas

    r10 r11  
    108108var
    109109  Process: TProcess;
     110  I: Integer;
    110111begin
    111112  if Assigned(IDESource) then
    … …  
    113114    UpdateFPCConfig;
    114115    UpdateLazarusConfig;
     116
    115117    Process := TProcess.Create(nil);
     118
     119    for I := 0 to GetEnvironmentVariableCount - 1 do
     120      Process.Environment.Add(GetEnvironmentString(I));
     121
     122    Process.Environment.Values['PATH'] := GetPath + DirectorySeparator + FPCSource.ProjectShortName +
     123      '/lib/fpc/' + FPCSource.VersionNumber + ':' + Process.Environment.Values['PATH'];
     124    Process.Environment.Values['PPC_CONFIG_PATH'] := GetBinPath;
     125    ShowMessage(Process.Environment.Text);
     126
    116127    Process.CurrentDirectory := GetPath + DirectorySeparator + IDESource.ProjectShortName;
    117128    Process.CommandLine := GetPath + DirectorySeparator + IDESource.ProjectShortName +
    … …  
    167178    Config.LoadFromFile(MainForm.GetBaseDir + DirectorySeparator +
    168179      MainForm.TemplateDir + DirectorySeparator + 'fpc.cfg');
     180    {$IFDEF Windows}
    169181    Config.Text := StringReplace(Config.Text, '$(FPCDir)', GetPath +
    170182      DirectorySeparator + FPCSource.ProjectShortName, [rfReplaceAll]);
     183    {$ENDIF}
     184    {$IFDEF Linux}
     185    Config.Text := StringReplace(Config.Text, '$(FPCDir)', GetPath +
     186      DirectorySeparator + FPCSource.ProjectShortName +
     187      '/lib/fpc/' + FPCSource.VersionNumber, [rfReplaceAll]);
     188    {$ENDIF}
    171189    Config.SaveToFile(GetBinPath + DirectorySeparator + 'fpc.cfg');
    172190  finally
Note: See TracChangeset for help on using the changeset viewer.