paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 02:18:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix missing Raise before Exception.Create. Issue ##40860. Patch by n7800.

Browse Source
This commit is contained in:
Bart 2024-04-17 13:29:00 +02:00
parent a2cee5287b
commit 1f7accb9e2
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/examples/addfpprofcalls.lpr
View File

@ -124,7 +124,7 @@ begin
// delete space behind
while Tool.Src[ToPos] in [' ',#9] do inc(ToPos);
if not Changer.Replace(gtNone,gtNone,FromPos,ToPos,'') then
Exception.Create('source not writable');
raise Exception.Create('source not writable');
end;
begin
@ -225,7 +225,7 @@ begin
EnterInsertPos,EnterInsertPos,
Beauty.GetIndentStr(Beauty.GetLineIndent(Tool.Src,Node.StartPos)+Indent)+EnterCall+'('''+Signature+''');')
then
Exception.Create('source not writable');
raise Exception.Create('source not writable');
end;
if (not HasExitCall) then begin
// add Exit call
@ -233,7 +233,7 @@ begin
ExitInsertPos,ExitInsertPos,
Beauty.GetIndentStr(Beauty.GetLineIndent(Tool.Src,Node.StartPos)+Indent)+ExitCall+'('''+Signature+''');')
then
Exception.Create('source not writable');
raise Exception.Create('source not writable');
end;
end;
end;

2
components/fpvectorial/fpvectorial.pas
View File

@ -4855,7 +4855,7 @@ begin
if PointsEnd = nil then
begin
if Len <> 0 then
Exception.Create('[TPath.AppendSegment] Assertion failed Len <> 0 with PointsEnd = nil');
raise Exception.Create('[TPath.AppendSegment] Assertion failed Len <> 0 with PointsEnd = nil');
Points := ASegment;
PointsEnd := ASegment;

2
components/jitclasses/jittypes.pas
View File

@ -526,7 +526,7 @@ begin
debuglnEnter(['> TRefCountedJitReference.Destroy ',dbgs(self),' ' ]); try
{$ENDIF}
if FRefCount > 0 then raise
exception.Create('destroy while referrenced');
raise exception.Create('destroy while referrenced');
DoRefCountZero;
inherited Destroy;