From 364c9a7fc6cfae2d6f715bc234429a3ff4c39a4f Mon Sep 17 00:00:00 2001
From: skalogryz <skalogryz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 18 Jan 2016 16:55:10 +0000
Subject: [PATCH] iphonelazext: fix compilation warnings clean up the code of
 debugging messages.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4434 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/iphonelazext/ideext.pas           | 9 ++++++---
 components/iphonelazext/iphonelazext.lpk     | 1 -
 components/iphonelazext/pbx/pbxcontainer.pas | 8 +-------
 3 files changed, 7 insertions(+), 11 deletions(-)

diff --git a/components/iphonelazext/ideext.pas b/components/iphonelazext/ideext.pas
index fb23a0872..d4d4a612e 100644
--- a/components/iphonelazext/ideext.pas
+++ b/components/iphonelazext/ideext.pas
@@ -509,21 +509,24 @@ begin
 end;
 
 procedure TiPhoneExtension.SimRun(Sender: TObject);
+{$ifdef darwin}
 var
+  prj : string;
   err : string;
   pid : integer;
-  prj : string;
   s   : string;
+  {$endif}
 begin
   CloseProc;
   UpdateXcode(Sender);
+
   // install Xcode project
-  prj := GetXcodeProjDirName;
-  IDEMsg('Build+Install Xcode project (xcodebuild)');
 
   {$ifndef darwin}
   IDEMsg('Unable to install / run simulator on non Mac OS X platform');
   {$else}
+  prj := GetXcodeProjDirName;
+  IDEMsg('Build+Install Xcode project (xcodebuild)');
   if not InstallXcodePrj(prj, 'iphonesimulator', EnvOptions.DefaultDeviceID) then begin
     IDEMsg('xcodebuild failed');
     Exit;
diff --git a/components/iphonelazext/iphonelazext.lpk b/components/iphonelazext/iphonelazext.lpk
index c82bd5aa1..2dfe25b1a 100644
--- a/components/iphonelazext/iphonelazext.lpk
+++ b/components/iphonelazext/iphonelazext.lpk
@@ -26,7 +26,6 @@
         <CompilerMessages>
           <IgnoredMessages idx5091="True" idx5060="True" idx5057="True" idx5024="True" idx4081="True" idx4080="True" idx4079="True" idx4055="True"/>
         </CompilerMessages>
-        <CustomOptions Value="-Sm -dPACKAGE_PATH:='$(PkgDir)'"/>
       </Other>
     </CompilerOptions>
     <Description Value="iPhone Development Lazarus extension"/>
diff --git a/components/iphonelazext/pbx/pbxcontainer.pas b/components/iphonelazext/pbx/pbxcontainer.pas
index 969964b7a..4c2791ab5 100644
--- a/components/iphonelazext/pbx/pbxcontainer.pas
+++ b/components/iphonelazext/pbx/pbxcontainer.pas
@@ -233,8 +233,6 @@ begin
 end;
 
 procedure PBXValueCopy(src, dst: TPBXValue);
-var
-  dv : TPBXValue;
 begin
   if not Assigned(src) or not Assigned(dst) then Exit;
   dst.valType:=src.valType;
@@ -531,7 +529,6 @@ var
   root  : string;
   objs  : TObjHashList;
   rt    : TObject;
-  i     : Integer;
 begin
   Result:=false;
   AFileInfo.archiveVersion:='';
@@ -687,7 +684,7 @@ begin
           PBXParserSkipLevel(p);
       end;
     end else begin
-      writeln(obj.ClassName, ': unkown property: ', p.Name);
+      //writeln(obj.ClassName, ': unkown property: ', p.Name);
       uprop:=obj._addUnkProp(p.Name);
       GuessProperty(p,uprop);
       {if tk <> etValue then
@@ -860,7 +857,6 @@ begin
     names.OwnsObjects:=true;
 
     for i:=0 to cnt-1 do begin
-      writeln('idx = ', i);
       wp:=TWriteProp.Create(i);
       names.AddObject(p^[i].Name, wp);
       //names.AddObject(p^[i].Name, TObject(PtrInt(i)));
@@ -868,7 +864,6 @@ begin
     //for i:=0 to
     if pbx._hasUnkProp then begin
       for i:=0 to pbx._unkProp.Count-1 do begin
-        writeln('udx = ', i);
         up:=TPBXUnkProperty(pbx._unkProp[i]);
         wp:=TWriteProp.Create(up);
         names.AddObject(up.name, wp);
@@ -888,7 +883,6 @@ begin
       wp:=TWriteProp(names.Objects[j]);
       if not Assigned(wp.unk) then begin
         i:=wp.propIdx;
-        writeln('idx = ', i);
         nm:=p^[i].Name;
         if p^[i].PropType.Kind=tkClass then begin
           sobj:=GetObjectProp(pbx, p^[i])