ChanServ changed the topic of #picolisp to: PicoLisp language | Channel Log: https://irclog.whitequark.org/picolisp/ | Check also http://www.picolisp.com for more information
orivej has joined #picolisp
aw- has joined #picolisp
anddam has joined #picolisp
orivej has quit [Ping timeout: 258 seconds]
_whitelogger has joined #picolisp
orivej has joined #picolisp
tankf33der has quit [Ping timeout: 244 seconds]
tankf33der has joined #picolisp
pointfree has quit [Ping timeout: 244 seconds]
pointfree has joined #picolisp
<tankf33der> morming
<tankf33der> pil21 is broken
<tankf33der> native and crashing somewhere
<tankf33der> will report asap
<tankf33der> i belive this is last commit, worked before
<aw-> tankf33der: confirmed
<aw-> even my non-native code is failing
<Regenaxer> Something got worse?
<Regenaxer> I'm still trying to get DB to work. I do not remember if I changed something else
<aw-> pil21 seg faults when i load my app
<Regenaxer> ok, but where exactly?
<Regenaxer> Can you trace?
<aw-> sure one sec
<Regenaxer> cool
<aw-> ah
<aw-> it seems it's socket related
<Regenaxer> Needs not to be networking
<Regenaxer> 'socket' succeeded
<Regenaxer> I meant trace on the Lisp level
<Regenaxer> to see which function
<aw-> yes perhaps
<aw-> ok one sec
<Regenaxer> E.g. insert (bye)
<Regenaxer> binary search
<aw-> seems (port) is seg faulting
<aw-> ../pil21-src/pil21/pil +
<aw-> -> T
<aw-> : (traceAll)
<aw-> : (setq *Port (port 4000))
<aw-> port : 4000
<aw-> Segmentation fault
<Regenaxer> I see
<Regenaxer> hmm, port is lengthy
<Regenaxer> I try here too
<Regenaxer> yes, reproducible
<Regenaxer> I single-step
<Regenaxer> (%@ "closeOnExec" NIL (cons T (up)) "Sd")
<Regenaxer> The first native call
<Regenaxer> OK, I have an idea
<Regenaxer> I changed the initial symbol table, had some influence on other parts, so perhaps also 'native'
<Regenaxer> Stupid me
<Regenaxer> there is even a comment for that
<Regenaxer> # Sync src/pico.h 'T' (11*2+1)
<Regenaxer> I fix
<aw-> great!
<Regenaxer> works again
<Regenaxer> released
<Regenaxer> "src/pico.h" needs to be maintained manually
<Regenaxer> to stay in sync with the symbol table
<Regenaxer> Thanks guys for the quick feedback!
<aw-> works
<Regenaxer> great :)
<aw-> thanks for the fix
<Regenaxer> :)
<tankf33der> native still broken
<tankf33der> later.
<Regenaxer> oh
<Regenaxer> My simple native tests here all give correct results
<tankf33der> return ‘N from native is broken
<tankf33der> returns only one byte of it and in wrong order :)
<Regenaxer> I see
<Regenaxer> I have no example, but this seems correct:
<Regenaxer> $: (%@ "getenv" 'N "TERM")
<Regenaxer> -> 549516619174
<Regenaxer> not a single byte
<Regenaxer> and how can a single byte be in wrong order?
<tankf33der> expect 123456789
<tankf33der> returns 21
<Regenaxer> Can you boil it down to a simple call?
<Regenaxer> like
<Regenaxer> : (%@ "cos" 1.0 (1.0 . 1.0))
<Regenaxer> -> 540302
<tankf33der> no, i was wrong. all correct now.
<tankf33der> returned how and checked correctly.
<Regenaxer> This is ok too
<Regenaxer> : (native "@" "time" 'N 0)
<Regenaxer> -> 1599908718
<Regenaxer> $: (%@ "time" 'N 0)
<Regenaxer> -> 1599908726
<Regenaxer> Ah, ok
<Regenaxer> good then
<tankf33der> it was wrong to test and drive
<Regenaxer> ok, no problem
orivej has quit [Ping timeout: 240 seconds]
mtsd has joined #picolisp
mtsd has quit [Quit: leaving]
patrixl has quit [Remote host closed the connection]
patrixl has joined #picolisp
beneroth has joined #picolisp
orivej has joined #picolisp
DKordic has joined #picolisp
orivej has quit [Ping timeout: 240 seconds]
orivej has joined #picolisp
orivej has quit [Ping timeout: 240 seconds]