paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-08 00:07:52 +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

10
rtl/objpas/typinfo.pp
View File

@ -308,13 +308,13 @@ type
---------------------------------------------------------------------}
function aligntoptr(p : pointer) : pointer;
begin
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;
end;
aligntoptr:=p;
end;
Function GetEnumName(TypeInfo : PTypeInfo;Value : Integer) : string;