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

* call def2regtyp via the chlcgobj class reference so it also works when

Browse Source 
hlcg is nil

git-svn-id: branches/hlcgllvm@28144 -
This commit is contained in:
Jonas Maebe 2014-07-03 22:28:35 +00:00
parent 1516661249
commit b520fb12be
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/llvm/llvmdef.pas
View File

@ -134,8 +134,8 @@ implementation
frombytesize, frombytesize,
tobytesize: asizeint; tobytesize: asizeint;
begin begin
fromregtyp:=hlcg.def2regtyp(fromsize); fromregtyp:=chlcgobj.def2regtyp(fromsize);
toregtyp:=hlcg.def2regtyp(tosize); toregtyp:=chlcgobj.def2regtyp(tosize);
{ int to pointer or vice versa } { int to pointer or vice versa }
if fromregtyp=R_ADDRESSREGISTER then if fromregtyp=R_ADDRESSREGISTER then
begin begin