- removed ppc-specific tcgpara.composite field, it's no longer used or

necessary

git-svn-id: trunk@23581 -

compiler/parabase.pas

@@ -80,9 +80,6 @@ unit parabase;
           Alignment : ShortInt;
           Size      : TCGSize;  { Size of the parameter included in all locations }
           Temporary : boolean;  { created on the fly, no permanent references exist to this somewhere that will cause it to be disposed }
-{$ifdef powerpc}
-          composite: boolean; { under the AIX abi, how certain parameters are passed depends on whether they are composite or not }
-{$endif powerpc}
           constructor init;
           destructor  done;
           procedure   reset;
@@ -135,9 +132,6 @@ implementation
         location:=nil;
         def:=nil;
         temporary:=false;
-{$ifdef powerpc}
-        composite:=false;
-{$endif powerpc}
       end;
 
 
@@ -160,9 +154,6 @@ implementation
         alignment:=0;
         size:=OS_NO;
         intsize:=0;
-{$ifdef powerpc}
-        composite:=false;
-{$endif powerpc}
       end;
 
     procedure TCGPara.resetiftemp;
@@ -187,9 +178,6 @@ implementation
         result.alignment:=alignment;
         result.size:=size;
         result.intsize:=intsize;
-{$ifdef powerpc}
-        result.composite:=composite;
-{$endif powerpc}
       end;
 
 
@@ -289,9 +277,6 @@ implementation
         ppufile.putbyte(byte(Alignment));
         ppufile.putbyte(ord(Size));
         ppufile.putaint(IntSize);
-{$ifdef powerpc}
-        ppufile.putbyte(byte(composite));
-{$endif}
         ppufile.putderef(defderef);
         nparaloc:=0;
         hparaloc:=location;
@@ -345,9 +330,6 @@ implementation
         Alignment:=shortint(ppufile.getbyte);
         Size:=TCgSize(ppufile.getbyte);
         IntSize:=ppufile.getaint;
-{$ifdef powerpc}
-        composite:=boolean(ppufile.getbyte);
-{$endif}
         ppufile.getderef(defderef);
         nparaloc:=ppufile.getbyte;
         while nparaloc>0 do

compiler/paramgr.pas

@@ -383,9 +383,6 @@ implementation
         cgpara.intsize:=parasym.paraloc[callerside].intsize;
         cgpara.alignment:=parasym.paraloc[callerside].alignment;
         cgpara.def:=parasym.paraloc[callerside].def;
-{$ifdef powerpc}
-        cgpara.composite:=parasym.paraloc[callerside].composite;
-{$endif powerpc}
         while assigned(paraloc) do
           begin
             if paraloc^.size=OS_NO then
@@ -453,9 +450,6 @@ implementation
         cgpara.size:=parasym.paraloc[callerside].size;
         cgpara.intsize:=parasym.paraloc[callerside].intsize;
         cgpara.alignment:=parasym.paraloc[callerside].alignment;
-{$ifdef powerpc}
-        cgpara.composite:=parasym.paraloc[callerside].composite;
-{$endif powerpc}
         paraloc:=parasym.paraloc[callerside].location;
         while assigned(paraloc) do
           begin

compiler/powerpc/cpupara.pas

@@ -430,9 +430,6 @@ unit cpupara;
               hp.paraloc[side].size:=paracgsize;
               hp.paraloc[side].intsize:=paralen;
               hp.paraloc[side].def:=paradef;
-              if (target_info.abi = abi_powerpc_aix) and
-                 (paradef.typ in [recorddef,arraydef]) then
-                hp.paraloc[side].composite:=true;
 {$ifndef cpu64bitaddr}
               if (target_info.abi=abi_powerpc_sysv) and
                  is_64bit(paradef) and

compiler/ppu.pas

@@ -43,7 +43,7 @@ type
 {$endif Test_Double_checksum}
 
 const
-  CurrentPPUVersion = 157;
+  CurrentPPUVersion = 158;
 
 { buffer sizes }
   maxentrysize = 1024;