svn commit: r366742 - in head/lang/smlnj: . files

[Kurt Jaeger]

Author: pi
Date: Sun Aug 31 10:42:04 2014
New Revision: 366742
URL: http://svnweb.freebsd.org/changeset/ports/366742
QAT: https://qat.redports.org/buildarchive/r366742/

Log:
  lang/smlnj: fix tmpname warning
  
  PR:		191899
  Submitted by:	joemann at beefree.free.de (maintainer)

Added:
  head/lang/smlnj/files/do-patch-base_runtime_c-libs_posix-os_tmpname.c   (contents, props changed)
Modified:
  head/lang/smlnj/Makefile

Modified: head/lang/smlnj/Makefile
==============================================================================
--- head/lang/smlnj/Makefile	Sun Aug 31 10:32:16 2014	(r366741)
+++ head/lang/smlnj/Makefile	Sun Aug 31 10:42:04 2014	(r366742)
@@ -2,6 +2,7 @@
 
 PORTNAME=	smlnj
 PORTVERSION=	110.76
+PORTREVISION=	1
 CATEGORIES=	lang
 MASTER_SITES=	http://smlnj.cs.uchicago.edu/dist/working/${PORTVERSION}/ \
 		ftp://mirror.free.de/http/smlnj.cs.uchicago.edu/dist/working/${PORTVERSION}/

Added: head/lang/smlnj/files/do-patch-base_runtime_c-libs_posix-os_tmpname.c
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ head/lang/smlnj/files/do-patch-base_runtime_c-libs_posix-os_tmpname.c	Sun Aug 31 10:42:04 2014	(r366742)
@@ -0,0 +1,36 @@
+--- base/runtime/c-libs/posix-os/tmpname.c.orig	2000-06-01 20:34:03.000000000 +0200
++++ base/runtime/c-libs/posix-os/tmpname.c	2014-08-01 16:35:28.000000000 +0200
+@@ -4,8 +4,11 @@
+  */
+ 
+ #include <stdio.h>
++#include <string.h>
++#include <unistd.h>
+ #include "ml-base.h"
+ #include "ml-values.h"
++#include "ml-c.h"
+ #include "ml-objects.h"
+ #include "cfun-proto-list.h"
+ 
+@@ -13,9 +16,18 @@
+  */
+ ml_val_t _ml_OS_tmpname (ml_state_t *msp, ml_val_t arg)
+ {
+-    char	buf[L_tmpnam];
+-
+-    tmpnam (buf);
++    char	template[] = "/tmp/TMP-SMLNJ.XXXXXX";
++    char	buf[sizeof(template)];
++    int		fd;
++
++    strcpy (buf, template);
++
++    fd = mkstemp (buf);
++
++    if (fd == -1)
++	return RAISE_SYSERR(msp, -1);
++    else
++	close (fd);
+ 
+     return ML_CString (msp, buf);
+