paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-10 01:28:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

Pascalscript: update to 0b037bef7a68a58237ac25adf08d787db8ecd3be

Browse Source 
git-svn-id: trunk@47813 -
This commit is contained in:
martin 2015-02-15 22:24:17 +00:00
parent 806b395a38
commit 10fea96426
2 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/PascalScript/Source/uPSRuntime.pas
View File

@ -9137,6 +9137,11 @@ begin
Stack.SetInt(-1,length(tbtstring(arr.Dta^)));
Result:=true;
end;
btChar:
begin
Stack.SetInt(-1, 1);
Result:=true;
end;
{$IFNDEF PS_NOWIDESTRING}
btWideString:
begin

13
components/PascalScript/Source/x64.inc
View File

@ -31,9 +31,9 @@ asm
(* Registers:
RCX: Address
RDX: *_RAX
R8: _XMM0
R8: * _XMM0
R9: _REGISTERS
fpc inserts an 20h emty space
fpc inserts an 20h empty space
*)
//{$IFDEF FPC}
push rbp
@ -83,10 +83,10 @@ asm
bt rcx, 3
jnc @g3
cvtsd2ss xmm3, [rax+40]
cvtsd2ss xmm3, [rax+48]
jmp @g3e
@g3:
movsd xmm3, [rax+40]
movsd xmm3, [rax+48]
@g3e:
@ -131,8 +131,9 @@ asm
movd [rsi],xmm1
@g5:
mov RDX, [rbp-24]
movd [rdx],xmm0
mov rdx,[rbp-24]
movsd qword ptr [rdx], xmm0
@g5e:
leave