* completed incomplete typed constant records

compiler/i386/ag386att.pas

@@ -903,9 +903,11 @@ interface
             asmbin : 'as';
             asmcmd : '-o $OBJ $ASM';
             supported_target : target_any;
+            outputbinary: false;
             allowdirect : true;
             externals : false;
             needar : true;
+            labelprefix_only_inside_procedure : false;
             labelprefix : '.L';
             comment : '# ';
             secnames : ('',
@@ -921,9 +923,11 @@ interface
             asmbin : 'as';
             asmcmd : '-o $OBJ $ASM';
             supported_target : target_i386_os2;
+            outputbinary: false;
             allowdirect : true;
             externals : false;
             needar : true;
+            labelprefix_only_inside_procedure : false;
             labelprefix : 'L';
             comment : '# ';
             secnames : ('',
@@ -939,9 +943,11 @@ interface
             asmbin : 'asw';
             asmcmd : '-o $OBJ $ASM';
             supported_target : target_i386_win32;
+            outputbinary: false;
             allowdirect : true;
             externals : false;
             needar : true;
+            labelprefix_only_inside_procedure : false;
             labelprefix : '.L';
             comment : '# ';
             secnames : ('',
@@ -959,7 +965,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.8  2001-04-21 15:33:03  peter
+  Revision 1.9  2001-05-06 17:13:23  jonas
+    * completed incomplete typed constant records
+
+  Revision 1.8  2001/04/21 15:33:03  peter
     * stupid bug, finalization to initialization renaming
 
   Revision 1.7  2001/04/21 12:09:00  peter

compiler/i386/ag386int.pas

@@ -759,6 +759,7 @@ ait_stab_function_name : ;
             asmbin : 'tasm';
             asmcmd : '/m2 /ml $ASM $OBJ';
             supported_target : target_any; { what should I write here ?? }
+            outputbinary: false;
             allowdirect : true;
             externals : true;
             needar : true;
@@ -778,9 +779,11 @@ ait_stab_function_name : ;
             asmbin : 'masm';
             asmcmd : '/c $ASM /Fo$OBJ';
             supported_target : target_any; { what should I write here ?? }
+            outputbinary: false;
             allowdirect : true;
             externals : true;
             needar : true;
+            labelprefix_only_inside_procedure : false;
             labelprefix : '@@';
             comment : '; ';
             secnames : ('',
@@ -795,7 +798,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.12  2001-04-21 15:33:03  peter
+  Revision 1.13  2001-05-06 17:13:23  jonas
+    * completed incomplete typed constant records
+
+  Revision 1.12  2001/04/21 15:33:03  peter
     * stupid bug, finalization to initialization renaming
 
   Revision 1.11  2001/04/21 12:09:00  peter

compiler/i386/ag386nsm.pas

@@ -785,9 +785,11 @@ interface
             asmbin : 'nasm';
             asmcmd : '-f coff -o $OBJ $ASM';
             supported_target : target_i386_go32v2;
+            outputbinary: false;
             allowdirect : true;
             externals : true;
             needar : true;
+            labelprefix_only_inside_procedure: false;
             labelprefix : '..@';
             comment : '; ';
             secnames : ('',
@@ -803,9 +805,11 @@ interface
             asmbin : 'nasm';
             asmcmd : '-f win32 -o $OBJ $ASM';
             supported_target : target_i386_win32;
+            outputbinary: false;
             allowdirect : true;
             externals : true;
             needar : true;
+            labelprefix_only_inside_procedure: false;
             labelprefix : '..@';
             comment : '; ';
             secnames : ('',
@@ -821,9 +825,11 @@ interface
             asmbin : 'nasm';
             asmcmd : '-f obj -o $OBJ $ASM';
             supported_target : target_any; { what should I write here ?? }
+            outputbinary: false;
             allowdirect : true;
             externals : true;
             needar : true;
+            labelprefix_only_inside_procedure: false;
             labelprefix : '..@';
             comment : '; ';
             secnames : ('',
@@ -839,9 +845,11 @@ interface
             asmbin : 'nasm';
             asmcmd : '-f elf -o $OBJ $ASM';
             supported_target : target_i386_linux;
+            outputbinary: false;
             allowdirect : true;
             externals : true;
             needar : true;
+            labelprefix_only_inside_procedure: false;
             labelprefix : '..@';
             comment : '; ';
             secnames : ('',
@@ -859,7 +867,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.10  2001-04-21 15:33:03  peter
+  Revision 1.11  2001-05-06 17:13:23  jonas
+    * completed incomplete typed constant records
+
+  Revision 1.10  2001/04/21 15:33:03  peter
     * stupid bug, finalization to initialization renaming
 
   Revision 1.9  2001/04/21 12:09:00  peter

compiler/ogcoff.pas

@@ -1130,6 +1130,7 @@ implementation
             allowdirect : false;
             externals : true;
             needar : false;
+            labelprefix_only_inside_procedure: false;
             labelprefix : '.L';
             comment : '';
             secnames : ('',
@@ -1150,6 +1151,7 @@ implementation
             allowdirect : false;
             externals : true;
             needar : false;
+            labelprefix_only_inside_procedure: false;
             labelprefix : '.L';
             comment : '';
             secnames : ('',
@@ -1165,7 +1167,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.14  2001-05-04 19:50:58  peter
+  Revision 1.15  2001-05-06 17:13:23  jonas
+    * completed incomplete typed constant records
+
+  Revision 1.14  2001/05/04 19:50:58  peter
     * finally added the missing outputbinary field that was missing
 
   Revision 1.13  2001/04/18 22:01:54  peter

compiler/ogelf.pas

@@ -875,6 +875,7 @@ implementation
             allowdirect : false;
             externals : true;
             needar : false;
+            labelprefix_only_inside_procedure: false;
             labelprefix : '.L';
             comment : '';
             secnames : ('',
@@ -889,7 +890,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.9  2001-05-04 19:50:58  peter
+  Revision 1.10  2001-05-06 17:13:23  jonas
+    * completed incomplete typed constant records
+
+  Revision 1.9  2001/05/04 19:50:58  peter
     * finally added the missing outputbinary field that was missing
 
   Revision 1.8  2001/04/18 22:01:54  peter

rtl/inc/objects.pp

@@ -215,14 +215,14 @@ const
    MaxReadBytes = $fffe;
    invalidhandle = -1;
 {$ENDIF}
-{$IFDEF Netware} 
-type 
-   FNameStr = String; 
-   THandle = Longint; 
-const 
-   MaxReadBytes = $7fffffff; 
-   invalidhandle = -1; 
-{$ENDIF} 
+{$IFDEF Netware}
+type
+   FNameStr = String;
+   THandle = Longint;
+const
+   MaxReadBytes = $7fffffff;
+   invalidhandle = -1;
+{$ENDIF}
 
 
 {---------------------------------------------------------------------------}
@@ -709,31 +709,36 @@ CONST
      ObjType: 50;
      VmtLink: Ofs(TypeOf(TCollection)^);
      Load: @TCollection.Load;
-     Store: @TCollection.Store);
+     Store: @TCollection.Store;
+     Next: Nil);
 
    RStringCollection: TStreamRec = (
      ObjType: 51;
      VmtLink: Ofs(TypeOf(TStringCollection)^);
      Load: @TStringCollection.Load;
-     Store: @TStringCollection.Store);
+     Store: @TStringCollection.Store;
+     Next: Nil);
 
    RStrCollection: TStreamRec = (
      ObjType: 69;
      VmtLink: Ofs(TypeOf(TStrCollection)^);
      Load:    @TStrCollection.Load;
-     Store:   @TStrCollection.Store);
+     Store:   @TStrCollection.Store;
+     Next: Nil);
 
    RStringList: TStreamRec = (
      ObjType: 52;
      VmtLink: Ofs(TypeOf(TStringList)^);
      Load: @TStringList.Load;
-     Store: Nil);
+     Store: Nil;
+     Next: Nil);
 
    RStrListMaker: TStreamRec = (
      ObjType: 52;
      VmtLink: Ofs(TypeOf(TStrListMaker)^);
      Load: Nil;
-     Store: @TStrListMaker.Store);
+     Store: @TStrListMaker.Store;
+     Next: Nil);
 
 {<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}
                                 IMPLEMENTATION
@@ -2809,7 +2814,10 @@ END;
 END.
 {
   $Log$
-  Revision 1.4  2001-04-16 18:36:41  florian
+  Revision 1.5  2001-05-06 17:13:22  jonas
+    * completed incomplete typed constant records
+
+  Revision 1.4  2001/04/16 18:36:41  florian
     * updates from Armin commited
 
   Revision 1.3  2000/11/13 13:40:04  marco
@@ -2817,5 +2825,5 @@ END.
 
   Revision 1.2  2000/07/13 11:33:44  michael
   + removed logs
- 
+
 }