picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

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:
Msrc64/main.l | 6+++---
Msrc64/sys/linux.defs.l | 4+++-
Msrc64/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