.ad 8
.bm 8
.fm 4
.bt $Copyright (c) 1995-2004 SAP AG$$Page %$
.tm 12
.hm 6
.hs 3
.tt 1 $NME$Project Distributed Database System$vgg10c$
.tt 2 $$$
.tt 3 $$Kernel_move_and_fill$2000-01-06$
***********************************************************
.nf


    ========== licence begin  GPL
    Copyright (c) 1995-2004 SAP AG

    This program is free software; you can redistribute it and/or
    modify it under the terms of the GNU General Public License
    as published by the Free Software Foundation; either version 2
    of the License, or (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with this program; if not, write to the Free Software
    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
    ========== licence end

.fo
.nf
.sp
Module  :       kernel_move_and_fill
=========
.sp
Purpose :
.CM *-END-* purpose -------------------------------------
.sp
.cp 3
Define  :
 
.CM *-END-* define --------------------------------------
.sp;.cp 3
Use     :
 
.CM *-END-* use -----------------------------------------
.sp;.cp 3
Synonym :
 
.CM *-END-* synonym -------------------------------------
.sp;.cp 3
Author  :
.sp
.cp 3
Created :
.sp
.cp 3
Version : 1991-11-27
.sp
.cp 3
Release :      Date : 2000-01-06
.sp
***********************************************************
.sp
.cp 10
.fo
.oc _/1
Specification:
 
.CM *-END-* specification -------------------------------
.sp 2
***********************************************************
.sp
.cp 10
.fo
.oc _/1
Description:
 
.CM *-END-* description ---------------------------------
.sp 2
***********************************************************
.sp
.cp 10
.nf
.oc _/1
Structure:
 
.CM *-END-* structure -----------------------------------
.sp 2
**********************************************************
.sp
.cp 10
.nf
.oc _/1
.CM -lll-
Code    :

&if defined audit || defined diagnose
extern void sqlabort();
&else
void sql60c_varg_message   ( tsp3_priority        msg_prio ,
                             tsp3_msg_type        msg_type ,
                             tsp00_Int4             msg_no ,
                             char                *msg_label ,
                             char                *msg_format ,
                             ...                           );
&endif

void vabort (boolean write_core);

extern void g10fil();
extern void g10fil1();
extern void g10fil2();
extern void g10fil3();
extern void g10fil4();
extern void g10fil5();
extern void g10mv();
extern void g10mvc();
extern void g10mv1();
extern void g10mv2();
extern void g10mv3();
extern void g10mv4();
extern void g10mv5();
extern void g10mv6();
extern void g10mv7();
extern void g10mv8();
extern void g10mv9();
extern void g10mv10();
extern void g10mv11();
extern void g10mv12();
extern void g10mv13();
extern void g10mv14();
extern void g10mv15();
extern void g10mv16();
extern void g10mv17();
extern void g10mv18();
extern void g10mv19();
extern void g10mv20();
extern void g10mv21();
extern void g10mv22();
extern void g10mv23();
extern void g10mv24();
extern void g10mv25();
extern void g10mv26();
extern void g10mv27();
extern void g10mv28();
extern void g10mv29();
extern void g10MvAux();
extern void g10mvb();
extern void g10mvr();
extern void g10mv_err_handling (); 
extern void g10fil_err_handling (); 
static void gg10mv_err_handling (); 
static void gg10fil_err_handling ();

typedef  tsp00_Int2  tgg_basis_error ;
#define      e_ok             0
#define      e_move_error -9111


/*---------------------------------------------------------------*/
extern void g10fil (mod_id, mod_intern_num, size, m, pos, len, 
                   fillchar, e)
/*---------------------------------------------------------------*/

           tsp00_C6             mod_id;
           tsp00_Int4           mod_intern_num;
           tsp00_Int4           size;
           unsigned char     *m;
           register tsp00_Int4  pos;
           register tsp00_Int4  len;
           unsigned char      fillchar;
           tgg_basis_error   *e;
	{
        if (*e != e_move_error)
           {
	      if (size < pos + len - 1 || pos <= 0 || len < 0) /* LINE@ 255 */
	        {
                gg10fil_err_handling (mod_id, mod_intern_num, size, pos,
                                      len, e);
	        }
	      else 
                memset ( m + pos - 1, (unsigned char)fillchar, len );
	   }
	}


/*---------------------------------------------------------------*/
extern void g10fil1 (mod_id, mod_intern_num, size, m, pos, len, 
                    fillchar, e)
/*---------------------------------------------------------------*/

           tsp00_C6             mod_id;
           tsp00_Int4           mod_intern_num;
           tsp00_Int4           size;
           unsigned char     *m;
           register tsp00_Int4  pos;
           register tsp00_Int4  len;
           unsigned char      fillchar;
           tgg_basis_error   *e;
	{
        if (*e != e_move_error)
           {
	      if (size < pos + len - 1 || pos <= 0 || len < 0) /* LINE@ 255 */
	        {
                gg10fil_err_handling (mod_id, mod_intern_num, size, pos,
                                      len, e);
	        }
	      else 
                memset ( m + pos - 1, (unsigned char)fillchar, len );
	   }
	}


/*---------------------------------------------------------------*/
extern void g10fil2 (mod_id, mod_intern_num, size, m, pos, len, 
                    fillchar, e)
/*---------------------------------------------------------------*/

           tsp00_C6             mod_id;
           tsp00_Int4           mod_intern_num;
           tsp00_Int4           size;
           unsigned char     *m;
           register tsp00_Int4  pos;
           register tsp00_Int4  len;
           unsigned char      fillchar;
           tgg_basis_error   *e;
	{
        if (*e != e_move_error)
           {
	      if (size < pos + len - 1 || pos <= 0 || len < 0) /* LINE@ 255 */
	        {
                gg10fil_err_handling (mod_id, mod_intern_num, size, pos,
                                     len, e);
	        }
	      else 
                memset ( m + pos - 1, (unsigned char)fillchar, len );
	   }
	}


/*---------------------------------------------------------------*/
extern void g10fil3 (mod_id, mod_intern_num, size, m, pos, len, 
                    fillchar, e)
/*---------------------------------------------------------------*/

           tsp00_C6             mod_id;
           tsp00_Int4           mod_intern_num;
           tsp00_Int4           size;
           unsigned char     *m;
           register tsp00_Int4  pos;
           register tsp00_Int4  len;
           unsigned char      fillchar;
           tgg_basis_error   *e;
	{
        if (*e != e_move_error)
           {
	      if (size < pos + len - 1 || pos <= 0 || len < 0) /* LINE@ 255 */
	        {
                gg10fil_err_handling (mod_id, mod_intern_num, size, pos,
                                      len, e);
	        }
	      else 
                memset ( m + pos - 1, (unsigned char)fillchar, len );
	   }
	}


/*---------------------------------------------------------------*/
extern void g10fil4 (mod_id, mod_intern_num, size, m, pos, len, 
                    fillchar, e)
/*---------------------------------------------------------------*/

           tsp00_C6             mod_id;
           tsp00_Int4           mod_intern_num;
           tsp00_Int4           size;
           unsigned char     *m;
           register tsp00_Int4  pos;
           register tsp00_Int4  len;
           unsigned char      fillchar;
           tgg_basis_error   *e;
	{
        if (*e != e_move_error)
           {
	      if (size < pos + len - 1 || pos <= 0 || len < 0) /* LINE@ 255 */
	        {
                gg10fil_err_handling (mod_id, mod_intern_num, size, pos,
                                      len, e);
	        }
	      else 
                memset ( m + pos - 1, (unsigned char)fillchar, len );
	   }
	}


/*---------------------------------------------------------------*/
extern void g10fil5 (mod_id, mod_intern_num, size, m, pos, len, 
                    fillchar, e)
/*---------------------------------------------------------------*/

           tsp00_C6             mod_id;
           tsp00_Int4           mod_intern_num;
           tsp00_Int4           size;
           unsigned char     *m;
           register tsp00_Int4  pos;
           register tsp00_Int4  len;
           unsigned char      fillchar;
           tgg_basis_error   *e;
	{
        if (*e != e_move_error)
           {
	      if (size < pos + len - 1 || pos <= 0 || len < 0) /* LINE@ 255 */
	        {
                gg10fil_err_handling (mod_id, mod_intern_num, size, pos,
                                      len, e);
	        }
	      else 
                memset ( m + pos - 1, (unsigned char)fillchar, len );
	   }
	}



/*---------------------------------------------------------------*/
extern void g10filuni (mod_id, mod_intern_num, size, m, pos, len, 
                    fillchar, e)
/*---------------------------------------------------------------*/

           tsp00_C6             mod_id;
           tsp00_Int4           mod_intern_num;
           tsp00_Int4           size;
           unsigned char     *m;
           register tsp00_Int4  pos;
           register tsp00_Int4  len;
           char              *fillchar;
           tgg_basis_error   *e;
	{
        tsp00_Int4 i;

        if (*e != e_move_error)
           {
	      if (size < pos + len - 1 || pos <= 0 || len < 0) /* LINE@ 255 */
	        {
                gg10fil_err_handling (mod_id, mod_intern_num, size, pos,
                                      len, e);
	        }
	      else
	        { 
                memset ( m + pos - 1, (unsigned char)fillchar [0], len);
                for (i=0; i < len; i = i+2)
                   m [pos+i] = (unsigned char) fillchar [1];
	        }
	   }
	}



/*---------------------------------------------------------------*/
extern void g10filuni1 (mod_id, mod_intern_num, size, m, pos, len, 
                    fillchar, e)
/*---------------------------------------------------------------*/

           tsp00_C6             mod_id;
           tsp00_Int4           mod_intern_num;
           tsp00_Int4           size;
           unsigned char     *m;
           register tsp00_Int4  pos;
           register tsp00_Int4  len;
           char              *fillchar;
           tgg_basis_error   *e;
	{
        tsp00_Int4 i;

        if (*e != e_move_error)
           {
	      if (size < pos + len - 1 || pos <= 0 || len < 0) /* LINE@ 255 */
	        {
                gg10fil_err_handling (mod_id, mod_intern_num, size, pos,
                                      len, e);
	        }
	      else
	        { 
                memset ( m + pos - 1, (unsigned char)fillchar [0], len);
                for (i=0; i < len; i = i+2)
                   m [pos+i] = (unsigned char) fillchar [1];
	        }
	   }
	}


/*---------------------------------------------------------------*/
extern void g10filuni2 (mod_id, mod_intern_num, size, m, pos, len, 
                    fillchar, e)
/*---------------------------------------------------------------*/

           tsp00_C6             mod_id;
           tsp00_Int4           mod_intern_num;
           tsp00_Int4           size;
           unsigned char     *m;
           register tsp00_Int4  pos;
           register tsp00_Int4  len;
           char              *fillchar;
           tgg_basis_error   *e;
	{
        tsp00_Int4 i;

        if (*e != e_move_error)
           {
	      if (size < pos + len - 1 || pos <= 0 || len < 0) /* LINE@ 255 */
	        {
                gg10fil_err_handling (mod_id, mod_intern_num, size, pos,
                                      len, e);
	        }
	      else
	        { 
                memset ( m + pos - 1, (unsigned char)fillchar [0], len);
                for (i=0; i < len; i = i+2)
                   m [pos+i] = (unsigned char) fillchar [1];
	        }
	   }
	}


/*---------------------------------------------------------------*/
extern void g10filuni3 (mod_id, mod_intern_num, size, m, pos, len, 
                    fillchar, e)
/*---------------------------------------------------------------*/

           tsp00_C6             mod_id;
           tsp00_Int4           mod_intern_num;
           tsp00_Int4           size;
           unsigned char     *m;
           register tsp00_Int4  pos;
           register tsp00_Int4  len;
           char              *fillchar;
           tgg_basis_error   *e;
	{
        tsp00_Int4 i;

        if (*e != e_move_error)
           {
	      if (size < pos + len - 1 || pos <= 0 || len < 0) /* LINE@ 255 */
	        {
                gg10fil_err_handling (mod_id, mod_intern_num, size, pos,
                                      len, e);
	        }
	      else
	        { 
                memset ( m + pos - 1, (unsigned char)fillchar [0], len);
                for (i=0; i < len; i = i+2)
                   m [pos+i] = (unsigned char) fillchar [1];
	        }
	   }
	}


/*---------------------------------------------------------------*/
extern void g10mv (mod_id, mod_intern_num, size1, size2, val1, p1, 
                  val2, p2, cnt, e)
/*---------------------------------------------------------------*/

           tsp00_C6           mod_id;
           tsp00_Int4         mod_intern_num;
           tsp00_Int4         size1;
           tsp00_Int4         size2;
           unsigned char   *val1;
           tsp00_Int4         p1;
           unsigned char   *val2;
           tsp00_Int4         p2;
           tsp00_Int4         cnt;
           tgg_basis_error *e;
	{
        if (*e != e_move_error)
           {
	      if (size1 < p1 + cnt - 1 || size2 < p2 + cnt - 1 || cnt < 0 || p1 <= 0 || p2 <= 0) /* LINE@ 481 */
		{
                gg10mv_err_handling (mod_id, mod_intern_num, size1, size2, 
                      p1, p2, cnt, e);
		}
	      else 
#ifdef HP_IA64
            memmove ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#else
            memcpy ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#endif
	   }
	}


/*---------------------------------------------------------------*/
extern void g10mv1 (mod_id, mod_intern_num, size1, size2, val1, p1, 
                   val2, p2, cnt, e)
/*---------------------------------------------------------------*/

           tsp00_C6           mod_id;
           tsp00_Int4         mod_intern_num;
           tsp00_Int4         size1;
           tsp00_Int4         size2;
           unsigned char   *val1;
           tsp00_Int4         p1;
           unsigned char   *val2;
           tsp00_Int4         p2;
           tsp00_Int4         cnt;
           tgg_basis_error *e;
	{
        if (*e != e_move_error)
           {
	      if (size1 < p1 + cnt - 1 || size2 < p2 + cnt - 1 || cnt < 0 || p1 <= 0 || p2 <= 0) /* LINE@ 481 */
		{
                gg10mv_err_handling (mod_id, mod_intern_num, size1, size2, 
                      p1, p2, cnt, e);
		}
	      else 
#ifdef HP_IA64
            memmove ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#else
            memcpy ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#endif
	   }
	}


/*---------------------------------------------------------------*/
extern void g10mv2 (mod_id, mod_intern_num, size1, size2, val1, p1, val2, p2, cnt, e)
/*---------------------------------------------------------------*/

           tsp00_C6           mod_id;
           tsp00_Int4         mod_intern_num;
           tsp00_Int4         size1;
           tsp00_Int4         size2;
           unsigned char   *val1;
           tsp00_Int4         p1;
           unsigned char   *val2;
           tsp00_Int4         p2;
           tsp00_Int4         cnt;
           tgg_basis_error *e;
	{
        if (*e != e_move_error)
           {
	      if (size1 < p1 + cnt - 1 || size2 < p2 + cnt - 1 || cnt < 0 || p1 <= 0 || p2 <= 0) /* LINE@ 481 */
		{
                gg10mv_err_handling (mod_id, mod_intern_num, size1, size2, 
                      p1, p2, cnt, e);
		}
	      else 
#ifdef HP_IA64
            memmove ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#else
            memcpy ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#endif
	   }
	}


/*---------------------------------------------------------------*/
extern void g10mv3 (mod_id, mod_intern_num, size1, size2, val1, p1, 
                   val2, p2, cnt, e)
/*---------------------------------------------------------------*/

           tsp00_C6           mod_id;
           tsp00_Int4         mod_intern_num;
           tsp00_Int4         size1;
           tsp00_Int4         size2;
           unsigned char   *val1;
           tsp00_Int4         p1;
           unsigned char   *val2;
           tsp00_Int4         p2;
           tsp00_Int4         cnt;
           tgg_basis_error *e;
	{
        if (*e != e_move_error)
           {
	      if (size1 < p1 + cnt - 1 || size2 < p2 + cnt - 1 || cnt < 0 || p1 <= 0 || p2 <= 0) /* LINE@ 481 */
		{
                gg10mv_err_handling (mod_id, mod_intern_num, size1, size2, 
                      p1, p2, cnt, e);
		}
	      else 
#ifdef HP_IA64
            memmove ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#else
            memcpy ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#endif
	   }
	}


/*---------------------------------------------------------------*/
extern void g10mv4 (mod_id, mod_intern_num, size1, size2, val1, p1, 
                   val2, p2, cnt, e)
/*---------------------------------------------------------------*/

           tsp00_C6           mod_id;
           tsp00_Int4         mod_intern_num;
           tsp00_Int4         size1;
           tsp00_Int4         size2;
           unsigned char   *val1;
           tsp00_Int4         p1;
           unsigned char   *val2;
           tsp00_Int4         p2;
           tsp00_Int4         cnt;
           tgg_basis_error *e;
	{
        if (*e != e_move_error)
           {
	      if (size1 < p1 + cnt - 1 || size2 < p2 + cnt - 1 || cnt < 0 || p1 <= 0 || p2 <= 0) /* LINE@ 481 */
		{
                gg10mv_err_handling (mod_id, mod_intern_num, size1, size2, 
                      p1, p2, cnt, e);
		}
	      else 
#ifdef HP_IA64
            memmove ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#else
            memcpy ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#endif
	   }
	}


/*---------------------------------------------------------------*/
extern void g10mv5 (mod_id, mod_intern_num, size1, size2, val1, p1, 
                   val2, p2, cnt, e)
/*---------------------------------------------------------------*/

           tsp00_C6           mod_id;
           tsp00_Int4         mod_intern_num;
           tsp00_Int4         size1;
           tsp00_Int4         size2;
           unsigned char   *val1;
           tsp00_Int4         p1;
           unsigned char   *val2;
           tsp00_Int4         p2;
           tsp00_Int4         cnt;
           tgg_basis_error *e;
	{
        if (*e != e_move_error)
           {
	      if (size1 < p1 + cnt - 1 || size2 < p2 + cnt - 1 || cnt < 0 || p1 <= 0 || p2 <= 0) /* LINE@ 481 */
		{
                gg10mv_err_handling (mod_id, mod_intern_num, size1, size2, 
                      p1, p2, cnt, e);
		}
	      else 
#ifdef HP_IA64
            memmove ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#else
            memcpy ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#endif
	   }
	}


/*---------------------------------------------------------------*/
extern void g10mv6 (mod_id, mod_intern_num, size1, size2, val1, p1, 
                   val2, p2, cnt, e)
/*---------------------------------------------------------------*/

           tsp00_C6           mod_id;
           tsp00_Int4         mod_intern_num;
           tsp00_Int4         size1;
           tsp00_Int4         size2;
           unsigned char   *val1;
           tsp00_Int4         p1;
           unsigned char   *val2;
           tsp00_Int4         p2;
           tsp00_Int4         cnt;
           tgg_basis_error *e;
	{
        if (*e != e_move_error)
           {
	      if (size1 < p1 + cnt - 1 || size2 < p2 + cnt - 1 || cnt < 0 || p1 <= 0 || p2 <= 0) /* LINE@ 481 */
		{
                gg10mv_err_handling (mod_id, mod_intern_num, size1, size2, 
                      p1, p2, cnt, e);
		}
	      else 
#ifdef HP_IA64
            memmove ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#else
            memcpy ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#endif
	   }
	}


/*---------------------------------------------------------------*/
extern void g10mv7 (mod_id, mod_intern_num, size1, size2, val1, p1, 
                   val2, p2, cnt, e)
/*---------------------------------------------------------------*/

           tsp00_C6           mod_id;
           tsp00_Int4         mod_intern_num;
           tsp00_Int4         size1;
           tsp00_Int4         size2;
           unsigned char   *val1;
           tsp00_Int4         p1;
           unsigned char   *val2;
           tsp00_Int4         p2;
           tsp00_Int4         cnt;
           tgg_basis_error *e;
	{
        if (*e != e_move_error)
           {
	      if (size1 < p1 + cnt - 1 || size2 < p2 + cnt - 1 || cnt < 0 || p1 <= 0 || p2 <= 0) /* LINE@ 481 */
		{
                gg10mv_err_handling (mod_id, mod_intern_num, size1, size2, 
                      p1, p2, cnt, e);
		}
	      else 
#ifdef HP_IA64
            memmove ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#else
            memcpy ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#endif
	   }
	}


/*---------------------------------------------------------------*/
extern void g10mv8 (mod_id, mod_intern_num, size1, size2, val1, p1, 
                   val2, p2, cnt, e)
/*---------------------------------------------------------------*/

           tsp00_C6           mod_id;
           tsp00_Int4         mod_intern_num;
           tsp00_Int4         size1;
           tsp00_Int4         size2;
           unsigned char   *val1;
           tsp00_Int4         p1;
           unsigned char   *val2;
           tsp00_Int4         p2;
           tsp00_Int4         cnt;
           tgg_basis_error *e;
	{
        if (*e != e_move_error)
           {
	      if (size1 < p1 + cnt - 1 || size2 < p2 + cnt - 1 || cnt < 0 || p1 <= 0 || p2 <= 0) /* LINE@ 481 */
		{
                gg10mv_err_handling (mod_id, mod_intern_num, size1, size2, 
                      p1, p2, cnt, e);
		}
	      else 
#ifdef HP_IA64
            memmove ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#else
            memcpy ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#endif
	   }
	}


/*---------------------------------------------------------------*/
extern void g10mv9 (mod_id, mod_intern_num, size1, size2, val1, p1, 
                   val2, p2, cnt, e)
/*---------------------------------------------------------------*/

           tsp00_C6           mod_id;
           tsp00_Int4         mod_intern_num;
           tsp00_Int4         size1;
           tsp00_Int4         size2;
           unsigned char   *val1;
           tsp00_Int4         p1;
           unsigned char   *val2;
           tsp00_Int4         p2;
           tsp00_Int4         cnt;
           tgg_basis_error *e;
	{
        if (*e != e_move_error)
           {
	      if (size1 < p1 + cnt - 1 || size2 < p2 + cnt - 1 || cnt < 0 || p1 <= 0 || p2 <= 0) /* LINE@ 481 */
		{
                gg10mv_err_handling (mod_id, mod_intern_num, size1, size2, 
                      p1, p2, cnt, e);
		}
	      else 
#ifdef HP_IA64
            memmove ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#else
            memcpy ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#endif
	   }
	}


/*---------------------------------------------------------------*/
extern void g10mv10 (mod_id, mod_intern_num, size1, size2, val1, p1, 
                    val2, p2, cnt, e)
/*---------------------------------------------------------------*/

           tsp00_C6           mod_id;
           tsp00_Int4         mod_intern_num;
           tsp00_Int4         size1;
           tsp00_Int4         size2;
           unsigned char   *val1;
           tsp00_Int4         p1;
           unsigned char   *val2;
           tsp00_Int4         p2;
           tsp00_Int4         cnt;
           tgg_basis_error *e;
	{
        if (*e != e_move_error)
           {
	      if (size1 < p1 + cnt - 1 || size2 < p2 + cnt - 1 || cnt < 0 || p1 <= 0 || p2 <= 0) /* LINE@ 481 */
		{
                gg10mv_err_handling (mod_id, mod_intern_num, size1, size2, 
                      p1, p2, cnt, e);
		}
	      else 
#ifdef HP_IA64
            memmove ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#else
            memcpy ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#endif
	   }
	}


/*---------------------------------------------------------------*/
extern void g10mv11 (mod_id, mod_intern_num, size1, size2, val1, p1, 
                    val2, p2, cnt, e)
/*---------------------------------------------------------------*/

           tsp00_C6           mod_id;
           tsp00_Int4         mod_intern_num;
           tsp00_Int4         size1;
           tsp00_Int4         size2;
           unsigned char   *val1;
           tsp00_Int4         p1;
           unsigned char   *val2;
           tsp00_Int4         p2;
           tsp00_Int4         cnt;
           tgg_basis_error *e;
	{
        if (*e != e_move_error)
           {
	      if (size1 < p1 + cnt - 1 || size2 < p2 + cnt - 1 || cnt < 0 || p1 <= 0 || p2 <= 0) /* LINE@ 481 */
		{
                gg10mv_err_handling (mod_id, mod_intern_num, size1, size2, 
                      p1, p2, cnt, e);
		}
	      else 
#ifdef HP_IA64
            memmove ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#else
            memcpy ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#endif
	   }
	}


/*---------------------------------------------------------------*/
extern void g10mv12 (mod_id, mod_intern_num, size1, size2, val1, p1, 
                    val2, p2, cnt, e)
/*---------------------------------------------------------------*/

           tsp00_C6           mod_id;
           tsp00_Int4         mod_intern_num;
           tsp00_Int4         size1;
           tsp00_Int4         size2;
           unsigned char   *val1;
           tsp00_Int4         p1;
           unsigned char   *val2;
           tsp00_Int4         p2;
           tsp00_Int4         cnt;
           tgg_basis_error *e;
	{
        if (*e != e_move_error)
           {
	      if (size1 < p1 + cnt - 1 || size2 < p2 + cnt - 1 || cnt < 0 || p1 <= 0 || p2 <= 0) /* LINE@ 481 */
		{
                gg10mv_err_handling (mod_id, mod_intern_num, size1, size2, 
                      p1, p2, cnt, e);
		}
	      else 
#ifdef HP_IA64
            memmove ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#else
            memcpy ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#endif
	   }
	}


/*---------------------------------------------------------------*/
extern void g10mv13 (mod_id, mod_intern_num, size1, size2, val1, p1, 
                    val2, p2, cnt, e)
/*---------------------------------------------------------------*/

           tsp00_C6           mod_id;
           tsp00_Int4         mod_intern_num;
           tsp00_Int4         size1;
           tsp00_Int4         size2;
           unsigned char   *val1;
           tsp00_Int4         p1;
           unsigned char   *val2;
           tsp00_Int4         p2;
           tsp00_Int4         cnt;
           tgg_basis_error *e;
	{
        if (*e != e_move_error)
           {
	      if (size1 < p1 + cnt - 1 || size2 < p2 + cnt - 1 || cnt < 0 || p1 <= 0 || p2 <= 0) /* LINE@ 481 */
		{
                gg10mv_err_handling (mod_id, mod_intern_num, size1, size2, 
                      p1, p2, cnt, e);
		}
	      else 
#ifdef HP_IA64
            memmove ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#else
            memcpy ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#endif
	   }
	}


/*---------------------------------------------------------------*/
extern void g10mv14 (mod_id, mod_intern_num, size1, size2, val1, p1, 
                    val2, p2, cnt, e)
/*---------------------------------------------------------------*/

           tsp00_C6           mod_id;
           tsp00_Int4         mod_intern_num;
           tsp00_Int4         size1;
           tsp00_Int4         size2;
           unsigned char   *val1;
           tsp00_Int4         p1;
           unsigned char   *val2;
           tsp00_Int4         p2;
           tsp00_Int4         cnt;
           tgg_basis_error *e;
	{
        if (*e != e_move_error)
           {
	      if (size1 < p1 + cnt - 1 || size2 < p2 + cnt - 1 || cnt < 0 || p1 <= 0 || p2 <= 0) /* LINE@ 481 */
		{
                gg10mv_err_handling (mod_id, mod_intern_num, size1, size2, 
                      p1, p2, cnt, e);
		}
	      else 
#ifdef HP_IA64
            memmove ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#else
            memcpy ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#endif
	   }
	}


/*---------------------------------------------------------------*/
extern void g10mv15 (mod_id, mod_intern_num, size1, size2, val1, p1, 
                    val2, p2, cnt, e)
/*---------------------------------------------------------------*/

           tsp00_C6           mod_id;
           tsp00_Int4         mod_intern_num;
           tsp00_Int4         size1;
           tsp00_Int4         size2;
           unsigned char   *val1;
           tsp00_Int4         p1;
           unsigned char   *val2;
           tsp00_Int4         p2;
           tsp00_Int4         cnt;
           tgg_basis_error *e;
	{
        if (*e != e_move_error)
           {
	      if (size1 < p1 + cnt - 1 || size2 < p2 + cnt - 1 || cnt < 0 || p1 <= 0 || p2 <= 0) /* LINE@ 481 */
		{
                gg10mv_err_handling (mod_id, mod_intern_num, size1, size2, 
                      p1, p2, cnt, e);
		}
	      else 
#ifdef HP_IA64
            memmove ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#else
            memcpy ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#endif
	   }
	}


/*---------------------------------------------------------------*/
extern void g10mv16 (mod_id, mod_intern_num, size1, size2, val1, p1, 
                    val2, p2, cnt, e)
/*---------------------------------------------------------------*/

           tsp00_C6           mod_id;
           tsp00_Int4         mod_intern_num;
           tsp00_Int4         size1;
           tsp00_Int4         size2;
           unsigned char   *val1;
           tsp00_Int4         p1;
           unsigned char   *val2;
           tsp00_Int4         p2;
           tsp00_Int4         cnt;
           tgg_basis_error *e;
	{
        if (*e != e_move_error)
           {
	      if (size1 < p1 + cnt - 1 || size2 < p2 + cnt - 1 || cnt < 0 || p1 <= 0 || p2 <= 0) /* LINE@ 481 */
		{
                gg10mv_err_handling (mod_id, mod_intern_num, size1, size2, 
                      p1, p2, cnt, e);
		}
	      else 
#ifdef HP_IA64
            memmove ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#else
            memcpy ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#endif
	   }
	}


/*---------------------------------------------------------------*/
extern void g10mv17 (mod_id, mod_intern_num, size1, size2, val1, p1, 
                    val2, p2, cnt, e)
/*---------------------------------------------------------------*/

           tsp00_C6           mod_id;
           tsp00_Int4         mod_intern_num;
           tsp00_Int4         size1;
           tsp00_Int4         size2;
           unsigned char   *val1;
           tsp00_Int4         p1;
           unsigned char   *val2;
           tsp00_Int4         p2;
           tsp00_Int4         cnt;
           tgg_basis_error *e;
	{
        if (*e != e_move_error)
           {
	      if (size1 < p1 + cnt - 1 || size2 < p2 + cnt - 1 || cnt < 0 || p1 <= 0 || p2 <= 0) /* LINE@ 481 */
		{
                gg10mv_err_handling (mod_id, mod_intern_num, size1, size2, 
                      p1, p2, cnt, e);
		}
	      else 
#ifdef HP_IA64
            memmove ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#else
            memcpy ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#endif
	   }
	}


/*---------------------------------------------------------------*/
extern void g10mv18 (mod_id, mod_intern_num, size1, size2, val1, p1, 
                    val2, p2, cnt, e)
/*---------------------------------------------------------------*/

           tsp00_C6           mod_id;
           tsp00_Int4         mod_intern_num;
           tsp00_Int4         size1;
           tsp00_Int4         size2;
           unsigned char   *val1;
           tsp00_Int4         p1;
           unsigned char   *val2;
           tsp00_Int4         p2;
           tsp00_Int4         cnt;
           tgg_basis_error *e;
	{
        if (*e != e_move_error)
           {
	      if (size1 < p1 + cnt - 1 || size2 < p2 + cnt - 1 || cnt < 0 || p1 <= 0 || p2 <= 0) /* LINE@ 481 */
		{
                gg10mv_err_handling (mod_id, mod_intern_num, size1, size2, 
                      p1, p2, cnt, e);
		}
	      else 
#ifdef HP_IA64
            memmove ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#else
            memcpy ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#endif
	   }
	}


/*---------------------------------------------------------------*/
extern void g10mv19 (mod_id, mod_intern_num, size1, size2, val1, p1, 
                    val2, p2, cnt, e)
/*---------------------------------------------------------------*/

           tsp00_C6           mod_id;
           tsp00_Int4         mod_intern_num;
           tsp00_Int4         size1;
           tsp00_Int4         size2;
           unsigned char   *val1;
           tsp00_Int4         p1;
           unsigned char   *val2;
           tsp00_Int4         p2;
           tsp00_Int4         cnt;
           tgg_basis_error *e;
	{
        if (*e != e_move_error)
           {
	      if (size1 < p1 + cnt - 1 || size2 < p2 + cnt - 1 || cnt < 0 || p1 <= 0 || p2 <= 0) /* LINE@ 481 */
		{
                gg10mv_err_handling (mod_id, mod_intern_num, size1, size2, 
                      p1, p2, cnt, e);
		}
	      else 
#ifdef HP_IA64
            memmove ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#else
            memcpy ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#endif
	   }
	}


/*---------------------------------------------------------------*/
extern void g10mv20 (mod_id, mod_intern_num, size1, size2, val1, p1, 
                    val2, p2, cnt, e)
/*---------------------------------------------------------------*/

           tsp00_C6           mod_id;
           tsp00_Int4         mod_intern_num;
           tsp00_Int4         size1;
           tsp00_Int4         size2;
           unsigned char   *val1;
           tsp00_Int4         p1;
           unsigned char   *val2;
           tsp00_Int4         p2;
           tsp00_Int4         cnt;
           tgg_basis_error *e;
	{
        if (*e != e_move_error)
           {
	      if (size1 < p1 + cnt - 1 || size2 < p2 + cnt - 1 || cnt < 0 || p1 <= 0 || p2 <= 0) /* LINE@ 481 */
		{
                gg10mv_err_handling (mod_id, mod_intern_num, size1, size2, 
                      p1, p2, cnt, e);
		}
	      else 
#ifdef HP_IA64
            memmove ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#else
            memcpy ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#endif
	   }
	}


/*---------------------------------------------------------------*/
extern void g10mv21 (mod_id, mod_intern_num, size1, size2, val1, p1, 
                    val2, p2, cnt, e)
/*---------------------------------------------------------------*/

           tsp00_C6           mod_id;
           tsp00_Int4         mod_intern_num;
           tsp00_Int4         size1;
           tsp00_Int4         size2;
           unsigned char   *val1;
           tsp00_Int4         p1;
           unsigned char   *val2;
           tsp00_Int4         p2;
           tsp00_Int4         cnt;
           tgg_basis_error *e;
	{
        if (*e != e_move_error)
           {
	      if (size1 < p1 + cnt - 1 || size2 < p2 + cnt - 1 || cnt < 0 || p1 <= 0 || p2 <= 0) /* LINE@ 481 */
		{
                gg10mv_err_handling (mod_id, mod_intern_num, size1, size2, 
                      p1, p2, cnt, e);
		}
	      else 
#ifdef HP_IA64
            memmove ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#else
            memcpy ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#endif
	   }
	}


/*---------------------------------------------------------------*/
extern void g10mv22 (mod_id, mod_intern_num, size1, size2, val1, p1, 
                    val2, p2, cnt, e)
/*---------------------------------------------------------------*/

           tsp00_C6           mod_id;
           tsp00_Int4         mod_intern_num;
           tsp00_Int4         size1;
           tsp00_Int4         size2;
           unsigned char   *val1;
           tsp00_Int4         p1;
           unsigned char   *val2;
           tsp00_Int4         p2;
           tsp00_Int4         cnt;
           tgg_basis_error *e;
	{
        if (*e != e_move_error)
           {
	      if (size1 < p1 + cnt - 1 || size2 < p2 + cnt - 1 || cnt < 0 || p1 <= 0 || p2 <= 0) /* LINE@ 481 */
		{
                gg10mv_err_handling (mod_id, mod_intern_num, size1, size2, 
                      p1, p2, cnt, e);
		}
	      else 
#ifdef HP_IA64
            memmove ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#else
            memcpy ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#endif
	   }
	}


/*---------------------------------------------------------------*/
extern void g10mv23 (mod_id, mod_intern_num, size1, size2, val1, p1, 
                    val2, p2, cnt, e)
/*---------------------------------------------------------------*/

           tsp00_C6           mod_id;
           tsp00_Int4         mod_intern_num;
           tsp00_Int4         size1;
           tsp00_Int4         size2;
           unsigned char   *val1;
           tsp00_Int4         p1;
           unsigned char   *val2;
           tsp00_Int4         p2;
           tsp00_Int4         cnt;
           tgg_basis_error *e;
	{
        if (*e != e_move_error)
           {
	      if (size1 < p1 + cnt - 1 || size2 < p2 + cnt - 1 || cnt < 0 || p1 <= 0 || p2 <= 0) /* LINE@ 481 */
		{
                gg10mv_err_handling (mod_id, mod_intern_num, size1, size2, p1, p2, cnt, e);
		}
	      else 
#ifdef HP_IA64
            memmove ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#else
            memcpy ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#endif
	   }
	}


/*---------------------------------------------------------------*/
extern void g10mv24 (mod_id, mod_intern_num, size1, size2, val1, p1, 
                    val2, p2, cnt, e)
/*---------------------------------------------------------------*/

           tsp00_C6           mod_id;
           tsp00_Int4         mod_intern_num;
           tsp00_Int4         size1;
           tsp00_Int4         size2;
           unsigned char   *val1;
           tsp00_Int4         p1;
           unsigned char   *val2;
           tsp00_Int4         p2;
           tsp00_Int4         cnt;
           tgg_basis_error *e;
	{
        if (*e != e_move_error)
           {
	      if (size1 < p1 + cnt - 1 || size2 < p2 + cnt - 1 || cnt < 0 || p1 <= 0 || p2 <= 0) /* LINE@ 481 */
		{
                gg10mv_err_handling (mod_id, mod_intern_num, size1, size2, 
                      p1, p2, cnt, e);
		}
	      else 
#ifdef HP_IA64
            memmove ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#else
            memcpy ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#endif
	   }
	}


/*---------------------------------------------------------------*/
extern void g10mv25 (mod_id, mod_intern_num, size1, size2, val1, p1, 
                    val2, p2, cnt, e)
/*---------------------------------------------------------------*/

           tsp00_C6           mod_id;
           tsp00_Int4         mod_intern_num;
           tsp00_Int4         size1;
           tsp00_Int4         size2;
           unsigned char   *val1;
           tsp00_Int4         p1;
           unsigned char   *val2;
           tsp00_Int4         p2;
           tsp00_Int4         cnt;
           tgg_basis_error *e;
	{
        if (*e != e_move_error)
           {
	      if (size1 < p1 + cnt - 1 || size2 < p2 + cnt - 1 || cnt < 0 || p1 <= 0 || p2 <= 0) /* LINE@ 481 */
		{
                gg10mv_err_handling (mod_id, mod_intern_num, size1, size2, 
                      p1, p2, cnt, e);
		}
	      else 
#ifdef HP_IA64
            memmove ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#else
            memcpy ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#endif
	   }
	}


/*---------------------------------------------------------------*/
extern void g10mv26 (mod_id, mod_intern_num, size1, size2, val1, p1, 
                    val2, p2, cnt, e)
/*---------------------------------------------------------------*/

           tsp00_C6           mod_id;
           tsp00_Int4         mod_intern_num;
           tsp00_Int4         size1;
           tsp00_Int4         size2;
           unsigned char   *val1;
           tsp00_Int4         p1;
           unsigned char   *val2;
           tsp00_Int4         p2;
           tsp00_Int4         cnt;
           tgg_basis_error *e;
	{
        if (*e != e_move_error)
           {
	      if (size1 < p1 + cnt - 1 || size2 < p2 + cnt - 1 || cnt < 0 || p1 <= 0 || p2 <= 0) /* LINE@ 481 */
		{
                gg10mv_err_handling (mod_id, mod_intern_num, size1, size2, 
                      p1, p2, cnt, e);
		}
	      else 
#ifdef HP_IA64
            memmove ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#else
            memcpy ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#endif
	   }
	}


/*---------------------------------------------------------------*/
extern void g10mv27 (mod_id, mod_intern_num, size1, size2, val1, p1, 
                    val2, p2, cnt, e)
/*---------------------------------------------------------------*/

           tsp00_C6           mod_id;
           tsp00_Int4         mod_intern_num;
           tsp00_Int4         size1;
           tsp00_Int4         size2;
           unsigned char   *val1;
           tsp00_Int4         p1;
           unsigned char   *val2;
           tsp00_Int4         p2;
           tsp00_Int4         cnt;
           tgg_basis_error *e;
	{
        if (*e != e_move_error)
           {
	      if (size1 < p1 + cnt - 1 || size2 < p2 + cnt - 1 || cnt < 0 || p1 <= 0 || p2 <= 0) /* LINE@ 481 */
		{
                gg10mv_err_handling (mod_id, mod_intern_num, size1, size2, 
                      p1, p2, cnt, e);
		}
	      else 
#ifdef HP_IA64
            memmove ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#else
            memcpy ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#endif
	   }
	}


/*---------------------------------------------------------------*/
extern void g10mv28 (mod_id, mod_intern_num, size1, size2, val1, p1, 
                    val2, p2, cnt, e)
/*---------------------------------------------------------------*/

           tsp00_C6           mod_id;
           tsp00_Int4         mod_intern_num;
           tsp00_Int4         size1;
           tsp00_Int4         size2;
           unsigned char   *val1;
           tsp00_Int4         p1;
           unsigned char   *val2;
           tsp00_Int4         p2;
           tsp00_Int4         cnt;
           tgg_basis_error *e;
	{
        if (*e != e_move_error)
           {
	      if (size1 < p1 + cnt - 1 || size2 < p2 + cnt - 1 || cnt < 0 || p1 <= 0 || p2 <= 0) /* LINE@ 481 */
		{
                gg10mv_err_handling (mod_id, mod_intern_num, size1, size2, 
                      p1, p2, cnt, e);
		}
	      else 
#ifdef HP_IA64
            memmove ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#else
            memcpy ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#endif
	   }
	}


/*---------------------------------------------------------------*/
extern void g10mv29 (mod_id, mod_intern_num, size1, size2, val1, p1, 
                    val2, p2, cnt, e)
/*---------------------------------------------------------------*/

           tsp00_C6           mod_id;
           tsp00_Int4         mod_intern_num;
           tsp00_Int4         size1;
           tsp00_Int4         size2;
           unsigned char   *val1;
           tsp00_Int4         p1;
           unsigned char   *val2;
           tsp00_Int4         p2;
           tsp00_Int4         cnt;
           tgg_basis_error *e;
	{
        if (*e != e_move_error)
           {
	      if (size1 < p1 + cnt - 1 || size2 < p2 + cnt - 1 || cnt < 0 || p1 <= 0 || p2 <= 0) /* LINE@ 481 */
		{
                gg10mv_err_handling (mod_id, mod_intern_num, size1, size2, 
                      p1, p2, cnt, e);
		}
	      else 
#ifdef HP_IA64
            memmove ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#else
            memcpy ( val2 - 1 + p2, val1 - 1 + p1, cnt );
#endif
	   }
	}



/*---------------------------------------------------------------*/
extern void g10MvAux (mod_id, mod_intern_num, size1, size2, val1, p1, 
                  val2, p2, cnt, aux_buf_size, aux_buf, e)
/*---------------------------------------------------------------*/

           tsp00_C6           mod_id;
           tsp00_Int4         mod_intern_num;
           tsp00_Int4         size1;
           tsp00_Int4         size2;
           unsigned char   *val1;
           tsp00_Int4         p1;
           unsigned char   *val2;
           tsp00_Int4         p2;
           tsp00_Int4         cnt;
		   tsp00_Int4         aux_buf_size;
		   unsigned char   *aux_buf;
           tgg_basis_error *e;
	{
        if (*e != e_move_error)
           {
	      if (size1 <  p1 + cnt - 1 ||
              size2 <  p2 + cnt - 1 ||
              cnt   <  0            ||
              p1    <= 0            ||
              p2    <= 0            ||
              cnt   >  aux_buf_size)
		{
                gg10mv_err_handling (mod_id, mod_intern_num, size1, size2, 
                      p1, p2, cnt, e);
		}
	      else 
        {
		        memcpy ( aux_buf, val1 - 1 + p1, cnt );
		        memcpy ( val2 - 1 + p2, aux_buf, cnt );
        }
	   }
	}


/*---------------------------------------------------------------*/
extern void g10mvb (mod_id, mod_intern_num, size1, size2, val1, p1, 
                  val2, p2, cnt, e)
/*---------------------------------------------------------------*/

           tsp00_C6           mod_id;
           tsp00_Int4         mod_intern_num;
           tsp00_Int4         size1;
           tsp00_Int4         size2;
           unsigned char   *val1;
           tsp00_Int4         p1;
           unsigned char   *val2;
           tsp00_Int4         p2;
           tsp00_Int4         cnt;
           tgg_basis_error *e;
	{
        tsp00_Page aux_page;

        if (*e != e_move_error)
           {
	      if (size1 <  p1 + cnt - 1 ||
                  size2 <  p2 + cnt - 1 ||
                  cnt   <  0            ||
                  p1    <= 0            ||
                  p2    <= 0            ||
                  cnt   >  sizeof (aux_page))
		{
                gg10mv_err_handling (mod_id, mod_intern_num, size1, size2, 
                      p1, p2, cnt, e);
		}
	      else 
        {
		        memcpy ( aux_page, val1 - 1 + p1, cnt );
		        memcpy ( val2 - 1 + p2, aux_page, cnt );
        }
	   }
	}


/*---------------------------------------------------------------*/
extern void g10mvr (mod_id, mod_intern_num, size1, size2, val1, p1,
                    val2, p2, cnt, e)
/*---------------------------------------------------------------*/

           tsp00_C6                  mod_id;
           tsp00_Int4                mod_intern_num;
           tsp00_Int4                size1;
           tsp00_Int4                size2;
           register unsigned char *val1;
           tsp00_Int4                p1;
           register unsigned char *val2;
           tsp00_Int4                p2;
           register tsp00_Int4       cnt;
           tgg_basis_error        *e;
	{

        if (*e != e_move_error)
           {
	      if (size1 < p1 + cnt - 1 
	          || size2 < p2 + cnt - 1 
	          || cnt < 0 || p1 <= 0 
	          || p2 <= 0) 
		{
                gg10mv_err_handling (mod_id, mod_intern_num, size1, size2, 
                      p1, p2, cnt, e);
		}
	      else 
	        {
		val1 = val1 + p1 + cnt - 2;
		val2 = val2 + p2 + cnt - 2;
		while ( cnt-- )
		    {
		    *(val2--) = *(val1--);               
		    }
		  }
	   }
	}

 
 
/*---------------------------------------------------------------*/
static void gg10fil_err_handling (mod_id, mod_intern_num, 
                              size, pos, len, e)
/*---------------------------------------------------------------*/

           tsp00_C6           mod_id;
           tsp00_Int4         mod_intern_num;
           tsp00_Int4         size;
           tsp00_Int4         pos;
           tsp00_Int4         len;
           tgg_basis_error  *e;
{
&if defined audit || defined diagnose
sqlabort ();
&else
char  mod_idc    [ sizeof ( tsp00_C6 ) + 1 ] ;
char  msg_labelc [ sizeof ( tsp00_C8 ) + 1 ] ;

eo46PtoC ( mod_idc , mod_id , sizeof(tsp00_C6) );
eo46PtoC ( msg_labelc , CSP3_N_FILL , sizeof(tsp00_C8) );
if (*e != e_ok)
   {
   sql60c_varg_message (SP3P_CONSOLE, SP3M_ERROR, CSP3_MOVE_ERROR, msg_labelc, 
                        "internal error: %d", *e);
   }
sql60c_varg_message (SP3P_CONSOLE, SP3M_ERROR, CSP3_MOVE_ERROR, msg_labelc, 
                     "%s.%d: %d[%d] len:%d",
		      mod_idc, mod_intern_num, pos, size, len );
*e = e_move_error;
&endif
}


/*---------------------------------------------------------------*/
extern void g10fil_err_handling (mod_id, mod_intern_num, 
                              size, pos, len, e)
/*---------------------------------------------------------------*/

           tsp00_C6           mod_id;
           tsp00_Int4         mod_intern_num;
           tsp00_Int4         size;
           tsp00_Int4         pos;
           tsp00_Int4         len;
           tgg_basis_error  *e;
{
 gg10fil_err_handling (mod_id, mod_intern_num, size, pos + 1, len, e);
}

/*---------------------------------------------------------------*/
static void gg10mv_err_handling (mod_id, mod_intern_num, 
                              size1, size2, p1, p2, cnt, e)
/*---------------------------------------------------------------*/

           tsp00_C6           mod_id;
           tsp00_Int4         mod_intern_num;
           tsp00_Int4         size1;
           tsp00_Int4         size2;
           tsp00_Int4         p1;
           tsp00_Int4         p2;
           tsp00_Int4         cnt;
           tgg_basis_error  *e;
{
&if defined audit  || defined  diagnose 
sqlabort ();
&else
char  mod_idc    [ sizeof ( tsp00_C6 ) + 1 ] ;
char  msg_labelc [ sizeof ( tsp00_C8 ) + 1 ] ;

eo46PtoC ( mod_idc , mod_id , sizeof(tsp00_C6) );
eo46PtoC ( msg_labelc , CSP3_N_MOVE , sizeof(tsp00_C8) );
if (*e != e_ok)
   {
   sql60c_varg_message (SP3P_CONSOLE, SP3M_ERROR, CSP3_MOVE_ERROR, msg_labelc, 
                        "internal error: %d", *e);
   }
sql60c_varg_message (SP3P_CONSOLE, SP3M_ERROR, CSP3_MOVE_ERROR, msg_labelc, 
                     "%s.%d: %d[%d]->%d[%d] len:%d",
		      mod_idc, mod_intern_num, p1, size1, p2, size2, cnt );
*e = e_move_error;
/* vabort (1);  */
& endif
}
/*---------------------------------------------------------------*/
extern void g10mv_err_handling (mod_id, mod_intern_num, 
                              size1, size2, p1, p2, cnt, e)
/*---------------------------------------------------------------*/

           tsp00_C6           mod_id;
           tsp00_Int4         mod_intern_num;
           tsp00_Int4         size1;
           tsp00_Int4         size2;
           tsp00_Int4         p1;
           tsp00_Int4         p2;
           tsp00_Int4         cnt;
           tgg_basis_error  *e;
{
 gg10mv_err_handling (mod_id, mod_intern_num, size1, size2, p1, p2, cnt, e);
}

.CM *-END-* code ----------------------------------------
.sp
.sp
***********************************************************
ANZAHL STATEMENTS :           0
ANZAHL LINES OF CODE :        0
.pa
