Mercurial > repos > rhope
comparison runtime/bool.c @ 12:31f8182f3433
Finished fib test and did some small work on the c backend
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Mon, 25 May 2009 23:34:36 -0400 |
parents | |
children | a24eb366195c d2f9b0a9403d |
comparison
equal
deleted
inserted
replaced
11:3021dac0d8f5 | 12:31f8182f3433 |
---|---|
1 #include "bool.h" | |
2 #include "func.h" | |
3 #include "builtin.h" | |
4 #include "context.h" | |
5 #include <stddef.h> | |
6 | |
7 t_Boolean * val_yes; | |
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 |