paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-12 14:08:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

PascalScript: reverted some derivations from the git version

Browse Source 
git-svn-id: trunk@56160 -
This commit is contained in:
martin 2017-10-23 03:10:38 +00:00
parent c1a20347a3
commit c3ae0f3967
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/PascalScript/Source/x86.inc
View File

@ -594,7 +594,7 @@ begin
{$IFNDEF PS_NOWIDESTRING}btWideChar, {$ENDIF}btu16, bts16: tbtu16(res.dta^) := RealCall_Register(Address, EAX, EDX, ECX, @Stack[Length(Stack)-3], Length(Stack) div 4, 2, nil); {$IFNDEF PS_NOWIDESTRING}btWideChar, {$ENDIF}btu16, bts16: tbtu16(res.dta^) := RealCall_Register(Address, EAX, EDX, ECX, @Stack[Length(Stack)-3], Length(Stack) div 4, 2, nil);
btClass : btClass :
begin begin
{$IF DEFINED (fpc) and (fpc_version <= 3)} {$IF DEFINED (fpc) and (fpc_version < 3)}
if IsConstructor or IsVirtualCons then if IsConstructor or IsVirtualCons then
tbtu32(res.dta^) := RealCall_Register(Address, EDX, EAX, ECX, tbtu32(res.dta^) := RealCall_Register(Address, EDX, EAX, ECX,
@Stack[Length(Stack) - 3], Length(Stack) div 4, 4, nil) @Stack[Length(Stack) - 3], Length(Stack) div 4, 4, nil)

2
components/PascalScript/dunit/CompilerTestSimple.pas
View File

@ -266,7 +266,7 @@ end;
procedure TCompilerTestSimple.CreateObject; procedure TCompilerTestSimple.CreateObject;
begin begin
CompileRun('var r: TObject; begin r := TObject.Create; r.Destroy; end.'); CompileRun('var r: TObject; begin r := TObject.Create; r.Free; end.');
end; end;
procedure TCompilerTestSimple.CharTest2; procedure TCompilerTestSimple.CharTest2;