- removed several ;;

git-svn-id: trunk@7498 -

compiler/aasmtai.pas

@@ -2345,7 +2345,7 @@ implementation
 {$endif x86}
               ppufile.getdata(o.ref^.base,sizeof(Tregister));
               ppufile.getdata(o.ref^.index,sizeof(Tregister));
-              ppufile.getdata(o.ref^.refaddr,sizeof(o.ref^.refaddr));;
+              ppufile.getdata(o.ref^.refaddr,sizeof(o.ref^.refaddr));
               o.ref^.scalefactor:=ppufile.getbyte;
               o.ref^.offset:=ppufile.getaint;
               o.ref^.symbol:=ppufile.getasmsymbol;

compiler/arm/narmcnv.pas

@@ -130,7 +130,7 @@ implementation
         instr:=taicpu.op_reg_reg(A_FLT,location.register,left.location.register);
         if is_signed(left.resultdef) then
           begin
-            instr.oppostfix:=cgsize2fpuoppostfix[def_cgsize(resultdef)];;
+            instr.oppostfix:=cgsize2fpuoppostfix[def_cgsize(resultdef)];
             current_asmdata.CurrAsmList.concat(instr);
           end
         else

compiler/arm/narmcon.pas

@@ -67,7 +67,7 @@ interface
         lastlabel:=nil;
         realait:=floattype2ait[tfloatdef(resultdef).floattype];
         hiloswapped:=(current_settings.fputype in [fpu_fpa,fpu_fpa10,fpu_fpa11]) and
-          not(cs_fp_emulation in current_settings.moduleswitches);;
+          not(cs_fp_emulation in current_settings.moduleswitches);
         { const already used ? }
         if not assigned(lab_real) then
           begin

compiler/cclasses.pas

@@ -1071,7 +1071,7 @@ procedure TFPHashList.Put(Index: Integer; Item: Pointer);
 begin
   if (Index < 0) or (Index >= FCount) then
     RaiseIndexError(Index);
-  FHashList^[Index].Data:=Item;;
+  FHashList^[Index].Data:=Item;
 end;
 
 

compiler/cgobj.pas

@@ -771,7 +771,7 @@ implementation
         for rt:=low(rg) to high(rg) do
           begin
             if assigned(rg[rt]) then
-              rg[rt].extend_live_range_backwards := b;;
+              rg[rt].extend_live_range_backwards := b;
           end;
       end;
 
@@ -1884,7 +1884,7 @@ implementation
         result.ref:=ref;
         result.startbit:=0;
         result.bitlen:=1;
-  
+
         tmpreg:=getintregister(list,bitnumbersize);
         a_op_const_reg_reg(list,OP_SHR,bitnumbersize,3,bitnumber,tmpreg);
         tmpaddrreg:=cg.getaddressregister(list);
@@ -1911,7 +1911,7 @@ implementation
         tmpvalue: tregister;
       begin
         tmpvalue:=cg.getintregister(list,valuesize);
-  
+
         if (target_info.endian=endian_little) then
           begin
             { rotate value register "bitnumber" bits to the right }
@@ -1936,13 +1936,13 @@ implementation
       begin
         a_load_subsetref_reg(list,OS_8,destsize,get_bit_const_ref_sref(bitnumber,ref),destreg);
       end;
-  
-    
+
+
     procedure tcg.a_bit_test_const_reg_reg(list: TAsmList; setregsize, destsize: tcgsize; bitnumber: aint; setreg, destreg: tregister);
       begin
         a_load_subsetreg_reg(list,setregsize,destsize,get_bit_const_reg_sreg(setregsize,bitnumber,setreg),destreg);
       end;
-  
+
 
     procedure tcg.a_bit_test_const_subsetreg_reg(list: TAsmList; setregsize, destsize: tcgsize; bitnumber: aint; const setreg: tsubsetregister; destreg: tregister);
       var
@@ -1959,13 +1959,13 @@ implementation
         a_load_subsetreg_reg(list,setregsize,destsize,tmpsreg,destreg);
       end;
 
-  
+
     procedure tcg.a_bit_test_reg_ref_reg(list: TAsmList; bitnumbersize, destsize: tcgsize; bitnumber: tregister; const ref: treference; destreg: tregister);
       begin
         a_load_subsetref_reg(list,OS_8,destsize,get_bit_reg_ref_sref(list,bitnumbersize,bitnumber,ref),destreg);
       end;
