paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-23 00:29:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fpc msg parser: darwin linker identifier in o file

Browse Source 
git-svn-id: trunk@45384 -
This commit is contained in:
mattias 2014-06-07 19:43:42 +00:00
parent b0b5163778
commit edaa5c1a24
1 changed files with 43 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
ide/etfpcmsgparser.pas
View File

@ -1892,12 +1892,12 @@ end;
procedure TIDEFPCParser.ImproveMsgLinkerUndefinedReference( procedure TIDEFPCParser.ImproveMsgLinkerUndefinedReference(
aPhase: TExtToolParserSyncPhase; MsgLine: TMessageLine); aPhase: TExtToolParserSyncPhase; MsgLine: TMessageLine);
{ For example:
/path/lib/x86_64-linux/blaunit.o: In function `FORMCREATE':
/path//blaunit.pas:45: undefined reference to `BLAUNIT_BLABLA'
}
function CheckForLinuxLDFileAndLineNumber: boolean; function CheckForLinuxLDFileAndLineNumber: boolean;
{ For example:
/path/lib/x86_64-linux/blaunit.o: In function `FORMCREATE':
/path//blaunit.pas:45: undefined reference to `BLAUNIT_BLABLA'
}
var var
p: PChar; p: PChar;
Msg: String; Msg: String;
@ -1971,7 +1971,44 @@ procedure TIDEFPCParser.ImproveMsgLinkerUndefinedReference(
end; end;
etpspAfterSync: exit; etpspAfterSync: exit;
end; end;
// in main threads // in main thread
CodeToolBoss.FindFPCMangledIdentifier(MangledName,aComplete,aErrorMsg,
nil,NewCode,NewX,NewY,NewTopLine);
if NewCode=nil then exit;
Result:=true;
MsgLine.SetSourcePosition(NewCode.Filename,NewY,NewX);
MsgLine.Urgency:=mluError;
end;
function CheckForDarwinLDMangledInO: boolean;
{ For example:
_UNIT1_TFORM1_$__FORMCREATE$TOBJECT in unit1.o
}
var
MangledName: string;
aUnitName: string;
aComplete: boolean;
aErrorMsg: string;
NewCode: TCodeBuffer;
NewX: integer;
NewY: integer;
NewTopLine: integer;
begin
Result:=false;
if MsgLine.HasSourcePosition then exit;
if not etFPCMsgParser.GetFPCMsgValues(MsgLine.Msg,' _$1 in $2.o',
MangledName,aUnitName)
then exit;
Result:=true;
case aPhase of
etpspAfterReadLine:
begin
NeedSynchronize:=true;
exit;
end;
etpspAfterSync: exit;
end;
// in main thread
CodeToolBoss.FindFPCMangledIdentifier(MangledName,aComplete,aErrorMsg, CodeToolBoss.FindFPCMangledIdentifier(MangledName,aComplete,aErrorMsg,
nil,NewCode,NewX,NewY,NewTopLine); nil,NewCode,NewX,NewY,NewTopLine);
if NewCode=nil then exit; if NewCode=nil then exit;
@ -1985,6 +2022,7 @@ begin
if CheckForLinuxLDFileAndLineNumber then exit; if CheckForLinuxLDFileAndLineNumber then exit;
if CheckForDarwinLDReferencedFrom then exit; if CheckForDarwinLDReferencedFrom then exit;
if CheckForDarwinLDMangledInO then exit;
end; end;
procedure TIDEFPCParser.ImproveMsgIdentifierPosition( procedure TIDEFPCParser.ImproveMsgIdentifierPosition(