paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 07:28:26 +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
Result:=FSize-FPosition;
If Result>Count then Result:=Count;
Move (Pointer(PtrUInt(FMemory)+FPosition)^,Buffer,Result);
Move (Pointer(PtrUInt(FMemory)+PtrUInt(FPosition))^,Buffer,Result);
FPosition:=Fposition+Result;
end;
end;
@ -613,7 +613,7 @@ begin
SetCapacity (NewPos);
FSize:=Newpos;
end;
System.Move (Buffer,Pointer(Ptruint(FMemory)+FPosition)^,Count);
System.Move (Buffer,Pointer(Ptruint(FMemory)+PtrUInt(FPosition))^,Count);
FPosition:=NewPos;
Result:=Count;
end;

4
compiler/ppcgen/aasmcpu.pas
View File

@ -485,7 +485,7 @@ uses cutils, cclasses;
p: tai;
newjmp: taicpu;
labelpositions: TFPList;
instrpos: ptruint;
instrpos: ptrint;
l: tasmlabel;
inserted_something: boolean;
begin
@ -539,7 +539,7 @@ uses cutils, cclasses;
{$q-}
{$define overflowon}
{$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}
{$q+}
{$undef overflowon}