diff options
| author | Rüdiger Timm <rt@openoffice.org> | 2006-05-05 07:50:31 +0000 |
|---|---|---|
| committer | Rüdiger Timm <rt@openoffice.org> | 2006-05-05 07:50:31 +0000 |
| commit | 9b171751112b2556bd7b001f76b79bdfa272749f (patch) | |
| tree | 2d9e1a58166099e22ff8e84c89d9b41c1b7db8f4 | |
| parent | e8deba22e887a972f60ff05551e93c334ac1e7b6 (diff) | |
INTEGRATION: CWS ab26 (1.21.78); FILE MERGED
2006/04/28 07:01:30 ab 1.21.78.1: #111791# Error as command
| -rw-r--r-- | basic/source/runtime/step0.cxx | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/basic/source/runtime/step0.cxx b/basic/source/runtime/step0.cxx index ada9b036adf6..962d4ffa56b4 100644 --- a/basic/source/runtime/step0.cxx +++ b/basic/source/runtime/step0.cxx @@ -4,9 +4,9 @@ * * $RCSfile: step0.cxx,v $ * - * $Revision: 1.21 $ + * $Revision: 1.22 $ * - * last change: $Author: rt $ $Date: 2005-09-07 21:42:01 $ + * last change: $Author: rt $ $Date: 2006-05-05 08:50:31 $ * * The Contents of this file are made available subject to * the terms of GNU Lesser General Public License Version 2.1. @@ -946,7 +946,8 @@ void SbiRuntime::StepEMPTY() void SbiRuntime::StepERROR() { SbxVariableRef refCode = PopVar(); - ULONG n = refCode->GetLong(); - Error( n ); + USHORT n = refCode->GetUShort(); + SbError nError = StarBASIC::GetSfxFromVBError( n ); + Error( nError ); } |