diff options
author | michael <michael@3ae390bd-cb1e-0410-b409-cd5a39f66f1f> | 2007-01-20 06:58:56 +0000 |
---|---|---|
committer | michael <michael@3ae390bd-cb1e-0410-b409-cd5a39f66f1f> | 2007-01-20 06:58:56 +0000 |
commit | 38b070776b2e3270e3cf6d353913429e3b11cbc9 (patch) | |
tree | 96c8c1e7e4d6bea4febab8f764f92c27e8ed036c /evaluator.c | |
parent | ceb6fc010ee9f4fadbcbf3e3cdc481ec505cdc32 (diff) | |
download | lcd4linux-38b070776b2e3270e3cf6d353913429e3b11cbc9.tar.gz |
minor fixes to evaluator
git-svn-id: https://ssl.bulix.org/svn/lcd4linux/trunk@750 3ae390bd-cb1e-0410-b409-cd5a39f66f1f
Diffstat (limited to 'evaluator.c')
-rw-r--r-- | evaluator.c | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/evaluator.c b/evaluator.c index c4c46a5..e2b103f 100644 --- a/evaluator.c +++ b/evaluator.c @@ -310,6 +310,10 @@ double R2N(RESULT * result) return 0.0; } + if (result->type == 0) { + return 0.0; + } + if (result->type & R_NUMBER) { return result->number; } @@ -332,6 +336,10 @@ char *R2S(RESULT * result) return NULL; } + if (result->type == 0) { + return NULL; + } + if (result->type & R_STRING) { return result->string; } |