diff options
| author | Andreas Bregas <ab@openoffice.org> | 2000-10-18 08:00:15 +0000 |
|---|---|---|
| committer | Andreas Bregas <ab@openoffice.org> | 2000-10-18 08:00:15 +0000 |
| commit | c8aea10ae198dbacbf5c20f9f13c1e37786535c1 (patch) | |
| tree | e35c88821593b6e30bb05f21ca80b12ee02aa19a /basic/source | |
| parent | 1eef19fa1bd4998ce80e1559976d12804e1b1ad7 (diff) | |
#69094# New Step REDIMP_ERASE
Diffstat (limited to 'basic/source')
| -rw-r--r-- | basic/source/inc/runtime.hxx | 7 | ||||
| -rw-r--r-- | basic/source/runtime/runtime.cxx | 7 |
2 files changed, 8 insertions, 6 deletions
diff --git a/basic/source/inc/runtime.hxx b/basic/source/inc/runtime.hxx index 44351c7f5e86..f76c3d19c06a 100644 --- a/basic/source/inc/runtime.hxx +++ b/basic/source/inc/runtime.hxx @@ -2,9 +2,9 @@ * * $RCSfile: runtime.hxx,v $ * - * $Revision: 1.3 $ + * $Revision: 1.4 $ * - * last change: $Author: ab $ $Date: 2000-10-12 14:44:47 $ + * last change: $Author: ab $ $Date: 2000-10-18 08:58:43 $ * * The Contents of this file are made available subject to the terms of * either of the following licenses @@ -311,6 +311,7 @@ class SbiRuntime const SbiImage* pImg; // Code-Image SbxArrayRef refExprStk; // expression stack SbxArrayRef refCaseStk; // CASE expression stack + SbxArrayRef refRedimpArray; // Array saved to use for REDIM PRESERVE SbxVariableRef xDummyVar; // Ersatz fuer nicht gefundene Variablen SbiArgvStack* pArgvStk; // ARGV-Stack SbiGosubStack* pGosubStk; // GOSUB stack @@ -414,7 +415,7 @@ class SbiRuntime void StepNOERROR(), StepCHANNEL(), StepCHANNEL0(), StepPRINT(); void StepPRINTF(), StepWRITE(), StepRENAME(), StepPROMPT(); void StepRESTART(), StepEMPTY(), StepLEAVE(); - void StepLSET(), StepRSET(); + void StepLSET(), StepRSET(), StepREDIMP_ERASE(); // Alle Opcodes mit einem Operanden void StepLOADNC( USHORT ), StepLOADSC( USHORT ), StepLOADI( USHORT ); void StepARGN( USHORT ), StepBASED( USHORT ), StepPAD( USHORT ); diff --git a/basic/source/runtime/runtime.cxx b/basic/source/runtime/runtime.cxx index 587c59ffeb9e..9972be1c0326 100644 --- a/basic/source/runtime/runtime.cxx +++ b/basic/source/runtime/runtime.cxx @@ -2,9 +2,9 @@ * * $RCSfile: runtime.cxx,v $ * - * $Revision: 1.1.1.1 $ + * $Revision: 1.2 $ * - * last change: $Author: hr $ $Date: 2000-09-18 16:12:11 $ + * last change: $Author: ab $ $Date: 2000-10-18 09:00:15 $ * * The Contents of this file are made available subject to the terms of * either of the following licenses @@ -159,7 +159,8 @@ SbiRuntime::pStep0 SbiRuntime::aStep0[] = { // Alle Opcodes ohne Operanden MEMBER(SbiRuntime::StepEMPTY), // Leeren Ausdruck auf Stack MEMBER(SbiRuntime::StepERROR), // TOS = Fehlercode MEMBER(SbiRuntime::StepLSET), // Speichern Objekt TOS ==> TOS-1 - MEMBER(SbiRuntime::StepRSET) // Speichern Objekt TOS ==> TOS-1 + MEMBER(SbiRuntime::StepRSET), // Speichern Objekt TOS ==> TOS-1 + MEMBER(SbiRuntime::StepREDIMP_ERASE)// Copy array object for REDIMP }; SbiRuntime::pStep1 SbiRuntime::aStep1[] = { // Alle Opcodes mit einem Operanden |