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

* fix wrong typecast for smallset

Browse Source 
git-svn-id: trunk@1147 -
This commit is contained in:
peter 2005-09-20 13:51:17 +00:00
parent 64dd758281
commit 32fa578b58
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ncgcon.pas
View File

@ -616,7 +616,7 @@ implementation
if tsetdef(resulttype.def).settype=smallset then if tsetdef(resulttype.def).settype=smallset then
begin begin
location_reset(location,LOC_CONSTANT,OS_32); location_reset(location,LOC_CONSTANT,OS_32);
location.value:=PAInt(value_set)^; location.value:=pLongint(value_set)^;
exit; exit;
end; end;
location_reset(location,LOC_CREFERENCE,OS_NO); location_reset(location,LOC_CREFERENCE,OS_NO);