paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 08:39:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed EXTDEBUG

Browse Source
This commit is contained in:
peter 2001-07-06 15:29:39 +00:00
parent f7f398a59e
commit f4ca079850
1 changed files with 4 additions and 3 deletions

7
compiler/pass_1.pas
View File

@ -116,8 +116,6 @@ implementation
begin
{$ifdef extdebug}
inc(total_of_firstpass);
if (p.firstpasscount>0) and only_one_pass then
exit;
{$endif extdebug}
oldcodegenerror:=codegenerror;
oldpos:=aktfilepos;
@ -175,7 +173,10 @@ implementation
end.
{
$Log$
Revision 1.14 2001-04-15 09:48:30 peter
Revision 1.15 2001-07-06 15:29:39 peter
* fixed EXTDEBUG
Revision 1.14 2001/04/15 09:48:30 peter
* fixed crash in labelnode
* easier detection of goto and label in try blocks