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

* on 64 bit machines load 64 bit "trash constants" directly as well

Browse Source 
git-svn-id: trunk@4297 -
This commit is contained in:
tom_at_work 2006-07-25 20:35:13 +00:00
parent d0e0ef3d8c
commit 65503f5786
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/ncgutil.pas
View File

@ -902,6 +902,9 @@ implementation
1: cg.a_load_const_ref(list,OS_8,byte(trashintval),ref); 1: cg.a_load_const_ref(list,OS_8,byte(trashintval),ref);
2: cg.a_load_const_ref(list,OS_16,word(trashintval),ref); 2: cg.a_load_const_ref(list,OS_16,word(trashintval),ref);
4: cg.a_load_const_ref(list,OS_32,longint(trashintval),ref); 4: cg.a_load_const_ref(list,OS_32,longint(trashintval),ref);
{$ifdef cpu64bit}
8: cg.a_load_const_ref(list,OS_64,int64(trashintval),ref);
{$endif cpu64bit}
else else
begin begin
countreg := cg.getintregister(list,OS_ADDR); countreg := cg.getintregister(list,OS_ADDR);