mirror of
https://github.com/dschmenk/PLASMA.git
synced 2024-07-03 05:29:30 +00:00
Add CR to PBC compiled words for SHOW
This commit is contained in:
parent
a755df496c
commit
2770a6f774
Binary file not shown.
|
@ -1179,6 +1179,7 @@ def newdict#0
|
||||||
end
|
end
|
||||||
def _plasma_(a)#0
|
def _plasma_(a)#0
|
||||||
newdict
|
newdict
|
||||||
|
^(_ffa_(vlist)) = showcr_flag
|
||||||
*(_cfa_(vlist)) = a // PLASMA code address
|
*(_cfa_(vlist)) = a // PLASMA code address
|
||||||
addhash(vlist)
|
addhash(vlist)
|
||||||
end
|
end
|
||||||
|
@ -1258,6 +1259,7 @@ def _colon_#0
|
||||||
^(_ffa_(vlist)) = itc_flag | showcr_flag
|
^(_ffa_(vlist)) = itc_flag | showcr_flag
|
||||||
*(_cfa_(vlist)) = @_docolon_
|
*(_cfa_(vlist)) = @_docolon_
|
||||||
else // comp_pbc_flag
|
else // comp_pbc_flag
|
||||||
|
^(_ffa_(vlist)) = showcr_flag
|
||||||
_dictaddb_(JSR); _dictaddw_(vmvect)
|
_dictaddb_(JSR); _dictaddw_(vmvect)
|
||||||
fin
|
fin
|
||||||
if state & trace_flag
|
if state & trace_flag
|
||||||
|
|
Loading…
Reference in New Issue
Block a user