Update of /cvsroot/wisp/wisp/modules/format
In directory usw-pr-cvs1:/tmp/cvs-serv5741/modules/format
Modified Files:
elfexec.wim
Log Message:
Made format/elfexec.wim avoid |string-length| in favour of |length|.
Index: elfexec.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/format/elfexec.wim,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- elfexec.wim 26 Aug 2002 16:18:19 -0000 1.10
+++ elfexec.wim 7 Sep 2002 21:58:14 -0000 1.11
@@ -47,7 +47,7 @@
(relatives '())) ; list of (address . target)
(let* (((emit-string s)
(cons! rcode s)
- (incr! current (string-length s)))
+ (incr! current (length s)))
((emit-absolute target)
(cons! absolutes (cons current target))
(cons! rcode (make-c8string 4 #\U+00))
|
