paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 12:49:09 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/pass_1.pas
View File

@ -116,8 +116,6 @@ implementation
begin begin
{$ifdef extdebug} {$ifdef extdebug}
inc(total_of_firstpass); inc(total_of_firstpass);
if (p.firstpasscount>0) and only_one_pass then
exit;
{$endif extdebug} {$endif extdebug}
oldcodegenerror:=codegenerror; oldcodegenerror:=codegenerror;
oldpos:=aktfilepos; oldpos:=aktfilepos;
@ -175,7 +173,10 @@ implementation
end. end.
{ {
$Log$ $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 * fixed crash in labelnode
* easier detection of goto and label in try blocks * easier detection of goto and label in try blocks