mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-24 06:19:34 +01:00
* Write unknwon compiler proc using Comment and only in Extdebug
This commit is contained in:
parent
d8495ac883
commit
ebbf4d8d14
@ -703,7 +703,9 @@ implementation
|
|||||||
if not assigned(srsym) or
|
if not assigned(srsym) or
|
||||||
(srsym.typ <> procsym) then
|
(srsym.typ <> procsym) then
|
||||||
begin
|
begin
|
||||||
writeln('unknown compilerproc ',name);
|
{$ifdef EXTDEBUG}
|
||||||
|
Comment(V_Error,'unknown compilerproc '+name);
|
||||||
|
{$endif EXTDEBUG}
|
||||||
internalerror(200107271);
|
internalerror(200107271);
|
||||||
end;
|
end;
|
||||||
self.create(params,tprocsym(srsym),symowner,nil);
|
self.create(params,tprocsym(srsym),symowner,nil);
|
||||||
@ -2630,7 +2632,10 @@ begin
|
|||||||
end.
|
end.
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.103 2002-10-05 12:43:25 carl
|
Revision 1.104 2002-10-05 15:15:45 peter
|
||||||
|
* Write unknwon compiler proc using Comment and only in Extdebug
|
||||||
|
|
||||||
|
Revision 1.103 2002/10/05 12:43:25 carl
|
||||||
* fixes for Delphi 6 compilation
|
* fixes for Delphi 6 compilation
|
||||||
(warning : Some features do not work under Delphi)
|
(warning : Some features do not work under Delphi)
|
||||||
|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user