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

iphonelazext: fix compilation warnings clean up the code of debugging messages.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4434 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2016-01-18 16:55:10 +00:00
parent 2abce47ffb
commit 364c9a7fc6
3 changed files with 7 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
components/iphonelazext/ideext.pas
View File

@ -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;

1
components/iphonelazext/iphonelazext.lpk
View File

@ -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"/>

8
components/iphonelazext/pbx/pbxcontainer.pas
View File

@ -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])