paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 01:09:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

* uppercase manglednames

Browse Source
This commit is contained in:
peter 2000-11-06 23:13:53 +00:00
parent 11b74e236f
commit e2fd02814d
3 changed files with 22 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/hcgdata.pas
View File

@ -755,8 +755,8 @@ implementation
function gintfgetvtbllabelname(_class: pobjectdef; intfindex: integer): string;
begin
gintfgetvtbllabelname:='_$$_'+_class^.objname^+'_$$_'+
_class^.implementedinterfaces^.interfaces(intfindex)^.objname^+'_$$_VTBL';
gintfgetvtbllabelname:='_$$_'+upper(_class^.objname^)+'_$$_'+
upper(_class^.implementedinterfaces^.interfaces(intfindex)^.objname^)+'_$$_VTBL';
end;
procedure gintfcreatevtbl(_class: pobjectdef; intfindex: integer; rawdata,rawcode: paasmoutput);
@ -773,7 +773,7 @@ implementation
count:=implintf^.implproccount(intfindex);
for i:=1 to count do
begin
tmps:=implintf^.implprocs(intfindex,i)^.mangledname+'_$$_'+curintf^.objname^;
tmps:=implintf^.implprocs(intfindex,i)^.mangledname+'_$$_'+upper(curintf^.objname^);
{ create wrapper code }
cgintfwrapper(rawcode,implintf^.implprocs(intfindex,i),tmps,implintf^.ioffsets(intfindex)^);
{ create reference }
@ -1046,7 +1046,7 @@ implementation
if c^.owner^.name=nil then
s1:=''
else
s1:=c^.owner^.name^;
s1:=upper(c^.owner^.name^);
if c^.objname=nil then
s2:=''
else
@ -1073,7 +1073,10 @@ implementation
end.
{
$Log$
Revision 1.11 2000-11-04 17:31:00 florian
Revision 1.12 2000-11-06 23:13:53 peter
* uppercase manglednames
Revision 1.11 2000/11/04 17:31:00 florian
* fixed some problems of previous commit
Revision 1.10 2000/11/04 14:25:19 florian

9
compiler/symdef.pas
View File

@ -4414,7 +4414,7 @@ Const local_symtable_index : longint = $8001;
if owner^.name=nil then
s1:=''
else
s1:=owner^.name^;
s1:=upper(owner^.name^);
if objname=nil then
s2:=''
else
@ -4430,7 +4430,7 @@ Const local_symtable_index : longint = $8001;
if owner^.name=nil then
s1:=''
else
s1:=owner^.name^;
s1:=upper(owner^.name^);
if objname=nil then
s2:=''
else
@ -5521,7 +5521,10 @@ Const local_symtable_index : longint = $8001;
end.
{
$Log$
Revision 1.7 2000-11-06 23:11:38 florian
Revision 1.8 2000-11-06 23:13:53 peter
* uppercase manglednames
Revision 1.7 2000/11/06 23:11:38 florian
* writeln debugger uninstalled ;)
Revision 1.6 2000/11/06 23:05:52 florian

13
compiler/symsym.pas
View File

@ -884,7 +884,7 @@ implementation
if assigned(owner) then
begin
if (owner^.symtabletype = objectsymtable) then
obj := owner^.name^+'__'+name;
obj := upper(owner^.name^)+'__'+name;
{ this code was correct only as long as the local symboltable
of the parent had the same name as the function
but this is no true anymore !! PM
@ -1393,13 +1393,13 @@ implementation
case owner^.symtabletype of
staticsymtable :
if (cs_create_smart in aktmoduleswitches) then
prefix:='_'+owner^.name^+'$$$_'
prefix:='_'+upper(owner^.name^)+'$$$_'
else
prefix:='_';
unitsymtable,
globalsymtable :
prefix:=
'U_'+owner^.name^+'_';
'U_'+upper(owner^.name^)+'_';
else
Message(sym_e_invalid_call_tvarsymmangledname);
end;
@ -1708,7 +1708,7 @@ implementation
(sp_static in symoptions) then
begin
if (cs_gdb_gsym in aktglobalswitches) then st := 'G'+st else st := 'S'+st;
stabstring := strpnew('"'+owner^.name^+'__'+name+':'+st+
stabstring := strpnew('"'+upper(owner^.name^)+'__'+name+':'+st+
'",'+
tostr(N_LCSYM)+',0,'+tostr(fileinfo.line)+','+mangledname);
end
@ -2464,7 +2464,10 @@ implementation
end.
{
$Log$
Revision 1.2 2000-11-01 23:04:38 peter
Revision 1.3 2000-11-06 23:13:53 peter
* uppercase manglednames
Revision 1.2 2000/11/01 23:04:38 peter
* tprocdef.fullprocname added for better casesensitve writing of
procedures