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

fcl-passrc: test helper for double

Browse Source 
git-svn-id: trunk@41621 -
This commit is contained in:
Mattias Gaertner 2019-03-06 18:10:52 +00:00
parent 2869e9216f
commit 94bb523217
2 changed files with 29 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2733,9 +2733,9 @@ begin
FCurSourceFile := FileResolver.FindSourceFile(AFilename);
FCurFilename := AFilename;
AddFile(FCurFilename);
{$IFDEF HASFS}
{$IFDEF HASFS}
FileResolver.BaseDirectory := IncludeTrailingPathDelimiter(ExtractFilePath(FCurFilename));
{$ENDIF}
{$ENDIF}
if LogEvent(sleFile) then
DoLog(mtInfo,nLogOpeningFile,SLogOpeningFile,[FormatPath(AFileName)],True);
end;

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

@ -934,6 +934,7 @@ type
Procedure TestTypeHelper_String;
Procedure TestTypeHelper_Boolean;
Procedure TestTypeHelper_Double;
Procedure TestTypeHelper_DoubleAlias;
Procedure TestTypeHelper_Constructor_NewInstance;
Procedure TestTypeHelper_Interface;
Procedure TestTypeHelper_Interface_ConstructorFail;
@ -17583,6 +17584,32 @@ begin
end;
procedure TTestResolver.TestTypeHelper_Double;
begin
StartProgram(false);
Add([
'{$modeswitch typehelpers}',
'type',
' Float = double;',
' THelper = type helper for float',
' const NPI = 3.141592;',
' function ToStr: String;',
' end;',
'function THelper.ToStr: String;',
'begin',
'end;',
'var',
' a,b: Float;',
' s: string;',
'begin',
' s:=(a * b.NPI).ToStr;',
' s:=(a * float.NPI).ToStr;',
' s:=float.NPI.ToStr;',
' s:=3.2.ToStr;',
'']);
ParseProgram;
end;
procedure TTestResolver.TestTypeHelper_DoubleAlias;
begin
StartProgram(false);
Add([