projects/ldc: runtime/ldc2.diff annotate

annotate runtime/ldc2.diff @ 768:85e2093edd73

Updated runtime README a bit. Messed up the druntime patch earlier :/

author	Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>
date	Wed, 12 Nov 2008 06:26:45 +0100
parents	eb1ce70ee01c
children	038ea84f2d9d

rev	line source
763 9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	1 Index: src/common/core/bitmanip.d
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	2 ===================================================================
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	3 --- src/common/core/bitmanip.d (revision 46)
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	4 +++ src/common/core/bitmanip.d (working copy)
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	5 @@ -171,6 +171,10 @@
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	6 */
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	7 uint outpl( uint port_address, uint value );
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	8 }
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	9 +else version( LDC )
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	10 +{
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	11 + public import ldc.bitmanip;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	12 +}
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13 else
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	14 {
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	15 public import std.intrinsic;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	16 Index: src/common/core/thread.d
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	17 ===================================================================
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	18 --- src/common/core/thread.d (revision 46)
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	19 +++ src/common/core/thread.d (working copy)
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	20 @@ -275,8 +275,50 @@
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	21 }
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	22 body
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	23 {
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	24 - version( D_InlineAsm_X86 )
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	25 + version( LDC )
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	26 {
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	27 + version(X86)
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	28 + {
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	29 + uint eax,ecx,edx,ebx,ebp,esi,edi;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	30 + asm
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	31 + {
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	32 + mov eax[EBP], EAX ;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	33 + mov ecx[EBP], ECX ;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	34 + mov edx[EBP], EDX ;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	35 + mov ebx[EBP], EBX ;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	36 + mov ebp[EBP], EBP ;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	37 + mov esi[EBP], ESI ;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	38 + mov edi[EBP], EDI ;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	39 + }
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	40 + }
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	41 + else version (X86_64)
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	42 + {
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	43 + ulong rax,rbx,rcx,rdx,rbp,rsi,rdi,rsp,r10,r11,r12,r13,r14,r15;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	44 + asm
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	45 + {
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	46 + movq rax[RBP], RAX ;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	47 + movq rbx[RBP], RBX ;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	48 + movq rcx[RBP], RCX ;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	49 + movq rdx[RBP], RDX ;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	50 + movq rbp[RBP], RBP ;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	51 + movq rsi[RBP], RSI ;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	52 + movq rdi[RBP], RDI ;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	53 + movq rsp[RBP], RSP ;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	54 + movq r10[RBP], R10 ;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	55 + movq r11[RBP], R11 ;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	56 + movq r12[RBP], R12 ;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	57 + movq r13[RBP], R13 ;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	58 + movq r14[RBP], R14 ;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	59 + movq r15[RBP], R15 ;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	60 + }
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	61 + }
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	62 + else
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	63 + {
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	64 + static assert( false, "Architecture not supported." );
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	65 + }
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	66 + }
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	67 + else version( D_InlineAsm_X86 )
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	68 + {
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	69 asm
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	70 {
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	71 pushad;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	72 @@ -328,8 +370,12 @@
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	73 }
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	74 }
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	75
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	76 - version( D_InlineAsm_X86 )
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	77 + version( LDC )
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	78 {
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	79 + // nothing to pop
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	80 + }
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	81 + else version( D_InlineAsm_X86 )
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	82 + {
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	83 asm
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	84 {
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	85 popad;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	86 @@ -2259,6 +2305,18 @@
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	87 version = AsmPPC_Posix;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	88 }
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	89
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	90 + version( LLVM_InlineAsm_X86 )
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	91 + {
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	92 + version( Win32 )
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	93 + version = LLVM_AsmX86_Win32;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	94 + else version( Posix )
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	95 + version = LLVM_AsmX86_Posix;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	96 + }
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	97 + else version( LLVM_InlineAsm_X86_64 )
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	98 + {
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	99 + version( Posix )
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	100 + version = LLVM_AsmX86_64_Posix;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	101 + }
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	102
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	103 version( Posix )
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	104 {
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	105 @@ -2269,6 +2327,10 @@
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	106 version( AsmX86_Win32 ) {} else
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	107 version( AsmX86_Posix ) {} else
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	108 version( AsmPPC_Posix ) {} else
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	109 + version( LLVM_AsmX86_Win32 ) {} else
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	110 + version( LLVM_AsmX86_Posix ) {} else
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	111 + //TODO: Enable when x86-64 Posix supports fibers
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	112 + //version( LLVM_AsmX86_64_Posix ) {} else
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	113 {
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	114 // NOTE: The ucontext implementation requires architecture specific
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	115 // data definitions to operate so testing for it must be done
766 af04bbae8553 D2: Fixed global constants not initialized until module constructor. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 763 diff changeset	116 @@ -2279,10 +2341,9 @@
af04bbae8553 D2: Fixed global constants not initialized until module constructor. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 763 diff changeset	117 import core.sys.posix.ucontext;
af04bbae8553 D2: Fixed global constants not initialized until module constructor. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 763 diff changeset	118 }
af04bbae8553 D2: Fixed global constants not initialized until module constructor. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 763 diff changeset	119 }
af04bbae8553 D2: Fixed global constants not initialized until module constructor. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 763 diff changeset	120 -
af04bbae8553 D2: Fixed global constants not initialized until module constructor. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 763 diff changeset	121 - const size_t PAGESIZE;
af04bbae8553 D2: Fixed global constants not initialized until module constructor. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 763 diff changeset	122 }
af04bbae8553 D2: Fixed global constants not initialized until module constructor. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 763 diff changeset	123
af04bbae8553 D2: Fixed global constants not initialized until module constructor. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 763 diff changeset	124 +const size_t PAGESIZE;
af04bbae8553 D2: Fixed global constants not initialized until module constructor. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 763 diff changeset	125
af04bbae8553 D2: Fixed global constants not initialized until module constructor. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 763 diff changeset	126 static this()
af04bbae8553 D2: Fixed global constants not initialized until module constructor. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 763 diff changeset	127 {
af04bbae8553 D2: Fixed global constants not initialized until module constructor. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 763 diff changeset	128 @@ -2423,6 +2484,28 @@
763 9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	129 ret;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	130 }
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	131 }
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	132 + else version( LLVM_AsmX86_Posix )
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	133 + {
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	134 + asm
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	135 + {
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	136 + // clobber registers to save
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	137 + inc EBX;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	138 + inc ESI;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	139 + inc EDI;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	140 +
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	141 + // store oldp again with more acc
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	142 + mov EAX, oldp;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	143 + mov [EAX], ESP;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	144 + // load newp to begin context swi
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	145 + mov ESP, newp;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	146 + }
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	147 + }
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	148 +/+
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	149 + version( LLVM_AsmX86_64_Posix )
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	150 + {
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	151 + //TODO: Fiber implementation here
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	152 + }
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	153 ++/
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	154 else static if( is( ucontext_t ) )
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	155 {
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	156 Fiber cfib = Fiber.getThis();
766 af04bbae8553 D2: Fixed global constants not initialized until module constructor. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 763 diff changeset	157 @@ -3088,6 +3171,22 @@
763 9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	158 push( 0x00000000 ); // ESI
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	159 push( 0x00000000 ); // EDI
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	160 }
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	161 + else version( LLVM_AsmX86_Posix )
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	162 + {
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	163 + push( cast(size_t) &fiber_entryPoint ); // EIP
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	164 + push( 0x00000000 ); // newp
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	165 + push( 0x00000000 ); // oldp
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	166 + push( 0x00000000 ); // EBP
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	167 + push( 0x00000000 ); // EBX
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	168 + push( 0x00000000 ); // ESI
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	169 + push( 0x00000000 ); // EDI
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	170 + }
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	171 +//TODO: Implement x86-64 fibers
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	172 +/+
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	173 + else version( LLVM_AsmX86_Posix )
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	174 + {
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	175 + }
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	176 ++/
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	177 else version( AsmPPC_Posix )
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	178 {
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	179 version( StackGrowsDown )
768 85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	180 Index: src/common/ldc.mak
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	181 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	182 --- src/common/ldc.mak (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	183 +++ src/common/ldc.mak (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	184 @@ -0,0 +1,139 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	185 +# Makefile to build the D runtime library core components for Posix
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	186 +# Designed to work with GNU make
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	187 +# Targets:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	188 +# make
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	189 +# Same as make all
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	190 +# make lib
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	191 +# Build the common library
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	192 +# make doc
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	193 +# Generate documentation
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	194 +# make clean
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	195 +# Delete unneeded files created by build process
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	196 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	197 +LIB_TARGET=libdruntime-core.a
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	198 +LIB_MASK=libdruntime-core*.a
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	199 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	200 +CP=cp -f
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	201 +RM=rm -f
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	202 +MD=mkdir -p
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	203 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	204 +ADD_CFLAGS=
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	205 +ADD_DFLAGS=
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	206 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	207 +#CFLAGS=-O $(ADD_CFLAGS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	208 +CFLAGS=-g $(ADD_CFLAGS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	209 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	210 +#DFLAGS=-release -O -inline -w $(ADD_DFLAGS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	211 +DFLAGS=-g -w $(ADD_DFLAGS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	212 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	213 +#TFLAGS=-O -inline -w $(ADD_DFLAGS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	214 +TFLAGS=-g -w $(ADD_DFLAGS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	215 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	216 +DOCFLAGS=-version=DDoc
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	217 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	218 +CC=gcc
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	219 +LC=$(AR) -qsv
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	220 +DC=ldc2
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	221 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	222 +INC_DEST=../../import
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	223 +LIB_DEST=../../lib
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	224 +DOC_DEST=../../doc
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	225 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	226 +.SUFFIXES: .s .S .c .cpp .d .html .o
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	227 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	228 +.s.o:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	229 + $(CC) -c $(CFLAGS) $< -o$@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	230 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	231 +.S.o:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	232 + $(CC) -c $(CFLAGS) $< -o$@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	233 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	234 +.c.o:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	235 + $(CC) -c $(CFLAGS) $< -o$@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	236 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	237 +.cpp.o:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	238 + g++ -c $(CFLAGS) $< -o$@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	239 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	240 +.d.o:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	241 + $(DC) -c $(DFLAGS) -Hf$*.di $< -of$@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	242 +# $(DC) -c $(DFLAGS) $< -of$@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	243 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	244 +.d.html:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	245 + $(DC) -c -o- $(DOCFLAGS) -Df$*.html $<
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	246 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	247 +targets : lib doc
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	248 +all : lib doc
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	249 +core : lib
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	250 +lib : core.lib
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	251 +doc : core.doc
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	252 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	253 +######################################################
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	254 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	255 +OBJ_CORE= \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	256 + core/bitmanip.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	257 + core/exception.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	258 + core/memory_.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	259 + core/runtime.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	260 + core/thread.o
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	261 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	262 +OBJ_STDC= \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	263 + core/stdc/errno.o
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	264 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	265 +ALL_OBJS= \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	266 + $(OBJ_CORE) \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	267 + $(OBJ_STDC)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	268 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	269 +######################################################
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	270 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	271 +DOC_CORE= \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	272 + core/bitmanip.html \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	273 + core/exception.html \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	274 + core/memory.html \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	275 + core/runtime.html \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	276 + core/thread.html
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	277 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	278 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	279 +ALL_DOCS=
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	280 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	281 +######################################################
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	282 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	283 +core.lib : $(LIB_TARGET)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	284 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	285 +$(LIB_TARGET) : $(ALL_OBJS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	286 + $(RM) $@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	287 + $(LC) $@ $(ALL_OBJS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	288 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	289 +core.doc : $(ALL_DOCS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	290 + echo Documentation generated.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	291 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	292 +######################################################
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	293 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	294 +### bitmanip
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	295 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	296 +core/bitmanip.o : core/bitmanip.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	297 + $(DC) -c $(DFLAGS) core/bitmanip.d -of$@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	298 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	299 +### memory
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	300 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	301 +core/memory_.o : core/memory.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	302 + $(DC) -c $(DFLAGS) -Hf$*.di $< -of$@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	303 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	304 +### thread
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	305 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	306 +core/thread.o : core/thread.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	307 + $(DC) -c $(DFLAGS) -d -Hf$*.di core/thread.d -of$@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	308 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	309 +######################################################
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	310 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	311 +clean :
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	312 + find . -name "*.di" \| xargs $(RM)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	313 + $(RM) $(ALL_OBJS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	314 + $(RM) $(ALL_DOCS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	315 + find . -name "$(LIB_MASK)" \| xargs $(RM)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	316 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	317 +install :
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	318 + $(MD) $(INC_DEST)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	319 + find . -name "*.di" -exec cp -f {} $(INC_DEST)/{} \;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	320 + $(MD) $(DOC_DEST)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	321 + find . -name "*.html" -exec cp -f {} $(DOC_DEST)/{} \;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	322 + $(MD) $(LIB_DEST)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	323 + find . -name "$(LIB_MASK)" -exec cp -f {} $(LIB_DEST)/{} \;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	324 Index: src/build-ldc.sh
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	325 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	326 --- src/build-ldc.sh (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	327 +++ src/build-ldc.sh (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	328 @@ -0,0 +1,19 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	329 +#!/usr/bin/env bash
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	330 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	331 +OLDHOME=$HOME
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	332 +export HOME=`pwd`
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	333 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	334 +goerror(){
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	335 + export HOME=$OLDHOME
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	336 + echo "="
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	337 + echo "= * Error *"
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	338 + echo "="
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	339 + exit 1
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	340 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	341 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	342 +make clean -fldc.mak \|\| goerror
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	343 +make lib doc install -fldc.mak $@ \|\| goerror
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	344 +make clean -fldc.mak \|\| goerror
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	345 +chmod 644 ../import/*.di \|\| goerror
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	346 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	347 +export HOME=$OLDHOME
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	348 Index: src/ldc2.conf
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	349 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	350 --- src/ldc2.conf (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	351 +++ src/ldc2.conf (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	352 @@ -0,0 +1,2 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	353 +[Environment]
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	354 +DFLAGS="-I%HOME%/common" "-I%HOME%/../import"
763 9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	355 Index: src/gc/basic/gcx.d
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	356 ===================================================================
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	357 --- src/gc/basic/gcx.d (revision 46)
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	358 +++ src/gc/basic/gcx.d (working copy)
766 af04bbae8553 D2: Fixed global constants not initialized until module constructor. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 763 diff changeset	359 @@ -55,7 +55,11 @@
af04bbae8553 D2: Fixed global constants not initialized until module constructor. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 763 diff changeset	360 private import cstdlib = core.stdc.stdlib : calloc, free, malloc, realloc;
af04bbae8553 D2: Fixed global constants not initialized until module constructor. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 763 diff changeset	361 private import core.stdc.string;
af04bbae8553 D2: Fixed global constants not initialized until module constructor. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 763 diff changeset	362
af04bbae8553 D2: Fixed global constants not initialized until module constructor. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 763 diff changeset	363 -debug private import core.stdc.stdio;
af04bbae8553 D2: Fixed global constants not initialized until module constructor. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 763 diff changeset	364 +debug(PRINTF)
af04bbae8553 D2: Fixed global constants not initialized until module constructor. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 763 diff changeset	365 +{
af04bbae8553 D2: Fixed global constants not initialized until module constructor. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 763 diff changeset	366 + private import core.sys.posix.pthread;
af04bbae8553 D2: Fixed global constants not initialized until module constructor. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 763 diff changeset	367 + private import core.stdc.stdio;
af04bbae8553 D2: Fixed global constants not initialized until module constructor. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 763 diff changeset	368 +}
af04bbae8553 D2: Fixed global constants not initialized until module constructor. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 763 diff changeset	369
af04bbae8553 D2: Fixed global constants not initialized until module constructor. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 763 diff changeset	370 version (GNU)
af04bbae8553 D2: Fixed global constants not initialized until module constructor. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 763 diff changeset	371 {
af04bbae8553 D2: Fixed global constants not initialized until module constructor. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 763 diff changeset	372 @@ -66,6 +70,12 @@
763 9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	373 private import gcc.builtins; // for __builtin_unwind_init
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	374 }
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	375
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	376 +struct BlkInfo
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	377 +{
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	378 + void* base;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	379 + size_t size;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	380 + uint attr;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	381 +}
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	382
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	383 private
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	384 {
766 af04bbae8553 D2: Fixed global constants not initialized until module constructor. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 763 diff changeset	385 @@ -77,13 +87,6 @@
763 9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	386 ALL_BITS = 0b1111_1111
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	387 }
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	388
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	389 - struct BlkInfo
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	390 - {
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	391 - void* base;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	392 - size_t size;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	393 - uint attr;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	394 - }
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	395 -
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	396 extern (C) void* rt_stackBottom();
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	397 extern (C) void* rt_stackTop();
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	398
766 af04bbae8553 D2: Fixed global constants not initialized until module constructor. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 763 diff changeset	399 @@ -1468,7 +1471,7 @@
763 9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	400 void initialize()
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	401 { int dummy;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	402
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	403 - (cast(byte*)&this)[0 .. Gcx.sizeof] = 0;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	404 + (cast(byte*)this)[0 .. Gcx.sizeof] = 0;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	405 stackBottom = cast(char*)&dummy;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	406 log_init();
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	407 debug (THREADINVARIANT)
768 85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	408 Index: src/gc/basic/ldc.mak
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	409 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	410 --- src/gc/basic/ldc.mak (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	411 +++ src/gc/basic/ldc.mak (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	412 @@ -0,0 +1,100 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	413 +# Makefile to build the garbage collector D library for Posix
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	414 +# Designed to work with GNU make
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	415 +# Targets:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	416 +# make
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	417 +# Same as make all
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	418 +# make lib
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	419 +# Build the garbage collector library
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	420 +# make doc
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	421 +# Generate documentation
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	422 +# make clean
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	423 +# Delete unneeded files created by build process
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	424 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	425 +LIB_TARGET=libdruntime-gc-basic.a
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	426 +LIB_MASK=libdruntime-gc-basic*.a
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	427 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	428 +CP=cp -f
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	429 +RM=rm -f
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	430 +MD=mkdir -p
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	431 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	432 +ADD_CFLAGS=
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	433 +ADD_DFLAGS=
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	434 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	435 +#CFLAGS=-O $(ADD_CFLAGS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	436 +CFLAGS=-g $(ADD_CFLAGS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	437 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	438 +#DFLAGS=-release -O -inline -w $(ADD_DFLAGS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	439 +DFLAGS=-g -w -disable-invariants $(ADD_DFLAGS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	440 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	441 +#TFLAGS=-O -inline -w $(ADD_DFLAGS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	442 +TFLAGS=-g -w $(ADD_DFLAGS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	443 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	444 +DOCFLAGS=-version=DDoc
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	445 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	446 +CC=gcc
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	447 +LC=$(AR) -qsv
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	448 +DC=ldc2
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	449 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	450 +LIB_DEST=../../../lib
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	451 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	452 +.SUFFIXES: .s .S .c .cpp .d .html .o
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	453 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	454 +.s.o:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	455 + $(CC) -c $(CFLAGS) $< -o$@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	456 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	457 +.S.o:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	458 + $(CC) -c $(CFLAGS) $< -o$@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	459 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	460 +.c.o:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	461 + $(CC) -c $(CFLAGS) $< -o$@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	462 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	463 +.cpp.o:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	464 + g++ -c $(CFLAGS) $< -o$@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	465 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	466 +.d.o:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	467 + $(DC) -c $(DFLAGS) $< -of$@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	468 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	469 +.d.html:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	470 + $(DC) -c -o- $(DOCFLAGS) -Df$*.html $<
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	471 +# $(DC) -c -o- $(DOCFLAGS) -Df$*.html dmd.ddoc $<
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	472 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	473 +targets : lib doc
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	474 +all : lib doc
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	475 +lib : basic.lib
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	476 +doc : basic.doc
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	477 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	478 +######################################################
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	479 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	480 +ALL_OBJS= \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	481 + gc.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	482 + gcalloc.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	483 + gcbits.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	484 + gcstats.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	485 + gcx.o
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	486 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	487 +######################################################
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	488 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	489 +ALL_DOCS=
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	490 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	491 +######################################################
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	492 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	493 +basic.lib : $(LIB_TARGET)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	494 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	495 +$(LIB_TARGET) : $(ALL_OBJS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	496 + $(RM) $@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	497 + $(LC) $@ $(ALL_OBJS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	498 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	499 +basic.doc : $(ALL_DOCS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	500 + echo No documentation available.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	501 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	502 +######################################################
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	503 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	504 +clean :
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	505 + find . -name "*.di" \| xargs $(RM)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	506 + $(RM) $(ALL_OBJS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	507 + $(RM) $(ALL_DOCS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	508 + $(RM) $(LIB_MASK)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	509 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	510 +install :
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	511 + $(MD) $(LIB_DEST)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	512 + $(CP) $(LIB_MASK) $(LIB_DEST)/.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	513 Index: src/gc/stub/ldc.mak
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	514 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	515 --- src/gc/stub/ldc.mak (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	516 +++ src/gc/stub/ldc.mak (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	517 @@ -0,0 +1,97 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	518 +# Makefile to build the garbage collector D library for Posix
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	519 +# Designed to work with GNU make
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	520 +# Targets:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	521 +# make
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	522 +# Same as make all
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	523 +# make lib
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	524 +# Build the garbage collector library
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	525 +# make doc
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	526 +# Generate documentation
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	527 +# make clean
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	528 +# Delete unneeded files created by build process
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	529 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	530 +LIB_TARGET=libdruntime-gc-stub.a
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	531 +LIB_MASK=libdruntime-gc-stub*.a
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	532 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	533 +CP=cp -f
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	534 +RM=rm -f
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	535 +MD=mkdir -p
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	536 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	537 +ADD_CFLAGS=
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	538 +ADD_DFLAGS=
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	539 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	540 +CFLAGS=-O $(ADD_CFLAGS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	541 +#CFLAGS=-g $(ADD_CFLAGS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	542 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	543 +#DFLAGS=-release -O -inline -w $(ADD_DFLAGS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	544 +DFLAGS=-g -w $(ADD_DFLAGS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	545 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	546 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	547 +#TFLAGS=-O -inline -w $(ADD_DFLAGS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	548 +TFLAGS=-g -w $(ADD_DFLAGS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	549 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	550 +DOCFLAGS=-version=DDoc
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	551 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	552 +CC=gcc
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	553 +LC=$(AR) -qsv
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	554 +DC=ldc2
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	555 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	556 +LIB_DEST=../../../lib
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	557 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	558 +.SUFFIXES: .s .S .c .cpp .d .html .o
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	559 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	560 +.s.o:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	561 + $(CC) -c $(CFLAGS) $< -o$@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	562 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	563 +.S.o:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	564 + $(CC) -c $(CFLAGS) $< -o$@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	565 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	566 +.c.o:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	567 + $(CC) -c $(CFLAGS) $< -o$@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	568 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	569 +.cpp.o:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	570 + g++ -c $(CFLAGS) $< -o$@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	571 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	572 +.d.o:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	573 + $(DC) -c $(DFLAGS) $< -of$@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	574 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	575 +.d.html:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	576 + $(DC) -c -o- $(DOCFLAGS) -Df$*.html $<
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	577 +# $(DC) -c -o- $(DOCFLAGS) -Df$*.html dmd.ddoc $<
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	578 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	579 +targets : lib doc
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	580 +all : lib doc
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	581 +lib : stub.lib
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	582 +doc : stub.doc
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	583 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	584 +######################################################
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	585 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	586 +ALL_OBJS= \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	587 + gc.o
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	588 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	589 +######################################################
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	590 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	591 +ALL_DOCS=
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	592 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	593 +######################################################
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	594 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	595 +stub.lib : $(LIB_TARGET)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	596 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	597 +$(LIB_TARGET) : $(ALL_OBJS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	598 + $(RM) $@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	599 + $(LC) $@ $(ALL_OBJS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	600 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	601 +stub.doc : $(ALL_DOCS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	602 + echo No documentation available.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	603 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	604 +######################################################
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	605 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	606 +clean :
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	607 + find . -name "*.di" \| xargs $(RM)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	608 + $(RM) $(ALL_OBJS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	609 + $(RM) $(ALL_DOCS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	610 + $(RM) $(LIB_MASK)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	611 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	612 +install :
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	613 + $(MD) $(LIB_DEST)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	614 + $(CP) $(LIB_MASK) $(LIB_DEST)/.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	615 Index: src/compiler/ldc/adi.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	616 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	617 --- src/compiler/ldc/adi.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	618 +++ src/compiler/ldc/adi.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	619 @@ -0,0 +1,602 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	620 +//_ adi.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	621 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	622 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	623 + * Part of the D programming language runtime library.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	624 + * Dynamic array property support routines
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	625 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	626 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	627 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	628 + * Copyright (C) 2000-2006 by Digital Mars, www.digitalmars.com
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	629 + * Written by Walter Bright
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	630 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	631 + * This software is provided 'as-is', without any express or implied
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	632 + * warranty. In no event will the authors be held liable for any damages
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	633 + * arising from the use of this software.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	634 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	635 + * Permission is granted to anyone to use this software for any purpose,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	636 + * including commercial applications, and to alter it and redistribute it
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	637 + * freely, in both source and binary form, subject to the following
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	638 + * restrictions:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	639 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	640 + * o The origin of this software must not be misrepresented; you must not
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	641 + * claim that you wrote the original software. If you use this software
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	642 + * in a product, an acknowledgment in the product documentation would be
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	643 + * appreciated but is not required.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	644 + * o Altered source versions must be plainly marked as such, and must not
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	645 + * be misrepresented as being the original software.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	646 + * o This notice may not be removed or altered from any source
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	647 + * distribution.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	648 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	649 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	650 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	651 + * Modified by Sean Kelly <sean@f4.ca> for use with Tango.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	652 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	653 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	654 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	655 +//debug=adi; // uncomment to turn on debugging printf's
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	656 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	657 +private
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	658 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	659 + version( D_Version2 )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	660 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	661 + import core.stdc.stdlib;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	662 + import core.stdc.string;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	663 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	664 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	665 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	666 + import tango.stdc.stdlib;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	667 + import tango.stdc.string;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	668 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	669 + import util.utf;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	670 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	671 + enum BlkAttr : uint
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	672 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	673 + FINALIZE = 0b0000_0001,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	674 + NO_SCAN = 0b0000_0010,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	675 + NO_MOVE = 0b0000_0100,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	676 + ALL_BITS = 0b1111_1111
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	677 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	678 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	679 + extern (C) void* gc_malloc( size_t sz, uint ba = 0 );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	680 + extern (C) void* gc_calloc( size_t sz, uint ba = 0 );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	681 + extern (C) void gc_free( void* p );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	682 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	683 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	684 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	685 +/**********************************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	686 + * Reverse array of chars.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	687 + * Handled separately because embedded multibyte encodings should not be
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	688 + * reversed.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	689 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	690 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	691 +extern (C) char[] _adReverseChar(char[] a)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	692 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	693 + if (a.length > 1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	694 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	695 + char[6] tmp;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	696 + char[6] tmplo;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	697 + char* lo = a.ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	698 + char* hi = &a[length - 1];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	699 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	700 + while (lo < hi)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	701 + { auto clo = *lo;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	702 + auto chi = *hi;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	703 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	704 + debug(adi) printf("lo = %d, hi = %d\n", lo, hi);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	705 + if (clo <= 0x7F && chi <= 0x7F)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	706 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	707 + debug(adi) printf("\tascii\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	708 + *lo = chi;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	709 + *hi = clo;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	710 + lo++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	711 + hi--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	712 + continue;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	713 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	714 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	715 + uint stridelo = UTF8stride[clo];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	716 + // don't barf on invalid strides, just ignore it
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	717 + if (stridelo == 0xFF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	718 + stridelo = 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	719 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	720 + uint stridehi = 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	721 + while ((chi & 0xC0) == 0x80)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	722 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	723 + chi = *--hi;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	724 + stridehi++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	725 + assert(hi >= lo);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	726 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	727 + if (lo == hi)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	728 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	729 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	730 + debug(adi) printf("\tstridelo = %d, stridehi = %d\n", stridelo, stridehi);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	731 + if (stridelo == stridehi)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	732 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	733 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	734 + memcpy(tmp.ptr, lo, stridelo);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	735 + memcpy(lo, hi, stridelo);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	736 + memcpy(hi, tmp.ptr, stridelo);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	737 + lo += stridelo;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	738 + hi--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	739 + continue;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	740 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	741 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	742 + /* Shift the whole array. This is woefully inefficient
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	743 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	744 + memcpy(tmp.ptr, hi, stridehi);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	745 + memcpy(tmplo.ptr, lo, stridelo);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	746 + memmove(lo + stridehi, lo + stridelo , cast(size_t)(hi - lo) - stridelo);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	747 + memcpy(lo, tmp.ptr, stridehi);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	748 + memcpy(hi + stridehi - stridelo, tmplo.ptr, stridelo);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	749 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	750 + lo += stridehi;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	751 + hi = hi - 1 + (stridehi - stridelo);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	752 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	753 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	754 + return a;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	755 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	756 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	757 +unittest
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	758 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	759 + char[] a = "abcd"c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	760 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	761 + char[] r = a.dup.reverse;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	762 + //writefln(r);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	763 + assert(r == "dcba");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	764 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	765 + a = "a\u1235\u1234c";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	766 + //writefln(a);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	767 + r = a.dup.reverse;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	768 + //writefln(r);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	769 + assert(r == "c\u1234\u1235a");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	770 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	771 + a = "ab\u1234c";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	772 + //writefln(a);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	773 + r = a.dup.reverse;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	774 + //writefln(r);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	775 + assert(r == "c\u1234ba");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	776 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	777 + a = "\u3026\u2021\u3061\n";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	778 + r = a.dup.reverse;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	779 + assert(r == "\n\u3061\u2021\u3026");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	780 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	781 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	782 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	783 +/**********************************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	784 + * Reverse array of wchars.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	785 + * Handled separately because embedded multiword encodings should not be
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	786 + * reversed.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	787 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	788 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	789 +extern (C) wchar[] _adReverseWchar(wchar[] a)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	790 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	791 + if (a.length > 1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	792 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	793 + wchar[2] tmp;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	794 + wchar* lo = a.ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	795 + wchar* hi = &a[length - 1];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	796 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	797 + while (lo < hi)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	798 + { auto clo = *lo;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	799 + auto chi = *hi;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	800 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	801 + if ((clo < 0xD800 \|\| clo > 0xDFFF) &&
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	802 + (chi < 0xD800 \|\| chi > 0xDFFF))
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	803 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	804 + *lo = chi;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	805 + *hi = clo;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	806 + lo++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	807 + hi--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	808 + continue;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	809 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	810 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	811 + int stridelo = 1 + (clo >= 0xD800 && clo <= 0xDBFF);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	812 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	813 + int stridehi = 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	814 + if (chi >= 0xDC00 && chi <= 0xDFFF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	815 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	816 + chi = *--hi;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	817 + stridehi++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	818 + assert(hi >= lo);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	819 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	820 + if (lo == hi)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	821 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	822 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	823 + if (stridelo == stridehi)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	824 + { int stmp;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	825 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	826 + assert(stridelo == 2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	827 + assert(stmp.sizeof == 2 * (*lo).sizeof);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	828 + stmp = cast(int)lo;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	829 + cast(int)lo = cast(int)hi;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	830 + cast(int)hi = stmp;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	831 + lo += stridelo;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	832 + hi--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	833 + continue;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	834 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	835 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	836 + /* Shift the whole array. This is woefully inefficient
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	837 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	838 + memcpy(tmp.ptr, hi, stridehi * wchar.sizeof);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	839 + memcpy(hi + stridehi - stridelo, lo, stridelo * wchar.sizeof);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	840 + memmove(lo + stridehi, lo + stridelo , (hi - (lo + stridelo)) * wchar.sizeof);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	841 + memcpy(lo, tmp.ptr, stridehi * wchar.sizeof);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	842 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	843 + lo += stridehi;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	844 + hi = hi - 1 + (stridehi - stridelo);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	845 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	846 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	847 + return a;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	848 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	849 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	850 +unittest
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	851 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	852 + wchar[] a = "abcd";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	853 + wchar[] r;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	854 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	855 + r = a.dup.reverse;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	856 + assert(r == "dcba");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	857 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	858 + a = "a\U00012356\U00012346c";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	859 + r = a.dup.reverse;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	860 + assert(r == "c\U00012346\U00012356a");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	861 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	862 + a = "ab\U00012345c";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	863 + r = a.dup.reverse;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	864 + assert(r == "c\U00012345ba");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	865 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	866 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	867 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	868 +/**********************************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	869 + * Support for array.reverse property.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	870 + * The actual type is painted on the return value by the frontend
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	871 + * Given and returned length are number of elements
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	872 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	873 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	874 +extern (C) void[] _adReverse(void[] a, size_t szelem)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	875 + out (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	876 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	877 + assert(result.ptr is a.ptr);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	878 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	879 + body
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	880 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	881 + if (a.length >= 2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	882 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	883 + byte* tmp;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	884 + byte[16] buffer;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	885 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	886 + void* lo = a.ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	887 + void* hi = a.ptr + (a.length - 1) * szelem;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	888 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	889 + tmp = buffer.ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	890 + if (szelem > 16)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	891 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	892 + //version (Win32)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	893 + //tmp = cast(byte*) alloca(szelem);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	894 + //else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	895 + tmp = cast(byte*) gc_malloc(szelem);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	896 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	897 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	898 + for (; lo < hi; lo += szelem, hi -= szelem)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	899 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	900 + memcpy(tmp, lo, szelem);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	901 + memcpy(lo, hi, szelem);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	902 + memcpy(hi, tmp, szelem);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	903 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	904 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	905 + version (Win32)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	906 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	907 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	908 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	909 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	910 + //if (szelem > 16)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	911 + // BUG: bad code is generate for delete pointer, tries
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	912 + // to call delclass.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	913 + //gc_free(tmp);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	914 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	915 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	916 + return a.ptr[0 .. a.length];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	917 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	918 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	919 +unittest
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	920 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	921 + debug(adi) printf("array.reverse.unittest\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	922 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	923 + int[] a = new int[5];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	924 + int[] b;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	925 + size_t i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	926 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	927 + for (i = 0; i < 5; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	928 + a[i] = i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	929 + b = a.reverse;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	930 + assert(b is a);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	931 + for (i = 0; i < 5; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	932 + assert(a[i] == 4 - i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	933 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	934 + struct X20
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	935 + { // More than 16 bytes in size
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	936 + int a;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	937 + int b, c, d, e;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	938 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	939 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	940 + X20[] c = new X20[5];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	941 + X20[] d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	942 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	943 + for (i = 0; i < 5; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	944 + { c[i].a = i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	945 + c[i].e = 10;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	946 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	947 + d = c.reverse;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	948 + assert(d is c);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	949 + for (i = 0; i < 5; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	950 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	951 + assert(c[i].a == 4 - i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	952 + assert(c[i].e == 10);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	953 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	954 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	955 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	956 +/**********************************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	957 + * Sort array of chars.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	958 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	959 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	960 +extern (C) char[] _adSortChar(char[] a)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	961 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	962 + if (a.length > 1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	963 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	964 + dstring da = toUTF32(a);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	965 + da.sort;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	966 + size_t i = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	967 + foreach (dchar d; da)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	968 + { char[4] buf;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	969 + auto t = toUTF8(buf, d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	970 + a[i .. i + t.length] = t[];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	971 + i += t.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	972 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	973 + delete da;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	974 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	975 + return a;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	976 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	977 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	978 +/**********************************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	979 + * Sort array of wchars.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	980 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	981 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	982 +extern (C) wchar[] _adSortWchar(wchar[] a)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	983 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	984 + if (a.length > 1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	985 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	986 + dstring da = toUTF32(a);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	987 + da.sort;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	988 + size_t i = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	989 + foreach (dchar d; da)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	990 + { wchar[2] buf;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	991 + auto t = toUTF16(buf, d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	992 + a[i .. i + t.length] = t[];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	993 + i += t.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	994 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	995 + delete da;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	996 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	997 + return a;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	998 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	999 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1000 +/***************************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1001 + * Support for array equality test.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1002 + * The actual type is painted on the return value by the frontend
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1003 + * Given lengths are number of elements
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1004 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1005 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1006 +extern (C) int _adEq(void[] a1, void[] a2, TypeInfo ti)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1007 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1008 + debug(adi) printf("_adEq(a1.length = %d, a2.length = %d)\n", a1.length, a2.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1009 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1010 + if (a1.length != a2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1011 + return 0; // not equal
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1012 + else if (a1.ptr == a2.ptr)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1013 + return 1; // equal
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1014 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1015 + // let typeinfo decide
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1016 + return ti.equals(&a1, &a2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1017 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1018 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1019 +unittest
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1020 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1021 + debug(adi) printf("array.Eq unittest\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1022 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1023 + char[] a = "hello"c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1024 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1025 + assert(a != "hel");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1026 + assert(a != "helloo");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1027 + assert(a != "betty");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1028 + assert(a == "hello");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1029 + assert(a != "hxxxx");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1030 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1031 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1032 +/***************************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1033 + * Support for array compare test.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1034 + * The actual type is painted on the return value by the frontend
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1035 + * Given lengths are number of elements
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1036 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1037 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1038 +extern (C) int _adCmp(void[] a1, void[] a2, TypeInfo ti)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1039 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1040 + debug(adi) printf("adCmp()\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1041 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1042 + if (a1.ptr == a2.ptr &&
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1043 + a1.length == a2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1044 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1045 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1046 + auto len = a1.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1047 + if (a2.length < len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1048 + len = a2.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1049 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1050 + // let typeinfo decide
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1051 + return ti.compare(&a1, &a2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1052 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1053 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1054 +unittest
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1055 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1056 + debug(adi) printf("array.Cmp unittest\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1057 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1058 + char[] a = "hello"c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1059 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1060 + assert(a > "hel");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1061 + assert(a >= "hel");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1062 + assert(a < "helloo");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1063 + assert(a <= "helloo");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1064 + assert(a > "betty");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1065 + assert(a >= "betty");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1066 + assert(a == "hello");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1067 + assert(a <= "hello");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1068 + assert(a >= "hello");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1069 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1070 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1071 +/***************************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1072 + * Support for array compare test.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1073 + * The actual type is painted on the return value by the frontend
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1074 + * Given lengths are number of elements
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1075 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1076 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1077 +extern (C) int _adCmpChar(void[] a1, void[] a2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1078 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1079 + version(D_InlineAsm_X86)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1080 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1081 + //version = Asm86;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1082 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1083 + version (Asm86)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1084 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1085 + asm
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1086 + { naked ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1087 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1088 + push EDI ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1089 + push ESI ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1090 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1091 + mov ESI,a1+4[4+ESP] ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1092 + mov EDI,a2+4[4+ESP] ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1093 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1094 + mov ECX,a1[4+ESP] ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1095 + mov EDX,a2[4+ESP] ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1096 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1097 + cmp ECX,EDX ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1098 + jb GotLength ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1099 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1100 + mov ECX,EDX ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1101 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1102 +GotLength:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1103 + cmp ECX,4 ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1104 + jb DoBytes ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1105 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1106 + // Do alignment if neither is dword aligned
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1107 + test ESI,3 ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1108 + jz Aligned ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1109 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1110 + test EDI,3 ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1111 + jz Aligned ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1112 +DoAlign:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1113 + mov AL,[ESI] ; //align ESI to dword bounds
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1114 + mov DL,[EDI] ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1115 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1116 + cmp AL,DL ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1117 + jnz Unequal ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1118 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1119 + inc ESI ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1120 + inc EDI ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1121 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1122 + test ESI,3 ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1123 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1124 + lea ECX,[ECX-1] ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1125 + jnz DoAlign ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1126 +Aligned:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1127 + mov EAX,ECX ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1128 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1129 + // do multiple of 4 bytes at a time
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1130 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1131 + shr ECX,2 ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1132 + jz TryOdd ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1133 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1134 + repe ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1135 + cmpsd ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1136 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1137 + jnz UnequalQuad ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1138 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1139 +TryOdd:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1140 + mov ECX,EAX ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1141 +DoBytes:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1142 + // if still equal and not end of string, do up to 3 bytes slightly
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1143 + // slower.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1144 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1145 + and ECX,3 ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1146 + jz Equal ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1147 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1148 + repe ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1149 + cmpsb ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1150 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1151 + jnz Unequal ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1152 +Equal:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1153 + mov EAX,a1[4+ESP] ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1154 + mov EDX,a2[4+ESP] ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1155 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1156 + sub EAX,EDX ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1157 + pop ESI ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1158 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1159 + pop EDI ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1160 + ret ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1161 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1162 +UnequalQuad:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1163 + mov EDX,[EDI-4] ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1164 + mov EAX,[ESI-4] ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1165 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1166 + cmp AL,DL ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1167 + jnz Unequal ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1168 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1169 + cmp AH,DH ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1170 + jnz Unequal ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1171 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1172 + shr EAX,16 ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1173 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1174 + shr EDX,16 ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1175 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1176 + cmp AL,DL ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1177 + jnz Unequal ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1178 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1179 + cmp AH,DH ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1180 +Unequal:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1181 + sbb EAX,EAX ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1182 + pop ESI ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1183 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1184 + or EAX,1 ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1185 + pop EDI ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1186 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1187 + ret ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1188 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1189 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1190 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1191 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1192 + int len;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1193 + int c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1194 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1195 + debug(adi) printf("adCmpChar()\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1196 + len = cast(int)a1.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1197 + if (a2.length < len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1198 + len = cast(int)a2.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1199 + c = memcmp(cast(char )a1.ptr, cast(char )a2.ptr, len);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1200 + if (!c)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1201 + c = cast(int)a1.length - cast(int)a2.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1202 + return c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1203 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1204 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1205 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1206 +unittest
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1207 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1208 + debug(adi) printf("array.CmpChar unittest\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1209 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1210 + char[] a = "hello"c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1211 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1212 + assert(a > "hel");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1213 + assert(a >= "hel");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1214 + assert(a < "helloo");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1215 + assert(a <= "helloo");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1216 + assert(a > "betty");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1217 + assert(a >= "betty");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1218 + assert(a == "hello");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1219 + assert(a <= "hello");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1220 + assert(a >= "hello");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1221 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1222 Index: src/compiler/ldc/lifetime.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1223 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1224 --- src/compiler/ldc/lifetime.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1225 +++ src/compiler/ldc/lifetime.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1226 @@ -0,0 +1,1147 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1227 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1228 + * This module contains all functions related to an object's lifetime:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1229 + * allocation, resizing, deallocation, and finalization.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1230 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1231 + * Copyright: Copyright (C) 2004-2007 Digital Mars, www.digitalmars.com.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1232 + * All rights reserved.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1233 + * License:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1234 + * This software is provided 'as-is', without any express or implied
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1235 + * warranty. In no event will the authors be held liable for any damages
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1236 + * arising from the use of this software.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1237 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1238 + * Permission is granted to anyone to use this software for any purpose,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1239 + * including commercial applications, and to alter it and redistribute it
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1240 + * freely, in both source and binary form, subject to the following
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1241 + * restrictions:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1242 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1243 + * o The origin of this software must not be misrepresented; you must not
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1244 + * claim that you wrote the original software. If you use this software
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1245 + * in a product, an acknowledgment in the product documentation would be
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1246 + * appreciated but is not required.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1247 + * o Altered source versions must be plainly marked as such, and must not
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1248 + * be misrepresented as being the original software.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1249 + * o This notice may not be removed or altered from any source
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1250 + * distribution.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1251 + * Authors: Walter Bright, Sean Kelly, Tomas Lindquist Olsen
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1252 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1253 +module lifetime;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1254 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1255 +//debug=PRINTF;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1256 +//debug=PRINTF2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1257 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1258 +private
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1259 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1260 + version( D_Version2 )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1261 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1262 + import core.stdc.stdlib;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1263 + import core.stdc.string;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1264 + import core.stdc.stdarg;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1265 + debug(PRINTF) import core.stdc.stdio;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1266 + else debug(PRINTF2) import core.stdc.stdio;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1267 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1268 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1269 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1270 + import tango.stdc.stdlib;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1271 + import tango.stdc.string;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1272 + import tango.stdc.stdarg;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1273 + debug(PRINTF) import tango.stdc.stdio;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1274 + else debug(PRINTF2) import tango.stdc.stdio;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1275 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1276 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1277 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1278 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1279 +private
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1280 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1281 + enum BlkAttr : uint
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1282 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1283 + FINALIZE = 0b0000_0001,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1284 + NO_SCAN = 0b0000_0010,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1285 + NO_MOVE = 0b0000_0100,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1286 + ALL_BITS = 0b1111_1111
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1287 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1288 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1289 + struct BlkInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1290 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1291 + void* base;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1292 + size_t size;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1293 + uint attr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1294 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1295 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1296 + extern (C) uint gc_getAttr( void* p );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1297 + extern (C) uint gc_setAttr( void* p, uint a );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1298 + extern (C) uint gc_clrAttr( void* p, uint a );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1299 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1300 + extern (C) void* gc_malloc( size_t sz, uint ba = 0 );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1301 + extern (C) void* gc_calloc( size_t sz, uint ba = 0 );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1302 + extern (C) size_t gc_extend( void* p, size_t mx, size_t sz );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1303 + extern (C) void gc_free( void* p );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1304 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1305 + extern (C) void* gc_addrOf( void* p );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1306 + extern (C) size_t gc_sizeOf( void* p );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1307 + extern (C) BlkInfo gc_query( void* p );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1308 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1309 + extern (C) bool onCollectResource( Object o );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1310 + extern (C) void onFinalizeError( ClassInfo c, Exception e );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1311 + extern (C) void onOutOfMemoryError();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1312 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1313 + extern (C) void _d_monitordelete(Object h, bool det = true);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1314 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1315 + enum
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1316 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1317 + PAGESIZE = 4096
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1318 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1319 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1320 + alias bool function(Object) CollectHandler;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1321 + CollectHandler collectHandler = null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1322 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1323 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1324 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1325 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1326 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1327 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1328 +extern (C) Object _d_allocclass(ClassInfo ci)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1329 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1330 + void* p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1331 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1332 + debug(PRINTF2) printf("_d_allocclass(ci = %p, %s)\n", ci, cast(char *)ci.name.ptr);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1333 + /+
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1334 + if (ci.flags & 1) // if COM object
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1335 + { /* COM objects are not garbage collected, they are reference counted
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1336 + * using AddRef() and Release(). They get free'd by C's free()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1337 + * function called by Release() when Release()'s reference count goes
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1338 + * to zero.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1339 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1340 + p = tango.stdc.stdlib.malloc(ci.init.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1341 + if (!p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1342 + onOutOfMemoryError();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1343 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1344 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1345 + +/
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1346 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1347 + p = gc_malloc(ci.init.length,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1348 + BlkAttr.FINALIZE \| (ci.flags & 2 ? BlkAttr.NO_SCAN : 0));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1349 + debug(PRINTF2) printf(" p = %p\n", p);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1350 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1351 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1352 + debug(PRINTF2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1353 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1354 + printf("p = %p\n", p);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1355 + printf("ci = %p, ci.init = %p, len = %d\n", ci, ci.init.ptr, ci.init.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1356 + printf("vptr = %p\n", cast(void*) ci.init.ptr);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1357 + printf("vtbl[0] = %p\n", (cast(void**) ci.init.ptr)[0]);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1358 + printf("vtbl[1] = %p\n", (cast(void**) ci.init.ptr)[1]);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1359 + printf("init[0] = %p\n", (cast(uint**) ci.init.ptr)[0]);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1360 + printf("init[1] = %p\n", (cast(uint**) ci.init.ptr)[1]);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1361 + printf("init[2] = %p\n", (cast(uint**) ci.init.ptr)[2]);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1362 + printf("init[3] = %p\n", (cast(uint**) ci.init.ptr)[3]);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1363 + printf("init[4] = %p\n", (cast(uint**) ci.init.ptr)[4]);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1364 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1365 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1366 + // initialize it
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1367 + // ldc does this inline
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1368 + //(cast(byte*) p)[0 .. ci.init.length] = ci.init[];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1369 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1370 + debug(PRINTF) printf("initialization done\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1371 + return cast(Object) p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1372 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1373 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1374 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1375 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1376 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1377 +extern (C) void _d_delinterface(void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1378 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1379 + if (p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1380 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1381 + Interface* pi = cast(Interface *)p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1382 + Object o = cast(Object)(p - pi.offset);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1383 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1384 + _d_delclass(o);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1385 + //*p = null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1386 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1387 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1388 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1389 +// used for deletion
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1390 +private extern (D) alias void function(Object) fp_t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1391 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1392 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1393 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1394 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1395 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1396 +extern (C) void _d_delclass(Object p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1397 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1398 + if (p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1399 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1400 + debug(PRINTF) printf("_d_delclass(%p)\n", p);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1401 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1402 + ClassInfo pc = cast(ClassInfo )p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1403 + if (*pc)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1404 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1405 + ClassInfo c = **pc;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1406 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1407 + rt_finalize(cast(void*) p);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1408 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1409 + if (c.deallocator)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1410 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1411 + fp_t fp = cast(fp_t)c.deallocator;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1412 + (*fp)(p); // call deallocator
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1413 + //*p = null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1414 + return;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1415 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1416 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1417 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1418 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1419 + rt_finalize(cast(void*) p);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1420 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1421 + gc_free(cast(void*) p);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1422 + //*p = null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1423 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1424 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1425 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1426 +/+
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1427 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1428 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1429 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1430 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1431 +struct Array
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1432 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1433 + size_t length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1434 + void* data;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1435 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1436 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1437 ++/
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1438 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1439 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1440 + * Allocate a new array of length elements.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1441 + * ti is the type of the resulting array, or pointer to element.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1442 + * The resulting array is initialized to 0
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1443 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1444 +extern (C) void* _d_newarrayT(TypeInfo ti, size_t length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1445 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1446 + void* p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1447 + auto size = ti.next.tsize(); // array element size
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1448 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1449 + debug(PRINTF) printf("_d_newarrayT(length = %u, size = %d)\n", length, size);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1450 + if (length == 0 \|\| size == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1451 + return null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1452 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1453 + version (D_InlineAsm_X86)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1454 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1455 + asm
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1456 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1457 + mov EAX,size ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1458 + mul EAX,length ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1459 + mov size,EAX ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1460 + jc Loverflow ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1461 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1462 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1463 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1464 + size *= length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1465 + p = gc_malloc(size + 1, !(ti.next.flags() & 1) ? BlkAttr.NO_SCAN : 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1466 + debug(PRINTF) printf(" p = %p\n", p);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1467 + memset(p, 0, size);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1468 + return p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1469 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1470 +Loverflow:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1471 + onOutOfMemoryError();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1472 + return null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1473 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1474 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1475 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1476 + * As _d_newarrayT, but
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1477 + * for when the array has a non-zero initializer.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1478 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1479 +extern (C) void* _d_newarrayiT(TypeInfo ti, size_t length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1480 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1481 + void* result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1482 + auto size = ti.next.tsize(); // array element size
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1483 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1484 + debug(PRINTF) printf("_d_newarrayiT(length = %d, size = %d)\n", length, size);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1485 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1486 + if (length == 0 \|\| size == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1487 + result = null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1488 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1489 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1490 + auto initializer = ti.next.init();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1491 + auto isize = initializer.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1492 + auto q = initializer.ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1493 + version (D_InlineAsm_X86)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1494 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1495 + asm
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1496 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1497 + mov EAX,size ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1498 + mul EAX,length ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1499 + mov size,EAX ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1500 + jc Loverflow ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1501 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1502 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1503 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1504 + size *= length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1505 + auto p = gc_malloc(size + 1, !(ti.next.flags() & 1) ? BlkAttr.NO_SCAN : 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1506 + debug(PRINTF) printf(" p = %p\n", p);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1507 + if (isize == 1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1508 + memset(p, cast(ubyte)q, size);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1509 + else if (isize == int.sizeof)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1510 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1511 + int init = cast(int)q;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1512 + size /= int.sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1513 + for (size_t u = 0; u < size; u++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1514 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1515 + (cast(int*)p)[u] = init;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1516 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1517 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1518 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1519 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1520 + for (size_t u = 0; u < size; u += isize)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1521 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1522 + memcpy(p + u, q, isize);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1523 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1524 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1525 + result = p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1526 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1527 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1528 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1529 +Loverflow:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1530 + onOutOfMemoryError();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1531 + return null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1532 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1533 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1534 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1535 + * As _d_newarrayT, but without initialization
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1536 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1537 +extern (C) void* _d_newarrayvT(TypeInfo ti, size_t length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1538 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1539 + void* p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1540 + auto size = ti.next.tsize(); // array element size
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1541 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1542 + debug(PRINTF) printf("_d_newarrayvT(length = %u, size = %d)\n", length, size);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1543 + if (length == 0 \|\| size == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1544 + return null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1545 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1546 + version (D_InlineAsm_X86)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1547 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1548 + asm
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1549 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1550 + mov EAX,size ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1551 + mul EAX,length ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1552 + mov size,EAX ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1553 + jc Loverflow ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1554 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1555 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1556 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1557 + size *= length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1558 + p = gc_malloc(size + 1, !(ti.next.flags() & 1) ? BlkAttr.NO_SCAN : 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1559 + debug(PRINTF) printf(" p = %p\n", p);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1560 + return p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1561 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1562 +Loverflow:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1563 + onOutOfMemoryError();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1564 + return null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1565 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1566 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1567 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1568 + * Allocate a new array of arrays of arrays of arrays ...
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1569 + * ti is the type of the resulting array.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1570 + * ndims is the number of nested arrays.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1571 + * dims it the array of dimensions, its size is ndims.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1572 + * The resulting array is initialized to 0
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1573 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1574 +extern (C) void* _d_newarraymT(TypeInfo ti, int ndims, size_t* dims)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1575 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1576 + void* result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1577 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1578 + debug(PRINTF) printf("_d_newarraymT(ndims = %d)\n", ndims);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1579 + if (ndims == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1580 + result = null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1581 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1582 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1583 + static void[] foo(TypeInfo ti, size_t* pdim, int ndims)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1584 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1585 + size_t dim = *pdim;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1586 + void[] p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1587 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1588 + debug(PRINTF) printf("foo(ti = %p, ti.next = %p, dim = %d, ndims = %d\n", ti, ti.next, dim, ndims);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1589 + if (ndims == 1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1590 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1591 + auto r = _d_newarrayT(ti, dim);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1592 + return r[0 .. dim];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1593 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1594 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1595 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1596 + p = gc_malloc(dim * (void[]).sizeof + 1)[0 .. dim];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1597 + for (int i = 0; i < dim; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1598 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1599 + (cast(void[]*)p.ptr)[i] = foo(ti.next, pdim + 1, ndims - 1);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1600 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1601 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1602 + return p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1603 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1604 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1605 + result = foo(ti, dims, ndims).ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1606 + debug(PRINTF) printf("result = %p\n", result);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1607 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1608 + version (none)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1609 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1610 + for (int i = 0; i < ndims; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1611 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1612 + printf("index %d: %d\n", i, *dims++);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1613 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1614 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1615 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1616 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1617 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1618 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1619 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1620 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1621 + * As _d_newarraymT, but
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1622 + * for when the array has a non-zero initializer.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1623 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1624 +extern (C) void* _d_newarraymiT(TypeInfo ti, int ndims, size_t* dims)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1625 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1626 + void* result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1627 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1628 + debug(PRINTF) printf("_d_newarraymiT(ndims = %d)\n", ndims);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1629 + if (ndims == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1630 + result = null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1631 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1632 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1633 + static void[] foo(TypeInfo ti, size_t* pdim, int ndims)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1634 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1635 + size_t dim = *pdim;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1636 + void[] p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1637 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1638 + if (ndims == 1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1639 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1640 + auto r = _d_newarrayiT(ti, dim);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1641 + p = r[0 .. dim];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1642 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1643 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1644 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1645 + p = gc_malloc(dim * (void[]).sizeof + 1)[0 .. dim];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1646 + for (int i = 0; i < dim; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1647 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1648 + (cast(void[]*)p.ptr)[i] = foo(ti.next, pdim + 1, ndims - 1);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1649 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1650 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1651 + return p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1652 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1653 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1654 + result = foo(ti, dims, ndims).ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1655 + debug(PRINTF) printf("result = %p\n", result);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1656 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1657 + version (none)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1658 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1659 + for (int i = 0; i < ndims; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1660 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1661 + printf("index %d: %d\n", i, *dims++);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1662 + printf("init = %d\n", *dims++);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1663 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1664 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1665 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1666 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1667 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1668 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1669 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1670 + * As _d_newarraymT, but without initialization
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1671 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1672 +extern (C) void* _d_newarraymvT(TypeInfo ti, int ndims, size_t* dims)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1673 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1674 + void* result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1675 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1676 + debug(PRINTF) printf("_d_newarraymvT(ndims = %d)\n", ndims);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1677 + if (ndims == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1678 + result = null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1679 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1680 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1681 + static void[] foo(TypeInfo ti, size_t* pdim, int ndims)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1682 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1683 + size_t dim = *pdim;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1684 + void[] p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1685 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1686 + debug(PRINTF) printf("foo(ti = %p, ti.next = %p, dim = %d, ndims = %d\n", ti, ti.next, dim, ndims);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1687 + if (ndims == 1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1688 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1689 + auto r = _d_newarrayvT(ti, dim);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1690 + return r[0 .. dim];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1691 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1692 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1693 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1694 + p = gc_malloc(dim * (void[]).sizeof + 1)[0 .. dim];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1695 + for (int i = 0; i < dim; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1696 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1697 + (cast(void[]*)p.ptr)[i] = foo(ti.next, pdim + 1, ndims - 1);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1698 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1699 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1700 + return p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1701 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1702 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1703 + result = foo(ti, dims, ndims).ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1704 + debug(PRINTF) printf("result = %p\n", result);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1705 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1706 + version (none)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1707 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1708 + for (int i = 0; i < ndims; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1709 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1710 + printf("index %d: %d\n", i, *dims++);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1711 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1712 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1713 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1714 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1715 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1716 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1717 +/+
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1718 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1719 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1720 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1721 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1722 +void* _d_allocmemory(size_t nbytes)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1723 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1724 + return gc_malloc(nbytes);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1725 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1726 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1727 ++/
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1728 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1729 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1730 + * for allocating a single POD value
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1731 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1732 +extern (C) void* _d_allocmemoryT(TypeInfo ti)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1733 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1734 + return gc_malloc(ti.tsize(), !(ti.flags() & 1) ? BlkAttr.NO_SCAN : 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1735 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1736 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1737 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1738 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1739 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1740 +extern (C) void _d_delarray(size_t plength, void* pdata)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1741 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1742 +// if (p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1743 +// {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1744 + assert(!plength \|\| pdata);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1745 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1746 + if (pdata)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1747 + gc_free(pdata);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1748 +// p.data = null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1749 +// p.length = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1750 +// }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1751 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1752 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1753 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1754 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1755 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1756 +extern (C) void _d_delmemory(void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1757 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1758 + if (p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1759 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1760 + gc_free(p);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1761 + //*p = null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1762 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1763 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1764 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1765 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1766 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1767 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1768 +extern (C) void _d_callinterfacefinalizer(void *p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1769 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1770 + if (p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1771 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1772 + Interface pi = cast(Interface **)p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1773 + Object o = cast(Object)(p - pi.offset);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1774 + rt_finalize(cast(void*)o);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1775 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1776 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1777 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1778 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1779 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1780 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1781 +extern (C) void _d_callfinalizer(void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1782 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1783 + rt_finalize( p );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1784 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1785 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1786 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1787 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1788 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1789 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1790 +extern (C) void rt_setCollectHandler(CollectHandler h)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1791 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1792 + collectHandler = h;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1793 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1794 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1795 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1796 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1797 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1798 +extern (C) void rt_finalize(void* p, bool det = true)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1799 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1800 + debug(PRINTF) printf("rt_finalize(p = %p)\n", p);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1801 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1802 + if (p) // not necessary if called from gc
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1803 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1804 + ClassInfo pc = cast(ClassInfo)p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1805 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1806 + if (*pc)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1807 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1808 + ClassInfo c = **pc;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1809 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1810 + try
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1811 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1812 + if (det \|\| collectHandler is null \|\| collectHandler(cast(Object)p))
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1813 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1814 + do
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1815 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1816 + if (c.destructor)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1817 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1818 + debug(PRINTF) printf("calling dtor of %.*s\n", c.name.length, c.name.ptr);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1819 + fp_t fp = cast(fp_t)c.destructor;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1820 + (*fp)(cast(Object)p); // call destructor
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1821 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1822 + c = c.base;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1823 + } while (c);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1824 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1825 + if ((cast(void**)p)[1]) // if monitor is not null
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1826 + _d_monitordelete(cast(Object)p, det);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1827 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1828 + catch (Exception e)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1829 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1830 + onFinalizeError(**pc, e);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1831 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1832 + finally
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1833 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1834 + *pc = null; // zero vptr
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1835 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1836 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1837 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1838 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1839 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1840 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1841 + * Resize dynamic arrays with 0 initializers.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1842 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1843 +extern (C) byte* _d_arraysetlengthT(TypeInfo ti, size_t newlength, size_t plength, byte* pdata)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1844 +in
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1845 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1846 + assert(ti);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1847 + assert(!plength \|\| pdata);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1848 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1849 +body
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1850 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1851 + byte* newdata;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1852 + size_t sizeelem = ti.next.tsize();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1853 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1854 + debug(PRINTF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1855 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1856 + printf("_d_arraysetlengthT(sizeelem = %d, newlength = %d)\n", sizeelem, newlength);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1857 + printf("\tp.data = %p, p.length = %d\n", pdata, plength);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1858 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1859 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1860 + if (newlength)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1861 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1862 + version (D_InlineAsm_X86)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1863 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1864 + size_t newsize = void;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1865 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1866 + asm
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1867 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1868 + mov EAX, newlength;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1869 + mul EAX, sizeelem;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1870 + mov newsize, EAX;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1871 + jc Loverflow;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1872 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1873 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1874 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1875 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1876 + size_t newsize = sizeelem * newlength;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1877 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1878 + if (newsize / newlength != sizeelem)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1879 + goto Loverflow;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1880 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1881 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1882 + debug(PRINTF) printf("newsize = %x, newlength = %x\n", newsize, newlength);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1883 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1884 + if (pdata)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1885 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1886 + newdata = pdata;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1887 + if (newlength > plength)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1888 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1889 + size_t size = plength * sizeelem;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1890 + auto info = gc_query(pdata);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1891 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1892 + if (info.size <= newsize \|\| info.base != pdata)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1893 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1894 + if (info.size >= PAGESIZE && info.base == pdata)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1895 + { // Try to extend in-place
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1896 + auto u = gc_extend(pdata, (newsize + 1) - info.size, (newsize + 1) - info.size);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1897 + if (u)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1898 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1899 + goto L1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1900 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1901 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1902 + newdata = cast(byte *)gc_malloc(newsize + 1, info.attr);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1903 + newdata[0 .. size] = pdata[0 .. size];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1904 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1905 + L1:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1906 + newdata[size .. newsize] = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1907 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1908 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1909 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1910 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1911 + newdata = cast(byte *)gc_calloc(newsize + 1, !(ti.next.flags() & 1) ? BlkAttr.NO_SCAN : 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1912 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1913 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1914 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1915 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1916 + newdata = pdata;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1917 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1918 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1919 + return newdata;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1920 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1921 +Loverflow:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1922 + onOutOfMemoryError();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1923 + return null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1924 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1925 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1926 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1927 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1928 + * Resize arrays for non-zero initializers.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1929 + * p pointer to array lvalue to be updated
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1930 + * newlength new .length property of array
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1931 + * sizeelem size of each element of array
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1932 + * initsize size of initializer
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1933 + * ... initializer
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1934 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1935 +extern (C) byte* _d_arraysetlengthiT(TypeInfo ti, size_t newlength, size_t plength, byte* pdata)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1936 +in
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1937 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1938 + assert(!plength \|\| pdata);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1939 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1940 +body
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1941 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1942 + byte* newdata;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1943 + TypeInfo tinext = ti.next;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1944 + size_t sizeelem = tinext.tsize();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1945 + void[] initializer = tinext.init();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1946 + size_t initsize = initializer.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1947 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1948 + assert(sizeelem);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1949 + assert(initsize);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1950 + assert(initsize <= sizeelem);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1951 + assert((sizeelem / initsize) * initsize == sizeelem);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1952 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1953 + debug(PRINTF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1954 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1955 + printf("_d_arraysetlengthiT(sizeelem = %d, newlength = %d, initsize = %d)\n", sizeelem, newlength, initsize);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1956 + printf("\tp.data = %p, p.length = %d\n", pdata, plength);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1957 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1958 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1959 + if (newlength)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1960 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1961 + version (D_InlineAsm_X86)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1962 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1963 + size_t newsize = void;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1964 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1965 + asm
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1966 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1967 + mov EAX,newlength ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1968 + mul EAX,sizeelem ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1969 + mov newsize,EAX ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1970 + jc Loverflow ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1971 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1972 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1973 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1974 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1975 + size_t newsize = sizeelem * newlength;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1976 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1977 + if (newsize / newlength != sizeelem)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1978 + goto Loverflow;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1979 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1980 + debug(PRINTF) printf("newsize = %x, newlength = %x\n", newsize, newlength);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1981 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1982 + size_t size = plength * sizeelem;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1983 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1984 + if (pdata)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1985 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1986 + newdata = pdata;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1987 + if (newlength > plength)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1988 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1989 + auto info = gc_query(pdata);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1990 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1991 + if (info.size <= newsize \|\| info.base != pdata)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1992 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1993 + if (info.size >= PAGESIZE && info.base == pdata)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1994 + { // Try to extend in-place
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1995 + auto u = gc_extend(pdata, (newsize + 1) - info.size, (newsize + 1) - info.size);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1996 + if (u)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1997 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1998 + goto L1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1999 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2000 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2001 + newdata = cast(byte *)gc_malloc(newsize + 1, info.attr);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2002 + newdata[0 .. size] = pdata[0 .. size];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2003 + L1: ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2004 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2005 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2006 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2007 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2008 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2009 + newdata = cast(byte *)gc_malloc(newsize + 1, !(tinext.flags() & 1) ? BlkAttr.NO_SCAN : 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2010 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2011 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2012 + auto q = initializer.ptr; // pointer to initializer
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2013 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2014 + if (newsize > size)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2015 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2016 + if (initsize == 1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2017 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2018 + debug(PRINTF) printf("newdata = %p, size = %d, newsize = %d, q = %d\n", newdata, size, newsize, cast(byte*)q);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2019 + newdata[size .. newsize] = (cast(byte)q);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2020 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2021 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2022 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2023 + for (size_t u = size; u < newsize; u += initsize)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2024 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2025 + memcpy(newdata + u, q, initsize);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2026 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2027 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2028 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2029 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2030 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2031 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2032 + newdata = pdata;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2033 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2034 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2035 + return newdata;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2036 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2037 +Loverflow:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2038 + onOutOfMemoryError();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2039 + return null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2040 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2041 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2042 +/+
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2043 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2044 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2045 + * Append y[] to array x[].
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2046 + * size is size of each array element.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2047 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2048 +extern (C) long _d_arrayappendT(TypeInfo ti, Array *px, byte[] y)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2049 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2050 + auto sizeelem = ti.next.tsize(); // array element size
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2051 + auto info = gc_query(px.data);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2052 + auto length = px.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2053 + auto newlength = length + y.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2054 + auto newsize = newlength * sizeelem;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2055 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2056 + if (info.size < newsize \|\| info.base != px.data)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2057 + { byte* newdata;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2058 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2059 + if (info.size >= PAGESIZE && info.base == px.data)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2060 + { // Try to extend in-place
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2061 + auto u = gc_extend(px.data, (newsize + 1) - info.size, (newsize + 1) - info.size);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2062 + if (u)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2063 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2064 + goto L1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2065 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2066 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2067 + newdata = cast(byte *)gc_malloc(newCapacity(newlength, sizeelem) + 1, info.attr);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2068 + memcpy(newdata, px.data, length * sizeelem);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2069 + px.data = newdata;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2070 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2071 + L1:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2072 + px.length = newlength;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2073 + memcpy(px.data + length * sizeelem, y.ptr, y.length * sizeelem);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2074 + return cast(long)px;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2075 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2076 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2077 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2078 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2079 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2080 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2081 +size_t newCapacity(size_t newlength, size_t size)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2082 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2083 + version(none)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2084 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2085 + size_t newcap = newlength * size;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2086 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2087 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2088 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2089 + /*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2090 + * Better version by Dave Fladebo:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2091 + * This uses an inverse logorithmic algorithm to pre-allocate a bit more
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2092 + * space for larger arrays.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2093 + * - Arrays smaller than PAGESIZE bytes are left as-is, so for the most
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2094 + * common cases, memory allocation is 1 to 1. The small overhead added
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2095 + * doesn't affect small array perf. (it's virtually the same as
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2096 + * current).
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2097 + * - Larger arrays have some space pre-allocated.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2098 + * - As the arrays grow, the relative pre-allocated space shrinks.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2099 + * - The logorithmic algorithm allocates relatively more space for
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2100 + * mid-size arrays, making it very fast for medium arrays (for
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2101 + * mid-to-large arrays, this turns out to be quite a bit faster than the
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2102 + * equivalent realloc() code in C, on Linux at least. Small arrays are
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2103 + * just as fast as GCC).
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2104 + * - Perhaps most importantly, overall memory usage and stress on the GC
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2105 + * is decreased significantly for demanding environments.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2106 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2107 + size_t newcap = newlength * size;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2108 + size_t newext = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2109 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2110 + if (newcap > PAGESIZE)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2111 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2112 + //double mult2 = 1.0 + (size / log10(pow(newcap * 2.0,2.0)));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2113 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2114 + // redo above line using only integer math
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2115 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2116 + static int log2plus1(size_t c)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2117 + { int i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2118 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2119 + if (c == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2120 + i = -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2121 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2122 + for (i = 1; c >>= 1; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2123 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2124 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2125 + return i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2126 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2127 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2128 + /* The following setting for mult sets how much bigger
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2129 + * the new size will be over what is actually needed.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2130 + * 100 means the same size, more means proportionally more.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2131 + * More means faster but more memory consumption.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2132 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2133 + //long mult = 100 + (1000L * size) / (6 * log2plus1(newcap));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2134 + long mult = 100 + (1000L * size) / log2plus1(newcap);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2135 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2136 + // testing shows 1.02 for large arrays is about the point of diminishing return
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2137 + if (mult < 102)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2138 + mult = 102;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2139 + newext = cast(size_t)((newcap * mult) / 100);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2140 + newext -= newext % size;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2141 + debug(PRINTF) printf("mult: %2.2f, alloc: %2.2f\n",mult/100.0,newext / cast(double)size);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2142 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2143 + newcap = newext > newcap ? newext : newcap;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2144 + debug(PRINTF) printf("newcap = %d, newlength = %d, size = %d\n", newcap, newlength, size);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2145 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2146 + return newcap;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2147 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2148 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2149 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2150 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2151 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2152 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2153 +extern (C) byte[] _d_arrayappendcT(TypeInfo ti, inout byte[] x, ...)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2154 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2155 + auto sizeelem = ti.next.tsize(); // array element size
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2156 + auto info = gc_query(x.ptr);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2157 + auto length = x.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2158 + auto newlength = length + 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2159 + auto newsize = newlength * sizeelem;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2160 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2161 + assert(info.size == 0 \|\| length * sizeelem <= info.size);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2162 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2163 + debug(PRINTF) printf("_d_arrayappendcT(sizeelem = %d, ptr = %p, length = %d, cap = %d)\n", sizeelem, x.ptr, x.length, info.size);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2164 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2165 + if (info.size <= newsize \|\| info.base != x.ptr)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2166 + { byte* newdata;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2167 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2168 + if (info.size >= PAGESIZE && info.base == x.ptr)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2169 + { // Try to extend in-place
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2170 + auto u = gc_extend(x.ptr, (newsize + 1) - info.size, (newsize + 1) - info.size);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2171 + if (u)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2172 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2173 + goto L1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2174 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2175 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2176 + debug(PRINTF) printf("_d_arrayappendcT(length = %d, newlength = %d, cap = %d)\n", length, newlength, info.size);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2177 + auto newcap = newCapacity(newlength, sizeelem);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2178 + assert(newcap >= newlength * sizeelem);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2179 + newdata = cast(byte *)gc_malloc(newcap + 1, info.attr);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2180 + memcpy(newdata, x.ptr, length * sizeelem);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2181 + (cast(void**)(&x))[1] = newdata;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2182 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2183 + L1:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2184 + byte argp = cast(byte )(&ti + 2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2185 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2186 + cast(size_t )&x = newlength;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2187 + x.ptr[length * sizeelem .. newsize] = argp[0 .. sizeelem];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2188 + assert((cast(size_t)x.ptr & 15) == 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2189 + assert(gc_sizeOf(x.ptr) > x.length * sizeelem);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2190 + return x;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2191 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2192 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2193 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2194 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2195 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2196 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2197 +extern (C) byte[] _d_arraycatT(TypeInfo ti, byte[] x, byte[] y)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2198 +out (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2199 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2200 + auto sizeelem = ti.next.tsize(); // array element size
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2201 + debug(PRINTF) printf("_d_arraycatT(%d,%p ~ %d,%p sizeelem = %d => %d,%p)\n", x.length, x.ptr, y.length, y.ptr, sizeelem, result.length, result.ptr);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2202 + assert(result.length == x.length + y.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2203 + for (size_t i = 0; i < x.length * sizeelem; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2204 + assert((cast(byte)result)[i] == (cast(byte)x)[i]);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2205 + for (size_t i = 0; i < y.length * sizeelem; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2206 + assert((cast(byte)result)[x.length sizeelem + i] == (cast(byte*)y)[i]);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2207 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2208 + size_t cap = gc_sizeOf(result.ptr);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2209 + assert(!cap \|\| cap > result.length * sizeelem);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2210 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2211 +body
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2212 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2213 + version (none)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2214 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2215 + /* Cannot use this optimization because:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2216 + * char[] a, b;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2217 + * char c = 'a';
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2218 + * b = a ~ c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2219 + * c = 'b';
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2220 + * will change the contents of b.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2221 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2222 + if (!y.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2223 + return x;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2224 + if (!x.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2225 + return y;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2226 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2227 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2228 + debug(PRINTF) printf("_d_arraycatT(%d,%p ~ %d,%p)\n", x.length, x.ptr, y.length, y.ptr);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2229 + auto sizeelem = ti.next.tsize(); // array element size
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2230 + debug(PRINTF) printf("_d_arraycatT(%d,%p ~ %d,%p sizeelem = %d)\n", x.length, x.ptr, y.length, y.ptr, sizeelem);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2231 + size_t xlen = x.length * sizeelem;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2232 + size_t ylen = y.length * sizeelem;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2233 + size_t len = xlen + ylen;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2234 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2235 + if (!len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2236 + return null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2237 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2238 + byte* p = cast(byte*)gc_malloc(len + 1, !(ti.next.flags() & 1) ? BlkAttr.NO_SCAN : 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2239 + memcpy(p, x.ptr, xlen);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2240 + memcpy(p + xlen, y.ptr, ylen);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2241 + p[len] = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2242 + return p[0 .. x.length + y.length];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2243 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2244 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2245 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2246 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2247 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2248 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2249 +extern (C) byte[] _d_arraycatnT(TypeInfo ti, uint n, ...)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2250 +{ void* a;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2251 + size_t length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2252 + byte[]* p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2253 + uint i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2254 + byte[] b;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2255 + auto size = ti.next.tsize(); // array element size
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2256 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2257 + p = cast(byte[]*)(&n + 1);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2258 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2259 + for (i = 0; i < n; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2260 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2261 + b = *p++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2262 + length += b.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2263 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2264 + if (!length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2265 + return null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2266 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2267 + a = gc_malloc(length * size, !(ti.next.flags() & 1) ? BlkAttr.NO_SCAN : 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2268 + p = cast(byte[]*)(&n + 1);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2269 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2270 + uint j = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2271 + for (i = 0; i < n; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2272 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2273 + b = *p++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2274 + if (b.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2275 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2276 + memcpy(a + j, b.ptr, b.length * size);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2277 + j += b.length * size;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2278 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2279 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2280 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2281 + byte[] result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2282 + cast(int )&result = length; // jam length
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2283 + (cast(void **)&result)[1] = a; // jam ptr
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2284 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2285 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2286 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2287 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2288 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2289 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2290 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2291 +extern (C) void* _d_arrayliteralT(TypeInfo ti, size_t length, ...)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2292 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2293 + auto sizeelem = ti.next.tsize(); // array element size
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2294 + void* result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2295 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2296 + debug(PRINTF) printf("_d_arrayliteralT(sizeelem = %d, length = %d)\n", sizeelem, length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2297 + if (length == 0 \|\| sizeelem == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2298 + result = null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2299 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2300 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2301 + result = gc_malloc(length * sizeelem, !(ti.next.flags() & 1) ? BlkAttr.NO_SCAN : 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2302 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2303 + va_list q;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2304 + va_start!(size_t)(q, length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2305 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2306 + size_t stacksize = (sizeelem + int.sizeof - 1) & ~(int.sizeof - 1);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2307 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2308 + if (stacksize == sizeelem)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2309 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2310 + memcpy(result, q, length * sizeelem);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2311 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2312 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2313 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2314 + for (size_t i = 0; i < length; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2315 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2316 + memcpy(result + i * sizeelem, q, sizeelem);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2317 + q += stacksize;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2318 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2319 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2320 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2321 + va_end(q);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2322 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2323 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2324 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2325 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2326 ++/
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2327 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2328 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2329 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2330 + * Support for array.dup property.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2331 + * The actual type is painted on the return value by the frontend
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2332 + * Given length is number of elements
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2333 + * Returned length is number of elements
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2334 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2335 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2336 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2337 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2338 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2339 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2340 +extern (C) void[] _adDupT(TypeInfo ti, void[] a)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2341 +out (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2342 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2343 + auto sizeelem = ti.next.tsize(); // array element size
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2344 + assert(memcmp(result.ptr, a.ptr, a.length * sizeelem) == 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2345 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2346 +body
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2347 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2348 + void* ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2349 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2350 + if (a.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2351 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2352 + auto sizeelem = ti.next.tsize(); // array element size
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2353 + auto size = a.length * sizeelem;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2354 + ptr = gc_malloc(size, !(ti.next.flags() & 1) ? BlkAttr.NO_SCAN : 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2355 + memcpy(ptr, a.ptr, size);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2356 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2357 + return ptr[0 .. a.length];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2358 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2359 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2360 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2361 +unittest
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2362 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2363 + int[] a;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2364 + int[] b;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2365 + int i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2366 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2367 + a = new int[3];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2368 + a[0] = 1; a[1] = 2; a[2] = 3;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2369 + b = a.dup;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2370 + assert(b.length == 3);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2371 + for (i = 0; i < 3; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2372 + assert(b[i] == i + 1);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2373 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2374 Index: src/compiler/ldc/switch.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2375 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2376 --- src/compiler/ldc/switch.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2377 +++ src/compiler/ldc/switch.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2378 @@ -0,0 +1,428 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2379 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2380 + * Copyright (C) 2004-2007 by Digital Mars, www.digitalmars.com
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2381 + * Written by Walter Bright
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2382 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2383 + * This software is provided 'as-is', without any express or implied
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2384 + * warranty. In no event will the authors be held liable for any damages
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2385 + * arising from the use of this software.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2386 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2387 + * Permission is granted to anyone to use this software for any purpose,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2388 + * including commercial applications, and to alter it and redistribute it
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2389 + * freely, in both source and binary form, subject to the following
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2390 + * restrictions:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2391 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2392 + * o The origin of this software must not be misrepresented; you must not
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2393 + * claim that you wrote the original software. If you use this software
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2394 + * in a product, an acknowledgment in the product documentation would be
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2395 + * appreciated but is not required.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2396 + * o Altered source versions must be plainly marked as such, and must not
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2397 + * be misrepresented as being the original software.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2398 + * o This notice may not be removed or altered from any source
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2399 + * distribution.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2400 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2401 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2402 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2403 + * Modified by Sean Kelly <sean@f4.ca> for use with Tango.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2404 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2405 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2406 +version( D_Version2 )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2407 +private import core.stdc.string;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2408 +else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2409 +private import tango.stdc.string;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2410 +//private import tango.stdc.stdio;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2411 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2412 +/******************************************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2413 + * Support for switch statements switching on strings.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2414 + * Input:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2415 + * table[] sorted array of strings generated by compiler
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2416 + * ca string to look up in table
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2417 + * Output:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2418 + * result index of match in table[]
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2419 + * -1 if not in table
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2420 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2421 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2422 +extern (C):
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2423 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2424 +int _d_switch_string(char[][] table, char[] ca)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2425 +in
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2426 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2427 + //printf("in _d_switch_string()\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2428 + assert(table.length >= 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2429 + assert(ca.length >= 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2430 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2431 + // Make sure table[] is sorted correctly
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2432 + int j;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2433 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2434 + for (j = 1; j < table.length; j++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2435 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2436 + size_t len1 = table[j - 1].length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2437 + size_t len2 = table[j].length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2438 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2439 + assert(len1 <= len2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2440 + if (len1 == len2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2441 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2442 + int ci;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2443 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2444 + ci = memcmp(table[j - 1].ptr, table[j].ptr, len1);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2445 + assert(ci < 0); // ci==0 means a duplicate
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2446 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2447 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2448 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2449 +out (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2450 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2451 + int i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2452 + int cj;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2453 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2454 + //printf("out _d_switch_string()\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2455 + if (result == -1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2456 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2457 + // Not found
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2458 + for (i = 0; i < table.length; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2459 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2460 + if (table[i].length == ca.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2461 + { cj = memcmp(table[i].ptr, ca.ptr, ca.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2462 + assert(cj != 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2463 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2464 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2465 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2466 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2467 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2468 + assert(0 <= result && result < table.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2469 + for (i = 0; 1; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2470 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2471 + assert(i < table.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2472 + if (table[i].length == ca.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2473 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2474 + cj = memcmp(table[i].ptr, ca.ptr, ca.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2475 + if (cj == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2476 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2477 + assert(i == result);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2478 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2479 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2480 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2481 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2482 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2483 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2484 +body
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2485 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2486 + //printf("body _d_switch_string(%.*s)\n", ca.length, ca.ptr);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2487 + size_t low;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2488 + size_t high;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2489 + size_t mid;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2490 + ptrdiff_t c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2491 + char[] pca;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2492 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2493 + low = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2494 + high = table.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2495 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2496 + version (none)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2497 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2498 + // Print table
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2499 + printf("ca[] = '%s'\n", cast(char *)ca);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2500 + for (mid = 0; mid < high; mid++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2501 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2502 + pca = table[mid];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2503 + printf("table[%d] = %d, '%.*s'\n", mid, pca.length, pca);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2504 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2505 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2506 + if (high &&
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2507 + ca.length >= table[0].length &&
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2508 + ca.length <= table[high - 1].length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2509 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2510 + // Looking for 0 length string, which would only be at the beginning
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2511 + if (ca.length == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2512 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2513 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2514 + char c1 = ca[0];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2515 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2516 + // Do binary search
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2517 + while (low < high)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2518 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2519 + mid = (low + high) >> 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2520 + pca = table[mid];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2521 + c = cast(ptrdiff_t)(ca.length - pca.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2522 + if (c == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2523 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2524 + c = cast(ubyte)c1 - cast(ubyte)pca[0];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2525 + if (c == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2526 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2527 + c = memcmp(ca.ptr, pca.ptr, ca.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2528 + if (c == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2529 + { //printf("found %d\n", mid);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2530 + return cast(int)mid;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2531 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2532 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2533 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2534 + if (c < 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2535 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2536 + high = mid;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2537 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2538 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2539 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2540 + low = mid + 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2541 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2542 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2543 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2544 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2545 + //printf("not found\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2546 + return -1; // not found
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2547 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2548 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2549 +unittest
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2550 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2551 + switch (cast(char []) "c")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2552 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2553 + case "coo":
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2554 + default:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2555 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2556 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2557 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2558 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2559 +/**********************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2560 + * Same thing, but for wide chars.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2561 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2562 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2563 +int _d_switch_ustring(wchar[][] table, wchar[] ca)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2564 +in
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2565 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2566 + //printf("in _d_switch_ustring()\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2567 + assert(table.length >= 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2568 + assert(ca.length >= 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2569 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2570 + // Make sure table[] is sorted correctly
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2571 + int j;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2572 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2573 + for (j = 1; j < table.length; j++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2574 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2575 + size_t len1 = table[j - 1].length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2576 + size_t len2 = table[j].length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2577 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2578 + assert(len1 <= len2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2579 + if (len1 == len2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2580 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2581 + int c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2582 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2583 + c = memcmp(table[j - 1].ptr, table[j].ptr, len1 * wchar.sizeof);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2584 + assert(c < 0); // c==0 means a duplicate
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2585 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2586 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2587 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2588 +out (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2589 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2590 + int i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2591 + int c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2592 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2593 + //printf("out _d_switch_string()\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2594 + if (result == -1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2595 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2596 + // Not found
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2597 + for (i = 0; i < table.length; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2598 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2599 + if (table[i].length == ca.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2600 + { c = memcmp(table[i].ptr, ca.ptr, ca.length * wchar.sizeof);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2601 + assert(c != 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2602 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2603 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2604 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2605 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2606 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2607 + assert(0 <= result && result < table.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2608 + for (i = 0; 1; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2609 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2610 + assert(i < table.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2611 + if (table[i].length == ca.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2612 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2613 + c = memcmp(table[i].ptr, ca.ptr, ca.length * wchar.sizeof);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2614 + if (c == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2615 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2616 + assert(i == result);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2617 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2618 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2619 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2620 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2621 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2622 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2623 +body
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2624 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2625 + //printf("body _d_switch_ustring()\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2626 + size_t low;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2627 + size_t high;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2628 + size_t mid;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2629 + ptrdiff_t c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2630 + wchar[] pca;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2631 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2632 + low = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2633 + high = table.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2634 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2635 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2636 + // Print table
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2637 + wprintf("ca[] = '%.*s'\n", ca);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2638 + for (mid = 0; mid < high; mid++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2639 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2640 + pca = table[mid];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2641 + wprintf("table[%d] = %d, '%.*s'\n", mid, pca.length, pca);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2642 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2643 +*/
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2644 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2645 + // Do binary search
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2646 + while (low < high)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2647 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2648 + mid = (low + high) >> 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2649 + pca = table[mid];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2650 + c = cast(ptrdiff_t)(ca.length - pca.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2651 + if (c == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2652 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2653 + c = memcmp(ca.ptr, pca.ptr, ca.length * wchar.sizeof);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2654 + if (c == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2655 + { //printf("found %d\n", mid);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2656 + return cast(int)mid;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2657 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2658 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2659 + if (c < 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2660 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2661 + high = mid;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2662 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2663 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2664 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2665 + low = mid + 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2666 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2667 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2668 + //printf("not found\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2669 + return -1; // not found
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2670 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2671 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2672 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2673 +unittest
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2674 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2675 + switch (cast(wchar []) "c")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2676 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2677 + case "coo":
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2678 + default:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2679 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2680 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2681 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2682 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2683 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2684 +/**********************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2685 + * Same thing, but for wide chars.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2686 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2687 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2688 +int _d_switch_dstring(dchar[][] table, dchar[] ca)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2689 +in
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2690 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2691 + //printf("in _d_switch_dstring()\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2692 + assert(table.length >= 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2693 + assert(ca.length >= 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2694 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2695 + // Make sure table[] is sorted correctly
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2696 + int j;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2697 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2698 + for (j = 1; j < table.length; j++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2699 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2700 + size_t len1 = table[j - 1].length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2701 + size_t len2 = table[j].length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2702 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2703 + assert(len1 <= len2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2704 + if (len1 == len2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2705 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2706 + int c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2707 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2708 + c = memcmp(table[j - 1].ptr, table[j].ptr, len1 * dchar.sizeof);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2709 + assert(c < 0); // c==0 means a duplicate
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2710 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2711 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2712 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2713 +out (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2714 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2715 + int i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2716 + int c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2717 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2718 + //printf("out _d_switch_string()\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2719 + if (result == -1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2720 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2721 + // Not found
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2722 + for (i = 0; i < table.length; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2723 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2724 + if (table[i].length == ca.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2725 + { c = memcmp(table[i].ptr, ca.ptr, ca.length * dchar.sizeof);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2726 + assert(c != 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2727 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2728 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2729 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2730 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2731 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2732 + assert(0 <= result && result < table.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2733 + for (i = 0; 1; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2734 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2735 + assert(i < table.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2736 + if (table[i].length == ca.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2737 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2738 + c = memcmp(table[i].ptr, ca.ptr, ca.length * dchar.sizeof);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2739 + if (c == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2740 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2741 + assert(i == result);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2742 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2743 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2744 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2745 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2746 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2747 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2748 +body
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2749 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2750 + //printf("body _d_switch_ustring()\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2751 + size_t low;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2752 + size_t high;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2753 + size_t mid;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2754 + ptrdiff_t c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2755 + dchar[] pca;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2756 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2757 + low = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2758 + high = table.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2759 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2760 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2761 + // Print table
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2762 + wprintf("ca[] = '%.*s'\n", ca);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2763 + for (mid = 0; mid < high; mid++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2764 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2765 + pca = table[mid];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2766 + wprintf("table[%d] = %d, '%.*s'\n", mid, pca.length, pca);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2767 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2768 +*/
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2769 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2770 + // Do binary search
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2771 + while (low < high)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2772 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2773 + mid = (low + high) >> 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2774 + pca = table[mid];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2775 + c = cast(ptrdiff_t)(ca.length - pca.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2776 + if (c == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2777 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2778 + c = memcmp(ca.ptr, pca.ptr, ca.length * dchar.sizeof);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2779 + if (c == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2780 + { //printf("found %d\n", mid);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2781 + return cast(int)mid;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2782 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2783 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2784 + if (c < 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2785 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2786 + high = mid;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2787 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2788 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2789 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2790 + low = mid + 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2791 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2792 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2793 + //printf("not found\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2794 + return -1; // not found
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2795 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2796 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2797 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2798 +unittest
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2799 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2800 + switch (cast(dchar []) "c")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2801 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2802 + case "coo":
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2803 + default:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2804 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2805 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2806 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2807 Index: src/compiler/ldc/arrayInit.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2808 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2809 --- src/compiler/ldc/arrayInit.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2810 +++ src/compiler/ldc/arrayInit.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2811 @@ -0,0 +1,158 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2812 +private import ldc.intrinsics;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2813 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2814 +extern(C):
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2815 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2816 +int memcmp(void,void,size_t);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2817 +size_t strlen(char*);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2818 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2819 +version(LLVM64)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2820 +alias llvm_memcpy_i64 llvm_memcpy;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2821 +else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2822 +alias llvm_memcpy_i32 llvm_memcpy;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2823 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2824 +// per-element array init routines
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2825 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2826 +void _d_array_init_i1(bool* a, size_t n, bool v)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2827 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2828 + auto p = a;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2829 + auto end = a+n;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2830 + while (p !is end)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2831 + *p++ = v;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2832 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2833 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2834 +void _d_array_init_i8(ubyte* a, size_t n, ubyte v)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2835 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2836 + auto p = a;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2837 + auto end = a+n;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2838 + while (p !is end)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2839 + *p++ = v;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2840 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2841 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2842 +void _d_array_init_i16(ushort* a, size_t n, ushort v)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2843 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2844 + auto p = a;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2845 + auto end = a+n;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2846 + while (p !is end)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2847 + *p++ = v;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2848 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2849 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2850 +void _d_array_init_i32(uint* a, size_t n, uint v)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2851 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2852 + auto p = a;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2853 + auto end = a+n;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2854 + while (p !is end)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2855 + *p++ = v;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2856 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2857 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2858 +void _d_array_init_i64(ulong* a, size_t n, ulong v)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2859 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2860 + auto p = a;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2861 + auto end = a+n;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2862 + while (p !is end)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2863 + *p++ = v;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2864 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2865 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2866 +void _d_array_init_float(float* a, size_t n, float v)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2867 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2868 + auto p = a;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2869 + auto end = a+n;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2870 + while (p !is end)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2871 + *p++ = v;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2872 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2873 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2874 +void _d_array_init_double(double* a, size_t n, double v)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2875 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2876 + auto p = a;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2877 + auto end = a+n;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2878 + while (p !is end)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2879 + *p++ = v;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2880 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2881 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2882 +void _d_array_init_real(real* a, size_t n, real v)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2883 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2884 + auto p = a;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2885 + auto end = a+n;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2886 + while (p !is end)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2887 + *p++ = v;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2888 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2889 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2890 +void _d_array_init_cfloat(cfloat* a, size_t n, cfloat v)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2891 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2892 + auto p = a;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2893 + auto end = a+n;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2894 + while (p !is end)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2895 + *p++ = v;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2896 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2897 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2898 +void _d_array_init_cdouble(cdouble* a, size_t n, cdouble v)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2899 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2900 + auto p = a;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2901 + auto end = a+n;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2902 + while (p !is end)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2903 + *p++ = v;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2904 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2905 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2906 +void _d_array_init_creal(creal* a, size_t n, creal v)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2907 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2908 + auto p = a;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2909 + auto end = a+n;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2910 + while (p !is end)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2911 + *p++ = v;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2912 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2913 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2914 +void _d_array_init_pointer(void** a, size_t n, void* v)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2915 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2916 + auto p = a;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2917 + auto end = a+n;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2918 + while (p !is end)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2919 + *p++ = v;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2920 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2921 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2922 +void _d_array_init_mem(void* a, size_t na, void* v, size_t nv)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2923 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2924 + auto p = a;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2925 + auto end = a + na*nv;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2926 + while (p !is end) {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2927 + llvm_memcpy(p,v,nv,0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2928 + p += nv;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2929 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2930 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2931 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2932 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2933 +void _d_array_init(TypeInfo ti, void* a)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2934 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2935 + auto initializer = ti.next.init();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2936 + auto isize = initializer.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2937 + auto q = initializer.ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2938 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2939 + if (isize == 1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2940 + memset(p, cast(ubyte)q, size);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2941 + else if (isize == int.sizeof)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2942 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2943 + int init = cast(int)q;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2944 + size /= int.sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2945 + for (size_t u = 0; u < size; u++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2946 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2947 + (cast(int*)p)[u] = init;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2948 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2949 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2950 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2951 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2952 + for (size_t u = 0; u < size; u += isize)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2953 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2954 + memcpy(p + u, q, isize);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2955 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2956 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2957 +}*/
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2958 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2959 +// for array cast
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2960 +size_t _d_array_cast_len(size_t len, size_t elemsz, size_t newelemsz)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2961 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2962 + if (newelemsz == 1) {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2963 + return len*elemsz;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2964 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2965 + else if ((len*elemsz) % newelemsz) {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2966 + throw new Exception("Bad array cast");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2967 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2968 + return (len*elemsz)/newelemsz;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2969 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2970 Index: src/compiler/ldc/genobj.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2971 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2972 --- src/compiler/ldc/genobj.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2973 +++ src/compiler/ldc/genobj.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2974 @@ -0,0 +1,1527 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2975 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2976 + * Part of the D programming language runtime library.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2977 + * Forms the symbols available to all D programs. Includes
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2978 + * Object, which is the root of the class object hierarchy.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2979 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2980 + * This module is implicitly imported.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2981 + * Macros:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2982 + * WIKI = Object
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2983 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2984 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2985 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2986 + * Copyright (C) 2004-2007 by Digital Mars, www.digitalmars.com
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2987 + * Written by Walter Bright
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2988 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2989 + * This software is provided 'as-is', without any express or implied
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2990 + * warranty. In no event will the authors be held liable for any damages
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2991 + * arising from the use of this software.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2992 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2993 + * Permission is granted to anyone to use this software for any purpose,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2994 + * including commercial applications, and to alter it and redistribute it
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2995 + * freely, in both source and binary form, subject to the following
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2996 + * restrictions:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2997 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2998 + * o The origin of this software must not be misrepresented; you must not
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2999 + * claim that you wrote the original software. If you use this software
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3000 + * in a product, an acknowledgment in the product documentation would be
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3001 + * appreciated but is not required.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3002 + * o Altered source versions must be plainly marked as such, and must not
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3003 + * be misrepresented as being the original software.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3004 + * o This notice may not be removed or altered from any source
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3005 + * distribution.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3006 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3007 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3008 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3009 + * Modified by Sean Kelly for use with the D Runtime Project
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3010 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3011 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3012 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3013 + * Modified by Tomas Lindquist Olsen for use with the LLVM D Compiler
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3014 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3015 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3016 +module object;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3017 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3018 +//debug = PRINTF;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3019 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3020 +private
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3021 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3022 + import core.stdc.string;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3023 + import core.stdc.stdlib;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3024 + import util.string;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3025 + debug(PRINTF) import core.stdc.stdio;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3026 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3027 + extern (C) void onOutOfMemoryError();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3028 + extern (C) Object _d_allocclass(ClassInfo ci);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3029 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3030 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3031 +// NOTE: For some reason, this declaration method doesn't work
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3032 +// in this particular file (and this file only). It must
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3033 +// be a DMD thing.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3034 +//alias typeof(int.sizeof) size_t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3035 +//alias typeof(cast(void)0 - cast(void)0) ptrdiff_t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3036 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3037 +version(X86_64)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3038 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3039 + alias ulong size_t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3040 + alias long ptrdiff_t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3041 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3042 +else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3043 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3044 + alias uint size_t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3045 + alias int ptrdiff_t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3046 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3047 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3048 +alias size_t hash_t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3049 +alias bool equals_t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3050 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3051 +alias invariant(char)[] string;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3052 +alias invariant(wchar)[] wstring;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3053 +alias invariant(dchar)[] dstring;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3054 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3055 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3056 + * All D class objects inherit from Object.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3057 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3058 +class Object
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3059 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3060 + /**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3061 + * Convert Object to a human readable string.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3062 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3063 + string toString()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3064 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3065 + return this.classinfo.name;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3066 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3067 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3068 + /**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3069 + * Compute hash function for Object.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3070 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3071 + hash_t toHash()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3072 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3073 + // BUG: this prevents a compacting GC from working, needs to be fixed
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3074 + return cast(hash_t)cast(void*)this;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3075 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3076 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3077 + /**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3078 + * Compare with another Object obj.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3079 + * Returns:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3080 + * $(TABLE
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3081 + * $(TR $(TD this < obj) $(TD < 0))
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3082 + * $(TR $(TD this == obj) $(TD 0))
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3083 + * $(TR $(TD this > obj) $(TD > 0))
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3084 + * )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3085 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3086 + int opCmp(Object o)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3087 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3088 + // BUG: this prevents a compacting GC from working, needs to be fixed
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3089 + //return cast(int)cast(void)this - cast(int)cast(void)o;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3090 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3091 + throw new Exception("need opCmp for class " ~ this.classinfo.name);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3092 + //return this !is o;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3093 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3094 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3095 + /**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3096 + * Returns !=0 if this object does have the same contents as obj.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3097 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3098 + equals_t opEquals(Object o)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3099 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3100 + return this is o;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3101 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3102 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3103 + interface Monitor
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3104 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3105 + void lock();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3106 + void unlock();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3107 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3108 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3109 + /**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3110 + * Create instance of class specified by classname.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3111 + * The class must either have no constructors or have
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3112 + * a default constructor.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3113 + * Returns:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3114 + * null if failed
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3115 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3116 + static Object factory(string classname)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3117 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3118 + auto ci = ClassInfo.find(classname);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3119 + if (ci)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3120 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3121 + return ci.create();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3122 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3123 + return null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3124 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3125 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3126 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3127 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3128 + * Information about an interface.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3129 + * When an object is accessed via an interface, an Interface* appears as the
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3130 + * first entry in its vtbl.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3131 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3132 +struct Interface
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3133 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3134 + ClassInfo classinfo; /// .classinfo for this interface (not for containing class)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3135 + void*[] vtbl;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3136 + ptrdiff_t offset; /// offset to Interface 'this' from Object 'this'
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3137 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3138 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3139 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3140 + * Runtime type information about a class. Can be retrieved for any class type
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3141 + * or instance by using the .classinfo property.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3142 + * A pointer to this appears as the first entry in the class's vtbl[].
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3143 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3144 +class ClassInfo : Object
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3145 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3146 + byte[] init; /** class static initializer
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3147 + * (init.length gives size in bytes of class)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3148 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3149 + string name; /// class name
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3150 + void*[] vtbl; /// virtual function pointer table
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3151 + Interface[] interfaces; /// interfaces this class implements
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3152 + ClassInfo base; /// base class
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3153 + void* destructor;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3154 + void function(Object) classInvariant;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3155 + uint flags;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3156 + // 1: // is IUnknown or is derived from IUnknown
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3157 + // 2: // has no possible pointers into GC memory
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3158 + // 4: // has offTi[] member
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3159 + // 8: // has constructors
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3160 + // 16: // has xgetMembers member
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3161 + void* deallocator;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3162 + OffsetTypeInfo[] offTi;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3163 + void function(Object) defaultConstructor; // default Constructor
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3164 + const(MemberInfo[]) function(in char[]) xgetMembers;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3165 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3166 + /**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3167 + * Search all modules for ClassInfo corresponding to classname.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3168 + * Returns: null if not found
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3169 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3170 + static ClassInfo find(in char[] classname)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3171 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3172 + foreach (m; ModuleInfo)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3173 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3174 + //writefln("module %s, %d", m.name, m.localClasses.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3175 + foreach (c; m.localClasses)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3176 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3177 + //writefln("\tclass %s", c.name);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3178 + if (c.name == classname)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3179 + return c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3180 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3181 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3182 + return null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3183 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3184 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3185 + /**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3186 + * Create instance of Object represented by 'this'.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3187 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3188 + Object create()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3189 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3190 + if (flags & 8 && !defaultConstructor)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3191 + return null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3192 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3193 + Object o = _d_allocclass(this);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3194 + // initialize it
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3195 + (cast(byte*) o)[0 .. init.length] = init[];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3196 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3197 + if (flags & 8 && defaultConstructor)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3198 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3199 + defaultConstructor(o);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3200 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3201 + return o;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3202 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3203 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3204 + /**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3205 + * Search for all members with the name 'name'.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3206 + * If name[] is null, return all members.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3207 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3208 + const(MemberInfo[]) getMembers(in char[] name)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3209 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3210 + if (flags & 16 && xgetMembers)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3211 + return xgetMembers(name);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3212 + return null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3213 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3214 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3215 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3216 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3217 + * Array of pairs giving the offset and type information for each
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3218 + * member in an aggregate.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3219 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3220 +struct OffsetTypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3221 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3222 + size_t offset; /// Offset of member from start of object
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3223 + TypeInfo ti; /// TypeInfo for this member
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3224 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3225 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3226 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3227 + * Runtime type information about a type.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3228 + * Can be retrieved for any type using a
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3229 + * <a href="../expression.html#typeidexpression">TypeidExpression</a>.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3230 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3231 +class TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3232 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3233 + override hash_t toHash()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3234 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3235 + hash_t hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3236 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3237 + foreach (char c; this.toString())
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3238 + hash = hash * 9 + c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3239 + return hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3240 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3241 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3242 + override int opCmp(Object o)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3243 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3244 + if (this is o)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3245 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3246 + TypeInfo ti = cast(TypeInfo)o;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3247 + if (ti is null)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3248 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3249 + return dstrcmp(this.toString(), ti.toString());
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3250 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3251 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3252 + override equals_t opEquals(Object o)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3253 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3254 + /* TypeInfo instances are singletons, but duplicates can exist
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3255 + * across DLL's. Therefore, comparing for a name match is
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3256 + * sufficient.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3257 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3258 + if (this is o)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3259 + return true;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3260 + TypeInfo ti = cast(TypeInfo)o;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3261 + return ti && this.toString() == ti.toString();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3262 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3263 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3264 + /// Returns a hash of the instance of a type.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3265 + hash_t getHash(in void* p) { return cast(hash_t)p; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3266 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3267 + /// Compares two instances for equality.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3268 + equals_t equals(in void* p1, in void* p2) { return p1 == p2; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3269 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3270 + /// Compares two instances for <, ==, or >.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3271 + int compare(in void* p1, in void* p2) { return 0; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3272 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3273 + /// Returns size of the type.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3274 + size_t tsize() { return 0; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3275 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3276 + /// Swaps two instances of the type.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3277 + void swap(void* p1, void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3278 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3279 + size_t n = tsize();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3280 + for (size_t i = 0; i < n; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3281 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3282 + byte t = (cast(byte *)p1)[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3283 + (cast(byte)p1)[i] = (cast(byte)p2)[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3284 + (cast(byte*)p2)[i] = t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3285 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3286 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3287 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3288 + /// Get TypeInfo for 'next' type, as defined by what kind of type this is,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3289 + /// null if none.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3290 + TypeInfo next() { return null; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3291 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3292 + /// Return default initializer, null if default initialize to 0
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3293 + void[] init() { return null; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3294 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3295 + /// Get flags for type: 1 means GC should scan for pointers
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3296 + uint flags() { return 0; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3297 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3298 + /// Get type information on the contents of the type; null if not available
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3299 + OffsetTypeInfo[] offTi() { return null; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3300 + /// Run the destructor on the object and all its sub-objects
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3301 + void destroy(void* p) {}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3302 + /// Run the postblit on the object and all its sub-objects
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3303 + void postblit(void* p) {}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3304 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3305 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3306 +class TypeInfo_Typedef : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3307 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3308 + override string toString() { return name; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3309 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3310 + override equals_t opEquals(Object o)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3311 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3312 + TypeInfo_Typedef c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3313 + return this is o \|\|
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3314 + ((c = cast(TypeInfo_Typedef)o) !is null &&
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3315 + this.name == c.name &&
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3316 + this.base == c.base);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3317 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3318 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3319 + override hash_t getHash(in void* p) { return base.getHash(p); }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3320 + override equals_t equals(in void* p1, in void* p2) { return base.equals(p1, p2); }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3321 + override int compare(in void* p1, in void* p2) { return base.compare(p1, p2); }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3322 + override size_t tsize() { return base.tsize(); }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3323 + override void swap(void* p1, void* p2) { return base.swap(p1, p2); }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3324 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3325 + override TypeInfo next() { return base.next(); }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3326 + override uint flags() { return base.flags(); }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3327 + override void[] init() { return m_init.length ? m_init : base.init(); }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3328 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3329 + TypeInfo base;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3330 + string name;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3331 + void[] m_init;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3332 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3333 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3334 +class TypeInfo_Enum : TypeInfo_Typedef
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3335 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3336 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3337 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3338 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3339 +class TypeInfo_Pointer : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3340 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3341 + override string toString() { return m_next.toString() ~ "*"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3342 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3343 + override equals_t opEquals(Object o)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3344 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3345 + TypeInfo_Pointer c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3346 + return this is o \|\|
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3347 + ((c = cast(TypeInfo_Pointer)o) !is null &&
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3348 + this.m_next == c.m_next);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3349 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3350 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3351 + override hash_t getHash(in void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3352 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3353 + return cast(hash_t)cast(void*)p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3354 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3355 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3356 + override equals_t equals(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3357 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3358 + return cast(void)p1 == cast(void**)p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3359 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3360 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3361 + override int compare(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3362 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3363 + if (cast(void)p1 < cast(void**)p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3364 + return -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3365 + else if (cast(void)p1 > cast(void**)p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3366 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3367 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3368 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3369 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3370 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3371 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3372 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3373 + return (void*).sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3374 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3375 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3376 + override void swap(void* p1, void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3377 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3378 + void* tmp = cast(void*)p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3379 + cast(void)p1 = cast(void**)p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3380 + cast(void*)p2 = tmp;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3381 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3382 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3383 + override TypeInfo next() { return m_next; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3384 + override uint flags() { return 1; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3385 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3386 + TypeInfo m_next;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3387 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3388 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3389 +class TypeInfo_Array : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3390 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3391 + override string toString() { return value.toString() ~ "[]"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3392 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3393 + override equals_t opEquals(Object o)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3394 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3395 + TypeInfo_Array c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3396 + return this is o \|\|
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3397 + ((c = cast(TypeInfo_Array)o) !is null &&
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3398 + this.value == c.value);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3399 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3400 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3401 + override hash_t getHash(in void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3402 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3403 + size_t sz = value.tsize();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3404 + hash_t hash = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3405 + void[] a = cast(void[])p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3406 + for (size_t i = 0; i < a.length; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3407 + hash += value.getHash(a.ptr + i * sz);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3408 + return hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3409 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3410 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3411 + override equals_t equals(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3412 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3413 + void[] a1 = cast(void[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3414 + void[] a2 = cast(void[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3415 + if (a1.length != a2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3416 + return false;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3417 + size_t sz = value.tsize();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3418 + for (size_t i = 0; i < a1.length; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3419 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3420 + if (!value.equals(a1.ptr + i * sz, a2.ptr + i * sz))
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3421 + return false;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3422 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3423 + return true;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3424 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3425 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3426 + override int compare(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3427 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3428 + void[] a1 = cast(void[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3429 + void[] a2 = cast(void[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3430 + size_t sz = value.tsize();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3431 + size_t len = a1.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3432 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3433 + if (a2.length < len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3434 + len = a2.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3435 + for (size_t u = 0; u < len; u++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3436 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3437 + int result = value.compare(a1.ptr + u * sz, a2.ptr + u * sz);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3438 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3439 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3440 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3441 + return cast(int)a1.length - cast(int)a2.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3442 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3443 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3444 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3445 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3446 + return (void[]).sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3447 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3448 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3449 + override void swap(void* p1, void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3450 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3451 + void[] tmp = cast(void[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3452 + cast(void[])p1 = cast(void[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3453 + cast(void[])p2 = tmp;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3454 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3455 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3456 + TypeInfo value;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3457 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3458 + override TypeInfo next()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3459 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3460 + return value;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3461 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3462 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3463 + override uint flags() { return 1; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3464 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3465 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3466 +class TypeInfo_StaticArray : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3467 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3468 + override string toString()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3469 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3470 + char[10] tmp = void;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3471 + return cast(string)(value.toString() ~ "[" ~ tmp.intToString(len) ~ "]");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3472 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3473 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3474 + override equals_t opEquals(Object o)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3475 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3476 + TypeInfo_StaticArray c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3477 + return this is o \|\|
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3478 + ((c = cast(TypeInfo_StaticArray)o) !is null &&
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3479 + this.len == c.len &&
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3480 + this.value == c.value);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3481 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3482 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3483 + override hash_t getHash(in void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3484 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3485 + size_t sz = value.tsize();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3486 + hash_t hash = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3487 + for (size_t i = 0; i < len; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3488 + hash += value.getHash(p + i * sz);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3489 + return hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3490 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3491 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3492 + override equals_t equals(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3493 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3494 + size_t sz = value.tsize();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3495 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3496 + for (size_t u = 0; u < len; u++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3497 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3498 + if (!value.equals(p1 + u * sz, p2 + u * sz))
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3499 + return false;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3500 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3501 + return true;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3502 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3503 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3504 + override int compare(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3505 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3506 + size_t sz = value.tsize();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3507 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3508 + for (size_t u = 0; u < len; u++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3509 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3510 + int result = value.compare(p1 + u * sz, p2 + u * sz);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3511 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3512 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3513 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3514 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3515 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3516 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3517 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3518 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3519 + return len * value.tsize();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3520 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3521 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3522 + override void swap(void* p1, void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3523 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3524 + void* tmp;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3525 + size_t sz = value.tsize();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3526 + ubyte[16] buffer;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3527 + void* pbuffer;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3528 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3529 + if (sz < buffer.sizeof)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3530 + tmp = buffer.ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3531 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3532 + tmp = pbuffer = (new void[sz]).ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3533 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3534 + for (size_t u = 0; u < len; u += sz)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3535 + { size_t o = u * sz;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3536 + memcpy(tmp, p1 + o, sz);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3537 + memcpy(p1 + o, p2 + o, sz);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3538 + memcpy(p2 + o, tmp, sz);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3539 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3540 + if (pbuffer)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3541 + delete pbuffer;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3542 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3543 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3544 + override void[] init() { return value.init(); }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3545 + override TypeInfo next() { return value; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3546 + override uint flags() { return value.flags(); }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3547 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3548 + override void destroy(void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3549 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3550 + auto sz = value.tsize();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3551 + p += sz * len;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3552 + foreach (i; 0 .. len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3553 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3554 + p -= sz;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3555 + value.destroy(p);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3556 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3557 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3558 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3559 + override void postblit(void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3560 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3561 + auto sz = value.tsize();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3562 + foreach (i; 0 .. len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3563 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3564 + value.postblit(p);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3565 + p += sz;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3566 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3567 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3568 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3569 + TypeInfo value;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3570 + size_t len;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3571 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3572 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3573 +class TypeInfo_AssociativeArray : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3574 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3575 + override string toString()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3576 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3577 + return cast(string)(next.toString() ~ "[" ~ key.toString() ~ "]");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3578 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3579 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3580 + override equals_t opEquals(Object o)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3581 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3582 + TypeInfo_AssociativeArray c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3583 + return this is o \|\|
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3584 + ((c = cast(TypeInfo_AssociativeArray)o) !is null &&
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3585 + this.key == c.key &&
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3586 + this.value == c.value);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3587 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3588 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3589 + // BUG: need to add the rest of the functions
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3590 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3591 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3592 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3593 + return (char[int]).sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3594 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3595 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3596 + override TypeInfo next() { return value; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3597 + override uint flags() { return 1; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3598 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3599 + TypeInfo value;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3600 + TypeInfo key;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3601 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3602 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3603 +class TypeInfo_Function : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3604 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3605 + override string toString()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3606 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3607 + return cast(string)(next.toString() ~ "()");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3608 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3609 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3610 + override equals_t opEquals(Object o)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3611 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3612 + TypeInfo_Function c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3613 + return this is o \|\|
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3614 + ((c = cast(TypeInfo_Function)o) !is null &&
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3615 + this.next == c.next);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3616 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3617 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3618 + // BUG: need to add the rest of the functions
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3619 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3620 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3621 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3622 + return 0; // no size for functions
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3623 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3624 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3625 + TypeInfo next;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3626 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3627 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3628 +class TypeInfo_Delegate : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3629 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3630 + override string toString()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3631 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3632 + return cast(string)(next.toString() ~ " delegate()");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3633 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3634 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3635 + override equals_t opEquals(Object o)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3636 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3637 + TypeInfo_Delegate c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3638 + return this is o \|\|
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3639 + ((c = cast(TypeInfo_Delegate)o) !is null &&
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3640 + this.next == c.next);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3641 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3642 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3643 + // BUG: need to add the rest of the functions
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3644 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3645 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3646 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3647 + alias int delegate() dg;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3648 + return dg.sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3649 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3650 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3651 + override uint flags() { return 1; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3652 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3653 + TypeInfo next;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3654 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3655 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3656 +class TypeInfo_Class : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3657 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3658 + override string toString() { return info.name; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3659 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3660 + override equals_t opEquals(Object o)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3661 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3662 + TypeInfo_Class c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3663 + return this is o \|\|
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3664 + ((c = cast(TypeInfo_Class)o) !is null &&
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3665 + this.info.name == c.classinfo.name);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3666 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3667 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3668 + override hash_t getHash(in void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3669 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3670 + Object o = cast(Object)p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3671 + return o ? o.toHash() : 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3672 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3673 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3674 + override equals_t equals(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3675 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3676 + Object o1 = cast(Object)p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3677 + Object o2 = cast(Object)p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3678 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3679 + return (o1 is o2) \|\| (o1 && o1.opEquals(o2));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3680 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3681 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3682 + override int compare(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3683 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3684 + Object o1 = cast(Object)p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3685 + Object o2 = cast(Object)p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3686 + int c = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3687 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3688 + // Regard null references as always being "less than"
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3689 + if (o1 !is o2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3690 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3691 + if (o1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3692 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3693 + if (!o2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3694 + c = 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3695 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3696 + c = o1.opCmp(o2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3697 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3698 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3699 + c = -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3700 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3701 + return c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3702 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3703 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3704 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3705 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3706 + return Object.sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3707 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3708 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3709 + override uint flags() { return 1; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3710 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3711 + override OffsetTypeInfo[] offTi()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3712 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3713 + return (info.flags & 4) ? info.offTi : null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3714 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3715 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3716 + ClassInfo info;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3717 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3718 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3719 +class TypeInfo_Interface : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3720 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3721 + override string toString() { return info.name; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3722 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3723 + override equals_t opEquals(Object o)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3724 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3725 + TypeInfo_Interface c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3726 + return this is o \|\|
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3727 + ((c = cast(TypeInfo_Interface)o) !is null &&
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3728 + this.info.name == c.classinfo.name);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3729 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3730 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3731 + override hash_t getHash(in void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3732 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3733 + Interface* pi = cast(Interface )cast(void**)p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3734 + Object o = cast(Object)(cast(void*)p - pi.offset);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3735 + assert(o);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3736 + return o.toHash();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3737 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3738 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3739 + override equals_t equals(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3740 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3741 + Interface* pi = cast(Interface )cast(void**)p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3742 + Object o1 = cast(Object)(cast(void*)p1 - pi.offset);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3743 + pi = cast(Interface )cast(void**)p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3744 + Object o2 = cast(Object)(cast(void*)p2 - pi.offset);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3745 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3746 + return o1 == o2 \|\| (o1 && o1.opCmp(o2) == 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3747 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3748 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3749 + override int compare(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3750 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3751 + Interface* pi = cast(Interface )cast(void**)p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3752 + Object o1 = cast(Object)(cast(void*)p1 - pi.offset);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3753 + pi = cast(Interface )cast(void**)p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3754 + Object o2 = cast(Object)(cast(void*)p2 - pi.offset);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3755 + int c = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3756 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3757 + // Regard null references as always being "less than"
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3758 + if (o1 != o2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3759 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3760 + if (o1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3761 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3762 + if (!o2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3763 + c = 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3764 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3765 + c = o1.opCmp(o2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3766 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3767 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3768 + c = -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3769 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3770 + return c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3771 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3772 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3773 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3774 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3775 + return Object.sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3776 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3777 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3778 + override uint flags() { return 1; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3779 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3780 + ClassInfo info;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3781 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3782 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3783 +class TypeInfo_Struct : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3784 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3785 + override string toString() { return name; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3786 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3787 + override equals_t opEquals(Object o)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3788 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3789 + TypeInfo_Struct s;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3790 + return this is o \|\|
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3791 + ((s = cast(TypeInfo_Struct)o) !is null &&
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3792 + this.name == s.name &&
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3793 + this.init.length == s.init.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3794 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3795 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3796 + override hash_t getHash(in void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3797 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3798 + assert(p);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3799 + if (xtoHash)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3800 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3801 + debug(PRINTF) printf("getHash() using xtoHash\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3802 + return (*xtoHash)(p);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3803 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3804 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3805 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3806 + hash_t h;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3807 + debug(PRINTF) printf("getHash() using default hash\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3808 + // A sorry hash algorithm.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3809 + // Should use the one for strings.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3810 + // BUG: relies on the GC not moving objects
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3811 + auto q = cast(const(ubyte)*)p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3812 + for (size_t i = 0; i < init.length; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3813 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3814 + h = h * 9 + *q;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3815 + q++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3816 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3817 + return h;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3818 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3819 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3820 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3821 + override equals_t equals(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3822 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3823 + if (p1 == p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3824 + return true;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3825 + else if (!p1 \|\| !p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3826 + return false;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3827 + else if (xopEquals)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3828 + return (*xopEquals)(p1, p2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3829 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3830 + // BUG: relies on the GC not moving objects
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3831 + return memcmp(p1, p2, init.length) == 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3832 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3833 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3834 + override int compare(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3835 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3836 + // Regard null references as always being "less than"
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3837 + if (p1 != p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3838 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3839 + if (p1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3840 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3841 + if (!p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3842 + return true;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3843 + else if (xopCmp)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3844 + return (*xopCmp)(p2, p1);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3845 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3846 + // BUG: relies on the GC not moving objects
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3847 + return memcmp(p1, p2, init.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3848 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3849 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3850 + return -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3851 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3852 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3853 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3854 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3855 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3856 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3857 + return init.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3858 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3859 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3860 + override void[] init() { return m_init; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3861 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3862 + override uint flags() { return m_flags; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3863 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3864 + override void destroy(void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3865 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3866 + if (xdtor)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3867 + (*xdtor)(p);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3868 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3869 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3870 + override void postblit(void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3871 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3872 + if (xpostblit)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3873 + (*xpostblit)(p);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3874 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3875 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3876 + string name;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3877 + void[] m_init; // initializer; init.ptr == null if 0 initialize
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3878 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3879 + hash_t function(in void*) xtoHash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3880 + equals_t function(in void, in void) xopEquals;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3881 + int function(in void, in void) xopCmp;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3882 + char[] function(in void*) xtoString;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3883 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3884 + uint m_flags;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3885 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3886 + const(MemberInfo[]) function(in char[]) xgetMembers;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3887 + void function(void*) xdtor;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3888 + void function(void*) xpostblit;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3889 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3890 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3891 +class TypeInfo_Tuple : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3892 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3893 + TypeInfo[] elements;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3894 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3895 + override string toString()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3896 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3897 + string s = "(";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3898 + foreach (i, element; elements)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3899 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3900 + if (i)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3901 + s ~= ',';
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3902 + s ~= element.toString();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3903 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3904 + s ~= ")";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3905 + return s;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3906 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3907 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3908 + override equals_t opEquals(Object o)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3909 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3910 + if (this is o)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3911 + return true;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3912 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3913 + auto t = cast(TypeInfo_Tuple)o;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3914 + if (t && elements.length == t.elements.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3915 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3916 + for (size_t i = 0; i < elements.length; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3917 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3918 + if (elements[i] != t.elements[i])
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3919 + return false;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3920 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3921 + return true;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3922 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3923 + return false;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3924 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3925 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3926 + override hash_t getHash(in void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3927 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3928 + assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3929 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3930 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3931 + override equals_t equals(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3932 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3933 + assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3934 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3935 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3936 + override int compare(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3937 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3938 + assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3939 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3940 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3941 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3942 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3943 + assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3944 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3945 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3946 + override void swap(void* p1, void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3947 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3948 + assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3949 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3950 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3951 + override void destroy(void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3952 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3953 + assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3954 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3955 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3956 + override void postblit(void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3957 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3958 + assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3959 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3960 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3961 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3962 +class TypeInfo_Const : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3963 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3964 + override string toString()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3965 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3966 + return cast(string) ("const(" ~ base.toString() ~ ")");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3967 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3968 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3969 + override equals_t opEquals(Object o) { return base.opEquals(o); }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3970 + override hash_t getHash(in void *p) { return base.getHash(p); }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3971 + override equals_t equals(in void p1, in void p2) { return base.equals(p1, p2); }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3972 + override int compare(in void p1, in void p2) { return base.compare(p1, p2); }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3973 + override size_t tsize() { return base.tsize(); }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3974 + override void swap(void p1, void p2) { return base.swap(p1, p2); }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3975 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3976 + override TypeInfo next() { return base.next(); }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3977 + override uint flags() { return base.flags(); }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3978 + override void[] init() { return base.init(); }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3979 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3980 + TypeInfo base;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3981 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3982 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3983 +class TypeInfo_Invariant : TypeInfo_Const
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3984 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3985 + override string toString()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3986 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3987 + return cast(string) ("invariant(" ~ base.toString() ~ ")");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3988 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3989 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3990 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3991 +abstract class MemberInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3992 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3993 + string name();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3994 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3995 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3996 +class MemberInfo_field : MemberInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3997 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3998 + this(string name, TypeInfo ti, size_t offset)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3999 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4000 + m_name = name;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4001 + m_typeinfo = ti;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4002 + m_offset = offset;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4003 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4004 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4005 + override string name() { return m_name; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4006 + TypeInfo typeInfo() { return m_typeinfo; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4007 + size_t offset() { return m_offset; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4008 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4009 + string m_name;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4010 + TypeInfo m_typeinfo;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4011 + size_t m_offset;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4012 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4013 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4014 +class MemberInfo_function : MemberInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4015 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4016 + this(string name, TypeInfo ti, void* fp, uint flags)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4017 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4018 + m_name = name;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4019 + m_typeinfo = ti;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4020 + m_fp = fp;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4021 + m_flags = flags;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4022 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4023 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4024 + override string name() { return m_name; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4025 + TypeInfo typeInfo() { return m_typeinfo; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4026 + void* fp() { return m_fp; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4027 + uint flags() { return m_flags; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4028 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4029 + string m_name;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4030 + TypeInfo m_typeinfo;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4031 + void* m_fp;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4032 + uint m_flags;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4033 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4034 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4035 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4036 +///////////////////////////////////////////////////////////////////////////////
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4037 +// Throwable
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4038 +///////////////////////////////////////////////////////////////////////////////
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4039 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4040 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4041 +class Throwable : Object
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4042 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4043 + interface TraceInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4044 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4045 + int opApply(int delegate(inout char[]));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4046 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4047 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4048 + string msg;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4049 + string file;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4050 + size_t line;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4051 + TraceInfo info;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4052 + Throwable next;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4053 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4054 + this(string msg, Throwable next = null)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4055 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4056 + this.msg = msg;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4057 + this.next = next;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4058 + this.info = traceContext();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4059 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4060 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4061 + this(string msg, string file, size_t line, Throwable next = null)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4062 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4063 + this(msg, next);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4064 + this.file = file;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4065 + this.line = line;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4066 + this.info = traceContext();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4067 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4068 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4069 + override string toString()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4070 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4071 + char[10] tmp = void;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4072 + char[] buf;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4073 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4074 + for (Throwable e = this; e !is null; e = e.next)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4075 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4076 + if (e.file)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4077 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4078 + buf ~= e.classinfo.name ~ "@" ~ e.file ~ "(" ~ tmp.intToString(e.line) ~ "): " ~ e.msg;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4079 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4080 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4081 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4082 + buf ~= e.classinfo.name ~ ": " ~ e.msg;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4083 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4084 + if (e.info)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4085 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4086 + buf ~= "\n----------------";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4087 + foreach (t; e.info)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4088 + buf ~= "\n" ~ t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4089 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4090 + if (e.next)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4091 + buf ~= "\n";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4092 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4093 + return cast(string) buf;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4094 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4095 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4096 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4097 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4098 +alias Throwable.TraceInfo function(void* ptr = null) TraceHandler;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4099 +private TraceHandler traceHandler = null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4100 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4101 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4102 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4103 + * Overrides the default trace hander with a user-supplied version.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4104 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4105 + * Params:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4106 + * h = The new trace handler. Set to null to use the default handler.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4107 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4108 +extern (C) void rt_setTraceHandler(TraceHandler h)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4109 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4110 + traceHandler = h;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4111 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4112 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4113 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4114 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4115 + * This function will be called when an exception is constructed. The
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4116 + * user-supplied trace handler will be called if one has been supplied,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4117 + * otherwise no trace will be generated.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4118 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4119 + * Params:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4120 + * ptr = A pointer to the location from which to generate the trace, or null
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4121 + * if the trace should be generated from within the trace handler
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4122 + * itself.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4123 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4124 + * Returns:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4125 + * An object describing the current calling context or null if no handler is
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4126 + * supplied.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4127 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4128 +Throwable.TraceInfo traceContext(void* ptr = null)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4129 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4130 + if (traceHandler is null)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4131 + return null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4132 + return traceHandler(ptr);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4133 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4134 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4135 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4136 +class Exception : Throwable
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4137 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4138 + this(string msg, Throwable next = null)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4139 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4140 + super(msg, next);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4141 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4142 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4143 + this(string msg, string file, size_t line, Throwable next = null)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4144 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4145 + super(msg, file, line, next);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4146 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4147 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4148 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4149 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4150 +class Error : Throwable
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4151 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4152 + this(string msg, Throwable next = null)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4153 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4154 + super(msg, next);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4155 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4156 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4157 + this(string msg, string file, size_t line, Throwable next = null)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4158 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4159 + super(msg, file, line, next);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4160 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4161 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4162 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4163 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4164 +///////////////////////////////////////////////////////////////////////////////
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4165 +// ModuleInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4166 +///////////////////////////////////////////////////////////////////////////////
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4167 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4168 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4169 +enum
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4170 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4171 + MIctorstart = 1, // we've started constructing it
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4172 + MIctordone = 2, // finished construction
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4173 + MIstandalone = 4, // module ctor does not depend on other module
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4174 + // ctors being done first
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4175 + MIhasictor = 8, // has ictor member
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4176 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4177 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4178 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4179 +class ModuleInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4180 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4181 + string name;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4182 + ModuleInfo[] importedModules;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4183 + ClassInfo[] localClasses;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4184 + uint flags;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4185 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4186 + void function() ctor; // module static constructor (order dependent)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4187 + void function() dtor; // module static destructor
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4188 + void function() unitTest; // module unit tests
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4189 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4190 + void* xgetMembers; // module getMembers() function
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4191 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4192 + void function() ictor; // module static constructor (order independent)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4193 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4194 + static int opApply(int delegate(inout ModuleInfo) dg)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4195 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4196 + int ret = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4197 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4198 + foreach (m; _moduleinfo_array)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4199 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4200 + ret = dg(m);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4201 + if (ret)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4202 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4203 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4204 + return ret;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4205 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4206 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4207 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4208 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4209 +// Windows: this gets initialized by minit.asm
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4210 +// linux: this gets initialized in _moduleCtor()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4211 +extern (C) ModuleInfo[] _moduleinfo_array;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4212 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4213 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4214 +version (linux)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4215 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4216 + // This linked list is created by a compiler generated function inserted
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4217 + // into the .ctor list by the compiler.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4218 + struct ModuleReference
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4219 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4220 + ModuleReference* next;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4221 + ModuleInfo mod;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4222 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4223 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4224 + extern (C) ModuleReference* _Dmodule_ref; // start of linked list
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4225 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4226 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4227 +ModuleInfo[] _moduleinfo_dtors;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4228 +uint _moduleinfo_dtors_i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4229 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4230 +// Register termination function pointers
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4231 +extern (C) int _fatexit(void*);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4232 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4233 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4234 + * Initialize the modules.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4235 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4236 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4237 +extern (C) void _moduleCtor()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4238 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4239 + debug(PRINTF) printf("_moduleCtor()\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4240 + version (linux)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4241 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4242 + int len = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4243 + ModuleReference *mr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4244 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4245 + for (mr = _Dmodule_ref; mr; mr = mr.next)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4246 + len++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4247 + _moduleinfo_array = new ModuleInfo[len];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4248 + len = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4249 + for (mr = _Dmodule_ref; mr; mr = mr.next)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4250 + { _moduleinfo_array[len] = mr.mod;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4251 + len++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4252 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4253 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4254 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4255 + version (Windows)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4256 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4257 + // Ensure module destructors also get called on program termination
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4258 + //_fatexit(&_STD_moduleDtor);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4259 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4260 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4261 + _moduleinfo_dtors = new ModuleInfo[_moduleinfo_array.length];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4262 + debug(PRINTF) printf("_moduleinfo_dtors = x%x\n", cast(void*)_moduleinfo_dtors);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4263 + _moduleIndependentCtors();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4264 + _moduleCtor2(_moduleinfo_array, 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4265 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4266 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4267 +extern (C) void _moduleIndependentCtors()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4268 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4269 + debug(PRINTF) printf("_moduleIndependentCtors()\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4270 + foreach (m; _moduleinfo_array)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4271 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4272 + if (m && m.flags & MIhasictor && m.ictor)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4273 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4274 + (*m.ictor)();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4275 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4276 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4277 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4278 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4279 +void _moduleCtor2(ModuleInfo[] mi, int skip)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4280 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4281 + debug(PRINTF) printf("_moduleCtor2(): %d modules\n", mi.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4282 + for (uint i = 0; i < mi.length; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4283 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4284 + ModuleInfo m = mi[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4285 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4286 + debug(PRINTF) printf("\tmodule[%d] = '%p'\n", i, m);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4287 + if (!m)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4288 + continue;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4289 + debug(PRINTF) printf("\tmodule[%d] = '%.*s'\n", i, m.name);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4290 + if (m.flags & MIctordone)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4291 + continue;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4292 + debug(PRINTF) printf("\tmodule[%d] = '%.*s', m = x%x\n", i, m.name, m);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4293 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4294 + if (m.ctor \|\| m.dtor)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4295 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4296 + if (m.flags & MIctorstart)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4297 + { if (skip \|\| m.flags & MIstandalone)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4298 + continue;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4299 + throw new Exception("Cyclic dependency in module " ~ m.name);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4300 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4301 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4302 + m.flags \|= MIctorstart;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4303 + _moduleCtor2(m.importedModules, 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4304 + if (m.ctor)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4305 + (*m.ctor)();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4306 + m.flags &= ~MIctorstart;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4307 + m.flags \|= MIctordone;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4308 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4309 + // Now that construction is done, register the destructor
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4310 + //printf("\tadding module dtor x%x\n", m);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4311 + assert(_moduleinfo_dtors_i < _moduleinfo_dtors.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4312 + _moduleinfo_dtors[_moduleinfo_dtors_i++] = m;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4313 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4314 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4315 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4316 + m.flags \|= MIctordone;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4317 + _moduleCtor2(m.importedModules, 1);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4318 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4319 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4320 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4321 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4322 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4323 + * Destruct the modules.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4324 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4325 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4326 +// Starting the name with "_STD" means under linux a pointer to the
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4327 +// function gets put in the .dtors segment.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4328 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4329 +extern (C) void _moduleDtor()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4330 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4331 + debug(PRINTF) printf("_moduleDtor(): %d modules\n", _moduleinfo_dtors_i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4332 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4333 + for (uint i = _moduleinfo_dtors_i; i-- != 0;)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4334 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4335 + ModuleInfo m = _moduleinfo_dtors[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4336 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4337 + debug(PRINTF) printf("\tmodule[%d] = '%.*s', x%x\n", i, m.name, m);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4338 + if (m.dtor)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4339 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4340 + (*m.dtor)();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4341 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4342 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4343 + debug(PRINTF) printf("_moduleDtor() done\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4344 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4345 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4346 +///////////////////////////////////////////////////////////////////////////////
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4347 +// Monitor
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4348 +///////////////////////////////////////////////////////////////////////////////
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4349 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4350 +alias Object.Monitor IMonitor;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4351 +alias void delegate(Object) DEvent;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4352 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4353 +// NOTE: The dtor callback feature is only supported for monitors that are not
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4354 +// supplied by the user. The assumption is that any object with a user-
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4355 +// supplied monitor may have special storage or lifetime requirements and
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4356 +// that as a result, storing references to local objects within Monitor
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4357 +// may not be safe or desirable. Thus, devt is only valid if impl is
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4358 +// null.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4359 +struct Monitor
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4360 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4361 + IMonitor impl;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4362 + /* internal */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4363 + DEvent[] devt;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4364 + /* stuff */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4365 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4366 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4367 +Monitor* getMonitor(Object h)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4368 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4369 + return cast(Monitor) (cast(void*) h)[1];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4370 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4371 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4372 +void setMonitor(Object h, Monitor* m)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4373 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4374 + (cast(void**) h)[1] = m;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4375 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4376 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4377 +extern (C) void _d_monitor_create(Object);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4378 +extern (C) void _d_monitor_destroy(Object);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4379 +extern (C) void _d_monitor_lock(Object);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4380 +extern (C) int _d_monitor_unlock(Object);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4381 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4382 +extern (C) void _d_monitordelete(Object h, bool det)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4383 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4384 + Monitor* m = getMonitor(h);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4385 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4386 + if (m !is null)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4387 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4388 + IMonitor i = m.impl;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4389 + if (i is null)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4390 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4391 + _d_monitor_devt(m, h);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4392 + _d_monitor_destroy(h);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4393 + setMonitor(h, null);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4394 + return;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4395 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4396 + if (det && (cast(void) i) !is (cast(void) h))
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4397 + delete i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4398 + setMonitor(h, null);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4399 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4400 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4401 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4402 +extern (C) void _d_monitorenter(Object h)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4403 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4404 + Monitor* m = getMonitor(h);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4405 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4406 + if (m is null)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4407 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4408 + _d_monitor_create(h);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4409 + m = getMonitor(h);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4410 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4411 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4412 + IMonitor i = m.impl;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4413 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4414 + if (i is null)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4415 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4416 + _d_monitor_lock(h);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4417 + return;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4418 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4419 + i.lock();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4420 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4421 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4422 +extern (C) void _d_monitorexit(Object h)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4423 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4424 + Monitor* m = getMonitor(h);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4425 + IMonitor i = m.impl;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4426 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4427 + if (i is null)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4428 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4429 + _d_monitor_unlock(h);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4430 + return;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4431 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4432 + i.unlock();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4433 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4434 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4435 +extern (C) void _d_monitor_devt(Monitor* m, Object h)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4436 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4437 + if (m.devt.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4438 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4439 + DEvent[] devt;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4440 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4441 + synchronized (h)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4442 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4443 + devt = m.devt;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4444 + m.devt = null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4445 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4446 + foreach (v; devt)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4447 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4448 + if (v)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4449 + v(h);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4450 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4451 + free(devt.ptr);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4452 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4453 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4454 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4455 +extern (C) void rt_attachDisposeEvent(Object h, DEvent e)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4456 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4457 + synchronized (h)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4458 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4459 + Monitor* m = getMonitor(h);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4460 + assert(m.impl is null);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4461 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4462 + foreach (inout v; m.devt)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4463 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4464 + if (v is null \|\| v == e)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4465 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4466 + v = e;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4467 + return;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4468 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4469 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4470 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4471 + auto len = m.devt.length + 4; // grow by 4 elements
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4472 + auto pos = m.devt.length; // insert position
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4473 + auto p = realloc(m.devt.ptr, DEvent.sizeof * len);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4474 + if (!p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4475 + onOutOfMemoryError();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4476 + m.devt = (cast(DEvent*)p)[0 .. len];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4477 + m.devt[pos+1 .. len] = null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4478 + m.devt[pos] = e;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4479 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4480 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4481 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4482 +extern (C) void rt_detachDisposeEvent(Object h, DEvent e)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4483 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4484 + synchronized (h)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4485 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4486 + Monitor* m = getMonitor(h);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4487 + assert(m.impl is null);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4488 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4489 + foreach (p, v; m.devt)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4490 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4491 + if (v == e)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4492 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4493 + memmove(&m.devt[p],
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4494 + &m.devt[p+1],
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4495 + (m.devt.length - p - 1) * DEvent.sizeof);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4496 + m.devt[$ - 1] = null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4497 + return;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4498 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4499 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4500 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4501 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4502 Index: src/compiler/ldc/mars.h
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4503 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4504 --- src/compiler/ldc/mars.h (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4505 +++ src/compiler/ldc/mars.h (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4506 @@ -0,0 +1,105 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4507 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4508 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4509 + * Placed into the Public Domain
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4510 + * written by Walter Bright, Digital Mars
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4511 + * www.digitalmars.com
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4512 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4513 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4514 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4515 + * Modified by Sean Kelly <sean@f4.ca> for use with Tango.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4516 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4517 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4518 +#include <stddef.h>
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4519 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4520 +#if __cplusplus
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4521 +extern "C" {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4522 +#endif
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4523 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4524 +struct ClassInfo;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4525 +struct Vtbl;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4526 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4527 +typedef struct Vtbl
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4528 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4529 + size_t len;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4530 + void **vptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4531 +} Vtbl;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4532 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4533 +typedef struct Interface
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4534 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4535 + struct ClassInfo *classinfo;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4536 + struct Vtbl vtbl;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4537 + int offset;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4538 +} Interface;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4539 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4540 +typedef struct Object
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4541 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4542 + void **vptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4543 + void *monitor;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4544 +} Object;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4545 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4546 +typedef struct ClassInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4547 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4548 + Object object;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4549 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4550 + size_t initlen;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4551 + void *init;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4552 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4553 + size_t namelen;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4554 + char *name;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4555 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4556 + Vtbl vtbl;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4557 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4558 + size_t interfacelen;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4559 + Interface *interfaces;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4560 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4561 + struct ClassInfo *baseClass;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4562 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4563 + void *destructor;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4564 + void *invariant;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4565 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4566 + int flags;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4567 +} ClassInfo;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4568 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4569 +typedef struct Exception
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4570 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4571 + Object object;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4572 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4573 + size_t msglen;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4574 + char* msg;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4575 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4576 + size_t filelen;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4577 + char* file;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4578 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4579 + size_t line;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4580 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4581 + struct Interface *info;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4582 + struct Exception *next;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4583 +} Exception;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4584 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4585 +typedef struct Array
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4586 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4587 + size_t length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4588 + void *ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4589 +} Array;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4590 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4591 +typedef struct Delegate
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4592 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4593 + void *thisptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4594 + void (*funcptr)();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4595 +} Delegate;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4596 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4597 +void _d_monitorenter(Object *h);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4598 +void _d_monitorexit(Object *h);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4599 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4600 +int _d_isbaseof(ClassInfo b, ClassInfo c);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4601 +Object _d_dynamic_cast(Object o, ClassInfo *ci);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4602 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4603 +Object * _d_allocclass(ClassInfo *ci);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4604 +void _d_delclass(Object **p);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4605 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4606 +void _d_OutOfMemory();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4607 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4608 +#if __cplusplus
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4609 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4610 +#endif
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4611 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4612 Index: src/compiler/ldc/aApplyR.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4613 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4614 --- src/compiler/ldc/aApplyR.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4615 +++ src/compiler/ldc/aApplyR.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4616 @@ -0,0 +1,975 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4617 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4618 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4619 + * Part of the D programming language runtime library.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4620 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4621 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4622 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4623 + * Copyright (C) 2004-2006 by Digital Mars, www.digitalmars.com
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4624 + * Written by Walter Bright
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4625 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4626 + * This software is provided 'as-is', without any express or implied
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4627 + * warranty. In no event will the authors be held liable for any damages
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4628 + * arising from the use of this software.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4629 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4630 + * Permission is granted to anyone to use this software for any purpose,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4631 + * including commercial applications, and to alter it and redistribute it
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4632 + * freely, in both source and binary form, subject to the following
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4633 + * restrictions:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4634 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4635 + * o The origin of this software must not be misrepresented; you must not
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4636 + * claim that you wrote the original software. If you use this software
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4637 + * in a product, an acknowledgment in the product documentation would be
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4638 + * appreciated but is not required.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4639 + * o Altered source versions must be plainly marked as such, and must not
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4640 + * be misrepresented as being the original software.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4641 + * o This notice may not be removed or altered from any source
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4642 + * distribution.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4643 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4644 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4645 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4646 + * Modified by Sean Kelly <sean@f4.ca> for use with Tango.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4647 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4648 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4649 +/* This code handles decoding UTF strings for foreach_reverse loops.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4650 + * There are 6 combinations of conversions between char, wchar,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4651 + * and dchar, and 2 of each of those.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4652 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4653 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4654 +private import util.utf;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4655 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4656 +/**********************************************/
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4657 +/* 1 argument versions */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4658 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4659 +// dg is D, but _aApplyRcd() is C
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4660 +extern (D) typedef int delegate(void *) dg_t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4661 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4662 +extern (C) int _aApplyRcd1(in char[] aa, dg_t dg)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4663 +{ int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4664 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4665 + debug(apply) printf("_aApplyRcd1(), len = %d\n", aa.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4666 + for (size_t i = aa.length; i != 0; )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4667 + { dchar d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4668 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4669 + i--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4670 + d = aa[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4671 + if (d & 0x80)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4672 + { char c = cast(char)d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4673 + uint j;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4674 + uint m = 0x3F;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4675 + d = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4676 + while ((c & 0xC0) != 0xC0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4677 + { if (i == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4678 + onUnicodeError("Invalid UTF-8 sequence", 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4679 + i--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4680 + d \|= (c & 0x3F) << j;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4681 + j += 6;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4682 + m >>= 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4683 + c = aa[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4684 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4685 + d \|= (c & m) << j;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4686 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4687 + result = dg(cast(void *)&d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4688 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4689 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4690 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4691 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4692 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4693 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4694 +unittest
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4695 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4696 + debug(apply) printf("_aApplyRcd1.unittest\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4697 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4698 + char[] s = "hello"c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4699 + int i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4700 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4701 + foreach_reverse(dchar d; s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4702 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4703 + switch (i)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4704 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4705 + case 0: assert(d == 'o'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4706 + case 1: assert(d == 'l'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4707 + case 2: assert(d == 'l'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4708 + case 3: assert(d == 'e'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4709 + case 4: assert(d == 'h'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4710 + default: assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4711 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4712 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4713 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4714 + assert(i == 5);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4715 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4716 + s = "a\u1234\U00100456b";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4717 + i = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4718 + foreach_reverse(dchar d; s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4719 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4720 + //printf("i = %d, d = %x\n", i, d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4721 + switch (i)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4722 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4723 + case 0: assert(d == 'b'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4724 + case 1: assert(d == '\U00100456'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4725 + case 2: assert(d == '\u1234'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4726 + case 3: assert(d == 'a'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4727 + default: assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4728 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4729 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4730 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4731 + assert(i == 4);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4732 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4733 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4734 +/*****************************/
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4735 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4736 +extern (C) int _aApplyRwd1(in wchar[] aa, dg_t dg)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4737 +{ int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4738 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4739 + debug(apply) printf("_aApplyRwd1(), len = %d\n", aa.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4740 + for (size_t i = aa.length; i != 0; )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4741 + { dchar d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4742 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4743 + i--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4744 + d = aa[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4745 + if (d >= 0xDC00 && d <= 0xDFFF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4746 + { if (i == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4747 + onUnicodeError("Invalid UTF-16 sequence", 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4748 + i--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4749 + d = ((aa[i] - 0xD7C0) << 10) + (d - 0xDC00);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4750 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4751 + result = dg(cast(void *)&d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4752 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4753 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4754 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4755 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4756 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4757 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4758 +unittest
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4759 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4760 + debug(apply) printf("_aApplyRwd1.unittest\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4761 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4762 + wchar[] s = "hello"w;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4763 + int i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4764 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4765 + foreach_reverse(dchar d; s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4766 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4767 + switch (i)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4768 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4769 + case 0: assert(d == 'o'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4770 + case 1: assert(d == 'l'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4771 + case 2: assert(d == 'l'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4772 + case 3: assert(d == 'e'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4773 + case 4: assert(d == 'h'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4774 + default: assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4775 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4776 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4777 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4778 + assert(i == 5);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4779 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4780 + s = "a\u1234\U00100456b";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4781 + i = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4782 + foreach_reverse(dchar d; s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4783 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4784 + //printf("i = %d, d = %x\n", i, d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4785 + switch (i)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4786 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4787 + case 0: assert(d == 'b'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4788 + case 1: assert(d == '\U00100456'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4789 + case 2: assert(d == '\u1234'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4790 + case 3: assert(d == 'a'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4791 + default: assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4792 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4793 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4794 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4795 + assert(i == 4);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4796 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4797 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4798 +/*****************************/
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4799 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4800 +extern (C) int _aApplyRcw1(in char[] aa, dg_t dg)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4801 +{ int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4802 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4803 + debug(apply) printf("_aApplyRcw1(), len = %d\n", aa.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4804 + for (size_t i = aa.length; i != 0; )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4805 + { dchar d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4806 + wchar w;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4807 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4808 + i--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4809 + w = aa[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4810 + if (w & 0x80)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4811 + { char c = cast(char)w;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4812 + uint j;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4813 + uint m = 0x3F;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4814 + d = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4815 + while ((c & 0xC0) != 0xC0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4816 + { if (i == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4817 + onUnicodeError("Invalid UTF-8 sequence", 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4818 + i--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4819 + d \|= (c & 0x3F) << j;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4820 + j += 6;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4821 + m >>= 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4822 + c = aa[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4823 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4824 + d \|= (c & m) << j;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4825 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4826 + if (d <= 0xFFFF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4827 + w = cast(wchar) d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4828 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4829 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4830 + w = cast(wchar) ((((d - 0x10000) >> 10) & 0x3FF) + 0xD800);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4831 + result = dg(cast(void *)&w);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4832 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4833 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4834 + w = cast(wchar) (((d - 0x10000) & 0x3FF) + 0xDC00);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4835 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4836 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4837 + result = dg(cast(void *)&w);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4838 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4839 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4840 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4841 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4842 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4843 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4844 +unittest
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4845 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4846 + debug(apply) printf("_aApplyRcw1.unittest\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4847 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4848 + char[] s = "hello"c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4849 + int i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4850 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4851 + foreach_reverse(wchar d; s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4852 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4853 + switch (i)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4854 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4855 + case 0: assert(d == 'o'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4856 + case 1: assert(d == 'l'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4857 + case 2: assert(d == 'l'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4858 + case 3: assert(d == 'e'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4859 + case 4: assert(d == 'h'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4860 + default: assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4861 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4862 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4863 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4864 + assert(i == 5);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4865 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4866 + s = "a\u1234\U00100456b";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4867 + i = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4868 + foreach_reverse(wchar d; s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4869 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4870 + //printf("i = %d, d = %x\n", i, d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4871 + switch (i)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4872 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4873 + case 0: assert(d == 'b'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4874 + case 1: assert(d == 0xDBC1); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4875 + case 2: assert(d == 0xDC56); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4876 + case 3: assert(d == 0x1234); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4877 + case 4: assert(d == 'a'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4878 + default: assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4879 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4880 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4881 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4882 + assert(i == 5);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4883 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4884 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4885 +/*****************************/
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4886 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4887 +extern (C) int _aApplyRwc1(in wchar[] aa, dg_t dg)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4888 +{ int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4889 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4890 + debug(apply) printf("_aApplyRwc1(), len = %d\n", aa.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4891 + for (size_t i = aa.length; i != 0; )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4892 + { dchar d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4893 + char c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4894 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4895 + i--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4896 + d = aa[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4897 + if (d >= 0xDC00 && d <= 0xDFFF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4898 + { if (i == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4899 + onUnicodeError("Invalid UTF-16 sequence", 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4900 + i--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4901 + d = ((aa[i] - 0xD7C0) << 10) + (d - 0xDC00);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4902 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4903 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4904 + if (d & ~0x7F)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4905 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4906 + char[4] buf;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4907 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4908 + auto b = toUTF8(buf, d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4909 + foreach (char c2; b)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4910 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4911 + result = dg(cast(void *)&c2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4912 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4913 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4914 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4915 + continue;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4916 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4917 + c = cast(char)d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4918 + result = dg(cast(void *)&c);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4919 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4920 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4921 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4922 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4923 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4924 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4925 +unittest
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4926 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4927 + debug(apply) printf("_aApplyRwc1.unittest\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4928 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4929 + wchar[] s = "hello"w;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4930 + int i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4931 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4932 + foreach_reverse(char d; s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4933 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4934 + switch (i)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4935 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4936 + case 0: assert(d == 'o'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4937 + case 1: assert(d == 'l'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4938 + case 2: assert(d == 'l'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4939 + case 3: assert(d == 'e'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4940 + case 4: assert(d == 'h'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4941 + default: assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4942 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4943 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4944 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4945 + assert(i == 5);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4946 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4947 + s = "a\u1234\U00100456b";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4948 + i = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4949 + foreach_reverse(char d; s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4950 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4951 + //printf("i = %d, d = %x\n", i, d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4952 + switch (i)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4953 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4954 + case 0: assert(d == 'b'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4955 + case 1: assert(d == 0xF4); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4956 + case 2: assert(d == 0x80); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4957 + case 3: assert(d == 0x91); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4958 + case 4: assert(d == 0x96); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4959 + case 5: assert(d == 0xE1); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4960 + case 6: assert(d == 0x88); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4961 + case 7: assert(d == 0xB4); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4962 + case 8: assert(d == 'a'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4963 + default: assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4964 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4965 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4966 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4967 + assert(i == 9);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4968 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4969 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4970 +/*****************************/
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4971 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4972 +extern (C) int _aApplyRdc1(in dchar[] aa, dg_t dg)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4973 +{ int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4974 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4975 + debug(apply) printf("_aApplyRdc1(), len = %d\n", aa.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4976 + for (size_t i = aa.length; i != 0;)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4977 + { dchar d = aa[--i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4978 + char c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4979 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4980 + if (d & ~0x7F)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4981 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4982 + char[4] buf;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4983 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4984 + auto b = toUTF8(buf, d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4985 + foreach (char c2; b)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4986 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4987 + result = dg(cast(void *)&c2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4988 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4989 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4990 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4991 + continue;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4992 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4993 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4994 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4995 + c = cast(char)d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4996 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4997 + result = dg(cast(void *)&c);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4998 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4999 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5000 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5001 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5002 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5003 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5004 +unittest
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5005 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5006 + debug(apply) printf("_aApplyRdc1.unittest\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5007 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5008 + dchar[] s = "hello"d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5009 + int i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5010 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5011 + foreach_reverse(char d; s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5012 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5013 + switch (i)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5014 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5015 + case 0: assert(d == 'o'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5016 + case 1: assert(d == 'l'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5017 + case 2: assert(d == 'l'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5018 + case 3: assert(d == 'e'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5019 + case 4: assert(d == 'h'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5020 + default: assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5021 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5022 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5023 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5024 + assert(i == 5);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5025 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5026 + s = "a\u1234\U00100456b";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5027 + i = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5028 + foreach_reverse(char d; s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5029 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5030 + //printf("i = %d, d = %x\n", i, d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5031 + switch (i)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5032 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5033 + case 0: assert(d == 'b'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5034 + case 1: assert(d == 0xF4); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5035 + case 2: assert(d == 0x80); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5036 + case 3: assert(d == 0x91); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5037 + case 4: assert(d == 0x96); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5038 + case 5: assert(d == 0xE1); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5039 + case 6: assert(d == 0x88); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5040 + case 7: assert(d == 0xB4); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5041 + case 8: assert(d == 'a'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5042 + default: assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5043 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5044 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5045 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5046 + assert(i == 9);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5047 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5048 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5049 +/*****************************/
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5050 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5051 +extern (C) int _aApplyRdw1(in dchar[] aa, dg_t dg)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5052 +{ int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5053 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5054 + debug(apply) printf("_aApplyRdw1(), len = %d\n", aa.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5055 + for (size_t i = aa.length; i != 0; )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5056 + { dchar d = aa[--i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5057 + wchar w;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5058 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5059 + if (d <= 0xFFFF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5060 + w = cast(wchar) d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5061 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5062 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5063 + w = cast(wchar) ((((d - 0x10000) >> 10) & 0x3FF) + 0xD800);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5064 + result = dg(cast(void *)&w);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5065 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5066 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5067 + w = cast(wchar) (((d - 0x10000) & 0x3FF) + 0xDC00);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5068 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5069 + result = dg(cast(void *)&w);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5070 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5071 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5072 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5073 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5074 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5075 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5076 +unittest
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5077 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5078 + debug(apply) printf("_aApplyRdw1.unittest\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5079 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5080 + dchar[] s = "hello"d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5081 + int i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5082 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5083 + foreach_reverse(wchar d; s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5084 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5085 + switch (i)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5086 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5087 + case 0: assert(d == 'o'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5088 + case 1: assert(d == 'l'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5089 + case 2: assert(d == 'l'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5090 + case 3: assert(d == 'e'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5091 + case 4: assert(d == 'h'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5092 + default: assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5093 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5094 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5095 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5096 + assert(i == 5);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5097 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5098 + s = "a\u1234\U00100456b";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5099 + i = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5100 + foreach_reverse(wchar d; s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5101 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5102 + //printf("i = %d, d = %x\n", i, d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5103 + switch (i)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5104 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5105 + case 0: assert(d == 'b'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5106 + case 1: assert(d == 0xDBC1); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5107 + case 2: assert(d == 0xDC56); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5108 + case 3: assert(d == 0x1234); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5109 + case 4: assert(d == 'a'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5110 + default: assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5111 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5112 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5113 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5114 + assert(i == 5);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5115 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5116 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5117 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5118 +/****************************************************************************/
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5119 +/* 2 argument versions */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5120 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5121 +// dg is D, but _aApplyRcd2() is C
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5122 +extern (D) typedef int delegate(void , void ) dg2_t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5123 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5124 +extern (C) int _aApplyRcd2(in char[] aa, dg2_t dg)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5125 +{ int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5126 + size_t i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5127 + size_t len = aa.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5128 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5129 + debug(apply) printf("_aApplyRcd2(), len = %d\n", len);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5130 + for (i = len; i != 0; )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5131 + { dchar d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5132 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5133 + i--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5134 + d = aa[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5135 + if (d & 0x80)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5136 + { char c = cast(char)d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5137 + uint j;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5138 + uint m = 0x3F;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5139 + d = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5140 + while ((c & 0xC0) != 0xC0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5141 + { if (i == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5142 + onUnicodeError("Invalid UTF-8 sequence", 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5143 + i--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5144 + d \|= (c & 0x3F) << j;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5145 + j += 6;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5146 + m >>= 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5147 + c = aa[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5148 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5149 + d \|= (c & m) << j;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5150 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5151 + result = dg(&i, cast(void *)&d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5152 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5153 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5154 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5155 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5156 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5157 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5158 +unittest
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5159 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5160 + debug(apply) printf("_aApplyRcd2.unittest\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5161 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5162 + char[] s = "hello"c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5163 + int i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5164 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5165 + foreach_reverse(k, dchar d; s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5166 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5167 + assert(k == 4 - i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5168 + switch (i)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5169 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5170 + case 0: assert(d == 'o'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5171 + case 1: assert(d == 'l'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5172 + case 2: assert(d == 'l'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5173 + case 3: assert(d == 'e'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5174 + case 4: assert(d == 'h'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5175 + default: assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5176 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5177 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5178 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5179 + assert(i == 5);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5180 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5181 + s = "a\u1234\U00100456b";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5182 + i = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5183 + foreach_reverse(k, dchar d; s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5184 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5185 + //printf("i = %d, k = %d, d = %x\n", i, k, d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5186 + switch (i)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5187 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5188 + case 0: assert(d == 'b'); assert(k == 8); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5189 + case 1: assert(d == '\U00100456'); assert(k == 4); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5190 + case 2: assert(d == '\u1234'); assert(k == 1); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5191 + case 3: assert(d == 'a'); assert(k == 0); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5192 + default: assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5193 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5194 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5195 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5196 + assert(i == 4);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5197 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5198 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5199 +/*****************************/
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5200 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5201 +extern (C) int _aApplyRwd2(in wchar[] aa, dg2_t dg)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5202 +{ int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5203 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5204 + debug(apply) printf("_aApplyRwd2(), len = %d\n", aa.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5205 + for (size_t i = aa.length; i != 0; )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5206 + { dchar d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5207 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5208 + i--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5209 + d = aa[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5210 + if (d >= 0xDC00 && d <= 0xDFFF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5211 + { if (i == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5212 + onUnicodeError("Invalid UTF-16 sequence", 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5213 + i--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5214 + d = ((aa[i] - 0xD7C0) << 10) + (d - 0xDC00);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5215 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5216 + result = dg(&i, cast(void *)&d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5217 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5218 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5219 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5220 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5221 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5222 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5223 +unittest
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5224 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5225 + debug(apply) printf("_aApplyRwd2.unittest\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5226 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5227 + wchar[] s = "hello"w;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5228 + int i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5229 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5230 + foreach_reverse(k, dchar d; s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5231 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5232 + //printf("i = %d, k = %d, d = %x\n", i, k, d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5233 + assert(k == 4 - i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5234 + switch (i)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5235 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5236 + case 0: assert(d == 'o'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5237 + case 1: assert(d == 'l'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5238 + case 2: assert(d == 'l'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5239 + case 3: assert(d == 'e'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5240 + case 4: assert(d == 'h'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5241 + default: assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5242 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5243 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5244 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5245 + assert(i == 5);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5246 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5247 + s = "a\u1234\U00100456b";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5248 + i = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5249 + foreach_reverse(k, dchar d; s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5250 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5251 + //printf("i = %d, k = %d, d = %x\n", i, k, d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5252 + switch (i)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5253 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5254 + case 0: assert(k == 4); assert(d == 'b'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5255 + case 1: assert(k == 2); assert(d == '\U00100456'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5256 + case 2: assert(k == 1); assert(d == '\u1234'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5257 + case 3: assert(k == 0); assert(d == 'a'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5258 + default: assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5259 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5260 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5261 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5262 + assert(i == 4);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5263 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5264 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5265 +/*****************************/
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5266 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5267 +extern (C) int _aApplyRcw2(in char[] aa, dg2_t dg)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5268 +{ int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5269 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5270 + debug(apply) printf("_aApplyRcw2(), len = %d\n", aa.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5271 + for (size_t i = aa.length; i != 0; )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5272 + { dchar d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5273 + wchar w;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5274 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5275 + i--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5276 + w = aa[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5277 + if (w & 0x80)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5278 + { char c = cast(char)w;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5279 + uint j;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5280 + uint m = 0x3F;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5281 + d = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5282 + while ((c & 0xC0) != 0xC0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5283 + { if (i == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5284 + onUnicodeError("Invalid UTF-8 sequence", 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5285 + i--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5286 + d \|= (c & 0x3F) << j;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5287 + j += 6;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5288 + m >>= 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5289 + c = aa[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5290 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5291 + d \|= (c & m) << j;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5292 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5293 + if (d <= 0xFFFF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5294 + w = cast(wchar) d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5295 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5296 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5297 + w = cast(wchar) ((((d - 0x10000) >> 10) & 0x3FF) + 0xD800);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5298 + result = dg(&i, cast(void *)&w);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5299 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5300 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5301 + w = cast(wchar) (((d - 0x10000) & 0x3FF) + 0xDC00);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5302 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5303 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5304 + result = dg(&i, cast(void *)&w);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5305 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5306 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5307 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5308 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5309 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5310 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5311 +unittest
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5312 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5313 + debug(apply) printf("_aApplyRcw2.unittest\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5314 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5315 + char[] s = "hello"c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5316 + int i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5317 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5318 + foreach_reverse(k, wchar d; s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5319 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5320 + //printf("i = %d, k = %d, d = %x\n", i, k, d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5321 + assert(k == 4 - i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5322 + switch (i)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5323 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5324 + case 0: assert(d == 'o'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5325 + case 1: assert(d == 'l'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5326 + case 2: assert(d == 'l'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5327 + case 3: assert(d == 'e'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5328 + case 4: assert(d == 'h'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5329 + default: assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5330 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5331 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5332 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5333 + assert(i == 5);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5334 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5335 + s = "a\u1234\U00100456b";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5336 + i = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5337 + foreach_reverse(k, wchar d; s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5338 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5339 + //printf("i = %d, k = %d, d = %x\n", i, k, d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5340 + switch (i)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5341 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5342 + case 0: assert(k == 8); assert(d == 'b'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5343 + case 1: assert(k == 4); assert(d == 0xDBC1); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5344 + case 2: assert(k == 4); assert(d == 0xDC56); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5345 + case 3: assert(k == 1); assert(d == 0x1234); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5346 + case 4: assert(k == 0); assert(d == 'a'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5347 + default: assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5348 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5349 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5350 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5351 + assert(i == 5);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5352 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5353 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5354 +/*****************************/
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5355 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5356 +extern (C) int _aApplyRwc2(in wchar[] aa, dg2_t dg)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5357 +{ int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5358 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5359 + debug(apply) printf("_aApplyRwc2(), len = %d\n", aa.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5360 + for (size_t i = aa.length; i != 0; )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5361 + { dchar d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5362 + char c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5363 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5364 + i--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5365 + d = aa[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5366 + if (d >= 0xDC00 && d <= 0xDFFF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5367 + { if (i == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5368 + onUnicodeError("Invalid UTF-16 sequence", 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5369 + i--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5370 + d = ((aa[i] - 0xD7C0) << 10) + (d - 0xDC00);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5371 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5372 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5373 + if (d & ~0x7F)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5374 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5375 + char[4] buf;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5376 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5377 + auto b = toUTF8(buf, d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5378 + foreach (char c2; b)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5379 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5380 + result = dg(&i, cast(void *)&c2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5381 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5382 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5383 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5384 + continue;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5385 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5386 + c = cast(char)d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5387 + result = dg(&i, cast(void *)&c);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5388 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5389 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5390 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5391 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5392 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5393 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5394 +unittest
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5395 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5396 + debug(apply) printf("_aApplyRwc2.unittest\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5397 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5398 + wchar[] s = "hello"w;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5399 + int i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5400 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5401 + foreach_reverse(k, char d; s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5402 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5403 + //printf("i = %d, k = %d, d = %x\n", i, k, d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5404 + assert(k == 4 - i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5405 + switch (i)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5406 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5407 + case 0: assert(d == 'o'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5408 + case 1: assert(d == 'l'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5409 + case 2: assert(d == 'l'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5410 + case 3: assert(d == 'e'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5411 + case 4: assert(d == 'h'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5412 + default: assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5413 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5414 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5415 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5416 + assert(i == 5);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5417 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5418 + s = "a\u1234\U00100456b";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5419 + i = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5420 + foreach_reverse(k, char d; s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5421 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5422 + //printf("i = %d, k = %d, d = %x\n", i, k, d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5423 + switch (i)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5424 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5425 + case 0: assert(k == 4); assert(d == 'b'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5426 + case 1: assert(k == 2); assert(d == 0xF4); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5427 + case 2: assert(k == 2); assert(d == 0x80); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5428 + case 3: assert(k == 2); assert(d == 0x91); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5429 + case 4: assert(k == 2); assert(d == 0x96); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5430 + case 5: assert(k == 1); assert(d == 0xE1); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5431 + case 6: assert(k == 1); assert(d == 0x88); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5432 + case 7: assert(k == 1); assert(d == 0xB4); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5433 + case 8: assert(k == 0); assert(d == 'a'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5434 + default: assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5435 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5436 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5437 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5438 + assert(i == 9);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5439 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5440 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5441 +/*****************************/
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5442 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5443 +extern (C) int _aApplyRdc2(in dchar[] aa, dg2_t dg)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5444 +{ int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5445 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5446 + debug(apply) printf("_aApplyRdc2(), len = %d\n", aa.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5447 + for (size_t i = aa.length; i != 0; )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5448 + { dchar d = aa[--i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5449 + char c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5450 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5451 + if (d & ~0x7F)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5452 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5453 + char[4] buf;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5454 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5455 + auto b = toUTF8(buf, d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5456 + foreach (char c2; b)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5457 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5458 + result = dg(&i, cast(void *)&c2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5459 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5460 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5461 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5462 + continue;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5463 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5464 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5465 + { c = cast(char)d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5466 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5467 + result = dg(&i, cast(void *)&c);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5468 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5469 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5470 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5471 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5472 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5473 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5474 +unittest
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5475 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5476 + debug(apply) printf("_aApplyRdc2.unittest\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5477 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5478 + dchar[] s = "hello"d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5479 + int i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5480 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5481 + foreach_reverse(k, char d; s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5482 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5483 + //printf("i = %d, k = %d, d = %x\n", i, k, d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5484 + assert(k == 4 - i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5485 + switch (i)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5486 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5487 + case 0: assert(d == 'o'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5488 + case 1: assert(d == 'l'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5489 + case 2: assert(d == 'l'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5490 + case 3: assert(d == 'e'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5491 + case 4: assert(d == 'h'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5492 + default: assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5493 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5494 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5495 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5496 + assert(i == 5);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5497 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5498 + s = "a\u1234\U00100456b";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5499 + i = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5500 + foreach_reverse(k, char d; s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5501 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5502 + //printf("i = %d, k = %d, d = %x\n", i, k, d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5503 + switch (i)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5504 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5505 + case 0: assert(k == 3); assert(d == 'b'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5506 + case 1: assert(k == 2); assert(d == 0xF4); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5507 + case 2: assert(k == 2); assert(d == 0x80); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5508 + case 3: assert(k == 2); assert(d == 0x91); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5509 + case 4: assert(k == 2); assert(d == 0x96); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5510 + case 5: assert(k == 1); assert(d == 0xE1); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5511 + case 6: assert(k == 1); assert(d == 0x88); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5512 + case 7: assert(k == 1); assert(d == 0xB4); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5513 + case 8: assert(k == 0); assert(d == 'a'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5514 + default: assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5515 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5516 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5517 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5518 + assert(i == 9);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5519 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5520 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5521 +/*****************************/
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5522 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5523 +extern (C) int _aApplyRdw2(in dchar[] aa, dg2_t dg)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5524 +{ int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5525 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5526 + debug(apply) printf("_aApplyRdw2(), len = %d\n", aa.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5527 + for (size_t i = aa.length; i != 0; )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5528 + { dchar d = aa[--i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5529 + wchar w;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5530 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5531 + if (d <= 0xFFFF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5532 + w = cast(wchar) d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5533 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5534 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5535 + w = cast(wchar) ((((d - 0x10000) >> 10) & 0x3FF) + 0xD800);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5536 + result = dg(&i, cast(void *)&w);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5537 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5538 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5539 + w = cast(wchar) (((d - 0x10000) & 0x3FF) + 0xDC00);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5540 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5541 + result = dg(&i, cast(void *)&w);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5542 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5543 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5544 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5545 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5546 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5547 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5548 +unittest
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5549 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5550 + debug(apply) printf("_aApplyRdw2.unittest\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5551 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5552 + dchar[] s = "hello"d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5553 + int i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5554 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5555 + foreach_reverse(k, wchar d; s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5556 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5557 + //printf("i = %d, k = %d, d = %x\n", i, k, d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5558 + assert(k == 4 - i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5559 + switch (i)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5560 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5561 + case 0: assert(d == 'o'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5562 + case 1: assert(d == 'l'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5563 + case 2: assert(d == 'l'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5564 + case 3: assert(d == 'e'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5565 + case 4: assert(d == 'h'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5566 + default: assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5567 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5568 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5569 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5570 + assert(i == 5);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5571 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5572 + s = "a\u1234\U00100456b";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5573 + i = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5574 + foreach_reverse(k, wchar d; s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5575 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5576 + //printf("i = %d, k = %d, d = %x\n", i, k, d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5577 + switch (i)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5578 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5579 + case 0: assert(k == 3); assert(d == 'b'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5580 + case 1: assert(k == 2); assert(d == 0xDBC1); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5581 + case 2: assert(k == 2); assert(d == 0xDC56); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5582 + case 3: assert(k == 1); assert(d == 0x1234); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5583 + case 4: assert(k == 0); assert(d == 'a'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5584 + default: assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5585 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5586 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5587 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5588 + assert(i == 5);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5589 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5590 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5591 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5592 Index: src/compiler/ldc/memory.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5593 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5594 --- src/compiler/ldc/memory.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5595 +++ src/compiler/ldc/memory.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5596 @@ -0,0 +1,323 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5597 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5598 + * This module exposes functionality for inspecting and manipulating memory.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5599 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5600 + * Copyright: Copyright (C) 2005-2006 Digital Mars, www.digitalmars.com.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5601 + * All rights reserved.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5602 + * License:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5603 + * This software is provided 'as-is', without any express or implied
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5604 + * warranty. In no event will the authors be held liable for any damages
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5605 + * arising from the use of this software.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5606 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5607 + * Permission is granted to anyone to use this software for any purpose,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5608 + * including commercial applications, and to alter it and redistribute it
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5609 + * freely, in both source and binary form, subject to the following
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5610 + * restrictions:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5611 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5612 + * o The origin of this software must not be misrepresented; you must not
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5613 + * claim that you wrote the original software. If you use this software
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5614 + * in a product, an acknowledgment in the product documentation would be
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5615 + * appreciated but is not required.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5616 + * o Altered source versions must be plainly marked as such, and must not
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5617 + * be misrepresented as being the original software.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5618 + * o This notice may not be removed or altered from any source
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5619 + * distribution.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5620 + * Authors: Walter Bright, Sean Kelly
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5621 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5622 +module memory;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5623 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5624 +version = GC_Use_Dynamic_Ranges;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5625 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5626 +// does Posix suffice?
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5627 +version(Posix)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5628 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5629 + version = GC_Use_Data_Proc_Maps;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5630 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5631 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5632 +version(GC_Use_Data_Proc_Maps)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5633 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5634 + version(Posix) {} else {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5635 + static assert(false, "Proc Maps only supported on Posix systems");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5636 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5637 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5638 + version( D_Version2 )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5639 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5640 + private import core.sys.posix.unistd;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5641 + private import core.sys.posix.fcntl;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5642 + private import core.stdc.string;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5643 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5644 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5645 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5646 + private import tango.stdc.posix.unistd;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5647 + private import tango.stdc.posix.fcntl;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5648 + private import tango.stdc.string;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5649 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5650 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5651 + version = GC_Use_Dynamic_Ranges;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5652 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5653 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5654 +private
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5655 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5656 + version( linux )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5657 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5658 + //version = SimpleLibcStackEnd;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5659 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5660 + version( SimpleLibcStackEnd )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5661 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5662 + extern (C) extern void* __libc_stack_end;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5663 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5664 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5665 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5666 + version( D_Version2 )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5667 + import core.sys.posix.dlfcn;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5668 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5669 + import tango.stdc.posix.dlfcn;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5670 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5671 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5672 + version(LDC)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5673 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5674 + pragma(intrinsic, "llvm.frameaddress")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5675 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5676 + void* llvm_frameaddress(uint level=0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5677 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5678 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5679 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5680 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5681 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5682 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5683 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5684 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5685 +extern (C) void* rt_stackBottom()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5686 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5687 + version( Win32 )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5688 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5689 + void* bottom;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5690 + asm
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5691 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5692 + mov EAX, FS:4;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5693 + mov bottom, EAX;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5694 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5695 + return bottom;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5696 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5697 + else version( linux )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5698 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5699 + version( SimpleLibcStackEnd )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5700 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5701 + return __libc_stack_end;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5702 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5703 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5704 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5705 + // See discussion: http://autopackage.org/forums/viewtopic.php?t=22
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5706 + static void** libc_stack_end;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5707 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5708 + if( libc_stack_end == libc_stack_end.init )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5709 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5710 + void* handle = dlopen( null, RTLD_NOW );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5711 + libc_stack_end = cast(void**) dlsym( handle, "__libc_stack_end" );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5712 + dlclose( handle );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5713 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5714 + return *libc_stack_end;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5715 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5716 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5717 + else version( darwin )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5718 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5719 + // darwin has a fixed stack bottom
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5720 + return cast(void*) 0xc0000000;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5721 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5722 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5723 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5724 + static assert( false, "Operating system not supported." );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5725 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5726 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5727 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5728 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5729 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5730 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5731 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5732 +extern (C) void* rt_stackTop()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5733 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5734 + version( D_InlineAsm_X86 )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5735 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5736 + asm
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5737 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5738 + naked;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5739 + mov EAX, ESP;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5740 + ret;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5741 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5742 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5743 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5744 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5745 + return llvm_frameaddress();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5746 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5747 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5748 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5749 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5750 +private
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5751 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5752 + version( Win32 )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5753 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5754 + extern (C)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5755 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5756 + extern int _data_start__;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5757 + extern int _bss_end__;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5758 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5759 + alias _data_start__ Data_Start;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5760 + alias _bss_end__ Data_End;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5761 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5762 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5763 + else version( linux )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5764 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5765 + extern (C)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5766 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5767 + extern int _data;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5768 + extern int __data_start;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5769 + extern int _end;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5770 + extern int _data_start__;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5771 + extern int _data_end__;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5772 + extern int _bss_start__;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5773 + extern int _bss_end__;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5774 + extern int __fini_array_end;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5775 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5776 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5777 + alias __data_start Data_Start;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5778 + alias _end Data_End;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5779 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5780 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5781 + version( GC_Use_Dynamic_Ranges )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5782 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5783 + version( D_Version2 )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5784 + private import core.stdc.stdlib;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5785 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5786 + private import tango.stdc.stdlib;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5787 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5788 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5789 + extern (C) void gc_addRange( void* p, size_t sz );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5790 + extern (C) void gc_removeRange( void *p );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5791 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5792 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5793 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5794 +void initStaticDataGC()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5795 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5796 + enum S = (void*).sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5797 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5798 + // Can't assume the input addresses are word-aligned
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5799 + static void* adjust_up( void* p )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5800 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5801 + return p + ((S - (cast(size_t)p & (S-1))) & (S-1)); // cast ok even if 64-bit
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5802 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5803 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5804 + static void * adjust_down( void* p )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5805 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5806 + return p - (cast(size_t) p & (S-1));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5807 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5808 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5809 + version( Win32 )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5810 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5811 + void* start = adjust_up( &Data_Start );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5812 + void* end = adjust_down( &Data_End );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5813 + gc_addRange(start, cast(size_t)end - cast(size_t)start);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5814 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5815 + else version( GC_Use_Data_Proc_Maps )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5816 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5817 + // TODO: Exclude zero-mapped regions
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5818 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5819 + int fd = open("/proc/self/maps", O_RDONLY);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5820 + int count; // %% need to configure ret for read..
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5821 + char buf[2024];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5822 + char* p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5823 + char* e;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5824 + char* s;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5825 + void* start;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5826 + void* end;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5827 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5828 + void* dataStart = adjust_up( &Data_Start );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5829 + void* dataEnd = adjust_down( &Data_End );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5830 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5831 + gc_addRange(dataStart, cast(size_t)dataEnd - cast(size_t)dataStart);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5832 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5833 + p = buf.ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5834 + if (fd != -1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5835 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5836 + while ( (count = read(fd, p, buf.sizeof - (p - buf.ptr))) > 0 )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5837 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5838 + e = p + count;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5839 + p = buf.ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5840 + while (true)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5841 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5842 + s = p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5843 + while (p < e && *p != '\n')
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5844 + p++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5845 + if (p < e)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5846 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5847 + // parse the entry in [s, p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5848 + static if( S == 4 )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5849 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5850 + enum Ofs
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5851 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5852 + Write_Prot = 19,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5853 + Start_Addr = 0,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5854 + End_Addr = 9,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5855 + Addr_Len = 8,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5856 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5857 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5858 + else static if( S == 8 )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5859 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5860 + enum Ofs
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5861 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5862 + Write_Prot = 35,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5863 + Start_Addr = 0,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5864 + End_Addr = 9,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5865 + Addr_Len = 17,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5866 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5867 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5868 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5869 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5870 + static assert( false );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5871 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5872 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5873 + // %% this is wrong for 64-bit:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5874 + // uint strtoul(char ,char *,int);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5875 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5876 + if( s[Ofs.Write_Prot] == 'w' )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5877 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5878 + s[Ofs.Start_Addr + Ofs.Addr_Len] = '\0';
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5879 + s[Ofs.End_Addr + Ofs.Addr_Len] = '\0';
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5880 + start = cast(void*) strtoul(s + Ofs.Start_Addr, null, 16);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5881 + end = cast(void*) strtoul(s + Ofs.End_Addr, null, 16);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5882 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5883 + // 1. Exclude anything overlapping [dataStart, dataEnd)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5884 + // 2. Exclude stack
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5885 + if ( ( !dataEnd \|\|
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5886 + !( dataStart >= start && dataEnd <= end ) ) &&
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5887 + !( &buf[0] >= start && &buf[0] < end ) )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5888 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5889 + // we already have static data from this region. anything else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5890 + // is heap (%% check)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5891 + debug (ProcMaps) printf("Adding map range %p 0%p\n", start, end);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5892 + gc_addRange(start, cast(size_t)end - cast(size_t)start);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5893 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5894 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5895 + p++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5896 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5897 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5898 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5899 + count = p - s;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5900 + memmove(buf.ptr, s, count);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5901 + p = buf.ptr + count;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5902 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5903 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5904 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5905 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5906 + close(fd);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5907 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5908 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5909 + else version(linux)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5910 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5911 + void* start = adjust_up( &Data_Start );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5912 + void* end = adjust_down( &Data_End );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5913 + gc_addRange(start, cast(size_t)end - cast(size_t)start);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5914 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5915 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5916 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5917 + static assert( false, "Operating system not supported." );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5918 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5919 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5920 Index: src/compiler/ldc/dmain2.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5921 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5922 --- src/compiler/ldc/dmain2.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5923 +++ src/compiler/ldc/dmain2.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5924 @@ -0,0 +1,378 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5925 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5926 + * Placed into the Public Domain.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5927 + * written by Walter Bright
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5928 + * www.digitalmars.com
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5929 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5930 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5931 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5932 + * Modified by Sean Kelly for use with the D Runtime Project
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5933 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5934 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5935 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5936 + * Modified by Tomas Lindquist Olsen for use with the LLVM D Compiler
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5937 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5938 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5939 +module rt.dmain2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5940 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5941 +private
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5942 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5943 + import memory;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5944 + import util.console;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5945 + import core.stdc.stddef;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5946 + import core.stdc.stdlib;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5947 + import core.stdc.string;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5948 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5949 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5950 +version (Windows)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5951 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5952 + extern (Windows) alias int function() FARPROC;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5953 + extern (Windows) FARPROC GetProcAddress(void, in char);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5954 + extern (Windows) void* LoadLibraryA(in char*);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5955 + extern (Windows) int FreeLibrary(void*);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5956 + extern (Windows) void* LocalFree(void*);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5957 + extern (Windows) wchar_t* GetCommandLineW();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5958 + extern (Windows) wchar_t** CommandLineToArgvW(wchar_t, int);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5959 + extern (Windows) export int WideCharToMultiByte(uint, uint, wchar_t, int, char, int, char*, int);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5960 + pragma(lib, "shell32.lib"); // needed for CommandLineToArgvW
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5961 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5962 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5963 +extern (C) void _STI_monitor_staticctor();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5964 +extern (C) void _STD_monitor_staticdtor();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5965 +extern (C) void _STI_critical_init();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5966 +extern (C) void _STD_critical_term();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5967 +extern (C) void gc_init();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5968 +extern (C) void gc_term();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5969 +extern (C) void _minit();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5970 +extern (C) void _moduleCtor();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5971 +extern (C) void _moduleDtor();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5972 +extern (C) void thread_joinAll();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5973 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5974 +/***********************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5975 + * These are a temporary means of providing a GC hook for DLL use. They may be
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5976 + * replaced with some other similar functionality later.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5977 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5978 +extern (C)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5979 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5980 + void* gc_getProxy();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5981 + void gc_setProxy(void* p);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5982 + void gc_clrProxy();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5983 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5984 + alias void* function() gcGetFn;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5985 + alias void function(void*) gcSetFn;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5986 + alias void function() gcClrFn;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5987 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5988 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5989 +extern (C) void* rt_loadLibrary(in char[] name)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5990 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5991 + version (Windows)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5992 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5993 + char[260] temp = void;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5994 + temp[0 .. name.length] = name[];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5995 + temp[name.length] = cast(char) 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5996 + void* ptr = LoadLibraryA(temp.ptr);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5997 + if (ptr is null)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5998 + return ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5999 + gcSetFn gcSet = cast(gcSetFn) GetProcAddress(ptr, "gc_setProxy");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6000 + if (gcSet !is null)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6001 + gcSet(gc_getProxy());
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6002 + return ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6003 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6004 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6005 + else version (linux)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6006 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6007 + throw new Exception("rt_loadLibrary not yet implemented on linux.");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6008 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6009 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6010 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6011 +extern (C) bool rt_unloadLibrary(void* ptr)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6012 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6013 + version (Windows)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6014 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6015 + gcClrFn gcClr = cast(gcClrFn) GetProcAddress(ptr, "gc_clrProxy");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6016 + if (gcClr !is null)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6017 + gcClr();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6018 + return FreeLibrary(ptr) != 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6019 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6020 + else version (linux)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6021 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6022 + throw new Exception("rt_unloadLibrary not yet implemented on linux.");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6023 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6024 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6025 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6026 +/***********************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6027 + * These functions must be defined for any D program linked
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6028 + * against this library.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6029 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6030 +extern (C) void onAssertError(string file, size_t line);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6031 +extern (C) void onAssertErrorMsg(string file, size_t line, string msg);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6032 +extern (C) void onRangeError(string file, size_t line);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6033 +extern (C) void onHiddenFuncError(Object o);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6034 +extern (C) void onSwitchError(string file, size_t line);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6035 +extern (C) bool runModuleUnitTests();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6036 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6037 +// this function is called from the utf module
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6038 +//extern (C) void onUnicodeError(string msg, size_t idx);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6039 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6040 +/***********************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6041 + * These are internal callbacks for various language errors.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6042 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6043 +extern (C) void _d_assert(string file, uint line)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6044 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6045 + onAssertError(file, line);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6046 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6047 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6048 +extern (C) static void _d_assert_msg(string msg, string file, uint line)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6049 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6050 + onAssertErrorMsg(file, line, msg);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6051 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6052 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6053 +extern (C) void _d_array_bounds(string file, uint line)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6054 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6055 + onRangeError(file, line);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6056 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6057 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6058 +extern (C) void _d_switch_error(string file, uint line)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6059 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6060 + onSwitchError(file, line);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6061 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6062 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6063 +extern (C) void _d_hidden_func()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6064 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6065 + Object o;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6066 + asm
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6067 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6068 + mov o, EAX;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6069 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6070 + onHiddenFuncError(o);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6071 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6072 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6073 +bool _d_isHalting = false;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6074 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6075 +extern (C) bool rt_isHalting()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6076 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6077 + return _d_isHalting;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6078 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6079 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6080 +extern (C) bool rt_trapExceptions = true;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6081 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6082 +void _d_criticalInit()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6083 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6084 + version (linux)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6085 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6086 + _STI_monitor_staticctor();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6087 + _STI_critical_init();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6088 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6089 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6090 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6091 +alias void delegate(Throwable) ExceptionHandler;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6092 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6093 +extern (C) bool rt_init(ExceptionHandler dg = null)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6094 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6095 + _d_criticalInit();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6096 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6097 + try
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6098 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6099 + gc_init();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6100 + initStaticDataGC();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6101 + version (Windows)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6102 + _minit();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6103 + _moduleCtor();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6104 + return true;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6105 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6106 + catch (Throwable e)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6107 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6108 + if (dg)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6109 + dg(e);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6110 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6111 + catch
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6112 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6113 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6114 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6115 + _d_criticalTerm();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6116 + return false;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6117 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6118 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6119 +void _d_criticalTerm()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6120 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6121 + version (linux)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6122 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6123 + _STD_critical_term();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6124 + _STD_monitor_staticdtor();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6125 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6126 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6127 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6128 +extern (C) bool rt_term(ExceptionHandler dg = null)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6129 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6130 + try
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6131 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6132 + thread_joinAll();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6133 + _d_isHalting = true;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6134 + _moduleDtor();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6135 + gc_term();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6136 + return true;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6137 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6138 + catch (Throwable e)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6139 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6140 + if (dg)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6141 + dg(e);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6142 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6143 + catch
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6144 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6145 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6146 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6147 + finally
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6148 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6149 + _d_criticalTerm();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6150 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6151 + return false;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6152 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6153 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6154 +/***********************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6155 + * The D main() function supplied by the user's program
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6156 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6157 +int main(char[][] args);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6158 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6159 +/***********************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6160 + * Substitutes for the C main() function.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6161 + * It's purpose is to wrap the call to the D main()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6162 + * function and catch any unhandled exceptions.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6163 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6164 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6165 +extern (C) int main(int argc, char **argv)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6166 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6167 + char[][] args;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6168 + int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6169 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6170 + version (linux)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6171 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6172 + _STI_monitor_staticctor();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6173 + _STI_critical_init();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6174 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6175 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6176 + version (Windows)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6177 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6178 + wchar_t* wcbuf = GetCommandLineW();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6179 + size_t wclen = wcslen(wcbuf);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6180 + int wargc = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6181 + wchar_t** wargs = CommandLineToArgvW(wcbuf, &wargc);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6182 + assert(wargc == argc);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6183 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6184 + char* cargp = null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6185 + size_t cargl = WideCharToMultiByte(65001, 0, wcbuf, wclen, null, 0, null, 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6186 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6187 + cargp = cast(char*) alloca(cargl);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6188 + args = ((cast(char[]) alloca(wargc (char[]).sizeof)))[0 .. wargc];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6189 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6190 + for (size_t i = 0, p = 0; i < wargc; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6191 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6192 + int wlen = wcslen(wargs[i]);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6193 + int clen = WideCharToMultiByte(65001, 0, &wargs[i][0], wlen, null, 0, null, 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6194 + args[i] = cargp[p .. p+clen];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6195 + p += clen; assert(p <= cargl);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6196 + WideCharToMultiByte(65001, 0, &wargs[i][0], wlen, &args[i][0], clen, null, 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6197 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6198 + LocalFree(wargs);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6199 + wargs = null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6200 + wargc = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6201 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6202 + else version (linux)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6203 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6204 + char[]* am = cast(char[]) malloc(argc (char[]).sizeof);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6205 + scope(exit) free(am);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6206 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6207 + for (size_t i = 0; i < argc; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6208 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6209 + auto len = strlen(argv[i]);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6210 + am[i] = argv[i][0 .. len];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6211 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6212 + args = am[0 .. argc];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6213 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6214 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6215 + bool trapExceptions = rt_trapExceptions;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6216 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6217 + void tryExec(scope void delegate() dg)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6218 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6219 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6220 + if (trapExceptions)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6221 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6222 + try
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6223 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6224 + dg();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6225 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6226 + catch (Throwable e)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6227 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6228 + while (e)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6229 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6230 + if (e.file)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6231 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6232 + // fprintf(stderr, "%.s(%u): %.s\n", e.file, e.line, e.msg);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6233 + console (e.classinfo.name)("@")(e.file)("(")(e.line)("): ")(e.msg)("\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6234 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6235 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6236 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6237 + // fprintf(stderr, "%.*s\n", e.toString());
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6238 + console (e.toString)("\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6239 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6240 + if (e.info)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6241 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6242 + console ("----------------\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6243 + foreach (t; e.info)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6244 + console (t)("\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6245 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6246 + if (e.next)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6247 + console ("\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6248 + e = e.next;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6249 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6250 + result = EXIT_FAILURE;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6251 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6252 + catch (Object o)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6253 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6254 + // fprintf(stderr, "%.*s\n", o.toString());
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6255 + console (o.toString)("\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6256 + result = EXIT_FAILURE;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6257 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6258 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6259 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6260 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6261 + dg();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6262 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6263 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6264 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6265 + // NOTE: The lifetime of a process is much like the lifetime of an object:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6266 + // it is initialized, then used, then destroyed. If initialization
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6267 + // fails, the successive two steps are never reached. However, if
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6268 + // initialization succeeds, then cleanup will occur even if the use
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6269 + // step fails in some way. Here, the use phase consists of running
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6270 + // the user's main function. If main terminates with an exception,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6271 + // the exception is handled and then cleanup begins. An exception
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6272 + // thrown during cleanup, however, will abort the cleanup process.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6273 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6274 + void runMain()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6275 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6276 + result = main(args);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6277 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6278 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6279 + void runAll()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6280 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6281 + gc_init();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6282 + initStaticDataGC();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6283 + version (Windows)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6284 + _minit();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6285 + _moduleCtor();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6286 + if (runModuleUnitTests())
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6287 + tryExec(&runMain);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6288 + thread_joinAll();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6289 + _d_isHalting = true;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6290 + _moduleDtor();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6291 + gc_term();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6292 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6293 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6294 + tryExec(&runAll);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6295 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6296 + version (linux)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6297 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6298 + _STD_critical_term();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6299 + _STD_monitor_staticdtor();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6300 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6301 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6302 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6303 Index: src/compiler/ldc/typeinfo/ti_void.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6304 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6305 --- src/compiler/ldc/typeinfo/ti_void.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6306 +++ src/compiler/ldc/typeinfo/ti_void.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6307 @@ -0,0 +1,43 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6308 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6309 +// void
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6310 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6311 +module rt.typeinfo.ti_void;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6312 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6313 +class TypeInfo_v : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6314 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6315 + override string toString() { return "void"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6316 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6317 + override hash_t getHash(in void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6318 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6319 + assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6320 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6321 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6322 + override equals_t equals(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6323 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6324 + return cast(byte )p1 == cast(byte )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6325 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6326 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6327 + override int compare(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6328 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6329 + return cast(byte )p1 - cast(byte )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6330 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6331 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6332 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6333 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6334 + return void.sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6335 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6336 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6337 + override void swap(void p1, void p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6338 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6339 + byte t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6340 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6341 + t = cast(byte )p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6342 + cast(byte )p1 = cast(byte )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6343 + cast(byte )p2 = t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6344 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6345 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6346 + override uint flags()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6347 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6348 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6349 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6350 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6351 Index: src/compiler/ldc/typeinfo/ti_wchar.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6352 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6353 --- src/compiler/ldc/typeinfo/ti_wchar.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6354 +++ src/compiler/ldc/typeinfo/ti_wchar.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6355 @@ -0,0 +1,43 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6356 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6357 +module rt.typeinfo.ti_wchar;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6358 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6359 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6360 +class TypeInfo_u : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6361 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6362 + override string toString() { return "wchar"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6363 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6364 + override hash_t getHash(in void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6365 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6366 + return cast(wchar )p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6367 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6368 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6369 + override equals_t equals(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6370 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6371 + return cast(wchar )p1 == cast(wchar )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6372 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6373 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6374 + override int compare(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6375 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6376 + return cast(wchar )p1 - cast(wchar )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6377 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6378 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6379 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6380 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6381 + return wchar.sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6382 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6383 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6384 + override void swap(void p1, void p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6385 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6386 + wchar t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6387 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6388 + t = cast(wchar )p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6389 + cast(wchar )p1 = cast(wchar )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6390 + cast(wchar )p2 = t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6391 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6392 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6393 + override void[] init()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6394 + { static wchar c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6395 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6396 + return (cast(wchar *)&c)[0 .. 1];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6397 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6398 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6399 Index: src/compiler/ldc/typeinfo/ti_ptr.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6400 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6401 --- src/compiler/ldc/typeinfo/ti_ptr.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6402 +++ src/compiler/ldc/typeinfo/ti_ptr.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6403 @@ -0,0 +1,46 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6404 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6405 +// pointer
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6406 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6407 +module rt.typeinfo.ti_ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6408 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6409 +class TypeInfo_P : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6410 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6411 + override hash_t getHash(in void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6412 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6413 + return cast(uint)cast(void *)p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6414 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6415 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6416 + override equals_t equals(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6417 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6418 + return cast(void )p1 == cast(void* *)p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6419 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6420 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6421 + override int compare(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6422 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6423 + auto c = cast(void )p1 - cast(void* *)p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6424 + if (c < 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6425 + return -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6426 + else if (c > 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6427 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6428 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6429 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6430 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6431 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6432 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6433 + return (void*).sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6434 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6435 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6436 + override void swap(void p1, void p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6437 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6438 + void* t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6439 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6440 + t = cast(void *)p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6441 + cast(void )p1 = cast(void* *)p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6442 + cast(void *)p2 = t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6443 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6444 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6445 + override uint flags()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6446 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6447 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6448 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6449 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6450 Index: src/compiler/ldc/typeinfo/ti_Afloat.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6451 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6452 --- src/compiler/ldc/typeinfo/ti_Afloat.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6453 +++ src/compiler/ldc/typeinfo/ti_Afloat.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6454 @@ -0,0 +1,114 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6455 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6456 + * Copyright (C) 2004-2005 by Digital Mars, www.digitalmars.com
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6457 + * Written by Walter Bright
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6458 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6459 + * This software is provided 'as-is', without any express or implied
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6460 + * warranty. In no event will the authors be held liable for any damages
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6461 + * arising from the use of this software.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6462 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6463 + * Permission is granted to anyone to use this software for any purpose,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6464 + * including commercial applications, and to alter it and redistribute it
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6465 + * freely, in both source and binary form, subject to the following
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6466 + * restrictions:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6467 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6468 + * o The origin of this software must not be misrepresented; you must not
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6469 + * claim that you wrote the original software. If you use this software
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6470 + * in a product, an acknowledgment in the product documentation would be
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6471 + * appreciated but is not required.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6472 + * o Altered source versions must be plainly marked as such, and must not
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6473 + * be misrepresented as being the original software.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6474 + * o This notice may not be removed or altered from any source
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6475 + * distribution.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6476 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6477 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6478 +module rt.typeinfo.ti_Afloat;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6479 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6480 +private import typeinfo.ti_float;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6481 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6482 +// float[]
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6483 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6484 +class TypeInfo_Af : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6485 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6486 + override string toString() { return "float[]"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6487 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6488 + override hash_t getHash(in void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6489 + { float[] s = cast(float[])p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6490 + size_t len = s.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6491 + auto str = s.ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6492 + hash_t hash = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6493 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6494 + while (len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6495 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6496 + hash *= 9;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6497 + hash += cast(uint )str;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6498 + str++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6499 + len--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6500 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6501 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6502 + return hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6503 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6504 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6505 + override equals_t equals(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6506 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6507 + float[] s1 = cast(float[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6508 + float[] s2 = cast(float[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6509 + size_t len = s1.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6510 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6511 + if (len != s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6512 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6513 + for (size_t u = 0; u < len; u++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6514 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6515 + if (!TypeInfo_f._equals(s1[u], s2[u]))
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6516 + return false;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6517 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6518 + return true;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6519 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6520 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6521 + override int compare(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6522 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6523 + float[] s1 = cast(float[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6524 + float[] s2 = cast(float[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6525 + size_t len = s1.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6526 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6527 + if (s2.length < len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6528 + len = s2.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6529 + for (size_t u = 0; u < len; u++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6530 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6531 + int c = TypeInfo_f._compare(s1[u], s2[u]);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6532 + if (c)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6533 + return c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6534 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6535 + if (s1.length < s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6536 + return -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6537 + else if (s1.length > s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6538 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6539 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6540 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6541 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6542 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6543 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6544 + return (float[]).sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6545 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6546 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6547 + override uint flags()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6548 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6549 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6550 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6551 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6552 + override TypeInfo next()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6553 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6554 + return typeid(float);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6555 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6556 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6557 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6558 +// ifloat[]
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6559 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6560 +class TypeInfo_Ao : TypeInfo_Af
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6561 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6562 + override string toString() { return "ifloat[]"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6563 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6564 + override TypeInfo next()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6565 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6566 + return typeid(ifloat);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6567 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6568 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6569 Index: src/compiler/ldc/typeinfo/ti_double.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6570 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6571 --- src/compiler/ldc/typeinfo/ti_double.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6572 +++ src/compiler/ldc/typeinfo/ti_double.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6573 @@ -0,0 +1,64 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6574 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6575 +// double
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6576 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6577 +module rt.typeinfo.ti_double;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6578 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6579 +class TypeInfo_d : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6580 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6581 + override string toString() { return "double"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6582 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6583 + override hash_t getHash(in void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6584 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6585 + return (cast(uint )p)[0] + (cast(uint )p)[1];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6586 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6587 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6588 + static equals_t _equals(double f1, double f2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6589 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6590 + return f1 == f2 \|\|
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6591 + (f1 !<>= f1 && f2 !<>= f2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6592 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6593 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6594 + static int _compare(double d1, double d2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6595 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6596 + if (d1 !<>= d2) // if either are NaN
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6597 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6598 + if (d1 !<>= d1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6599 + { if (d2 !<>= d2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6600 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6601 + return -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6602 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6603 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6604 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6605 + return (d1 == d2) ? 0 : ((d1 < d2) ? -1 : 1);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6606 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6607 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6608 + override equals_t equals(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6609 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6610 + return _equals(cast(double )p1, cast(double )p2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6611 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6612 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6613 + override int compare(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6614 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6615 + return _compare(cast(double )p1, cast(double )p2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6616 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6617 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6618 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6619 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6620 + return double.sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6621 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6622 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6623 + override void swap(void p1, void p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6624 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6625 + double t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6626 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6627 + t = cast(double )p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6628 + cast(double )p1 = cast(double )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6629 + cast(double )p2 = t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6630 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6631 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6632 + override void[] init()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6633 + { static double r;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6634 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6635 + return (cast(double *)&r)[0 .. 1];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6636 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6637 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6638 Index: src/compiler/ldc/typeinfo/ti_delegate.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6639 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6640 --- src/compiler/ldc/typeinfo/ti_delegate.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6641 +++ src/compiler/ldc/typeinfo/ti_delegate.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6642 @@ -0,0 +1,39 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6643 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6644 +// delegate
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6645 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6646 +module rt.typeinfo.ti_delegate;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6647 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6648 +alias void delegate(int) dg;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6649 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6650 +class TypeInfo_D : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6651 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6652 + override hash_t getHash(in void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6653 + { long l = cast(long )p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6654 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6655 + return cast(uint)(l + (l >> 32));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6656 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6657 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6658 + override equals_t equals(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6659 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6660 + return cast(dg )p1 == cast(dg )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6661 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6662 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6663 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6664 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6665 + return dg.sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6666 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6667 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6668 + override void swap(void p1, void p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6669 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6670 + dg t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6671 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6672 + t = cast(dg )p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6673 + cast(dg )p1 = cast(dg )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6674 + cast(dg )p2 = t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6675 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6676 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6677 + override uint flags()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6678 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6679 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6680 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6681 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6682 Index: src/compiler/ldc/typeinfo/ti_Adouble.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6683 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6684 --- src/compiler/ldc/typeinfo/ti_Adouble.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6685 +++ src/compiler/ldc/typeinfo/ti_Adouble.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6686 @@ -0,0 +1,115 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6687 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6688 + * Copyright (C) 2004-2005 by Digital Mars, www.digitalmars.com
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6689 + * Written by Walter Bright
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6690 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6691 + * This software is provided 'as-is', without any express or implied
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6692 + * warranty. In no event will the authors be held liable for any damages
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6693 + * arising from the use of this software.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6694 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6695 + * Permission is granted to anyone to use this software for any purpose,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6696 + * including commercial applications, and to alter it and redistribute it
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6697 + * freely, in both source and binary form, subject to the following
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6698 + * restrictions:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6699 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6700 + * o The origin of this software must not be misrepresented; you must not
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6701 + * claim that you wrote the original software. If you use this software
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6702 + * in a product, an acknowledgment in the product documentation would be
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6703 + * appreciated but is not required.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6704 + * o Altered source versions must be plainly marked as such, and must not
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6705 + * be misrepresented as being the original software.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6706 + * o This notice may not be removed or altered from any source
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6707 + * distribution.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6708 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6709 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6710 +module rt.typeinfo.ti_Adouble;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6711 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6712 +private import typeinfo.ti_double;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6713 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6714 +// double[]
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6715 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6716 +class TypeInfo_Ad : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6717 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6718 + override string toString() { return "double[]"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6719 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6720 + override hash_t getHash(in void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6721 + { double[] s = cast(double[])p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6722 + size_t len = s.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6723 + auto str = s.ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6724 + hash_t hash = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6725 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6726 + while (len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6727 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6728 + hash *= 9;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6729 + hash += (cast(uint *)str)[0];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6730 + hash += (cast(uint *)str)[1];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6731 + str++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6732 + len--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6733 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6734 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6735 + return hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6736 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6737 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6738 + override equals_t equals(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6739 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6740 + double[] s1 = cast(double[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6741 + double[] s2 = cast(double[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6742 + size_t len = s1.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6743 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6744 + if (len != s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6745 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6746 + for (size_t u = 0; u < len; u++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6747 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6748 + if (!TypeInfo_d._equals(s1[u], s2[u]))
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6749 + return false;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6750 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6751 + return true;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6752 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6753 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6754 + override int compare(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6755 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6756 + double[] s1 = cast(double[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6757 + double[] s2 = cast(double[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6758 + size_t len = s1.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6759 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6760 + if (s2.length < len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6761 + len = s2.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6762 + for (size_t u = 0; u < len; u++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6763 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6764 + int c = TypeInfo_d._compare(s1[u], s2[u]);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6765 + if (c)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6766 + return c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6767 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6768 + if (s1.length < s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6769 + return -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6770 + else if (s1.length > s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6771 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6772 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6773 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6774 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6775 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6776 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6777 + return (double[]).sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6778 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6779 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6780 + override uint flags()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6781 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6782 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6783 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6784 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6785 + override TypeInfo next()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6786 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6787 + return typeid(double);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6788 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6789 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6790 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6791 +// idouble[]
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6792 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6793 +class TypeInfo_Ap : TypeInfo_Ad
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6794 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6795 + override string toString() { return "idouble[]"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6796 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6797 + override TypeInfo next()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6798 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6799 + return typeid(idouble);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6800 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6801 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6802 Index: src/compiler/ldc/typeinfo/ti_char.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6803 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6804 --- src/compiler/ldc/typeinfo/ti_char.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6805 +++ src/compiler/ldc/typeinfo/ti_char.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6806 @@ -0,0 +1,42 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6807 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6808 +module rt.typeinfo.ti_char;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6809 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6810 +class TypeInfo_a : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6811 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6812 + override string toString() { return "char"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6813 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6814 + override hash_t getHash(in void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6815 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6816 + return cast(char )p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6817 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6818 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6819 + override equals_t equals(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6820 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6821 + return cast(char )p1 == cast(char )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6822 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6823 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6824 + override int compare(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6825 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6826 + return cast(char )p1 - cast(char )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6827 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6828 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6829 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6830 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6831 + return char.sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6832 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6833 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6834 + override void swap(void p1, void p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6835 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6836 + char t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6837 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6838 + t = cast(char )p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6839 + cast(char )p1 = cast(char )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6840 + cast(char )p2 = t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6841 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6842 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6843 + override void[] init()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6844 + { static char c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6845 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6846 + return (cast(char *)&c)[0 .. 1];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6847 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6848 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6849 Index: src/compiler/ldc/typeinfo/ti_Acdouble.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6850 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6851 --- src/compiler/ldc/typeinfo/ti_Acdouble.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6852 +++ src/compiler/ldc/typeinfo/ti_Acdouble.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6853 @@ -0,0 +1,105 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6854 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6855 + * Copyright (C) 2004-2005 by Digital Mars, www.digitalmars.com
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6856 + * Written by Walter Bright
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6857 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6858 + * This software is provided 'as-is', without any express or implied
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6859 + * warranty. In no event will the authors be held liable for any damages
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6860 + * arising from the use of this software.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6861 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6862 + * Permission is granted to anyone to use this software for any purpose,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6863 + * including commercial applications, and to alter it and redistribute it
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6864 + * freely, in both source and binary form, subject to the following
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6865 + * restrictions:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6866 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6867 + * o The origin of this software must not be misrepresented; you must not
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6868 + * claim that you wrote the original software. If you use this software
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6869 + * in a product, an acknowledgment in the product documentation would be
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6870 + * appreciated but is not required.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6871 + * o Altered source versions must be plainly marked as such, and must not
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6872 + * be misrepresented as being the original software.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6873 + * o This notice may not be removed or altered from any source
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6874 + * distribution.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6875 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6876 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6877 +module rt.typeinfo.ti_Acdouble;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6878 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6879 +private import typeinfo.ti_cdouble;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6880 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6881 +// cdouble[]
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6882 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6883 +class TypeInfo_Ar : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6884 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6885 + override string toString() { return "cdouble[]"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6886 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6887 + override hash_t getHash(in void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6888 + { cdouble[] s = cast(cdouble[])p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6889 + size_t len = s.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6890 + cdouble *str = s.ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6891 + hash_t hash = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6892 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6893 + while (len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6894 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6895 + hash *= 9;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6896 + hash += (cast(uint *)str)[0];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6897 + hash += (cast(uint *)str)[1];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6898 + hash += (cast(uint *)str)[2];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6899 + hash += (cast(uint *)str)[3];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6900 + str++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6901 + len--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6902 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6903 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6904 + return hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6905 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6906 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6907 + override equals_t equals(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6908 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6909 + cdouble[] s1 = cast(cdouble[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6910 + cdouble[] s2 = cast(cdouble[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6911 + size_t len = s1.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6912 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6913 + if (len != s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6914 + return false;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6915 + for (size_t u = 0; u < len; u++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6916 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6917 + if (!TypeInfo_r._equals(s1[u], s2[u]))
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6918 + return false;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6919 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6920 + return true;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6921 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6922 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6923 + override int compare(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6924 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6925 + cdouble[] s1 = cast(cdouble[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6926 + cdouble[] s2 = cast(cdouble[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6927 + size_t len = s1.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6928 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6929 + if (s2.length < len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6930 + len = s2.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6931 + for (size_t u = 0; u < len; u++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6932 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6933 + int c = TypeInfo_r._compare(s1[u], s2[u]);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6934 + if (c)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6935 + return c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6936 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6937 + if (s1.length < s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6938 + return -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6939 + else if (s1.length > s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6940 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6941 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6942 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6943 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6944 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6945 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6946 + return (cdouble[]).sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6947 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6948 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6949 + override uint flags()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6950 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6951 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6952 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6953 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6954 + override TypeInfo next()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6955 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6956 + return typeid(cdouble);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6957 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6958 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6959 Index: src/compiler/ldc/typeinfo/ti_uint.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6960 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6961 --- src/compiler/ldc/typeinfo/ti_uint.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6962 +++ src/compiler/ldc/typeinfo/ti_uint.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6963 @@ -0,0 +1,42 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6964 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6965 +// uint
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6966 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6967 +module rt.typeinfo.ti_uint;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6968 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6969 +class TypeInfo_k : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6970 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6971 + override string toString() { return "uint"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6972 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6973 + override hash_t getHash(in void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6974 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6975 + return cast(uint )p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6976 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6977 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6978 + override equals_t equals(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6979 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6980 + return cast(uint )p1 == cast(uint )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6981 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6982 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6983 + override int compare(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6984 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6985 + if (cast(uint) p1 < cast(uint) p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6986 + return -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6987 + else if (cast(uint) p1 > cast(uint) p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6988 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6989 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6990 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6991 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6992 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6993 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6994 + return uint.sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6995 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6996 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6997 + override void swap(void p1, void p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6998 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6999 + int t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7000 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7001 + t = cast(uint )p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7002 + cast(uint )p1 = cast(uint )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7003 + cast(uint )p2 = t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7004 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7005 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7006 Index: src/compiler/ldc/typeinfo/ti_AC.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7007 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7008 --- src/compiler/ldc/typeinfo/ti_AC.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7009 +++ src/compiler/ldc/typeinfo/ti_AC.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7010 @@ -0,0 +1,95 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7011 +module rt.typeinfo.ti_AC;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7012 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7013 +// Object[]
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7014 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7015 +class TypeInfo_AC : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7016 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7017 + override hash_t getHash(in void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7018 + { Object[] s = cast(Object[])p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7019 + hash_t hash = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7020 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7021 + foreach (Object o; s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7022 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7023 + if (o)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7024 + hash += o.toHash();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7025 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7026 + return hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7027 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7028 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7029 + override equals_t equals(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7030 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7031 + Object[] s1 = cast(Object[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7032 + Object[] s2 = cast(Object[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7033 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7034 + if (s1.length == s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7035 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7036 + for (size_t u = 0; u < s1.length; u++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7037 + { Object o1 = s1[u];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7038 + Object o2 = s2[u];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7039 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7040 + // Do not pass null's to Object.opEquals()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7041 + if (o1 is o2 \|\|
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7042 + (!(o1 is null) && !(o2 is null) && o1.opEquals(o2)))
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7043 + continue;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7044 + return false;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7045 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7046 + return true;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7047 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7048 + return false;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7049 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7050 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7051 + override int compare(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7052 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7053 + Object[] s1 = cast(Object[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7054 + Object[] s2 = cast(Object[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7055 + ptrdiff_t c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7056 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7057 + c = cast(ptrdiff_t)s1.length - cast(ptrdiff_t)s2.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7058 + if (c == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7059 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7060 + for (size_t u = 0; u < s1.length; u++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7061 + { Object o1 = s1[u];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7062 + Object o2 = s2[u];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7063 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7064 + if (o1 is o2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7065 + continue;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7066 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7067 + // Regard null references as always being "less than"
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7068 + if (o1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7069 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7070 + if (!o2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7071 + { c = 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7072 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7073 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7074 + c = o1.opCmp(o2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7075 + if (c)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7076 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7077 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7078 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7079 + { c = -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7080 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7081 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7082 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7083 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7084 + if (c < 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7085 + c = -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7086 + else if (c > 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7087 + c = 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7088 + return c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7089 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7090 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7091 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7092 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7093 + return (Object[]).sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7094 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7095 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7096 + override uint flags()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7097 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7098 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7099 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7100 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7101 + override TypeInfo next()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7102 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7103 + return typeid(Object);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7104 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7105 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7106 Index: src/compiler/ldc/typeinfo/ti_ulong.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7107 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7108 --- src/compiler/ldc/typeinfo/ti_ulong.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7109 +++ src/compiler/ldc/typeinfo/ti_ulong.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7110 @@ -0,0 +1,42 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7111 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7112 +// ulong
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7113 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7114 +module rt.typeinfo.ti_ulong;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7115 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7116 +class TypeInfo_m : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7117 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7118 + override string toString() { return "ulong"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7119 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7120 + override hash_t getHash(in void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7121 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7122 + return cast(uint )p + (cast(uint *)p)[1];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7123 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7124 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7125 + override equals_t equals(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7126 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7127 + return cast(ulong )p1 == cast(ulong )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7128 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7129 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7130 + override int compare(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7131 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7132 + if (cast(ulong )p1 < cast(ulong )p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7133 + return -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7134 + else if (cast(ulong )p1 > cast(ulong )p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7135 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7136 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7137 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7138 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7139 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7140 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7141 + return ulong.sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7142 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7143 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7144 + override void swap(void p1, void p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7145 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7146 + ulong t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7147 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7148 + t = cast(ulong )p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7149 + cast(ulong )p1 = cast(ulong )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7150 + cast(ulong )p2 = t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7151 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7152 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7153 Index: src/compiler/ldc/typeinfo/ti_creal.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7154 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7155 --- src/compiler/ldc/typeinfo/ti_creal.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7156 +++ src/compiler/ldc/typeinfo/ti_creal.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7157 @@ -0,0 +1,67 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7158 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7159 +// creal
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7160 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7161 +module rt.typeinfo.ti_creal;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7162 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7163 +class TypeInfo_c : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7164 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7165 + override string toString() { return "creal"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7166 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7167 + override hash_t getHash(in void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7168 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7169 + return (cast(uint )p)[0] + (cast(uint )p)[1] +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7170 + (cast(uint )p)[2] + (cast(uint )p)[3] +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7171 + (cast(uint *)p)[4];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7172 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7173 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7174 + static equals_t _equals(creal f1, creal f2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7175 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7176 + return f1 == f2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7177 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7178 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7179 + static int _compare(creal f1, creal f2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7180 + { int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7181 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7182 + if (f1.re < f2.re)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7183 + result = -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7184 + else if (f1.re > f2.re)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7185 + result = 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7186 + else if (f1.im < f2.im)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7187 + result = -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7188 + else if (f1.im > f2.im)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7189 + result = 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7190 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7191 + result = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7192 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7193 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7194 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7195 + override equals_t equals(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7196 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7197 + return _equals(cast(creal )p1, cast(creal )p2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7198 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7199 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7200 + override int compare(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7201 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7202 + return _compare(cast(creal )p1, cast(creal )p2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7203 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7204 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7205 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7206 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7207 + return creal.sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7208 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7209 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7210 + override void swap(void p1, void p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7211 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7212 + creal t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7213 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7214 + t = cast(creal )p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7215 + cast(creal )p1 = cast(creal )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7216 + cast(creal )p2 = t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7217 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7218 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7219 + override void[] init()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7220 + { static creal r;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7221 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7222 + return (cast(creal *)&r)[0 .. 1];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7223 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7224 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7225 Index: src/compiler/ldc/typeinfo/ti_ubyte.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7226 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7227 --- src/compiler/ldc/typeinfo/ti_ubyte.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7228 +++ src/compiler/ldc/typeinfo/ti_ubyte.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7229 @@ -0,0 +1,43 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7230 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7231 +// ubyte
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7232 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7233 +module rt.typeinfo.ti_ubyte;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7234 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7235 +class TypeInfo_h : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7236 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7237 + override string toString() { return "ubyte"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7238 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7239 + override hash_t getHash(in void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7240 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7241 + return cast(ubyte )p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7242 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7243 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7244 + override equals_t equals(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7245 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7246 + return cast(ubyte )p1 == cast(ubyte )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7247 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7248 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7249 + override int compare(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7250 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7251 + return cast(ubyte )p1 - cast(ubyte )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7252 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7253 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7254 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7255 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7256 + return ubyte.sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7257 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7258 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7259 + override void swap(void p1, void p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7260 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7261 + ubyte t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7262 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7263 + t = cast(ubyte )p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7264 + cast(ubyte )p1 = cast(ubyte )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7265 + cast(ubyte )p2 = t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7266 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7267 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7268 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7269 +class TypeInfo_b : TypeInfo_h
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7270 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7271 + override string toString() { return "bool"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7272 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7273 Index: src/compiler/ldc/typeinfo/ti_Aint.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7274 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7275 --- src/compiler/ldc/typeinfo/ti_Aint.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7276 +++ src/compiler/ldc/typeinfo/ti_Aint.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7277 @@ -0,0 +1,129 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7278 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7279 +module rt.typeinfo.ti_Aint;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7280 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7281 +private import core.stdc.string;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7282 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7283 +// int[]
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7284 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7285 +class TypeInfo_Ai : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7286 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7287 + override string toString() { return "int[]"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7288 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7289 + override hash_t getHash(in void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7290 + { int[] s = cast(int[])p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7291 + auto len = s.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7292 + auto str = s.ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7293 + hash_t hash = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7294 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7295 + while (len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7296 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7297 + hash *= 9;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7298 + hash += cast(uint )str;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7299 + str++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7300 + len--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7301 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7302 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7303 + return hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7304 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7305 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7306 + override equals_t equals(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7307 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7308 + int[] s1 = cast(int[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7309 + int[] s2 = cast(int[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7310 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7311 + return s1.length == s2.length &&
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7312 + memcmp(cast(void )s1, cast(void )s2, s1.length * int.sizeof) == 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7313 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7314 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7315 + override int compare(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7316 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7317 + int[] s1 = cast(int[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7318 + int[] s2 = cast(int[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7319 + size_t len = s1.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7320 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7321 + if (s2.length < len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7322 + len = s2.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7323 + for (size_t u = 0; u < len; u++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7324 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7325 + int result = s1[u] - s2[u];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7326 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7327 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7328 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7329 + if (s1.length < s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7330 + return -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7331 + else if (s1.length > s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7332 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7333 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7334 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7335 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7336 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7337 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7338 + return (int[]).sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7339 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7340 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7341 + override uint flags()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7342 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7343 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7344 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7345 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7346 + override TypeInfo next()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7347 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7348 + return typeid(int);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7349 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7350 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7351 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7352 +unittest
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7353 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7354 + int[][] a = [[5,3,8,7], [2,5,3,8,7]];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7355 + a.sort;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7356 + assert(a == [[2,5,3,8,7], [5,3,8,7]]);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7357 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7358 + a = [[5,3,8,7], [5,3,8]];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7359 + a.sort;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7360 + assert(a == [[5,3,8], [5,3,8,7]]);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7361 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7362 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7363 +// uint[]
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7364 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7365 +class TypeInfo_Ak : TypeInfo_Ai
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7366 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7367 + override string toString() { return "uint[]"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7368 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7369 + override int compare(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7370 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7371 + uint[] s1 = cast(uint[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7372 + uint[] s2 = cast(uint[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7373 + size_t len = s1.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7374 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7375 + if (s2.length < len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7376 + len = s2.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7377 + for (size_t u = 0; u < len; u++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7378 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7379 + int result = s1[u] - s2[u];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7380 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7381 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7382 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7383 + if (s1.length < s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7384 + return -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7385 + else if (s1.length > s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7386 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7387 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7388 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7389 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7390 + override TypeInfo next()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7391 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7392 + return typeid(uint);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7393 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7394 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7395 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7396 +// dchar[]
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7397 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7398 +class TypeInfo_Aw : TypeInfo_Ak
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7399 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7400 + override string toString() { return "dchar[]"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7401 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7402 + override TypeInfo next()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7403 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7404 + return typeid(dchar);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7405 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7406 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7407 Index: src/compiler/ldc/typeinfo/ti_ireal.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7408 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7409 --- src/compiler/ldc/typeinfo/ti_ireal.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7410 +++ src/compiler/ldc/typeinfo/ti_ireal.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7411 @@ -0,0 +1,11 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7412 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7413 +// ireal
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7414 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7415 +module rt.typeinfo.ti_ireal;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7416 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7417 +private import typeinfo.ti_real;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7418 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7419 +class TypeInfo_j : TypeInfo_e
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7420 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7421 + override string toString() { return "ireal"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7422 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7423 Index: src/compiler/ldc/typeinfo/ti_long.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7424 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7425 --- src/compiler/ldc/typeinfo/ti_long.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7426 +++ src/compiler/ldc/typeinfo/ti_long.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7427 @@ -0,0 +1,42 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7428 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7429 +// long
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7430 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7431 +module rt.typeinfo.ti_long;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7432 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7433 +class TypeInfo_l : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7434 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7435 + override string toString() { return "long"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7436 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7437 + override hash_t getHash(in void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7438 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7439 + return cast(uint )p + (cast(uint *)p)[1];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7440 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7441 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7442 + override equals_t equals(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7443 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7444 + return cast(long )p1 == cast(long )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7445 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7446 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7447 + override int compare(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7448 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7449 + if (cast(long )p1 < cast(long )p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7450 + return -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7451 + else if (cast(long )p1 > cast(long )p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7452 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7453 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7454 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7455 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7456 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7457 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7458 + return long.sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7459 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7460 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7461 + override void swap(void p1, void p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7462 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7463 + long t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7464 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7465 + t = cast(long )p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7466 + cast(long )p1 = cast(long )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7467 + cast(long )p2 = t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7468 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7469 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7470 Index: src/compiler/ldc/typeinfo/ti_short.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7471 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7472 --- src/compiler/ldc/typeinfo/ti_short.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7473 +++ src/compiler/ldc/typeinfo/ti_short.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7474 @@ -0,0 +1,38 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7475 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7476 +// short
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7477 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7478 +module rt.typeinfo.ti_short;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7479 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7480 +class TypeInfo_s : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7481 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7482 + override string toString() { return "short"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7483 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7484 + override hash_t getHash(in void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7485 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7486 + return cast(short )p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7487 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7488 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7489 + override equals_t equals(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7490 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7491 + return cast(short )p1 == cast(short )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7492 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7493 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7494 + override int compare(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7495 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7496 + return cast(short )p1 - cast(short )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7497 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7498 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7499 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7500 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7501 + return short.sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7502 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7503 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7504 + override void swap(void p1, void p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7505 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7506 + short t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7507 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7508 + t = cast(short )p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7509 + cast(short )p1 = cast(short )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7510 + cast(short )p2 = t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7511 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7512 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7513 Index: src/compiler/ldc/typeinfo/ti_Along.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7514 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7515 --- src/compiler/ldc/typeinfo/ti_Along.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7516 +++ src/compiler/ldc/typeinfo/ti_Along.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7517 @@ -0,0 +1,109 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7518 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7519 +module rt.typeinfo.ti_Along;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7520 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7521 +private import core.stdc.string;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7522 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7523 +// long[]
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7524 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7525 +class TypeInfo_Al : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7526 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7527 + override string toString() { return "long[]"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7528 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7529 + override hash_t getHash(in void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7530 + { long[] s = cast(long[])p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7531 + size_t len = s.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7532 + auto str = s.ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7533 + hash_t hash = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7534 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7535 + while (len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7536 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7537 + hash *= 9;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7538 + hash += cast(uint )str + (cast(uint )str + 1);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7539 + str++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7540 + len--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7541 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7542 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7543 + return hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7544 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7545 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7546 + override equals_t equals(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7547 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7548 + long[] s1 = cast(long[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7549 + long[] s2 = cast(long[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7550 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7551 + return s1.length == s2.length &&
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7552 + memcmp(cast(void )s1, cast(void )s2, s1.length * long.sizeof) == 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7553 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7554 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7555 + override int compare(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7556 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7557 + long[] s1 = cast(long[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7558 + long[] s2 = cast(long[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7559 + size_t len = s1.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7560 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7561 + if (s2.length < len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7562 + len = s2.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7563 + for (size_t u = 0; u < len; u++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7564 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7565 + if (s1[u] < s2[u])
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7566 + return -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7567 + else if (s1[u] > s2[u])
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7568 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7569 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7570 + if (s1.length < s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7571 + return -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7572 + else if (s1.length > s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7573 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7574 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7575 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7576 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7577 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7578 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7579 + return (long[]).sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7580 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7581 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7582 + override uint flags()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7583 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7584 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7585 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7586 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7587 + override TypeInfo next()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7588 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7589 + return typeid(long);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7590 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7591 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7592 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7593 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7594 +// ulong[]
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7595 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7596 +class TypeInfo_Am : TypeInfo_Al
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7597 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7598 + override string toString() { return "ulong[]"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7599 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7600 + override int compare(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7601 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7602 + ulong[] s1 = cast(ulong[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7603 + ulong[] s2 = cast(ulong[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7604 + size_t len = s1.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7605 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7606 + if (s2.length < len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7607 + len = s2.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7608 + for (size_t u = 0; u < len; u++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7609 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7610 + if (s1[u] < s2[u])
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7611 + return -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7612 + else if (s1[u] > s2[u])
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7613 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7614 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7615 + if (s1.length < s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7616 + return -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7617 + else if (s1.length > s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7618 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7619 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7620 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7621 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7622 + override TypeInfo next()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7623 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7624 + return typeid(ulong);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7625 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7626 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7627 Index: src/compiler/ldc/typeinfo/ti_byte.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7628 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7629 --- src/compiler/ldc/typeinfo/ti_byte.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7630 +++ src/compiler/ldc/typeinfo/ti_byte.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7631 @@ -0,0 +1,38 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7632 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7633 +// byte
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7634 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7635 +module rt.typeinfo.ti_byte;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7636 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7637 +class TypeInfo_g : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7638 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7639 + override string toString() { return "byte"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7640 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7641 + override hash_t getHash(in void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7642 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7643 + return cast(byte )p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7644 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7645 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7646 + override equals_t equals(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7647 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7648 + return cast(byte )p1 == cast(byte )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7649 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7650 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7651 + override int compare(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7652 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7653 + return cast(byte )p1 - cast(byte )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7654 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7655 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7656 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7657 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7658 + return byte.sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7659 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7660 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7661 + override void swap(void p1, void p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7662 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7663 + byte t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7664 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7665 + t = cast(byte )p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7666 + cast(byte )p1 = cast(byte )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7667 + cast(byte )p2 = t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7668 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7669 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7670 Index: src/compiler/ldc/typeinfo/ti_float.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7671 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7672 --- src/compiler/ldc/typeinfo/ti_float.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7673 +++ src/compiler/ldc/typeinfo/ti_float.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7674 @@ -0,0 +1,64 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7675 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7676 +// float
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7677 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7678 +module rt.typeinfo.ti_float;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7679 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7680 +class TypeInfo_f : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7681 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7682 + override string toString() { return "float"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7683 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7684 + override hash_t getHash(in void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7685 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7686 + return cast(uint )p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7687 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7688 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7689 + static equals_t _equals(float f1, float f2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7690 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7691 + return f1 == f2 \|\|
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7692 + (f1 !<>= f1 && f2 !<>= f2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7693 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7694 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7695 + static int _compare(float d1, float d2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7696 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7697 + if (d1 !<>= d2) // if either are NaN
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7698 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7699 + if (d1 !<>= d1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7700 + { if (d2 !<>= d2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7701 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7702 + return -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7703 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7704 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7705 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7706 + return (d1 == d2) ? 0 : ((d1 < d2) ? -1 : 1);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7707 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7708 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7709 + override equals_t equals(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7710 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7711 + return _equals(cast(float )p1, cast(float )p2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7712 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7713 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7714 + override int compare(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7715 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7716 + return _compare(cast(float )p1, cast(float )p2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7717 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7718 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7719 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7720 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7721 + return float.sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7722 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7723 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7724 + override void swap(void p1, void p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7725 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7726 + float t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7727 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7728 + t = cast(float )p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7729 + cast(float )p1 = cast(float )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7730 + cast(float )p2 = t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7731 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7732 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7733 + override void[] init()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7734 + { static float r;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7735 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7736 + return (cast(float *)&r)[0 .. 1];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7737 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7738 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7739 Index: src/compiler/ldc/typeinfo/ti_cfloat.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7740 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7741 --- src/compiler/ldc/typeinfo/ti_cfloat.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7742 +++ src/compiler/ldc/typeinfo/ti_cfloat.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7743 @@ -0,0 +1,65 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7744 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7745 +// cfloat
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7746 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7747 +module rt.typeinfo.ti_cfloat;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7748 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7749 +class TypeInfo_q : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7750 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7751 + override string toString() { return "cfloat"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7752 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7753 + override hash_t getHash(in void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7754 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7755 + return (cast(uint )p)[0] + (cast(uint )p)[1];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7756 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7757 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7758 + static equals_t _equals(cfloat f1, cfloat f2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7759 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7760 + return f1 == f2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7761 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7762 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7763 + static int _compare(cfloat f1, cfloat f2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7764 + { int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7765 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7766 + if (f1.re < f2.re)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7767 + result = -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7768 + else if (f1.re > f2.re)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7769 + result = 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7770 + else if (f1.im < f2.im)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7771 + result = -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7772 + else if (f1.im > f2.im)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7773 + result = 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7774 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7775 + result = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7776 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7777 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7778 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7779 + override equals_t equals(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7780 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7781 + return _equals(cast(cfloat )p1, cast(cfloat )p2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7782 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7783 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7784 + override int compare(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7785 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7786 + return _compare(cast(cfloat )p1, cast(cfloat )p2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7787 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7788 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7789 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7790 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7791 + return cfloat.sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7792 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7793 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7794 + override void swap(void p1, void p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7795 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7796 + cfloat t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7797 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7798 + t = cast(cfloat )p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7799 + cast(cfloat )p1 = cast(cfloat )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7800 + cast(cfloat )p2 = t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7801 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7802 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7803 + override void[] init()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7804 + { static cfloat r;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7805 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7806 + return (cast(cfloat *)&r)[0 .. 1];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7807 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7808 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7809 Index: src/compiler/ldc/typeinfo/ti_Acfloat.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7810 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7811 --- src/compiler/ldc/typeinfo/ti_Acfloat.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7812 +++ src/compiler/ldc/typeinfo/ti_Acfloat.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7813 @@ -0,0 +1,103 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7814 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7815 + * Copyright (C) 2004-2005 by Digital Mars, www.digitalmars.com
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7816 + * Written by Walter Bright
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7817 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7818 + * This software is provided 'as-is', without any express or implied
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7819 + * warranty. In no event will the authors be held liable for any damages
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7820 + * arising from the use of this software.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7821 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7822 + * Permission is granted to anyone to use this software for any purpose,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7823 + * including commercial applications, and to alter it and redistribute it
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7824 + * freely, in both source and binary form, subject to the following
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7825 + * restrictions:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7826 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7827 + * o The origin of this software must not be misrepresented; you must not
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7828 + * claim that you wrote the original software. If you use this software
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7829 + * in a product, an acknowledgment in the product documentation would be
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7830 + * appreciated but is not required.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7831 + * o Altered source versions must be plainly marked as such, and must not
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7832 + * be misrepresented as being the original software.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7833 + * o This notice may not be removed or altered from any source
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7834 + * distribution.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7835 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7836 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7837 +module rt.typeinfo.ti_Acfloat;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7838 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7839 +private import typeinfo.ti_cfloat;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7840 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7841 +// cfloat[]
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7842 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7843 +class TypeInfo_Aq : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7844 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7845 + override string toString() { return "cfloat[]"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7846 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7847 + override hash_t getHash(in void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7848 + { cfloat[] s = cast(cfloat[])p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7849 + size_t len = s.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7850 + cfloat *str = s.ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7851 + hash_t hash = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7852 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7853 + while (len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7854 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7855 + hash *= 9;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7856 + hash += (cast(uint *)str)[0];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7857 + hash += (cast(uint *)str)[1];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7858 + str++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7859 + len--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7860 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7861 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7862 + return hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7863 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7864 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7865 + override equals_t equals(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7866 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7867 + cfloat[] s1 = cast(cfloat[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7868 + cfloat[] s2 = cast(cfloat[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7869 + size_t len = s1.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7870 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7871 + if (len != s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7872 + return false;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7873 + for (size_t u = 0; u < len; u++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7874 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7875 + if (!TypeInfo_q._equals(s1[u], s2[u]))
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7876 + return false;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7877 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7878 + return true;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7879 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7880 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7881 + override int compare(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7882 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7883 + cfloat[] s1 = cast(cfloat[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7884 + cfloat[] s2 = cast(cfloat[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7885 + size_t len = s1.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7886 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7887 + if (s2.length < len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7888 + len = s2.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7889 + for (size_t u = 0; u < len; u++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7890 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7891 + int c = TypeInfo_q._compare(s1[u], s2[u]);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7892 + if (c)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7893 + return c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7894 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7895 + if (s1.length < s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7896 + return -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7897 + else if (s1.length > s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7898 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7899 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7900 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7901 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7902 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7903 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7904 + return (cfloat[]).sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7905 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7906 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7907 + override uint flags()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7908 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7909 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7910 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7911 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7912 + override TypeInfo next()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7913 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7914 + return typeid(cfloat);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7915 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7916 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7917 Index: src/compiler/ldc/typeinfo/ti_cdouble.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7918 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7919 --- src/compiler/ldc/typeinfo/ti_cdouble.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7920 +++ src/compiler/ldc/typeinfo/ti_cdouble.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7921 @@ -0,0 +1,66 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7922 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7923 +// cdouble
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7924 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7925 +module rt.typeinfo.ti_cdouble;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7926 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7927 +class TypeInfo_r : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7928 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7929 + override string toString() { return "cdouble"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7930 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7931 + override hash_t getHash(in void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7932 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7933 + return (cast(uint )p)[0] + (cast(uint )p)[1] +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7934 + (cast(uint )p)[2] + (cast(uint )p)[3];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7935 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7936 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7937 + static equals_t _equals(cdouble f1, cdouble f2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7938 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7939 + return f1 == f2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7940 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7941 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7942 + static int _compare(cdouble f1, cdouble f2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7943 + { int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7944 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7945 + if (f1.re < f2.re)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7946 + result = -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7947 + else if (f1.re > f2.re)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7948 + result = 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7949 + else if (f1.im < f2.im)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7950 + result = -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7951 + else if (f1.im > f2.im)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7952 + result = 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7953 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7954 + result = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7955 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7956 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7957 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7958 + override equals_t equals(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7959 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7960 + return _equals(cast(cdouble )p1, cast(cdouble )p2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7961 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7962 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7963 + override int compare(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7964 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7965 + return _compare(cast(cdouble )p1, cast(cdouble )p2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7966 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7967 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7968 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7969 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7970 + return cdouble.sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7971 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7972 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7973 + override void swap(void p1, void p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7974 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7975 + cdouble t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7976 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7977 + t = cast(cdouble )p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7978 + cast(cdouble )p1 = cast(cdouble )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7979 + cast(cdouble )p2 = t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7980 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7981 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7982 + override void[] init()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7983 + { static cdouble r;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7984 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7985 + return (cast(cdouble *)&r)[0 .. 1];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7986 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7987 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7988 Index: src/compiler/ldc/typeinfo/ti_ifloat.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7989 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7990 --- src/compiler/ldc/typeinfo/ti_ifloat.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7991 +++ src/compiler/ldc/typeinfo/ti_ifloat.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7992 @@ -0,0 +1,11 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7993 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7994 +// ifloat
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7995 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7996 +module rt.typeinfo.ti_ifloat;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7997 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7998 +private import typeinfo.ti_float;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7999 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8000 +class TypeInfo_o : TypeInfo_f
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8001 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8002 + override string toString() { return "ifloat"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8003 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8004 Index: src/compiler/ldc/typeinfo/ti_dchar.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8005 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8006 --- src/compiler/ldc/typeinfo/ti_dchar.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8007 +++ src/compiler/ldc/typeinfo/ti_dchar.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8008 @@ -0,0 +1,44 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8009 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8010 +// dchar
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8011 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8012 +module rt.typeinfo.ti_dchar;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8013 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8014 +class TypeInfo_w : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8015 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8016 + override string toString() { return "dchar"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8017 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8018 + override hash_t getHash(in void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8019 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8020 + return cast(dchar )p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8021 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8022 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8023 + override equals_t equals(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8024 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8025 + return cast(dchar )p1 == cast(dchar )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8026 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8027 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8028 + override int compare(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8029 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8030 + return cast(dchar )p1 - cast(dchar )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8031 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8032 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8033 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8034 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8035 + return dchar.sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8036 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8037 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8038 + override void swap(void p1, void p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8039 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8040 + dchar t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8041 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8042 + t = cast(dchar )p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8043 + cast(dchar )p1 = cast(dchar )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8044 + cast(dchar )p2 = t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8045 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8046 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8047 + override void[] init()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8048 + { static dchar c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8049 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8050 + return (cast(dchar *)&c)[0 .. 1];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8051 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8052 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8053 Index: src/compiler/ldc/typeinfo/ti_C.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8054 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8055 --- src/compiler/ldc/typeinfo/ti_C.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8056 +++ src/compiler/ldc/typeinfo/ti_C.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8057 @@ -0,0 +1,74 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8058 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8059 + * Copyright (C) 2004-2005 by Digital Mars, www.digitalmars.com
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8060 + * Written by Walter Bright
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8061 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8062 + * This software is provided 'as-is', without any express or implied
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8063 + * warranty. In no event will the authors be held liable for any damages
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8064 + * arising from the use of this software.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8065 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8066 + * Permission is granted to anyone to use this software for any purpose,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8067 + * including commercial applications, and to alter it and redistribute it
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8068 + * freely, in both source and binary form, subject to the following
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8069 + * restrictions:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8070 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8071 + * o The origin of this software must not be misrepresented; you must not
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8072 + * claim that you wrote the original software. If you use this software
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8073 + * in a product, an acknowledgment in the product documentation would be
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8074 + * appreciated but is not required.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8075 + * o Altered source versions must be plainly marked as such, and must not
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8076 + * be misrepresented as being the original software.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8077 + * o This notice may not be removed or altered from any source
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8078 + * distribution.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8079 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8080 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8081 +module rt.typeinfo.ti_C;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8082 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8083 +// Object
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8084 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8085 +class TypeInfo_C : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8086 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8087 + override hash_t getHash(in void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8088 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8089 + Object o = cast(Object)p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8090 + return o ? o.toHash() : 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8091 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8092 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8093 + override equals_t equals(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8094 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8095 + Object o1 = cast(Object)p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8096 + Object o2 = cast(Object)p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8097 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8098 + return o1 == o2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8099 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8100 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8101 + override int compare(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8102 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8103 + Object o1 = cast(Object)p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8104 + Object o2 = cast(Object)p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8105 + int c = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8106 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8107 + // Regard null references as always being "less than"
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8108 + if (!(o1 is o2))
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8109 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8110 + if (o1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8111 + { if (!o2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8112 + c = 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8113 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8114 + c = o1.opCmp(o2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8115 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8116 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8117 + c = -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8118 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8119 + return c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8120 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8121 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8122 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8123 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8124 + return Object.sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8125 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8126 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8127 + override uint flags()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8128 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8129 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8130 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8131 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8132 Index: src/compiler/ldc/typeinfo/ti_real.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8133 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8134 --- src/compiler/ldc/typeinfo/ti_real.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8135 +++ src/compiler/ldc/typeinfo/ti_real.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8136 @@ -0,0 +1,64 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8137 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8138 +// real
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8139 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8140 +module rt.typeinfo.ti_real;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8141 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8142 +class TypeInfo_e : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8143 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8144 + override string toString() { return "real"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8145 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8146 + override hash_t getHash(in void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8147 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8148 + return (cast(uint )p)[0] + (cast(uint )p)[1] + (cast(ushort *)p)[4];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8149 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8150 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8151 + static equals_t _equals(real f1, real f2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8152 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8153 + return f1 == f2 \|\|
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8154 + (f1 !<>= f1 && f2 !<>= f2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8155 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8156 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8157 + static int _compare(real d1, real d2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8158 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8159 + if (d1 !<>= d2) // if either are NaN
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8160 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8161 + if (d1 !<>= d1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8162 + { if (d2 !<>= d2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8163 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8164 + return -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8165 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8166 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8167 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8168 + return (d1 == d2) ? 0 : ((d1 < d2) ? -1 : 1);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8169 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8170 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8171 + override equals_t equals(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8172 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8173 + return _equals(cast(real )p1, cast(real )p2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8174 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8175 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8176 + override int compare(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8177 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8178 + return _compare(cast(real )p1, cast(real )p2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8179 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8180 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8181 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8182 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8183 + return real.sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8184 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8185 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8186 + override void swap(void p1, void p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8187 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8188 + real t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8189 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8190 + t = cast(real )p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8191 + cast(real )p1 = cast(real )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8192 + cast(real )p2 = t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8193 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8194 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8195 + override void[] init()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8196 + { static real r;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8197 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8198 + return (cast(real *)&r)[0 .. 1];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8199 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8200 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8201 Index: src/compiler/ldc/typeinfo/ti_idouble.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8202 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8203 --- src/compiler/ldc/typeinfo/ti_idouble.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8204 +++ src/compiler/ldc/typeinfo/ti_idouble.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8205 @@ -0,0 +1,11 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8206 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8207 +// idouble
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8208 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8209 +module rt.typeinfo.ti_idouble;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8210 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8211 +private import typeinfo.ti_double;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8212 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8213 +class TypeInfo_p : TypeInfo_d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8214 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8215 + override string toString() { return "idouble"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8216 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8217 Index: src/compiler/ldc/typeinfo/ti_Areal.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8218 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8219 --- src/compiler/ldc/typeinfo/ti_Areal.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8220 +++ src/compiler/ldc/typeinfo/ti_Areal.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8221 @@ -0,0 +1,116 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8222 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8223 + * Copyright (C) 2004-2006 by Digital Mars, www.digitalmars.com
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8224 + * Written by Walter Bright
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8225 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8226 + * This software is provided 'as-is', without any express or implied
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8227 + * warranty. In no event will the authors be held liable for any damages
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8228 + * arising from the use of this software.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8229 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8230 + * Permission is granted to anyone to use this software for any purpose,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8231 + * including commercial applications, and to alter it and redistribute it
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8232 + * freely, in both source and binary form, subject to the following
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8233 + * restrictions:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8234 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8235 + * o The origin of this software must not be misrepresented; you must not
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8236 + * claim that you wrote the original software. If you use this software
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8237 + * in a product, an acknowledgment in the product documentation would be
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8238 + * appreciated but is not required.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8239 + * o Altered source versions must be plainly marked as such, and must not
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8240 + * be misrepresented as being the original software.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8241 + * o This notice may not be removed or altered from any source
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8242 + * distribution.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8243 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8244 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8245 +module rt.typeinfo.ti_Areal;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8246 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8247 +private import typeinfo.ti_real;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8248 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8249 +// real[]
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8250 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8251 +class TypeInfo_Ae : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8252 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8253 + override string toString() { return "real[]"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8254 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8255 + override hash_t getHash(in void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8256 + { real[] s = cast(real[])p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8257 + size_t len = s.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8258 + auto str = s.ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8259 + hash_t hash = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8260 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8261 + while (len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8262 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8263 + hash *= 9;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8264 + hash += (cast(uint *)str)[0];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8265 + hash += (cast(uint *)str)[1];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8266 + hash += (cast(ushort *)str)[4];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8267 + str++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8268 + len--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8269 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8270 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8271 + return hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8272 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8273 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8274 + override equals_t equals(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8275 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8276 + real[] s1 = cast(real[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8277 + real[] s2 = cast(real[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8278 + size_t len = s1.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8279 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8280 + if (len != s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8281 + return false;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8282 + for (size_t u = 0; u < len; u++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8283 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8284 + if (!TypeInfo_e._equals(s1[u], s2[u]))
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8285 + return false;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8286 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8287 + return true;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8288 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8289 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8290 + override int compare(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8291 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8292 + real[] s1 = cast(real[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8293 + real[] s2 = cast(real[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8294 + size_t len = s1.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8295 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8296 + if (s2.length < len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8297 + len = s2.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8298 + for (size_t u = 0; u < len; u++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8299 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8300 + int c = TypeInfo_e._compare(s1[u], s2[u]);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8301 + if (c)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8302 + return c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8303 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8304 + if (s1.length < s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8305 + return -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8306 + else if (s1.length > s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8307 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8308 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8309 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8310 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8311 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8312 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8313 + return (real[]).sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8314 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8315 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8316 + override uint flags()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8317 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8318 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8319 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8320 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8321 + override TypeInfo next()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8322 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8323 + return typeid(real);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8324 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8325 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8326 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8327 +// ireal[]
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8328 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8329 +class TypeInfo_Aj : TypeInfo_Ae
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8330 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8331 + override string toString() { return "ireal[]"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8332 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8333 + override TypeInfo next()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8334 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8335 + return typeid(ireal);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8336 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8337 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8338 Index: src/compiler/ldc/typeinfo/ti_ushort.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8339 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8340 --- src/compiler/ldc/typeinfo/ti_ushort.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8341 +++ src/compiler/ldc/typeinfo/ti_ushort.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8342 @@ -0,0 +1,38 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8343 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8344 +// ushort
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8345 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8346 +module rt.typeinfo.ti_ushort;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8347 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8348 +class TypeInfo_t : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8349 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8350 + override string toString() { return "ushort"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8351 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8352 + override hash_t getHash(in void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8353 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8354 + return cast(ushort )p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8355 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8356 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8357 + override equals_t equals(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8358 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8359 + return cast(ushort )p1 == cast(ushort )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8360 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8361 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8362 + override int compare(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8363 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8364 + return cast(ushort )p1 - cast(ushort )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8365 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8366 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8367 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8368 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8369 + return ushort.sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8370 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8371 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8372 + override void swap(void p1, void p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8373 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8374 + ushort t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8375 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8376 + t = cast(ushort )p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8377 + cast(ushort )p1 = cast(ushort )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8378 + cast(ushort )p2 = t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8379 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8380 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8381 Index: src/compiler/ldc/typeinfo/ti_Ag.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8382 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8383 --- src/compiler/ldc/typeinfo/ti_Ag.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8384 +++ src/compiler/ldc/typeinfo/ti_Ag.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8385 @@ -0,0 +1,204 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8386 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8387 +module rt.typeinfo.ti_Ag;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8388 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8389 +private import util.string;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8390 +private import core.stdc.string;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8391 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8392 +// byte[]
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8393 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8394 +class TypeInfo_Ag : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8395 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8396 + override string toString() { return "byte[]"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8397 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8398 + override hash_t getHash(in void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8399 + { byte[] s = cast(byte[])p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8400 + size_t len = s.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8401 + byte *str = s.ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8402 + hash_t hash = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8403 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8404 + while (1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8405 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8406 + switch (len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8407 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8408 + case 0:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8409 + return hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8410 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8411 + case 1:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8412 + hash *= 9;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8413 + hash += cast(ubyte )str;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8414 + return hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8415 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8416 + case 2:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8417 + hash *= 9;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8418 + hash += cast(ushort )str;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8419 + return hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8420 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8421 + case 3:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8422 + hash *= 9;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8423 + hash += (cast(ushort )str << 8) +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8424 + (cast(ubyte *)str)[2];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8425 + return hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8426 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8427 + default:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8428 + hash *= 9;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8429 + hash += cast(uint )str;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8430 + str += 4;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8431 + len -= 4;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8432 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8433 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8434 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8435 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8436 + return hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8437 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8438 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8439 + override equals_t equals(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8440 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8441 + byte[] s1 = cast(byte[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8442 + byte[] s2 = cast(byte[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8443 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8444 + return s1.length == s2.length &&
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8445 + memcmp(cast(byte )s1, cast(byte )s2, s1.length) == 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8446 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8447 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8448 + override int compare(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8449 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8450 + byte[] s1 = cast(byte[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8451 + byte[] s2 = cast(byte[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8452 + size_t len = s1.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8453 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8454 + if (s2.length < len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8455 + len = s2.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8456 + for (size_t u = 0; u < len; u++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8457 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8458 + int result = s1[u] - s2[u];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8459 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8460 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8461 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8462 + if (s1.length < s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8463 + return -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8464 + else if (s1.length > s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8465 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8466 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8467 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8468 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8469 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8470 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8471 + return (byte[]).sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8472 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8473 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8474 + override uint flags()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8475 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8476 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8477 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8478 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8479 + override TypeInfo next()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8480 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8481 + return typeid(byte);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8482 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8483 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8484 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8485 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8486 +// ubyte[]
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8487 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8488 +class TypeInfo_Ah : TypeInfo_Ag
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8489 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8490 + override string toString() { return "ubyte[]"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8491 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8492 + override int compare(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8493 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8494 + char[] s1 = cast(char[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8495 + char[] s2 = cast(char[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8496 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8497 + return dstrcmp(s1, s2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8498 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8499 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8500 + override TypeInfo next()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8501 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8502 + return typeid(ubyte);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8503 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8504 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8505 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8506 +// void[]
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8507 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8508 +class TypeInfo_Av : TypeInfo_Ah
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8509 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8510 + override string toString() { return "void[]"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8511 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8512 + override TypeInfo next()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8513 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8514 + return typeid(void);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8515 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8516 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8517 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8518 +// bool[]
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8519 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8520 +class TypeInfo_Ab : TypeInfo_Ah
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8521 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8522 + override string toString() { return "bool[]"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8523 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8524 + override TypeInfo next()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8525 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8526 + return typeid(bool);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8527 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8528 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8529 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8530 +// char[]
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8531 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8532 +class TypeInfo_Aa : TypeInfo_Ag
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8533 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8534 + override string toString() { return "char[]"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8535 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8536 + override hash_t getHash(in void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8537 + { char[] s = cast(char[])p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8538 + hash_t hash = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8539 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8540 +version (all)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8541 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8542 + foreach (char c; s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8543 + hash = hash * 11 + c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8544 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8545 +else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8546 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8547 + size_t len = s.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8548 + char *str = s;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8549 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8550 + while (1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8551 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8552 + switch (len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8553 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8554 + case 0:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8555 + return hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8556 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8557 + case 1:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8558 + hash *= 9;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8559 + hash += cast(ubyte )str;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8560 + return hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8561 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8562 + case 2:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8563 + hash *= 9;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8564 + hash += cast(ushort )str;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8565 + return hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8566 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8567 + case 3:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8568 + hash *= 9;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8569 + hash += (cast(ushort )str << 8) +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8570 + (cast(ubyte *)str)[2];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8571 + return hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8572 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8573 + default:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8574 + hash *= 9;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8575 + hash += cast(uint )str;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8576 + str += 4;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8577 + len -= 4;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8578 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8579 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8580 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8581 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8582 + return hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8583 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8584 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8585 + override TypeInfo next()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8586 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8587 + return typeid(char);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8588 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8589 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8590 Index: src/compiler/ldc/typeinfo/ti_Acreal.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8591 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8592 --- src/compiler/ldc/typeinfo/ti_Acreal.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8593 +++ src/compiler/ldc/typeinfo/ti_Acreal.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8594 @@ -0,0 +1,106 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8595 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8596 + * Copyright (C) 2004-2005 by Digital Mars, www.digitalmars.com
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8597 + * Written by Walter Bright
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8598 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8599 + * This software is provided 'as-is', without any express or implied
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8600 + * warranty. In no event will the authors be held liable for any damages
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8601 + * arising from the use of this software.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8602 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8603 + * Permission is granted to anyone to use this software for any purpose,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8604 + * including commercial applications, and to alter it and redistribute it
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8605 + * freely, in both source and binary form, subject to the following
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8606 + * restrictions:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8607 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8608 + * o The origin of this software must not be misrepresented; you must not
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8609 + * claim that you wrote the original software. If you use this software
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8610 + * in a product, an acknowledgment in the product documentation would be
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8611 + * appreciated but is not required.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8612 + * o Altered source versions must be plainly marked as such, and must not
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8613 + * be misrepresented as being the original software.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8614 + * o This notice may not be removed or altered from any source
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8615 + * distribution.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8616 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8617 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8618 +module rt.typeinfo.ti_Acreal;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8619 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8620 +private import typeinfo.ti_creal;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8621 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8622 +// creal[]
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8623 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8624 +class TypeInfo_Ac : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8625 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8626 + override string toString() { return "creal[]"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8627 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8628 + override hash_t getHash(in void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8629 + { creal[] s = cast(creal[])p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8630 + size_t len = s.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8631 + creal *str = s.ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8632 + hash_t hash = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8633 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8634 + while (len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8635 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8636 + hash *= 9;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8637 + hash += (cast(uint *)str)[0];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8638 + hash += (cast(uint *)str)[1];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8639 + hash += (cast(uint *)str)[2];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8640 + hash += (cast(uint *)str)[3];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8641 + hash += (cast(uint *)str)[4];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8642 + str++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8643 + len--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8644 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8645 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8646 + return hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8647 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8648 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8649 + override equals_t equals(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8650 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8651 + creal[] s1 = cast(creal[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8652 + creal[] s2 = cast(creal[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8653 + size_t len = s1.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8654 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8655 + if (len != s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8656 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8657 + for (size_t u = 0; u < len; u++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8658 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8659 + if (!TypeInfo_c._equals(s1[u], s2[u]))
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8660 + return false;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8661 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8662 + return true;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8663 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8664 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8665 + override int compare(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8666 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8667 + creal[] s1 = cast(creal[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8668 + creal[] s2 = cast(creal[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8669 + size_t len = s1.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8670 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8671 + if (s2.length < len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8672 + len = s2.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8673 + for (size_t u = 0; u < len; u++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8674 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8675 + int c = TypeInfo_c._compare(s1[u], s2[u]);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8676 + if (c)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8677 + return c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8678 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8679 + if (s1.length < s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8680 + return -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8681 + else if (s1.length > s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8682 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8683 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8684 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8685 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8686 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8687 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8688 + return (creal[]).sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8689 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8690 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8691 + override uint flags()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8692 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8693 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8694 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8695 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8696 + override TypeInfo next()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8697 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8698 + return typeid(creal);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8699 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8700 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8701 Index: src/compiler/ldc/typeinfo/ti_int.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8702 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8703 --- src/compiler/ldc/typeinfo/ti_int.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8704 +++ src/compiler/ldc/typeinfo/ti_int.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8705 @@ -0,0 +1,42 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8706 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8707 +// int
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8708 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8709 +module rt.typeinfo.ti_int;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8710 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8711 +class TypeInfo_i : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8712 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8713 + override string toString() { return "int"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8714 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8715 + override hash_t getHash(in void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8716 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8717 + return cast(uint )p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8718 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8719 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8720 + override equals_t equals(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8721 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8722 + return cast(uint )p1 == cast(uint )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8723 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8724 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8725 + override int compare(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8726 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8727 + if (cast(int) p1 < cast(int) p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8728 + return -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8729 + else if (cast(int) p1 > cast(int) p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8730 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8731 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8732 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8733 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8734 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8735 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8736 + return int.sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8737 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8738 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8739 + override void swap(void p1, void p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8740 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8741 + int t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8742 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8743 + t = cast(int )p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8744 + cast(int )p1 = cast(int )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8745 + cast(int )p2 = t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8746 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8747 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8748 Index: src/compiler/ldc/typeinfo/ti_Ashort.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8749 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8750 --- src/compiler/ldc/typeinfo/ti_Ashort.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8751 +++ src/compiler/ldc/typeinfo/ti_Ashort.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8752 @@ -0,0 +1,132 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8753 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8754 +module rt.typeinfo.ti_Ashort;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8755 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8756 +private import core.stdc.string;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8757 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8758 +// short[]
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8759 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8760 +class TypeInfo_As : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8761 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8762 + override string toString() { return "short[]"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8763 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8764 + override hash_t getHash(in void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8765 + { short[] s = cast(short[])p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8766 + size_t len = s.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8767 + short *str = s.ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8768 + hash_t hash = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8769 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8770 + while (1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8771 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8772 + switch (len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8773 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8774 + case 0:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8775 + return hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8776 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8777 + case 1:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8778 + hash *= 9;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8779 + hash += cast(ushort )str;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8780 + return hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8781 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8782 + default:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8783 + hash *= 9;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8784 + hash += cast(uint )str;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8785 + str += 2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8786 + len -= 2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8787 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8788 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8789 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8790 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8791 + return hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8792 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8793 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8794 + override equals_t equals(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8795 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8796 + short[] s1 = cast(short[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8797 + short[] s2 = cast(short[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8798 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8799 + return s1.length == s2.length &&
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8800 + memcmp(cast(void )s1, cast(void )s2, s1.length * short.sizeof) == 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8801 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8802 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8803 + override int compare(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8804 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8805 + short[] s1 = cast(short[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8806 + short[] s2 = cast(short[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8807 + size_t len = s1.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8808 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8809 + if (s2.length < len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8810 + len = s2.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8811 + for (size_t u = 0; u < len; u++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8812 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8813 + int result = s1[u] - s2[u];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8814 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8815 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8816 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8817 + if (s1.length < s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8818 + return -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8819 + else if (s1.length > s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8820 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8821 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8822 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8823 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8824 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8825 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8826 + return (short[]).sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8827 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8828 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8829 + override uint flags()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8830 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8831 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8832 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8833 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8834 + override TypeInfo next()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8835 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8836 + return typeid(short);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8837 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8838 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8839 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8840 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8841 +// ushort[]
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8842 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8843 +class TypeInfo_At : TypeInfo_As
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8844 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8845 + override string toString() { return "ushort[]"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8846 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8847 + override int compare(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8848 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8849 + ushort[] s1 = cast(ushort[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8850 + ushort[] s2 = cast(ushort[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8851 + size_t len = s1.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8852 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8853 + if (s2.length < len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8854 + len = s2.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8855 + for (size_t u = 0; u < len; u++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8856 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8857 + int result = s1[u] - s2[u];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8858 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8859 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8860 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8861 + if (s1.length < s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8862 + return -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8863 + else if (s1.length > s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8864 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8865 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8866 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8867 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8868 + override TypeInfo next()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8869 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8870 + return typeid(ushort);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8871 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8872 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8873 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8874 +// wchar[]
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8875 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8876 +class TypeInfo_Au : TypeInfo_At
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8877 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8878 + override string toString() { return "wchar[]"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8879 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8880 + override TypeInfo next()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8881 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8882 + return typeid(wchar);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8883 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8884 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8885 Index: src/compiler/ldc/ldc/vararg.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8886 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8887 --- src/compiler/ldc/ldc/vararg.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8888 +++ src/compiler/ldc/ldc/vararg.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8889 @@ -0,0 +1,43 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8890 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8891 + * This module holds the implementation of special vararg templates for D style var args.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8892 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8893 + * Provides the functions tango.core.Vararg expects to be present!
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8894 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8895 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8896 +module ldc.Vararg;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8897 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8898 +// Check for the right compiler
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8899 +version(LDC)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8900 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8901 + // OK
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8902 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8903 +else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8904 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8905 + static assert(false, "This module is only valid for LDC");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8906 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8907 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8908 +alias void* va_list;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8909 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8910 +void va_start(T) ( out va_list ap, inout T parmn )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8911 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8912 + // not needed !
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8913 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8914 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8915 +T va_arg(T)(ref va_list vp)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8916 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8917 + T* arg = cast(T*) vp;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8918 + // ldc always aligns to size_t.sizeof in vararg lists
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8919 + vp = cast(va_list) ( cast(void*) vp + ( ( T.sizeof + size_t.sizeof - 1 ) & ~( size_t.sizeof - 1 ) ) );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8920 + return *arg;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8921 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8922 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8923 +void va_end( va_list ap )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8924 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8925 + // not needed !
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8926 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8927 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8928 +void va_copy( out va_list dst, va_list src )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8929 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8930 + // seems pretty useless !
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8931 + dst = src;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8932 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8933 Index: src/compiler/ldc/ldc/bitmanip.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8934 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8935 --- src/compiler/ldc/ldc/bitmanip.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8936 +++ src/compiler/ldc/ldc/bitmanip.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8937 @@ -0,0 +1,81 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8938 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8939 + * D phobos intrinsics for LDC
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8940 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8941 + * From GDC ... public domain!
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8942 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8943 +module ldc.bitmanip;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8944 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8945 +// Check for the right compiler
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8946 +version(LDC)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8947 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8948 + // OK
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8949 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8950 +else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8951 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8952 + static assert(false, "This module is only valid for LDC");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8953 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8954 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8955 +int bsf(uint v)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8956 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8957 + uint m = 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8958 + uint i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8959 + for (i = 0; i < 32; i++,m<<=1) {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8960 + if (v&m)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8961 + return i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8962 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8963 + return i; // supposed to be undefined
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8964 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8965 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8966 +int bsr(uint v)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8967 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8968 + uint m = 0x80000000;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8969 + uint i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8970 + for (i = 32; i ; i--,m>>>=1) {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8971 + if (v&m)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8972 + return i-1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8973 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8974 + return i; // supposed to be undefined
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8975 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8976 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8977 +int bt(uint *p, uint bitnum)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8978 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8979 + return (p[bitnum / (uint.sizeof8)] & (1<<(bitnum & ((uint.sizeof8)-1)))) ? -1 : 0 ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8980 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8981 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8982 +int btc(uint *p, uint bitnum)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8983 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8984 + uint * q = p + (bitnum / (uint.sizeof*8));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8985 + uint mask = 1 << (bitnum & ((uint.sizeof*8) - 1));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8986 + int result = *q & mask;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8987 + *q ^= mask;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8988 + return result ? -1 : 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8989 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8990 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8991 +int btr(uint *p, uint bitnum)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8992 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8993 + uint * q = p + (bitnum / (uint.sizeof*8));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8994 + uint mask = 1 << (bitnum & ((uint.sizeof*8) - 1));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8995 + int result = *q & mask;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8996 + *q &= ~mask;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8997 + return result ? -1 : 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8998 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8999 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9000 +int bts(uint *p, uint bitnum)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9001 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9002 + uint * q = p + (bitnum / (uint.sizeof*8));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9003 + uint mask = 1 << (bitnum & ((uint.sizeof*8) - 1));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9004 + int result = *q & mask;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9005 + *q \|= mask;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9006 + return result ? -1 : 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9007 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9008 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9009 +pragma(intrinsic, "llvm.bswap.i32")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9010 + uint bswap(uint val);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9011 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9012 +ubyte inp(uint p) { throw new Exception("inp intrinsic not yet implemented"); }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9013 +ushort inpw(uint p) { throw new Exception("inpw intrinsic not yet implemented"); }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9014 +uint inpl(uint p) { throw new Exception("inpl intrinsic not yet implemented"); }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9015 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9016 +ubyte outp(uint p, ubyte v) { throw new Exception("outp intrinsic not yet implemented"); }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9017 +ushort outpw(uint p, ushort v) { throw new Exception("outpw intrinsic not yet implemented"); }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9018 +uint outpl(uint p, uint v) { throw new Exception("outpl intrinsic not yet implemented"); }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9019 Index: src/compiler/ldc/aaA.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9020 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9021 --- src/compiler/ldc/aaA.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9022 +++ src/compiler/ldc/aaA.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9023 @@ -0,0 +1,837 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9024 +//_ aaA.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9025 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9026 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9027 + * Part of the D programming language runtime library.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9028 + * Implementation of associative arrays.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9029 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9030 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9031 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9032 + * Copyright (C) 2000-2008 by Digital Mars, www.digitalmars.com
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9033 + * Written by Walter Bright
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9034 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9035 + * This software is provided 'as-is', without any express or implied
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9036 + * warranty. In no event will the authors be held liable for any damages
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9037 + * arising from the use of this software.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9038 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9039 + * Permission is granted to anyone to use this software for any purpose,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9040 + * including commercial applications, and to alter it and redistribute it
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9041 + * freely, subject to the following restrictions:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9042 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9043 + * o The origin of this software must not be misrepresented; you must not
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9044 + * claim that you wrote the original software. If you use this software
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9045 + * in a product, an acknowledgment in the product documentation would be
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9046 + * appreciated but is not required.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9047 + * o Altered source versions must be plainly marked as such, and must not
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9048 + * be misrepresented as being the original software.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9049 + * o This notice may not be removed or altered from any source
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9050 + * distribution.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9051 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9052 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9053 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9054 + * Modified by Sean Kelly <sean@f4.ca> for use with Tango.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9055 + * Modified by Tomas Lindquist Olsen <tomas@famolsen.dk> for use with LDC.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9056 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9057 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9058 +private
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9059 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9060 + version( D_Version2 )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9061 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9062 + import core.stdc.stdarg;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9063 + import core.stdc.string;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9064 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9065 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9066 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9067 + import tango.stdc.stdarg;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9068 + import tango.stdc.string;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9069 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9070 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9071 + enum BlkAttr : uint
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9072 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9073 + FINALIZE = 0b0000_0001,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9074 + NO_SCAN = 0b0000_0010,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9075 + NO_MOVE = 0b0000_0100,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9076 + ALL_BITS = 0b1111_1111
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9077 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9078 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9079 + extern (C) void* gc_malloc( size_t sz, uint ba = 0 );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9080 + extern (C) void* gc_calloc( size_t sz, uint ba = 0 );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9081 + extern (C) void gc_free( void* p );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9082 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9083 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9084 +// Auto-rehash and pre-allocate - Dave Fladebo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9085 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9086 +static size_t[] prime_list = [
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9087 + 97UL, 389UL,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9088 + 1_543UL, 6_151UL,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9089 + 24_593UL, 98_317UL,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9090 + 393_241UL, 1_572_869UL,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9091 + 6_291_469UL, 25_165_843UL,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9092 + 100_663_319UL, 402_653_189UL,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9093 + 1_610_612_741UL, 4_294_967_291UL,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9094 +// 8_589_934_513UL, 17_179_869_143UL
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9095 +];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9096 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9097 +struct aaA
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9098 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9099 + aaA *left;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9100 + aaA *right;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9101 + hash_t hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9102 + /* key */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9103 + /* value */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9104 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9105 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9106 +struct BB
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9107 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9108 + aaA*[] b;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9109 + size_t nodes; // total number of aaA nodes
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9110 + TypeInfo keyti; // TODO: replace this with TypeInfo_AssociativeArray when available in _aaGet()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9111 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9112 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9113 +/* This is the type actually seen by the programmer, although
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9114 + * it is completely opaque.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9115 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9116 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9117 +// LDC doesn't pass structs in registers so no need to wrap it ...
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9118 +alias BB* AA;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9119 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9120 +/**********************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9121 + * Align to next pointer boundary, so that
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9122 + * GC won't be faced with misaligned pointers
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9123 + * in value.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9124 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9125 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9126 +size_t aligntsize(size_t tsize)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9127 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9128 + return (tsize + size_t.sizeof - 1) & ~(size_t.sizeof - 1);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9129 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9130 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9131 +extern (C):
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9132 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9133 +/*************************************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9134 + * Invariant for aa.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9135 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9136 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9137 +/+
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9138 +void _aaInvAh(aaA*[] aa)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9139 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9140 + for (size_t i = 0; i < aa.length; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9141 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9142 + if (aa[i])
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9143 + _aaInvAh_x(aa[i]);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9144 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9145 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9146 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9147 +private int _aaCmpAh_x(aaA e1, aaA e2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9148 +{ int c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9149 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9150 + c = e1.hash - e2.hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9151 + if (c == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9152 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9153 + c = e1.key.length - e2.key.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9154 + if (c == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9155 + c = memcmp((char )e1.key, (char )e2.key, e1.key.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9156 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9157 + return c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9158 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9159 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9160 +private void _aaInvAh_x(aaA *e)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9161 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9162 + hash_t key_hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9163 + aaA *e1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9164 + aaA *e2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9165 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9166 + key_hash = getHash(e.key);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9167 + assert(key_hash == e.hash);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9168 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9169 + while (1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9170 + { int c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9171 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9172 + e1 = e.left;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9173 + if (e1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9174 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9175 + _aaInvAh_x(e1); // ordinary recursion
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9176 + do
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9177 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9178 + c = _aaCmpAh_x(e1, e);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9179 + assert(c < 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9180 + e1 = e1.right;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9181 + } while (e1 != null);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9182 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9183 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9184 + e2 = e.right;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9185 + if (e2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9186 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9187 + do
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9188 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9189 + c = _aaCmpAh_x(e, e2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9190 + assert(c < 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9191 + e2 = e2.left;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9192 + } while (e2 != null);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9193 + e = e.right; // tail recursion
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9194 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9195 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9196 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9197 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9198 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9199 ++/
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9200 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9201 +/****************************************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9202 + * Determine number of entries in associative array.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9203 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9204 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9205 +size_t _aaLen(AA aa)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9206 +in
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9207 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9208 + //printf("_aaLen()+\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9209 + //_aaInv(aa);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9210 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9211 +out (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9212 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9213 + size_t len = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9214 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9215 + void _aaLen_x(aaA* ex)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9216 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9217 + auto e = ex;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9218 + len++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9219 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9220 + while (1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9221 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9222 + if (e.right)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9223 + _aaLen_x(e.right);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9224 + e = e.left;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9225 + if (!e)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9226 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9227 + len++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9228 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9229 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9230 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9231 + if (aa)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9232 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9233 + foreach (e; aa.b)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9234 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9235 + if (e)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9236 + _aaLen_x(e);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9237 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9238 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9239 + assert(len == result);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9240 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9241 + //printf("_aaLen()-\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9242 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9243 +body
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9244 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9245 + return aa ? aa.nodes : 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9246 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9247 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9248 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9249 +/*************************************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9250 + * Get pointer to value in associative array indexed by key.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9251 + * Add entry for key if it is not already there.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9252 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9253 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9254 +void* _aaGet(AA* aa_arg, TypeInfo keyti, size_t valuesize, void* pkey)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9255 +in
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9256 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9257 + assert(aa_arg);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9258 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9259 +out (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9260 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9261 + assert(result);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9262 + assert(*aa_arg);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9263 + assert((*aa_arg).b.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9264 + //assert(_aaInAh(*aa, key));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9265 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9266 +body
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9267 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9268 + //auto pkey = cast(void *)(&valuesize + 1);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9269 + size_t i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9270 + aaA *e;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9271 + auto keysize = aligntsize(keyti.tsize());
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9272 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9273 + if (!*aa_arg)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9274 + *aa_arg = new BB();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9275 + auto aa = *aa_arg;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9276 + aa.keyti = keyti;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9277 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9278 + if (!aa.b.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9279 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9280 + alias aaA *pa;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9281 + auto len = prime_list[0];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9282 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9283 + aa.b = new pa[len];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9284 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9285 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9286 + auto key_hash = keyti.getHash(pkey);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9287 + //printf("hash = %d\n", key_hash);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9288 + i = key_hash % aa.b.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9289 + auto pe = &aa.b[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9290 + while ((e = *pe) !is null)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9291 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9292 + if (key_hash == e.hash)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9293 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9294 + auto c = keyti.compare(pkey, e + 1);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9295 + if (c == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9296 + goto Lret;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9297 + pe = (c < 0) ? &e.left : &e.right;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9298 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9299 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9300 + pe = (key_hash < e.hash) ? &e.left : &e.right;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9301 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9302 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9303 + // Not found, create new elem
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9304 + //printf("create new one\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9305 + size_t size = aaA.sizeof + keysize + valuesize;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9306 + e = cast(aaA *) gc_calloc(size);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9307 + memcpy(e + 1, pkey, keysize);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9308 + e.hash = key_hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9309 + *pe = e;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9310 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9311 + auto nodes = ++aa.nodes;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9312 + //printf("length = %d, nodes = %d\n", (*aa).length, nodes);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9313 + if (nodes > aa.b.length * 4)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9314 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9315 + _aaRehash(aa_arg,keyti);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9316 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9317 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9318 +Lret:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9319 + return cast(void *)(e + 1) + keysize;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9320 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9321 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9322 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9323 +/*************************************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9324 + * Get pointer to value in associative array indexed by key.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9325 + * Returns null if it is not already there.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9326 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9327 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9328 +void* _aaGetRvalue(AA aa, TypeInfo keyti, size_t valuesize, void *pkey)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9329 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9330 + //printf("_aaGetRvalue(valuesize = %u)\n", valuesize);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9331 + if (!aa)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9332 + return null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9333 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9334 + //auto pkey = cast(void *)(&valuesize + 1);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9335 + auto keysize = aligntsize(keyti.tsize());
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9336 + auto len = aa.b.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9337 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9338 + if (len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9339 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9340 + auto key_hash = keyti.getHash(pkey);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9341 + //printf("hash = %d\n", key_hash);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9342 + size_t i = key_hash % len;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9343 + auto e = aa.b[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9344 + while (e !is null)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9345 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9346 + if (key_hash == e.hash)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9347 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9348 + auto c = keyti.compare(pkey, e + 1);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9349 + if (c == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9350 + return cast(void *)(e + 1) + keysize;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9351 + e = (c < 0) ? e.left : e.right;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9352 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9353 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9354 + e = (key_hash < e.hash) ? e.left : e.right;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9355 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9356 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9357 + return null; // not found, caller will throw exception
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9358 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9359 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9360 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9361 +/*************************************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9362 + * Determine if key is in aa.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9363 + * Returns:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9364 + * null not in aa
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9365 + * !=null in aa, return pointer to value
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9366 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9367 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9368 +void* _aaIn(AA aa, TypeInfo keyti, void *pkey)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9369 +in
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9370 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9371 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9372 +out (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9373 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9374 + //assert(result == 0 \|\| result == 1);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9375 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9376 +body
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9377 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9378 + if (aa)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9379 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9380 + //auto pkey = cast(void *)(&keyti + 1);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9381 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9382 + //printf("_aaIn(), .length = %d, .ptr = %x\n", aa.length, cast(uint)aa.ptr);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9383 + auto len = aa.b.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9384 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9385 + if (len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9386 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9387 + auto key_hash = keyti.getHash(pkey);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9388 + //printf("hash = %d\n", key_hash);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9389 + size_t i = key_hash % len;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9390 + auto e = aa.b[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9391 + while (e !is null)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9392 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9393 + if (key_hash == e.hash)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9394 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9395 + auto c = keyti.compare(pkey, e + 1);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9396 + if (c == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9397 + return cast(void *)(e + 1) + aligntsize(keyti.tsize());
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9398 + e = (c < 0) ? e.left : e.right;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9399 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9400 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9401 + e = (key_hash < e.hash) ? e.left : e.right;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9402 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9403 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9404 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9405 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9406 + // Not found
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9407 + return null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9408 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9409 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9410 +/*************************************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9411 + * Delete key entry in aa[].
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9412 + * If key is not in aa[], do nothing.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9413 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9414 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9415 +void _aaDel(AA aa, TypeInfo keyti, void *pkey)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9416 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9417 + //auto pkey = cast(void *)(&keyti + 1);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9418 + aaA *e;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9419 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9420 + if (aa && aa.b.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9421 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9422 + auto key_hash = keyti.getHash(pkey);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9423 + //printf("hash = %d\n", key_hash);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9424 + size_t i = key_hash % aa.b.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9425 + auto pe = &aa.b[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9426 + while ((e = *pe) !is null) // null means not found
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9427 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9428 + if (key_hash == e.hash)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9429 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9430 + auto c = keyti.compare(pkey, e + 1);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9431 + if (c == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9432 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9433 + if (!e.left && !e.right)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9434 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9435 + *pe = null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9436 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9437 + else if (e.left && !e.right)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9438 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9439 + *pe = e.left;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9440 + e.left = null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9441 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9442 + else if (!e.left && e.right)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9443 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9444 + *pe = e.right;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9445 + e.right = null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9446 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9447 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9448 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9449 + *pe = e.left;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9450 + e.left = null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9451 + do
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9452 + pe = &(*pe).right;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9453 + while (*pe);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9454 + *pe = e.right;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9455 + e.right = null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9456 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9457 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9458 + aa.nodes--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9459 + gc_free(e);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9460 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9461 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9462 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9463 + pe = (c < 0) ? &e.left : &e.right;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9464 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9465 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9466 + pe = (key_hash < e.hash) ? &e.left : &e.right;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9467 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9468 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9469 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9470 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9471 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9472 +/********************************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9473 + * Produce array of values from aa.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9474 + * The actual type is painted on the return value by the frontend
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9475 + * This means the returned length should be the number of elements
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9476 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9477 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9478 +void[] _aaValues(AA aa, size_t keysize, size_t valuesize)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9479 +in
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9480 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9481 + assert(keysize == aligntsize(keysize));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9482 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9483 +body
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9484 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9485 + size_t resi;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9486 + void[] a;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9487 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9488 + void _aaValues_x(aaA* e)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9489 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9490 + do
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9491 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9492 + memcpy(a.ptr + resi * valuesize,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9493 + cast(byte*)e + aaA.sizeof + keysize,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9494 + valuesize);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9495 + resi++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9496 + if (e.left)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9497 + { if (!e.right)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9498 + { e = e.left;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9499 + continue;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9500 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9501 + _aaValues_x(e.left);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9502 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9503 + e = e.right;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9504 + } while (e !is null);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9505 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9506 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9507 + if (aa)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9508 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9509 + auto len = _aaLen(aa);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9510 + auto ptr = cast(byte) gc_malloc(len valuesize,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9511 + valuesize < (void*).sizeof ? BlkAttr.NO_SCAN : 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9512 + a = ptr[0 .. len];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9513 + resi = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9514 + foreach (e; aa.b)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9515 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9516 + if (e)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9517 + _aaValues_x(e);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9518 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9519 + assert(resi == a.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9520 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9521 + return a;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9522 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9523 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9524 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9525 +/********************************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9526 + * Rehash an array.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9527 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9528 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9529 +void* _aaRehash(AA* paa, TypeInfo keyti)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9530 +in
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9531 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9532 + //_aaInvAh(paa);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9533 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9534 +out (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9535 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9536 + //_aaInvAh(result);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9537 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9538 +body
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9539 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9540 + BB newb;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9541 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9542 + void _aaRehash_x(aaA* olde)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9543 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9544 + while (1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9545 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9546 + auto left = olde.left;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9547 + auto right = olde.right;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9548 + olde.left = null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9549 + olde.right = null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9550 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9551 + aaA *e;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9552 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9553 + //printf("rehash %p\n", olde);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9554 + auto key_hash = olde.hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9555 + size_t i = key_hash % newb.b.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9556 + auto pe = &newb.b[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9557 + while ((e = *pe) !is null)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9558 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9559 + //printf("\te = %p, e.left = %p, e.right = %p\n", e, e.left, e.right);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9560 + assert(e.left != e);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9561 + assert(e.right != e);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9562 + if (key_hash == e.hash)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9563 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9564 + auto c = keyti.compare(olde + 1, e + 1);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9565 + assert(c != 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9566 + pe = (c < 0) ? &e.left : &e.right;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9567 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9568 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9569 + pe = (key_hash < e.hash) ? &e.left : &e.right;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9570 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9571 + *pe = olde;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9572 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9573 + if (right)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9574 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9575 + if (!left)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9576 + { olde = right;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9577 + continue;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9578 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9579 + _aaRehash_x(right);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9580 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9581 + if (!left)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9582 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9583 + olde = left;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9584 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9585 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9586 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9587 + //printf("Rehash\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9588 + if (*paa)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9589 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9590 + auto aa = *paa;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9591 + auto len = _aaLen(aa);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9592 + if (len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9593 + { size_t i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9594 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9595 + for (i = 0; i < prime_list.length - 1; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9596 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9597 + if (len <= prime_list[i])
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9598 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9599 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9600 + len = prime_list[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9601 + newb.b = new aaA*[len];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9602 + newb.keyti = keyti;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9603 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9604 + foreach (e; aa.b)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9605 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9606 + if (e)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9607 + _aaRehash_x(e);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9608 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9609 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9610 + newb.nodes = (*aa).nodes;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9611 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9612 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9613 + **paa = newb;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9614 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9615 + return *paa;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9616 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9617 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9618 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9619 +/********************************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9620 + * Produce array of N byte keys from aa.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9621 + * The actual type is painted on the return value by the frontend
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9622 + * This means the returned length should be the number of elements
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9623 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9624 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9625 +void[] _aaKeys(AA aa, size_t keysize)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9626 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9627 + byte[] res;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9628 + size_t resi;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9629 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9630 + void _aaKeys_x(aaA* e)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9631 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9632 + do
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9633 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9634 + memcpy(&res[resi * keysize], cast(byte*)(e + 1), keysize);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9635 + resi++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9636 + if (e.left)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9637 + { if (!e.right)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9638 + { e = e.left;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9639 + continue;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9640 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9641 + _aaKeys_x(e.left);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9642 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9643 + e = e.right;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9644 + } while (e !is null);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9645 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9646 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9647 + auto len = _aaLen(aa);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9648 + if (!len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9649 + return null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9650 + res = (cast(byte) gc_malloc(len keysize,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9651 + !(aa.keyti.flags() & 1) ? BlkAttr.NO_SCAN : 0)) [0 .. len * keysize];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9652 + resi = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9653 + foreach (e; aa.b)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9654 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9655 + if (e)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9656 + _aaKeys_x(e);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9657 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9658 + assert(resi == len);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9659 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9660 + return res.ptr[0 .. len];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9661 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9662 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9663 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9664 +/**********************************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9665 + * 'apply' for associative arrays - to support foreach
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9666 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9667 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9668 +// dg is D, but _aaApply() is C
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9669 +extern (D) typedef int delegate(void *) dg_t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9670 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9671 +int _aaApply(AA aa, size_t keysize, dg_t dg)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9672 +in
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9673 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9674 + assert(aligntsize(keysize) == keysize);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9675 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9676 +body
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9677 +{ int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9678 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9679 + //printf("_aaApply(aa = x%llx, keysize = %d, dg = x%llx)\n", aa, keysize, dg);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9680 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9681 + int treewalker(aaA* e)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9682 + { int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9683 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9684 + do
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9685 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9686 + //printf("treewalker(e = %p, dg = x%llx)\n", e, dg);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9687 + result = dg(cast(void *)(e + 1) + keysize);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9688 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9689 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9690 + if (e.right)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9691 + { if (!e.left)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9692 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9693 + e = e.right;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9694 + continue;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9695 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9696 + result = treewalker(e.right);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9697 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9698 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9699 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9700 + e = e.left;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9701 + } while (e);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9702 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9703 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9704 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9705 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9706 + if (aa)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9707 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9708 + foreach (e; aa.b)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9709 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9710 + if (e)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9711 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9712 + result = treewalker(e);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9713 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9714 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9715 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9716 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9717 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9718 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9719 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9720 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9721 +// dg is D, but _aaApply2() is C
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9722 +extern (D) typedef int delegate(void , void ) dg2_t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9723 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9724 +int _aaApply2(AA aa, size_t keysize, dg2_t dg)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9725 +in
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9726 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9727 + assert(aligntsize(keysize) == keysize);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9728 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9729 +body
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9730 +{ int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9731 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9732 + //printf("_aaApply(aa = x%llx, keysize = %d, dg = x%llx)\n", aa, keysize, dg);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9733 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9734 + int treewalker(aaA* e)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9735 + { int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9736 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9737 + do
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9738 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9739 + //printf("treewalker(e = %p, dg = x%llx)\n", e, dg);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9740 + result = dg(cast(void )(e + 1), cast(void )(e + 1) + keysize);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9741 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9742 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9743 + if (e.right)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9744 + { if (!e.left)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9745 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9746 + e = e.right;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9747 + continue;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9748 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9749 + result = treewalker(e.right);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9750 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9751 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9752 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9753 + e = e.left;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9754 + } while (e);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9755 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9756 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9757 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9758 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9759 + if (aa)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9760 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9761 + foreach (e; aa.b)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9762 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9763 + if (e)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9764 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9765 + result = treewalker(e);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9766 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9767 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9768 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9769 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9770 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9771 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9772 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9773 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9774 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9775 +/***********************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9776 + * Construct an associative array of type ti from
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9777 + * length pairs of key/value pairs.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9778 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9779 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9780 +/+
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9781 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9782 +extern (C)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9783 +BB* _d_assocarrayliteralT(TypeInfo_AssociativeArray ti, size_t length, ...)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9784 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9785 + auto valuesize = ti.next.tsize(); // value size
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9786 + auto keyti = ti.key;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9787 + auto keysize = keyti.tsize(); // key size
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9788 + BB* result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9789 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9790 + //printf("_d_assocarrayliteralT(keysize = %d, valuesize = %d, length = %d)\n", keysize, valuesize, length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9791 + //printf("tivalue = %.*s\n", ti.next.classinfo.name);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9792 + if (length == 0 \|\| valuesize == 0 \|\| keysize == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9793 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9794 + ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9795 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9796 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9797 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9798 + va_list q;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9799 + va_start!(size_t)(q, length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9800 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9801 + result = new BB();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9802 + size_t i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9803 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9804 + for (i = 0; i < prime_list.length - 1; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9805 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9806 + if (length <= prime_list[i])
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9807 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9808 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9809 + auto len = prime_list[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9810 + result.b = new aaA*[len];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9811 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9812 + size_t keystacksize = (keysize + int.sizeof - 1) & ~(int.sizeof - 1);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9813 + size_t valuestacksize = (valuesize + int.sizeof - 1) & ~(int.sizeof - 1);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9814 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9815 + size_t keytsize = aligntsize(keysize);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9816 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9817 + for (size_t j = 0; j < length; j++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9818 + { void* pkey = q;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9819 + q += keystacksize;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9820 + void* pvalue = q;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9821 + q += valuestacksize;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9822 + aaA* e;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9823 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9824 + auto key_hash = keyti.getHash(pkey);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9825 + //printf("hash = %d\n", key_hash);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9826 + i = key_hash % len;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9827 + auto pe = &result.b[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9828 + while (1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9829 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9830 + e = *pe;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9831 + if (!e)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9832 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9833 + // Not found, create new elem
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9834 + //printf("create new one\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9835 + e = cast(aaA ) cast(void) new void[aaA.sizeof + keytsize + valuesize];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9836 + memcpy(e + 1, pkey, keysize);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9837 + e.hash = key_hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9838 + *pe = e;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9839 + result.nodes++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9840 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9841 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9842 + if (key_hash == e.hash)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9843 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9844 + auto c = keyti.compare(pkey, e + 1);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9845 + if (c == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9846 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9847 + pe = (c < 0) ? &e.left : &e.right;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9848 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9849 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9850 + pe = (key_hash < e.hash) ? &e.left : &e.right;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9851 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9852 + memcpy(cast(void *)(e + 1) + keytsize, pvalue, valuesize);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9853 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9854 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9855 + va_end(q);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9856 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9857 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9858 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9859 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9860 ++/
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9861 Index: src/compiler/ldc/aApply.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9862 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9863 --- src/compiler/ldc/aApply.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9864 +++ src/compiler/ldc/aApply.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9865 @@ -0,0 +1,414 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9866 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9867 + * Part of the D programming language runtime library.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9868 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9869 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9870 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9871 + * Copyright (C) 2004-2006 by Digital Mars, www.digitalmars.com
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9872 + * Written by Walter Bright
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9873 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9874 + * This software is provided 'as-is', without any express or implied
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9875 + * warranty. In no event will the authors be held liable for any damages
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9876 + * arising from the use of this software.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9877 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9878 + * Permission is granted to anyone to use this software for any purpose,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9879 + * including commercial applications, and to alter it and redistribute it
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9880 + * freely, in both source and binary form, subject to the following
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9881 + * restrictions:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9882 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9883 + * o The origin of this software must not be misrepresented; you must not
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9884 + * claim that you wrote the original software. If you use this software
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9885 + * in a product, an acknowledgment in the product documentation would be
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9886 + * appreciated but is not required.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9887 + * o Altered source versions must be plainly marked as such, and must not
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9888 + * be misrepresented as being the original software.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9889 + * o This notice may not be removed or altered from any source
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9890 + * distribution.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9891 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9892 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9893 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9894 + * Modified by Sean Kelly <sean@f4.ca> for use with Tango.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9895 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9896 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9897 +/* This code handles decoding UTF strings for foreach loops.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9898 + * There are 6 combinations of conversions between char, wchar,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9899 + * and dchar, and 2 of each of those.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9900 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9901 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9902 +private import util.utf;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9903 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9904 +//debug = apply;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9905 +debug(apply)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9906 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9907 + extern(C) int printf(char*, ...);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9908 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9909 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9910 +/**********************************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9911 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9912 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9913 +// dg is D, but _aApplycd() is C
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9914 +extern (D) typedef int delegate(void *) dg_t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9915 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9916 +extern (C) int _aApplycd1(char[] aa, dg_t dg)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9917 +{ int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9918 + size_t i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9919 + size_t len = aa.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9920 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9921 + debug(apply) printf("_aApplycd1(), len = %d\n", len);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9922 + for (i = 0; i < len; )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9923 + { dchar d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9924 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9925 + d = aa[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9926 + if (d & 0x80)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9927 + d = decode(aa, i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9928 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9929 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9930 + result = dg(cast(void *)&d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9931 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9932 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9933 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9934 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9935 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9936 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9937 +extern (C) int _aApplywd1(wchar[] aa, dg_t dg)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9938 +{ int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9939 + size_t i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9940 + size_t len = aa.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9941 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9942 + debug(apply) printf("_aApplywd1(), len = %d\n", len);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9943 + for (i = 0; i < len; )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9944 + { dchar d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9945 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9946 + d = aa[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9947 + if (d & ~0x7F)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9948 + d = decode(aa, i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9949 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9950 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9951 + result = dg(cast(void *)&d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9952 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9953 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9954 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9955 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9956 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9957 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9958 +extern (C) int _aApplycw1(char[] aa, dg_t dg)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9959 +{ int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9960 + size_t i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9961 + size_t len = aa.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9962 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9963 + debug(apply) printf("_aApplycw1(), len = %d\n", len);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9964 + for (i = 0; i < len; )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9965 + { dchar d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9966 + wchar w;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9967 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9968 + w = aa[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9969 + if (w & 0x80)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9970 + { d = decode(aa, i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9971 + if (d <= 0xFFFF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9972 + w = cast(wchar) d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9973 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9974 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9975 + w = cast(wchar)((((d - 0x10000) >> 10) & 0x3FF) + 0xD800);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9976 + result = dg(cast(void *)&w);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9977 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9978 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9979 + w = cast(wchar)(((d - 0x10000) & 0x3FF) + 0xDC00);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9980 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9981 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9982 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9983 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9984 + result = dg(cast(void *)&w);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9985 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9986 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9987 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9988 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9989 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9990 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9991 +extern (C) int _aApplywc1(wchar[] aa, dg_t dg)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9992 +{ int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9993 + size_t i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9994 + size_t len = aa.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9995 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9996 + debug(apply) printf("_aApplywc1(), len = %d\n", len);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9997 + for (i = 0; i < len; )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9998 + { dchar d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9999 + wchar w;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10000 + char c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10001 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10002 + w = aa[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10003 + if (w & ~0x7F)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10004 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10005 + char[4] buf;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10006 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10007 + d = decode(aa, i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10008 + auto b = toUTF8(buf, d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10009 + foreach (char c2; b)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10010 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10011 + result = dg(cast(void *)&c2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10012 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10013 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10014 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10015 + continue;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10016 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10017 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10018 + { c = cast(char)w;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10019 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10020 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10021 + result = dg(cast(void *)&c);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10022 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10023 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10024 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10025 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10026 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10027 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10028 +extern (C) int _aApplydc1(dchar[] aa, dg_t dg)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10029 +{ int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10030 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10031 + debug(apply) printf("_aApplydc1(), len = %d\n", aa.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10032 + foreach (dchar d; aa)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10033 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10034 + char c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10035 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10036 + if (d & ~0x7F)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10037 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10038 + char[4] buf;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10039 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10040 + auto b = toUTF8(buf, d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10041 + foreach (char c2; b)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10042 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10043 + result = dg(cast(void *)&c2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10044 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10045 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10046 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10047 + continue;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10048 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10049 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10050 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10051 + c = cast(char)d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10052 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10053 + result = dg(cast(void *)&c);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10054 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10055 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10056 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10057 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10058 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10059 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10060 +extern (C) int _aApplydw1(dchar[] aa, dg_t dg)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10061 +{ int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10062 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10063 + debug(apply) printf("_aApplydw1(), len = %d\n", aa.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10064 + foreach (dchar d; aa)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10065 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10066 + wchar w;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10067 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10068 + if (d <= 0xFFFF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10069 + w = cast(wchar) d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10070 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10071 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10072 + w = cast(wchar)((((d - 0x10000) >> 10) & 0x3FF) + 0xD800);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10073 + result = dg(cast(void *)&w);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10074 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10075 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10076 + w = cast(wchar)(((d - 0x10000) & 0x3FF) + 0xDC00);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10077 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10078 + result = dg(cast(void *)&w);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10079 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10080 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10081 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10082 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10083 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10084 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10085 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10086 +/****************************************************************************/
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10087 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10088 +// dg is D, but _aApplycd2() is C
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10089 +extern (D) typedef int delegate(void , void ) dg2_t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10090 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10091 +extern (C) int _aApplycd2(char[] aa, dg2_t dg)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10092 +{ int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10093 + size_t i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10094 + size_t n;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10095 + size_t len = aa.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10096 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10097 + debug(apply) printf("_aApplycd2(), len = %d\n", len);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10098 + for (i = 0; i < len; i += n)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10099 + { dchar d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10100 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10101 + d = aa[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10102 + if (d & 0x80)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10103 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10104 + n = i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10105 + d = decode(aa, n);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10106 + n -= i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10107 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10108 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10109 + n = 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10110 + result = dg(&i, cast(void *)&d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10111 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10112 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10113 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10114 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10115 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10116 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10117 +extern (C) int _aApplywd2(wchar[] aa, dg2_t dg)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10118 +{ int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10119 + size_t i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10120 + size_t n;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10121 + size_t len = aa.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10122 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10123 + debug(apply) printf("_aApplywd2(), len = %d\n", len);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10124 + for (i = 0; i < len; i += n)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10125 + { dchar d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10126 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10127 + d = aa[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10128 + if (d & ~0x7F)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10129 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10130 + n = i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10131 + d = decode(aa, n);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10132 + n -= i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10133 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10134 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10135 + n = 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10136 + result = dg(&i, cast(void *)&d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10137 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10138 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10139 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10140 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10141 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10142 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10143 +extern (C) int _aApplycw2(char[] aa, dg2_t dg)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10144 +{ int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10145 + size_t i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10146 + size_t n;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10147 + size_t len = aa.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10148 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10149 + debug(apply) printf("_aApplycw2(), len = %d\n", len);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10150 + for (i = 0; i < len; i += n)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10151 + { dchar d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10152 + wchar w;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10153 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10154 + w = aa[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10155 + if (w & 0x80)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10156 + { n = i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10157 + d = decode(aa, n);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10158 + n -= i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10159 + if (d <= 0xFFFF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10160 + w = cast(wchar) d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10161 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10162 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10163 + w = cast(wchar) ((((d - 0x10000) >> 10) & 0x3FF) + 0xD800);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10164 + result = dg(&i, cast(void *)&w);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10165 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10166 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10167 + w = cast(wchar) (((d - 0x10000) & 0x3FF) + 0xDC00);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10168 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10169 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10170 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10171 + n = 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10172 + result = dg(&i, cast(void *)&w);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10173 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10174 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10175 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10176 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10177 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10178 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10179 +extern (C) int _aApplywc2(wchar[] aa, dg2_t dg)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10180 +{ int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10181 + size_t i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10182 + size_t n;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10183 + size_t len = aa.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10184 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10185 + debug(apply) printf("_aApplywc2(), len = %d\n", len);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10186 + for (i = 0; i < len; i += n)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10187 + { dchar d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10188 + wchar w;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10189 + char c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10190 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10191 + w = aa[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10192 + if (w & ~0x7F)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10193 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10194 + char[4] buf;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10195 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10196 + n = i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10197 + d = decode(aa, n);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10198 + n -= i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10199 + auto b = toUTF8(buf, d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10200 + foreach (char c2; b)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10201 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10202 + result = dg(&i, cast(void *)&c2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10203 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10204 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10205 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10206 + continue;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10207 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10208 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10209 + { c = cast(char)w;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10210 + n = 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10211 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10212 + result = dg(&i, cast(void *)&c);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10213 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10214 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10215 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10216 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10217 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10218 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10219 +extern (C) int _aApplydc2(dchar[] aa, dg2_t dg)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10220 +{ int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10221 + size_t i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10222 + size_t len = aa.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10223 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10224 + debug(apply) printf("_aApplydc2(), len = %d\n", len);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10225 + for (i = 0; i < len; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10226 + { dchar d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10227 + char c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10228 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10229 + d = aa[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10230 + debug(apply) printf("d = %u\n", d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10231 + if (d & ~0x7F)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10232 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10233 + char[4] buf;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10234 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10235 + auto b = toUTF8(buf, d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10236 + foreach (char c2; b)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10237 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10238 + debug(apply) printf("c2 = %d\n", c2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10239 + result = dg(&i, cast(void *)&c2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10240 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10241 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10242 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10243 + continue;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10244 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10245 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10246 + { c = cast(char)d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10247 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10248 + result = dg(&i, cast(void *)&c);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10249 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10250 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10251 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10252 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10253 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10254 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10255 +extern (C) int _aApplydw2(dchar[] aa, dg2_t dg)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10256 +{ int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10257 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10258 + debug(apply) printf("_aApplydw2(), len = %d\n", aa.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10259 + foreach (size_t i, dchar d; aa)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10260 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10261 + wchar w;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10262 + auto j = i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10263 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10264 + if (d <= 0xFFFF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10265 + w = cast(wchar) d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10266 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10267 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10268 + w = cast(wchar) ((((d - 0x10000) >> 10) & 0x3FF) + 0xD800);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10269 + result = dg(&j, cast(void *)&w);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10270 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10271 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10272 + w = cast(wchar) (((d - 0x10000) & 0x3FF) + 0xDC00);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10273 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10274 + result = dg(&j, cast(void *)&w);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10275 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10276 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10277 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10278 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10279 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10280 Index: src/compiler/ldc/monitor.c
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10281 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10282 --- src/compiler/ldc/monitor.c (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10283 +++ src/compiler/ldc/monitor.c (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10284 @@ -0,0 +1,212 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10285 +// D programming language runtime library
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10286 +// Public Domain
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10287 +// written by Walter Bright, Digital Mars
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10288 +// www.digitalmars.com
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10289 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10290 +// This is written in C because nobody has written a pthreads interface
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10291 +// to D yet.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10292 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10293 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10294 +#include <stdio.h>
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10295 +#include <stdlib.h>
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10296 +#include <assert.h>
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10297 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10298 +#if _WIN32
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10299 +#elif linux \|\| __APPLE__
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10300 +#define USE_PTHREADS 1
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10301 +#else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10302 +#endif
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10303 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10304 +#if _WIN32
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10305 +#include <windows.h>
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10306 +#endif
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10307 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10308 +#if USE_PTHREADS
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10309 +#include <pthread.h>
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10310 +#endif
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10311 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10312 +#include "mars.h"
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10313 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10314 +// This is what the monitor reference in Object points to
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10315 +typedef struct Monitor
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10316 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10317 + void* impl; // for user-level monitors
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10318 + Array devt; // for internal monitors
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10319 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10320 +#if _WIN32
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10321 + CRITICAL_SECTION mon;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10322 +#endif
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10323 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10324 +#if USE_PTHREADS
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10325 + pthread_mutex_t mon;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10326 +#endif
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10327 +} Monitor;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10328 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10329 +#define MONPTR(h) (&((Monitor *)(h)->monitor)->mon)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10330 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10331 +static volatile int inited;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10332 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10333 +/* =============================== Win32 ============================ */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10334 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10335 +#if _WIN32
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10336 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10337 +static CRITICAL_SECTION _monitor_critsec;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10338 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10339 +void _STI_monitor_staticctor()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10340 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10341 + if (!inited)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10342 + { InitializeCriticalSection(&_monitor_critsec);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10343 + inited = 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10344 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10345 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10346 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10347 +void _STD_monitor_staticdtor()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10348 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10349 + if (inited)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10350 + { inited = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10351 + DeleteCriticalSection(&_monitor_critsec);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10352 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10353 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10354 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10355 +void _d_monitor_create(Object *h)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10356 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10357 + /*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10358 + * NOTE: Assume this is only called when h->monitor is null prior to the
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10359 + * call. However, please note that another thread may call this function
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10360 + * at the same time, so we can not assert this here. Instead, try and
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10361 + * create a lock, and if one already exists then forget about it.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10362 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10363 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10364 + //printf("+_d_monitor_create(%p)\n", h);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10365 + assert(h);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10366 + Monitor *cs = NULL;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10367 + EnterCriticalSection(&_monitor_critsec);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10368 + if (!h->monitor)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10369 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10370 + cs = (Monitor *)calloc(sizeof(Monitor), 1);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10371 + assert(cs);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10372 + InitializeCriticalSection(&cs->mon);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10373 + h->monitor = (void *)cs;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10374 + cs = NULL;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10375 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10376 + LeaveCriticalSection(&_monitor_critsec);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10377 + if (cs)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10378 + free(cs);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10379 + //printf("-_d_monitor_create(%p)\n", h);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10380 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10381 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10382 +void _d_monitor_destroy(Object *h)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10383 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10384 + //printf("+_d_monitor_destroy(%p)\n", h);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10385 + assert(h && h->monitor && !(((Monitor*)h->monitor)->impl));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10386 + DeleteCriticalSection(MONPTR(h));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10387 + free((void *)h->monitor);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10388 + h->monitor = NULL;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10389 + //printf("-_d_monitor_destroy(%p)\n", h);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10390 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10391 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10392 +int _d_monitor_lock(Object *h)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10393 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10394 + //printf("+_d_monitor_acquire(%p)\n", h);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10395 + assert(h && h->monitor && !(((Monitor*)h->monitor)->impl));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10396 + EnterCriticalSection(MONPTR(h));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10397 + //printf("-_d_monitor_acquire(%p)\n", h);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10398 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10399 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10400 +void _d_monitor_unlock(Object *h)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10401 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10402 + //printf("+_d_monitor_release(%p)\n", h);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10403 + assert(h && h->monitor && !(((Monitor*)h->monitor)->impl));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10404 + LeaveCriticalSection(MONPTR(h));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10405 + //printf("-_d_monitor_release(%p)\n", h);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10406 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10407 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10408 +#endif
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10409 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10410 +/* =============================== linux ============================ */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10411 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10412 +#if USE_PTHREADS
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10413 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10414 +#if !linux
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10415 +#define PTHREAD_MUTEX_RECURSIVE_NP PTHREAD_MUTEX_RECURSIVE
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10416 +#endif
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10417 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10418 +// Includes attribute fixes from David Friedman's GDC port
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10419 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10420 +static pthread_mutex_t _monitor_critsec;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10421 +static pthread_mutexattr_t _monitors_attr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10422 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10423 +void _STI_monitor_staticctor()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10424 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10425 + if (!inited)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10426 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10427 + pthread_mutexattr_init(&_monitors_attr);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10428 + pthread_mutexattr_settype(&_monitors_attr, PTHREAD_MUTEX_RECURSIVE_NP);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10429 + pthread_mutex_init(&_monitor_critsec, 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10430 + inited = 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10431 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10432 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10433 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10434 +void _STD_monitor_staticdtor()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10435 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10436 + if (inited)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10437 + { inited = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10438 + pthread_mutex_destroy(&_monitor_critsec);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10439 + pthread_mutexattr_destroy(&_monitors_attr);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10440 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10441 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10442 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10443 +void _d_monitor_create(Object *h)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10444 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10445 + /*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10446 + * NOTE: Assume this is only called when h->monitor is null prior to the
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10447 + * call. However, please note that another thread may call this function
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10448 + * at the same time, so we can not assert this here. Instead, try and
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10449 + * create a lock, and if one already exists then forget about it.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10450 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10451 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10452 + //printf("+_d_monitor_create(%p)\n", h);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10453 + assert(h);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10454 + Monitor *cs = NULL;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10455 + pthread_mutex_lock(&_monitor_critsec);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10456 + if (!h->monitor)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10457 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10458 + cs = (Monitor *)calloc(sizeof(Monitor), 1);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10459 + assert(cs);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10460 + pthread_mutex_init(&cs->mon, & _monitors_attr);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10461 + h->monitor = (void *)cs;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10462 + cs = NULL;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10463 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10464 + pthread_mutex_unlock(&_monitor_critsec);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10465 + if (cs)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10466 + free(cs);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10467 + //printf("-_d_monitor_create(%p)\n", h);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10468 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10469 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10470 +void _d_monitor_destroy(Object *h)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10471 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10472 + //printf("+_d_monitor_destroy(%p)\n", h);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10473 + assert(h && h->monitor && !(((Monitor*)h->monitor)->impl));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10474 + pthread_mutex_destroy(MONPTR(h));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10475 + free((void *)h->monitor);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10476 + h->monitor = NULL;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10477 + //printf("-_d_monitor_destroy(%p)\n", h);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10478 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10479 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10480 +int _d_monitor_lock(Object *h)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10481 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10482 + //printf("+_d_monitor_acquire(%p)\n", h);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10483 + assert(h && h->monitor && !(((Monitor*)h->monitor)->impl));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10484 + pthread_mutex_lock(MONPTR(h));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10485 + //printf("-_d_monitor_acquire(%p)\n", h);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10486 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10487 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10488 +void _d_monitor_unlock(Object *h)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10489 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10490 + //printf("+_d_monitor_release(%p)\n", h);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10491 + assert(h && h->monitor && !(((Monitor*)h->monitor)->impl));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10492 + pthread_mutex_unlock(MONPTR(h));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10493 + //printf("-_d_monitor_release(%p)\n", h);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10494 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10495 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10496 +#endif
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10497 Index: src/compiler/ldc/ldc.mak
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10498 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10499 --- src/compiler/ldc/ldc.mak (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10500 +++ src/compiler/ldc/ldc.mak (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10501 @@ -0,0 +1,166 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10502 +# Makefile to build the compiler runtime D library for Linux
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10503 +# Designed to work with GNU make
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10504 +# Targets:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10505 +# make
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10506 +# Same as make all
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10507 +# make lib
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10508 +# Build the compiler runtime library
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10509 +# make doc
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10510 +# Generate documentation
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10511 +# make clean
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10512 +# Delete unneeded files created by build process
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10513 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10514 +LIB_TARGET=libdruntime-rt-ldc.a
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10515 +LIB_MASK=libdruntime-rt-ldc*.a
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10516 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10517 +CP=cp -f
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10518 +RM=rm -f
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10519 +MD=mkdir -p
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10520 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10521 +#CFLAGS=-O $(ADD_CFLAGS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10522 +CFLAGS=-g $(ADD_CFLAGS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10523 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10524 +#DFLAGS=-release -O -inline -w $(ADD_DFLAGS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10525 +DFLAGS=-g -w $(ADD_DFLAGS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10526 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10527 +#TFLAGS=-O -inline -w $(ADD_DFLAGS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10528 +TFLAGS=-g -w $(ADD_DFLAGS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10529 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10530 +DOCFLAGS=-version=DDoc
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10531 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10532 +CC=gcc
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10533 +LC=$(AR) -qsv
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10534 +DC=ldc2
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10535 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10536 +LIB_DEST=../../../lib
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10537 +IMPORT_DEST=../../../import/
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10538 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10539 +.SUFFIXES: .s .S .c .cpp .d .html .o
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10540 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10541 +.s.o:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10542 + $(CC) -c $(CFLAGS) $< -o$@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10543 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10544 +.S.o:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10545 + $(CC) -c $(CFLAGS) $< -o$@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10546 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10547 +.c.o:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10548 + $(CC) -c $(CFLAGS) $< -o$@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10549 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10550 +.cpp.o:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10551 + g++ -c $(CFLAGS) $< -o$@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10552 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10553 +.d.o:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10554 + $(DC) -c $(DFLAGS) $< -of$@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10555 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10556 +.d.html:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10557 + $(DC) -c -o- $(DOCFLAGS) -Df$*.html dmd.ddoc $<
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10558 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10559 +targets : lib doc
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10560 +all : lib doc
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10561 +lib : ldc.lib
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10562 +doc : ldc.doc
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10563 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10564 +######################################################
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10565 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10566 +OBJ_BASE= \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10567 + aaA.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10568 + aApply.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10569 + aApplyR.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10570 + adi.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10571 + arrayInit.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10572 + cast.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10573 + critical.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10574 + eh.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10575 + dmain2.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10576 + invariant.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10577 + lifetime.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10578 + memory.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10579 + monitor.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10580 + genobj.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10581 + qsort2.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10582 + switch.o
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10583 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10584 +OBJ_UTIL= \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10585 + util/console.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10586 + util/ctype.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10587 + util/string.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10588 + util/utf.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10589 + ldc/bitmanip.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10590 + ldc/vararg.o
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10591 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10592 +OBJ_TI= \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10593 + typeinfo/ti_AC.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10594 + typeinfo/ti_Acdouble.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10595 + typeinfo/ti_Acfloat.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10596 + typeinfo/ti_Acreal.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10597 + typeinfo/ti_Adouble.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10598 + typeinfo/ti_Afloat.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10599 + typeinfo/ti_Ag.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10600 + typeinfo/ti_Aint.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10601 + typeinfo/ti_Along.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10602 + typeinfo/ti_Areal.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10603 + typeinfo/ti_Ashort.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10604 + typeinfo/ti_byte.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10605 + typeinfo/ti_C.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10606 + typeinfo/ti_cdouble.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10607 + typeinfo/ti_cfloat.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10608 + typeinfo/ti_char.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10609 + typeinfo/ti_creal.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10610 + typeinfo/ti_dchar.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10611 + typeinfo/ti_delegate.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10612 + typeinfo/ti_double.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10613 + typeinfo/ti_float.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10614 + typeinfo/ti_idouble.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10615 + typeinfo/ti_ifloat.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10616 + typeinfo/ti_int.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10617 + typeinfo/ti_ireal.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10618 + typeinfo/ti_long.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10619 + typeinfo/ti_ptr.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10620 + typeinfo/ti_real.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10621 + typeinfo/ti_short.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10622 + typeinfo/ti_ubyte.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10623 + typeinfo/ti_uint.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10624 + typeinfo/ti_ulong.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10625 + typeinfo/ti_ushort.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10626 + typeinfo/ti_void.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10627 + typeinfo/ti_wchar.o
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10628 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10629 +ALL_OBJS= \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10630 + $(OBJ_BASE) \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10631 + $(OBJ_UTIL) \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10632 + $(OBJ_TI)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10633 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10634 +######################################################
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10635 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10636 +ALL_DOCS=
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10637 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10638 +######################################################
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10639 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10640 +ldc.lib : $(LIB_TARGET)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10641 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10642 +$(LIB_TARGET) : $(ALL_OBJS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10643 + $(RM) $@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10644 + $(LC) $@ $(ALL_OBJS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10645 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10646 +ldc.doc : $(ALL_DOCS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10647 + echo No documentation available.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10648 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10649 +################### LDC SPECIALS #####################
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10650 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10651 +ldc/bitmanip.o : ldc/bitmanip.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10652 + $(DC) -c $(DFLAGS) -d -Hf$(IMPORT_DEST)/$*.di ldc/bitmanip.d -of$@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10653 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10654 +ldc/vararg.o : ldc/vararg.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10655 + $(DC) -c $(DFLAGS) -d -Hf$(IMPORT_DEST)/$*.di ldc/vararg.d -of$@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10656 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10657 +######################################################
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10658 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10659 +clean :
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10660 + find . -name "*.di" \| xargs $(RM)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10661 + $(RM) $(ALL_OBJS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10662 + $(RM) $(ALL_DOCS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10663 + $(RM) $(LIB_MASK)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10664 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10665 +install :
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10666 + $(MD) $(LIB_DEST)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10667 + $(CP) $(LIB_MASK) $(LIB_DEST)/.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10668 Index: src/compiler/ldc/critical.c
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10669 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10670 --- src/compiler/ldc/critical.c (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10671 +++ src/compiler/ldc/critical.c (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10672 @@ -0,0 +1,164 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10673 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10674 + * Placed into the Public Domain
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10675 + * written by Walter Bright, Digital Mars
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10676 + * www.digitalmars.com
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10677 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10678 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10679 +/* ================================= Win32 ============================ */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10680 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10681 +#if _WIN32
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10682 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10683 +#include <windows.h>
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10684 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10685 +/******************************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10686 + * Enter/exit critical section.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10687 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10688 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10689 +/* We don't initialize critical sections unless we actually need them.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10690 + * So keep a linked list of the ones we do use, and in the static destructor
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10691 + * code, walk the list and release them.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10692 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10693 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10694 +typedef struct D_CRITICAL_SECTION
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10695 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10696 + struct D_CRITICAL_SECTION *next;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10697 + CRITICAL_SECTION cs;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10698 +} D_CRITICAL_SECTION;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10699 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10700 +static D_CRITICAL_SECTION *dcs_list;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10701 +static D_CRITICAL_SECTION critical_section;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10702 +static volatile int inited;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10703 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10704 +void _d_criticalenter(D_CRITICAL_SECTION *dcs)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10705 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10706 + if (!dcs->next)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10707 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10708 + EnterCriticalSection(&critical_section.cs);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10709 + if (!dcs->next) // if, in the meantime, another thread didn't set it
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10710 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10711 + dcs->next = dcs_list;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10712 + dcs_list = dcs;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10713 + InitializeCriticalSection(&dcs->cs);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10714 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10715 + LeaveCriticalSection(&critical_section.cs);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10716 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10717 + EnterCriticalSection(&dcs->cs);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10718 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10719 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10720 +void _d_criticalexit(D_CRITICAL_SECTION *dcs)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10721 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10722 + LeaveCriticalSection(&dcs->cs);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10723 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10724 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10725 +void _STI_critical_init()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10726 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10727 + if (!inited)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10728 + { InitializeCriticalSection(&critical_section.cs);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10729 + dcs_list = &critical_section;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10730 + inited = 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10731 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10732 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10733 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10734 +void _STD_critical_term()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10735 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10736 + if (inited)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10737 + { inited = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10738 + while (dcs_list)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10739 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10740 + DeleteCriticalSection(&dcs_list->cs);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10741 + dcs_list = dcs_list->next;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10742 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10743 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10744 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10745 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10746 +#endif
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10747 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10748 +/* ================================= linux ============================ */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10749 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10750 +#if linux \|\| __APPLE__ \|\| __FreeBSD__
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10751 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10752 +#include <stdio.h>
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10753 +#include <stdlib.h>
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10754 +#include <pthread.h>
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10755 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10756 +#if !linux
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10757 +#define PTHREAD_MUTEX_RECURSIVE_NP PTHREAD_MUTEX_RECURSIVE
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10758 +#endif
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10759 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10760 +/******************************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10761 + * Enter/exit critical section.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10762 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10763 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10764 +/* We don't initialize critical sections unless we actually need them.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10765 + * So keep a linked list of the ones we do use, and in the static destructor
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10766 + * code, walk the list and release them.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10767 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10768 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10769 +typedef struct D_CRITICAL_SECTION
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10770 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10771 + struct D_CRITICAL_SECTION *next;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10772 + pthread_mutex_t cs;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10773 +} D_CRITICAL_SECTION;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10774 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10775 +static D_CRITICAL_SECTION *dcs_list;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10776 +static D_CRITICAL_SECTION critical_section;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10777 +static pthread_mutexattr_t _criticals_attr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10778 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10779 +void _STI_critical_init(void);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10780 +void _STD_critical_term(void);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10781 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10782 +void _d_criticalenter(D_CRITICAL_SECTION *dcs)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10783 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10784 + if (!dcs_list)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10785 + { _STI_critical_init();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10786 + atexit(_STD_critical_term);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10787 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10788 + //printf("_d_criticalenter(dcs = x%x)\n", dcs);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10789 + if (!dcs->next)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10790 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10791 + pthread_mutex_lock(&critical_section.cs);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10792 + if (!dcs->next) // if, in the meantime, another thread didn't set it
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10793 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10794 + dcs->next = dcs_list;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10795 + dcs_list = dcs;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10796 + pthread_mutex_init(&dcs->cs, &_criticals_attr);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10797 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10798 + pthread_mutex_unlock(&critical_section.cs);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10799 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10800 + pthread_mutex_lock(&dcs->cs);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10801 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10802 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10803 +void _d_criticalexit(D_CRITICAL_SECTION *dcs)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10804 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10805 + //printf("_d_criticalexit(dcs = x%x)\n", dcs);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10806 + pthread_mutex_unlock(&dcs->cs);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10807 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10808 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10809 +void _STI_critical_init()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10810 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10811 + if (!dcs_list)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10812 + { //printf("_STI_critical_init()\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10813 + pthread_mutexattr_init(&_criticals_attr);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10814 + pthread_mutexattr_settype(&_criticals_attr, PTHREAD_MUTEX_RECURSIVE_NP);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10815 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10816 + // The global critical section doesn't need to be recursive
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10817 + pthread_mutex_init(&critical_section.cs, 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10818 + dcs_list = &critical_section;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10819 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10820 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10821 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10822 +void _STD_critical_term()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10823 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10824 + if (dcs_list)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10825 + { //printf("_STI_critical_term()\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10826 + while (dcs_list)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10827 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10828 + //printf("\tlooping... %x\n", dcs_list);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10829 + pthread_mutex_destroy(&dcs_list->cs);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10830 + dcs_list = dcs_list->next;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10831 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10832 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10833 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10834 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10835 +#endif
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10836 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10837 Index: src/compiler/ldc/qsort2.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10838 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10839 --- src/compiler/ldc/qsort2.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10840 +++ src/compiler/ldc/qsort2.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10841 @@ -0,0 +1,67 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10842 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10843 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10844 + * Placed into Public Domain
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10845 + * written by Walter Bright
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10846 + * www.digitalmars.com
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10847 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10848 + * This is a public domain version of qsort.d.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10849 + * All it does is call C's qsort(), but runs a little slower since
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10850 + * it needs to synchronize a global variable.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10851 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10852 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10853 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10854 + * Modified by Sean Kelly <sean@f4.ca> for use with Tango.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10855 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10856 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10857 +//debug=qsort;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10858 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10859 +version( D_Version2 )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10860 +private import stdlib = core.stdc.stdlib;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10861 +else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10862 +private import stdlib = tango.stdc.stdlib;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10863 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10864 +private TypeInfo tiglobal;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10865 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10866 +extern (C) int cmp(in void* p1, in void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10867 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10868 + return tiglobal.compare(p1, p2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10869 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10870 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10871 +extern (C) void[] _adSort(void[] a, TypeInfo ti)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10872 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10873 + synchronized
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10874 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10875 + tiglobal = ti;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10876 + stdlib.qsort(a.ptr, a.length, cast(size_t)ti.tsize(), &cmp);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10877 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10878 + return a;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10879 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10880 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10881 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10882 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10883 +unittest
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10884 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10885 + debug(qsort) printf("array.sort.unittest()\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10886 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10887 + int a[] = new int[10];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10888 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10889 + a[0] = 23;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10890 + a[1] = 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10891 + a[2] = 64;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10892 + a[3] = 5;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10893 + a[4] = 6;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10894 + a[5] = 5;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10895 + a[6] = 17;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10896 + a[7] = 3;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10897 + a[8] = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10898 + a[9] = -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10899 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10900 + a.sort;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10901 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10902 + for (int i = 0; i < a.length - 1; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10903 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10904 + //printf("i = %d", i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10905 + //printf(" %d %d\n", a[i], a[i + 1]);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10906 + assert(a[i] <= a[i + 1]);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10907 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10908 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10909 Index: src/compiler/ldc/cast.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10910 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10911 --- src/compiler/ldc/cast.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10912 +++ src/compiler/ldc/cast.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10913 @@ -0,0 +1,196 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10914 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10915 + * Copyright (C) 2004-2006 by Digital Mars, www.digitalmars.com
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10916 + * Written by Walter Bright
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10917 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10918 + * This software is provided 'as-is', without any express or implied
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10919 + * warranty. In no event will the authors be held liable for any damages
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10920 + * arising from the use of this software.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10921 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10922 + * Permission is granted to anyone to use this software for any purpose,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10923 + * including commercial applications, and to alter it and redistribute it
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10924 + * freely, in both source and binary form, subject to the following
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10925 + * restrictions:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10926 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10927 + * o The origin of this software must not be misrepresented; you must not
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10928 + * claim that you wrote the original software. If you use this software
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10929 + * in a product, an acknowledgment in the product documentation would be
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10930 + * appreciated but is not required.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10931 + * o Altered source versions must be plainly marked as such, and must not
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10932 + * be misrepresented as being the original software.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10933 + * o This notice may not be removed or altered from any source
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10934 + * distribution.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10935 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10936 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10937 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10938 + * Modified by Sean Kelly <sean@f4.ca> for use with Tango.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10939 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10940 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10941 +extern (C):
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10942 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10943 +//debug = PRINTF;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10944 +debug(PRINTF) int printf(char*, ...);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10945 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10946 +/******************************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10947 + * Given a pointer:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10948 + * If it is an Object, return that Object.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10949 + * If it is an interface, return the Object implementing the interface.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10950 + * If it is null, return null.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10951 + * Else, undefined crash
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10952 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10953 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10954 +Object _d_toObject(void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10955 +{ Object o;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10956 + debug(PRINTF) printf("toObject(%p)\n", p);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10957 + if (p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10958 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10959 + o = cast(Object)p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10960 + debug(PRINTF) printf("o = %p\n", o);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10961 + debug(PRINTF) printf("o.vtbl = %p\n", cast(void*)p);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10962 + ClassInfo oc = o.classinfo;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10963 + debug(PRINTF) printf("oc = %p\n", oc);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10964 + Interface pi = cast(Interface **)p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10965 + debug(PRINTF) printf("pi = %p\n", pi);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10966 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10967 + /* Interface.offset lines up with ClassInfo.name.ptr,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10968 + * so we rely on pointers never being less than 64K,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10969 + * and interface vtable offsets never being greater.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10970 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10971 + if (pi.offset < 0x10000)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10972 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10973 + debug(PRINTF) printf("\tpi.offset = %d\n", pi.offset);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10974 + o = cast(Object)(p - pi.offset);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10975 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10976 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10977 + debug(PRINTF) printf("toObject = %p\n", o);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10978 + return o;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10979 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10980 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10981 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10982 +/*************************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10983 + * Attempts to cast Object o to class c.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10984 + * Returns o if successful, null if not.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10985 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10986 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10987 +Object _d_interface_cast(void* p, ClassInfo c)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10988 +{ Object o;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10989 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10990 + debug(PRINTF) printf("_d_interface_cast(p = %p, c = '%.*s')\n", p, c.name.length, c.name.ptr);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10991 + if (p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10992 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10993 + Interface pi = cast(Interface **)p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10994 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10995 + debug(PRINTF) printf("\tpi.offset = %d\n", pi.offset);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10996 + o = cast(Object)(p - pi.offset);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10997 + return _d_dynamic_cast(o, c);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10998 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10999 + debug(PRINTF) printf("_d_interface_cast = %p\n", o);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11000 + return o;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11001 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11002 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11003 +Object _d_dynamic_cast(Object o, ClassInfo c)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11004 +{ ClassInfo oc;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11005 + size_t offset = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11006 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11007 + debug(PRINTF) printf("_d_dynamic_cast(o = %p, c = '%.*s')\n", o, c.name.length, c.name.ptr);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11008 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11009 + if (o)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11010 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11011 + oc = o.classinfo;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11012 + if (_d_isbaseof2(oc, c, offset))
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11013 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11014 + debug(PRINTF) printf("\toffset = %d\n", offset);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11015 + o = cast(Object)(cast(void*)o + offset);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11016 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11017 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11018 + o = null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11019 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11020 + //printf("\tresult = %p\n", o);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11021 + debug(PRINTF) printf("_d_dynamic_cast = %p\n", o);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11022 + return o;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11023 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11024 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11025 +int _d_isbaseof2(ClassInfo oc, ClassInfo c, ref size_t offset)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11026 +{ int i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11027 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11028 + debug(PRINTF) printf("_d_isbaseof2(%.s, %.s, %ul)\n", oc.name.length, oc.name.ptr, c.name.length, c.name.ptr, offset);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11029 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11030 + if (oc is c)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11031 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11032 + do
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11033 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11034 + debug(PRINTF) printf("oc.interfaces.length = %ul\n", oc.interfaces.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11035 + if (oc.base is c)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11036 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11037 + for (i = 0; i < oc.interfaces.length; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11038 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11039 + ClassInfo ic;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11040 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11041 + ic = oc.interfaces[i].classinfo;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11042 + debug(PRINTF) printf("checking %.*s\n", ic.name.length, ic.name.ptr);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11043 + if (ic is c)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11044 + { offset = cast(size_t)oc.interfaces[i].offset;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11045 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11046 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11047 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11048 + for (i = 0; i < oc.interfaces.length; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11049 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11050 + ClassInfo ic;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11051 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11052 + ic = oc.interfaces[i].classinfo;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11053 + if (_d_isbaseof2(ic, c, offset))
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11054 + { offset = cast(size_t)oc.interfaces[i].offset;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11055 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11056 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11057 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11058 + oc = oc.base;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11059 + } while (oc);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11060 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11061 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11062 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11063 +int _d_isbaseof(ClassInfo oc, ClassInfo c)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11064 +{ int i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11065 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11066 + if (oc is c)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11067 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11068 + do
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11069 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11070 + if (oc.base is c)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11071 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11072 + for (i = 0; i < oc.interfaces.length; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11073 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11074 + ClassInfo ic;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11075 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11076 + ic = oc.interfaces[i].classinfo;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11077 + if (ic is c \|\| _d_isbaseof(ic, c))
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11078 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11079 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11080 + oc = oc.base;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11081 + } while (oc);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11082 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11083 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11084 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11085 +/*********************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11086 + * Find the vtbl[] associated with Interface ic.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11087 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11088 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11089 +void *_d_interface_vtbl(ClassInfo ic, Object o)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11090 +{ int i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11091 + ClassInfo oc;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11092 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11093 + //printf("__d_interface_vtbl(o = %p, ic = %p)\n", o, ic);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11094 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11095 + assert(o);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11096 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11097 + oc = o.classinfo;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11098 + for (i = 0; i < oc.interfaces.length; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11099 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11100 + ClassInfo oic;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11101 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11102 + oic = oc.interfaces[i].classinfo;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11103 + if (oic is ic)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11104 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11105 + return cast(void *)oc.interfaces[i].vtbl;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11106 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11107 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11108 + assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11109 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11110 Index: src/compiler/ldc/util/utf.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11111 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11112 --- src/compiler/ldc/util/utf.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11113 +++ src/compiler/ldc/util/utf.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11114 @@ -0,0 +1,917 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11115 +// Written in the D programming language
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11116 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11117 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11118 + * Copyright (C) 2003-2004 by Digital Mars, www.digitalmars.com
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11119 + * Written by Walter Bright
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11120 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11121 + * This software is provided 'as-is', without any express or implied
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11122 + * warranty. In no event will the authors be held liable for any damages
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11123 + * arising from the use of this software.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11124 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11125 + * Permission is granted to anyone to use this software for any purpose,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11126 + * including commercial applications, and to alter it and redistribute it
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11127 + * freely, subject to the following restrictions:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11128 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11129 + * o The origin of this software must not be misrepresented; you must not
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11130 + * claim that you wrote the original software. If you use this software
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11131 + * in a product, an acknowledgment in the product documentation would be
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11132 + * appreciated but is not required.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11133 + * o Altered source versions must be plainly marked as such, and must not
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11134 + * be misrepresented as being the original software.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11135 + * o This notice may not be removed or altered from any source
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11136 + * distribution.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11137 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11138 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11139 +/********************************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11140 + * Encode and decode UTF-8, UTF-16 and UTF-32 strings.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11141 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11142 + * For Win32 systems, the C wchar_t type is UTF-16 and corresponds to the D
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11143 + * wchar type.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11144 + * For linux systems, the C wchar_t type is UTF-32 and corresponds to
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11145 + * the D utf.dchar type.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11146 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11147 + * UTF character support is restricted to (\u0000 <= character <= \U0010FFFF).
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11148 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11149 + * See_Also:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11150 + * $(LINK2 http://en.wikipedia.org/wiki/Unicode, Wikipedia)<br>
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11151 + * $(LINK http://www.cl.cam.ac.uk/~mgk25/unicode.html#utf-8)<br>
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11152 + * $(LINK http://anubis.dkuug.dk/JTC1/SC2/WG2/docs/n1335)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11153 + * Macros:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11154 + * WIKI = Phobos/StdUtf
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11155 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11156 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11157 +module rt.util.utf;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11158 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11159 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11160 +extern (C) void onUnicodeError( string msg, size_t idx );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11161 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11162 +/*******************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11163 + * Test if c is a valid UTF-32 character.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11164 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11165 + * \uFFFE and \uFFFF are considered valid by this function,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11166 + * as they are permitted for internal use by an application,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11167 + * but they are not allowed for interchange by the Unicode standard.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11168 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11169 + * Returns: true if it is, false if not.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11170 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11171 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11172 +bool isValidDchar(dchar c)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11173 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11174 + /* Note: FFFE and FFFF are specifically permitted by the
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11175 + * Unicode standard for application internal use, but are not
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11176 + * allowed for interchange.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11177 + * (thanks to Arcane Jill)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11178 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11179 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11180 + return c < 0xD800 \|\|
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11181 + (c > 0xDFFF && c <= 0x10FFFF /&& c != 0xFFFE && c != 0xFFFF/);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11182 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11183 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11184 +unittest
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11185 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11186 + debug(utf) printf("utf.isValidDchar.unittest\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11187 + assert(isValidDchar(cast(dchar)'a') == true);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11188 + assert(isValidDchar(cast(dchar)0x1FFFFF) == false);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11189 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11190 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11191 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11192 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11193 +auto UTF8stride =
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11194 +[
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11195 + cast(ubyte)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11196 + 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11197 + 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11198 + 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11199 + 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11200 + 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11201 + 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11202 + 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11203 + 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11204 + 0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11205 + 0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11206 + 0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11207 + 0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11208 + 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11209 + 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11210 + 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11211 + 4,4,4,4,4,4,4,4,5,5,5,5,6,6,0xFF,0xFF,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11212 +];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11213 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11214 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11215 + * stride() returns the length of a UTF-8 sequence starting at index i
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11216 + * in string s.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11217 + * Returns:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11218 + * The number of bytes in the UTF-8 sequence or
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11219 + * 0xFF meaning s[i] is not the start of of UTF-8 sequence.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11220 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11221 +uint stride(in char[] s, size_t i)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11222 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11223 + return UTF8stride[s[i]];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11224 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11225 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11226 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11227 + * stride() returns the length of a UTF-16 sequence starting at index i
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11228 + * in string s.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11229 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11230 +uint stride(in wchar[] s, size_t i)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11231 +{ uint u = s[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11232 + return 1 + (u >= 0xD800 && u <= 0xDBFF);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11233 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11234 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11235 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11236 + * stride() returns the length of a UTF-32 sequence starting at index i
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11237 + * in string s.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11238 + * Returns: The return value will always be 1.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11239 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11240 +uint stride(in dchar[] s, size_t i)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11241 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11242 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11243 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11244 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11245 +/*******************************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11246 + * Given an index i into an array of characters s[],
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11247 + * and assuming that index i is at the start of a UTF character,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11248 + * determine the number of UCS characters up to that index i.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11249 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11250 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11251 +size_t toUCSindex(in char[] s, size_t i)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11252 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11253 + size_t n;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11254 + size_t j;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11255 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11256 + for (j = 0; j < i; )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11257 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11258 + j += stride(s, j);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11259 + n++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11260 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11261 + if (j > i)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11262 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11263 + onUnicodeError("invalid UTF-8 sequence", j);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11264 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11265 + return n;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11266 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11267 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11268 +/** ditto */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11269 +size_t toUCSindex(in wchar[] s, size_t i)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11270 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11271 + size_t n;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11272 + size_t j;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11273 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11274 + for (j = 0; j < i; )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11275 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11276 + j += stride(s, j);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11277 + n++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11278 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11279 + if (j > i)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11280 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11281 + onUnicodeError("invalid UTF-16 sequence", j);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11282 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11283 + return n;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11284 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11285 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11286 +/** ditto */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11287 +size_t toUCSindex(in dchar[] s, size_t i)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11288 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11289 + return i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11290 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11291 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11292 +/******************************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11293 + * Given a UCS index n into an array of characters s[], return the UTF index.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11294 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11295 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11296 +size_t toUTFindex(in char[] s, size_t n)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11297 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11298 + size_t i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11299 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11300 + while (n--)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11301 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11302 + uint j = UTF8stride[s[i]];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11303 + if (j == 0xFF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11304 + onUnicodeError("invalid UTF-8 sequence", i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11305 + i += j;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11306 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11307 + return i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11308 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11309 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11310 +/** ditto */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11311 +size_t toUTFindex(in wchar[] s, size_t n)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11312 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11313 + size_t i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11314 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11315 + while (n--)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11316 + { wchar u = s[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11317 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11318 + i += 1 + (u >= 0xD800 && u <= 0xDBFF);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11319 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11320 + return i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11321 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11322 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11323 +/** ditto */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11324 +size_t toUTFindex(in dchar[] s, size_t n)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11325 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11326 + return n;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11327 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11328 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11329 +/* =================== Decode ======================= */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11330 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11331 +/***************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11332 + * Decodes and returns character starting at s[idx]. idx is advanced past the
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11333 + * decoded character. If the character is not well formed, a UtfException is
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11334 + * thrown and idx remains unchanged.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11335 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11336 +dchar decode(in char[] s, inout size_t idx)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11337 + in
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11338 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11339 + assert(idx >= 0 && idx < s.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11340 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11341 + out (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11342 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11343 + assert(isValidDchar(result));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11344 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11345 + body
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11346 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11347 + size_t len = s.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11348 + dchar V;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11349 + size_t i = idx;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11350 + char u = s[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11351 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11352 + if (u & 0x80)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11353 + { uint n;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11354 + char u2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11355 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11356 + /* The following encodings are valid, except for the 5 and 6 byte
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11357 + * combinations:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11358 + * 0xxxxxxx
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11359 + * 110xxxxx 10xxxxxx
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11360 + * 1110xxxx 10xxxxxx 10xxxxxx
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11361 + * 11110xxx 10xxxxxx 10xxxxxx 10xxxxxx
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11362 + * 111110xx 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11363 + * 1111110x 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11364 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11365 + for (n = 1; ; n++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11366 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11367 + if (n > 4)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11368 + goto Lerr; // only do the first 4 of 6 encodings
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11369 + if (((u << n) & 0x80) == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11370 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11371 + if (n == 1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11372 + goto Lerr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11373 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11374 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11375 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11376 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11377 + // Pick off (7 - n) significant bits of B from first byte of octet
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11378 + V = cast(dchar)(u & ((1 << (7 - n)) - 1));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11379 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11380 + if (i + (n - 1) >= len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11381 + goto Lerr; // off end of string
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11382 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11383 + /* The following combinations are overlong, and illegal:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11384 + * 1100000x (10xxxxxx)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11385 + * 11100000 100xxxxx (10xxxxxx)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11386 + * 11110000 1000xxxx (10xxxxxx 10xxxxxx)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11387 + * 11111000 10000xxx (10xxxxxx 10xxxxxx 10xxxxxx)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11388 + * 11111100 100000xx (10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11389 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11390 + u2 = s[i + 1];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11391 + if ((u & 0xFE) == 0xC0 \|\|
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11392 + (u == 0xE0 && (u2 & 0xE0) == 0x80) \|\|
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11393 + (u == 0xF0 && (u2 & 0xF0) == 0x80) \|\|
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11394 + (u == 0xF8 && (u2 & 0xF8) == 0x80) \|\|
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11395 + (u == 0xFC && (u2 & 0xFC) == 0x80))
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11396 + goto Lerr; // overlong combination
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11397 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11398 + for (uint j = 1; j != n; j++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11399 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11400 + u = s[i + j];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11401 + if ((u & 0xC0) != 0x80)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11402 + goto Lerr; // trailing bytes are 10xxxxxx
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11403 + V = (V << 6) \| (u & 0x3F);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11404 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11405 + if (!isValidDchar(V))
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11406 + goto Lerr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11407 + i += n;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11408 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11409 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11410 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11411 + V = cast(dchar) u;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11412 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11413 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11414 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11415 + idx = i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11416 + return V;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11417 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11418 + Lerr:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11419 + onUnicodeError("invalid UTF-8 sequence", i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11420 + return V; // dummy return
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11421 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11422 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11423 +unittest
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11424 +{ size_t i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11425 + dchar c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11426 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11427 + debug(utf) printf("utf.decode.unittest\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11428 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11429 + static s1 = "abcd"c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11430 + i = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11431 + c = decode(s1, i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11432 + assert(c == cast(dchar)'a');
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11433 + assert(i == 1);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11434 + c = decode(s1, i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11435 + assert(c == cast(dchar)'b');
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11436 + assert(i == 2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11437 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11438 + static s2 = "\xC2\xA9"c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11439 + i = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11440 + c = decode(s2, i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11441 + assert(c == cast(dchar)'\u00A9');
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11442 + assert(i == 2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11443 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11444 + static s3 = "\xE2\x89\xA0"c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11445 + i = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11446 + c = decode(s3, i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11447 + assert(c == cast(dchar)'\u2260');
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11448 + assert(i == 3);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11449 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11450 + static s4 =
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11451 + [ "\xE2\x89"c, // too short
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11452 + "\xC0\x8A",
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11453 + "\xE0\x80\x8A",
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11454 + "\xF0\x80\x80\x8A",
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11455 + "\xF8\x80\x80\x80\x8A",
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11456 + "\xFC\x80\x80\x80\x80\x8A",
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11457 + ];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11458 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11459 + for (int j = 0; j < s4.length; j++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11460 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11461 + try
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11462 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11463 + i = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11464 + c = decode(s4[j], i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11465 + assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11466 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11467 + catch (Object o)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11468 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11469 + i = 23;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11470 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11471 + assert(i == 23);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11472 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11473 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11474 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11475 +/** ditto */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11476 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11477 +dchar decode(in wchar[] s, inout size_t idx)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11478 + in
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11479 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11480 + assert(idx >= 0 && idx < s.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11481 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11482 + out (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11483 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11484 + assert(isValidDchar(result));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11485 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11486 + body
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11487 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11488 + string msg;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11489 + dchar V;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11490 + size_t i = idx;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11491 + uint u = s[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11492 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11493 + if (u & ~0x7F)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11494 + { if (u >= 0xD800 && u <= 0xDBFF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11495 + { uint u2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11496 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11497 + if (i + 1 == s.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11498 + { msg = "surrogate UTF-16 high value past end of string";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11499 + goto Lerr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11500 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11501 + u2 = s[i + 1];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11502 + if (u2 < 0xDC00 \|\| u2 > 0xDFFF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11503 + { msg = "surrogate UTF-16 low value out of range";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11504 + goto Lerr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11505 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11506 + u = ((u - 0xD7C0) << 10) + (u2 - 0xDC00);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11507 + i += 2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11508 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11509 + else if (u >= 0xDC00 && u <= 0xDFFF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11510 + { msg = "unpaired surrogate UTF-16 value";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11511 + goto Lerr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11512 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11513 + else if (u == 0xFFFE \|\| u == 0xFFFF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11514 + { msg = "illegal UTF-16 value";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11515 + goto Lerr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11516 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11517 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11518 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11519 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11520 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11521 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11522 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11523 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11524 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11525 + idx = i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11526 + return cast(dchar)u;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11527 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11528 + Lerr:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11529 + onUnicodeError(msg, i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11530 + return cast(dchar)u; // dummy return
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11531 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11532 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11533 +/** ditto */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11534 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11535 +dchar decode(in dchar[] s, inout size_t idx)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11536 + in
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11537 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11538 + assert(idx >= 0 && idx < s.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11539 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11540 + body
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11541 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11542 + size_t i = idx;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11543 + dchar c = s[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11544 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11545 + if (!isValidDchar(c))
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11546 + goto Lerr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11547 + idx = i + 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11548 + return c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11549 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11550 + Lerr:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11551 + onUnicodeError("invalid UTF-32 value", i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11552 + return c; // dummy return
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11553 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11554 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11555 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11556 +/* =================== Encode ======================= */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11557 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11558 +/*******************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11559 + * Encodes character c and appends it to array s[].
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11560 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11561 +void encode(inout char[] s, dchar c)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11562 + in
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11563 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11564 + assert(isValidDchar(c));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11565 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11566 + body
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11567 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11568 + char[] r = s;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11569 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11570 + if (c <= 0x7F)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11571 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11572 + r ~= cast(char) c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11573 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11574 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11575 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11576 + char[4] buf;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11577 + uint L;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11578 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11579 + if (c <= 0x7FF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11580 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11581 + buf[0] = cast(char)(0xC0 \| (c >> 6));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11582 + buf[1] = cast(char)(0x80 \| (c & 0x3F));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11583 + L = 2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11584 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11585 + else if (c <= 0xFFFF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11586 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11587 + buf[0] = cast(char)(0xE0 \| (c >> 12));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11588 + buf[1] = cast(char)(0x80 \| ((c >> 6) & 0x3F));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11589 + buf[2] = cast(char)(0x80 \| (c & 0x3F));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11590 + L = 3;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11591 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11592 + else if (c <= 0x10FFFF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11593 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11594 + buf[0] = cast(char)(0xF0 \| (c >> 18));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11595 + buf[1] = cast(char)(0x80 \| ((c >> 12) & 0x3F));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11596 + buf[2] = cast(char)(0x80 \| ((c >> 6) & 0x3F));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11597 + buf[3] = cast(char)(0x80 \| (c & 0x3F));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11598 + L = 4;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11599 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11600 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11601 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11602 + assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11603 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11604 + r ~= buf[0 .. L];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11605 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11606 + s = r;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11607 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11608 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11609 +unittest
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11610 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11611 + debug(utf) printf("utf.encode.unittest\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11612 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11613 + char[] s = "abcd".dup;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11614 + encode(s, cast(dchar)'a');
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11615 + assert(s.length == 5);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11616 + assert(s == "abcda");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11617 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11618 + encode(s, cast(dchar)'\u00A9');
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11619 + assert(s.length == 7);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11620 + assert(s == "abcda\xC2\xA9");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11621 + //assert(s == "abcda\u00A9"); // BUG: fix compiler
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11622 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11623 + encode(s, cast(dchar)'\u2260');
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11624 + assert(s.length == 10);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11625 + assert(s == "abcda\xC2\xA9\xE2\x89\xA0");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11626 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11627 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11628 +/** ditto */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11629 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11630 +void encode(inout wchar[] s, dchar c)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11631 + in
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11632 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11633 + assert(isValidDchar(c));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11634 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11635 + body
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11636 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11637 + wchar[] r = s;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11638 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11639 + if (c <= 0xFFFF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11640 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11641 + r ~= cast(wchar) c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11642 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11643 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11644 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11645 + wchar[2] buf;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11646 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11647 + buf[0] = cast(wchar) ((((c - 0x10000) >> 10) & 0x3FF) + 0xD800);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11648 + buf[1] = cast(wchar) (((c - 0x10000) & 0x3FF) + 0xDC00);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11649 + r ~= buf;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11650 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11651 + s = r;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11652 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11653 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11654 +/** ditto */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11655 +void encode(inout dchar[] s, dchar c)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11656 + in
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11657 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11658 + assert(isValidDchar(c));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11659 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11660 + body
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11661 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11662 + s ~= c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11663 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11664 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11665 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11666 +Returns the code length of $(D c) in the encoding using $(D C) as a
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11667 +code point. The code is returned in character count, not in bytes.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11668 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11669 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11670 +ubyte codeLength(C)(dchar c)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11671 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11672 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11673 + static if (C.sizeof == 1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11674 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11675 + return
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11676 + c <= 0x7F ? 1
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11677 + : c <= 0x7FF ? 2
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11678 + : c <= 0xFFFF ? 3
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11679 + : c <= 0x10FFFF ? 4
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11680 + : (assert(false), 6);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11681 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11682 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11683 + else static if (C.sizeof == 2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11684 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11685 + return c <= 0xFFFF ? 1 : 2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11686 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11687 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11688 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11689 + static assert(C.sizeof == 4);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11690 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11691 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11692 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11693 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11694 +/* =================== Validation ======================= */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11695 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11696 +/***********************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11697 +Checks to see if string is well formed or not. $(D S) can be an array
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11698 + of $(D char), $(D wchar), or $(D dchar). Throws a $(D UtfException)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11699 + if it is not. Use to check all untrusted input for correctness.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11700 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11701 +void validate(S)(in S s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11702 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11703 + auto len = s.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11704 + for (size_t i = 0; i < len; )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11705 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11706 + decode(s, i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11707 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11708 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11709 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11710 +/* =================== Conversion to UTF8 ======================= */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11711 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11712 +char[] toUTF8(char[4] buf, dchar c)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11713 + in
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11714 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11715 + assert(isValidDchar(c));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11716 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11717 + body
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11718 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11719 + if (c <= 0x7F)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11720 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11721 + buf[0] = cast(char) c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11722 + return buf[0 .. 1];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11723 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11724 + else if (c <= 0x7FF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11725 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11726 + buf[0] = cast(char)(0xC0 \| (c >> 6));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11727 + buf[1] = cast(char)(0x80 \| (c & 0x3F));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11728 + return buf[0 .. 2];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11729 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11730 + else if (c <= 0xFFFF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11731 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11732 + buf[0] = cast(char)(0xE0 \| (c >> 12));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11733 + buf[1] = cast(char)(0x80 \| ((c >> 6) & 0x3F));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11734 + buf[2] = cast(char)(0x80 \| (c & 0x3F));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11735 + return buf[0 .. 3];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11736 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11737 + else if (c <= 0x10FFFF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11738 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11739 + buf[0] = cast(char)(0xF0 \| (c >> 18));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11740 + buf[1] = cast(char)(0x80 \| ((c >> 12) & 0x3F));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11741 + buf[2] = cast(char)(0x80 \| ((c >> 6) & 0x3F));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11742 + buf[3] = cast(char)(0x80 \| (c & 0x3F));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11743 + return buf[0 .. 4];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11744 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11745 + assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11746 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11747 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11748 +/*******************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11749 + * Encodes string s into UTF-8 and returns the encoded string.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11750 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11751 +string toUTF8(string s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11752 + in
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11753 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11754 + validate(s);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11755 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11756 + body
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11757 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11758 + return s;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11759 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11760 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11761 +/** ditto */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11762 +string toUTF8(in wchar[] s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11763 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11764 + char[] r;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11765 + size_t i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11766 + size_t slen = s.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11767 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11768 + r.length = slen;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11769 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11770 + for (i = 0; i < slen; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11771 + { wchar c = s[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11772 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11773 + if (c <= 0x7F)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11774 + r[i] = cast(char)c; // fast path for ascii
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11775 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11776 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11777 + r.length = i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11778 + foreach (dchar c; s[i .. slen])
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11779 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11780 + encode(r, c);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11781 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11782 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11783 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11784 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11785 + return cast(string)r;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11786 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11787 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11788 +/** ditto */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11789 +string toUTF8(in dchar[] s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11790 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11791 + char[] r;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11792 + size_t i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11793 + size_t slen = s.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11794 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11795 + r.length = slen;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11796 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11797 + for (i = 0; i < slen; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11798 + { dchar c = s[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11799 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11800 + if (c <= 0x7F)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11801 + r[i] = cast(char)c; // fast path for ascii
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11802 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11803 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11804 + r.length = i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11805 + foreach (dchar d; s[i .. slen])
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11806 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11807 + encode(r, d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11808 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11809 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11810 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11811 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11812 + return cast(string)r;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11813 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11814 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11815 +/* =================== Conversion to UTF16 ======================= */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11816 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11817 +wchar[] toUTF16(wchar[2] buf, dchar c)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11818 + in
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11819 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11820 + assert(isValidDchar(c));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11821 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11822 + body
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11823 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11824 + if (c <= 0xFFFF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11825 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11826 + buf[0] = cast(wchar) c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11827 + return buf[0 .. 1];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11828 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11829 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11830 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11831 + buf[0] = cast(wchar) ((((c - 0x10000) >> 10) & 0x3FF) + 0xD800);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11832 + buf[1] = cast(wchar) (((c - 0x10000) & 0x3FF) + 0xDC00);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11833 + return buf[0 .. 2];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11834 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11835 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11836 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11837 +/****************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11838 + * Encodes string s into UTF-16 and returns the encoded string.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11839 + * toUTF16z() is suitable for calling the 'W' functions in the Win32 API that take
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11840 + * an LPWSTR or LPCWSTR argument.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11841 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11842 +wstring toUTF16(in char[] s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11843 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11844 + wchar[] r;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11845 + size_t slen = s.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11846 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11847 + r.length = slen;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11848 + r.length = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11849 + for (size_t i = 0; i < slen; )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11850 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11851 + dchar c = s[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11852 + if (c <= 0x7F)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11853 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11854 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11855 + r ~= cast(wchar)c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11856 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11857 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11858 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11859 + c = decode(s, i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11860 + encode(r, c);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11861 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11862 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11863 + return cast(wstring)r;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11864 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11865 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11866 +alias const(wchar)* wptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11867 +/** ditto */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11868 +wptr toUTF16z(in char[] s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11869 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11870 + wchar[] r;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11871 + size_t slen = s.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11872 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11873 + r.length = slen + 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11874 + r.length = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11875 + for (size_t i = 0; i < slen; )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11876 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11877 + dchar c = s[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11878 + if (c <= 0x7F)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11879 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11880 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11881 + r ~= cast(wchar)c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11882 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11883 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11884 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11885 + c = decode(s, i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11886 + encode(r, c);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11887 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11888 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11889 + r ~= "\000";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11890 + return r.ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11891 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11892 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11893 +/** ditto */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11894 +wstring toUTF16(wstring s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11895 + in
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11896 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11897 + validate(s);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11898 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11899 + body
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11900 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11901 + return s;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11902 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11903 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11904 +/** ditto */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11905 +wstring toUTF16(in dchar[] s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11906 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11907 + wchar[] r;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11908 + size_t slen = s.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11909 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11910 + r.length = slen;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11911 + r.length = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11912 + for (size_t i = 0; i < slen; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11913 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11914 + encode(r, s[i]);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11915 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11916 + return cast(wstring)r;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11917 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11918 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11919 +/* =================== Conversion to UTF32 ======================= */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11920 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11921 +/*****
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11922 + * Encodes string s into UTF-32 and returns the encoded string.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11923 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11924 +dstring toUTF32(in char[] s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11925 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11926 + dchar[] r;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11927 + size_t slen = s.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11928 + size_t j = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11929 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11930 + r.length = slen; // r[] will never be longer than s[]
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11931 + for (size_t i = 0; i < slen; )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11932 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11933 + dchar c = s[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11934 + if (c >= 0x80)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11935 + c = decode(s, i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11936 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11937 + i++; // c is ascii, no need for decode
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11938 + r[j++] = c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11939 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11940 + return cast(dstring)r[0 .. j];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11941 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11942 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11943 +/** ditto */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11944 +dstring toUTF32(in wchar[] s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11945 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11946 + dchar[] r;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11947 + size_t slen = s.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11948 + size_t j = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11949 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11950 + r.length = slen; // r[] will never be longer than s[]
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11951 + for (size_t i = 0; i < slen; )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11952 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11953 + dchar c = s[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11954 + if (c >= 0x80)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11955 + c = decode(s, i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11956 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11957 + i++; // c is ascii, no need for decode
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11958 + r[j++] = c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11959 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11960 + return cast(dstring)r[0 .. j];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11961 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11962 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11963 +/** ditto */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11964 +dstring toUTF32(dstring s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11965 + in
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11966 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11967 + validate(s);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11968 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11969 + body
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11970 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11971 + return s;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11972 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11973 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11974 +/* ================================ tests ================================== */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11975 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11976 +unittest
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11977 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11978 + debug(utf) printf("utf.toUTF.unittest\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11979 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11980 + auto c = "hello"c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11981 + auto w = toUTF16(c);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11982 + assert(w == "hello");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11983 + auto d = toUTF32(c);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11984 + assert(d == "hello");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11985 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11986 + c = toUTF8(w);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11987 + assert(c == "hello");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11988 + d = toUTF32(w);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11989 + assert(d == "hello");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11990 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11991 + c = toUTF8(d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11992 + assert(c == "hello");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11993 + w = toUTF16(d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11994 + assert(w == "hello");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11995 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11996 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11997 + c = "hel\u1234o";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11998 + w = toUTF16(c);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11999 + assert(w == "hel\u1234o");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12000 + d = toUTF32(c);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12001 + assert(d == "hel\u1234o");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12002 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12003 + c = toUTF8(w);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12004 + assert(c == "hel\u1234o");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12005 + d = toUTF32(w);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12006 + assert(d == "hel\u1234o");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12007 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12008 + c = toUTF8(d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12009 + assert(c == "hel\u1234o");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12010 + w = toUTF16(d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12011 + assert(w == "hel\u1234o");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12012 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12013 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12014 + c = "he\U0010AAAAllo";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12015 + w = toUTF16(c);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12016 + //foreach (wchar c; w) printf("c = x%x\n", c);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12017 + //foreach (wchar c; cast(wstring)"he\U0010AAAAllo") printf("c = x%x\n", c);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12018 + assert(w == "he\U0010AAAAllo");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12019 + d = toUTF32(c);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12020 + assert(d == "he\U0010AAAAllo");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12021 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12022 + c = toUTF8(w);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12023 + assert(c == "he\U0010AAAAllo");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12024 + d = toUTF32(w);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12025 + assert(d == "he\U0010AAAAllo");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12026 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12027 + c = toUTF8(d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12028 + assert(c == "he\U0010AAAAllo");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12029 + w = toUTF16(d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12030 + assert(w == "he\U0010AAAAllo");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12031 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12032 Index: src/compiler/ldc/util/console.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12033 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12034 --- src/compiler/ldc/util/console.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12035 +++ src/compiler/ldc/util/console.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12036 @@ -0,0 +1,49 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12037 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12038 + * The console module contains some simple routines for console output.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12039 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12040 + * Copyright: Public Domain
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12041 + * License: Public Domain
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12042 + * Authors: Sean Kelly
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12043 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12044 +module rt.util.console;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12045 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12046 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12047 +private
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12048 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12049 + version (Windows)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12050 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12051 + import core.sys.windows.windows;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12052 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12053 + else version( Posix )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12054 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12055 + import core.sys.posix.unistd;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12056 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12057 + import util.string;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12058 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12059 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12060 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12061 +struct Console
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12062 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12063 + Console opCall( in char[] val )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12064 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12065 + version( Windows )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12066 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12067 + uint count = void;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12068 + WriteFile( GetStdHandle( 0xfffffff5 ), val.ptr, val.length, &count, null );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12069 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12070 + else version( Posix )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12071 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12072 + write( 2, val.ptr, val.length );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12073 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12074 + return *this;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12075 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12076 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12077 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12078 + Console opCall( uint val )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12079 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12080 + char[10] tmp = void;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12081 + return opCall( tmp.intToString( val ) );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12082 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12083 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12084 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12085 +Console console;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12086 Index: src/compiler/ldc/util/ctype.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12087 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12088 --- src/compiler/ldc/util/ctype.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12089 +++ src/compiler/ldc/util/ctype.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12090 @@ -0,0 +1,106 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12091 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12092 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12093 + * Copyright (C) 2004-2005 by Digital Mars, www.digitalmars.com
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12094 + * Written by Walter Bright
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12095 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12096 + * This software is provided 'as-is', without any express or implied
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12097 + * warranty. In no event will the authors be held liable for any damages
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12098 + * arising from the use of this software.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12099 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12100 + * Permission is granted to anyone to use this software for any purpose,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12101 + * including commercial applications, and to alter it and redistribute it
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12102 + * freely, in both source and binary form, subject to the following
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12103 + * restrictions:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12104 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12105 + * o The origin of this software must not be misrepresented; you must not
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12106 + * claim that you wrote the original software. If you use this software
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12107 + * in a product, an acknowledgment in the product documentation would be
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12108 + * appreciated but is not required.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12109 + * o Altered source versions must be plainly marked as such, and must not
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12110 + * be misrepresented as being the original software.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12111 + * o This notice may not be removed or altered from any source
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12112 + * distribution.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12113 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12114 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12115 +// Simple ASCII char classification functions
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12116 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12117 +module rt.util.ctype;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12118 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12119 +int isalnum(dchar c) { return (c <= 0x7F) ? _ctype[c] & (_ALP\|_DIG) : 0; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12120 +int isalpha(dchar c) { return (c <= 0x7F) ? _ctype[c] & (_ALP) : 0; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12121 +int iscntrl(dchar c) { return (c <= 0x7F) ? _ctype[c] & (_CTL) : 0; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12122 +int isdigit(dchar c) { return (c <= 0x7F) ? _ctype[c] & (_DIG) : 0; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12123 +int islower(dchar c) { return (c <= 0x7F) ? _ctype[c] & (_LC) : 0; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12124 +int ispunct(dchar c) { return (c <= 0x7F) ? _ctype[c] & (_PNC) : 0; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12125 +int isspace(dchar c) { return (c <= 0x7F) ? _ctype[c] & (_SPC) : 0; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12126 +int isupper(dchar c) { return (c <= 0x7F) ? _ctype[c] & (_UC) : 0; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12127 +int isxdigit(dchar c) { return (c <= 0x7F) ? _ctype[c] & (_HEX) : 0; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12128 +int isgraph(dchar c) { return (c <= 0x7F) ? _ctype[c] & (_ALP\|_DIG\|_PNC) : 0; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12129 +int isprint(dchar c) { return (c <= 0x7F) ? _ctype[c] & (_ALP\|_DIG\|_PNC\|_BLK) : 0; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12130 +int isascii(dchar c) { return c <= 0x7F; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12131 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12132 +dchar tolower(dchar c)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12133 + out (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12134 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12135 + assert(!isupper(result));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12136 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12137 + body
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12138 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12139 + return isupper(c) ? c + (cast(dchar)'a' - 'A') : c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12140 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12141 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12142 +dchar toupper(dchar c)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12143 + out (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12144 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12145 + assert(!islower(result));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12146 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12147 + body
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12148 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12149 + return islower(c) ? c - (cast(dchar)'a' - 'A') : c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12150 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12151 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12152 +private:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12153 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12154 +enum
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12155 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12156 + _SPC = 8,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12157 + _CTL = 0x20,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12158 + _BLK = 0x40,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12159 + _HEX = 0x80,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12160 + _UC = 1,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12161 + _LC = 2,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12162 + _PNC = 0x10,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12163 + _DIG = 4,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12164 + _ALP = _UC\|_LC,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12165 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12166 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12167 +ubyte _ctype[128] =
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12168 +[
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12169 + _CTL,_CTL,_CTL,_CTL,_CTL,_CTL,_CTL,_CTL,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12170 + _CTL,_CTL\|_SPC,_CTL\|_SPC,_CTL\|_SPC,_CTL\|_SPC,_CTL\|_SPC,_CTL,_CTL,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12171 + _CTL,_CTL,_CTL,_CTL,_CTL,_CTL,_CTL,_CTL,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12172 + _CTL,_CTL,_CTL,_CTL,_CTL,_CTL,_CTL,_CTL,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12173 + _SPC\|_BLK,_PNC,_PNC,_PNC,_PNC,_PNC,_PNC,_PNC,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12174 + _PNC,_PNC,_PNC,_PNC,_PNC,_PNC,_PNC,_PNC,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12175 + _DIG\|_HEX,_DIG\|_HEX,_DIG\|_HEX,_DIG\|_HEX,_DIG\|_HEX,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12176 + _DIG\|_HEX,_DIG\|_HEX,_DIG\|_HEX,_DIG\|_HEX,_DIG\|_HEX,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12177 + _PNC,_PNC,_PNC,_PNC,_PNC,_PNC,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12178 + _PNC,_UC\|_HEX,_UC\|_HEX,_UC\|_HEX,_UC\|_HEX,_UC\|_HEX,_UC\|_HEX,_UC,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12179 + _UC,_UC,_UC,_UC,_UC,_UC,_UC,_UC,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12180 + _UC,_UC,_UC,_UC,_UC,_UC,_UC,_UC,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12181 + _UC,_UC,_UC,_PNC,_PNC,_PNC,_PNC,_PNC,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12182 + _PNC,_LC\|_HEX,_LC\|_HEX,_LC\|_HEX,_LC\|_HEX,_LC\|_HEX,_LC\|_HEX,_LC,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12183 + _LC,_LC,_LC,_LC,_LC,_LC,_LC,_LC,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12184 + _LC,_LC,_LC,_LC,_LC,_LC,_LC,_LC,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12185 + _LC,_LC,_LC,_PNC,_PNC,_PNC,_PNC,_CTL
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12186 +];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12187 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12188 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12189 +unittest
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12190 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12191 + assert(isspace(' '));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12192 + assert(!isspace('z'));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12193 + assert(toupper('a') == 'A');
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12194 + assert(tolower('Q') == 'q');
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12195 + assert(!isxdigit('G'));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12196 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12197 Index: src/compiler/ldc/util/string.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12198 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12199 --- src/compiler/ldc/util/string.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12200 +++ src/compiler/ldc/util/string.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12201 @@ -0,0 +1,35 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12202 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12203 + * The exception module defines all system-level exceptions and provides a
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12204 + * mechanism to alter system-level error handling.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12205 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12206 + * Copyright: Copyright (c) 2005-2008, The D Runtime Project
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12207 + * License: BSD Style, see LICENSE
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12208 + * Authors: Sean Kelly
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12209 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12210 +module rt.util.string;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12211 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12212 +private import core.stdc.string;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12213 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12214 +char[] intToString( char[] buf, uint val )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12215 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12216 + assert( buf.length > 9 );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12217 + auto p = buf.ptr + buf.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12218 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12219 + do
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12220 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12221 + *--p = cast(char)(val % 10 + '0');
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12222 + } while( val /= 10 );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12223 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12224 + return buf[p - buf.ptr .. $];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12225 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12226 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12227 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12228 +int dstrcmp( in char[] s1, in char[] s2 )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12229 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12230 + auto len = s1.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12231 + if( s2.length < len )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12232 + len = s2.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12233 + if( memcmp( s1.ptr, s2.ptr, len ) == 0 )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12234 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12235 + return s1.length > s2.length ? 1 : -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12236 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12237 Index: src/compiler/ldc/invariant.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12238 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12239 --- src/compiler/ldc/invariant.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12240 +++ src/compiler/ldc/invariant.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12241 @@ -0,0 +1,25 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12242 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12243 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12244 + * Placed into the Public Domain
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12245 + * written by Walter Bright
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12246 + * www.digitalmars.com
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12247 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12248 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12249 +extern(C) void _d_invariant(Object o)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12250 +{ ClassInfo c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12251 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12252 + //printf("__d_invariant(%p)\n", o);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12253 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12254 + // BUG: needs to be filename/line of caller, not library routine
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12255 + assert(o !is null); // just do null check, not invariant check
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12256 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12257 + c = o.classinfo;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12258 + do
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12259 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12260 + if (c.classInvariant)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12261 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12262 + (*c.classInvariant)(o);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12263 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12264 + c = c.base;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12265 + } while (c);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12266 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12267 Index: src/compiler/ldc/eh.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12268 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12269 --- src/compiler/ldc/eh.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12270 +++ src/compiler/ldc/eh.d (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12271 @@ -0,0 +1,388 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12272 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12273 + * This module contains functions and structures required for
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12274 + * exception handling.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12275 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12276 +module eh;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12277 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12278 +import util.console;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12279 +import ldc.cstdarg;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12280 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12281 +// debug = EH_personality;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12282 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12283 +// current EH implementation works on x86
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12284 +// if it has a working unwind runtime
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12285 +version(X86) {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12286 + version(linux) version=X86_UNWIND;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12287 + version(darwin) version=X86_UNWIND;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12288 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12289 +version(X86_64) {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12290 + version(linux) version=X86_UNWIND;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12291 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12292 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12293 +private extern(C) void abort();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12294 +private extern(C) int printf(in char*, ...);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12295 +private extern(C) int vprintf(in char*, va_list va);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12296 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12297 +// D runtime functions
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12298 +extern(C) {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12299 + int _d_isbaseof(ClassInfo oc, ClassInfo c);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12300 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12301 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12302 +// libunwind headers
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12303 +extern(C)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12304 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12305 + enum _Unwind_Reason_Code
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12306 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12307 + NO_REASON = 0,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12308 + FOREIGN_EXCEPTION_CAUGHT = 1,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12309 + FATAL_PHASE2_ERROR = 2,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12310 + FATAL_PHASE1_ERROR = 3,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12311 + NORMAL_STOP = 4,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12312 + END_OF_STACK = 5,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12313 + HANDLER_FOUND = 6,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12314 + INSTALL_CONTEXT = 7,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12315 + CONTINUE_UNWIND = 8
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12316 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12317 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12318 + enum _Unwind_Action
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12319 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12320 + SEARCH_PHASE = 1,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12321 + CLEANUP_PHASE = 2,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12322 + HANDLER_PHASE = 3,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12323 + FORCE_UNWIND = 4
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12324 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12325 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12326 + alias void* _Unwind_Context_Ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12327 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12328 + alias void function(_Unwind_Reason_Code, _Unwind_Exception*) _Unwind_Exception_Cleanup_Fn;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12329 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12330 + struct _Unwind_Exception
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12331 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12332 + char[8] exception_class;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12333 + _Unwind_Exception_Cleanup_Fn exception_cleanup;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12334 + int private_1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12335 + int private_2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12336 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12337 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12338 +version(X86_UNWIND)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12339 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12340 + void _Unwind_Resume(_Unwind_Exception*);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12341 + _Unwind_Reason_Code _Unwind_RaiseException(_Unwind_Exception*);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12342 + ulong _Unwind_GetLanguageSpecificData(_Unwind_Context_Ptr context);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12343 + ulong _Unwind_GetIP(_Unwind_Context_Ptr context);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12344 + ulong _Unwind_SetIP(_Unwind_Context_Ptr context, ulong new_value);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12345 + ulong _Unwind_SetGR(_Unwind_Context_Ptr context, int index, ulong new_value);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12346 + ulong _Unwind_GetRegionStart(_Unwind_Context_Ptr context);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12347 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12348 +else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12349 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12350 + // runtime calls these directly
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12351 + void _Unwind_Resume(_Unwind_Exception*)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12352 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12353 + console("_Unwind_Resume is not implemented on this platform.\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12354 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12355 + _Unwind_Reason_Code _Unwind_RaiseException(_Unwind_Exception*)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12356 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12357 + console("_Unwind_RaiseException is not implemented on this platform.\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12358 + return _Unwind_Reason_Code.FATAL_PHASE1_ERROR;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12359 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12360 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12361 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12362 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12363 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12364 +// error and exit
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12365 +extern(C) private void fatalerror(in char* format, ...)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12366 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12367 + va_list args;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12368 + va_start(args, format);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12369 + printf("Fatal error in EH code: ");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12370 + vprintf(format, args);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12371 + printf("\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12372 + abort();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12373 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12374 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12375 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12376 +// helpers for reading certain DWARF data
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12377 +private ubyte* get_uleb128(ubyte* addr, ref size_t res)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12378 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12379 + res = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12380 + size_t bitsize = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12381 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12382 + // read as long as high bit is set
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12383 + while(*addr & 0x80) {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12384 + res \|= (*addr & 0x7f) << bitsize;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12385 + bitsize += 7;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12386 + addr += 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12387 + if(bitsize >= size_t.sizeof*8)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12388 + fatalerror("tried to read uleb128 that exceeded size of size_t");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12389 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12390 + // read last
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12391 + if(bitsize != 0 && addr >= 1 << size_t.sizeof8 - bitsize)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12392 + fatalerror("Fatal error in EH code: tried to read uleb128 that exceeded size of size_t");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12393 + res \|= (*addr) << bitsize;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12394 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12395 + return addr + 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12396 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12397 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12398 +private ubyte* get_sleb128(ubyte* addr, ref ptrdiff_t res)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12399 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12400 + res = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12401 + size_t bitsize = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12402 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12403 + // read as long as high bit is set
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12404 + while(*addr & 0x80) {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12405 + res \|= (*addr & 0x7f) << bitsize;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12406 + bitsize += 7;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12407 + addr += 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12408 + if(bitsize >= size_t.sizeof*8)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12409 + fatalerror("tried to read sleb128 that exceeded size of size_t");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12410 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12411 + // read last
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12412 + if(bitsize != 0 && addr >= 1 << size_t.sizeof8 - bitsize)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12413 + fatalerror("tried to read sleb128 that exceeded size of size_t");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12414 + res \|= (*addr) << bitsize;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12415 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12416 + // take care of sign
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12417 + if(bitsize < size_t.sizeof8 && ((addr) & 0x40))
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12418 + res \|= cast(ptrdiff_t)(-1) ^ ((1 << (bitsize+7)) - 1);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12419 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12420 + return addr + 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12421 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12422 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12423 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12424 +// exception struct used by the runtime.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12425 +// _d_throw allocates a new instance and passes the address of its
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12426 +// _Unwind_Exception member to the unwind call. The personality
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12427 +// routine is then able to get the whole struct by looking at the data
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12428 +// surrounding the unwind info.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12429 +struct _d_exception
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12430 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12431 + Object exception_object;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12432 + _Unwind_Exception unwind_info;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12433 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12434 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12435 +// the 8-byte string identifying the type of exception
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12436 +// the first 4 are for vendor, the second 4 for language
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12437 +//TODO: This may be the wrong way around
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12438 +char[8] _d_exception_class = "LLDCD1\0\0";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12439 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12440 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12441 +//
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12442 +// x86 unwind specific implementation of personality function
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12443 +// and helpers
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12444 +//
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12445 +version(X86_UNWIND)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12446 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12447 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12448 +// the personality routine gets called by the unwind handler and is responsible for
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12449 +// reading the EH tables and deciding what to do
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12450 +extern(C) _Unwind_Reason_Code _d_eh_personality(int ver, _Unwind_Action actions, ulong exception_class, _Unwind_Exception* exception_info, _Unwind_Context_Ptr context)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12451 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12452 + // check ver: the C++ Itanium ABI only allows ver == 1
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12453 + if(ver != 1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12454 + return _Unwind_Reason_Code.FATAL_PHASE1_ERROR;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12455 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12456 + // check exceptionClass
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12457 + //TODO: Treat foreign exceptions with more respect
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12458 + if((cast(char*)&exception_class)[0..8] != _d_exception_class)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12459 + return _Unwind_Reason_Code.FATAL_PHASE1_ERROR;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12460 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12461 + // find call site table, action table and classinfo table
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12462 + // Note: callsite and action tables do not contain static-length
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12463 + // data and will be parsed as needed
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12464 + // Note: classinfo_table points past the end of the table
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12465 + ubyte* callsite_table;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12466 + ubyte* action_table;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12467 + ClassInfo* classinfo_table;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12468 + _d_getLanguageSpecificTables(context, callsite_table, action_table, classinfo_table);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12469 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12470 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12471 + /*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12472 + find landing pad and action table index belonging to ip by walking
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12473 + the callsite_table
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12474 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12475 + ubyte* callsite_walker = callsite_table;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12476 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12477 + // get the instruction pointer
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12478 + // will be used to find the right entry in the callsite_table
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12479 + // -1 because it will point past the last instruction
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12480 + ulong ip = _Unwind_GetIP(context) - 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12481 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12482 + // address block_start is relative to
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12483 + ulong region_start = _Unwind_GetRegionStart(context);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12484 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12485 + // table entries
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12486 + uint block_start_offset, block_size;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12487 + ulong landing_pad;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12488 + size_t action_offset;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12489 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12490 + while(true) {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12491 + // if we've gone through the list and found nothing...
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12492 + if(callsite_walker >= action_table)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12493 + return _Unwind_Reason_Code.CONTINUE_UNWIND;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12494 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12495 + block_start_offset = cast(uint)callsite_walker;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12496 + block_size = (cast(uint)callsite_walker + 1);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12497 + landing_pad = (cast(uint)callsite_walker + 2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12498 + if(landing_pad)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12499 + landing_pad += region_start;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12500 + callsite_walker = get_uleb128(callsite_walker + 3*uint.sizeof, action_offset);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12501 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12502 + debug(EH_personality_verbose) printf("%d %d %d\n", block_start_offset, block_size, landing_pad);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12503 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12504 + // since the list is sorted, as soon as we're past the ip
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12505 + // there's no handler to be found
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12506 + if(ip < region_start + block_start_offset)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12507 + return _Unwind_Reason_Code.CONTINUE_UNWIND;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12508 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12509 + // if we've found our block, exit
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12510 + if(ip < region_start + block_start_offset + block_size)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12511 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12512 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12513 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12514 + debug(EH_personality) printf("Found correct landing pad and actionOffset %d\n", action_offset);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12515 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12516 + // now we need the exception's classinfo to find a handler
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12517 + // the exception_info is actually a member of a larger _d_exception struct
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12518 + // the runtime allocated. get that now
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12519 + _d_exception* exception_struct = cast(_d_exception)(cast(ubyte)exception_info - _d_exception.unwind_info.offsetof);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12520 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12521 + // if there's no action offset and no landing pad, continue unwinding
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12522 + if(!action_offset && !landing_pad)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12523 + return _Unwind_Reason_Code.CONTINUE_UNWIND;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12524 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12525 + // if there's no action offset but a landing pad, this is a cleanup handler
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12526 + else if(!action_offset && landing_pad)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12527 + return _d_eh_install_finally_context(actions, landing_pad, exception_struct, context);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12528 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12529 + /*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12530 + walk action table chain, comparing classinfos using _d_isbaseof
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12531 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12532 + ubyte* action_walker = action_table + action_offset - 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12533 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12534 + ptrdiff_t ti_offset, next_action_offset;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12535 + while(true) {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12536 + action_walker = get_sleb128(action_walker, ti_offset);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12537 + // it is intentional that we not modify action_walker here
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12538 + // next_action_offset is from current action_walker position
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12539 + get_sleb128(action_walker, next_action_offset);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12540 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12541 + // negative are 'filters' which we don't use
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12542 + if(!(ti_offset >= 0))
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12543 + fatalerror("Filter actions are unsupported");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12544 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12545 + // zero means cleanup, which we require to be the last action
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12546 + if(ti_offset == 0) {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12547 + if(!(next_action_offset == 0))
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12548 + fatalerror("Cleanup action must be last in chain");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12549 + return _d_eh_install_finally_context(actions, landing_pad, exception_struct, context);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12550 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12551 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12552 + // get classinfo for action and check if the one in the
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12553 + // exception structure is a base
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12554 + ClassInfo catch_ci = classinfo_table[-ti_offset];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12555 + debug(EH_personality) printf("Comparing catch %s to exception %s\n", catch_ci.name.ptr, exception_struct.exception_object.classinfo.name.ptr);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12556 + if(_d_isbaseof(exception_struct.exception_object.classinfo, catch_ci))
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12557 + return _d_eh_install_catch_context(actions, ti_offset, landing_pad, exception_struct, context);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12558 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12559 + // we've walked through all actions and found nothing...
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12560 + if(next_action_offset == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12561 + return _Unwind_Reason_Code.CONTINUE_UNWIND;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12562 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12563 + action_walker += next_action_offset;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12564 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12565 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12566 + fatalerror("reached unreachable");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12567 + return _Unwind_Reason_Code.FATAL_PHASE1_ERROR;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12568 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12569 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12570 +// These are the register numbers for SetGR that
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12571 +// llvm's eh.exception and eh.selector intrinsics
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12572 +// will pick up.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12573 +// Found by trial-and-error :/
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12574 +version (X86_64)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12575 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12576 + private int eh_exception_regno = 3;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12577 + private int eh_selector_regno = 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12578 +} else {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12579 + private int eh_exception_regno = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12580 + private int eh_selector_regno = 2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12581 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12582 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12583 +private _Unwind_Reason_Code _d_eh_install_catch_context(_Unwind_Action actions, ptrdiff_t switchval, ulong landing_pad, _d_exception* exception_struct, _Unwind_Context_Ptr context)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12584 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12585 + debug(EH_personality) printf("Found catch clause!\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12586 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12587 + if(actions & _Unwind_Action.SEARCH_PHASE)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12588 + return _Unwind_Reason_Code.HANDLER_FOUND;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12589 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12590 + else if(actions & _Unwind_Action.HANDLER_PHASE)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12591 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12592 + debug(EH_personality) printf("Setting switch value to: %d!\n", switchval);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12593 + _Unwind_SetGR(context, eh_exception_regno, cast(ulong)cast(void*)(exception_struct.exception_object));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12594 + _Unwind_SetGR(context, eh_selector_regno, switchval);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12595 + _Unwind_SetIP(context, landing_pad);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12596 + return _Unwind_Reason_Code.INSTALL_CONTEXT;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12597 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12598 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12599 + fatalerror("reached unreachable");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12600 + return _Unwind_Reason_Code.FATAL_PHASE2_ERROR;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12601 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12602 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12603 +private _Unwind_Reason_Code _d_eh_install_finally_context(_Unwind_Action actions, ulong landing_pad, _d_exception* exception_struct, _Unwind_Context_Ptr context)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12604 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12605 + // if we're merely in search phase, continue
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12606 + if(actions & _Unwind_Action.SEARCH_PHASE)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12607 + return _Unwind_Reason_Code.CONTINUE_UNWIND;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12608 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12609 + debug(EH_personality) printf("Calling cleanup routine...\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12610 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12611 + _Unwind_SetGR(context, eh_exception_regno, cast(ulong)exception_struct);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12612 + _Unwind_SetGR(context, eh_selector_regno, 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12613 + _Unwind_SetIP(context, landing_pad);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12614 + return _Unwind_Reason_Code.INSTALL_CONTEXT;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12615 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12616 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12617 +private void _d_getLanguageSpecificTables(_Unwind_Context_Ptr context, ref ubyte* callsite, ref ubyte* action, ref ClassInfo* ci)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12618 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12619 + ubyte* data = cast(ubyte*)_Unwind_GetLanguageSpecificData(context);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12620 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12621 + //TODO: Do proper DWARF reading here
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12622 + if(*data++ != 0xff)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12623 + fatalerror("DWARF header has unexpected format 1");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12624 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12625 + if(*data++ != 0x00)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12626 + fatalerror("DWARF header has unexpected format 2");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12627 + size_t cioffset;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12628 + data = get_uleb128(data, cioffset);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12629 + ci = cast(ClassInfo*)(data + cioffset);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12630 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12631 + if(*data++ != 0x03)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12632 + fatalerror("DWARF header has unexpected format 3");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12633 + size_t callsitelength;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12634 + data = get_uleb128(data, callsitelength);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12635 + action = data + callsitelength;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12636 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12637 + callsite = data;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12638 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12639 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12640 +} // end of x86 Linux specific implementation
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12641 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12642 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12643 +extern(C) void _d_throw_exception(Object e)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12644 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12645 + if (e !is null)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12646 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12647 + _d_exception* exc_struct = new _d_exception;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12648 + exc_struct.unwind_info.exception_class[] = _d_exception_class;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12649 + exc_struct.exception_object = e;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12650 + _Unwind_Reason_Code ret = _Unwind_RaiseException(&exc_struct.unwind_info);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12651 + console("_Unwind_RaiseException failed with reason code: ")(ret)("\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12652 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12653 + abort();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12654 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12655 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12656 +extern(C) void _d_eh_resume_unwind(_d_exception* exception_struct)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12657 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12658 + _Unwind_Resume(&exception_struct.unwind_info);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12659 +}
763 9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	12660 Index: import/object.di
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	12661 ===================================================================
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	12662 --- import/object.di (revision 46)
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	12663 +++ import/object.di (working copy)
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	12664 @@ -208,6 +208,13 @@
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	12665 void function() dtor;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	12666 void function() unitTest;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	12667
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	12668 + // DMD actually has them too, but LDC doesn't allow the resulting type mismatch
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	12669 + version( LDC )
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	12670 + {
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	12671 + void* xgetMembers;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	12672 + void function() ictor;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	12673 + }
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	12674 +
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	12675 static int opApply(int delegate(inout ModuleInfo));
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	12676 }
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	12677
768 85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12678 Index: import/ldc/intrinsics.di
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12679 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12680 --- import/ldc/intrinsics.di (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12681 +++ import/ldc/intrinsics.di (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12682 @@ -0,0 +1,343 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12683 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12684 + * This module holds declarations to LLVM intrinsics.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12685 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12686 + * See the LLVM language reference for more information:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12687 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12688 + * - http://llvm.org/docs/LangRef.html#intrinsics
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12689 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12690 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12691 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12692 +module ldc.intrinsics;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12693 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12694 +// Check for the right compiler
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12695 +version(LDC)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12696 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12697 + // OK
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12698 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12699 +else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12700 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12701 + static assert(false, "This module is only valid for LDC");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12702 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12703 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12704 +//
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12705 +// CODE GENERATOR INTRINSICS
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12706 +//
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12707 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12708 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12709 +// The 'llvm.returnaddress' intrinsic attempts to compute a target-specific value indicating the return address of the current function or one of its callers.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12710 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12711 +pragma(intrinsic, "llvm.returnaddress")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12712 + void* llvm_returnaddress(uint level);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12713 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12714 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12715 +// The 'llvm.frameaddress' intrinsic attempts to return the target-specific frame pointer value for the specified stack frame.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12716 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12717 +pragma(intrinsic, "llvm.frameaddress")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12718 + void* llvm_frameaddress(uint level);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12719 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12720 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12721 +// The 'llvm.stacksave' intrinsic is used to remember the current state of the function stack, for use with llvm.stackrestore. This is useful for implementing language features like scoped automatic variable sized arrays in C99.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12722 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12723 +pragma(intrinsic, "llvm.stacksave")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12724 + void* llvm_stacksave();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12725 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12726 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12727 +// The 'llvm.stackrestore' intrinsic is used to restore the state of the function stack to the state it was in when the corresponding llvm.stacksave intrinsic executed. This is useful for implementing language features like scoped automatic variable sized arrays in C99.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12728 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12729 +pragma(intrinsic, "llvm.stackrestore")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12730 + void llvm_stackrestore(void* ptr);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12731 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12732 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12733 +// The 'llvm.prefetch' intrinsic is a hint to the code generator to insert a prefetch instruction if supported; otherwise, it is a noop. Prefetches have no effect on the behavior of the program but can change its performance characteristics.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12734 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12735 +pragma(intrinsic, "llvm.prefetch")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12736 + void llvm_prefetch(void* ptr, uint rw, uint locality);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12737 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12738 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12739 +// The 'llvm.pcmarker' intrinsic is a method to export a Program Counter (PC) in a region of code to simulators and other tools. The method is target specific, but it is expected that the marker will use exported symbols to transmit the PC of the marker. The marker makes no guarantees that it will remain with any specific instruction after optimizations. It is possible that the presence of a marker will inhibit optimizations. The intended use is to be inserted after optimizations to allow correlations of simulation runs.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12740 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12741 +pragma(intrinsic, "llvm.pcmarker")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12742 + void llvm_pcmarker(uint id);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12743 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12744 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12745 +// The 'llvm.readcyclecounter' intrinsic provides access to the cycle counter register (or similar low latency, high accuracy clocks) on those targets that support it. On X86, it should map to RDTSC. On Alpha, it should map to RPCC. As the backing counters overflow quickly (on the order of 9 seconds on alpha), this should only be used for small timings.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12746 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12747 +pragma(intrinsic, "llvm.readcyclecounter")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12748 + ulong readcyclecounter();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12749 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12750 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12751 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12752 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12753 +//
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12754 +// STANDARD C LIBRARY INTRINSICS
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12755 +//
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12756 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12757 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12758 +// The 'llvm.memcpy.*' intrinsics copy a block of memory from the source location to the destination location.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12759 +// Note that, unlike the standard libc function, the llvm.memcpy.* intrinsics do not return a value, and takes an extra alignment argument.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12760 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12761 +pragma(intrinsic, "llvm.memcpy.i32")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12762 + void llvm_memcpy_i32(void* dst, void* src, uint len, uint alignment);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12763 +pragma(intrinsic, "llvm.memcpy.i64")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12764 + void llvm_memcpy_i64(void* dst, void* src, ulong len, uint alignment);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12765 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12766 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12767 +// The 'llvm.memmove.*' intrinsics move a block of memory from the source location to the destination location. It is similar to the 'llvm.memcpy' intrinsic but allows the two memory locations to overlap.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12768 +// Note that, unlike the standard libc function, the llvm.memmove.* intrinsics do not return a value, and takes an extra alignment argument.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12769 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12770 +pragma(intrinsic, "llvm.memmove.i32")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12771 + void llvm_memmove_i32(void* dst, void* src, uint len, uint alignment);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12772 +pragma(intrinsic, "llvm.memmove.i64")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12773 + void llvm_memmove_i64(void* dst, void* src, ulong len, int alignment);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12774 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12775 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12776 +// The 'llvm.memset.*' intrinsics fill a block of memory with a particular byte value.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12777 +// Note that, unlike the standard libc function, the llvm.memset intrinsic does not return a value, and takes an extra alignment argument.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12778 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12779 +pragma(intrinsic, "llvm.memset.i32")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12780 + void llvm_memset_i32(void* dst, ubyte val, uint len, uint alignment);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12781 +pragma(intrinsic, "llvm.memset.i64")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12782 + void llvm_memset_i64(void* dst, ubyte val, ulong len, uint alignment);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12783 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12784 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12785 +// The 'llvm.sqrt' intrinsics return the sqrt of the specified operand, returning the same value as the libm 'sqrt' functions would. Unlike sqrt in libm, however, llvm.sqrt has undefined behavior for negative numbers other than -0.0 (which allows for better optimization, because there is no need to worry about errno being set). llvm.sqrt(-0.0) is defined to return -0.0 like IEEE sqrt.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12786 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12787 +pragma(intrinsic, "llvm.sqrt.f32")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12788 + float llvm_sqrt_f32(float val);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12789 +pragma(intrinsic, "llvm.sqrt.f64")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12790 + double llvm_sqrt_f64(double val);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12791 +version(X86)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12792 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12793 +pragma(intrinsic, "llvm.sqrt.f80")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12794 + real llvm_sqrt_f80(real val);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12795 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12796 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12797 +version(X86_64)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12798 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12799 +pragma(intrinsic, "llvm.sqrt.f80")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12800 + real llvm_sqrt_f80(real val);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12801 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12802 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12803 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12804 +// The 'llvm.sin.*' intrinsics return the sine of the operand.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12805 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12806 +pragma(intrinsic, "llvm.sin.f32")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12807 + float llvm_sin_f32(float val);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12808 +pragma(intrinsic, "llvm.sin.f64")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12809 + double llvm_sin_f64(double val);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12810 +version(X86)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12811 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12812 +pragma(intrinsic, "llvm.sin.f80")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12813 + real llvm_sin_f80(real val);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12814 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12815 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12816 +version(X86_64)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12817 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12818 +pragma(intrinsic, "llvm.sin.f80")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12819 + real llvm_sin_f80(real val);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12820 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12821 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12822 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12823 +// The 'llvm.cos.*' intrinsics return the cosine of the operand.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12824 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12825 +pragma(intrinsic, "llvm.cos.f32")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12826 + float llvm_cos_f32(float val);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12827 +pragma(intrinsic, "llvm.cos.f64")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12828 + double llvm_cos_f64(double val);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12829 +version(X86)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12830 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12831 +pragma(intrinsic, "llvm.cos.f80")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12832 + real llvm_cos_f80(real val);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12833 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12834 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12835 +version(X86_64)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12836 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12837 +pragma(intrinsic, "llvm.cos.f80")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12838 + real llvm_cos_f80(real val);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12839 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12840 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12841 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12842 +// The 'llvm.powi.*' intrinsics return the first operand raised to the specified (positive or negative) power. The order of evaluation of multiplications is not defined. When a vector of floating point type is used, the second argument remains a scalar integer value.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12843 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12844 +pragma(intrinsic, "llvm.powi.f32")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12845 + float llvm_powi_f32(float val, int power);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12846 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12847 +pragma(intrinsic, "llvm.powi.f64")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12848 + double llvm_powi_f64(double val, int power);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12849 +version(X86)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12850 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12851 +pragma(intrinsic, "llvm.powi.f80")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12852 + real llvm_powi_f80(real val, int power);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12853 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12854 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12855 +version(X86_64)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12856 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12857 +pragma(intrinsic, "llvm.powi.f80")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12858 + real llvm_powi_f80(real val, int power);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12859 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12860 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12861 +// The 'llvm.pow.*' intrinsics return the first operand raised to the specified (positive or negative) power.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12862 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12863 +pragma(intrinsic, "llvm.pow.f32")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12864 + float llvm_pow_f32(float val, float power);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12865 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12866 +pragma(intrinsic, "llvm.pow.f64")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12867 + double llvm_pow_f64(double val, double power);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12868 +version(X86)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12869 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12870 +pragma(intrinsic, "llvm.pow.f80")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12871 + real llvm_pow_f80(real val, real power);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12872 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12873 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12874 +version(X86_64)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12875 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12876 +pragma(intrinsic, "llvm.pow.f80")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12877 + real llvm_pow_f80(real val, real power);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12878 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12879 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12880 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12881 +//
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12882 +// BIT MANIPULATION INTRINSICS
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12883 +//
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12884 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12885 +// The 'llvm.bswap' family of intrinsics is used to byte swap integer values with an even number of bytes (positive multiple of 16 bits). These are useful for performing operations on data that is not in the target's native byte order.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12886 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12887 +pragma(intrinsic, "llvm.bswap.i16.i16")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12888 + ushort llvm_bswap_i16(ushort val);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12889 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12890 +pragma(intrinsic, "llvm.bswap.i32.i32")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12891 + uint llvm_bswap_i32(uint val);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12892 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12893 +pragma(intrinsic, "llvm.bswap.i64.i64")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12894 + ulong llvm_bswap_i64(ulong val);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12895 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12896 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12897 +// The 'llvm.ctpop' family of intrinsics counts the number of bits set in a value.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12898 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12899 +pragma(intrinsic, "llvm.ctpop.i8")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12900 + ubyte llvm_ctpop_i8(ubyte src);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12901 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12902 +pragma(intrinsic, "llvm.ctpop.i16")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12903 + ushort llvm_ctpop_i16(ushort src);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12904 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12905 +pragma(intrinsic, "llvm.ctpop.i32")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12906 + uint llvm_ctpop_i32(uint src);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12907 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12908 +pragma(intrinsic, "llvm.ctpop.i64")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12909 + ulong llvm_ctpop_i64(ulong src);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12910 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12911 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12912 +// The 'llvm.ctlz' family of intrinsic functions counts the number of leading zeros in a variable.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12913 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12914 +pragma(intrinsic, "llvm.ctlz.i8")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12915 + ubyte llvm_ctlz_i8(ubyte src);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12916 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12917 +pragma(intrinsic, "llvm.ctlz.i16")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12918 + ushort llvm_ctlz_i16(ushort src);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12919 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12920 +pragma(intrinsic, "llvm.ctlz.i32")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12921 + uint llvm_ctlz_i32(uint src);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12922 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12923 +pragma(intrinsic, "llvm.ctlz.i64")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12924 + ulong llvm_ctlz_i64(ulong src);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12925 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12926 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12927 +// The 'llvm.cttz' family of intrinsic functions counts the number of trailing zeros.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12928 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12929 +pragma(intrinsic, "llvm.cttz.i8")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12930 + ubyte llvm_cttz_i8(ubyte src);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12931 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12932 +pragma(intrinsic, "llvm.cttz.i16")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12933 + ushort llvm_cttz_i16(ushort src);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12934 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12935 +pragma(intrinsic, "llvm.cttz.i32")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12936 + uint llvm_cttz_i32(uint src);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12937 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12938 +pragma(intrinsic, "llvm.cttz.i64")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12939 + ulong llvm_cttz_i64(ulong src);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12940 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12941 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12942 +// The 'llvm.part.select' family of intrinsic functions selects a range of bits from an integer value and returns them in the same bit width as the original value.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12943 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12944 +pragma(intrinsic, "llvm.part.select.i8")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12945 + ubyte llvm_part_select_i(ubyte val, uint loBit, uint hiBit);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12946 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12947 +pragma(intrinsic, "llvm.part.select.i16")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12948 + ushort llvm_part_select_i(ushort val, uint loBit, uint hiBit);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12949 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12950 +pragma(intrinsic, "llvm.part.select.i32")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12951 + uint llvm_part_select_i(uint val, uint loBit, uint hiBit);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12952 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12953 +pragma(intrinsic, "llvm.part.select.i64")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12954 + ulong llvm_part_select_i(ulong val, uint loBit, uint hiBit);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12955 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12956 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12957 +// The 'llvm.part.set' family of intrinsic functions replaces a range of bits in an integer value with another integer value. It returns the integer with the replaced bits.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12958 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12959 +// TODO
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12960 +// declare i17 @llvm.part.set.i17.i9 (i17 %val, i9 %repl, i32 %lo, i32 %hi)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12961 +// declare i29 @llvm.part.set.i29.i9 (i29 %val, i9 %repl, i32 %lo, i32 %hi)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12962 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12963 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12964 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12965 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12966 +//
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12967 +// ATOMIC OPERATIONS AND SYNCHRONIZATION INTRINSICS
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12968 +//
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12969 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12970 +// The llvm.memory.barrier intrinsic guarantees ordering between specific pairs of memory access types.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12971 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12972 +pragma(intrinsic, "llvm.memory.barrier")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12973 + void llvm_memory_barrier(bool ll, bool ls, bool sl, bool ss, bool device);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12974 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12975 +// This loads a value in memory and compares it to a given value. If they are equal, it stores a new value into the memory.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12976 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12977 +pragma(intrinsic, "llvm.atomic.cmp.swap.i#.p0i#")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12978 + T llvm_atomic_cmp_swap(T)(T* ptr, T cmp, T val);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12979 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12980 +// This intrinsic loads the value stored in memory at ptr and yields the value from memory. It then stores the value in val in the memory at ptr.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12981 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12982 +pragma(intrinsic, "llvm.atomic.swap.i#.p0i#")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12983 + T llvm_atomic_swap(T)(T* ptr, T val);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12984 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12985 +// This intrinsic adds delta to the value stored in memory at ptr. It yields the original value at ptr.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12986 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12987 +pragma(intrinsic, "llvm.atomic.load.add.i#.p0i#")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12988 + T llvm_atomic_load_add(T)(T* ptr, T val);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12989 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12990 +// This intrinsic subtracts delta to the value stored in memory at ptr. It yields the original value at ptr.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12991 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12992 +pragma(intrinsic, "llvm.atomic.load.sub.i#.p0i#")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12993 + T llvm_atomic_load_sub(T)(T* ptr, T val);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12994 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12995 +// These intrinsics bitwise the operation (and, nand, or, xor) delta to the value stored in memory at ptr. It yields the original value at ptr.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12996 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12997 +pragma(intrinsic, "llvm.atomic.load.and.i#.p0i#")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12998 + T llvm_atomic_load_and(T)(T* ptr, T val);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12999 +pragma(intrinsic, "llvm.atomic.load.nand.i#.p0i#")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13000 + T llvm_atomic_load_nand(T)(T* ptr, T val);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13001 +pragma(intrinsic, "llvm.atomic.load.or.i#.p0i#")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13002 + T llvm_atomic_load_or(T)(T* ptr, T val);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13003 +pragma(intrinsic, "llvm.atomic.load.xor.i#.p0i#")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13004 + T llvm_atomic_load_xor(T)(T* ptr, T val);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13005 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13006 +// These intrinsics takes the signed or unsigned minimum or maximum of delta and the value stored in memory at ptr. It yields the original value at ptr.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13007 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13008 +pragma(intrinsic, "llvm.atomic.load.max.i#.p0i#")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13009 + T llvm_atomic_load_max(T)(T* ptr, T val);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13010 +pragma(intrinsic, "llvm.atomic.load.min.i#.p0i#")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13011 + T llvm_atomic_load_min(T)(T* ptr, T val);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13012 +pragma(intrinsic, "llvm.atomic.load.umax.i#.p0i#")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13013 + T llvm_atomic_load_umax(T)(T* ptr, T val);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13014 +pragma(intrinsic, "llvm.atomic.load.umin.i#.p0i#")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13015 + T llvm_atomic_load_umin(T)(T* ptr, T val);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13016 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13017 +//
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13018 +// GENERAL INTRINSICS
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13019 +//
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13020 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13021 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13022 +// This intrinsics is lowered to the target dependent trap instruction. If the target does not have a trap instruction, this intrinsic will be lowered to the call of the abort() function.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13023 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13024 +pragma(intrinsic, "llvm.trap")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13025 + void llvm_trap();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13026 Index: import/ldc/cstdarg.di
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13027 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13028 --- import/ldc/cstdarg.di (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13029 +++ import/ldc/cstdarg.di (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13030 @@ -0,0 +1,29 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13031 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13032 + * vararg support for extern(C) functions
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13033 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13034 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13035 +module ldc.cstdarg;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13036 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13037 +// Check for the right compiler
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13038 +version(LDC)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13039 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13040 + // OK
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13041 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13042 +else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13043 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13044 + static assert(false, "This module is only valid for LDC");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13045 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13046 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13047 +alias void* va_list;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13048 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13049 +pragma(va_start)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13050 + void va_start(T)(va_list ap, ref T);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13051 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13052 +pragma(va_arg)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13053 + T va_arg(T)(va_list ap);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13054 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13055 +pragma(va_end)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13056 + void va_end(va_list args);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13057 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13058 +pragma(va_copy)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13059 + void va_copy(va_list dst, va_list src);
763 9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13060 Index: import/core/stdc/stdarg.d
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13061 ===================================================================
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13062 --- import/core/stdc/stdarg.d (revision 46)
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13063 +++ import/core/stdc/stdarg.d (working copy)
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13064 @@ -9,8 +9,12 @@
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13065 module core.stdc.stdarg;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13066
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13067
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13068 -version( GNU )
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13069 +version( LDC )
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13070 {
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13071 + public import ldc.cstdarg;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13072 +}
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13073 +else version( GNU )
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13074 +{
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13075 public import std.c.stdarg;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13076 }
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13077 else
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13078 Index: import/core/bitmanip.di
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13079 ===================================================================
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13080 --- import/core/bitmanip.di (revision 46)
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13081 +++ import/core/bitmanip.di (working copy)
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13082 @@ -171,6 +171,10 @@
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13083 */
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13084 uint outpl( uint port_address, uint value );
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13085 }
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13086 +else version( LDC )
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13087 +{
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13088 + public import ldc.bitmanip;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13089 +}
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13090 else
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13091 {
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13092 public import std.intrinsic;

Mercurial > projects > ldc

annotate runtime/ldc2.diff @ 768:85e2093edd73