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

pas2js: split ReadElement, add to parent before reading resolver data

Browse Source 
git-svn-id: trunk@45369 -
This commit is contained in:
Mattias Gaertner 2020-05-15 13:13:05 +00:00
parent 08cb5b7665
commit 0548ac5549
3 changed files with 359 additions and 284 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-passrc/src/pasresolver.pp
View File

@ -14988,7 +14988,7 @@ var
begin begin
Result:=nil; Result:=nil;
if not (Expr.CustomData is TResolvedReference) then if not (Expr.CustomData is TResolvedReference) then
RaiseNotYetImplemented(20170518203134,Expr); RaiseNotYetImplemented(20170518203134,Expr,GetObjName(Expr.CustomData));
Ref:=TResolvedReference(Expr.CustomData); Ref:=TResolvedReference(Expr.CustomData);
Decl:=Ref.Declaration; Decl:=Ref.Declaration;
{$IFDEF VerbosePasResEval} {$IFDEF VerbosePasResEval}
@ -28087,7 +28087,7 @@ begin
Data:=TPasSpecializeTypeData.Create; Data:=TPasSpecializeTypeData.Create;
// add to free list // add to free list
AddResolveData(El,Data,lkModule); AddResolveData(El,Data,lkModule);
Data.SpecializedType:=Result as TPasGenericType; Data.SpecializedType:=Result as TPasGenericType; // no AddRef
end; end;
end; end;

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

@ -1138,7 +1138,7 @@ type
// Dispatch and message modifiers: // Dispatch and message modifiers:
DispatchField: String; DispatchField: String;
DispatchStrField: String; DispatchStrField: String;
MsgIntToProc, MsgStrToProc: TMessageIdToProc_List; // // not stored by filer MsgIntToProc, MsgStrToProc: TMessageIdToProc_List; // not stored by filer
ElevatedLocals: TPas2jsElevatedLocals; ElevatedLocals: TPas2jsElevatedLocals;
public public
constructor Create; override; constructor Create; override;

637
packages/pastojs/src/pas2jsfiler.pp
View File

File diff suppressed because it is too large Load Diff