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 0defe85350a1f1d1770fe1ea78c289bb278645a2
parent c9c1f95d72c2ed7d9e45e83d659b075533a841b4
Author: Alexander Burger <abu@software-lab.de>
Date:   Fri,  2 Nov 2012 18:36:52 +0100

emu64 continued
Diffstat:
Msrc64/Makefile | 4+---
Msrc64/arch/emu.l | 2+-
2 files changed, 2 insertions(+), 4 deletions(-)

diff --git a/src64/Makefile b/src64/Makefile @@ -1,4 +1,4 @@ -# 27oct12abu +# 02nov12abu # (c) Software Lab. Alexander Burger .SILENT: @@ -95,11 +95,9 @@ $(bin)/picolisp: $(ARCH)$(SYS).base.o $(lib)/ext: $(ARCH)$(SYS).ext.o $(CC) -o $(lib)/ext $(ARCH)$(SYS).ext.o $(LD-SHARED) - $(STRIP) $(lib)/ext $(lib)/ht: $(ARCH)$(SYS).ht.o $(CC) -o $(lib)/ht $(ARCH)$(SYS).ht.o $(LD-SHARED) - $(STRIP) $(lib)/ht ### Assemble ### .s.o: diff --git a/src64/arch/emu.l b/src64/arch/emu.l @@ -753,7 +753,7 @@ (waitpid i i "int" i) (free - p) (stat i p "struct stat") - (fcntl i i i) + (fcntl i i i p) (pipe i "int") (select i i "fd_set" "fd_set" "fd_set" 2) (open i p i i)