pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* a bit more verbosity in case of errors

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@229 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
vsnijders
2007-07-28 22:04:32 +00:00
parent fd67d975fe
commit 91d42ce7f5
1 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
applications/fpsvnsync/fpsvnsync.lpr
View File

@ -238,12 +238,16 @@ var
if SourcePropInfo.FileCount<>Files.Count then begin if SourcePropInfo.FileCount<>Files.Count then begin
writeln('Source FileName number mismatch: ', writeln('Source FileName number mismatch: ',
SourcePropInfo.FileCount, '<>', Files.Count); SourcePropInfo.FileCount, '<>', Files.Count);
for i := 0 to SourcePropInfo.FileCount - 1 do
writeln('Source ',i ,': ',SourcePropInfo.FileItem[i].FileName);
halt(2); halt(2);
end; end;
if DestPropInfo.FileCount<>Files.Count then begin if DestPropInfo.FileCount<>Files.Count then begin
writeln('Destination FileName number mismatch: ', writeln('Destination FileName number mismatch: ',
DestPropInfo.FileCount, '<>', Files.Count); DestPropInfo.FileCount, '<>', Files.Count);
for i := 0 to DestPropInfo.FileCount - 1 do
writeln('Dest ',i ,': ',DestPropInfo.FileItem[i].FileName);
halt(2); halt(2);
end; end;
@ -258,7 +262,7 @@ var
halt(3); halt(3);
end; end;
if SourceFileProp=nil then begin if DestFileProp=nil then begin
writeln('Missing destination file properties for ', DestFileName); writeln('Missing destination file properties for ', DestFileName);
halt(3); halt(3);
end; end;
@ -343,8 +347,8 @@ begin
begin begin
FSourceWC := 'd:\lazarus\lazmirror\source'; FSourceWC := 'd:\lazarus\lazmirror\source';
FDestWC := 'd:\lazarus\lazmirror\dest'; FDestWC := 'd:\lazarus\lazmirror\dest';
FSourceWC := 'c:\lazarus\lazmirror\source'; FSourceWC := 'C:\lazarus\lazmirror\source';
FDestWC := 'c:\lazarus\lazmirror\dest'; FDestWC := 'C:\lazarus\lazmirror\dest';
end; end;
end; end;