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

* potential range check error fixed

Browse Source
This commit is contained in:
florian 2000-11-08 00:07:40 +00:00
parent f79644d9ca
commit fe2e3e0c01
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
compiler/hcgdata.pas
View File

@ -823,11 +823,7 @@ implementation
datasegment^.concat(new(pai_const_symbol,init(tmplabel))); datasegment^.concat(new(pai_const_symbol,init(tmplabel)));
end; end;
type procedure gintfoptimizevtbls(_class: pobjectdef; implvtbl : plongint);
tlongintarr = array[0..0] of longint;
plongintarr = ^tlongintarr;
procedure gintfoptimizevtbls(_class: pobjectdef; var implvtbl: tlongintarr);
type type
tcompintfentry = record tcompintfentry = record
weight: longint; weight: longint;
@ -909,14 +905,14 @@ implementation
procedure gintfwritedata(_class: pobjectdef); procedure gintfwritedata(_class: pobjectdef);
var var
rawdata,rawcode: taasmoutput; rawdata,rawcode: taasmoutput;
impintfindexes: plongintarr; impintfindexes: plongint;
max: longint; max: longint;
i: longint; i: longint;
begin begin
max:=_class^.implementedinterfaces^.count; max:=_class^.implementedinterfaces^.count;
getmem(impintfindexes,(max+1)*sizeof(longint)); getmem(impintfindexes,(max+1)*sizeof(longint));
gintfoptimizevtbls(_class,impintfindexes^); gintfoptimizevtbls(_class,impintfindexes);
rawdata.init; rawdata.init;
rawcode.init; rawcode.init;
@ -924,7 +920,7 @@ implementation
{ Two pass, one for allocation and vtbl creation } { Two pass, one for allocation and vtbl creation }
for i:=1 to max do for i:=1 to max do
begin begin
if impintfindexes^[i]=i then { if implement itself } if impintfindexes[i]=i then { if implement itself }
begin begin
{ allocate a pointer in the object memory } { allocate a pointer in the object memory }
with pstoredsymtable(_class^.symtable)^ do with pstoredsymtable(_class^.symtable)^ do
@ -943,9 +939,10 @@ implementation
{ second pass: for fill interfacetable and remained ioffsets } { second pass: for fill interfacetable and remained ioffsets }
for i:=1 to max do for i:=1 to max do
begin begin
if i<>impintfindexes^[i] then { why execute x:=x ? } if i<>impintfindexes[i] then { why execute x:=x ? }
with _class^.implementedinterfaces^ do ioffsets(i)^:=ioffsets(impintfindexes^[i])^; with _class^.implementedinterfaces^ do
gintfgenentry(_class,i,impintfindexes^[i],@rawdata); ioffsets(i)^:=ioffsets(impintfindexes[i])^;
gintfgenentry(_class,i,impintfindexes[i],@rawdata);
end; end;
datasegment^.insertlist(@rawdata); datasegment^.insertlist(@rawdata);
rawdata.done; rawdata.done;
@ -1073,7 +1070,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.12 2000-11-06 23:13:53 peter Revision 1.13 2000-11-08 00:07:40 florian
* potential range check error fixed
Revision 1.12 2000/11/06 23:13:53 peter
* uppercase manglednames * uppercase manglednames
Revision 1.11 2000/11/04 17:31:00 florian Revision 1.11 2000/11/04 17:31:00 florian