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

* Initialize fpu regvars from staticsymtable by loading initial value from memory location.

Browse Source 
git-svn-id: trunk@7988 -
This commit is contained in:
yury 2007-07-09 13:27:19 +00:00
parent 9c45584938
commit 658853c139
1 changed files with 9 additions and 1 deletions

10
compiler/ncgutil.pas
View File

@ -1018,6 +1018,8 @@ implementation
{ initializes the regvars from staticsymtable with 0 }
procedure initialize_regvars(p:TObject;arg:pointer);
var
href : treference;
begin
if (tsym(p).typ=staticvarsym) then
begin
@ -1041,7 +1043,13 @@ implementation
tstaticvarsym(p).initialloc.register,
nil);
LOC_CFPUREGISTER :
;
begin
{ initialize fpu regvar by loading from memory }
reference_reset_symbol(href,
current_asmdata.RefAsmSymbol(tstaticvarsym(p).mangledname), 0);
cg.a_loadfpu_ref_reg(TAsmList(arg), tstaticvarsym(p).initialloc.size,
tstaticvarsym(p).initialloc.size, href, tstaticvarsym(p).initialloc.register);
end;
LOC_INVALID :
;
else