paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 17:39:20 +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^))); Stack.SetInt(-1,length(tbtstring(arr.Dta^)));
Result:=true; Result:=true;
end; end;
btChar:
begin
Stack.SetInt(-1, 1);
Result:=true;
end;
{$IFNDEF PS_NOWIDESTRING} {$IFNDEF PS_NOWIDESTRING}
btWideString: btWideString:
begin begin

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

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