2
0
Эх сурвалжийг харах

* set import_lib to current namespace (if any) for records

git-svn-id: branches/jvmbackend@18463 -
Jonas Maebe 14 жил өмнө
parent
commit
7310bbbaf6
1 өөрчлөгдсөн 5 нэмэгдсэн , 0 устгасан
  1. 5 0
      compiler/symdef.pas

+ 5 - 0
compiler/symdef.pas

@@ -2854,6 +2854,11 @@ implementation
         objname:=stringdup(upper(n));
         objrealname:=stringdup(n);
         objectoptions:=[];
+        if assigned(current_module.namespace) then
+          begin
+            import_lib:=stringdup(current_module.namespace^);
+            replace(import_lib^,'.','/');
+          end;
       end;
 
     constructor tabstractrecorddef.ppuload(dt:tdeftyp;ppufile:tcompilerppufile);