Ticket #158: reverted-realname-fix.txt

File reverted-realname-fix.txt, 1.3 KB (added by Jim Ursetto, 15 years ago)
Line 
1$ git log -p c08efe2b8d^..21a4cae970 compiler.scm
2
3commit 21a4cae9701bf34e87741ac360e4f160da79a739
4Author: felix <felix@call-with-current-continuation.org>
5Date:   Tue Jan 12 13:21:47 2010 +0100
6
7    handle numeric version in upgrade message
8
9diff --git a/compiler.scm b/compiler.scm
10index f9f31cd..8dd0eff 100644
11--- a/compiler.scm
12+++ b/compiler.scm
13@@ -1487,7 +1487,7 @@
14         [f-id (gensym 'stub)]
15         [bufvar (gensym)]
16         [rsize (estimate-foreign-result-size rtype)] )
17-    (when sname (set-real-name! f-id (string->symbol sname)))
18+    (set-real-name! f-id #t)
19     (set! foreign-lambda-stubs
20       (cons (make-foreign-stub f-id rtype sname argtypes argnames body cps callback)
21            foreign-lambda-stubs) )
22
23commit c08efe2b8d2dcb339d4d8f9f0bc609bfea13b79c
24Author: felix <felix@call-with-current-continuation.org>
25Date:   Tue Jan 12 09:42:44 2010 +0100
26
27    fix for wrong entry in real-name hash-table
28
29diff --git a/compiler.scm b/compiler.scm
30index 8dd0eff..f9f31cd 100644
31--- a/compiler.scm
32+++ b/compiler.scm
33@@ -1487,7 +1487,7 @@
34         [f-id (gensym 'stub)]
35         [bufvar (gensym)]
36         [rsize (estimate-foreign-result-size rtype)] )
37-    (set-real-name! f-id #t)
38+    (when sname (set-real-name! f-id (string->symbol sname)))
39     (set! foreign-lambda-stubs
40       (cons (make-foreign-stub f-id rtype sname argtypes argnames body cps callback)
41            foreign-lambda-stubs) )