mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-09-07 20:41:37 +02:00
codetools: test rename proc
git-svn-id: trunk@65009 -
This commit is contained in:
parent
6a460513ac
commit
4a77082939
@ -311,7 +311,9 @@ begin
|
|||||||
'',
|
'',
|
||||||
'begin',
|
'begin',
|
||||||
' cow{#Rename};',
|
' cow{#Rename};',
|
||||||
|
' p:=@Cow;',
|
||||||
' test1.cow;',
|
' test1.cow;',
|
||||||
|
' p:=@test1.Cow;',
|
||||||
'end.',
|
'end.',
|
||||||
'']);
|
'']);
|
||||||
RenameReferences('Bird');
|
RenameReferences('Bird');
|
||||||
@ -326,7 +328,9 @@ begin
|
|||||||
'',
|
'',
|
||||||
'begin',
|
'begin',
|
||||||
' Bird{#Rename};',
|
' Bird{#Rename};',
|
||||||
|
' p:=@Bird;',
|
||||||
' test1.Bird;',
|
' test1.Bird;',
|
||||||
|
' p:=@test1.Bird;',
|
||||||
'end.',
|
'end.',
|
||||||
'']);
|
'']);
|
||||||
end;
|
end;
|
||||||
|
Loading…
Reference in New Issue
Block a user