paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-12 22:39:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix Compile / missing semicolon

Browse Source
This commit is contained in:
Martin 2023-06-18 16:50:21 +02:00
parent ee5d8465bb
commit 92b6ded394
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/finddeclarationtool.pas
View File

@ -9701,7 +9701,7 @@ var
if not IsEnd then
AliasType:=Nil;
ExprType:=FindExpressionTypeOfPredefinedIdentifier(CurAtom.StartPos,
Params,AliasType)
Params,AliasType);
{$IFDEF CheckNodeTool}
if ExprType.Desc=xtContext then
ExprType.Context.Tool.CheckNodeTool(ExprType.Context.Node);

4
components/fpdebug/fppascalparser.pas
View File

@ -4577,7 +4577,7 @@ begin
exit;
{$PUSH}{$R-}{$Q-}
Result := TFpValueConstNumber.Create(AVal >> AShift, False)
Result := TFpValueConstNumber.Create(AVal >> AShift, False);
{$POP}
{$IFDEF WITH_REFCOUNT_DEBUG}if Result <> nil then Result.DbgRenameReference(nil, 'DoGetResultValue');{$ENDIF}
@ -4594,7 +4594,7 @@ begin
exit;
{$PUSH}{$R-}{$Q-}
Result := TFpValueConstNumber.Create(AVal << AShift, False)
Result := TFpValueConstNumber.Create(AVal << AShift, False);
{$POP}
{$IFDEF WITH_REFCOUNT_DEBUG}if Result <> nil then Result.DbgRenameReference(nil, 'DoGetResultValue');{$ENDIF}