summaryrefslogtreecommitdiff
path: root/basic/source
diff options
context:
space:
mode:
authorThomas Arnhold <thomas@arnhold.org>2011-02-15 00:48:10 +0100
committerThomas Arnhold <thomas@arnhold.org>2011-02-15 13:27:10 +0100
commit984f42952960948080af6845f133b21053fa027c (patch)
tree258875bdc37e839c9c51721e1459b296fd452aaa /basic/source
parentcc47386e393f56a38b3331d415ddf6bb0746bfc4 (diff)
Remove HP9000
Diffstat (limited to 'basic/source')
-rw-r--r--basic/source/classes/disas.cxx16
1 files changed, 0 insertions, 16 deletions
diff --git a/basic/source/classes/disas.cxx b/basic/source/classes/disas.cxx
index 1d8e8ed14fa7..f0d1bf100b76 100644
--- a/basic/source/classes/disas.cxx
+++ b/basic/source/classes/disas.cxx
@@ -598,13 +598,6 @@ void SbiDisas::OffOp( String& rText )
}
// Data type
-#ifdef HP9000 // TODO: remove this!
-static char* SbiDisas_TypeOp_pTypes[13] = {
- "Empty","Null","Integer","Long","Single","Double",
- "Currency","Date","String","Object","Error","Boolean",
- "Variant" };
-#define pTypes SbiDisas_TypeOp_pTypes
-#endif
void SbiDisas::TypeOp( String& rText )
{
// From 1996-01-19: type can contain flag for BYVAL (StepARGTYP)
@@ -615,12 +608,6 @@ void SbiDisas::TypeOp( String& rText )
}
if( nOp1 < 13 )
{
-#ifndef HP9000
- static char pTypes[][13] = {
- "Empty","Null","Integer","Long","Single","Double",
- "Currency","Date","String","Object","Error","Boolean",
- "Variant" };
-#endif
rText.AppendAscii( pTypes[ nOp1 ] );
}
else
@@ -629,9 +616,6 @@ void SbiDisas::TypeOp( String& rText )
rText += (USHORT)nOp1;
}
}
-#ifdef HP9000
-#undef pTypes
-#endif
// TRUE-Label, condition Opcode
void SbiDisas::CaseOp( String& rText )