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

* fixed tests/webtbs/uw3969 compilation with -Or for ppc (removed

Browse Source 
superfluous call to location_get_data_ref)

git-svn-id: trunk@926 -
This commit is contained in:
Jonas Maebe 2005-08-23 06:39:31 +00:00
parent 5ad7967a67
commit 3aa4e8008e
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/ncgutil.pas
View File

@ -1008,7 +1008,6 @@ implementation
if not is_class_or_interface(tparavarsym(p).vartype.def) and
tparavarsym(p).vartype.def.needs_inittable then
begin
location_get_data_ref(list,tparavarsym(p).localloc,href,is_open_array(tparavarsym(p).vartype.def));
if (tparavarsym(p).varspez=vs_value) then
begin
include(current_procinfo.flags,pi_needs_implicit_finally);