|
@@ -229,14 +229,14 @@ implementation
|
|
|
end;
|
|
end;
|
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
- procedure cgmessagepos1(const pos:tfileposinfo;t : tmsgconst;const s : string);
|
|
|
|
|
|
|
+ procedure cgmessagepos1(const pos:tfileposinfo;t : tmsgconst;const s1 : string);
|
|
|
var
|
|
var
|
|
|
olderrorcount : longint;
|
|
olderrorcount : longint;
|
|
|
begin
|
|
begin
|
|
|
if not(codegenerror) then
|
|
if not(codegenerror) then
|
|
|
begin
|
|
begin
|
|
|
olderrorcount:=Errorcount;
|
|
olderrorcount:=Errorcount;
|
|
|
- verbose.MessagePos1(pos,t,s);
|
|
|
|
|
|
|
+ verbose.MessagePos1(pos,t,s1);
|
|
|
codegenerror:=olderrorcount<>Errorcount;
|
|
codegenerror:=olderrorcount<>Errorcount;
|
|
|
end;
|
|
end;
|
|
|
end;
|
|
end;
|
|
@@ -374,7 +374,10 @@ end.
|
|
|
|
|
|
|
|
{
|
|
{
|
|
|
$Log$
|
|
$Log$
|
|
|
- Revision 1.45 1999-10-14 14:57:52 florian
|
|
|
|
|
|
|
+ Revision 1.46 1999-10-21 14:18:54 peter
|
|
|
|
|
+ * tp7 fix
|
|
|
|
|
+
|
|
|
|
|
+ Revision 1.45 1999/10/14 14:57:52 florian
|
|
|
- removed the hcodegen use in the new cg, use cgbase instead
|
|
- removed the hcodegen use in the new cg, use cgbase instead
|
|
|
|
|
|
|
|
Revision 1.44 1999/10/13 10:42:15 peter
|
|
Revision 1.44 1999/10/13 10:42:15 peter
|
peter