>From f2d0c5f0b6f56c8e9bcf232e95acaca41d2fb8b5 Mon Sep 17 00:00:00 2001
From: Christian Kellermann <address@hidden>
Date: Sun, 4 Mar 2012 09:33:12 +0100
Subject: [PATCH 1/2] Make maximal-string-length architecture dependent

Rely on the bits set in C_HEADER_SIZE_MASK for the string lenght and
do not hard code it to #xffffff. This will enhance buffering etc on
64bit systems.
---
 library.scm |    3 +--
 1 files changed, 1 insertions(+), 2 deletions(-)

diff --git a/library.scm b/library.scm
index 82ed064..e6348b8 100644
--- a/library.scm
+++ b/library.scm
@@ -144,13 +144,12 @@ EOF
 (include "common-declarations.scm")
 (include "banner.scm")
 
-
 (define-constant namespace-max-id-len 31)
 (define-constant char-name-table-size 37)
 (define-constant output-string-initial-size 256)
 (define-constant read-line-buffer-initial-size 1024)
 (define-constant default-parameter-vector-size 16)
-(define-constant maximal-string-length #x00ffffff)
+(define maximal-string-length (foreign-value "C_HEADER_SIZE_MASK" unsigned-long))
 
 
 ;;; System routines:
-- 
1.7.6