no.149.mils

一个内存数据库的源代码这是服务器端还有客户端

# >Number:         149
# >Category:       Mserver
# >Synopsis:       string manipulation in while loops has problems
# >Confidential:   no
# >Severity:       critical
# >Priority:       high
# >Responsible:    boncz (Peter Boncz)
# >State:          open
# >Class:          sw-bug
# >Submitter-Id:   unknown
# >Arrival-Date:   Tue Mar 24 10:59:26 1998
# >Originator:     [e-mail]
# >Organization:
# UvA
# >Release:        980101
# >Environment:
# SunOS
# >Description:
# Following script
# crashes and returns wrong output
# 
# var b := new (int, str );
# 
# proc test1() : void {
#         var i := 1;
#         "   test1".print;
#         s := sprintf("Hallo dit is een string %d", i);
#         s.print;
#         b.insert(i,s);
# #       b.insert(i,sprintf("Hallo %d", i));
#         "   end test1".print;
# }
# 
# var j := 0;
# while(j < 5 ){
#         test1;
#         j := j + 1;
# }
# 
# b.print;
# quit;
#  
# 

setoid(oid(20000000));

var b := new (int, str );

proc test1() : void {
        var i := 1;
        "   test1".print();
        var s := sprintf("Hallo dit is een string %d", i);
        s.print();
        b.insert(i,s);
        b.insert(i,sprintf("Hallo %d", i));
        "   end test1".print();
}

var j := 0;
while(j < 5 ){
        test1();
        j := j + 1;
}

b.print();
quit();