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

* set pi_do_call for accesses to threadvars

Browse Source
This commit is contained in:
Jonas Maebe 2003-06-07 14:39:18 +00:00
parent 46a27d8c27
commit acdfd1d445
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/nld.pas
View File

@ -492,6 +492,8 @@ implementation
if ([vo_is_thread_var,vo_is_dll_var]*tvarsym(symtableentry).varoptions)<>[] then if ([vo_is_thread_var,vo_is_dll_var]*tvarsym(symtableentry).varoptions)<>[] then
registers32:=1; registers32:=1;
if (vo_is_thread_var in tvarsym(symtableentry).varoptions) then
include(current_procinfo.flags,pi_do_call);
if nf_write in flags then if nf_write in flags then
Tvarsym(symtableentry).trigger_notifications(vn_onwrite) Tvarsym(symtableentry).trigger_notifications(vn_onwrite)
else else
@ -1245,7 +1247,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.96 2003-05-26 19:38:28 peter Revision 1.97 2003-06-07 14:39:18 jonas
* set pi_do_call for accesses to threadvars
Revision 1.96 2003/05/26 19:38:28 peter
* generic fpc_shorstr_concat * generic fpc_shorstr_concat
+ fpc_shortstr_append_shortstr optimization + fpc_shortstr_append_shortstr optimization