mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-08 01:47:19 +01:00
* jmp table code generation for case statement on sparc
This commit is contained in:
parent
2ea12e0083
commit
3a06b4f0fd
@ -843,7 +843,7 @@ implementation
|
||||
{ optimize for size ? }
|
||||
if cs_littlesize in aktglobalswitches then
|
||||
begin
|
||||
if (has_jumptable) and
|
||||
if has_jumptable and
|
||||
not((labels<=2) or
|
||||
((max_label-min_label)<0) or
|
||||
((max_label-min_label)>3*labels)) then
|
||||
@ -944,7 +944,10 @@ begin
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.68 2004-09-25 14:23:54 peter
|
||||
Revision 1.69 2004-10-30 22:01:11 florian
|
||||
* jmp table code generation for case statement on sparc
|
||||
|
||||
Revision 1.68 2004/09/25 14:23:54 peter
|
||||
* ungetregister is now only used for cpuregisters, renamed to
|
||||
ungetcpuregister
|
||||
* renamed (get|unget)explicitregister(s) to ..cpuregister
|
||||
|
||||
@ -20,22 +20,29 @@
|
||||
|
||||
*****************************************************************************}
|
||||
unit CpuNode;
|
||||
{$INCLUDE fpcdefs.inc}
|
||||
|
||||
{$I fpcdefs.inc}
|
||||
|
||||
interface
|
||||
{This unit is used to define the specific CPU implementations. All needed
|
||||
{ This unit is used to define the specific CPU implementations. All needed
|
||||
actions are included in the INITALIZATION part of these units. This explains
|
||||
the behaviour of such a unit having just a USES clause!}
|
||||
the behaviour of such a unit having just a USES clause! }
|
||||
|
||||
implementation
|
||||
uses
|
||||
ncgbas,ncgflw,ncgcnv,ncgld,ncgmem,ncgcon,
|
||||
ncpuadd,ncpucall,ncpumat,
|
||||
ncgset,ncpuinln,ncpucnv,ncpuobj,
|
||||
{ this not really a node }
|
||||
rgcpu;
|
||||
|
||||
uses
|
||||
ncgbas,ncgflw,ncgcnv,ncgld,ncgmem,ncgcon,ncgset,
|
||||
ncpuadd,ncpucall,ncpumat,ncpuinln,ncpucnv,ncpuobj,ncpuset,
|
||||
{ this not really a node }
|
||||
rgcpu;
|
||||
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.10 2004-06-20 08:55:32 florian
|
||||
Revision 1.11 2004-10-30 22:01:11 florian
|
||||
* jmp table code generation for case statement on sparc
|
||||
|
||||
Revision 1.10 2004/06/20 08:55:32 florian
|
||||
* logs truncated
|
||||
|
||||
Revision 1.9 2004/06/16 20:07:10 florian
|
||||
|
||||
@ -124,10 +124,14 @@ unit ncpuset;
|
||||
|
||||
|
||||
|
||||
|
||||
begin
|
||||
ccasenode:=tcpucasenode;
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.1 2004-10-30 17:50:53 florian
|
||||
Revision 1.2 2004-10-30 22:01:11 florian
|
||||
* jmp table code generation for case statement on sparc
|
||||
|
||||
Revision 1.1 2004/10/30 17:50:53 florian
|
||||
* initial revision, not yet enabled
|
||||
}
|
||||
}
|
||||
|
||||
Loading…
Reference in New Issue
Block a user