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

* Fix from Peter

Browse Source
This commit is contained in:
marco 2003-10-24 08:37:20 +00:00
parent 0bcacbde35
commit 73544b2b71
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/objpas/typinfo.pp
View File

@ -623,6 +623,7 @@ begin
Value:=Value and $ff;
tkWChar:
Value:=Value and $ffff;
tkEnumeration,
tkInteger:
case GetTypeData(TypeInfo)^.OrdType of
otSWord,otUWord:
@ -1213,7 +1214,10 @@ end;
end.
{
$Log$
Revision 1.17 2003-10-17 20:58:27 olle
Revision 1.18 2003-10-24 08:37:20 marco
* Fix from Peter
Revision 1.17 2003/10/17 20:58:27 olle
* Changed m68k to cpum68k, i386 to cpui386
Revision 1.16 2003/04/24 11:46:25 florian