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

pastojs: added libpas2js hook SetPas2JSUnitAliasCallBack

Browse Source 
git-svn-id: trunk@43813 -
This commit is contained in:
Mattias Gaertner 2019-12-30 11:00:58 +00:00
parent 25c11a94c4
commit 366ee5e835
2 changed files with 30 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
packages/fcl-passrc/tests/tcresolver.pas
View File

@ -379,6 +379,7 @@ type
Procedure TestUnit_UnitNotFoundErrorPos;
Procedure TestUnit_AccessIndirectUsedUnitFail;
Procedure TestUnit_Intf1Impl2Intf1;
Procedure TestUnit_Intf1Impl2Intf1_Duplicate;
// procs
Procedure TestProcParam;
@ -2386,8 +2387,13 @@ function TCustomTestResolver.OnPasResolverFindUnit(SrcResolver: TPasResolver;
{$ENDIF}
CurEngine:=FindModuleWithFilename(aFilename);
if CurEngine=nil then exit(false);
aModule:=InitUnit(CurEngine);
if aModule=nil then exit(false);
if CurEngine.Module=nil then
begin
aModule:=InitUnit(CurEngine);
if aModule=nil then exit(false);
end
else
aModule:=CurEngine.Module;
OnPasResolverFindUnit:=aModule;
Result:=true;
end;
@ -6091,6 +6097,27 @@ begin
ParseUnit;
end;
procedure TTestResolver.TestUnit_Intf1Impl2Intf1_Duplicate;
begin
AddModuleWithIntfImplSrc('unit1.pp',
LinesToStr([
'type number = longint;']),
LinesToStr([
'uses afile;',
'procedure DoIt;',
'begin',
' i:=3;',
'end;']));
StartUnit(true);
Add([
'interface',
'uses unit1, foo in ''unit1.pp'';',
'var i: number;',
'implementation']);
ParseUnit;
end;
procedure TTestResolver.TestProcParam;
begin
StartProgram(false);

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

@ -212,7 +212,7 @@ begin
UnitNameMaxLen:=Max(UnitNameLen,255);
s:=UseUnitName;
SetLength(s,UnitNameMaxLen);
if OnUnitAlias(OnUnitAliasData,Pointer(s),UnitNameLen,UnitNameMaxLen) then
if OnUnitAlias(OnUnitAliasData,Pointer(s),UnitNameMaxLen) then
UseUnitName:=LeftStr(s,UnitNameLen);
end;
end;