azlib.pat

this is RealTimeOS(uITRON) for hitachi H8 processor.

*** inc30/errno.h	1999/07/07 08:03:56	1.1
--- inc30/errno.h	1999/08/24 07:19:24
***************
*** 5,7 ****
  * errno.h -- Version 2.00.00
! * $Id: errno.h 1.1 1999/07/07 08:03:56 monnai Exp $
  *
--- 5,7 ----
  * errno.h -- Version 2.00.00
! * $Id: errno.h 1.2 1999/07/07 10:46:01 monnai Exp $
  *
***************
*** 36,38 ****
  
! extern int errno;
  #endif
--- 36,44 ----
  
! #ifdef _AZRTOS
!   extern int _near * az_errno(void);
!   #define errno (*az_errno())
! #else /* _AZRTOS */
!   extern int errno;
! #endif /* _AZRTOS */
! 
  #endif
*** inc30/stdio.h	1999/07/07 08:36:32	1.1
--- inc30/stdio.h	1999/08/24 07:19:24
***************
*** 5,7 ****
  * stdio.h -- Version 2.00.00
! * $Id: stdio.h 1.1 1999/07/07 08:36:32 monnai Exp $
  *
--- 5,7 ----
  * stdio.h -- Version 2.00.00
! * $Id: stdio.h 1.2 1999/07/07 10:46:01 monnai Exp $
  *
***************
*** 160,162 ****
--- 160,166 ----
  extern  int     _pput(int);
+ #ifdef _AZRTOS
+ extern	char	_far *_print( int(*)(int, long), long, char _far *, int  **, int * );
+ #else /* _AZRTOS */
  extern	char	_far *_print( int(*)(), char _far *, int  **, int * );
+ #endif /* _AZRTOS */
  #endif
*** src30/azlib/fprintf.c	1999/07/07 08:59:30	1.1
--- src30/azlib/fprintf.c	1999/08/24 07:14:51
***************
*** 8,10 ****
  *
! *  $Id: fprintf.c 1.1 1999/07/07 08:59:30 monnai Exp $
  *
--- 8,10 ----
  *
! *  $Id: fprintf.c 1.2 1999/07/07 10:44:24 monnai Exp $
  *
***************
*** 43,46 ****
  #include <stdio.h>
! static int _fp( int );
! static FILE _far *bf;
  
--- 43,45 ----
  #include <stdio.h>
! static int _fp( int, long );
  
***************
*** 52,54 ****
  
- 	bf = stream;	/* 弌椡愭偺僗僩儕乕儉傪僙僢僩 */
  	total = 0;	/* 弌椡暥帤悢傪僋儕傾 */
--- 51,52 ----
***************
*** 67,69 ****
  				total++;
! 			} else if(!(format = _print(_fp, format, &arg, &total)))
  				return EOF;
--- 65,67 ----
  				total++;
! 			} else if(!(format = _print(_fp, (long) stream, format, &arg, &total)))
  				return EOF;
***************
*** 79,83 ****
  
! static int _fp( int c )
  {
! 	return fputc( c, bf );
  }
--- 77,81 ----
  
! static int _fp( int c, long param )
  {
! 	return fputc( c, (FILE _far *) param );
  }
*** src30/azlib/init.c	1999/07/07 08:07:08	1.1
--- src30/azlib/init.c	1999/08/24 07:14:51
***************
*** 8,10 ****
  *
! *  $Id: init.c 1.1 1999/07/07 08:07:08 monnai Exp $
  *
--- 8,10 ----
  *
! *  $Id: init.c 1.2 1999/07/07 10:44:24 monnai Exp $
  *
***************
*** 41,43 ****
  
! FILE _iob[4];
  
--- 41,43 ----
  
! extern FILE _iob[4];
  
*** src30/azlib/malloc.c	1999/07/07 08:18:17	1.1
--- src30/azlib/malloc.c	1999/08/24 07:14:51
***************
*** 8,10 ****
  *
! *  $Id: malloc.c 1.1 1999/07/07 08:18:17 monnai Exp $
  *
--- 8,10 ----
  *
! *  $Id: malloc.c 1.3 1999/08/24 07:13:52 monnai Exp $
  *
***************
*** 34,35 ****
--- 34,36 ----
  #include <string.h>
+ #include "azrtos.h"
  
***************
*** 126,128 ****
--- 127,131 ----
  #else
+ 	dis_dsp();
      rlsmem( ( char _FAR * )p, p->size * _MEMTSIZE );
