linux build
This commit is contained in:
parent
ea100945e1
commit
1d6b8008f2
@ -5,7 +5,7 @@ ntvdm -r:.. -c -d cobol %1,%1,%1,%1
|
|||||||
|
|
||||||
rem link.exe that ships with cobol requires 286+ protected mode. use msvc v5's linker instead
|
rem link.exe that ships with cobol requires 286+ protected mode. use msvc v5's linker instead
|
||||||
rem qbx's link.exe executes code in a segment it just freed
|
rem qbx's link.exe executes code in a segment it just freed
|
||||||
ntvdm -h -i -c -r:.. /e:lib=c:\lib mcv5link %1,,%1,,nul.def
|
ntvdm -h -c -r:.. /e:lib=c:\lib mcv5link %1,,%1,,nul.def
|
||||||
|
|
||||||
ntvdm -c -m -p %1
|
ntvdm -c -m -p %1
|
||||||
|
|
||||||
|
20
Microsoft Cobol v5/BIN/m.sh
Normal file
20
Microsoft Cobol v5/BIN/m.sh
Normal file
@ -0,0 +1,20 @@
|
|||||||
|
str=$(tr '[a-z]' '[A-Z]' <<< $1)
|
||||||
|
|
||||||
|
rm $str.EXE 2>/dev/null
|
||||||
|
rm $str.OBJ 2>/dev/null
|
||||||
|
rm $str.GRP 2>/dev/null
|
||||||
|
rm $str.LST 2>/dev/null
|
||||||
|
rm $str.MAP 2>/dev/null
|
||||||
|
|
||||||
|
ntvdm -u -r:.. -c -d cobol $str,$str,$str,$str
|
||||||
|
|
||||||
|
# link.exe that ships with cobol requires 286+ protected mode. use msvc v5's linker instead
|
||||||
|
# qbx's link.exe executes code in a segment it just freed
|
||||||
|
ntvdm -u -h -c -r:.. -e:lib=c:\\lib mcv5link $str,,$str,,nul.def
|
||||||
|
|
||||||
|
rm $str.OBJ 2>/dev/null
|
||||||
|
rm $str.GRP 2>/dev/null
|
||||||
|
rm $str.LST 2>/dev/null
|
||||||
|
rm $str.MAP 2>/dev/null
|
||||||
|
|
||||||
|
ntvdm -u -c -m -p $str
|
Loading…
Reference in New Issue
Block a user