Browse Source

* extedebug problem solved

pierre 26 years ago
parent
commit
1a3b65af0b
1 changed files with 5 additions and 2 deletions
  1. 5 2
      compiler/cg386cal.pas

+ 5 - 2
compiler/cg386cal.pas

@@ -260,7 +260,7 @@ implementation
                +tostr(pprocdef(p^.procdefinition)^.parast^.address_fixup));
                +tostr(pprocdef(p^.procdefinition)^.parast^.address_fixup));
              exprasmlist^.concat(new(pai_asm_comment,init(
              exprasmlist^.concat(new(pai_asm_comment,init(
                strpnew('inlined parasymtable is at offset '
                strpnew('inlined parasymtable is at offset '
-               +tostr(pprocdef(p^.procdefinition^.parast)^.address_fixup)))));
+               +tostr(pprocdef(p^.procdefinition)^.parast^.address_fixup)))));
 {$endif extdebug}
 {$endif extdebug}
               p^.right:=nil;
               p^.right:=nil;
               { disable further inlining of the same proc
               { disable further inlining of the same proc
@@ -1182,7 +1182,10 @@ implementation
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.83  1999-05-18 21:58:24  florian
+  Revision 1.84  1999-05-18 22:34:26  pierre
+   * extedebug problem solved
+
+  Revision 1.83  1999/05/18 21:58:24  florian
     * fixed some bugs related to temp. ansistrings and functions results
     * fixed some bugs related to temp. ansistrings and functions results
       which return records/objects/arrays which need init/final.
       which return records/objects/arrays which need init/final.