version 1.62, 2003/08/01 08:11:26
|
version 1.63, 2003/08/04 20:32:36
|
Line 59
|
Line 59
|
#include <dl.h> |
#include <dl.h> |
#endif |
#endif |
|
|
|
#ifdef HAS_FFCALL |
|
#include <avcall.h> |
|
#include <callback.h> |
|
#endif |
|
|
#ifndef SEEK_SET |
#ifndef SEEK_SET |
/* should be defined in stdio.h, but some systems don't have it */ |
/* should be defined in stdio.h, but some systems don't have it */ |
#define SEEK_SET 0 |
#define SEEK_SET 0 |
Line 184 extern int gforth_memcmp(const char * s1
|
Line 189 extern int gforth_memcmp(const char * s1
|
} |
} |
#endif |
#endif |
|
|
|
#ifdef HAS_FFCALL |
|
#define SAVE_REGS IF_spTOS(sp[0]=spTOS); IF_fpTOS(fp[0]=fpTOS); SP=sp; FP=fp; RP=rp; LP=lp; |
|
#define REST_REGS sp=SP; fp=FP; rp=RP; lp=LP; IF_spTOS(spTOS=sp[0]); IF_fpTOS(fpTOS=fp[0]); |
|
#endif |
|
|
#if !defined(ENGINE) |
#if !defined(ENGINE) |
/* normal engine */ |
/* normal engine */ |
#define VARIANT(v) (v) |
#define VARIANT(v) (v) |
Line 212 extern int gforth_memcmp(const char * s1
|
Line 222 extern int gforth_memcmp(const char * s1
|
|
|
#define LABEL2(name) K_##name: |
#define LABEL2(name) K_##name: |
|
|
|
|
Label *engine(Xt *ip0, Cell *sp0, Cell *rp0, Float *fp0, Address lp0) |
Label *engine(Xt *ip0, Cell *sp0, Cell *rp0, Float *fp0, Address lp0) |
/* executes code at ip, if ip!=NULL |
/* executes code at ip, if ip!=NULL |
returns array of machine code labels (for use in a loader), if ip==NULL |
returns array of machine code labels (for use in a loader), if ip==NULL |
Line 231 Label *engine(Xt *ip0, Cell *sp0, Cell *
|
Line 240 Label *engine(Xt *ip0, Cell *sp0, Cell *
|
#ifdef MORE_VARS |
#ifdef MORE_VARS |
MORE_VARS |
MORE_VARS |
#endif |
#endif |
|
#ifdef HAS_FFCALL |
|
av_alist alist; |
|
extern va_alist clist; |
|
float frv; |
|
int irv; |
|
double drv; |
|
long long llrv; |
|
void * prv; |
|
#endif |
register Address up UPREG = UP; |
register Address up UPREG = UP; |
IF_spTOS(register Cell spTOS TOSREG;) |
IF_spTOS(register Cell spTOS TOSREG;) |
IF_fpTOS(register Float fpTOS FTOSREG;) |
IF_fpTOS(register Float fpTOS FTOSREG;) |