Browse Source

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

git-svn-id: branches/jvmbackend@18463 -
Jonas Maebe 14 years ago
parent
commit
7310bbbaf6
1 changed files with 5 additions and 0 deletions
  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);