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

* aligntoptr needs to use unsigned calculations, patch by Thomas

Browse Source 
git-svn-id: trunk@1148 -
This commit is contained in:
peter 2005-09-20 13:53:54 +00:00
parent 32fa578b58
commit 22a20e15e4
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/objpas/typinfo.pp
View File

@ -310,10 +310,10 @@ type
function aligntoptr(p : pointer) : pointer;
begin
{$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
if (ptrint(p) mod sizeof(ptrint))<>0 then
inc(ptrint(p),sizeof(ptrint)-ptrint(p) mod sizeof(ptrint));
if (ptruint(p) and (sizeof(ptruint)-1))<>0 then
ptruint(p) := (ptruint(p) + sizeof(ptruint) - 1) and not (sizeof(ptruint) - 1);
{$endif FPC_REQUIRES_PROPER_ALIGNMENT}
result:=p;
aligntoptr:=p;
end;