Commit ac38d2f0 authored by Bernd Paysan's avatar Bernd Paysan

Better version of +place now also in cross

parent c31ce74b
...@@ -402,14 +402,12 @@ Create NoFile ," #load-file#" ...@@ -402,14 +402,12 @@ Create NoFile ," #load-file#"
[IFUNDEF] +place [IFUNDEF] +place
: +place ( adr len adr ) : +place ( adr len adr )
2dup >r >r 2dup c@ dup >r + over c! r> char+ + swap move ;
dup c@ char+ + swap move
r> r> dup c@ rot + swap c! ;
[THEN] [THEN]
[IFUNDEF] place [IFUNDEF] place
: place ( c-addr1 u c-addr2 ) : place ( c-addr1 u c-addr2 )
2dup c! char+ swap move ; 2dup c! char+ swap move ;
[THEN] [THEN]
\ if we have path handling, use this and the setup of it \ if we have path handling, use this and the setup of it
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment