Selaa lähdekoodia

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

git-svn-id: branches/jvmbackend@18463 -
Jonas Maebe 14 vuotta sitten
vanhempi
commit
7310bbbaf6
1 muutettua tiedostoa jossa 5 lisäystä ja 0 poistoa
  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);