瀏覽代碼

* write sec_none info in extdebug

peter 22 年之前
父節點
當前提交
7c733ebcca
共有 1 個文件被更改,包括 11 次插入1 次删除
  1. 11 1
      compiler/aggas.pas

+ 11 - 1
compiler/aggas.pas

@@ -426,6 +426,13 @@ var
 {$ifdef GDB}
                   lastfileinfo.line:=-1;
 {$endif GDB}
+                end
+               else
+                begin
+{$ifdef EXTDEBUG}
+                  AsmWrite(target_asm.comment);
+                  AsmWriteln(' sec_none');
+{$endif EXTDEBUG}
                 end;
              end;
 
@@ -813,7 +820,10 @@ var
 end.
 {
   $Log$
-  Revision 1.23  2003-04-25 20:59:33  peter
+  Revision 1.24  2003-04-28 21:17:53  peter
+    * write sec_none info in extdebug
+
+  Revision 1.23  2003/04/25 20:59:33  peter
     * removed funcretn,funcretsym, function result is now in varsym
       and aliases for result and function name are added using absolutesym
     * vs_hidden parameter for funcret passed in parameter