bug fices
This commit is contained in:
@@ -56,6 +56,8 @@ if (Java_Development_FOUND)
|
||||
set_target_properties(jplYap PROPERTIES
|
||||
OUTPUT_NAME jpl )
|
||||
|
||||
set(YAP_SYSTEM_OPTIONS "jpl " ${YAP_SYSTEM_OPTIONS} PARENT_SCOPE)
|
||||
|
||||
install(TARGETS jplYap
|
||||
LIBRARY DESTINATION ${dlls}
|
||||
)
|
||||
|
@@ -81,14 +81,14 @@
|
||||
jpl_set_element/2
|
||||
]).
|
||||
|
||||
:- expects_dialect(swi).
|
||||
%:- expects_dialect(swi).
|
||||
|
||||
:- use_module(library(lists)).
|
||||
:- use_module(library(apply)).
|
||||
:- use_module(library(shlib)).
|
||||
|
||||
% suppress debugging this library
|
||||
:- set_prolog_flag(generate_debug_info, false).
|
||||
%:- set_prolog_flag(generate_debug_info, false).
|
||||
|
||||
%------------------------------------------------------------------------------
|
||||
|
||||
|
@@ -81,8 +81,6 @@
|
||||
jpl_set_element/2
|
||||
]).
|
||||
|
||||
:- expects_dialect(swi).
|
||||
|
||||
:- use_module(library(lists)).
|
||||
:- use_module(library(apply)).
|
||||
:- use_module(library(shlib)).
|
||||
@@ -157,6 +155,8 @@ jpl_tidy_iref_type_cache( Iref) :-
|
||||
%
|
||||
% finally, an attempt will be made to unify Result with the returned result
|
||||
|
||||
:- stop_low_level_trace.
|
||||
|
||||
jpl_call(X, Mspec, Params, R) :-
|
||||
( jpl_object_to_type(X, Type) % the usual case (goal fails safely if X is var or rubbish)
|
||||
-> Obj = X,
|
||||
|
Reference in New Issue
Block a user