paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-21 12:49:28 +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); BlockWrite(f,maxalloc,2);
close(f); close(f);
{$pop} {$pop}
if ioresult<>0 then; if ioresult<>0 then
Result:=true; Result:=true;
end; end;

2
compiler/systems/t_win.pas
View File

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

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

@ -1138,7 +1138,7 @@ end;
procedure TChmWriter.WriteSTRINGS; procedure TChmWriter.WriteSTRINGS;
begin begin
if FStringsStream.Size = 0 then; if FStringsStream.Size = 0 then
FStringsStream.WriteByte(0); FStringsStream.WriteByte(0);
FStringsStream.Position := 0; FStringsStream.Position := 0;
PostAddStreamToArchive('#STRINGS', '/', FStringsStream); 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]); raise EXsdParserException.CreateFmt(SERR_ExpectedTypeDefinition,[FTypeName]);
locContinue := locSym.getBoolean(s_Unresolved) or locContinue := locSym.getBoolean(s_Unresolved) or
(IsEmbeddedType(locSym) <> FEmbededDef); (IsEmbeddedType(locSym) <> FEmbededDef);
if not locContinue then; if not locContinue then
Result := locSym; Result := locSym;
end; end;
if locContinue then begin 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); procedure TProxyWebModule.DoLog(const aMethod,aLocation, aFromURL, aToURL: String);
begin begin
If Assigned(ProxyManager) and Assigned(ProxyManager.OnLog) then; If Assigned(ProxyManager) and Assigned(ProxyManager.OnLog) then
ProxyManager.OnLog(Self,aMethod,aLocation,aFromURl,aToURL); ProxyManager.OnLog(Self,aMethod,aLocation,aFromURl,aToURL);
end; end;

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

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