Browse Source

* fixed bootstrapping on 64 bit CPUs

git-svn-id: trunk@3461 -
florian 19 years ago
parent
commit
b698d6eb02
2 changed files with 3 additions and 0 deletions
  1. 1 0
      compiler/options.pas
  2. 2 0
      rtl/inc/varianth.inc

+ 1 - 0
compiler/options.pas

@@ -1872,6 +1872,7 @@ begin
   def_system_macro('COMPPROCINLINEFIXED');
   def_system_macro('PARAOUTFILE');
   def_system_macro('RESSTRSECTIONS');
+  def_system_macro('FPC_HASFIXED64BITVARIANT');
 
   if pocall_default = pocall_register then
     def_system_macro('REGCALL');

+ 2 - 0
rtl/inc/varianth.inc

@@ -106,8 +106,10 @@ type
                      varany :  (vany : pointer);
                      vararray : (varray : pvararray);
                      varbyref : (vpointer : pointer);
+{$ifdef FPC_HASFIXED64BITVARIANT}
                      { unused so far, only to fill up space }
                      varrecord : (vrecord : pointer;precinfo : pointer);
+{$endif FPC_HASFIXED64BITVARIANT}
                 );
                1:
                  (vlongs : array[0..2] of longint);