API tools faq
paste
Advertisement
logicmoo

Guile-Log

logicmoo
Oct 9th, 2018
545
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Prolog 29.01 KB | None | 0 0
raw download clone embed print report
  1. root@gitlab:/opt/RefGitHub/GuileMoo/guile-log# make
  2. make  all-recursive
  3. make[1]: Entering directory '/opt/RefGitHub/GuileMoo/guile-log'
  4. Making all in logic/guile-log/src/
  5. make[2]: Entering directory '/opt/RefGitHub/GuileMoo/guile-log/logic/guile-log/src'
  6. make  all-am
  7. make[3]: Entering directory '/opt/RefGitHub/GuileMoo/guile-log/logic/guile-log/src'
  8.   CC       libguile_log_la-unify.lo
  9. In file included from /usr/local/include/guile/3.0/libguile/pairs.h:26:0,
  10.                  from /usr/local/include/guile/3.0/libguile/alist.h:26,
  11.                  from /usr/local/include/guile/3.0/libguile.h:34,
  12.                  from unify.c:19:
  13. variable.c: In function ‘gp_make_variable’:
  14. variable.c:96:29: error: ‘SCM_UNBOUND’ undeclared (first use in this function)
  15.    SCM_SET_CELL_WORD_1 (ret, SCM_UNBOUND);
  16.                              ^
  17. /usr/local/include/guile/3.0/libguile/gc.h:49:72: note: in definition of macro ‘SCM_GC_SET_CELL_OBJECT’
  18.  #define SCM_GC_SET_CELL_OBJECT(x, n, v) ((((SCM *)SCM2PTR (x)) [n]) = (v))
  19.                                                                         ^
  20. /usr/local/include/guile/3.0/libguile/gc.h:51:38: note: in expansion of macro ‘SCM_PACK’
  21.    (SCM_GC_SET_CELL_OBJECT ((x), (n), SCM_PACK (v)))
  22.                                       ^
  23. /usr/local/include/guile/3.0/libguile/gc.h:67:36: note: in expansion of macro ‘SCM_GC_SET_CELL_WORD’
  24.  #define SCM_SET_CELL_WORD(x, n, v) SCM_GC_SET_CELL_WORD ((x), (n), (v))
  25.                                     ^
  26. /usr/local/include/guile/3.0/libguile/gc.h:69:35: note: in expansion of macro ‘SCM_SET_CELL_WORD’
  27.  #define SCM_SET_CELL_WORD_1(x, v) SCM_SET_CELL_WORD ((x), 1, (v))
  28.                                    ^
  29. variable.c:96:3: note: in expansion of macro ‘SCM_SET_CELL_WORD_1’
  30.    SCM_SET_CELL_WORD_1 (ret, SCM_UNBOUND);
  31.    ^
  32. variable.c:96:29: note: each undeclared identifier is reported only once for each function it appears in
  33.    SCM_SET_CELL_WORD_1 (ret, SCM_UNBOUND);
  34.                              ^
  35. /usr/local/include/guile/3.0/libguile/gc.h:49:72: note: in definition of macro ‘SCM_GC_SET_CELL_OBJECT’
  36.  #define SCM_GC_SET_CELL_OBJECT(x, n, v) ((((SCM *)SCM2PTR (x)) [n]) = (v))
  37.                                                                         ^
  38. /usr/local/include/guile/3.0/libguile/gc.h:51:38: note: in expansion of macro ‘SCM_PACK’
  39.    (SCM_GC_SET_CELL_OBJECT ((x), (n), SCM_PACK (v)))
  40.                                       ^
  41. /usr/local/include/guile/3.0/libguile/gc.h:67:36: note: in expansion of macro ‘SCM_GC_SET_CELL_WORD’
  42.  #define SCM_SET_CELL_WORD(x, n, v) SCM_GC_SET_CELL_WORD ((x), (n), (v))
  43.                                     ^
  44. /usr/local/include/guile/3.0/libguile/gc.h:69:35: note: in expansion of macro ‘SCM_SET_CELL_WORD’
  45.  #define SCM_SET_CELL_WORD_1(x, v) SCM_SET_CELL_WORD ((x), 1, (v))
  46.                                    ^
  47. variable.c:96:3: note: in expansion of macro ‘SCM_SET_CELL_WORD_1’
  48.    SCM_SET_CELL_WORD_1 (ret, SCM_UNBOUND);
  49.    ^
  50. variable.c: In function ‘gp_make_variable_id’:
  51. variable.c:108:29: error: ‘SCM_UNBOUND’ undeclared (first use in this function)
  52.    SCM_SET_CELL_WORD_1 (ret, SCM_UNBOUND);
  53.                              ^
  54. /usr/local/include/guile/3.0/libguile/gc.h:49:72: note: in definition of macro ‘SCM_GC_SET_CELL_OBJECT’
  55.  #define SCM_GC_SET_CELL_OBJECT(x, n, v) ((((SCM *)SCM2PTR (x)) [n]) = (v))
  56.                                                                         ^
  57. /usr/local/include/guile/3.0/libguile/gc.h:51:38: note: in expansion of macro ‘SCM_PACK’
  58.    (SCM_GC_SET_CELL_OBJECT ((x), (n), SCM_PACK (v)))
  59.                                       ^
  60. /usr/local/include/guile/3.0/libguile/gc.h:67:36: note: in expansion of macro ‘SCM_GC_SET_CELL_WORD’
  61.  #define SCM_SET_CELL_WORD(x, n, v) SCM_GC_SET_CELL_WORD ((x), (n), (v))
  62.                                     ^
  63. /usr/local/include/guile/3.0/libguile/gc.h:69:35: note: in expansion of macro ‘SCM_SET_CELL_WORD’
  64.  #define SCM_SET_CELL_WORD_1(x, v) SCM_SET_CELL_WORD ((x), 1, (v))
  65.                                    ^
  66. variable.c:108:3: note: in expansion of macro ‘SCM_SET_CELL_WORD_1’
  67.    SCM_SET_CELL_WORD_1 (ret, SCM_UNBOUND);
  68.    ^
  69. variable.c: In function ‘gp_make_cons’:
  70. variable.c:119:29: error: ‘SCM_UNBOUND’ undeclared (first use in this function)
  71.    SCM_SET_CELL_WORD_2 (ret, SCM_UNBOUND);
  72.                              ^
  73. /usr/local/include/guile/3.0/libguile/gc.h:49:72: note: in definition of macro ‘SCM_GC_SET_CELL_OBJECT’
  74.  #define SCM_GC_SET_CELL_OBJECT(x, n, v) ((((SCM *)SCM2PTR (x)) [n]) = (v))
  75.                                                                         ^
  76. /usr/local/include/guile/3.0/libguile/gc.h:51:38: note: in expansion of macro ‘SCM_PACK’
  77.    (SCM_GC_SET_CELL_OBJECT ((x), (n), SCM_PACK (v)))
  78.                                       ^
  79. /usr/local/include/guile/3.0/libguile/gc.h:67:36: note: in expansion of macro ‘SCM_GC_SET_CELL_WORD’
  80.  #define SCM_SET_CELL_WORD(x, n, v) SCM_GC_SET_CELL_WORD ((x), (n), (v))
  81.                                     ^
  82. /usr/local/include/guile/3.0/libguile/gc.h:70:35: note: in expansion of macro ‘SCM_SET_CELL_WORD’
  83.  #define SCM_SET_CELL_WORD_2(x, v) SCM_SET_CELL_WORD ((x), 2, (v))
  84.                                    ^
  85. variable.c:119:3: note: in expansion of macro ‘SCM_SET_CELL_WORD_2’
  86.    SCM_SET_CELL_WORD_2 (ret, SCM_UNBOUND);
  87.    ^
  88. variable.c: In function ‘gp_make_cons_id’:
  89. variable.c:130:29: error: ‘SCM_UNBOUND’ undeclared (first use in this function)
  90.    SCM_SET_CELL_WORD_2 (ret, SCM_UNBOUND);
  91.                              ^
  92. /usr/local/include/guile/3.0/libguile/gc.h:49:72: note: in definition of macro ‘SCM_GC_SET_CELL_OBJECT’
  93.  #define SCM_GC_SET_CELL_OBJECT(x, n, v) ((((SCM *)SCM2PTR (x)) [n]) = (v))
  94.                                                                         ^
  95. /usr/local/include/guile/3.0/libguile/gc.h:51:38: note: in expansion of macro ‘SCM_PACK’
  96.    (SCM_GC_SET_CELL_OBJECT ((x), (n), SCM_PACK (v)))
  97.                                       ^
  98. /usr/local/include/guile/3.0/libguile/gc.h:67:36: note: in expansion of macro ‘SCM_GC_SET_CELL_WORD’
  99.  #define SCM_SET_CELL_WORD(x, n, v) SCM_GC_SET_CELL_WORD ((x), (n), (v))
  100.                                     ^
  101. /usr/local/include/guile/3.0/libguile/gc.h:70:35: note: in expansion of macro ‘SCM_SET_CELL_WORD’
  102.  #define SCM_SET_CELL_WORD_2(x, v) SCM_SET_CELL_WORD ((x), 2, (v))
  103.                                    ^
  104. variable.c:130:3: note: in expansion of macro ‘SCM_SET_CELL_WORD_2’
  105.    SCM_SET_CELL_WORD_2 (ret, SCM_UNBOUND);
  106.    ^
  107. In file included from /usr/local/include/guile/3.0/libguile.h:33:0,
  108.                  from unify.c:19:
  109. state.c: In function ‘GP_VAL_UNBOUND’:
  110. state.c:57:22: error: ‘SCM_UNBOUND’ undeclared (first use in this function)
  111.     if(scm_is_eq(f[1],SCM_UNBOUND))
  112.                       ^
  113. /usr/local/include/guile/3.0/libguile/scm.h:171:64: note: in definition of macro ‘SCM_UNPACK’
  114.  #  define SCM_UNPACK(x) ((scm_t_bits) (0? (*(volatile SCM *)0=(x)): x))
  115.                                                                 ^
  116. state.c:57:7: note: in expansion of macro ‘scm_is_eq’
  117.     if(scm_is_eq(f[1],SCM_UNBOUND))
  118.        ^
  119. In file included from unify.c:318:0:
  120. state.c: In function ‘init_gp_var’:
  121. state.c:169:13: error: ‘SCM_UNBOUND’ undeclared (first use in this function)
  122.    cand[1] = SCM_UNBOUND;
  123.              ^
  124. In file included from unify.c:318:0:
  125. state.c: In function ‘gp_stack_mark0’:
  126. state.c:712:24: error: ‘SCM_UNBOUND’ undeclared (first use in this function)
  127.     GP_GETREF(*pt)[1] = SCM_UNBOUND;
  128.                         ^
  129. state.c: In function ‘gp_clear_marks’:
  130. state.c:947:15: error: ‘SCM_UNBOUND’ undeclared (first use in this function)
  131.         f[1] = SCM_UNBOUND;
  132.                ^
  133. state.c: In function ‘gp_sweep_handle’:
  134. state.c:1130:10: error: ‘SCM_UNBOUND’ undeclared (first use in this function)
  135.    f[1] = SCM_UNBOUND;
  136.           ^
  137. In file included from unify.c:348:0:
  138. logical.c: In function ‘make_logical’:
  139. logical.c:42:15: error: ‘SCM_UNBOUND’ undeclared (first use in this function)
  140.    *(id + 1) = SCM_UNBOUND;
  141.                ^
  142. unify.c: In function ‘gp_set_unbound’:
  143. unify.c:794:28: error: ‘SCM_UNBOUND’ undeclared (first use in this function)
  144.    return handle(id, flags, SCM_UNBOUND, l, gp, 0, 0);
  145.                             ^
  146. unify.c: In function ‘gp_set_unbound_bang’:
  147. unify.c:803:28: error: ‘SCM_UNBOUND’ undeclared (first use in this function)
  148.    return handle(id, flags, SCM_UNBOUND, l, gp, 0, 1);
  149.                             ^
  150. In file included from /usr/local/include/guile/3.0/libguile.h:33:0,
  151.                  from unify.c:19:
  152. unify.c: In function ‘gp_lookup’:
  153. unify.c:915:22: error: ‘SCM_UNBOUND’ undeclared (first use in this function)
  154.       && !scm_is_eq(l,SCM_UNBOUND)) goto advanced;
  155.                       ^
  156. /usr/local/include/guile/3.0/libguile/scm.h:171:64: note: in definition of macro ‘SCM_UNPACK’
  157.  #  define SCM_UNPACK(x) ((scm_t_bits) (0? (*(volatile SCM *)0=(x)): x))
  158.                                                                 ^
  159. unify.c:915:10: note: in expansion of macro ‘scm_is_eq’
  160.       && !scm_is_eq(l,SCM_UNBOUND)) goto advanced;
  161.           ^
  162. unify.c: In function ‘gp_lookup2’:
  163. unify.c:988:36: error: ‘SCM_UNBOUND’ undeclared (first use in this function)
  164.    if(!SCM_NULLP(l) && !scm_is_eq(l,SCM_UNBOUND)) goto advanced;
  165.                                     ^
  166. /usr/local/include/guile/3.0/libguile/scm.h:171:64: note: in definition of macro ‘SCM_UNPACK’
  167.  #  define SCM_UNPACK(x) ((scm_t_bits) (0? (*(volatile SCM *)0=(x)): x))
  168.                                                                 ^
  169. unify.c:988:24: note: in expansion of macro ‘scm_is_eq’
  170.    if(!SCM_NULLP(l) && !scm_is_eq(l,SCM_UNBOUND)) goto advanced;
  171.                         ^
  172. unify.c: In function ‘gp_lookup_ll’:
  173. unify.c:1104:38: error: ‘SCM_UNBOUND’ undeclared (first use in this function)
  174.    if(!SCM_NULLP(*l) && !scm_is_eq(*l,SCM_UNBOUND)) goto advanced;
  175.                                       ^
  176. /usr/local/include/guile/3.0/libguile/scm.h:171:64: note: in definition of macro ‘SCM_UNPACK’
  177.  #  define SCM_UNPACK(x) ((scm_t_bits) (0? (*(volatile SCM *)0=(x)): x))
  178.                                                                 ^
  179. unify.c:1104:25: note: in expansion of macro ‘scm_is_eq’
  180.    if(!SCM_NULLP(*l) && !scm_is_eq(*l,SCM_UNBOUND)) goto advanced;
  181.                          ^
  182. unify.c: In function ‘gp_newframe’:
  183. unify.c:1276:19: error: ‘SCM_UNBOUND’ undeclared (first use in this function)
  184.    if(scm_is_eq(l, SCM_UNBOUND))
  185.                    ^
  186. /usr/local/include/guile/3.0/libguile/scm.h:171:64: note: in definition of macro ‘SCM_UNPACK’
  187.  #  define SCM_UNPACK(x) ((scm_t_bits) (0? (*(volatile SCM *)0=(x)): x))
  188.                                                                 ^
  189. unify.c:1276:6: note: in expansion of macro ‘scm_is_eq’
  190.    if(scm_is_eq(l, SCM_UNBOUND))
  191.       ^
  192. unify.c: In function ‘gp_newframe_choice’:
  193. unify.c:1339:19: error: ‘SCM_UNBOUND’ undeclared (first use in this function)
  194.    if(scm_is_eq(l, SCM_UNBOUND))
  195.                    ^
  196. /usr/local/include/guile/3.0/libguile/scm.h:171:64: note: in definition of macro ‘SCM_UNPACK’
  197.  #  define SCM_UNPACK(x) ((scm_t_bits) (0? (*(volatile SCM *)0=(x)): x))
  198.                                                                 ^
  199. unify.c:1339:6: note: in expansion of macro ‘scm_is_eq’
  200.    if(scm_is_eq(l, SCM_UNBOUND))
  201.       ^
  202. unify.c: In function ‘gp_mk_var’:
  203. unify.c:1402:16: error: ‘SCM_UNBOUND’ undeclared (first use in this function)
  204.    *(ret + 1) = SCM_UNBOUND;
  205.                 ^
  206. In file included from /usr/local/include/guile/3.0/libguile.h:33:0,
  207.                  from unify.c:19:
  208. unify.c: In function ‘gp_unify’:
  209. unify.c:1780:19: error: ‘SCM_UNBOUND’ undeclared (first use in this function)
  210.    if(scm_is_eq(*l,SCM_UNBOUND))
  211.                    ^
  212. /usr/local/include/guile/3.0/libguile/scm.h:171:64: note: in definition of macro ‘SCM_UNPACK’
  213.  #  define SCM_UNPACK(x) ((scm_t_bits) (0? (*(volatile SCM *)0=(x)): x))
  214.                                                                 ^
  215. unify.c:1780:6: note: in expansion of macro ‘scm_is_eq’
  216.    if(scm_is_eq(*l,SCM_UNBOUND))
  217.       ^
  218. In file included from unify.c:3568:0:
  219. unify-undo-redo.c: In function ‘gp_handle’:
  220. unify-undo-redo.c:148:12: error: ‘SCM_UNBOUND’ undeclared (first use in this function)
  221.     id[1] = SCM_UNBOUND;
  222.             ^
  223. unify-undo-redo.c: In function ‘gp_unwind0’:
  224. unify-undo-redo.c:689:15: error: ‘SCM_UNBOUND’ undeclared (first use in this function)
  225.        id[1] = SCM_UNBOUND;
  226.                ^
  227. unify.c: In function ‘gp_make_null_procedure’:
  228. unify.c:3950:3: warning: ‘scm_t_uintptr’ is deprecated [-Wdeprecated-declarations]
  229.    scm_t_uintptr a = scm_to_uintptr_t(def);
  230.    ^
  231. unify.c: In function ‘gp_fill_null_procedure’:
  232. unify.c:3967:3: warning: ‘scm_t_uintptr’ is deprecated [-Wdeprecated-declarations]
  233.    scm_t_uintptr a = scm_to_uintptr_t(addr);
  234.    ^
  235. unify.c: In function ‘gp_custom_fkn’:
  236. unify.c:4018:3: warning: ‘scm_t_uint32’ is deprecated [-Wdeprecated-declarations]
  237.    ((SCM*) fkn)[1] = (SCM) PROGRAM_CODE(custom_vm_fkn);
  238.    ^
  239. In file included from unify.c:4037:0:
  240. guile-2.2.c: In function ‘gp_find_elf_relative_adress’:
  241. guile-2.2.c:14:3: warning: ‘scm_t_uint64’ is deprecated [-Wdeprecated-declarations]
  242.    scm_t_uint64 ref = (scm_t_uint64) SCM_BYTEVECTOR_CONTENTS(bv);
  243.    ^
  244. guile-2.2.c:14:3: warning: ‘scm_t_uint64’ is deprecated [-Wdeprecated-declarations]
  245. unify.c: At top level:
  246. unify.c:4131:3: warning: ‘scm_t_uint32’ is deprecated [-Wdeprecated-declarations]
  247.    scm_t_uint32 *ip;  /* instruction pointer */
  248.    ^
  249. unify.c: In function ‘gp_set_unbound_bang’:
  250. unify.c:804:1: warning: control reaches end of non-void function [-Wreturn-type]
  251.  }
  252.  ^
  253. Makefile:451: recipe for target 'libguile_log_la-unify.lo' failed
  254. make[3]: *** [libguile_log_la-unify.lo] Error 1
  255. make[3]: Leaving directory '/opt/RefGitHub/GuileMoo/guile-log/logic/guile-log/src'
  256. Makefile:349: recipe for target 'all' failed
  257. make[2]: *** [all] Error 2
  258. make[2]: Leaving directory '/opt/RefGitHub/GuileMoo/guile-log/logic/guile-log/src'
  259. Makefile:873: recipe for target 'all-recursive' failed
  260. make[1]: *** [all-recursive] Error 1
  261. make[1]: Leaving directory '/opt/RefGitHub/GuileMoo/guile-log'
  262. Makefile:611: recipe for target 'all' failed
  263. make: *** [all] Error 2
  264. root@gitlab:/opt/RefGitHub/GuileMoo/guile-log# grep -3 SCM_UNBOUND . -r
  265. ./logic/guile-log/src/variable.c-                                        gp_variable_gc_kind));
  266. ./logic/guile-log/src/variable.c-
  267. ./logic/guile-log/src/variable.c-  SCM tc = SCM_PACK(GP_SETID(GP_MK_FRAME_UNBD(gp_type), id));
  268. ./logic/guile-log/src/variable.c:  SCM_SET_CELL_WORD_1 (ret, SCM_UNBOUND);
  269. ./logic/guile-log/src/variable.c-  SCM_SET_CELL_WORD_0 (ret, tc);
  270. ./logic/guile-log/src/variable.c-
  271. ./logic/guile-log/src/variable.c-  return ret;
  272. --
  273. ./logic/guile-log/src/variable.c-                                        gp_variable_gc_kind));
  274. ./logic/guile-log/src/variable.c-
  275. ./logic/guile-log/src/variable.c-  SCM tc = SCM_PACK(GP_SETID(GP_MK_FRAME_UNBD(gp_type), id));
  276. ./logic/guile-log/src/variable.c:  SCM_SET_CELL_WORD_1 (ret, SCM_UNBOUND);
  277. ./logic/guile-log/src/variable.c-  SCM_SET_CELL_WORD_0 (ret, tc);
  278. ./logic/guile-log/src/variable.c-
  279. ./logic/guile-log/src/variable.c-  return ret;
  280. --
  281. ./logic/guile-log/src/variable.c-  SCM ret = PTR2SCM (GC_generic_malloc (3 * sizeof (scm_t_cell),
  282. ./logic/guile-log/src/variable.c-                                        gp_variable_gc_kind));
  283. ./logic/guile-log/src/variable.c-  SCM tc =  SCM_PACK(GP_MK_FRAME_CONS(gp_type));
  284. ./logic/guile-log/src/variable.c:  SCM_SET_CELL_WORD_2 (ret, SCM_UNBOUND);
  285. ./logic/guile-log/src/variable.c:  SCM_SET_CELL_WORD_1 (ret, SCM_UNBOUND);
  286. ./logic/guile-log/src/variable.c-  SCM_SET_CELL_WORD_0 (ret, tc);
  287. ./logic/guile-log/src/variable.c-  return ret;
  288. ./logic/guile-log/src/variable.c-}
  289. --
  290. ./logic/guile-log/src/variable.c-  SCM ret = PTR2SCM (GC_generic_malloc (3 * sizeof (scm_t_cell),
  291. ./logic/guile-log/src/variable.c-                                        gp_variable_gc_kind));
  292. ./logic/guile-log/src/variable.c-  SCM tc =  SCM_PACK(GP_MK_FRAME_CONS(gp_type));
  293. ./logic/guile-log/src/variable.c:  SCM_SET_CELL_WORD_2 (ret, SCM_UNBOUND);
  294. ./logic/guile-log/src/variable.c:  SCM_SET_CELL_WORD_1 (ret, SCM_UNBOUND);
  295. ./logic/guile-log/src/variable.c-  SCM_SET_CELL_WORD_0 (ret, tc);
  296. ./logic/guile-log/src/variable.c-  return ret;
  297. ./logic/guile-log/src/variable.c-}
  298. --
  299. ./logic/guile-log/src/unify.c-
  300. ./logic/guile-log/src/unify.c-  flags = SCM_PACK(GP_MK_FRAME_UNBD(gp_type));
  301. ./logic/guile-log/src/unify.c-
  302. ./logic/guile-log/src/unify.c:  return handle(id, flags, SCM_UNBOUND, l, gp, 0, 0);
  303. ./logic/guile-log/src/unify.c-}
  304. ./logic/guile-log/src/unify.c-
  305. ./logic/guile-log/src/unify.c-static inline SCM gp_set_unbound_bang(SCM *id, SCM l, struct gp_stack *gp)
  306. --
  307. ./logic/guile-log/src/unify.c-
  308. ./logic/guile-log/src/unify.c-  flags = SCM_PACK(GP_MK_FRAME_UNBD(gp_type));
  309. ./logic/guile-log/src/unify.c-
  310. ./logic/guile-log/src/unify.c:  return handle(id, flags, SCM_UNBOUND, l, gp, 0, 1);
  311. ./logic/guile-log/src/unify.c-}
  312. ./logic/guile-log/src/unify.c-
  313. ./logic/guile-log/src/unify.c-#define gp_lookup_l(i1,i2,l)                                              \
  314. --
  315. ./logic/guile-log/src/unify.c-    }
  316. ./logic/guile-log/src/unify.c-
  317. ./logic/guile-log/src/unify.c-  if(GP_STAR(id) && GP_UNBOUND(id) && !scm_is_eq(l,SCM_EOL)
  318. ./logic/guile-log/src/unify.c:     && !scm_is_eq(l,SCM_UNBOUND)) goto advanced;
  319. ./logic/guile-log/src/unify.c-  gp_debug0("exit simple\n");
  320. ./logic/guile-log/src/unify.c-  gp_debug2("lookup> %x 0 val = %x\n",id,SCM_UNPACK(*id)) ;
  321. ./logic/guile-log/src/unify.c-  return id;
  322. --
  323. ./logic/guile-log/src/unify.c-
  324. ./logic/guile-log/src/unify.c- retry:
  325. ./logic/guile-log/src/unify.c-
  326. ./logic/guile-log/src/unify.c:  if(!SCM_NULLP(l) && !scm_is_eq(l,SCM_UNBOUND)) goto advanced;
  327. ./logic/guile-log/src/unify.c-
  328. ./logic/guile-log/src/unify.c-  if(SCM_VARIABLEP(GP_UNREF(id)))
  329. ./logic/guile-log/src/unify.c-    {
  330. --
  331. ./logic/guile-log/src/unify.c-
  332. ./logic/guile-log/src/unify.c-
  333. ./logic/guile-log/src/unify.c- retry:
  334. ./logic/guile-log/src/unify.c:  if(!SCM_NULLP(*l) && !scm_is_eq(*l,SCM_UNBOUND)) goto advanced;
  335. ./logic/guile-log/src/unify.c-
  336. ./logic/guile-log/src/unify.c-  if(SCM_VARIABLEP(GP_UNREF(id)))
  337. ./logic/guile-log/src/unify.c-    {
  338. --
  339. ./logic/guile-log/src/unify.c-    }
  340. ./logic/guile-log/src/unify.c-
  341. ./logic/guile-log/src/unify.c-  if(!scm_is_eq(*l,SCM_EOL) && GP_STAR(id) && GP_UNBOUND(id) &&
  342. ./logic/guile-log/src/unify.c:     !scm_is_eq(*l,SCM_UNBOUND))
  343. ./logic/guile-log/src/unify.c-    goto advanced;
  344. ./logic/guile-log/src/unify.c-
  345. ./logic/guile-log/src/unify.c-  return id;
  346. --
  347. ./logic/guile-log/src/unify.c-      l = scm_cons(SCM_EOL, gp_paths);
  348. ./logic/guile-log/src/unify.c-    }
  349. ./logic/guile-log/src/unify.c-
  350. ./logic/guile-log/src/unify.c:  if(scm_is_eq(l, SCM_UNBOUND))
  351. ./logic/guile-log/src/unify.c-    l = scm_cons(SCM_EOL, gp_paths);
  352. ./logic/guile-log/src/unify.c-
  353. ./logic/guile-log/src/unify.c-  {
  354. --
  355. ./logic/guile-log/src/unify.c-      l  = scm_cons(SCM_EOL,gp_paths);
  356. ./logic/guile-log/src/unify.c-    }
  357. ./logic/guile-log/src/unify.c-
  358. ./logic/guile-log/src/unify.c:  if(scm_is_eq(l, SCM_UNBOUND))
  359. ./logic/guile-log/src/unify.c-    l = scm_cons(SCM_EOL,gp_paths);
  360. ./logic/guile-log/src/unify.c-
  361. ./logic/guile-log/src/unify.c-  {
  362. --
  363. ./logic/guile-log/src/unify.c-  ret = get_gp_var(gp);
  364. ./logic/guile-log/src/unify.c-
  365. ./logic/guile-log/src/unify.c-  mask_on(gp->id,ret,SCM_PACK(GP_MK_FRAME_UNBD(gp_type)));
  366. ./logic/guile-log/src/unify.c:  *(ret + 1) = SCM_UNBOUND;
  367. ./logic/guile-log/src/unify.c-
  368. ./logic/guile-log/src/unify.c-  gp_debug1("returning from mk_var %x\n",ret);
  369. ./logic/guile-log/src/unify.c-  gp_format1("~a~%",ret);
  370. --
  371. ./logic/guile-log/src/unify.c-  SCM * stack[110];
  372. ./logic/guile-log/src/unify.c-  int   sp;
  373. ./logic/guile-log/src/unify.c-  sp = 0;
  374. ./logic/guile-log/src/unify.c:  if(scm_is_eq(*l,SCM_UNBOUND))
  375. ./logic/guile-log/src/unify.c-    scm_misc_error("unify",
  376. ./logic/guile-log/src/unify.c-             "using an unwinded frame as s (gp-unify! ~a ~a) : l = ~a~%",
  377. ./logic/guile-log/src/unify.c-             scm_list_3(GP_UNREF(id1),GP_UNREF(id2),*l));
  378. --
  379. ./logic/guile-log/src/state.c-      SCM *f = GP_GETREF(x);
  380. ./logic/guile-log/src/state.c-      if(*f)
  381. ./logic/guile-log/src/state.c-  {
  382. ./logic/guile-log/src/state.c:    if(scm_is_eq(f[1],SCM_UNBOUND))
  383. ./logic/guile-log/src/state.c-      return 1;
  384. ./logic/guile-log/src/state.c-    else
  385. ./logic/guile-log/src/state.c-      return 0;
  386. --
  387. ./logic/guile-log/src/state.c-inline void init_gp_var(SCM *cand)
  388. ./logic/guile-log/src/state.c-{
  389. ./logic/guile-log/src/state.c-  cand[0] = SCM_PACK(GP_MK_FRAME_UNBD(gp_type));
  390. ./logic/guile-log/src/state.c:  cand[1] = SCM_UNBOUND;
  391. ./logic/guile-log/src/state.c-}
  392. ./logic/guile-log/src/state.c-
  393. ./logic/guile-log/src/state.c-inline SCM *get_gp_var(struct gp_stack *gp)
  394. --
  395. ./logic/guile-log/src/state.c-      SCM *pt = gp->gp_stack + i;
  396. ./logic/guile-log/src/state.c-      if(GP(*pt))
  397. ./logic/guile-log/src/state.c-        {
  398. ./logic/guile-log/src/state.c:    GP_GETREF(*pt)[1] = SCM_UNBOUND;
  399. ./logic/guile-log/src/state.c-          GC_MARK(*pt);
  400. ./logic/guile-log/src/state.c-        }
  401. ./logic/guile-log/src/state.c-    }
  402. --
  403. ./logic/guile-log/src/state.c-            SCM *f = GP_GETREF(*pt);
  404. ./logic/guile-log/src/state.c-            scm_t_bits head = SCM_UNPACK(f[0]);
  405. ./logic/guile-log/src/state.c-      if(pt >= gp->gp_si)
  406. ./logic/guile-log/src/state.c:        f[1] = SCM_UNBOUND;
  407. ./logic/guile-log/src/state.c-
  408. ./logic/guile-log/src/state.c-      GP_GC_CLEAR(head);
  409. ./logic/guile-log/src/state.c-      GP_GC_CLEARCAND(head);
  410. --
  411. ./logic/guile-log/src/state.c-          GP_GC_CLEARCAND(head_car);
  412. ./logic/guile-log/src/state.c-          GP_GETREF(car)[0] = SCM_PACK(head_car);
  413. ./logic/guile-log/src/state.c-          /*if(pt > gp->gp_cs)
  414. ./logic/guile-log/src/state.c:            GP_GETREF(car)[1] = SCM_UNBOUND;*/
  415. ./logic/guile-log/src/state.c-        }
  416. ./logic/guile-log/src/state.c-
  417. ./logic/guile-log/src/state.c-      if(GP(cdr))
  418. --
  419. ./logic/guile-log/src/state.c-          GP_GC_CLEARCAND(head_cdr);
  420. ./logic/guile-log/src/state.c-          GP_GETREF(cdr)[0] = SCM_PACK(head_cdr);
  421. ./logic/guile-log/src/state.c-          /*if(pt > gp->gp_cs)
  422. ./logic/guile-log/src/state.c:            GP_GETREF(cdr)[1] = SCM_UNBOUND;*/
  423. ./logic/guile-log/src/state.c-
  424. ./logic/guile-log/src/state.c-        }
  425. ./logic/guile-log/src/state.c-    }
  426. --
  427. ./logic/guile-log/src/state.c-          GP_GC_CAND(head);
  428. ./logic/guile-log/src/state.c-
  429. ./logic/guile-log/src/state.c-          f[0] = SCM_PACK(head);
  430. ./logic/guile-log/src/state.c:          f[1] = SCM_UNBOUND;
  431. ./logic/guile-log/src/state.c-          vrem++;
  432. ./logic/guile-log/src/state.c-        }
  433. ./logic/guile-log/src/state.c-          }
  434. --
  435. ./logic/guile-log/src/unify-undo-redo.c-            x = scm_cons(GP_UNREF(id),
  436. ./logic/guile-log/src/unify-undo-redo.c-                         scm_cons(SCM_I_MAKINUM(SCM_UNPACK(id[0])),id[1]));
  437. ./logic/guile-log/src/unify-undo-redo.c-          id[0] = gp_unbd;
  438. ./logic/guile-log/src/unify-undo-redo.c:          id[1] = SCM_UNBOUND;
  439. ./logic/guile-log/src/unify-undo-redo.c-          return x;
  440. ./logic/guile-log/src/unify-undo-redo.c-        }
  441. ./logic/guile-log/src/unify-undo-redo.c-    }
  442. --
  443. ./logic/guile-log/src/unify-undo-redo.c-        }
  444. ./logic/guile-log/src/unify-undo-redo.c-
  445. ./logic/guile-log/src/unify-undo-redo.c-      id[0] = gp_unbd;
  446. ./logic/guile-log/src/unify-undo-redo.c:      id[1] = SCM_UNBOUND;
  447. ./logic/guile-log/src/unify-undo-redo.c-
  448. ./logic/guile-log/src/unify-undo-redo.c-      *i = SCM_BOOL_F;
  449. ./logic/guile-log/src/unify-undo-redo.c-    }
  450. --
  451. ./logic/guile-log/src/unify-undo-redo.c-                }
  452. ./logic/guile-log/src/unify-undo-redo.c-              else
  453. ./logic/guile-log/src/unify-undo-redo.c-                {
  454. ./logic/guile-log/src/unify-undo-redo.c:                  GP_GETREF(*i)[1] = SCM_UNBOUND;
  455. ./logic/guile-log/src/unify-undo-redo.c-                }
  456. ./logic/guile-log/src/unify-undo-redo.c-            }
  457. ./logic/guile-log/src/unify-undo-redo.c-          else if(scm_is_eq(*i,SCM_BOOL_T))
  458. --
  459. ./logic/guile-log/src/unify-undo-redo.c-              continue;
  460. ./logic/guile-log/src/unify-undo-redo.c-            } else if(GP(*i))
  461. ./logic/guile-log/src/unify-undo-redo.c-            {
  462. ./logic/guile-log/src/unify-undo-redo.c:              GP_GETREF(*i)[1] = SCM_UNBOUND;
  463. ./logic/guile-log/src/unify-undo-redo.c:              GP_GETREF(*i)[2] = SCM_UNBOUND;
  464. ./logic/guile-log/src/unify-undo-redo.c-            }
  465. ./logic/guile-log/src/unify-undo-redo.c-        }
  466. ./logic/guile-log/src/unify-undo-redo.c-    }
  467. --
  468. ./logic/guile-log/src/logical.c-  unsigned long k = random() << H_BITS;
  469. ./logic/guile-log/src/logical.c-
  470. ./logic/guile-log/src/logical.c-  *(id + 0) = SCM_PACK(GP_MK_FRAME_UNBD(gp_type) | k);
  471. ./logic/guile-log/src/logical.c:  *(id + 1) = SCM_UNBOUND;
  472. ./logic/guile-log/src/logical.c-  return ret;
  473. ./logic/guile-log/src/logical.c-}
  474. ./logic/guile-log/src/logical.c-*/
  475. --
  476. ./logic/guile-log/src/logical.c-  id = GP_GETREF(ret);
  477. ./logic/guile-log/src/logical.c-
  478. ./logic/guile-log/src/logical.c-  *(id + 0) = SCM_PACK(GP_MK_FRAME_UNBD(gp_type));
  479. ./logic/guile-log/src/logical.c:  *(id + 1) = SCM_UNBOUND;
  480. ./logic/guile-log/src/logical.c-  return ret;
  481. ./logic/guile-log/src/logical.c-}
  482. ./logic/guile-log/src/logical.c-
  483. root@gitlab:/opt/RefGitHub/GuileMoo/guile-log# grep -3 SCM_UNBOUND ../guile -r
  484. ../guile/doc/ref/guile.info-8-
  485. ../guile/doc/ref/guile.info-8- -- Macro: int SCM_UNBNDP (SCM X)
  486. ../guile/doc/ref/guile.info-8-     Return true if X is ‘SCM_UNDEFINED’.  Note that this is not a check
  487. ../guile/doc/ref/guile.info-8:     to see if X is ‘SCM_UNBOUND’.  History will not be kind to us.
  488. ../guile/doc/ref/guile.info-8-
  489. ../guile/doc/ref/guile.info-8-
  490. ../guile/doc/ref/guile.info-8-File: guile.info,  Node: Non-Immediate Objects,  Next: Allocating Heap Objects,  Prev: Immediate Objects,  Up: The SCM Type in Guile
  491. --
  492. ../guile/doc/ref/data-rep.texi-
  493. ../guile/doc/ref/data-rep.texi-@deftypefn Macro int SCM_UNBNDP (SCM @var{x})
  494. ../guile/doc/ref/data-rep.texi-Return true if @var{x} is @code{SCM_UNDEFINED}.  Note that this is not a
  495. ../guile/doc/ref/data-rep.texi:check to see if @var{x} is @code{SCM_UNBOUND}.  History will not be kind
  496. ../guile/doc/ref/data-rep.texi-to us.
  497. ../guile/doc/ref/data-rep.texi-@end deftypefn
  498. ../guile/doc/ref/data-rep.texi-
  499. --
  500. ../guile/libguile/ChangeLog-2008-       SCM_IFLAGNUM): new
  501. ../guile/libguile/ChangeLog-2008-
  502. ../guile/libguile/ChangeLog-2008-       (scm_tc8_char, scm_tc8_iloc, SCM_BOOL_F, SCM_BOOL_T,
  503. ../guile/libguile/ChangeLog-2008:       SCM_UNDEFINED, SCM_EOF_VAL, SCM_EOL, SCM_UNSPECIFIED, SCM_UNBOUND,
  504. ../guile/libguile/ChangeLog-2008-       SCM_ELISP_NIL, SCM_IM_DISPATCH, SCM_IM_SLOT_REF,
  505. ../guile/libguile/ChangeLog-2008-       SCM_IM_SLOT_SET_X, SCM_IM_DELAY, SCM_IM_FUTURE,
  506. ../guile/libguile/ChangeLog-2008-       SCM_IM_CALL_WITH_VALUES, SCM_IM_NIL_COND, SCM_IM_BIND): Changed
  507. --
  508. ../guile/libguile/ChangeLog-2008-
  509. ../guile/libguile/ChangeLog-2008-       * tags.h (SCM_IM_NIL_IFY, SCM_IM_T_IFY, SCM_IM_0_COND,
  510. ../guile/libguile/ChangeLog-2008-       SCM_IM_0_IFY, SCM_IM_1_IFY): Removed.
  511. ../guile/libguile/ChangeLog-2008:       (SCM_IM_BIND, SCM_IM_DELAY, SCM_IM_CALL_WITH_VALUES, SCM_UNBOUND):
  512. ../guile/libguile/ChangeLog-2008-       Numbering shifted down accordingly.
  513. ../guile/libguile/ChangeLog-2008-       (SCM_ELISP_NIL): New IFLAG.
  514. ../guile/libguile/ChangeLog-2008-
  515. --
  516. ../guile/libguile/ChangeLog-2008-
  517. ../guile/libguile/ChangeLog-2008-2001-07-13  Marius Vollmer  <mvo@zagadka.ping.de>
  518. ../guile/libguile/ChangeLog-2008-
  519. ../guile/libguile/ChangeLog-2008:       * tags.h (SCM_UNBOUND): Make it the 34th isym/iflag, the 33th slot
  520. ../guile/libguile/ChangeLog-2008-       is taken by the new SCM_IM_CALL_WITH_VALUES.
  521. ../guile/libguile/ChangeLog-2008-       * print.c (scm_isymnames): Update table accordingly.
  522. ../guile/libguile/ChangeLog-2008-
  523. --
  524. ../guile/libguile/ChangeLog-1996-1999-
  525. ../guile/libguile/ChangeLog-1996-1999-  * backtrace.c (set_print_params_x): Fixed GUILE_PROC macro.
  526. ../guile/libguile/ChangeLog-1996-1999-
  527. ../guile/libguile/ChangeLog-1996-1999:  * tags.h (SCM_UNBOUND): New iflag which is needed for some time to
  528. ../guile/libguile/ChangeLog-1996-1999-  mark the unboundness of a GOOPS slot.  (Added now in order to
  529. ../guile/libguile/ChangeLog-1996-1999-  correct a oversight.  Should probably be removed again and
  530. ../guile/libguile/ChangeLog-1996-1999-  replaced with SCM_UNDEFINED when the corresponding code in GOOPS
  531. ../guile/libguile/ChangeLog-1996-1999-  is rewritten.)
  532. ../guile/libguile/ChangeLog-1996-1999-
  533. ../guile/libguile/ChangeLog-1996-1999-  * print.c (scm_isymnames): Added printed representation for
  534. ../guile/libguile/ChangeLog-1996-1999:  SCM_UNBOUND.
  535. ../guile/libguile/ChangeLog-1996-1999-
  536. ../guile/libguile/ChangeLog-1996-1999-  * eval.c (SCM_CEVAL): Bugfix: Added check for unbound slot in
  537. ../guile/libguile/ChangeLog-1996-1999-  SCM_IM_SLOT_REF.
  538. root@gitlab:/opt/RefGitHub/GuileMoo/guile-log#
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!