File tree Expand file tree Collapse file tree 5 files changed +7
-5
lines changed Expand file tree Collapse file tree 5 files changed +7
-5
lines changed Original file line number Diff line number Diff line change @@ -32,7 +32,7 @@ pic_object='.libs/lib$i'
32
32
non_pic_object='lib$i '" > lib${i% o} lo
33
33
done
34
34
)
35
- skipcode=" .skip 16 "
35
+ skipcode=" .skip 4 "
36
36
kernel_fi=kernl64l.fi
37
37
ac_cv_sizeof_void_p=4
38
38
ac_cv_sizeof_char_p=4
Original file line number Diff line number Diff line change @@ -32,7 +32,7 @@ pic_object='.libs/lib$i'
32
32
non_pic_object='lib$i '" > lib${i% o} lo
33
33
done
34
34
)
35
- skipcode=" .skip 16 "
35
+ skipcode=" .skip 4 "
36
36
kernel_fi=kernl64l.fi
37
37
ac_cv_sizeof_void_p=8
38
38
ac_cv_sizeof_char_p=8
Original file line number Diff line number Diff line change @@ -50,7 +50,7 @@ pic_object='.libs/lib$i'
50
50
non_pic_object='lib$i '" > lib${i% o} lo
51
51
done
52
52
)
53
- skipcode=" .skip 4\n.skip 4\n.skip 4\n.skip 4 "
53
+ skipcode=" .skip 4"
54
54
kernel_fi=kernl64l.fi
55
55
ac_cv_sizeof_void_p=4
56
56
ac_cv_sizeof_char_p=4
Original file line number Diff line number Diff line change @@ -32,7 +32,7 @@ pic_object='.libs/lib$i'
32
32
non_pic_object='lib$i '" > lib${i% o} lo
33
33
done
34
34
)
35
- skipcode=" .skip 16 "
35
+ skipcode=" .skip 4 "
36
36
kernel_fi=kernl64l.fi
37
37
ac_cv_sizeof_void_p=8
38
38
ac_cv_sizeof_char_p=8
Original file line number Diff line number Diff line change @@ -330,13 +330,15 @@ Variable rec'[]
330
330
ELSE nip nip THEN
331
331
-rot encode-view to replace-sourceview ;
332
332
333
+ #22 Value rstack-offset \ different prompt words can have different offsets
334
+
333
335
: prompt-ok ( -- )
334
336
." ok"
335
337
depth ?dup-if
336
338
space 0 dec.r then
337
339
fdepth ?dup-if
338
340
." f:" 0 dec.r then
339
- rp0 @ rp@ - cell/ 22 - ?dup-if
341
+ rp0 @ rp@ - cell/ rstack-offset - ?dup-if
340
342
." r:" 0 dec.r then ;
341
343
342
344
: prompt-text ( -- )
You can’t perform that action at this time.
0 commit comments