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

allow -refPostFix switch to accept empty string value

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@731 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2009-03-07 04:54:26 +00:00
parent 4217df162b
commit 6f8dd5936a
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
bindings/pascocoa/parser/objcparser.pas
View File

@ -420,7 +420,7 @@ begin
else if (prm = 'id') and (vlm <> '') then ConvertSettings.ObjcIDReplace:=vlm else if (prm = 'id') and (vlm <> '') then ConvertSettings.ObjcIDReplace:=vlm
else if (prm = 'call') then ConvertSettings.CallConv:=vlm else if (prm = 'call') then ConvertSettings.CallConv:=vlm
else if (prm = 'userefs') then ConvertSettings.UseRefClassType := true else if (prm = 'userefs') then ConvertSettings.UseRefClassType := true
else if (prm = 'refpostfix') and (vlm <> '') then ConvertSettings.RefClassPostfix := vlm else if (prm = 'refpostfix') then ConvertSettings.RefClassPostfix := vlm
else if prm = 'ini' then begin else if prm = 'ini' then begin
ReadIniFile(Settings, vlm); ReadIniFile(Settings, vlm);
end else end else