suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

CPP macro tweak (hopefully makes MSVC a little happier)

Browse Source 
svn: r11759
This commit is contained in:
Matthew Flatt 2008-09-15 19:33:46 +00:00
parent 186bf67630
commit 1482d7d7c6
29 changed files with 116 additions and 58 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/mred/wxs/wxs.xci
View File

@ -20,7 +20,9 @@
@MACRO CHECKOKFORDC[p.who] = if (x<p>) { if (!x<p>->Ok()) WITH_VAR_STACK(scheme_arg_mismatch(<who>, "bad bitmap: ", p[POFFSET+<p>])); if (BM_SELECTED(x<p>)) WITH_VAR_STACK(scheme_arg_mismatch(<who>, "bitmap is already installed into a bitmap-dc%: ", p[POFFSET+<p>])); if (BM_IN_USE(x<p>)) WITH_VAR_STACK(scheme_arg_mismatch(<who>, "bitmap is currently installed as a control label or pen/brush stipple: ", p[POFFSET+<p>])); }
#define ESCAPE_NO_RET_VAL /*empty*/
@MACRO JMPDECL = mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
@MACRO SETJMP = ESCAPE_BLOCK(/*empty*/)
@MACRO SETJMP = ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
@MACRO SETJMPV[rv] = ESCAPE_BLOCK(<rv>)
@MACRO RESETJMP = { thread = scheme_get_current_thread(); thread->error_buf = savebuf; }

2
src/mred/wxs/wxs_bmap.cxx
View File

@ -25,6 +25,8 @@
#define ESCAPE_NO_RET_VAL /*empty*/
#include "wxscheme.h"
#include "wxs_bmap.h"

8
src/mred/wxs/wxs_butn.cxx
View File

@ -25,6 +25,8 @@
#define ESCAPE_NO_RET_VAL /*empty*/
#include "wxscheme.h"
#include "wxs_butn.h"
@ -193,7 +195,7 @@ void os_wxButton::OnDropFile(epathname x0)
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
p[POFFSET+0] = WITH_VAR_STACK(objscheme_bundle_pathname((char *)x0));
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+1, p));
@ -349,7 +351,7 @@ void os_wxButton::OnSetFocus()
READY_TO_RETURN; ASSELF wxButton::OnSetFocus();
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+0, p));
@ -383,7 +385,7 @@ void os_wxButton::OnKillFocus()
READY_TO_RETURN; ASSELF wxButton::OnKillFocus();
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+0, p));

8
src/mred/wxs/wxs_chce.cxx
View File

@ -31,6 +31,8 @@ void wxSetComboBoxFont(wxFont *f)
#define ESCAPE_NO_RET_VAL /*empty*/
#include "wxscheme.h"
#include "wxs_chce.h"
@ -316,7 +318,7 @@ void os_wxChoice::OnDropFile(epathname x0)
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
p[POFFSET+0] = WITH_VAR_STACK(objscheme_bundle_pathname((char *)x0));
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+1, p));
@ -472,7 +474,7 @@ void os_wxChoice::OnSetFocus()
READY_TO_RETURN; ASSELF wxChoice::OnSetFocus();
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+0, p));
@ -506,7 +508,7 @@ void os_wxChoice::OnKillFocus()
READY_TO_RETURN; ASSELF wxChoice::OnKillFocus();
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+0, p));

8
src/mred/wxs/wxs_ckbx.cxx
View File

@ -25,6 +25,8 @@
#define ESCAPE_NO_RET_VAL /*empty*/
#include "wxscheme.h"
#include "wxs_ckbx.h"
@ -197,7 +199,7 @@ void os_wxCheckBox::OnDropFile(epathname x0)
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
p[POFFSET+0] = WITH_VAR_STACK(objscheme_bundle_pathname((char *)x0));
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+1, p));
@ -353,7 +355,7 @@ void os_wxCheckBox::OnSetFocus()
READY_TO_RETURN; ASSELF wxCheckBox::OnSetFocus();
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+0, p));
@ -387,7 +389,7 @@ void os_wxCheckBox::OnKillFocus()
READY_TO_RETURN; ASSELF wxCheckBox::OnKillFocus();
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+0, p));

