OSDN Git Service

[FIX] Multi class definison's bug is fixed
authormzp <mzpppp@gmail.com>
Tue, 4 Nov 2008 12:03:15 +0000 (21:03 +0900)
committermzp <mzpppp@gmail.com>
Tue, 4 Nov 2008 12:03:15 +0000 (21:03 +0900)
commit56b7eec173f425d9835be7c52e591fa5ebd0b78d
tree78f15ac1c7dfe6b51a9c7a003afdccf0a238491c
parentd566c21d541b660b8b7c81065160b5d188185aee
[FIX] Multi class definison's bug is fixed

Bug example:
 (define-class A (Object) ())
 (define-class B (Object) ())

Fix:
 - don't share defalut constructor
 - class-slot index is based to 1
example/dup.scm [new file with mode: 0644]
src/asm.ml
src/codegen.ml
test/test_codegen.ml