Mercurial > repos > rhope

comparison runtime/bool.c @ 56:d2f9b0a9403d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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