16
src/mred/wxs/wxs_cnvs.cxx
View File

@ -27,6 +27,8 @@
#define ESCAPE_NO_RET_VAL /*empty*/
#include "wxscheme.h"
#include "wxs_cnvs.h"
@ -267,7 +269,7 @@ void os_wxCanvas::OnDropFile(epathname x0)
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
p[POFFSET+0] = WITH_VAR_STACK(objscheme_bundle_pathname((char *)x0));
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+1, p));
@ -423,7 +425,7 @@ void os_wxCanvas::OnSetFocus()
READY_TO_RETURN; ASSELF wxCanvas::OnSetFocus();
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+0, p));
@ -457,7 +459,7 @@ void os_wxCanvas::OnKillFocus()
READY_TO_RETURN; ASSELF wxCanvas::OnKillFocus();
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+0, p));
@ -493,7 +495,7 @@ void os_wxCanvas::OnScroll(class wxScrollEvent* x0)
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
p[POFFSET+0] = WITH_VAR_STACK(objscheme_bundle_wxScrollEvent(x0));
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+1, p));
@ -529,7 +531,7 @@ void os_wxCanvas::OnChar(class wxKeyEvent* x0)
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
p[POFFSET+0] = WITH_VAR_STACK(objscheme_bundle_wxKeyEvent(x0));
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+1, p));
@ -565,7 +567,7 @@ void os_wxCanvas::OnEvent(class wxMouseEvent* x0)
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
p[POFFSET+0] = WITH_VAR_STACK(objscheme_bundle_wxMouseEvent(x0));
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+1, p));
@ -599,7 +601,7 @@ void os_wxCanvas::OnPaint()
READY_TO_RETURN; ASSELF wxCanvas::OnPaint();
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+0, p));

2
src/mred/wxs/wxs_dc.cxx
View File

@ -66,6 +66,8 @@ void wxGL::ThisContextCurrent(void) { }
#define ESCAPE_NO_RET_VAL /*empty*/
#include "wxscheme.h"
#include "wxs_dc.h"

2
src/mred/wxs/wxs_evnt.cxx
View File

@ -96,6 +96,8 @@ wxMouseEvent_ext::wxMouseEvent_ext(int et, int ld, int mdd, int rd, int xv, int
#define ESCAPE_NO_RET_VAL /*empty*/
#include "wxscheme.h"
#include "wxs_evnt.h"

10
src/mred/wxs/wxs_fram.cxx
View File

@ -26,6 +26,8 @@
#define ESCAPE_NO_RET_VAL /*empty*/
#include "wxscheme.h"
#include "wxs_fram.h"
@ -258,7 +260,7 @@ void os_wxFrame::OnDropFile(epathname x0)
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
p[POFFSET+0] = WITH_VAR_STACK(objscheme_bundle_pathname((char *)x0));
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+1, p));
@ -414,7 +416,7 @@ void os_wxFrame::OnSetFocus()
READY_TO_RETURN; ASSELF wxFrame::OnSetFocus();
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+0, p));
@ -448,7 +450,7 @@ void os_wxFrame::OnKillFocus()
READY_TO_RETURN; ASSELF wxFrame::OnKillFocus();
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+0, p));
@ -660,7 +662,7 @@ void os_wxFrame::OnActivate(Bool x0)
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
p[POFFSET+0] = (x0 ? scheme_true : scheme_false);
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+1, p));

8
src/mred/wxs/wxs_gage.cxx
View File

