opendylan: Fix usage of alloca() and toupper(3)

[Kamil Rytarowski <n54%gmx.com@localhost>]

Module Name:	pkgsrc-wip
Committed By:	Kamil Rytarowski <n54%gmx.com@localhost>
Pushed By:	kamil
Date:		Mon Sep 28 02:25:47 2015 +0200
Changeset:	a929b55cbd3e32a243fd466f57d47440bc770bfb

Modified Files:
	opendylan/distinfo
Added Files:
	opendylan/patches/patch-sources_lib_run-time_debug-print.c
	opendylan/patches/patch-sources_lib_run-time_run-time.h

Log Message:
opendylan: Fix usage of alloca() and toupper(3)

To see a diff of this commit:
https://wip.pkgsrc.org/cgi-bin/gitweb.cgi?p=pkgsrc-wip.git;a=commitdiff;h=a929b55cbd3e32a243fd466f57d47440bc770bfb

Please note that diffs are not public domain; they are subject to the
copyright notices on the relevant files.

diffstat:
 opendylan/distinfo                                  |  2 ++
 .../patch-sources_lib_run-time_debug-print.c        | 18 ++++++++++++++++++
 .../patches/patch-sources_lib_run-time_run-time.h   | 21 +++++++++++++++++++++
 3 files changed, 41 insertions(+)

diffs:
diff --git a/opendylan/distinfo b/opendylan/distinfo
index a67d396..7c6423e 100644
--- a/opendylan/distinfo
+++ b/opendylan/distinfo
@@ -3,3 +3,5 @@ $NetBSD$
 SHA1 (opendylan-2014.1.tar.gz) = 8d372abe5b25004531529059b868d7ea88e98afc
 RMD160 (opendylan-2014.1.tar.gz) = 2c6dc6e75896ea39635b9a404f763634a557eb89
 Size (opendylan-2014.1.tar.gz) = 9890943 bytes
+SHA1 (patch-sources_lib_run-time_debug-print.c) = 23e9339f4e3780f7fab8666335bcde706753a675
+SHA1 (patch-sources_lib_run-time_run-time.h) = a016037a9a7ba8dd826adc1f569362b20ff52e5d
diff --git a/opendylan/patches/patch-sources_lib_run-time_debug-print.c b/opendylan/patches/patch-sources_lib_run-time_debug-print.c
new file mode 100644
index 0000000..9c34af4
--- /dev/null
+++ b/opendylan/patches/patch-sources_lib_run-time_debug-print.c
@@ -0,0 +1,18 @@
+$NetBSD$
+
+--- sources/lib/run-time/debug-print.c.orig	2015-09-25 09:55:53.000000000 +0000
++++ sources/lib/run-time/debug-print.c
+@@ -464,7 +464,7 @@ void dylan_format (STREAM stream, dylan_
+   for (i = 0; i < size; i++) {
+     char c = string[i];
+     if (percent_p) {
+-      char cc = (char)toupper(c);
++      char cc = (char)toupper((unsigned char)c);
+       switch (cc) {
+         case 'S': case 'C':
+           if (argument_index < argument_count) {
+@@ -510,4 +510,3 @@ void dylan_print_object (dylan_value obj
+   fputs("\n", stdout);
+   fflush(stdout);
+ }
+-
diff --git a/opendylan/patches/patch-sources_lib_run-time_run-time.h b/opendylan/patches/patch-sources_lib_run-time_run-time.h
new file mode 100644
index 0000000..04de3ee
--- /dev/null
+++ b/opendylan/patches/patch-sources_lib_run-time_run-time.h
@@ -0,0 +1,21 @@
+$NetBSD$
+
+--- sources/lib/run-time/run-time.h.orig	2015-09-25 09:55:53.000000000 +0000
++++ sources/lib/run-time/run-time.h
+@@ -1426,13 +1426,10 @@ void *primitive_alloc_rt(size_t size,
+ 
+ #ifdef OPEN_DYLAN_PLATFORM_WINDOWS
+ #  include <malloc.h>
++#elif defined(OPEN_DYLAN_PLATFORM_FREEBSD) || defined(OPEN_DYLAN_PLATFORM_NETBSD)
++#  include <stdlib.h>
+ #else
+-#  ifdef OPEN_DYLAN_PLATFORM_FREEBSD
+-#     include <sys/types.h>
+-      extern void * alloca (size_t size);
+-#  else
+-#    include <alloca.h>
+-#  endif
++#  include <alloca.h>
+ #endif
+ 
+ #define primitive_stack_allocate(sz) ((dylan_value)(alloca((int)(sz) * sizeof(dylan_value))))