paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 15:30:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix several double ;

Browse Source 
git-svn-id: trunk@45488 -
This commit is contained in:
florian 2020-05-24 17:52:09 +00:00
parent afb68dbcf3
commit 84a1f614d9
17 changed files with 19 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/aarch64/racpugas.pas
View File

@ -573,7 +573,7 @@ Unit racpugas;
else else
; ;
end; end;
result:=C_None;; result:=C_None;
end; end;

2
compiler/aasmtai.pas
View File

@ -1114,7 +1114,7 @@ implementation
constructor tai_symbolpair.ppuload(t: taitype; ppufile: tcompilerppufile); constructor tai_symbolpair.ppuload(t: taitype; ppufile: tcompilerppufile);
begin begin
inherited ppuload(t,ppufile); inherited ppuload(t,ppufile);
kind:=TSymbolPairKind(ppufile.getbyte);; kind:=TSymbolPairKind(ppufile.getbyte);
sym:=ppufile.getpshortstring; sym:=ppufile.getpshortstring;
value:=ppufile.getpshortstring; value:=ppufile.getpshortstring;
end; end;

2
compiler/cgexcept.pas
View File

@ -154,7 +154,7 @@ unit cgexcept;
begin begin
current_asmdata.getjumplabel(exceptstate.exceptionlabel); current_asmdata.getjumplabel(exceptstate.exceptionlabel);
exceptstate.oldflowcontrol:=flowcontrol; exceptstate.oldflowcontrol:=flowcontrol;
exceptstate.finallycodelabel:=nil;; exceptstate.finallycodelabel:=nil;
paraloc1.init; paraloc1.init;
paraloc2.init; paraloc2.init;

4
compiler/fmodule.pas
View File

@ -867,14 +867,14 @@ implementation
resourcefiles.Free; resourcefiles.Free;
resourcefiles:=TCmdStrList.Create; resourcefiles:=TCmdStrList.Create;
linkorderedsymbols.Free; linkorderedsymbols.Free;
linkorderedsymbols:=TCmdStrList.Create;; linkorderedsymbols:=TCmdStrList.Create;
pendingspecializations.free; pendingspecializations.free;
pendingspecializations:=tfphashobjectlist.create(false); pendingspecializations:=tfphashobjectlist.create(false);
if assigned(waitingforunit) and if assigned(waitingforunit) and
(waitingforunit.count<>0) then (waitingforunit.count<>0) then
internalerror(2016070501); internalerror(2016070501);
waitingforunit.free; waitingforunit.free;
waitingforunit:=tfpobjectlist.create(false);; waitingforunit:=tfpobjectlist.create(false);
linkunitofiles.Free; linkunitofiles.Free;
linkunitofiles:=TLinkContainer.Create; linkunitofiles:=TLinkContainer.Create;
linkunitstaticlibs.Free; linkunitstaticlibs.Free;

2
compiler/jvm/cpupara.pas
View File

@ -280,7 +280,7 @@ implementation
left to right (including self, if applicable). At the callee side, left to right (including self, if applicable). At the callee side,
they're available as local variables 0..n-1 (with 64 bit values they're available as local variables 0..n-1 (with 64 bit values
taking up two slots) } taking up two slots) }
paraloc^.loc:=LOC_REFERENCE;; paraloc^.loc:=LOC_REFERENCE;
paraloc^.reference.offset:=paraofs; paraloc^.reference.offset:=paraofs;
paraloc^.size:=paracgsize; paraloc^.size:=paracgsize;
paraloc^.def:=paradef; paraloc^.def:=paradef;

2
compiler/nbas.pas
View File

@ -1378,7 +1378,7 @@ implementation
firstpass(tempinfo^.withnode); firstpass(tempinfo^.withnode);
if assigned(tempinfo^.tempinitcode) then if assigned(tempinfo^.tempinitcode) then
firstpass(tempinfo^.tempinitcode); firstpass(tempinfo^.tempinitcode);
inc(current_procinfo.estimatedtempsize,size);; inc(current_procinfo.estimatedtempsize,size);
end; end;

2
compiler/nset.pas
View File

@ -1081,7 +1081,7 @@ implementation
end; end;
if assigned(elseblock) then if assigned(elseblock) then
begin begin
WriteLn(T, PrintNodeIndention, '<block id="else">');; WriteLn(T, PrintNodeIndention, '<block id="else">');
PrintNodeIndent; PrintNodeIndent;
XMLPrintNode(T, ElseBlock); XMLPrintNode(T, ElseBlock);
PrintNodeUnindent; PrintNodeUnindent;

2
compiler/objcgutl.pas
View File