@ -25,6 +25,8 @@
#define ESCAPE_NO_RET_VAL /*empty*/
#include "wxscheme.h"
#include "wxs_gage.h"
@ -203,7 +205,7 @@ void os_wxsGauge::OnDropFile(epathname x0)
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
p[POFFSET+0] = WITH_VAR_STACK(objscheme_bundle_pathname((char *)x0));
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+1, p));
@ -359,7 +361,7 @@ void os_wxsGauge::OnSetFocus()
READY_TO_RETURN; ASSELF wxsGauge::OnSetFocus();
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+0, p));
@ -393,7 +395,7 @@ void os_wxsGauge::OnKillFocus()
READY_TO_RETURN; ASSELF wxsGauge::OnKillFocus();
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+0, p));

2
src/mred/wxs/wxs_gdi.cxx
View File

@ -31,6 +31,8 @@
#define ESCAPE_NO_RET_VAL /*empty*/
#include "wxscheme.h"
#include "wxs_gdi.h"

2
src/mred/wxs/wxs_glob.cxx
View File

@ -34,6 +34,8 @@
#define ESCAPE_NO_RET_VAL /*empty*/
#include "wxscheme.h"
#include "wxs_glob.h"

8
src/mred/wxs/wxs_item.cxx
View File

@ -26,6 +26,8 @@
#define ESCAPE_NO_RET_VAL /*empty*/
#include "wxscheme.h"
#include "wxs_item.h"
@ -397,7 +399,7 @@ void os_wxMessage::OnDropFile(epathname x0)
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
p[POFFSET+0] = WITH_VAR_STACK(objscheme_bundle_pathname((char *)x0));
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+1, p));
@ -553,7 +555,7 @@ void os_wxMessage::OnSetFocus()
READY_TO_RETURN; ASSELF wxMessage::OnSetFocus();
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+0, p));
@ -587,7 +589,7 @@ void os_wxMessage::OnKillFocus()
READY_TO_RETURN; ASSELF wxMessage::OnKillFocus();
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+0, p));

8
src/mred/wxs/wxs_lbox.cxx
View File

@ -25,6 +25,8 @@
#define ESCAPE_NO_RET_VAL /*empty*/
#include "wxscheme.h"
#include "wxs_lbox.h"
@ -354,7 +356,7 @@ void os_wxListBox::OnDropFile(epathname x0)
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
p[POFFSET+0] = WITH_VAR_STACK(objscheme_bundle_pathname((char *)x0));
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+1, p));
@ -510,7 +512,7 @@ void os_wxListBox::OnSetFocus()
READY_TO_RETURN; ASSELF wxListBox::OnSetFocus();
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+0, p));
@ -544,7 +546,7 @@ void os_wxListBox::OnKillFocus()
READY_TO_RETURN; ASSELF wxListBox::OnKillFocus();
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+0, p));

14
src/mred/wxs/wxs_madm.cxx
View File

@ -27,6 +27,8 @@
#define ESCAPE_NO_RET_VAL /*empty*/
#include "wxscheme.h"
#include "wxs_madm.h"
@ -309,7 +311,7 @@ void os_wxMediaCanvas::OnChar(class wxKeyEvent* x0)
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
p[POFFSET+0] = WITH_VAR_STACK(objscheme_bundle_wxKeyEvent(x0));
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+1, p));
@ -345,7 +347,7 @@ void os_wxMediaCanvas::OnEvent(class wxMouseEvent* x0)
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
p[POFFSET+0] = WITH_VAR_STACK(objscheme_bundle_wxMouseEvent(x0));
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+1, p));
@ -379,7 +381,7 @@ void os_wxMediaCanvas::OnPaint()
READY_TO_RETURN; ASSELF wxMediaCanvas::OnPaint();
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+0, p));
@ -415,7 +417,7 @@ void os_wxMediaCanvas::OnDropFile(epathname x0)
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
p[POFFSET+0] = WITH_VAR_STACK(objscheme_bundle_pathname((char *)x0));
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+1, p));
@ -571,7 +573,7 @@ void os_wxMediaCanvas::OnSetFocus()
READY_TO_RETURN; ASSELF wxMediaCanvas::OnSetFocus();
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+0, p));
@ -605,7 +607,7 @@ void os_wxMediaCanvas::OnKillFocus()
READY_TO_RETURN; ASSELF wxMediaCanvas::OnKillFocus();
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+0, p));

