paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 11:38:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Correct errors like "then;" . Fixes issue #41171

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-03-01 20:49:42 +01:00
parent 2ef405b3e5
commit 0df9da502b
6 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/systems/t_msdos.pas
View File

@ -449,7 +449,7 @@ begin
BlockWrite(f,maxalloc,2);
close(f);
{$pop}
if ioresult<>0 then;
if ioresult<>0 then
Result:=true;
end;

2
compiler/systems/t_win.pas
View File

@ -1797,7 +1797,7 @@ implementation
freemem(zerobuf,maxfillsize);
close(f);
{$pop}
if ioresult<>0 then;
if ioresult<>0 then
postprocessexecutable:=true;
end;

2
packages/chm/src/chmwriter.pas
View File

@ -1138,7 +1138,7 @@ end;
procedure TChmWriter.WriteSTRINGS;
begin
if FStringsStream.Size = 0 then;
if FStringsStream.Size = 0 then
FStringsStream.WriteByte(0);
FStringsStream.Position := 0;
PostAddStreamToArchive('#STRINGS', '/', FStringsStream);

2
packages/fcl-sdo/src/base/sdo_xsdparser.pas
View File

@ -1303,7 +1303,7 @@ begin
raise EXsdParserException.CreateFmt(SERR_ExpectedTypeDefinition,[FTypeName]);
locContinue := locSym.getBoolean(s_Unresolved) or
(IsEmbeddedType(locSym) <> FEmbededDef);
if not locContinue then;
if not locContinue then
Result := locSym;
end;
if locContinue then begin

2
packages/fcl-web/src/base/fpwebproxy.pp
View File

@ -248,7 +248,7 @@ end;
procedure TProxyWebModule.DoLog(const aMethod,aLocation, aFromURL, aToURL: String);
begin
If Assigned(ProxyManager) and Assigned(ProxyManager.OnLog) then;
If Assigned(ProxyManager) and Assigned(ProxyManager.OnLog) then
ProxyManager.OnLog(Self,aMethod,aLocation,aFromURl,aToURL);
end;

2
packages/ptc/src/wince/gapi/wincegapiconsolei.inc
View File

@ -153,7 +153,7 @@ procedure TWinCEGAPIConsole.Close;
begin
LOG('TWinCEGAPIConsole.Close');
if FGXDisplayIsOpen Then;
if FGXDisplayIsOpen then
GXCloseDisplay;
FGXDisplayIsOpen := False;