f98f52441b
- Incorporate debian patches to fix build with gcc3 PR: ports/86058 Submitted by: Geoffrey Mainland <mainland@apeiron.net> Approved by: Mathis Picker <Mathias.Picker@gmx.de> (maintainer)
40 lines
988 B
C++
40 lines
988 B
C++
--- ./platform/emulator/builtins.cc.orig Wed Apr 7 21:11:20 2004
|
|
+++ ./platform/emulator/builtins.cc Sat Sep 3 18:46:08 2005
|
|
@@ -20,8 +20,8 @@
|
|
* Christian Schulte, 1997
|
|
*
|
|
* Last change:
|
|
- * $Date: 2004/04/08 01:11:20 $ by $Author: popow $
|
|
- * $Revision: 1.778 $
|
|
+ * $Date: 2005/02/15 13:33:16 $ by $Author: raph $
|
|
+ * $Revision: 1.778.2.1 $
|
|
*
|
|
* This file is part of Mozart, an implementation
|
|
* of Oz 3:
|
|
@@ -3132,6 +3132,8 @@
|
|
|
|
#ifdef VAR_PORT
|
|
|
|
+// raph: This implementation is DEPRECATED. The new builtin
|
|
+// BInewPort has now 0 inputs and 2 outputs.
|
|
OZ_BI_define(BInewPort,1,1)
|
|
{
|
|
oz_declareIN(0,val);
|
|
@@ -3152,13 +3154,14 @@
|
|
|
|
#else
|
|
|
|
-OZ_BI_define(BInewPort,1,1)
|
|
+OZ_BI_define(BInewPort,0,2)
|
|
{
|
|
OZ_Term strm = oz_newReadOnly(oz_currentBoard());
|
|
OZ_Term port = oz_newPort(strm);
|
|
|
|
- OZ_out(0)= port;
|
|
- return oz_unify(OZ_in(0),strm);
|
|
+ OZ_out(0)= strm;
|
|
+ OZ_out(1)= port;
|
|
+ return PROCEED;
|
|
} OZ_BI_end
|
|
|
|
#define FAST_DOPORTSEND
|