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

* fixed dyn. array handling for 32 bit architectures requiering proper alignment

Browse Source
This commit is contained in:
florian 2004-11-03 11:33:50 +00:00
parent 4ae980e0bc
commit b6d34b6bd1
1 changed files with 2 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/inc/objpas.inc
View File

@ -126,17 +126,6 @@
end; end;
{$endif HASINTF} {$endif HASINTF}
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));
{$endif FPC_REQUIRES_PROPER_ALIGNMENT}
result:=p;
end;
{**************************************************************************** {****************************************************************************
TOBJECT TOBJECT
****************************************************************************} ****************************************************************************}
@ -758,8 +747,8 @@
{ {
$Log$ $Log$
Revision 1.43 2004-11-03 10:22:19 florian Revision 1.44 2004-11-03 11:33:50 florian
* info record about class fields must be packed else it will be aligned wrongly on 64 bit platforms * fixed dyn. array handling for 32 bit architectures requiering proper alignment
Revision 1.42 2004/10/24 20:01:41 peter Revision 1.42 2004/10/24 20:01:41 peter
* saveregisters calling convention is obsolete * saveregisters calling convention is obsolete