Update of /cvsroot/wisp/wisp/users/dig
In directory sc8-pr-cvs1:/tmp/cvs-serv27076
Modified Files:
mz.tran pe.tran tran.py
Log Message:
made #mz/reloc-count, !mz/reloc, and #mz/overlay default to 0
Index: mz.tran
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/mz.tran,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- mz.tran 17 May 2003 15:05:17 -0000 1.2
+++ mz.tran 18 May 2003 16:14:37 -0000 1.3
@@ -9,14 +9,14 @@
:[ ] make-mz-header
#x4D b, #x5A b, \ magic
'#mz/bytes-in-last-block w, '#mz/blocks-in-file w,
- '#mz/reloc-count w,
+ '#mz/reloc-count (opt) w,
'#mz/header-size w,
'#mz/low-memory-limit w, '#mz/high-memory-limit w,
'#mz/ss w, '#mz/sp w,
'#mz/checksum w,
'#mz/ip w, '#mz/cs w,
- '!mz/reloc w,
- '#mz/overlay w,
+ '!mz/reloc (opt) w,
+ '#mz/overlay (opt) w,
;
\ vim: ft=tran
Index: pe.tran
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/pe.tran,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- pe.tran 18 May 2003 16:01:14 -0000 1.6
+++ pe.tran 18 May 2003 16:14:37 -0000 1.7
@@ -11,7 +11,6 @@
\ The result's assumed origin address is 0x100.
:[ ] make-pe-mz-stub-structure \ ( -- ) no message itself
make-mz-header
- 0 =: #mz/reloc-count \ no relocation
0 =: #mz/header-size \ empty MZ header--load it all
#x40 dup =: #mz/low-memory-limit =: #mz/high-memory-limit
#x-10 =: #mz/ss
@@ -19,8 +18,6 @@
0 =: #mz/checksum
#x100 current-offset + =: #mz/ip
#x-10 =: #mz/cs
- 0 =: !mz/reloc
- 0 =: #mz/overlay
#x8C b, #xc8 b, \ mov %ax, %cs
#x8E b, #xD8 b, \ mov %ds, %ax
Index: tran.py
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/tran.py,v
retrieving revision 1.111
retrieving revision 1.112
diff -u -d -r1.111 -r1.112
--- tran.py 18 May 2003 16:03:57 -0000 1.111
+++ tran.py 18 May 2003 16:14:37 -0000 1.112
@@ -211,7 +211,7 @@
}
for m in 'any const int lit sum sym'.split(' '): um[m] = Class_Marker(m)
- # load builtins
+ # load builtin primitives
bf = open(fn, 'r')
builtins = bf.read()
bf.close()
|
