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

pastojs: improved error message typeinfo

Browse Source 
git-svn-id: trunk@35875 -
This commit is contained in:
Mattias Gaertner 2017-04-21 13:46:48 +00:00
parent 3688141236
commit c52668a0ed
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/pastojs/src/fppas2js.pp
View File

@ -269,6 +269,7 @@ ToDos:
- asm: pas() - useful for overloads and protect an identifier from optimization - asm: pas() - useful for overloads and protect an identifier from optimization
- source maps - source maps
- ifthen - ifthen
- stdcall of methods: pass original 'this' as first parameter
Not in Version 1.0: Not in Version 1.0:
- write, writeln - write, writeln
@ -8837,7 +8838,8 @@ begin
RaiseNotSupported(ErrorEl,AContext,20170409195518,'cannot typeinfo itself'); RaiseNotSupported(ErrorEl,AContext,20170409195518,'cannot typeinfo itself');
end; end;
if El.Name='' then if El.Name='' then
RaiseNotSupported(El,AContext,20170412125911,'typeinfo of anonymous '+El.ElementTypeName); DoError(20170421145257,nTypeXCannotBePublished,sTypeXCannotBePublished,
['typeinfo of anonymous '+El.ElementTypeName],ErrorEl);
C:=El.ClassType; C:=El.ClassType;
if C=TPasUnresolvedSymbolRef then if C=TPasUnresolvedSymbolRef then