+ 	ena_dsp();
  #endif
***************
*** 163,165 ****
                                          /* 儐僯僢僩僒僀僘偺嶼弌丂丂丂丂丂丂丂 */
!     if ( ( p = ( struct _MEMT _FAR * )getmem( nunits * _MEMTSIZE ) ) == NULL )
          return ( NULL );                /* 妋曐偱偒側偐偭偨応崌丂丂丂丂丂丂丂 */
--- 166,171 ----
                                          /* 儐僯僢僩僒僀僘偺嶼弌丂丂丂丂丂丂丂 */
! 	dis_dsp();
! 	p = ( struct _MEMT _FAR * )getmem( nunits * _MEMTSIZE );
! 	ena_dsp();
! 	if (!p)
          return ( NULL );                /* 妋曐偱偒側偐偭偨応崌丂丂丂丂丂丂丂 */
*** src30/azlib/print.c	1999/07/07 09:07:03	1.1
--- src30/azlib/print.c	1999/08/24 07:14:51
***************
*** 8,10 ****
  *
! *  $Id: print.c 1.1 1999/07/07 09:07:03 monnai Exp $
  *
--- 8,10 ----
  *
! *  $Id: print.c 1.2 1999/07/07 10:44:24 monnai Exp $
  *
***************
*** 246,251 ****
   ****************************************************************************/
! int _f8prn( int(*)(int), double, int, char,  int, char, int, int _far *, u_int) ;
  void henkan1( double *, FLOATP );
  double henkan2( FLOATP );
! int _pri( int(*)(int), char, char _far *, char _far *, char _far *, int, int, int, int, int, u_int );
  void _f8geti( DTYP *, FLOATP );
--- 246,251 ----
   ****************************************************************************/
! int _f8prn( int(*)(int, long), long, double, int, char,  int, char, int, int _far *, u_int) ;
  void henkan1( double *, FLOATP );
  double henkan2( FLOATP );
! int _pri( int(*)(int, long), long, char, char _far *, char _far *, char _far *, int, int, int, int, int, u_int );
  void _f8geti( DTYP *, FLOATP );
***************
*** 253,255 ****
  
