|
@@ -756,7 +756,7 @@ var
|
|
|
AsmWriteLn(#9'.stabd'#9+tostr(n_line)+',0,'+tostr(fileinfo.line));
|
|
AsmWriteLn(#9'.stabd'#9+tostr(n_line)+',0,'+tostr(fileinfo.line));
|
|
|
*)
|
|
*)
|
|
|
if isInFunction then
|
|
if isInFunction then
|
|
|
- AsmWriteln(#9'line '+ tostr(fileinfo.line - firstLineInFunction - 1));
|
|
|
|
|
|
|
+ AsmWriteln(#9'line '+ tostr(fileinfo.line - firstLineInFunction + 1));
|
|
|
end;
|
|
end;
|
|
|
stabslastfileinfo:=fileinfo;
|
|
stabslastfileinfo:=fileinfo;
|
|
|
end;
|
|
end;
|
|
@@ -1462,7 +1462,10 @@ initialization
|
|
|
end.
|
|
end.
|
|
|
{
|
|
{
|
|
|
$Log$
|
|
$Log$
|
|
|
- Revision 1.42 2004-10-31 21:45:03 peter
|
|
|
|
|
|
|
+ Revision 1.43 2005-02-08 22:46:00 olle
|
|
|
|
|
+ * fixed erroneous asm line directive
|
|
|
|
|
+
|
|
|
|
|
+ Revision 1.42 2004/10/31 21:45:03 peter
|
|
|
* generic tlocation
|
|
* generic tlocation
|
|
|
* move tlocation to cgutils
|
|
* move tlocation to cgutils
|
|
|
|
|
|
olle