diff --git a/compiler/aarch64/racpugas.pas b/compiler/aarch64/racpugas.pas index 622ad127a5..086ac34100 100644 --- a/compiler/aarch64/racpugas.pas +++ b/compiler/aarch64/racpugas.pas @@ -573,7 +573,7 @@ Unit racpugas; else ; end; - result:=C_None;; + result:=C_None; end; diff --git a/compiler/aasmtai.pas b/compiler/aasmtai.pas index f700e731c9..1d02173cfd 100644 --- a/compiler/aasmtai.pas +++ b/compiler/aasmtai.pas @@ -1114,7 +1114,7 @@ implementation constructor tai_symbolpair.ppuload(t: taitype; ppufile: tcompilerppufile); begin inherited ppuload(t,ppufile); - kind:=TSymbolPairKind(ppufile.getbyte);; + kind:=TSymbolPairKind(ppufile.getbyte); sym:=ppufile.getpshortstring; value:=ppufile.getpshortstring; end; diff --git a/compiler/cgexcept.pas b/compiler/cgexcept.pas index 4ad5a86dc1..c0d421c923 100644 --- a/compiler/cgexcept.pas +++ b/compiler/cgexcept.pas @@ -154,7 +154,7 @@ unit cgexcept; begin current_asmdata.getjumplabel(exceptstate.exceptionlabel); exceptstate.oldflowcontrol:=flowcontrol; - exceptstate.finallycodelabel:=nil;; + exceptstate.finallycodelabel:=nil; paraloc1.init; paraloc2.init; diff --git a/compiler/fmodule.pas b/compiler/fmodule.pas index 6146d77d5a..3653ea7996 100644 --- a/compiler/fmodule.pas +++ b/compiler/fmodule.pas @@ -867,14 +867,14 @@ implementation resourcefiles.Free; resourcefiles:=TCmdStrList.Create; linkorderedsymbols.Free; - linkorderedsymbols:=TCmdStrList.Create;; + linkorderedsymbols:=TCmdStrList.Create; pendingspecializations.free; pendingspecializations:=tfphashobjectlist.create(false); if assigned(waitingforunit) and (waitingforunit.count<>0) then internalerror(2016070501); waitingforunit.free; - waitingforunit:=tfpobjectlist.create(false);; + waitingforunit:=tfpobjectlist.create(false); linkunitofiles.Free; linkunitofiles:=TLinkContainer.Create; linkunitstaticlibs.Free; diff --git a/compiler/jvm/cpupara.pas b/compiler/jvm/cpupara.pas index ff0c97d007..c4bdf0bc3f 100644 --- a/compiler/jvm/cpupara.pas +++ b/compiler/jvm/cpupara.pas @@ -280,7 +280,7 @@ implementation left to right (including self, if applicable). At the callee side, they're available as local variables 0..n-1 (with 64 bit values taking up two slots) } - paraloc^.loc:=LOC_REFERENCE;; + paraloc^.loc:=LOC_REFERENCE; paraloc^.reference.offset:=paraofs; paraloc^.size:=paracgsize; paraloc^.def:=paradef; diff --git a/compiler/nbas.pas b/compiler/nbas.pas index 9ea6693301..89bb1d5e92 100644 --- a/compiler/nbas.pas +++ b/compiler/nbas.pas @@ -1378,7 +1378,7 @@ implementation firstpass(tempinfo^.withnode); if assigned(tempinfo^.tempinitcode) then firstpass(tempinfo^.tempinitcode); - inc(current_procinfo.estimatedtempsize,size);; + inc(current_procinfo.estimatedtempsize,size); end; diff --git a/compiler/nset.pas b/compiler/nset.pas index 0b31de9342..8eff523d0d 100644 --- a/compiler/nset.pas +++ b/compiler/nset.pas @@ -1081,7 +1081,7 @@ implementation end; if assigned(elseblock) then begin - WriteLn(T, PrintNodeIndention, '');; + WriteLn(T, PrintNodeIndention, ''); PrintNodeIndent; XMLPrintNode(T, ElseBlock); PrintNodeUnindent; diff --git a/compiler/objcgutl.pas b/compiler/objcgutl.pas index b9ddf79455..c20e913e31 100644 --- a/compiler/objcgutl.pas +++ b/compiler/objcgutl.pas @@ -1791,7 +1791,7 @@ procedure tobjcrttiwriter_nonfragile.gen_objc_classes_sections(list:TAsmList; ob isatcb.free; classlabel:=clssym; - classlabeldef:=classdef;; + classlabeldef:=classdef; end; diff --git a/compiler/paramgr.pas b/compiler/paramgr.pas index 26ca6a077a..879a2328da 100644 --- a/compiler/paramgr.pas +++ b/compiler/paramgr.pas @@ -465,7 +465,7 @@ implementation paraloc^.register:=NR_FUNCTION_RESULT_REG else paraloc^.register:=NR_FUNCTION_RETURN_REG; - result.Temporary:=true;; + result.Temporary:=true; end; diff --git a/compiler/pkgutil.pas b/compiler/pkgutil.pas index 7f17e51c16..5f5f6fb8c7 100644 --- a/compiler/pkgutil.pas +++ b/compiler/pkgutil.pas @@ -369,7 +369,7 @@ implementation outppu.putstring(s); outppu.putlongint(m); end; - current_module.linkotherofiles.add(s,link_always);; + current_module.linkotherofiles.add(s,link_always); end; if not MakeStatic then outppu.writeentry(b); diff --git a/compiler/powerpc64/nppcadd.pas b/compiler/powerpc64/nppcadd.pas index baeb26ba88..239e438c7f 100644 --- a/compiler/powerpc64/nppcadd.pas +++ b/compiler/powerpc64/nppcadd.pas @@ -196,7 +196,7 @@ begin exit; end; else - ;; + ; end; { defaults } diff --git a/compiler/rautils.pas b/compiler/rautils.pas index a862c83868..2fe44048ed 100644 --- a/compiler/rautils.pas +++ b/compiler/rautils.pas @@ -1184,7 +1184,7 @@ begin localsegment:=opr.localsegment; {$endif x86} localindexreg:=opr.localindexreg; - localscale:=opr.localscale;; + localscale:=opr.localscale; opr.typ:=OPR_REFERENCE; hasvar:=false; Fillchar(opr.ref,sizeof(treference),0); diff --git a/compiler/symtable.pas b/compiler/symtable.pas index cd4bc7ef30..18ce7fa068 100644 --- a/compiler/symtable.pas +++ b/compiler/symtable.pas @@ -2628,7 +2628,7 @@ implementation begin { first check the class... } if ([oo_has_class_constructor,oo_has_class_destructor] * tabstractrecorddef(p).objectoptions <> []) then - result^:=true;; + result^:=true; { ... and then also check all subclasses } if not result^ then tabstractrecorddef(p).symtable.deflist.foreachcall(@CheckForClassConDestructors,arg); diff --git a/compiler/utils/ppuutils/ppuout.pp b/compiler/utils/ppuutils/ppuout.pp index 8860da6a1a..316243b5d2 100644 --- a/compiler/utils/ppuutils/ppuout.pp +++ b/compiler/utils/ppuutils/ppuout.pp @@ -764,7 +764,7 @@ begin Output.WriteArrayEnd('Options'); end; ElType.Write(Output, 'ElType'); - RangeType.Write(Output, 'RangeType');; + RangeType.Write(Output, 'RangeType'); Output.WriteInt('Low', RangeLow); Output.WriteInt('High', RangeHigh); end; diff --git a/compiler/x86/aasmcpu.pas b/compiler/x86/aasmcpu.pas index 530e44e6b3..89bcdfad7b 100644 --- a/compiler/x86/aasmcpu.pas +++ b/compiler/x86/aasmcpu.pas @@ -2176,7 +2176,7 @@ implementation if aIsVector256 then tuplesize := 32 else if aIsVector512 then tuplesize := 64; end; - end;; + end; if tuplesize > 0 then begin @@ -5341,7 +5341,7 @@ implementation end; else begin InsTabMemRefSizeInfoCache^[AsmOp].MemRefSizeBCST := msbMultiple; - end;; + end; end; end; diff --git a/compiler/x86/aoptx86.pas b/compiler/x86/aoptx86.pas index a3e050349d..cc3068baa4 100644 --- a/compiler/x86/aoptx86.pas +++ b/compiler/x86/aoptx86.pas @@ -1720,7 +1720,7 @@ unit aoptx86; ) ) then begin - ThisOper^.reg := newreg(getregtype(ANewReg), NewSupReg, getsubreg(p.oper[OperIdx]^.reg));; + ThisOper^.reg := newreg(getregtype(ANewReg), NewSupReg, getsubreg(p.oper[OperIdx]^.reg)); Result := True; end; top_ref: diff --git a/compiler/x86_64/cgcpu.pas b/compiler/x86_64/cgcpu.pas index 0310786856..7b73bb8b3f 100644 --- a/compiler/x86_64/cgcpu.pas +++ b/compiler/x86_64/cgcpu.pas @@ -369,7 +369,7 @@ unit cgcpu; r : longint; regs_to_save_mm: tcpuregisterarray; begin - regs_to_save_mm:=paramanager.get_saved_registers_mm(current_procinfo.procdef.proccalloption);; + regs_to_save_mm:=paramanager.get_saved_registers_mm(current_procinfo.procdef.proccalloption); { Prevent return address from a possible call from ending up in the epilogue } { (restoring registers happens before epilogue, providing necessary padding) } if (current_procinfo.flags*[pi_has_unwind_info,pi_do_call,pi_has_saved_regs])=[pi_has_unwind_info,pi_do_call] then