pastojs: proc references: fixed duplicate names

git-svn-id: trunk@38575 -

packages/pastojs/tests/tcfiler.pas

@@ -149,6 +149,7 @@ type
     procedure TestPC_Proc_Arg;
     procedure TestPC_Class;
     procedure TestPC_ClassForward;
+    procedure TestPC_ClassConstructor;
     procedure TestPC_Initialization;
     procedure TestPC_BoolSwitches;
 
@@ -1806,6 +1807,37 @@ begin
   WriteReadUnit;
 end;
 
+procedure TTestPrecompile.TestPC_ClassConstructor;
+begin
+  StartUnit(false);
+  Add([
+  'interface',
+  'type',
+  '  TObject = class',
+  '    constructor Create; virtual;',
+  '  end;',
+  '  TBird = class',
+  '    constructor Create; override;',
+  '  end;',
+  'procedure DoIt;',
+  'implementation',
+  'constructor TObject.Create;',
+  'begin',
+  'end;',
+  'constructor TBird.Create;',
+  'begin',
+  '  inherited;',
+  'end;',
+  'procedure DoIt;',
+  'var b: TBird;',
+  'begin',
+  '  b:=TBird.Create;',
+  'end;',
+  'end.'
+  ]);
+  WriteReadUnit;
+end;
+
 procedure TTestPrecompile.TestPC_Initialization;
 begin
   StartUnit(false);

packages/pastojs/tests/tcprecompile.pas

@@ -55,6 +55,7 @@ type
     procedure TestPCU_Overloads;
     procedure TestPCU_UnitCycle;
     procedure TestPCU_ClassForward;
+    procedure TestPCU_ClassConstructor;
   end;
 
 function LinesToList(const Lines: array of string): TStringList;
@@ -274,6 +275,46 @@ begin
   CheckPrecompile('test1.pas','src');
 end;
 
+procedure TTestCLI_Precompile.TestPCU_ClassConstructor;
+begin
+  AddUnit('src/system.pp',[
+    'type integer = longint;',
+    'procedure Writeln; varargs;'],
+    ['procedure Writeln; begin end;']);
+  AddUnit('src/unit1.pp',[
+    'type',
+    '  TObject = class',
+    '    constructor Create;',
+    '  end;',
+    '  TBird = class',
+    '    constructor Create; reintroduce;',
+    '  end;',
+    '  TCow = class',
+    '    constructor Create; reintroduce;',
+    '  end;',
+    ''],[
+    'constructor TObject.Create; begin end;',
+    'constructor TBird.Create; begin end;',
+    'constructor TCow.Create; begin end;',
+    '']);
+  AddUnit('src/unit2.pp',[
+    'uses unit1;',
+    'procedure DoIt;',
+    ''],[
+    'procedure DoIt;',
+    'begin',
+    '  TBird.Create;',
+    '  TCow.Create;',
+    'end;',
+    '']);
+  AddFile('test1.pas',[
+    'uses unit2;',
+    'begin',
+    '  DoIt;',
+    'end.']);
+  CheckPrecompile('test1.pas','src');
+end;
+
 Initialization
   RegisterTests([TTestCLI_Precompile]);
 end.