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

Merged revision(s) 29037 from branches/svenbarth/packages:

Browse Source 
Fix a potential access violation when exporting symbols on a Unix based system.

expunix.pas, texportlibunix:
  * generatelib: check whether hp2.sym is really assigned before accessing it

........

git-svn-id: trunk@32983 -
This commit is contained in:
svenbarth 2016-01-22 17:02:40 +00:00
parent 557f74cdbd
commit 0aca2357ac
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/expunix.pas
View File

@ -142,6 +142,7 @@ begin
while assigned(hp2) do while assigned(hp2) do
begin begin
if (not hp2.is_var) and if (not hp2.is_var) and
assigned(hp2.sym) and
(hp2.sym.typ=procsym) then (hp2.sym.typ=procsym) then
begin begin
{ the manglednames can already be the same when the procedure { the manglednames can already be the same when the procedure