From 91d42ce7f5cbd6a42876fdfe78789f66493b9b5d Mon Sep 17 00:00:00 2001
From: vsnijders <vsnijders@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sat, 28 Jul 2007 22:04:32 +0000
Subject: [PATCH] * a bit more verbosity in case of errors

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@229 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 applications/fpsvnsync/fpsvnsync.lpr | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

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