paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-23 17:51:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

- removed several ;;

Browse Source 
git-svn-id: trunk@7498 -
This commit is contained in:
florian 2007-05-28 15:59:17 +00:00
parent eaa598094e
commit a3d906f1ca
10 changed files with 29 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/aasmtai.pas
View File

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

2
compiler/arm/narmcnv.pas
View File

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

2
compiler/arm/narmcon.pas
View File

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

2
compiler/cclasses.pas
View File

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

40
compiler/cgobj.pas
View File

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

2
compiler/cmsgs.pas
View File

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

2
compiler/i386/csopt386.pas
View File

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

2
compiler/pinline.pas
View File

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

2
compiler/pmodules.pas
View File

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

2
compiler/systems/t_win.pas
View File

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