picolisp

commit e5111d10b7512b65c65f0f597c0a979511074dcb
parent 2bf7035f109388c7814f4c1a8aecd3688b7209d4
Author: Alexander Burger <abu@software-lab.de>
Date:   Mon, 21 Feb 2011 17:19:44 +0100

Preparing the Solaris version: Limited path name length
Diffstat:
M
src64/main.l
 | 
6
+++---
M
src64/sys/linux.defs.l
 | 
4
+++-
M
src64/version.l
 | 
2
+-

3 files changed, 7 insertions(+), 5 deletions(-)
diff --git a/src64/main.l b/src64/main.l
@@ -1,4 +1,4 @@
-# 16feb11abu
+# 21feb11abu
 # (c) Software Lab. Alexander Burger
 
 ### Global return labels ###
@@ -2627,7 +2627,7 @@
 
 # (pwd) -> sym
 (code 'doPwd 2)
-   cc getcwd(0 0)  # Get current working directory
+   cc getcwd(0 MAXPATHLEN)  # Get current working directory
    null A  # OK?
    jz retNil  # No
    push A  # Save buffer pointer
@@ -2643,7 +2643,7 @@
    call evSymE_E  # Evaluate to a symbol
    call pathStringE_SZ  # Write to stack buffer
    ld E Nil  # Preload return value
-   cc getcwd(0 0)  # Get current working directory
+   cc getcwd(0 MAXPATHLEN)  # Get current working directory
    null A  # OK?
    if nz  # Yes
       push A  # Save buffer pointer
diff --git a/src64/sys/linux.defs.l b/src64/sys/linux.defs.l
@@ -1,4 +1,4 @@
-# 17sep10abu
+# 21feb11abu
 # (c) Software Lab. Alexander Burger
 
 # errno
@@ -26,6 +26,8 @@
 (equ BUFSIZ 8192)
 (equ PIPE_BUF 4096)
 
+(equ MAXPATHLEN 0)
+
 # dlfcn
 (equ RTLD_LAZY 1)
 (equ RTLD_GLOBAL 256)
diff --git a/src64/version.l b/src64/version.l
@@ -1,6 +1,6 @@
 # 21feb11abu
 # (c) Software Lab. Alexander Burger
 
-(de *Version 3 0 5 15)
+(de *Version 3 0 5 16)
 
 # vi:et:ts=3:sw=3