paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 02:29:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed bootstrapping with 2.0.4

Browse Source 
* fixed ppc64 compilation (by reintroducing a bogus ptrint warning, that
    code really is correct)

git-svn-id: trunk@8090 -
This commit is contained in:
Jonas Maebe 2007-07-18 12:15:55 +00:00
parent 69271c6e1a
commit 71193c0f2c
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/cstreams.pas
View File

@ -462,7 +462,7 @@ begin
begin begin
Result:=FSize-FPosition; Result:=FSize-FPosition;
If Result>Count then Result:=Count; If Result>Count then Result:=Count;
Move (Pointer(PtrUInt(FMemory)+FPosition)^,Buffer,Result); Move (Pointer(PtrUInt(FMemory)+PtrUInt(FPosition))^,Buffer,Result);
FPosition:=Fposition+Result; FPosition:=Fposition+Result;
end; end;
end; end;
@ -613,7 +613,7 @@ begin
SetCapacity (NewPos); SetCapacity (NewPos);
FSize:=Newpos; FSize:=Newpos;
end; end;
System.Move (Buffer,Pointer(Ptruint(FMemory)+FPosition)^,Count); System.Move (Buffer,Pointer(Ptruint(FMemory)+PtrUInt(FPosition))^,Count);
FPosition:=NewPos; FPosition:=NewPos;
Result:=Count; Result:=Count;
end; end;

4
compiler/ppcgen/aasmcpu.pas
View File

@ -485,7 +485,7 @@ uses cutils, cclasses;
p: tai; p: tai;
newjmp: taicpu; newjmp: taicpu;
labelpositions: TFPList; labelpositions: TFPList;
instrpos: ptruint; instrpos: ptrint;
l: tasmlabel; l: tasmlabel;
inserted_something: boolean; inserted_something: boolean;
begin begin
@ -539,7 +539,7 @@ uses cutils, cclasses;
{$q-} {$q-}
{$define overflowon} {$define overflowon}
{$endif} {$endif}
(ptruint(abs(ptruint(labelpositions[tasmlabel(taicpu(p).oper[0]^.ref^.symbol).labelnr]-instrpos)) - (low(smallint) div 4)) > ptruint((high(smallint) - low(smallint)) div 4)) then (ptruint(abs(ptrint(labelpositions[tasmlabel(taicpu(p).oper[0]^.ref^.symbol).labelnr]-instrpos)) - (low(smallint) div 4)) > ptruint((high(smallint) - low(smallint)) div 4)) then
{$ifdef overflowon} {$ifdef overflowon}
{$q+} {$q+}
{$undef overflowon} {$undef overflowon}