paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-21 23:41:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

Snapshot tool: fix compilation.

Browse Source 
git-svn-id: trunk@57125 -
This commit is contained in:
juha 2018-01-20 00:08:08 +00:00
parent 87ded12b10
commit b7d9f7292a
2 changed files with 16 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
tools/snapshots/checksnapshots.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="11"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<General> <General>
<Flags> <Flags>
@ -11,9 +11,6 @@
<MainUnit Value="0"/> <MainUnit Value="0"/>
<Title Value="Lazarus snapshots monitor"/> <Title Value="Lazarus snapshots monitor"/>
</General> </General>
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1"> <BuildModes Count="1">
<Item1 Name="default" Default="True"/> <Item1 Name="default" Default="True"/>
</BuildModes> </BuildModes>
@ -24,10 +21,18 @@
</PublishOptions> </PublishOptions>
<RunParams> <RunParams>
<local> <local>
<FormatVersion Value="1"/>
<CommandLineParams Value="-a -p"/> <CommandLineParams Value="-a -p"/>
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/> <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
</local> </local>
<FormatVersion Value="2"/>
<Modes Count="1">
<Mode0 Name="default">
<local>
<CommandLineParams Value="-a -p"/>
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
</local>
</Mode0>
</Modes>
</RunParams> </RunParams>
<RequiredPackages Count="4"> <RequiredPackages Count="4">
<Item1> <Item1>
@ -47,7 +52,6 @@
<Unit0> <Unit0>
<Filename Value="checksnapshots.lpr"/> <Filename Value="checksnapshots.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="checksnapshots"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="snapshotsuptodate.pas"/> <Filename Value="snapshotsuptodate.pas"/>
@ -57,12 +61,10 @@
<Unit2> <Unit2>
<Filename Value="ftplister.pas"/> <Filename Value="ftplister.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="ftplister"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
<Filename Value="ftplistertest.pas"/> <Filename Value="ftplistertest.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="ftplistertest"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
<Filename Value="monitorcfg.pas"/> <Filename Value="monitorcfg.pas"/>
@ -91,8 +93,5 @@
<Linking> <Linking>
<LinkSmart Value="True"/> <LinkSmart Value="True"/>
</Linking> </Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions> </CompilerOptions>
</CONFIG> </CONFIG>

6
tools/snapshots/snapshotsuptodate.pas
View File

@ -5,7 +5,11 @@ unit SnapshotsUptodate;
interface interface
uses uses
Classes, SysUtils, FileUtil, fpcunit, testregistry, ftplister; Classes, SysUtils, fpcunit, testregistry,
// LazUtils
LazUTF8,
// Snapshots
ftplister;
type type