Explorar el Código

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

git-svn-id: branches/jvmbackend@18463 -
Jonas Maebe hace 14 años
padre
commit
7310bbbaf6
Se han modificado 1 ficheros con 5 adiciones y 0 borrados
  1. 5 0
      compiler/symdef.pas

+ 5 - 0
compiler/symdef.pas

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