+ ait_marker support

compiler/aasm.pas

@@ -69,6 +69,7 @@ unit aasm;
           ait_cut, { used to split into tiny assembler files }
           ait_regalloc,
           ait_regdealloc,
+          ait_marker,
           { never used, makes insertation of new ait_ easier to type }
           ait_dummy);
 
@@ -244,6 +245,14 @@ unit aasm;
           constructor init_end;
        end;
 
+       TMarker = (NoPropInfoStart, NoPropInfoEnd);
+       pai_marker = ^tai_marker;
+       tai_marker = object(tai)
+         Kind: TMarker;
+         Constructor init(_Kind: TMarker);
+       end;
+
+
 { for each processor define the best precision }
 { bestreal is defined in globals }
 {$ifdef i386}
@@ -691,6 +700,19 @@ uses
           endname:=true;
        end;
 
+
+{****************************************************************************
+                             Tai_Marker
+ ****************************************************************************}
+
+     Constructor Tai_Marker.Init(_Kind: TMarker);
+     Begin
+       Inherited Init;
+       typ := ait_marker;
+       Kind := _Kind;
+     End;
+
+
 {*****************************************************************************
                            External Helpers
 *****************************************************************************}
@@ -850,7 +872,10 @@ uses
 end.
 {
   $Log$
-  Revision 1.18  1998-09-20 17:11:25  jonas
+  Revision 1.19  1998-10-01 20:19:11  jonas
+    + ait_marker support
+
+  Revision 1.18  1998/09/20 17:11:25  jonas
     * released REGALLOC
 
   Revision 1.17  1998/09/07 18:33:31  peter

compiler/ag386nsm.pas

@@ -532,6 +532,7 @@ ait_labeled_instruction :
              ait_stabs,
 ait_stab_function_name : ;
 {$endif GDB}
+        ait_marker : ;
          else
           internalerror(10000);
          end;
@@ -570,7 +571,10 @@ ait_stab_function_name : ;
 end.
 {
   $Log$
-  Revision 1.8  1998-09-20 17:11:22  jonas
+  Revision 1.9  1998-10-01 20:19:07  jonas
+    + ait_marker support
+
+  Revision 1.8  1998/09/20 17:11:22  jonas
     * released REGALLOC
 
   Revision 1.7  1998/08/11 14:01:43  peter

compiler/ag68kgas.pas

@@ -590,6 +590,7 @@ ait_stab_function_name : funcname:=pai_stab_function_name(hp)^.str;
                          AsmWriteLn(ait_section2str(lastsec));
                        AsmStartSize:=AsmSize;
                      end;
+        ait_marker : ;
          else
           internalerror(10000);
          end;
@@ -663,7 +664,10 @@ ait_stab_function_name : funcname:=pai_stab_function_name(hp)^.str;
 end.
 {
   $Log$
-  Revision 1.12  1998-09-28 16:57:09  pierre
+  Revision 1.13  1998-10-01 20:19:08  jonas
+    + ait_marker support
+
+  Revision 1.12  1998/09/28 16:57:09  pierre
     * changed all length(p^.value_str^) into str_length(p)
       to get it work with and without ansistrings
     * changed sourcefiles field of tmodule to a pointer

compiler/ag68kmit.pas

@@ -581,6 +581,7 @@ ait_stab_function_name : funcname:=pai_stab_function_name(hp)^.str;
                        if lastsec<>sec_none then
                          AsmWriteLn(ait_section2str[lastsec,lastsecidx]);
                      end;
+        ait_marker : ;
          else
           internalerror(10000);
          end;
@@ -641,7 +642,10 @@ ait_stab_function_name : funcname:=pai_stab_function_name(hp)^.str;
 end.
 {
   $Log$
-  Revision 1.10  1998-09-28 16:57:11  pierre
+  Revision 1.11  1998-10-01 20:19:09  jonas
+    + ait_marker support
+
+  Revision 1.10  1998/09/28 16:57:11  pierre
     * changed all length(p^.value_str^) into str_length(p)
       to get it work with and without ansistrings
     * changed sourcefiles field of tmodule to a pointer

compiler/ag68kmot.pas

@@ -485,6 +485,7 @@ ait_labeled_instruction :
               ait_stabs,
  ait_stab_function_name : ;
 {$endif GDB}
+        ait_marker : ;
          else
           internalerror(10000);
          end;
@@ -523,7 +524,10 @@ ait_labeled_instruction :
 end.
 {
   $Log$
-  Revision 1.8  1998-09-16 01:08:08  carl
+  Revision 1.9  1998-10-01 20:19:10  jonas
+    + ait_marker support
+
+  Revision 1.8  1998/09/16 01:08:08  carl
     * alignment of byte bugfix
 
   Revision 1.7  1998/08/10 14:49:38  peter