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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
/* Compiled by KLIC compiler version 3.003 (Sun Mar 21 15:27:19 JST 1999) */
#include <klic/klichdr.h>
#include "atom.h"
#include "funct.h"
module module_klic__comp__version();
Const struct predicate predicate_klic__comp__version_xcompiler__version_1 =
{ module_klic__comp__version, 0, 1 };
Const struct predicate predicate_klic__comp__version_xcompiler__date_1 =
{ module_klic__comp__version, 1, 1 };
module module_klic__comp__version(glbl, qp, allocp, toppred)
struct global_variables *glbl;
struct goalrec *qp;
register q *allocp;
Const struct predicate *toppred;
{
q a0;
q *reasonp;
module_top:
a0 = qp->args[0];
switch_on_pred() {
case_pred(0, compiler__version_1_top);
last_case_pred(1, compiler__date_1_top);
}
compiler__version_1_top: {
q x0;
qp = qp->next;
compiler__version_1_clear_reason:
reasonp = reasons;
compiler__version_1_0:
x0 = makesym(atom_version_203_2E003);
unify_value(a0, x0);
proceed();
compiler__version_1_ext_interrupt:
reasonp = 0l;
compiler__version_1_interrupt:
goto interrupt_1;
}
compiler__date_1_top: {
q x0;
qp = qp->next;
compiler__date_1_clear_reason:
reasonp = reasons;
compiler__date_1_0:
x0 = makesym(atom_Mon_20Mar_2029_2019_3A42_3A59_20JST_201999);
unify_value(a0, x0);
proceed();
compiler__date_1_ext_interrupt:
reasonp = 0l;
compiler__date_1_interrupt:
goto interrupt_1;
}
interrupt_1:
allocp[2] = a0;
interrupt_0:
allocp = interrupt_goal(allocp, toppred, reasonp);
proceed_label:
loop_within_module(module_klic__comp__version);
}
|
