diff options
author | mattias <mattias@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-01-11 22:05:20 +0000 |
---|---|---|
committer | mattias <mattias@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-01-11 22:05:20 +0000 |
commit | 24eea662bed1d536afc6bbdd4ac4519c23bf777c (patch) | |
tree | f1ab040654995f2529df2b984ce0297533894f3e /packages/fcl-passrc/src/pasresolver.pp | |
parent | 9055089233196ef584756ac52cf5ac52cdf74216 (diff) | |
download | fpc-24eea662bed1d536afc6bbdd4ac4519c23bf777c.tar.gz |
fcl-passrc: fixed compile with pas2js
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@48139 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/fcl-passrc/src/pasresolver.pp')
-rw-r--r-- | packages/fcl-passrc/src/pasresolver.pp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/packages/fcl-passrc/src/pasresolver.pp b/packages/fcl-passrc/src/pasresolver.pp index 6a007df139..f5ccbd26e5 100644 --- a/packages/fcl-passrc/src/pasresolver.pp +++ b/packages/fcl-passrc/src/pasresolver.pp @@ -9205,7 +9205,7 @@ begin // check index and name CheckConstExpr(El.ExportIndex,[revkInt,revkUInt],'integer'); - CheckConstExpr(El.ExportName,[revkString,revkUnicodeString],'string'); + CheckConstExpr(El.ExportName,revkAllStrings,'string'); end; procedure TPasResolver.FinishProcParamAccess(ProcType: TPasProcedureType; @@ -12257,6 +12257,7 @@ begin writeln('TPasResolver.AddExportSymbol ',GetObjName(El)); {$ENDIF} // Note: export symbol is not added to scope + if El=nil then ; end; procedure TPasResolver.AddEnumType(El: TPasEnumType); |