paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 10:49:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix that *annoying* search & replace remnant of incorrect casing

Browse Source 
git-svn-id: trunk@37334 -
This commit is contained in:
svenbarth 2017-09-27 19:42:47 +00:00
parent 6a0dee6583
commit a52b675779
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/symtype.pas
View File

@ -49,7 +49,7 @@ interface
TDef TDef
************************************************} ************************************************}
tgeTSymtable = (gs_none,gs_record,gs_local,gs_para); tgetsymtable = (gs_none,gs_record,gs_local,gs_para);
tdef = class(TDefEntry) tdef = class(TDefEntry)
protected protected
@ -84,7 +84,7 @@ interface
function structalignment:shortint;virtual; function structalignment:shortint;virtual;
function getvardef:longint;virtual;abstract; function getvardef:longint;virtual;abstract;
function getparentdef:tdef;virtual; function getparentdef:tdef;virtual;
function geTSymtable(t:tgeTSymtable):TSymtable;virtual; function getsymtable(t:tgetsymtable):TSymtable;virtual;
function is_publishable:boolean;virtual;abstract; function is_publishable:boolean;virtual;abstract;
function needs_inittable:boolean;virtual;abstract; function needs_inittable:boolean;virtual;abstract;
function needs_separate_initrtti:boolean;virtual;abstract; function needs_separate_initrtti:boolean;virtual;abstract;
@ -362,7 +362,7 @@ implementation
end; end;
function tdef.geTSymtable(t:tgeTSymtable):TSymtable; function tdef.getsymtable(t:tgetsymtable):TSymtable;
begin begin
result:=nil; result:=nil;
end; end;