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

chelper: fix libname writting for non external functions

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1301 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2010-08-24 22:15:44 +00:00
parent cf017c781b
commit 5145fc762a
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/chelper/ctopasconvert.pas
View File

@ -1118,9 +1118,11 @@ begin
wr.W(GetPasTypeName(cent.RetType, n.owner));
end;
wr.W(';');
if isDeclExternal(cfg, cent.RetType, isfunc) then wr.W(' external');
if cfg.ExtLibName<>'' then wr.W(' '+cfg.ExtLibName);
if isDeclExternal(cfg, cent.RetType, isfunc) then begin
wr.W(' external');
if isfunc and (cfg.ExtLibName<>'') then wr.W(' '+cfg.ExtLibName);
wr.W(';');
end;
if WriteComment then WriteLnCommentForOffset(cent.Offset);
end;
end;