X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;ds=sidebyside;f=src%2Fbackends%2Fjvm%2Fgenerator-jvm-abi.c;h=8d966cbe4877ac404487fbd308d8bc2d5a359deb;hb=8c59e1e41700802575cefb289600028909c5ffc2;hp=b404fca454e4d62bd85c1ba6471bce291c0abe1b;hpb=9f8036eb00032fa7f756113365cb42e05ab262df;p=dsw-obn.git

diff --git a/src/backends/jvm/generator-jvm-abi.c b/src/backends/jvm/generator-jvm-abi.c
index b404fca..8d966cb 100644
--- a/src/backends/jvm/generator-jvm-abi.c
+++ b/src/backends/jvm/generator-jvm-abi.c
@@ -398,7 +398,7 @@ jvm_generate_frame_class(oberon_object_t * proc)
 	abscname = "SYSTEM$FRAME";
 	cname = jvm_get_field_full_name_safe(proc);
 	cname = new_string("%s$FRAME", cname);
-	class = jvm_create_class(cname);
+	class = jvm_create_class(proc -> gen_proc -> class -> dir, cname);
 	fp = class -> fp;
 
 	class -> full_name = cname;