* fix several double ;

git-svn-id: trunk@45488 -

compiler/aarch64/racpugas.pas

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

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;

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;

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;

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;

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;
 
 

compiler/nset.pas

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

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;
 
 

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;
 
 

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

compiler/powerpc64/nppcadd.pas

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

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

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

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;

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;
 

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:

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