github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-26 03:51:32 +00:00
Code Issues Projects Releases Wiki Activity

Merge branch 'freebsd'

Browse Source
This commit is contained in:
Nick Briggs
2017-06-08 11:23:40 -07:00
parent 06b9d1fc1f 208bce9b40
commit 8d42e7791f
30 changed files with 178 additions and 193 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
inc/tosfns.h
View File

@@ -535,7 +535,7 @@ op_fn_common: \
LispPTR closure_env = (LispPTR) 0xffffffff; \
{register int NEXTBLOCK = NIL; \
defcell = fn_defcell; \
if( (defcell->ccodep == 0) ) \
if(defcell->ccodep == 0) { \
if(GetTypeNumber(defcell->defpointer)==TYPE_COMPILED_CLOSURE) \
{ /* setup closure */ \
closure=(CClosure *)Addr68k_from_LADDR(defcell->defpointer);\
@@ -550,6 +550,7 @@ op_fn_common: \
defcell = (DefCell *)GetDEFCELL68k(ATOM_INTERPRETER); \
needpush = 1; \
} /*else end */ \
} \
LOCFNCELL = (struct fnhead *)Addr68k_from_LADDR(defcell->defpointer); \
BCE_CURRENTFX->pc = ((UNSIGNED)PCMAC \
- (UNSIGNED)FuncObj) + fn_opcode_size; \

15
inc/xscroll.h Normal file
View File

@@ -0,0 +1,15 @@
/************************************************************************/
/* */
/* xscroll.h */
/* */
/* Scrolling functions implemented in xscroll.c */
/* */
/************************************************************************/
void Scroll(DspInterface dsp, int newX, int newY);
void JumpScrollVer(DspInterface dsp, int y);
void JumpScrollHor(DspInterface dsp, int x);
void ScrollLeft(DspInterface dsp);
void ScrollRight(DspInterface dsp);
void ScrollUp(DspInterface dsp);
void ScrollDown(DspInterface dsp);