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

Use FPC_HAS_SYSTEMS_INTERRUPT_TABLE conditional

Browse Source 
undefined for now as long as
  systems_interrupt_table set
  defined in systems unit is empty.
  This removes several warnings from compiler compilation.

git-svn-id: trunk@17871 -
This commit is contained in:
pierre 2011-06-29 15:03:55 +00:00
parent 75dde8ab46
commit 4d50a95320
5 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/fpcdefs.inc
View File

@ -28,6 +28,13 @@
{$define USEEXCEPT} {$define USEEXCEPT}
{ If anyone wants to use interrupt for
a specific target, add a
$define FPC_HAS_SYSTEMS_INTERRUPT_TABLE
to fpcdefs.inc to reactivate
the corresponding code }
{$undef FPC_HAS_SYSTEMS_INTERRUPT_TABLE}
{ This fake CPU is used to allow incorporation of globtype unit { This fake CPU is used to allow incorporation of globtype unit
into utils/ppudump without any CPU specific code PM } into utils/ppudump without any CPU specific code PM }
{$ifdef generic_cpu} {$ifdef generic_cpu}

2
compiler/pdecsub.pas
View File

@ -1626,6 +1626,7 @@ begin
if pd.parast.symtablelevel>normal_function_level then if pd.parast.symtablelevel>normal_function_level then
Message(parser_e_dont_nest_interrupt); Message(parser_e_dont_nest_interrupt);
{$ifdef FPC_HAS_SYSTEMS_INTERRUPT_TABLE}
if target_info.system in systems_interrupt_table then if target_info.system in systems_interrupt_table then
begin begin
if token<>_SEMICOLON then if token<>_SEMICOLON then
@ -1635,6 +1636,7 @@ begin
Tprocdef(pd).interruptvector:=v.uvalue; Tprocdef(pd).interruptvector:=v.uvalue;
end; end;
end; end;
{$endif FPC_HAS_SYSTEMS_INTERRUPT_TABLE}
end; end;
procedure pd_abstract(pd:tabstractprocdef); procedure pd_abstract(pd:tabstractprocdef);

2
compiler/pmodules.pas
View File

@ -2347,8 +2347,10 @@ implementation
InsertWideInitsTablesTable; InsertWideInitsTablesTable;
InsertMemorySizes; InsertMemorySizes;
{$ifdef FPC_HAS_SYSTEMS_INTERRUPT_TABLE}
if target_info.system in systems_interrupt_table then if target_info.system in systems_interrupt_table then
InsertInterruptTable; InsertInterruptTable;
{$endif FPC_HAS_SYSTEMS_INTERRUPT_TABLE}
{ Insert symbol to resource info } { Insert symbol to resource info }
InsertResourceInfo(resources_used); InsertResourceInfo(resources_used);

4
compiler/symdef.pas
View File

@ -3544,8 +3544,10 @@ implementation
else else
import_name:=nil; import_name:=nil;
import_nr:=ppufile.getword; import_nr:=ppufile.getword;
{$ifdef FPC_HAS_SYSTEMS_INTERRUPT_TABLE}
if target_info.system in systems_interrupt_table then if target_info.system in systems_interrupt_table then
interruptvector:=ppufile.getlongint; interruptvector:=ppufile.getlongint;
{$endif FPC_HAS_SYSTEMS_INTERRUPT_TABLE}
if (po_msgint in procoptions) then if (po_msgint in procoptions) then
messageinf.i:=ppufile.getlongint; messageinf.i:=ppufile.getlongint;
if (po_msgstr in procoptions) then if (po_msgstr in procoptions) then
@ -3682,8 +3684,10 @@ implementation
if po_has_importname in procoptions then if po_has_importname in procoptions then
ppufile.putstring(import_name^); ppufile.putstring(import_name^);
ppufile.putword(import_nr); ppufile.putword(import_nr);
{$ifdef FPC_HAS_SYSTEMS_INTERRUPT_TABLE}
if target_info.system in systems_interrupt_table then if target_info.system in systems_interrupt_table then
ppufile.putlongint(interruptvector); ppufile.putlongint(interruptvector);
{$endif FPC_HAS_SYSTEMS_INTERRUPT_TABLE}
if (po_msgint in procoptions) then if (po_msgint in procoptions) then
ppufile.putlongint(messageinf.i); ppufile.putlongint(messageinf.i);
if (po_msgstr in procoptions) then if (po_msgstr in procoptions) then

7
compiler/systems.pas
View File

@ -271,7 +271,14 @@ interface
systems_internal_sysinit = [system_i386_linux,system_i386_win32]; systems_internal_sysinit = [system_i386_linux,system_i386_win32];
{$ifdef FPC_HAS_SYSTEMS_INTERRUPT_TABLE}
{ If anyone wants to use interrupt for
a specific target, add a
$define FPC_HAS_SYSTEMS_INTERRUPT_TABLE
to fpcdefs.inc to reactivate
the corresponding code }
systems_interrupt_table = [{system_arm_embedded}]; systems_interrupt_table = [{system_arm_embedded}];
{$endif FPC_HAS_SYSTEMS_INTERRUPT_TABLE}
{ all systems for which istack must be at a 16 byte boundary { all systems for which istack must be at a 16 byte boundary
when calling a function } when calling a function }