Mercurial > repos > rhope
comparison runtime/bool.c @ 56:d2f9b0a9403d
Initial experiment with goto and switch
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Thu, 08 Oct 2009 01:52:38 -0400 |
parents | 31f8182f3433 |
children | 04baa003de5a |
comparison
equal
deleted
inserted
replaced
38:7f05bbe82f24 | 56:d2f9b0a9403d |
---|---|
4 #include "context.h" | 4 #include "context.h" |
5 #include <stddef.h> | 5 #include <stddef.h> |
6 | 6 |
7 t_Boolean * val_yes; | 7 t_Boolean * val_yes; |
8 t_Boolean * val_no; | 8 t_Boolean * val_no; |
9 #define lval ((t_Boolean *)(cdata->params[0]))->val | |
10 | |
11 MethodNoLocals(If,Boolean, | |
12 NumParams 1, | |
13 CallSpace 1) | |
14 | |
15 Param(0, TYPE_BOOLEAN) | |
16 | |
17 if(lval) | |
18 { | |
19 Ret(1, NULL) | |
20 } else { | |
21 Ret(1, cdata->params[0]); | |
22 Ret(0, NULL) | |
23 } | |
24 EndFunc |