github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-22 10:32:13 +00:00
Code Issues Releases Wiki Activity

Reverts translate-and-compile of macsyma programs in one step since

Browse Source 
this causes an NXM error in KA10 emulator.  Will put back when we find
issue with KA10.
This commit is contained in:
Eric Swenson 2018-06-20 08:28:28 +02:00
parent e381396120
commit 4c3381b509
1 changed files with 34 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
build/lisp.tcl
View File

@ -534,19 +534,49 @@ respond "(C1)" "quit();"
respond "*" ":link sys3;ts macsym,maxdmp;loser >\r"
### build ctensr for macsyma
# ejs: commented out until we can fix NXM error in KA10 emulator
#respond "*" "macsym\013"
#respond "(C1)" "compile_lisp_file(translate_file(\"sharem\\;packg >\")\[2\]);"
#respond "(C2)" "compile_lisp_file(translate_file(\"tensor\\;ctensr funcs\")\[2\]);"
#respond "Type ALL;" "all;"
#respond "Type ALL;" "all;"
#respond "(C3)" "quit();"
### build eigen for macsyma
# ejs: commented out until we can fix NXM error in KA10 emulator
#respond "*" "macsym\013"
#respond "(C1)" "compile_lisp_file(translate_file(\"share\\;eigen >\")\[2\]);"
#respond "Type ALL;" "all;"
#respond "(C2)" "quit();"
### build ctensr for macsyma
respond "*" "macsym\013"
respond "(C1)" "compile_lisp_file(translate_file(\"sharem\\;packg >\")\[2\]);"
respond "(C2)" "compile_lisp_file(translate_file(\"tensor\\;ctensr funcs\")\[2\]);"
respond "(C1)" "translate_file(\"sharem\\;packg >\");"
respond "(C2)" "quit();"
respond ":KILL" "complr\013"
respond "_" "sharem;packg fasl_packg trlisp\r"
respond "_" "\032"
type ":kill\r"
respond "*" "macsym\013"
respond "(C1)" "translate_file(\"tensor\\;ctensr funcs\");"
respond "Type ALL;" "all;"
respond "Type ALL;" "all;"
respond "(C3)" "quit();"
respond "(C2)" "quit();"
respond ":KILL" "complr\013"
respond "_" "share;ctensr fasl_tensor;ctensr trlisp\r"
respond "_" "\032"
type ":kill\r"
### build eigen for macsyma
respond "*" "macsym\013"
respond "(C1)" "compile_lisp_file(translate_file(\"share\\;eigen >\")\[2\]);"
respond "(C1)" "translate_file(\"share\\;eigen >\");"
respond "Type ALL;" "all;"
respond "(C2)" "quit();"
respond ":KILL" "complr\013"
respond "_" "share;eigen fasl_share;eigen trlisp\r"
respond "_" "\032"
type ":kill\r"
### more lisplib stuff
respond "*" "complr\013"