*** empty log message ***
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1505 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
331d0d8511
commit
fdaae10887
@ -1,4 +1,4 @@
|
|||||||
/* $Id: chr_translate_bootstrap.pl,v 1.2 2006-01-08 23:01:47 vsc Exp $
|
/* $Id: chr_translate_bootstrap.pl,v 1.3 2006-01-08 23:04:41 vsc Exp $
|
||||||
|
|
||||||
Part of CHR (Constraint Handling Rules)
|
Part of CHR (Constraint Handling Rules)
|
||||||
|
|
||||||
@ -124,10 +124,7 @@
|
|||||||
:- use_module(library(lists)).
|
:- use_module(library(lists)).
|
||||||
:- use_module(hprolog).
|
:- use_module(hprolog).
|
||||||
:- use_module(library(assoc)).
|
:- use_module(library(assoc)).
|
||||||
:- write_depth(3,3).
|
|
||||||
%:- start_low_level_trace.
|
|
||||||
:- use_module(pairlist).
|
:- use_module(pairlist).
|
||||||
:- stop_low_level_trace.
|
|
||||||
:- use_module(library(ordsets)).
|
:- use_module(library(ordsets)).
|
||||||
:- include(chr_op).
|
:- include(chr_op).
|
||||||
|
|
||||||
|
@ -16,6 +16,8 @@
|
|||||||
|
|
||||||
<h2>Yap-5.1.0:</h2>
|
<h2>Yap-5.1.0:</h2>
|
||||||
<ul>
|
<ul>
|
||||||
|
<li> FIXED: mktime was broken in WIN32.
|
||||||
|
<li> FIXED: don't assume a fixed point for WIN32 memory allocation.
|
||||||
<li> FIXED: don't call goal_expand when looking for handlers of undefined procedures. </li>
|
<li> FIXED: don't call goal_expand when looking for handlers of undefined procedures. </li>
|
||||||
<li> FIXED: always walk through modules in the same order when waking
|
<li> FIXED: always walk through modules in the same order when waking
|
||||||
up variables (otherwise, breaks CLP(QR)). </li>
|
up variables (otherwise, breaks CLP(QR)). </li>
|
||||||
|
@ -8,8 +8,11 @@
|
|||||||
* *
|
* *
|
||||||
**************************************************************************
|
**************************************************************************
|
||||||
* *
|
* *
|
||||||
* $Id: sys.c,v 1.23 2005-10-21 16:09:03 vsc Exp $ *
|
* $Id: sys.c,v 1.24 2006-01-08 23:01:48 vsc Exp $ *
|
||||||
* mods: $Log: not supported by cvs2svn $
|
* mods: $Log: not supported by cvs2svn $
|
||||||
|
* mods: Revision 1.23 2005/10/21 16:09:03 vsc
|
||||||
|
* mods: SWI compatible module only operators
|
||||||
|
* mods:
|
||||||
* mods: Revision 1.22 2005/03/10 18:04:01 rslopes
|
* mods: Revision 1.22 2005/03/10 18:04:01 rslopes
|
||||||
* mods: update YAP_Error arguments
|
* mods: update YAP_Error arguments
|
||||||
* mods: to be able to compile on Windows...
|
* mods: to be able to compile on Windows...
|
||||||
@ -145,7 +148,7 @@ sysmktime(void)
|
|||||||
{
|
{
|
||||||
unsigned long long f1 = (((unsigned long long)ftime.dwHighDateTime)<<32)+(unsigned long long)ftime.dwLowDateTime;
|
unsigned long long f1 = (((unsigned long long)ftime.dwHighDateTime)<<32)+(unsigned long long)ftime.dwLowDateTime;
|
||||||
unsigned long long f0 = (((unsigned long long)ftime0.dwHighDateTime)<<32)+(unsigned long long)ftime0.dwLowDateTime;
|
unsigned long long f0 = (((unsigned long long)ftime0.dwHighDateTime)<<32)+(unsigned long long)ftime0.dwLowDateTime;
|
||||||
return YAP_Unify(YAP_ARG8,YAP_MkIntTerm((long int)((f1-f0)/10000000)));
|
return YAP_Unify(YAP_ARG7,YAP_MkIntTerm((long int)((f1-f0)/10000000)));
|
||||||
}
|
}
|
||||||
#else
|
#else
|
||||||
return FALSE;
|
return FALSE;
|
||||||
|
Reference in New Issue
Block a user