Explorar el Código

* bootstrapping with rtti alignment fixed

florian hace 21 años
padre
commit
feeba0ede6
Se han modificado 2 ficheros con 11 adiciones y 2 borrados
  1. 5 1
      compiler/options.pas
  2. 6 1
      rtl/inc/objpas.inc

+ 5 - 1
compiler/options.pas

@@ -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

+ 6 - 1
rtl/inc/objpas.inc

@@ -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