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

* bootstrapping with rtti alignment fixed

Browse Source
This commit is contained in:
florian 2004-10-05 20:21:02 +00:00
parent 2005a18abf
commit feeba0ede6
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/options.pas
View File

@ -1699,6 +1699,7 @@ begin
def_symbol('HASGLOBALPROPERTY');
def_symbol('FPC_HASPREFETCH');
def_symbol('FPC_LINEEND_IN_TEXTREC');
def_symbol('FPC_ALIGNSRTTI');
{$ifdef i386}
def_symbol('HASINTF');
def_symbol('HASVARIANT');
@ -2090,7 +2091,10 @@ finalization
end.
{
$Log$
Revision 1.144 2004-09-21 23:33:43 hajny
Revision 1.145 2004-10-05 20:21:02 florian
* bootstrapping with rtti alignment fixed
Revision 1.144 2004/09/21 23:33:43 hajny
* better PathExists, fix for too long command line, correction of message
Revision 1.143 2004/09/21 17:25:12 peter

7
rtl/inc/objpas.inc
View File

@ -562,7 +562,9 @@
inc(Temp);
I:=Temp^;
inc(temp,I+1); // skip name string;
{$ifdef FPC_ALIGNSRTTI}
temp:=aligntoptr(temp);
{$endif FPC_ALIGNSRTTI}
{$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
move(PRecRec(Temp)^.Count,Count,sizeof(Count));
{$else FPC_REQUIRES_PROPER_ALIGNMENT}
@ -756,7 +758,10 @@
{
$Log$
Revision 1.39 2004-10-04 21:26:16 florian
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
* rtti alignment fixed
Revision 1.38 2004/04/29 21:33:22 florian