* made source compilable with TP (too long line)

  * default values for set properties fixed

compiler/og386.pas

@@ -74,7 +74,8 @@ unit og386;
          procedure writereloc(data,len:longint;p:pasmsymbol;relative:relative_type);virtual;
          procedure writesymbol(p:pasmsymbol);virtual;
          procedure writestabs(section:tsection;offset:longint;p:pchar;nidx,nother,line:longint;reloc:boolean);virtual;
-         procedure writesymstabs(section:tsection;offset:longint;p:pchar;ps:pasmsymbol;nidx,nother,line:longint;reloc:boolean);virtual;
+         procedure writesymstabs(section:tsection;offset:longint;p:pchar;ps:pasmsymbol;
+           nidx,nother,line:longint;reloc:boolean);virtual;
          procedure defaultsection(sec:tsection);
        end;
 
@@ -265,7 +266,8 @@ unit og386;
         RunError(211);
       end;
 
-   procedure tobjectoutput.writesymstabs(section:tsection;offset:longint;p:pchar;ps:pasmsymbol;nidx,nother,line:longint;reloc:boolean);
+   procedure tobjectoutput.writesymstabs(section:tsection;offset:longint;p:pchar;ps:pasmsymbol;
+     nidx,nother,line:longint;reloc:boolean);
       begin
         RunError(211);
       end;
@@ -273,7 +275,11 @@ unit og386;
 end.
 {
   $Log$
-  Revision 1.7  1999-05-19 11:54:18  pierre
+  Revision 1.8  1999-05-19 12:41:48  florian
+    * made source compilable with TP (too long line)
+    * default values for set properties fixed
+
+  Revision 1.7  1999/05/19 11:54:18  pierre
    + experimental code for externalbss and stabs problem
 
   Revision 1.6  1999/05/07 00:36:56  pierre

compiler/pdecl.pas

@@ -56,7 +56,7 @@ unit pdecl;
 
     uses
        cobjects,scanner,aasm,tree,pass_1,strings,
-       files,types,verbose,systems,import
+       files,types,verbose,systems,import,tccnv
 {$ifdef GDB}
        ,gdb
 {$endif GDB}
@@ -1052,6 +1052,7 @@ unit pdecl;
                        ) then
                        Message(parser_e_property_cant_have_a_default_value);
                      pt:=comp_expr(true);
+                     arrayconstructor_to_set(pt);
                      pt:=gentypeconvnode(pt,p^.proptype);
                      do_firstpass(pt);
                      if not(is_constnode(pt)) then
@@ -2228,7 +2229,11 @@ unit pdecl;
 end.
 {
   $Log$
-  Revision 1.118  1999-05-18 14:15:51  peter
+  Revision 1.119  1999-05-19 12:41:56  florian
+    * made source compilable with TP (too long line)
+    * default values for set properties fixed
+
+  Revision 1.118  1999/05/18 14:15:51  peter
     * containsself fixes
     * checktypes()