paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 13:59:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed 'mixed signed/unsigned' and pointer conversion warnings.

Browse Source 
git-svn-id: trunk@11444 -
This commit is contained in:
yury 2008-07-23 11:17:27 +00:00
parent 491f0fa1d8
commit 451a290caf
4 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/aopt.pas
View File

@ -90,9 +90,9 @@ Unit aopt;
(tai_Label(p).labsym.is_used) Then
Begin
LabelFound := True;
If (tai_Label(p).labsym.labelnr < LowLabel) Then
If (tai_Label(p).labsym.labelnr < aint(LowLabel)) Then
LowLabel := tai_Label(p).labsym.labelnr;
If (tai_Label(p).labsym.labelnr > HighLabel) Then
If (tai_Label(p).labsym.labelnr > aint(HighLabel)) Then
HighLabel := tai_Label(p).labsym.labelnr
End;
GetNextInstruction(p, p)
@ -127,7 +127,7 @@ Unit aopt;
(tai_Label(p).labsym.labeltype=alt_jump) then
begin
LabelIdx:=tai_label(p).labsym.labelnr-LowLabel;
if LabelIdx>LabelDif then
if LabelIdx>aint(LabelDif) then
internalerror(200604202);
LabelTable^[LabelIdx].PaiObj := p;
end;

4
compiler/aoptobj.pas
View File

@ -884,8 +884,8 @@ Unit AoptObj;
{$endif}
function tAOptObj.getlabelwithsym(sym: tasmlabel): tai;
begin
if (sym.labelnr >= labelinfo^.lowlabel) and
(sym.labelnr <= labelinfo^.highlabel) then { range check, a jump can go past an assembler block! }
if (sym.labelnr >= aint(labelinfo^.lowlabel)) and
(sym.labelnr <= aint(labelinfo^.highlabel)) then { range check, a jump can go past an assembler block! }
getlabelwithsym := labelinfo^.labeltable^[sym.labelnr-labelinfo^.lowlabel].paiobj
else
getlabelwithsym := nil;

2
compiler/arm/cpupi.pas
View File

@ -90,7 +90,7 @@ unit cpupi;
else
floatsavesize:=0;
floatsavesize:=align(floatsavesize,max(current_settings.alignment.localalignmin,4));
result:=Align(tg.direction*tg.lasttemp,max(current_settings.alignment.localalignmin,4))+maxpushedparasize+floatsavesize;
result:=Align(tg.direction*tg.lasttemp,max(current_settings.alignment.localalignmin,4))+maxpushedparasize+aint(floatsavesize);
floatregstart:=tg.direction*result+maxpushedparasize;
if tg.direction=1 then
dec(floatregstart,floatsavesize);

2
compiler/arm/raarmgas.pas
View File

@ -959,7 +959,7 @@ Unit raarmgas;
actopcode:=A_NONE;
for j:=maxlen downto 1 do
begin
actopcode:=tasmop(PtrInt(iasmops.Find(copy(hs,1,j))));
actopcode:=tasmop(PtrUInt(iasmops.Find(copy(hs,1,j))));
if actopcode<>A_NONE then
begin
actasmtoken:=AS_OPCODE;