From c331110de0ca67cea94e198db54080eaed91f1a4 Mon Sep 17 00:00:00 2001 From: skalogryz Date: Thu, 26 Feb 2009 13:17:21 +0000 Subject: [PATCH] + removed comments from pascal external variables. git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@723 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- bindings/pascocoa/parser/ObjCParserUtils.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/bindings/pascocoa/parser/ObjCParserUtils.pas b/bindings/pascocoa/parser/ObjCParserUtils.pas index 8394b88b4..64fccf2cf 100755 --- a/bindings/pascocoa/parser/ObjCParserUtils.pas +++ b/bindings/pascocoa/parser/ObjCParserUtils.pas @@ -835,7 +835,7 @@ var s : AnsiString; begin tp := TTypeDef(v._Type); - s := Format('%s : %s; // external name ''%s''; ', [v._Name, ObjCToDelphiType(tp._Name, tp._IsPointer), v._Name] ); + s := Format('%s : %s; external name ''%s''; ', [v._Name, ObjCToDelphiType(tp._Name, tp._IsPointer), v._Name] ); Vars.Add(SpacePrefix + s); end; @@ -885,7 +885,7 @@ begin restype := ObjCToDelphiType(fntype, isptr); s:= GetProcFuncHead(f._Name, '', CParamsListToPascalStr(f._ParamsList), restype) + ' cdecl'; st.Add( s); - s := Format(' external name ''_%s'';', [f._Name]); + s := Format(' external name ''_%s'';', [f._Name]); st.Add(s); end;