paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 20:38:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: Rename variable "generic" as "genericP" to not confuse Codetools.

Browse Source 
git-svn-id: branches/fixes_2_0@63471 -
This commit is contained in:
mattias 2020-06-28 16:55:41 +00:00
parent 7138c223b0
commit 06f979742d
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/lazutils/lazfreetype.pas
View File

@ -618,7 +618,7 @@ uses
face := PFace(_face.z);
if face <> nil then
begin
face^.generic := data;
face^.genericP := data;
TT_Set_Face_Pointer := TT_Err_Ok;
end
else
@ -634,7 +634,7 @@ uses
begin
face := PFace(_face.z);
if face <> nil then
TT_Get_Face_Pointer := face^.generic
TT_Get_Face_Pointer := face^.genericP
else
TT_get_Face_Pointer := nil;
end;
@ -879,7 +879,7 @@ uses
ins := PInstance(_ins.z);
if ins <> nil then
begin
ins^.generic := data;
ins^.genericP := data;
TT_Set_Instance_Pointer := TT_Err_Ok;
end
else
@ -895,7 +895,7 @@ uses
begin
ins := PInstance(_ins.z);
if ins <> nil then
TT_Get_Instance_Pointer := ins^.generic
TT_Get_Instance_Pointer := ins^.genericP
else
TT_Get_Instance_Pointer := nil;
end;

4
components/lazutils/ttobjs.pas
View File

@ -486,7 +486,7 @@ type
extension : Pointer;
(* a typeless pointer to the face object's extensions *)
generic : Pointer;
genericP : Pointer;
(* generic pointer - see TT_Set/Get_Face_Pointer *)
end;
@ -537,7 +537,7 @@ type
(* execution context with the instance object *)
(* rather than asking it on demand *)
generic : Pointer;
genericP: Pointer;
(* generic pointer - see TT_Set/Get_Instance_Pointer *)
end;