paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-01 14:22:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed some getlabel to getdatalabel

Browse Source
This commit is contained in:
peter 2000-06-30 22:11:28 +00:00
parent fbb293b639
commit 40e02c89da
2 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/hcgdata.pas
View File

@ -360,7 +360,7 @@ implementation
hp:=pprocsym(p)^.definition;
if assigned(hp^.nextoverloaded) then
internalerror(1209992);
getlabel(l);
getdatalabel(l);
consts^.concat(new(pai_label,init(l)));
consts^.concat(new(pai_const,init_8bit(length(p^.name))));
@ -381,7 +381,7 @@ implementation
_class^.symtable^.foreach({$ifndef TP}@{$endif}do_count);
if count>0 then
begin
getlabel(l);
getdatalabel(l);
datasegment^.concat(new(pai_label,init(l)));
datasegment^.concat(new(pai_const,init_32bit(count)));
_class^.symtable^.foreach({$ifndef TP}@{$endif}genpubmethodtableentry);
@ -731,7 +731,10 @@ implementation
end.
{
$Log$
Revision 1.29 2000-06-20 12:47:52 pierre
Revision 1.30 2000-06-30 22:11:28 peter
* fixed some getlabel to getdatalabel
Revision 1.29 2000/06/20 12:47:52 pierre
* equal_paras and convertable_paras changed by transforming third parameter
into an enum with three possible values:
cp_none, cp_value_equal_const and cp_all.

9
compiler/symdef.inc
View File

@ -3972,8 +3972,8 @@ Const local_symtable_index : longint = $8001;
begin
classtablelist.init;
getlabel(fieldtable);
getlabel(classtable);
getdatalabel(fieldtable);
getdatalabel(classtable);
count:=0;
tablecount:=0;
symtable^.foreach({$ifdef FPC}@{$endif}count_published_fields);
@ -4130,7 +4130,10 @@ Const local_symtable_index : longint = $8001;
{
$Log$
Revision 1.204 2000-06-29 08:42:47 sg
Revision 1.205 2000-06-30 22:11:29 peter
* fixed some getlabel to getdatalabel
Revision 1.204 2000/06/29 08:42:47 sg
* Fix for class field table writing
Revision 1.203 2000/06/25 09:25:29 peter