-  
-  
+
+
     procedure tcg.a_bit_test_reg_loc_reg(list: TAsmList; bitnumbersize, destsize: tcgsize; bitnumber: tregister; const loc: tlocation; destreg: tregister);
       var
         tmpreg: tregister;
@@ -1998,8 +1998,8 @@ implementation
             internalerror(2007051701);
         end;
       end;
-  
-  
+
+
     procedure tcg.a_bit_test_const_loc_reg(list: TAsmList; destsize: tcgsize; bitnumber: aint; const loc: tlocation; destreg: tregister);
       begin
         case loc.loc of
@@ -2022,7 +2022,7 @@ implementation
         tmpvalue: tregister;
       begin
         tmpvalue:=cg.getintregister(list,destsize);
-  
+
         if (target_info.endian=endian_little) then
           begin
             a_load_const_reg(list,destsize,1,tmpvalue);
@@ -2051,14 +2051,14 @@ implementation
       begin
         a_load_const_subsetref(list,OS_8,ord(doset),get_bit_const_ref_sref(bitnumber,ref));
       end;
-  
-    
+
+
     procedure tcg.a_bit_set_const_reg(list: TAsmList; doset: boolean; destsize: tcgsize; bitnumber: aint; destreg: tregister);
       begin
         a_load_const_subsetreg(list,OS_8,ord(doset),get_bit_const_reg_sreg(destsize,bitnumber,destreg));
       end;
-  
-  
+
+
     procedure tcg.a_bit_set_const_subsetreg(list: TAsmList; doset: boolean; destsize: tcgsize; bitnumber: aint; const destreg: tsubsetregister);
       var
         tmpsreg: tsubsetregister;
@@ -2079,8 +2079,8 @@ implementation
       begin
         a_load_const_subsetref(list,OS_8,ord(doset),get_bit_reg_ref_sref(list,bitnumbersize,bitnumber,ref));
       end;
-  
-  
+
+
     procedure tcg.a_bit_set_reg_loc(list: TAsmList; doset: boolean; bitnumbersize: tcgsize; bitnumber: tregister; const loc: tlocation);
       var
         tmpreg: tregister;
@@ -2104,8 +2104,8 @@ implementation
             internalerror(2007051703)
         end;
       end;
-  
-  
+
+
     procedure tcg.a_bit_set_const_loc(list: TAsmList; doset: boolean; bitnumber: aint; const loc: tlocation);
       begin
         case loc.loc of

compiler/cmsgs.pas

@@ -91,7 +91,7 @@ begin
           last:=i;
         end;
     end;
-  MsgReplace:=hs+copy(s,last+1,length(s)-last);;
+  MsgReplace:=hs+copy(s,last+1,length(s)-last);
 end;
 
 

compiler/i386/csopt386.pas

@@ -2236,7 +2236,7 @@ begin
 {$endif noinstremove}
           begin
             p.optinfo := nil;
-            p := tai(p.next);;
+            p := tai(p.next);
           end;
     end;
 end;

compiler/pinline.pas

@@ -96,7 +96,7 @@ implementation
             if is_new then
               begin
                 sym:=search_class_member(classh,'CREATE');
-                p2 := cloadvmtaddrnode.create(ctypenode.create(p.resultdef));;
+                p2 := cloadvmtaddrnode.create(ctypenode.create(p.resultdef));
               end
             else
               begin

compiler/pmodules.pas

@@ -1483,7 +1483,7 @@ implementation
          { We might need the symbols info if not using
            the default do_extractsymbolinfo
            which is a dummy function PM }
-         needsymbolinfo:=do_extractsymbolinfo<>@def_extractsymbolinfo;;
+         needsymbolinfo:=do_extractsymbolinfo<>@def_extractsymbolinfo;
          { release all local symtables that are not needed anymore }
          if (not needsymbolinfo) then
            free_localsymtables(current_module.localsymtable);

compiler/systems/t_win.pas

@@ -829,7 +829,7 @@ implementation
                 temtexport.concat(hp)
               else
                 temtexport.insertbefore(hp,hp2);
-              hp:=texported_item(current_module._exports.first);;
+              hp:=texported_item(current_module._exports.first);
            end;
 
          { write the export adress table }