|
@@ -800,12 +800,8 @@ end;
|
|
|
|
|
|
|
|
procedure pd_interrupt;
|
|
procedure pd_interrupt;
|
|
|
begin
|
|
begin
|
|
|
-{$ifndef i386}
|
|
|
|
|
- Message(parser_w_proc_interrupt_ignored);
|
|
|
|
|
-{$else i386}
|
|
|
|
|
if lexlevel<>normal_function_level then
|
|
if lexlevel<>normal_function_level then
|
|
|
Message(parser_e_dont_nest_interrupt);
|
|
Message(parser_e_dont_nest_interrupt);
|
|
|
-{$endif i386}
|
|
|
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
procedure pd_abstract;
|
|
procedure pd_abstract;
|
|
@@ -1936,7 +1932,10 @@ const
|
|
|
end.
|
|
end.
|
|
|
{
|
|
{
|
|
|
$Log$
|
|
$Log$
|
|
|
- Revision 1.50 2002-04-19 15:46:02 peter
|
|
|
|
|
|
|
+ Revision 1.51 2002-04-20 15:27:05 carl
|
|
|
|
|
+ - remove ifdef i386 define
|
|
|
|
|
+
|
|
|
|
|
+ Revision 1.50 2002/04/19 15:46:02 peter
|
|
|
* mangledname rewrite, tprocdef.mangledname is now created dynamicly
|
|
* mangledname rewrite, tprocdef.mangledname is now created dynamicly
|
|
|
in most cases and not written to the ppu
|
|
in most cases and not written to the ppu
|
|
|
* add mangeledname_prefix() routine to generate the prefix of
|
|
* add mangeledname_prefix() routine to generate the prefix of
|
carl