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; end;
procedure TiPhoneExtension.SimRun(Sender: TObject); procedure TiPhoneExtension.SimRun(Sender: TObject);
{$ifdef darwin}
var var
prj : string;
err : string; err : string;
pid : integer; pid : integer;
prj : string;
s : string; s : string;
{$endif}
begin begin
CloseProc; CloseProc;
UpdateXcode(Sender); UpdateXcode(Sender);
// install Xcode project // install Xcode project
prj := GetXcodeProjDirName;
IDEMsg('Build+Install Xcode project (xcodebuild)');
{$ifndef darwin} {$ifndef darwin}
IDEMsg('Unable to install / run simulator on non Mac OS X platform'); IDEMsg('Unable to install / run simulator on non Mac OS X platform');
{$else} {$else}
prj := GetXcodeProjDirName;
IDEMsg('Build+Install Xcode project (xcodebuild)');
if not InstallXcodePrj(prj, 'iphonesimulator', EnvOptions.DefaultDeviceID) then begin if not InstallXcodePrj(prj, 'iphonesimulator', EnvOptions.DefaultDeviceID) then begin
IDEMsg('xcodebuild failed'); IDEMsg('xcodebuild failed');
Exit; Exit;

1
components/iphonelazext/iphonelazext.lpk
View File

@ -26,7 +26,6 @@
<CompilerMessages> <CompilerMessages>
<IgnoredMessages idx5091="True" idx5060="True" idx5057="True" idx5024="True" idx4081="True" idx4080="True" idx4079="True" idx4055="True"/> <IgnoredMessages idx5091="True" idx5060="True" idx5057="True" idx5024="True" idx4081="True" idx4080="True" idx4079="True" idx4055="True"/>
</CompilerMessages> </CompilerMessages>
<CustomOptions Value="-Sm -dPACKAGE_PATH:='$(PkgDir)'"/>
</Other> </Other>
</CompilerOptions> </CompilerOptions>
<Description Value="iPhone Development Lazarus extension"/> <Description Value="iPhone Development Lazarus extension"/>

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

@ -233,8 +233,6 @@ begin
end; end;
procedure PBXValueCopy(src, dst: TPBXValue); procedure PBXValueCopy(src, dst: TPBXValue);
var
dv : TPBXValue;
begin begin
if not Assigned(src) or not Assigned(dst) then Exit; if not Assigned(src) or not Assigned(dst) then Exit;
dst.valType:=src.valType; dst.valType:=src.valType;
@ -531,7 +529,6 @@ var
root : string; root : string;
objs : TObjHashList; objs : TObjHashList;
rt : TObject; rt : TObject;
i : Integer;
begin begin
Result:=false; Result:=false;
AFileInfo.archiveVersion:=''; AFileInfo.archiveVersion:='';
@ -687,7 +684,7 @@ begin
PBXParserSkipLevel(p); PBXParserSkipLevel(p);
end; end;
end else begin end else begin
writeln(obj.ClassName, ': unkown property: ', p.Name); //writeln(obj.ClassName, ': unkown property: ', p.Name);
uprop:=obj._addUnkProp(p.Name); uprop:=obj._addUnkProp(p.Name);
GuessProperty(p,uprop); GuessProperty(p,uprop);
{if tk <> etValue then {if tk <> etValue then
@ -860,7 +857,6 @@ begin
names.OwnsObjects:=true; names.OwnsObjects:=true;
for i:=0 to cnt-1 do begin for i:=0 to cnt-1 do begin
writeln('idx = ', i);
wp:=TWriteProp.Create(i); wp:=TWriteProp.Create(i);
names.AddObject(p^[i].Name, wp); names.AddObject(p^[i].Name, wp);
//names.AddObject(p^[i].Name, TObject(PtrInt(i))); //names.AddObject(p^[i].Name, TObject(PtrInt(i)));
@ -868,7 +864,6 @@ begin
//for i:=0 to //for i:=0 to
if pbx._hasUnkProp then begin if pbx._hasUnkProp then begin
for i:=0 to pbx._unkProp.Count-1 do begin for i:=0 to pbx._unkProp.Count-1 do begin
writeln('udx = ', i);
up:=TPBXUnkProperty(pbx._unkProp[i]); up:=TPBXUnkProperty(pbx._unkProp[i]);
wp:=TWriteProp.Create(up); wp:=TWriteProp.Create(up);
names.AddObject(up.name, wp); names.AddObject(up.name, wp);
@ -888,7 +883,6 @@ begin
wp:=TWriteProp(names.Objects[j]); wp:=TWriteProp(names.Objects[j]);
if not Assigned(wp.unk) then begin if not Assigned(wp.unk) then begin
i:=wp.propIdx; i:=wp.propIdx;
writeln('idx = ', i);
nm:=p^[i].Name; nm:=p^[i].Name;
if p^[i].PropType.Kind=tkClass then begin if p^[i].PropType.Kind=tkClass then begin
sobj:=GetObjectProp(pbx, p^[i]) sobj:=GetObjectProp(pbx, p^[i])