paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 21:11:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

- remove ifdef i386 define

Browse Source
This commit is contained in:
carl 2002-04-20 15:27:05 +00:00
parent 70ff711f73
commit 1825ca25de
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/pdecsub.pas
View File

@ -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