* variant paramter passing and functions results fixed

compiler/pexpr.pas

@@ -1772,7 +1772,9 @@ implementation
                               end;
                             consume(_ID);
                           end;
-
+                        variantdef:
+                          begin
+                          end;
                         classrefdef:
                           begin
                              classh:=tobjectdef(tclassrefdef(p1.resulttype.def).pointertype.def);
@@ -2506,7 +2508,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.50  2001-11-02 23:16:51  peter
+  Revision 1.51  2001-11-14 01:12:44  florian
+    * variant paramter passing and functions results fixed
+
+  Revision 1.50  2001/11/02 23:16:51  peter
     * removed obsolete chainprocsym and test_procsym code
 
   Revision 1.49  2001/11/02 22:58:05  peter

compiler/pp.pas

@@ -80,6 +80,12 @@ program pp;
      {$endif CPUDEFINED}
      {$define CPUDEFINED}
    {$endif POWERPC}
+   {$ifdef ALPHA}
+     {$ifdef CPUDEFINED}
+        {$fatal ONLY one of the switches for the CPU type must be defined}
+     {$endif CPUDEFINED}
+     {$define CPUDEFINED}
+   {$endif ALPHA}
    {$ifndef CPUDEFINED}
      {$fatal A CPU type switch must be defined}
    {$endif CPUDEFINED}
@@ -156,7 +162,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.8  2001-08-26 13:36:46  florian
+  Revision 1.9  2001-11-14 01:12:45  florian
+    * variant paramter passing and functions results fixed
+
+  Revision 1.8  2001/08/26 13:36:46  florian
     * some cg reorganisation
     * some PPC updates
 

compiler/types.pas

@@ -785,6 +785,7 @@ implementation
            ((def.deftype=stringdef) and (tstringdef(def).string_typ in [st_shortstring,st_longstring])) or
            ((def.deftype=procvardef) and (po_methodpointer in tprocvardef(def).procoptions)) or
            ((def.deftype=objectdef) and is_object(def)) or
+           (def.deftype=variantdef) or
            ((def.deftype=setdef) and (tsetdef(def).settype<>smallset));
       end;
 
@@ -1868,7 +1869,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.56  2001-11-02 23:24:12  jonas
+  Revision 1.57  2001-11-14 01:12:45  florian
+    * variant paramter passing and functions results fixed
+
+  Revision 1.56  2001/11/02 23:24:12  jonas
     * fixed web bug 1665 (allow char to chararray type conversion) ("merged")
 
   Revision 1.55  2001/11/02 22:58:09  peter