paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 18:07:56 +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
;
end;
result:=C_None;;
result:=C_None;
end;

2
compiler/aasmtai.pas
View File

@ -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;

2
compiler/cgexcept.pas
View File

@ -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;

4
compiler/fmodule.pas
View File

@ -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;

2
compiler/jvm/cpupara.pas
View File

@ -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;

2
compiler/nbas.pas
View File

@ -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;

2
compiler/nset.pas
View File

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

2
compiler/objcgutl.pas
View File

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

2
compiler/paramgr.pas
View File

@ -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;

2
compiler/pkgutil.pas
View File

@ -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);

2
compiler/powerpc64/nppcadd.pas
View File

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

2
compiler/rautils.pas
View File

@ -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);

2
compiler/symtable.pas
View File

@ -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);

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

@ -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;

4
compiler/x86/aasmcpu.pas
View File

@ -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;

2
compiler/x86/aoptx86.pas
View File

@ -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:

2
compiler/x86_64/cgcpu.pas
View File

@ -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