mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-09 00:35:56 +02:00
PascalScript: Update test for 64 bit / fpc: No PS methods
git-svn-id: trunk@56206 -
This commit is contained in:
parent
b98ec3d5df
commit
d07e04d57d
@ -1,6 +1,15 @@
|
|||||||
|
|
||||||
unit CompilerTestFunctions;
|
unit CompilerTestFunctions;
|
||||||
|
|
||||||
|
{$IFDEF fpc}
|
||||||
|
{$IFnDEF cpu86} // Has MyAllMethodsHandler
|
||||||
|
{$define empty_methods_handler}
|
||||||
|
{$ENDIF}
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
|
{$IFnDEF empty_methods_handler}
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
interface
|
interface
|
||||||
|
|
||||||
uses Classes,
|
uses Classes,
|
||||||
@ -28,7 +37,9 @@ type
|
|||||||
published
|
published
|
||||||
procedure CallProcedure;
|
procedure CallProcedure;
|
||||||
procedure CallMethod;
|
procedure CallMethod;
|
||||||
|
{$IFnDEF empty_methods_handler}
|
||||||
procedure CallScriptFunctionAsMethod;
|
procedure CallScriptFunctionAsMethod;
|
||||||
|
{$ENDIF}
|
||||||
procedure WideStringFunctions;
|
procedure WideStringFunctions;
|
||||||
procedure CheckConsts;
|
procedure CheckConsts;
|
||||||
end;
|
end;
|
||||||
@ -154,6 +165,7 @@ begin
|
|||||||
CheckEquals('Test+hello', vResultS, last_script);
|
CheckEquals('Test+hello', vResultS, last_script);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
{$IFnDEF empty_methods_handler}
|
||||||
type
|
type
|
||||||
TTestMethod = function (s: string): string of object;
|
TTestMethod = function (s: string): string of object;
|
||||||
|
|
||||||
@ -166,6 +178,7 @@ begin
|
|||||||
Check(@Meth <> nil, 'Unable to find function');
|
Check(@Meth <> nil, 'Unable to find function');
|
||||||
CheckEquals('Test Results: INDATA', Meth('INDATA'));
|
CheckEquals('Test Results: INDATA', Meth('INDATA'));
|
||||||
end;
|
end;
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
|
|
||||||
procedure TCompilerTestFunctions.CheckConsts;
|
procedure TCompilerTestFunctions.CheckConsts;
|
||||||
|
Loading…
Reference in New Issue
Block a user