blob: 751e06c2c9d75eef2b5b78759058c9b3712b738b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
{ Old file: tbs0213.pp }
{ name mangling problem with nested procedures in overloaded }
uses
ub0179;
PROCEDURE Testsomething(VAR A:LONGINT);
FUNCTION Internaltest(L:LONGINT):LONGINT;
BEGIN
InternalTest:=L+10;
END;
BEGIN
A:=Internaltest(20)+5;
END;
PROCEDURE Testsomething(VAR A:WORD);
FUNCTION Internaltest(L:LONGINT):WORD;
BEGIN
InternalTest:=L+15;
END;
BEGIN
A:=Internaltest(20)+5;
END;
VAR O : LONGINT;
O2 : WORD;
BEGIN
TestSomething(O);
TestSomething(O2);
END.
|
