Subversion Repositories Kolibri OS

Rev

Rev 4921 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4921 Rev 6099
Line 42... Line 42...
42 
#include
42 
#include
43 
#include "mprec.h"
 43 
#include "mprec.h"
44 
#include "gdtoa.h"
 44 
#include "gdtoa.h"
Line 45... Line 45...
45 
 
 45 
 
- 
 
 46 
#ifdef INFNAN_CHECK
- 
 
 47 
int
- 
 
 48 
_DEFUN (match, (sp, t),
- 
 
 49 
	_CONST char **sp _AND
- 
 
 50 
	char *t)
- 
 
 51 
{
- 
 
 52 
	int c, d;
- 
 
 53 
	_CONST char *s = *sp;
- 
 
 54 
 
- 
 
 55 
	while( (d = *t++) !=0) {
- 
 
 56 
		if ((c = *++s) >= 'A' && c <= 'Z')
- 
 
 57 
			c += 'a' - 'A';
- 
 
 58 
		if (c != d)
- 
 
 59 
			return 0;
- 
 
 60 
		}
- 
 
 61 
	*sp = s + 1;
- 
 
 62 
	return 1;
- 
 
 63 
}
46 
#ifdef INFNAN_CHECK
 64 
 
47 
static void
 65 
static void
48 
_DEFUN (L_shift, (x, x1, i),
 66 
_DEFUN (L_shift, (x, x1, i),
49 
	__ULong *x _AND
 67 
	__ULong *x _AND
50 
	__ULong *x1 _AND
 68 
	__ULong *x1 _AND