paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-12 13:31:14 +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

6
compiler/symtype.pas
View File

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