mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-11 21:46:00 +02:00
* except syntax fix for 1.1 version
This commit is contained in:
parent
2ea2c2115f
commit
20c39fbc19
@ -42,6 +42,11 @@ implementation
|
|||||||
|
|
||||||
uses
|
uses
|
||||||
Compiler,Comphook,
|
Compiler,Comphook,
|
||||||
|
{$ifdef FPC}
|
||||||
|
{$ifndef COMPILER_1_0}
|
||||||
|
sysutils,
|
||||||
|
{$endif COMPILER_1_0}
|
||||||
|
{$endif FPC}
|
||||||
{$ifdef COMPILER_1_0}
|
{$ifdef COMPILER_1_0}
|
||||||
tpexcept,
|
tpexcept,
|
||||||
{$endif COMPILER_1_0}
|
{$endif COMPILER_1_0}
|
||||||
@ -233,6 +238,7 @@ begin
|
|||||||
CompilerMessageWindow^.AddMessage(V_Error,
|
CompilerMessageWindow^.AddMessage(V_Error,
|
||||||
e.message,'',0,0);
|
e.message,'',0,0);
|
||||||
end;
|
end;
|
||||||
|
end;
|
||||||
{$endif COMPILER_1_0}
|
{$endif COMPILER_1_0}
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
@ -288,7 +294,10 @@ end;
|
|||||||
end.
|
end.
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.2 2001-10-03 10:21:43 pierre
|
Revision 1.3 2001-10-03 20:46:34 pierre
|
||||||
|
* except syntax fix for 1.1 version
|
||||||
|
|
||||||
|
Revision 1.2 2001/10/03 10:21:43 pierre
|
||||||
fix for bug 1487
|
fix for bug 1487
|
||||||
|
|
||||||
Revision 1.1 2001/08/04 11:30:23 peter
|
Revision 1.1 2001/08/04 11:30:23 peter
|
||||||
|
Loading…
Reference in New Issue
Block a user