blob: 64b3c59a28bb5f1b44ace332e366290960603ca3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
diff -Naur gaul-devel-0.1849-0/tests/test_slang.c gaul-devel-0.1849-0.new/tests/test_slang.c
--- gaul-devel-0.1849-0/tests/test_slang.c 2003-08-19 17:41:20.000000000 -0400
+++ gaul-devel-0.1849-0.new/tests/test_slang.c 2008-02-09 10:42:43.000000000 -0500
@@ -287,10 +287,11 @@
*/
if (-1 == SLang_load_file(script_fname))
{
+ int error = SLang_get_error();
dief("Error %d interpreting the S-Lang script \"%s\".",
- SLang_Error, script_fname);
+ error, script_fname);
SLang_restart(1); /* reset interpreter. */
- SLang_Error = 0;
+ SLang_set_error(0);
return FALSE;
}
@@ -315,9 +316,10 @@
*/
if (-1 == SLang_load_file(NULL))
{
- dief("Error %d interpreting the SLang script from stdin.", SLang_Error);
+ int error = SLang_get_error();
+ dief("Error %d interpreting the SLang script from stdin.", error);
SLang_restart(1);
- SLang_Error = 0;
+ SLang_set_error(0);
return FALSE;
}
|
GitWeb
