From 16d128e5e10d541a78654b86409d5a3539f07708 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sat, 15 Aug 2009 23:57:48 +0000 Subject: asymptote 1.83 git-svn-id: svn://tug.org/texlive/trunk@14696 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/utils/asymptote/virtualfieldaccess.cc | 41 ++++++++++++++++++++++ 1 file changed, 41 insertions(+) create mode 100644 Build/source/utils/asymptote/virtualfieldaccess.cc (limited to 'Build/source/utils/asymptote/virtualfieldaccess.cc') diff --git a/Build/source/utils/asymptote/virtualfieldaccess.cc b/Build/source/utils/asymptote/virtualfieldaccess.cc new file mode 100644 index 00000000000..13cb088d2ac --- /dev/null +++ b/Build/source/utils/asymptote/virtualfieldaccess.cc @@ -0,0 +1,41 @@ +/***** + * virtualfieldaccess.cc + * Andy Hammerlindl 2009/07/23 + * + * Implements the access subclass used to read and write virtual fields. + *****/ + +#include "virtualfieldaccess.h" +#include "coder.h" + +namespace trans { + +inline void virtualFieldAccess::encode(action act, position pos, coder &e) +{ + switch(act) { + case CALL: + this->encode(READ, pos, e); + e.encode(inst::popcall); + return; + case READ: + assert(getter); + getter->encode(CALL, pos, e); + return; + case WRITE: + if (setter) + setter->encode(CALL, pos, e); + else { + em.error(pos); + em << "virtual field is read-only"; + } + return; + } +} + +void virtualFieldAccess::encode(action act, position pos, coder &e, frame *) +{ + e.encode(inst::pop); + encode(act, pos, e); +} + +} // namespace trans -- cgit v1.2.3