projects
/
pspp-builds.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
message: Give MSG_ values for categories and severities different prefixes
[pspp-builds.git]
/
src
/
language
/
expressions
/
helpers.c
diff --git
a/src/language/expressions/helpers.c
b/src/language/expressions/helpers.c
index 695c2335370cb19a46043f5e7d272ea04b21998d..7e9e1d6cb542f8b15216c31fe8d9e90788609259 100644
(file)
--- a/
src/language/expressions/helpers.c
+++ b/
src/language/expressions/helpers.c
@@
-30,8
+30,8
@@
expr_error (void *aux UNUSED, const char *format, ...)
struct msg m;
va_list args;
struct msg m;
va_list args;
- m.category = MSG_SYNTAX;
- m.severity = MSG_ERROR;
+ m.category = MSG_
C_
SYNTAX;
+ m.severity = MSG_
S_
ERROR;
va_start (args, format);
m.text = xvasprintf (format, args);
va_end (args);
va_start (args, format);
m.text = xvasprintf (format, args);
va_end (args);
@@
-589,7
+589,7
@@
ncdf_beta (double x, double a, double b, double lambda)
double
cdf_bvnor (double x0, double x1, double r)
{
double
cdf_bvnor (double x0, double x1, double r)
{
- double z =
x0 * x0 - 2. * r * x0 * x1 + x1 * x1
;
+ double z =
pow2 (x0) - 2. * r * x0 * x1 + pow2 (x1)
;
return exp (-z / (2. * (1 - r * r))) * (2. * M_PI * sqrt (1 - r * r));
}
return exp (-z / (2. * (1 - r * r))) * (2. * M_PI * sqrt (1 - r * r));
}