mirror of https://github.com/lianthony/NT4.0
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
49 lines
1.6 KiB
49 lines
1.6 KiB
/*
|
|
* Name: j_c_lang.h
|
|
*
|
|
* Author: Simon Frost
|
|
*
|
|
* Created on: February 1994
|
|
*
|
|
* SccsID: @(#)j_c_lang.h 1.2 08/19/94
|
|
*
|
|
* Purpose: This file contains the necessary declarations for C
|
|
* files generated from J-code.
|
|
*
|
|
* (c)Copyright Insignia Solutions Ltd., 1994. All rights reserved.
|
|
*/
|
|
/* defines needed for basic types */
|
|
#define jccc_parm1 r2
|
|
#define jccc_parm2 r3
|
|
#define jccc_parm3 r4
|
|
#define jccc_parm4 r5
|
|
#define jccc_gdp r1
|
|
/* define variables (register replacements) used */
|
|
extern IUH rnull ; /* holder for a null arg in calls and null return args */
|
|
extern IUH r0, r1, r2, r3, r4, r5, r6, r7, r8, r9, r10,r11,r12,r13,r14,r15,
|
|
r16,r17,r18,r19,r20,r21,r22,r23,r24,r25,r26,r27,r28,r29,r30,r31;
|
|
|
|
/* prototypes for support functions - see j_c_lang.c ? how many are used */
|
|
extern IUH mask IPT2(IUH, bitpos, IUH, len);
|
|
extern IUH rorl IPT2(IUH, src, IUH, rots);
|
|
extern IUH rorw IPT2(IUH, src, IUH, rots);
|
|
extern IUH rorb IPT2(IUH, src, IUH, rots);
|
|
extern IUH roll IPT2(IUH, src, IUH, rots);
|
|
extern IUH rolw IPT2(IUH, src, IUH, rots);
|
|
extern IUH rolb IPT2(IUH, src, IUH, rots);
|
|
|
|
#ifdef LITTLEND
|
|
#define UOFF_15_8(a) (((IU8 *)(a))+1)
|
|
#define SOFF_15_8(a) (((IS8 *)(a))+1)
|
|
#define REGBYTE 0
|
|
#define REGWORD 0
|
|
#define REGLONG 0
|
|
#endif
|
|
#ifdef BIGEND
|
|
#define UOFF_15_8(a) ((IU8 *)(a) + sizeof(IUH)-2)
|
|
#define SOFF_15_8(a) ((IS8 *)(a) + sizeof(IUH)-2)
|
|
#define REGBYTE (sizeof(IUH) -1)
|
|
#define REGWORD (sizeof(IUH)/2 -1)
|
|
#define REGLONG (sizeof(IUH)/4 -1)
|
|
#endif
|
|
#define __J_C_LANG /* mark as already included */
|