Hi Tomas,
> > # (car 'var) -> any
> > (de _car (Exe)
> > (car (needVar Exe (eval (cadr Exe)))) )
>
> ^
> what is this car?
It is a function defined in "src/lib/llvm.l":
(asm ()
((X)
(ssa (inc '*Ssa) "inttoptr i64 " X " to i64*")
(ssa (inc '*Ssa) "load i64, i64* %" (dec *Ssa))
(def (pack "%" *Ssa) 'any) )
(llvm~car) )
It prints code like
%16 = inttoptr i64 %13 to i64*
%17 = load i64, i64* %16
to the current output channel, and returns a symbol with the
SSA value (here "%17") the the caller.
☺/ A!ex
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
