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

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;