2
src/mred/wxs/wxs_mede.cxx
View File

@ -25,6 +25,8 @@
#define ESCAPE_NO_RET_VAL /*empty*/
#include "wxscheme.h"
#include "wxs_mede.h"

2
src/mred/wxs/wxs_medi.cxx
View File

@ -25,6 +25,8 @@
#define ESCAPE_NO_RET_VAL /*empty*/
#include "wxscheme.h"
#include "wxs_medi.h"

2
src/mred/wxs/wxs_menu.cxx
View File

@ -32,6 +32,8 @@ START_XFORM_SKIP;
#define ESCAPE_NO_RET_VAL /*empty*/
#ifdef wx_mac
# define MAC_UNUSED(x) /**/

2
src/mred/wxs/wxs_mio.cxx
View File

@ -26,6 +26,8 @@
#define ESCAPE_NO_RET_VAL /*empty*/
#include "wxscheme.h"
#include "wxs_mio.h"

2
src/mred/wxs/wxs_misc.cxx
View File

@ -32,6 +32,8 @@
#define ESCAPE_NO_RET_VAL /*empty*/
#include "wxscheme.h"
#include "wxs_misc.h"

2
src/mred/wxs/wxs_mpb.cxx
View File

@ -25,6 +25,8 @@
#define ESCAPE_NO_RET_VAL /*empty*/
#include "wxscheme.h"
#include "wxs_mpb.h"

2
src/mred/wxs/wxs_obj.cxx
View File

@ -25,6 +25,8 @@
#define ESCAPE_NO_RET_VAL /*empty*/
#include "wxscheme.h"
#include "wxs_obj.h"

16
src/mred/wxs/wxs_panl.cxx
View File

@ -27,6 +27,8 @@
#define ESCAPE_NO_RET_VAL /*empty*/
#include "wxscheme.h"
#include "wxs_panl.h"
@ -225,7 +227,7 @@ void os_wxPanel::OnDropFile(epathname x0)
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
p[POFFSET+0] = WITH_VAR_STACK(objscheme_bundle_pathname((char *)x0));
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+1, p));
@ -381,7 +383,7 @@ void os_wxPanel::OnSetFocus()
READY_TO_RETURN; ASSELF wxPanel::OnSetFocus();
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+0, p));
@ -415,7 +417,7 @@ void os_wxPanel::OnKillFocus()
READY_TO_RETURN; ASSELF wxPanel::OnKillFocus();
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+0, p));
@ -1159,7 +1161,7 @@ void os_wxDialogBox::OnDropFile(epathname x0)
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
p[POFFSET+0] = WITH_VAR_STACK(objscheme_bundle_pathname((char *)x0));
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+1, p));
@ -1315,7 +1317,7 @@ void os_wxDialogBox::OnSetFocus()
READY_TO_RETURN; ASSELF wxDialogBox::OnSetFocus();
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+0, p));
@ -1349,7 +1351,7 @@ void os_wxDialogBox::OnKillFocus()
READY_TO_RETURN; ASSELF wxDialogBox::OnKillFocus();
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+0, p));
@ -1423,7 +1425,7 @@ void os_wxDialogBox::OnActivate(Bool x0)
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
p[POFFSET+0] = (x0 ? scheme_true : scheme_false);
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+1, p));

8
src/mred/wxs/wxs_rado.cxx
View File

@ -25,6 +25,8 @@
#define ESCAPE_NO_RET_VAL /*empty*/
#include "wxscheme.h"
#include "wxs_rado.h"
@ -420,7 +422,7 @@ void os_wxRadioBox::OnDropFile(epathname x0)
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
p[POFFSET+0] = WITH_VAR_STACK(objscheme_bundle_pathname((char *)x0));
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+1, p));
@ -576,7 +578,7 @@ void os_wxRadioBox::OnSetFocus()
READY_TO_RETURN; ASSELF wxRadioBox::OnSetFocus();
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+0, p));
@ -610,7 +612,7 @@ void os_wxRadioBox::OnKillFocus()
READY_TO_RETURN; ASSELF wxRadioBox::OnKillFocus();
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+0, p));

