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

* fixed aligntoptr

Browse Source
This commit is contained in:
florian 2004-10-10 19:18:31 +00:00
parent e71d0d3670
commit 2f291713e1
2 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/objpas.inc
View File

@ -132,8 +132,8 @@
{$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
if (ptrint(p) mod sizeof(ptrint))<>0 then
inc(ptrint(p),sizeof(ptrint)-ptrint(p) mod sizeof(ptrint));
result:=p;
{$endif FPC_REQUIRES_PROPER_ALIGNMENT}
result:=p;
end;
@ -758,7 +758,10 @@
{
$Log$
Revision 1.40 2004-10-05 20:21:23 florian
Revision 1.41 2004-10-10 19:18:31 florian
* fixed aligntoptr
Revision 1.40 2004/10/05 20:21:23 florian
* bootstrapping with rtti alignment fixed
Revision 1.39 2004/10/04 21:26:16 florian

7
rtl/objpas/typinfo.pp
View File

@ -290,8 +290,8 @@ function aligntoptr(p : pointer) : pointer;
{$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
if (ptrint(p) mod sizeof(ptrint))<>0 then
inc(ptrint(p),sizeof(ptrint)-ptrint(p) mod sizeof(ptrint));
result:=p;
{$endif FPC_REQUIRES_PROPER_ALIGNMENT}
result:=p;
end;
@ -1490,7 +1490,10 @@ end;
end.
{
$Log$
Revision 1.29 2004-10-04 21:26:16 florian
Revision 1.30 2004-10-10 19:18:31 florian
* fixed aligntoptr
Revision 1.29 2004/10/04 21:26:16 florian
* rtti alignment fixed
Revision 1.28 2004/08/16 16:12:28 peter