Преглед на файлове

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

git-svn-id: branches/jvmbackend@18463 -
Jonas Maebe преди 14 години
родител
ревизия
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);