Math Processor Unit Library

diff --git a/mpu/mpu-context.c b/mpu/mpu-context.c
new file mode 100644
index 0000000..7b0308e
--- /dev/null
+++ b/mpu/mpu-context.c
@@ -0,0 +1,173 @@
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+
+#include <nls.h>
+
+#include <errno.h>
+#include <locale.h>
+
+#include <libmpu.h>
+#include <mpu-context.h>
+#include <mpu-symbols.h>
+
+/* Allocate MPU Context in .tbss segment: */
+__thread struct __mpu_context mctx;
+
+/* Share address of mpu_context: */
+struct __mpu_context *pmctx;
+
+/* Should be called at start of main thread and at start of each posix threads: */
+void __mpu_init( void )
+{
+  pmctx = &mctx;
+
+  mctx._ierrno = 0;
+  mctx._rerrno = 0;
+  mctx._cerrno = 0;
+  mctx._merrno = 0;
+  mctx._ewarns = 0;
+
+  mctx.mflags  = 0;
+
+  pmctx->_cur_brk = (__mpu_void_t *)&((pmctx->_mem)[0]);
+
+#if ENABLE_NLS == 1
+  setlocale( LC_ALL, "" );
+  bind_textdomain_codeset( PACKAGE, "UTF-8" );
+  textdomain( PACKAGE );
+#endif
+}
+
+/************************************************************************
+  User may call the __mpu_free_context() function when needed to
+  clear MPU context and all allocated memory resources.
+
+  We do not use __mpu_weak_alias() because the __mpu_weak_alias() macro
+  is dedicated to create aliases of external symbols:
+ */
+#if defined( HAVE_WEAK_SYMBOLS )
+void __mpu_free_context( void ) __attribute__ ((weak, alias ("__mpu_init")));
+#else
+void __mpu_free_context( void ) __attribute__ ((alias ("__mpu_init")));
+#endif
+
+
+static int
+__mpu_brk( __mpu_void_t *end_d )
+{
+  __mpu_void_t  *ptr = __mem;
+
+  if( (__mpu_UNIT_t *)end_d < (__mpu_UNIT_t *)ptr ||
+      (__mpu_UNIT_t *)end_d > (__mpu_UNIT_t *)ptr + REGISTERS_MEM_SIZE_IN_UNITS )
+  {
+    errno = ENOMEM;
+    return( -1 );
+  }
+
+ /*
+   __cur_brk = (__tx_UNIT_t *)end_d;
+
+   Функция  __mpu_brk()  лишь проверяет границы
+   области памяти, значение __cur_brk выставляется
+   в __mpu_sbrk() .
+  *************************************************/
+
+  return( 0 );
+
+} /* End of __mpu_brk() */
+
+
+__mpu_void_t *
+__mpu_sbrk( int incr )
+{
+  __mpu_void_t  *ptr = __cur_brk;
+  register int   rc;
+
+  if( incr == 0 ) return( ptr );
+
+  rc = __mpu_brk( ptr + incr );
+  if( rc == -1 )
+  {
+    /* errno is set into __mpu_brk() */
+    return( (__mpu_void_t *)0 );
+  }
+
+  __cur_brk = ((__mpu_UNIT_t *)ptr) + (int)incr;
+
+  return( ptr );
+
+} /* End of __mpu_sbrk() */
+
+
+/***************************************************************
+  For external purposes:
+ ***************************************************************/
+__mpu_error_t *__ptr_integer_error_no( void ) { return( &mctx._ierrno ); }
+__mpu_error_t *__ptr_real_error_no   ( void ) { return( &mctx._rerrno ); }
+__mpu_error_t *__ptr_complex_error_no( void ) { return( &mctx._cerrno ); }
+__mpu_error_t *__ptr_math_error_no   ( void ) { return( &mctx._merrno ); }
+__mpu_error_t *__ptr_extra_warnings  ( void ) { return( &mctx._ewarns ); }
+
+
+void __mpu_clear_iflags( void ) { __CLEAR_IFLAGS; }
+void __mpu_clear_rflags( void ) { __CLEAR_RFLAGS; }
+void __mpu_clear_mflags( void ) { __CLEAR_MFLAGS; }
+
+
+void __mpu_sta( void ) { __STA; }
+void __mpu_stc( void ) { __STC; }
+void __mpu_sto( void ) { __STO; }
+void __mpu_sts( void ) { __STS; }
+void __mpu_stp( void ) { __STP; }
+void __mpu_stz( void ) { __STZ; }
+void __mpu_str( void ) { __STR; }
+void __mpu_stv( void ) { __STV; }
+
+void __mpu_cla( void ) { __CLA; }
+void __mpu_clc( void ) { __CLC; }
+void __mpu_clo( void ) { __CLO; }
+void __mpu_cls( void ) { __CLS; }
+void __mpu_clp( void ) { __CLP; }
+void __mpu_clz( void ) { __CLZ; }
+void __mpu_clr( void ) { __CLR; }
+void __mpu_clv( void ) { __CLV; }
+
+void __mpu_cma( void ) { __CMA; }
+void __mpu_cmc( void ) { __CMC; }
+void __mpu_cmo( void ) { __CMO; }
+void __mpu_cms( void ) { __CMS; }
+void __mpu_cmp( void ) { __CMP; }
+void __mpu_cmz( void ) { __CMZ; }
+void __mpu_cmr( void ) { __CMR; }
+void __mpu_cmv( void ) { __CMV; }
+
+
+void __mpu_stdom( void ) { __STDOM; }
+void __mpu_stsng( void ) { __STSNG; }
+void __mpu_stovf( void ) { __STOVF; }
+void __mpu_studf( void ) { __STUDF; }
+void __mpu_sttls( void ) { __STTLS; }
+void __mpu_stpls( void ) { __STPLS; }
+void __mpu_stind( void ) { __STIND; }
+void __mpu_stinx( void ) { __STINX; }
+
+void __mpu_cldom( void ) { __CLDOM; }
+void __mpu_clsng( void ) { __CLSNG; }
+void __mpu_clovf( void ) { __CLOVF; }
+void __mpu_cludf( void ) { __CLUDF; }
+void __mpu_cltls( void ) { __CLTLS; }
+void __mpu_clpls( void ) { __CLPLS; }
+void __mpu_clind( void ) { __CLIND; }
+void __mpu_clinx( void ) { __CLINX; }
+
+void __mpu_cmdom( void ) { __CMDOM; }
+void __mpu_cmsng( void ) { __CMSNG; }
+void __mpu_cmovf( void ) { __CMOVF; }
+void __mpu_cmudf( void ) { __CMUDF; }
+void __mpu_cmtls( void ) { __CMTLS; }
+void __mpu_cmpls( void ) { __CMPLS; }
+void __mpu_cmind( void ) { __CMIND; }
+void __mpu_cminx( void ) { __CMINX; }
+