no.161.mils

来自「一个内存数据库的源代码这是服务器端还有客户端」· MILS 代码 · 共 60 行

# >Number:         161
# >Category:       Mserver
# >Synopsis:       tostr problem when str module is loaded
# >Confidential:   no
# >Severity:       critical
# >Priority:       high
# >Responsible:    boncz (Peter Boncz)
# >State:          open
# >Class:          sw-bug
# >Submitter-Id:   unknown
# >Arrival-Date:   Wed Jul 15 15:24:01 1998
# >Originator:     [e-mail]
# >Organization:
# CWI
# >Release:        980101
# >Environment:
# 
# >Description:
# In the following script the string becomes different
# in the inner procedure (when the str module is loaded):
# 
# Script
# 8<-----
# PROC test_inner(any in) : void {
#    printf("test_inner.in: %s\n",str(in));
# }
#  
# PROC test_outer(any in) : void {
#    printf("test_outer.in: %s\n",str(in));
#    test_inner(in);
# }
# 8<-----
# Output
# 8<-----
# >test_outer("chr");
# test_outer.in: chr
# test_inner.in: chr
# >module(str);
# >test_outer("chr");
# test_outer.in: chr
# test_inner.in: test_inner.in: %s
# 8<----

setoid(oid(20000000));

PROC test_inner(any in) : void {
   printf("test_inner.in: %s\n",str(in));
}
 
PROC test_outer(any in) : void {
   printf("test_outer.in: %s\n",str(in));
   test_inner(in);
}

test_outer("chr");
module(str);
test_outer("chr");

quit();