bulk88

@@ -1,204 +1,215 @@
 static const
-struct processor_costs nocona_cost = {
+struct processor_costs core_cost = {
   {
   /* Start of register allocator costs.  integer->integer move cost is 2. */
 /* cost for loading QImode using movzbl */
-  4,
+  6,
 /* cost of loading integer registers

bulk88

commit fc3093b45eb9ff0790ca25118825401fb7e1c7e4
Author: Daniel Dragan <bulk88@hotmail.com>
Date: Mon May 19 23:07:26 2014 -0400

WIP replace Perl stack with C style stack on Win32

diff --git a/dump.c b/dump.c
index 354cd57..ddbf65d 100644
--- a/dump.c
+++ b/dump.c

bulk88

#line 1 "perllib.c"

#line 1 "C:\\sources\\perl5\\EXTERN.h"

#line 31 "C:\\sources\\perl5\\EXTERN.h"

#line 41 "C:\\sources\\perl5\\EXTERN.h"

#line 54 "C:\\sources\\perl5\\EXTERN.h"

bulk88

C:\sources\Win32-ExeAsDll>perl -Mblib -MWin32::ExeAsDll -e "$o=Win32::ExeAsDll::
new();$o->main('cmd.exe /?');"
The system cannot find message text for message number 0x40002399 in the message
 file for Application.
The system cannot find message text for message number 0x4000239a in the message
 file for Application.
The system cannot find message text for message number 0x4000239b in the message
 file for Application.
The system cannot find message text for message number 0x4000239c in the message
 file for Application.

bulk88

$f = Win32::API::More->new('kernel32', 'WideCharToMultiByte', 'NNPiPiNN', 'i');
$a = "\xF0\xDF\xF0\xDF\x00\x00\x00\x00";
$u = "\x00" x 20;
$r = $f->Call(65001, 0, $a, 2, $u, 20, 0 ,0);
Dump($r);
Dump($a);
Dump($u);


SV = IV(0x22c0240) at 0x22c0250

bulk88

use Win32::API;
use Devel::Peek 'Dump';
$f = Win32::API::More->new('kernel32', 'MultiByteToWideChar', 'NNPiPi', 'i');
$a = "\xFE\xFB\xB1\x00";
$u = "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00";
$r = $f->Call(65001, 0, $a, 3, $u, 5);
Dump($r);
Dump($a);
Dump($u);

bulk88

 embed.fnc       |   5 ++
 embed.h         |   2 +
 hv_func.h       |  32 +++++++++----
 perl_siphash.h  | 138 +++++++++++++++++++++++++++++++++++++++-----------------
 perlstatic.h    |  31 +++++++++++--
 proto.h         |  11 +++++
 sbox32_hash.h   |  16 ++++---
 util.c          |  22 ++++++++-
 zaphod32_hash.h |  53 ++++++++++++++++++++--
 9 files changed, 244 insertions(+), 66 deletions(-)

bulk88

use Config;
my $cc_out = qx'cl 2>&1';
my $b = ($cc_out =~ /( for 80x86| for x86)/);
my $is_64bit_build = !scalar($b);
my $cpu = $is_64bit_build?'X64':'X86';
my $is_msvc_compiler
    =  index($cc_out, 'Microsoft (R) C/C++ Optimizing Compiler') != -1
    || index($cc_out, 'Microsoft (R) 32-bit C/C++ Optimizing Compiler') != -1;

bulk88

#notes on MS usage of SSE instructions
#x64 vcruntime140.dll memchr is SSE
#x86 vcruntime140.dll memchr is no SSE, but DWORD at a time
#x64 msvcr120.dll memchr is no SSE, U8 at a time BADDDD!!!
#x64 msvcrt.dll Win7 memchr is no SSE, U8 at a time BADDDD!!!
#x86 msvcrt.dll Win7 memchr is no SSE, but DWORD at a time
#x64 ntdll.dll Win Built 1903 memchr is no SSE, U8 at a time BADDDD!!!
#x64 ntdll.dll Win7 memchr is no SSE, U8 at a time BADDDD!!!
#x86 ntdll.dll Win7 memchr is no SSE, but DWORD at a time

bulk88

 win32/win32thread.c | 363 +++++++++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 357 insertions(+), 6 deletions(-)

diff --git a/win32/win32thread.c b/win32/win32thread.c
index 023f3a5aa9..dfb75af95a 100644
--- a/win32/win32thread.c
+++ b/win32/win32thread.c
@@ -1,12 +1,101 @@
+#define PERL_IN_WIN32THREAD_C
 #include "EXTERN.h"