|
@@ -32,6 +32,7 @@ type
|
|
|
TCompilerStatus = record
|
|
TCompilerStatus = record
|
|
|
{ Current status }
|
|
{ Current status }
|
|
|
currentmodule,
|
|
currentmodule,
|
|
|
|
|
+ currentsourcepath,
|
|
|
currentsource : string; { filename }
|
|
currentsource : string; { filename }
|
|
|
currentline,
|
|
currentline,
|
|
|
currentcolumn : longint; { current line and column }
|
|
currentcolumn : longint; { current line and column }
|
|
@@ -243,7 +244,10 @@ end;
|
|
|
end.
|
|
end.
|
|
|
{
|
|
{
|
|
|
$Log$
|
|
$Log$
|
|
|
- Revision 1.1 1998-12-22 14:27:54 peter
|
|
|
|
|
|
|
+ Revision 1.2 1999-01-14 21:43:08 peter
|
|
|
|
|
+ + status.currentsourcepath
|
|
|
|
|
+
|
|
|
|
|
+ Revision 1.1 1998/12/22 14:27:54 peter
|
|
|
* moved
|
|
* moved
|
|
|
|
|
|
|
|
Revision 1.1 1998/12/10 23:54:28 peter
|
|
Revision 1.1 1998/12/10 23:54:28 peter
|
peter