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 |