paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 23:29:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* rtti for ordtypes corrected

Browse Source
This commit is contained in:
florian 1998-09-19 15:23:58 +00:00
parent 0fdaedaec0
commit dc3bc0cd43
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/symdef.inc
View File

@ -920,6 +920,7 @@
else else
rttilist^.concat(new(pai_const,init_8bit(tkInteger))); rttilist^.concat(new(pai_const,init_8bit(tkInteger)));
end; end;
rttilist^.concat(new(pai_const,init_8bit(byte(trans[typ]))));
rttilist^.concat(new(pai_const,init_32bit(low))); rttilist^.concat(new(pai_const,init_32bit(low)));
rttilist^.concat(new(pai_const,init_32bit(high))); rttilist^.concat(new(pai_const,init_32bit(high)));
end; end;
@ -2964,7 +2965,10 @@
{ {
$Log$ $Log$
Revision 1.43 1998-09-18 17:12:40 florian Revision 1.44 1998-09-19 15:23:58 florian
* rtti for ordtypes corrected
Revision 1.43 1998/09/18 17:12:40 florian
* problem with writing of class references fixed * problem with writing of class references fixed
Revision 1.42 1998/09/17 13:41:20 pierre Revision 1.42 1998/09/17 13:41:20 pierre