8
src/mred/wxs/wxs_slid.cxx
View File

@ -25,6 +25,8 @@
#define ESCAPE_NO_RET_VAL /*empty*/
#include "wxscheme.h"
#include "wxs_slid.h"
@ -191,7 +193,7 @@ void os_wxSlider::OnDropFile(epathname x0)
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
p[POFFSET+0] = WITH_VAR_STACK(objscheme_bundle_pathname((char *)x0));
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+1, p));
@ -347,7 +349,7 @@ void os_wxSlider::OnSetFocus()
READY_TO_RETURN; ASSELF wxSlider::OnSetFocus();
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+0, p));
@ -381,7 +383,7 @@ void os_wxSlider::OnKillFocus()
READY_TO_RETURN; ASSELF wxSlider::OnKillFocus();
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+0, p));

2
src/mred/wxs/wxs_snip.cxx
View File

@ -25,6 +25,8 @@
#define ESCAPE_NO_RET_VAL /*empty*/
#include "wxscheme.h"
#include "wxs_snip.h"

2
src/mred/wxs/wxs_styl.cxx
View File

@ -26,6 +26,8 @@
#define ESCAPE_NO_RET_VAL /*empty*/
#include "wxscheme.h"
#include "wxs_styl.h"

14
src/mred/wxs/wxs_tabc.cxx
View File

@ -28,6 +28,8 @@
#define ESCAPE_NO_RET_VAL /*empty*/
#ifdef wx_xt
/* This calls won't be instantiated, but it must compile. */
@ -339,7 +341,7 @@ void os_wxTabChoice::OnDropFile(epathname x0)
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
p[POFFSET+0] = WITH_VAR_STACK(objscheme_bundle_pathname((char *)x0));
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+1, p));
@ -495,7 +497,7 @@ void os_wxTabChoice::OnSetFocus()
READY_TO_RETURN; ASSELF wxTabChoice::OnSetFocus();
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+0, p));
@ -529,7 +531,7 @@ void os_wxTabChoice::OnKillFocus()
READY_TO_RETURN; ASSELF wxTabChoice::OnKillFocus();
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+0, p));
@ -1188,7 +1190,7 @@ void os_wxGroupBox::OnDropFile(epathname x0)
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
p[POFFSET+0] = WITH_VAR_STACK(objscheme_bundle_pathname((char *)x0));
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+1, p));
@ -1344,7 +1346,7 @@ void os_wxGroupBox::OnSetFocus()
READY_TO_RETURN; ASSELF wxGroupBox::OnSetFocus();
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+0, p));
@ -1378,7 +1380,7 @@ void os_wxGroupBox::OnKillFocus()
READY_TO_RETURN; ASSELF wxGroupBox::OnKillFocus();
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+0, p));

8
src/mred/wxs/wxs_win.cxx
View File

@ -27,6 +27,8 @@
#define ESCAPE_NO_RET_VAL /*empty*/
#include "wxscheme.h"
#include "wxs_win.h"
@ -255,7 +257,7 @@ void os_wxWindow::OnDropFile(epathname x0)
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
p[POFFSET+0] = WITH_VAR_STACK(objscheme_bundle_pathname((char *)x0));
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+1, p));
@ -411,7 +413,7 @@ void os_wxWindow::OnSetFocus()
{ READY_TO_RETURN; return; }
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+0, p));
@ -445,7 +447,7 @@ void os_wxWindow::OnKillFocus()
{ READY_TO_RETURN; return; }
} else {
mz_jmp_buf *savebuf, newbuf; Scheme_Thread *thread;
ESCAPE_BLOCK(/*empty*/)
ESCAPE_BLOCK(ESCAPE_NO_RET_VAL)
p[0] = (Scheme_Object *) ASSELF __gc_external;
v = WITH_VAR_STACK(scheme_apply(method, POFFSET+0, p));