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

#87844# Map Uno exception to VB error code 1

Browse Source
This commit is contained in:
Andreas Bregas
2001-06-08 12:24:59 +00:00
parent 1f58b50735
commit 14ff558215
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
basic/source/classes/sb.cxx
View File

@@ -2,9 +2,9 @@
* *
* $RCSfile: sb.cxx,v $ * $RCSfile: sb.cxx,v $
* *
* $Revision: 1.3 $ * $Revision: 1.4 $
* *
* last change: $Author: ab $ $Date: 2001-05-23 08:51:30 $ * last change: $Author: ab $ $Date: 2001-06-08 13:24:59 $
* *
* The Contents of this file are made available subject to the terms of * The Contents of this file are made available subject to the terms of
* either of the following licenses * either of the following licenses
@@ -121,6 +121,7 @@ struct SFX_VB_ErrorItem
const SFX_VB_ErrorItem __FAR_DATA SFX_VB_ErrorTab[] = const SFX_VB_ErrorItem __FAR_DATA SFX_VB_ErrorTab[] =
{ {
{ 1, SbERR_BASIC_EXCEPTION }, // #87844 Map exception to error code 1
{ 2, SbERR_SYNTAX }, { 2, SbERR_SYNTAX },
{ 3, SbERR_NO_GOSUB }, { 3, SbERR_NO_GOSUB },
{ 4, SbERR_REDO_FROM_START }, { 4, SbERR_REDO_FROM_START },
@@ -400,6 +401,8 @@ void StarBASIC::Remove( SbxVariable* pVar )
{ {
if( pVar->IsA( TYPE(SbModule) ) ) if( pVar->IsA( TYPE(SbModule) ) )
{ {
// #87540 Can be last reference!
SbxVariableRef xVar = pVar;
pModules->Remove( pVar ); pModules->Remove( pVar );
pVar->SetParent( 0 ); pVar->SetParent( 0 );
EndListening( pVar->GetBroadcaster() ); EndListening( pVar->GetBroadcaster() );