paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 08:29:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

* tp7 fix

Browse Source
This commit is contained in:
peter 1999-10-21 14:18:54 +00:00
parent 43b931922b
commit 46b5193e9b
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/hcodegen.pas
View File

@ -229,14 +229,14 @@ implementation
end;
end;
procedure cgmessagepos1(const pos:tfileposinfo;t : tmsgconst;const s : string);
procedure cgmessagepos1(const pos:tfileposinfo;t : tmsgconst;const s1 : string);
var
olderrorcount : longint;
begin
if not(codegenerror) then
begin
olderrorcount:=Errorcount;
verbose.MessagePos1(pos,t,s);
verbose.MessagePos1(pos,t,s1);
codegenerror:=olderrorcount<>Errorcount;
end;
end;
@ -374,7 +374,10 @@ end.
{
$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
Revision 1.44 1999/10/13 10:42:15 peter