@ -1791,7 +1791,7 @@ procedure tobjcrttiwriter_nonfragile.gen_objc_classes_sections(list:TAsmList; ob
isatcb.free; isatcb.free;
classlabel:=clssym; classlabel:=clssym;
classlabeldef:=classdef;; classlabeldef:=classdef;
end; end;

2
compiler/paramgr.pas
View File

@ -465,7 +465,7 @@ implementation
paraloc^.register:=NR_FUNCTION_RESULT_REG paraloc^.register:=NR_FUNCTION_RESULT_REG
else else
paraloc^.register:=NR_FUNCTION_RETURN_REG; paraloc^.register:=NR_FUNCTION_RETURN_REG;
result.Temporary:=true;; result.Temporary:=true;
end; end;

2
compiler/pkgutil.pas
View File

@ -369,7 +369,7 @@ implementation
outppu.putstring(s); outppu.putstring(s);
outppu.putlongint(m); outppu.putlongint(m);
end; end;
current_module.linkotherofiles.add(s,link_always);; current_module.linkotherofiles.add(s,link_always);
end; end;
if not MakeStatic then if not MakeStatic then
outppu.writeentry(b); outppu.writeentry(b);

2
compiler/powerpc64/nppcadd.pas
View File

@ -196,7 +196,7 @@ begin
exit; exit;
end; end;
else else
;; ;
end; end;
{ defaults } { defaults }

2
compiler/rautils.pas
View File

@ -1184,7 +1184,7 @@ begin
localsegment:=opr.localsegment; localsegment:=opr.localsegment;
{$endif x86} {$endif x86}
localindexreg:=opr.localindexreg; localindexreg:=opr.localindexreg;
localscale:=opr.localscale;; localscale:=opr.localscale;
opr.typ:=OPR_REFERENCE; opr.typ:=OPR_REFERENCE;
hasvar:=false; hasvar:=false;
Fillchar(opr.ref,sizeof(treference),0); Fillchar(opr.ref,sizeof(treference),0);

2
compiler/symtable.pas
View File

@ -2628,7 +2628,7 @@ implementation
begin begin
{ first check the class... } { first check the class... }
if ([oo_has_class_constructor,oo_has_class_destructor] * tabstractrecorddef(p).objectoptions <> []) then if ([oo_has_class_constructor,oo_has_class_destructor] * tabstractrecorddef(p).objectoptions <> []) then
result^:=true;; result^:=true;
{ ... and then also check all subclasses } { ... and then also check all subclasses }
if not result^ then if not result^ then
tabstractrecorddef(p).symtable.deflist.foreachcall(@CheckForClassConDestructors,arg); tabstractrecorddef(p).symtable.deflist.foreachcall(@CheckForClassConDestructors,arg);

2
compiler/utils/ppuutils/ppuout.pp
View File

@ -764,7 +764,7 @@ begin
Output.WriteArrayEnd('Options'); Output.WriteArrayEnd('Options');
end; end;
ElType.Write(Output, 'ElType'); ElType.Write(Output, 'ElType');
RangeType.Write(Output, 'RangeType');; RangeType.Write(Output, 'RangeType');
Output.WriteInt('Low', RangeLow); Output.WriteInt('Low', RangeLow);
Output.WriteInt('High', RangeHigh); Output.WriteInt('High', RangeHigh);
end; end;

4
compiler/x86/aasmcpu.pas
View File

@ -2176,7 +2176,7 @@ implementation
if aIsVector256 then tuplesize := 32 if aIsVector256 then tuplesize := 32
else if aIsVector512 then tuplesize := 64; else if aIsVector512 then tuplesize := 64;
end; end;
end;; end;
if tuplesize > 0 then if tuplesize > 0 then
begin begin
@ -5341,7 +5341,7 @@ implementation
end; end;
else begin else begin
InsTabMemRefSizeInfoCache^[AsmOp].MemRefSizeBCST := msbMultiple; InsTabMemRefSizeInfoCache^[AsmOp].MemRefSizeBCST := msbMultiple;
end;; end;
end; end;
end; end;

2
compiler/x86/aoptx86.pas
View File

@ -1720,7 +1720,7 @@ unit aoptx86;
) )
) then ) then
begin 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; Result := True;
end; end;
top_ref: top_ref:

2
compiler/x86_64/cgcpu.pas
View File

@ -369,7 +369,7 @@ unit cgcpu;
r : longint; r : longint;
regs_to_save_mm: tcpuregisterarray; regs_to_save_mm: tcpuregisterarray;
begin 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 } { Prevent return address from a possible call from ending up in the epilogue }
{ (restoring registers happens before epilogue, providing necessary padding) } { (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 if (current_procinfo.flags*[pi_has_unwind_info,pi_do_call,pi_has_saved_regs])=[pi_has_unwind_info,pi_do_call] then