Bläddra i källkod

Merged revisions 6409 via svnmerge from
svn+ssh://[email protected]/FPC/svn/fpc/branches/merged/fpc_2_3

........
r6409 | jonas | 2007-02-11 00:34:04 +0100 (Sun, 11 Feb 2007) | 2 lines

* fixed ppc64 compilation

........

git-svn-id: branches/fixes_2_2@8769 -

Jonas Maebe 18 år sedan
förälder
incheckning
eaafee1ae4
1 ändrade filer med 4 tillägg och 4 borttagningar
  1. 4 4
      compiler/pdecvar.pas

+ 4 - 4
compiler/pdecvar.pas

@@ -1286,15 +1286,15 @@ implementation
          uniondef : trecorddef;
          hintsymoptions : tsymoptions;
          semicoloneaten: boolean;
-{$ifdef powerpc}
+{$if defined(powerpc) or defined(powerpc64)}
          tempdef: tdef;
          is_first_field: boolean;
-{$endif powerpc}
+{$endif powerpc or powerpc64}
       begin
          recst:=tabstractrecordsymtable(symtablestack.top);
-{$ifdef powerpc}
+{$if defined(powerpc) or defined(powerpc64)}
          is_first_field := true;
-{$endif powerpc}
+{$endif powerpc or powerpc64}
          old_current_object_option:=current_object_option;
          { all variables are public if not in a object declaration }
          if not(vd_object in options) then