[Wisp-cvs] wisp/users/dig mz.tran,1.2,1.3 pe.tran,1.6,1.7 tran.py,1.111,1.112

[<di...@us...>]

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()