! char _far * _print( int (*func)(int), const char _far *format, int **ap, int *total )
  {
--- 253,255 ----
  
! char _far * _print( int (*func)(int, long), long param, const char _far *format, int **ap, int *total )
  {
***************
*** 571,573 ****
  			while (*p != '\0') {
! 				if ((*func)((int)(*p++)) == EOF)
  					return  (char *)FALSE;
--- 571,573 ----
  			while (*p != '\0') {
! 				if ((*func)((int)(*p++), param) == EOF)
  					return  (char *)FALSE;
***************
*** 632,634 ****
  		if (ret = _f8prn(
! 		   func, db, pres, p_flg, cnt, pad, width, total, flag))
  			return  (char *)FALSE;
--- 632,634 ----
  		if (ret = _f8prn(
! 		   func, param, db, pres, p_flg, cnt, pad, width, total, flag))
  			return  (char *)FALSE;
***************
*** 700,702 ****
  			for ( i = 0 ; i < num ; i++ ) {
! 				if ( ( *func )( (int)(*top++) ) == EOF )
  					return  ( char * )FALSE;
--- 700,702 ----
  			for ( i = 0 ; i < num ; i++ ) {
! 				if ( ( *func )( (int)(*top++), param ) == EOF )
  					return  ( char * )FALSE;
***************
*** 704,706 ****
  			for ( i = 0 ; i < ( width - num ) ; i++ ) {
! 				if ( ( *func )( ' ' ) == EOF )
  					return  ( char * )FALSE;
--- 704,706 ----
  			for ( i = 0 ; i < ( width - num ) ; i++ ) {
! 				if ( ( *func )( ' ', param ) == EOF )
  					return  ( char * )FALSE;
***************
*** 711,713 ****
  				for ( i = 0 ; i < t_num ; i++ ) {
! 					if ( ( *func )( (int)(*top++) ) == EOF )
  						return  ( char * )FALSE;
--- 711,713 ----
  				for ( i = 0 ; i < t_num ; i++ ) {
! 					if ( ( *func )( (int)(*top++), param ) == EOF )
  						return  ( char * )FALSE;
***************
*** 715,717 ****
  				for ( i = 0 ; i < ( width - num ) ; i++ ) {
! 					if ( ( *func )( '0' ) == EOF )
  						return  ( char * )FALSE;
--- 715,717 ----
  				for ( i = 0 ; i < ( width - num ) ; i++ ) {
! 					if ( ( *func )( '0', param ) == EOF )
  						return  ( char * )FALSE;
***************
*** 719,721 ****
  				for ( i = 0 ; i < ( num - t_num ) ; i++ ) {
! 					if ( ( *func )( (int)(*top++) ) == EOF )
  						return  ( char * )FALSE;
--- 719,721 ----
  				for ( i = 0 ; i < ( num - t_num ) ; i++ ) {
! 					if ( ( *func )( (int)(*top++), param ) == EOF )
  						return  ( char * )FALSE;
***************
*** 724,726 ****
  				for ( i = 0 ; i < ( width - num ) ; i++ ) {
! 					if ( ( *func )( (int)pad ) == EOF )
  						return  ( char * )FALSE;
--- 724,726 ----
  				for ( i = 0 ; i < ( width - num ) ; i++ ) {
! 					if ( ( *func )( (int)pad, param ) == EOF )
  						return  ( char * )FALSE;
***************
*** 728,730 ****
  				for ( i = 0 ; i < num ; i++ ) {
! 					if ( ( *func )( (int)(*top++) ) == EOF )
  						return  ( char * )FALSE;
--- 728,730 ----
  				for ( i = 0 ; i < num ; i++ ) {
! 					if ( ( *func )( (int)(*top++), param ) == EOF )
  						return  ( char * )FALSE;
***************
*** 736,738 ****
  		for ( i = 0 ; i < num ; i++ ) {
! 			if ( ( *func )( (int)(*top++) ) == EOF )
  				return  ( char * )FALSE;
--- 736,738 ----
  		for ( i = 0 ; i < num ; i++ ) {
! 			if ( ( *func )( (int)(*top++), param ) == EOF )
  				return  ( char * )FALSE;
***************
*** 763,765 ****
  
! int _f8prn( int (*func)(int), double db, int pres, char p_flg,
  	int cnt, char pad, int width, int *total, u_int flag )
--- 763,765 ----
  
! int _f8prn( int (*func)(int, long), long param, double db, int pres, char p_flg,
  	int cnt, char pad, int width, int *total, u_int flag )
***************
*** 942,944 ****
  			/* 弌椡 */
! 			if ( _pri(func, p_flg, inte, deci, estr,
  			    seisu, x, last, i, pres, flag) )
--- 942,944 ----
  			/* 弌椡 */
! 			if ( _pri(func, param, p_flg, inte, deci, estr,
  			    seisu, x, last, i, pres, flag) )
***************
*** 947,949 ****
  				/* 嬻敀偺僷僥傿儞僌 */
! 				if ( (*func)(' ') == EOF )
  					return 1;
--- 947,949 ----
  				/* 嬻敀偺僷僥傿儞僌 */
! 				if ( (*func)(' ', param) == EOF )
  					return 1;
***************
*** 952,954 ****
  			if ( (CHK_FUGOU) && pad == '0' ) {
! 				if ( ( *func )( (int)inte[seisu--] ) == EOF )
  					/* 晞崋弌椡 */
--- 952,954 ----
  			if ( (CHK_FUGOU) && pad == '0' ) {
! 				if ( ( *func )( (int)inte[seisu--], param ) == EOF )
  					/* 晞崋弌椡 */
***************
*** 957,959 ****
  					/* 侽偺僷僥傿儞僌 */
! 					if ( (*func)('0') == EOF )
  					return 1;
--- 957,959 ----
  					/* 侽偺僷僥傿儞僌 */
! 					if ( (*func)('0', param) == EOF )
  					return 1;
***************
*** 961,963 ****
  				/* 弌椡 */
! 				if ( _pri(func, p_flg, inte, deci, estr,
  				    seisu, x, last, i, pres, flag) )
--- 961,963 ----
  				/* 弌椡 */
! 				if ( _pri(func, param, p_flg, inte, deci, estr,
  				    seisu, x, last, i, pres, flag) )
***************
*** 967,969 ****
  					/* 嬻敀偺僷僥傿儞僌 */
! 					if( (*func)( (int)pad ) == EOF ) 
  						return 1;
--- 967,969 ----
  					/* 嬻敀偺僷僥傿儞僌 */
! 					if( (*func)( (int)pad, param ) == EOF ) 
  						return 1;
***************
*** 971,973 ****
  				/* 弌椡 */