From c6101f91d071883b48b1b4b51e5eba0f36d9a78d Mon Sep 17 00:00:00 2001 From: Denis Bitouzé Date: Thu, 25 Feb 2021 18:23:07 +0000 Subject: French translation for tlmgr updated git-svn-id: svn://tug.org/texlive/trunk@57912 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/utils/asymptote/frame.h | 98 ------------------------------------ 1 file changed, 98 deletions(-) delete mode 100644 Build/source/utils/asymptote/frame.h (limited to 'Build/source/utils/asymptote/frame.h') diff --git a/Build/source/utils/asymptote/frame.h b/Build/source/utils/asymptote/frame.h deleted file mode 100644 index 9afa4c51ec4..00000000000 --- a/Build/source/utils/asymptote/frame.h +++ /dev/null @@ -1,98 +0,0 @@ -/***** - * frame.h - * Andy Hammerlindl 2002/07/22 - * - * Describes the frame levels for the functions of the language. - * Also creates accesses for the variable for automated loading - * and saving of variables. - *****/ - -#ifndef FRAME_H -#define FRAME_H - -#include - -#include "access.h" - -namespace trans { - -class frame : public gc { - frame *parent; - size_t numFormals; - Int numLocals; - - // With the SIMPLE_FRAME flag, the size of frames cannot be changed at - // runtime. This is an issue for runnable-at-a-time mode, where global - // variables can be continually added. To handle this, the frame for - // global variables is an "indirect" frame. It holds one variable, which is - // a link to another frame. When the subframe is too small, a larger - // runtime array is allocated, and the link is changed. - enum {DIRECT_FRAME, INDIRECT_FRAME} style; - -#ifdef DEBUG_FRAME - string name; -#endif - - frame(string name) - : parent(new frame("", 0, 0)), - numFormals(0), numLocals(1), style(INDIRECT_FRAME) -#ifdef DEBUG_FRAME - , name(name) -#endif - {} - -public: - frame(string name, frame *parent, size_t numFormals) - : parent(parent), numFormals(numFormals), numLocals(0), - style(DIRECT_FRAME) -#ifdef DEBUG_FRAME - , name(name) -#endif - {} - - static frame *indirect_frame(string name) { - return new frame(name); - } - - frame *getParent() { - return parent; - } - - // Which variable stores the link to the parent frame. - Int parentIndex() { - return numFormals; - } - - Int size() { - if (style == DIRECT_FRAME) - return (Int) (1+numFormals+numLocals); - else - return parent->size(); - } - - access *accessFormal(size_t index) { - assert(index < numFormals); - assert(style == DIRECT_FRAME); - return new localAccess((Int) (index), this); - } - - access *allocLocal() { - if (style == DIRECT_FRAME) - return new localAccess((Int) (1 + numFormals + numLocals++), this); - else - return parent->allocLocal(); - } -}; - -inline void print(ostream& out, frame *f) { - out << f; - if (f != 0) { - out << " -> "; - print(out, f->getParent()); - } -} - -} // namespace trans - -#endif - -- cgit v1.2.3