paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-31 03:01:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

codetools: debug obcclass alloc.init

Browse Source 
git-svn-id: trunk@57652 -
This commit is contained in:
mattias 2018-04-13 08:35:14 +00:00
parent dd6ac71206
commit f2f7e9c993
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/codetools/finddeclarationtool.pas
View File

@ -9577,6 +9577,7 @@ var
then begin
// 'alloc' returns the class itself
ExprType.Context:=Context;
//debugln(['ResolveIdentifier ',ExprTypeToString(ExprType)]);
Params.Load(OldInput,true);
exit;
end;
@ -9657,6 +9658,12 @@ var
ResolveBaseTypeOfIdentifier;
{$IFDEF ShowExprEval}
debugln([' FindExpressionTypeOfTerm ResolveChildren ExprType=',ExprTypeToString(ExprType)]);
//debugln(['ResolveChildren xtContext=',(ExprType.Desc=xtContext),
// ' ctnPointerType=',(ExprType.Context.Node.Desc=ctnPointerType),
// ' Node=',(ExprType.Context.Node<>StartNode),
// ' cmsAutoderef=',(cmsAutoderef in Scanner.CompilerModeSwitches),
// ' ',CompilerModeNames[Scanner.CompilerMode]
// ]);
{$ENDIF}
NewNode:=ExprType.Context.Node;
if (NewNode=nil) then exit;
@ -9728,6 +9735,7 @@ var
// ok, allowed
end else begin
// not allowed
//debugln(['ResolvePoint ',ExprTypeToString(ExprType)]);
MoveCursorToCleanPos(CurAtom.StartPos);
ReadNextAtom;
RaiseIllegalQualifierFound;

4
components/codetools/linkscanner.pas
View File

@ -237,8 +237,8 @@ const
cmsRepeat_forward,cmsCvar_support,cmsInitfinal,cmsOut,cmsDefault_para,
cmsHintdirective,cmsProperty,cmsDefault_inline,cmsExcept],
// cmMacPas
[cmsCvar_support,cmsMac_procvar,cmsNestedProcVars,cmsNonLocalGoto,
cmsISOLike_unary_minus,cmsDefault_inline],
[cmsCvar_support,cmsMac_procvar,cmsNestedProcVars,
cmsNonLocalGoto,cmsISOLike_unary_minus,cmsDefault_inline],
// cmISO
[cmsTp_procvar,cmsDuplicate_names,cmsNestedProcVars,cmsNonLocalGoto,
cmsISOLike_unary_minus],