github.com/wfjm.w11
1
0
Fork 0
mirror of https://github.com/wfjm/w11.git synced 2026-02-13 19:54:59 +00:00
Code Issues Releases Wiki Activity

minor updates:

Browse Source 
- asm.tcl: asmrun: allow 'ps' in initializer list
- Rw11UnitStream: Pos(): return -1 if not attached
This commit is contained in:
Walter F.J. Mueller
2017-02-04 17:12:15 +01:00
parent e11143de37
commit 20b4becd38
2 changed files with 21 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
tools/src/librw11/Rw11UnitStream.cpp
View File

@@ -1,6 +1,6 @@
// $Id: Rw11UnitStream.cpp 515 2013-05-04 17:28:59Z mueller $
// $Id: Rw11UnitStream.cpp 848 2017-02-04 14:55:30Z mueller $
//
// Copyright 2013- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
// Copyright 2013-2017 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
//
// This program is free software; you may redistribute and/or modify it under
// the terms of the GNU General Public License as published by the Free
@@ -13,13 +13,14 @@
//
// Revision History:
// Date Rev Version Comment
// 2017-02-04 848 1.1 Pos(): return -1 if not attached
// 2013-05-04 515 1.0 Initial version
// 2013-05-01 513 0.1 First draft
// ---------------------------------------------------------------------------
/*!
\file
\version $Id: Rw11UnitStream.cpp 515 2013-05-04 17:28:59Z mueller $
\version $Id: Rw11UnitStream.cpp 848 2017-02-04 14:55:30Z mueller $
\brief Implemenation of Rw11UnitStream.
*/
@@ -73,8 +74,7 @@ void Rw11UnitStream::SetPos(int pos)
int Rw11UnitStream::Pos() const
{
if (!Virt())
throw Rexception("Rw11UnitStream::Pos", "no stream attached");
if (!Virt()) return -1; // allow tcl 'get ?' if not attached
RerrMsg emsg;
int irc = Virt()->Tell(emsg);