mir/libreoffice
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

#69094# New Step REDIMP_ERASE

Browse Source
This commit is contained in:
Andreas Bregas
2000-10-18 08:00:15 +00:00
parent 1eef19fa1b
commit c8aea10ae1
2 changed files with 8 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
basic/source/inc/runtime.hxx
View File

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

7
basic/source/runtime/runtime.cxx
View File

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