projects/ldc: runtime/ldc2.diff annotate

annotate runtime/ldc2.diff @ 883:b52d5de7783f

GC defines and linkage changes.

author	Christian Kamm <kamm incasoftware de>
date	Thu, 08 Jan 2009 18:20:02 +0100
parents	038ea84f2d9d
children

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)/.
769 038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	615 Index: src/ldc.mak
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	616 ===================================================================
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	617 --- src/ldc.mak (revision 0)
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	618 +++ src/ldc.mak (revision 0)
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	619 @@ -0,0 +1,78 @@
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	620 +# Makefile to build the composite D runtime library for Linux
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	621 +# Designed to work with GNU make
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	622 +# Targets:
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	623 +# make
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	624 +# Same as make all
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	625 +# make lib
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	626 +# Build the runtime library
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	627 +# make doc
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	628 +# Generate documentation
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	629 +# make clean
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	630 +# Delete unneeded files created by build process
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	631 +
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	632 +LIB_TARGET=libdruntime-ldc.a
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	633 +DUP_TARGET=libdruntime.a
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	634 +LIB_MASK=libdruntime*.a
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	635 +
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	636 +DIR_RT=compiler/ldc
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	637 +DIR_CC=common
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	638 +DIR_GC=gc/basic
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	639 +
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	640 +CP=cp -f
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	641 +RM=rm -f
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	642 +MD=mkdir -p
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	643 +
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	644 +CC=gcc
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	645 +LC=$(AR) -qsv
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	646 +DC=ldc2
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	647 +
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	648 +LIB_DEST=../lib
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	649 +
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	650 +ADD_CFLAGS=
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	651 +ADD_DFLAGS=
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	652 +
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	653 +targets : lib doc
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	654 +all : lib doc
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	655 +
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	656 +######################################################
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	657 +
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	658 +ALL_OBJS=
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	659 +
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	660 +######################################################
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	661 +
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	662 +ALL_DOCS=
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	663 +
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	664 +######################################################
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	665 +
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	666 +lib : $(ALL_OBJS)
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	667 + make -C $(DIR_RT) -fldc.mak lib DC=$(DC) ADD_DFLAGS="$(ADD_DFLAGS)" ADD_CFLAGS="$(ADD_CFLAGS)"
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	668 + make -C $(DIR_CC) -fldc.mak lib DC=$(DC) ADD_DFLAGS="$(ADD_DFLAGS)" ADD_CFLAGS="$(ADD_CFLAGS)"
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	669 + make -C $(DIR_GC) -fldc.mak lib DC=$(DC) ADD_DFLAGS="$(ADD_DFLAGS)" ADD_CFLAGS="$(ADD_CFLAGS)"
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	670 + $(RM) $(LIB_TARGET)
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	671 + $(LC) $(LIB_TARGET) `find $(DIR_RT) -name "*.o" \| xargs echo`
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	672 + $(LC) $(LIB_TARGET) `find $(DIR_CC) -name "*.o" \| xargs echo`
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	673 + $(LC) $(LIB_TARGET) `find $(DIR_GC) -name "*.o" \| xargs echo`
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	674 + $(RM) $(DUP_TARGET)
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	675 + $(CP) $(LIB_TARGET) $(DUP_TARGET)
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	676 +
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	677 +doc : $(ALL_DOCS)
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	678 + make -C $(DIR_RT) -fldc.mak doc DC=$(DC)
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	679 + make -C $(DIR_CC) -fldc.mak doc DC=$(DC)
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	680 + make -C $(DIR_GC) -fldc.mak doc DC=$(DC)
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	681 +
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	682 +######################################################
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	683 +
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	684 +clean :
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	685 + find . -name "*.di" \| xargs $(RM)
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	686 + $(RM) $(ALL_OBJS)
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	687 + $(RM) $(ALL_DOCS)
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	688 + make -C $(DIR_RT) -fldc.mak clean
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	689 + make -C $(DIR_CC) -fldc.mak clean
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	690 + make -C $(DIR_GC) -fldc.mak clean
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	691 + $(RM) $(LIB_MASK)
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	692 +
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	693 +install :
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	694 + make -C $(DIR_RT) -fldc.mak install
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	695 + make -C $(DIR_CC) -fldc.mak install
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	696 + make -C $(DIR_GC) -fldc.mak install
038ea84f2d9d D2: forgot the main makefile ... :( Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 768 diff changeset	697 + $(CP) $(LIB_MASK) $(LIB_DEST)/.
768 85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	698 Index: src/compiler/ldc/adi.d
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 --- 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	701 +++ 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	702 @@ -0,0 +1,602 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	703 +//_ adi.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	704 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	705 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	706 + * 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	707 + * Dynamic array property support routines
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	708 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	709 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	710 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	711 + * 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	712 + * Written by Walter Bright
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 + * 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	715 + * 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	716 + * 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	717 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	718 + * 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	719 + * 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	720 + * 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	721 + * restrictions:
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 + * 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	724 + * 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	725 + * 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	726 + * appreciated but is not required.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	727 + * 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	728 + * 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	729 + * 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	730 + * distribution.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	731 + */
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 + * 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	735 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	736 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	737 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	738 +//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	739 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	740 +private
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 + version( D_Version2 )
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 + import core.stdc.stdlib;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	745 + import core.stdc.string;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	746 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	747 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	748 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	749 + import tango.stdc.stdlib;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	750 + import tango.stdc.string;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	751 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	752 + import util.utf;
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 + enum BlkAttr : uint
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 + FINALIZE = 0b0000_0001,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	757 + NO_SCAN = 0b0000_0010,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	758 + NO_MOVE = 0b0000_0100,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	759 + ALL_BITS = 0b1111_1111
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	762 + 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	763 + 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	764 + 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	765 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	766 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	767 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	768 +/**********************************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	769 + * Reverse array of chars.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	770 + * 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	771 + * reversed.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	772 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	773 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	774 +extern (C) char[] _adReverseChar(char[] a)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	775 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	776 + if (a.length > 1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	777 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	778 + char[6] tmp;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	779 + char[6] tmplo;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	780 + char* lo = a.ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	781 + char* hi = &a[length - 1];
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 + while (lo < hi)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	784 + { auto clo = *lo;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	785 + auto chi = *hi;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	786 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	787 + 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	788 + if (clo <= 0x7F && chi <= 0x7F)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	789 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	790 + debug(adi) printf("\tascii\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	791 + *lo = chi;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	792 + *hi = clo;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	793 + lo++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	794 + hi--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	795 + continue;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	798 + uint stridelo = UTF8stride[clo];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	799 + // 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	800 + if (stridelo == 0xFF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	801 + stridelo = 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	802 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	803 + uint stridehi = 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	804 + while ((chi & 0xC0) == 0x80)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	805 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	806 + chi = *--hi;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	807 + stridehi++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	808 + assert(hi >= lo);
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 + if (lo == hi)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	811 + break;
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 + 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	814 + if (stridelo == stridehi)
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	817 + memcpy(tmp.ptr, lo, stridelo);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	818 + memcpy(lo, hi, stridelo);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	819 + memcpy(hi, tmp.ptr, stridelo);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	820 + lo += stridelo;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	821 + hi--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	822 + continue;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	823 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	824 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	825 + /* 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	826 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	827 + memcpy(tmp.ptr, hi, stridehi);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	828 + memcpy(tmplo.ptr, lo, stridelo);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	829 + 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	830 + memcpy(lo, tmp.ptr, stridehi);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	831 + 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	832 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	833 + lo += stridehi;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	834 + hi = hi - 1 + (stridehi - stridelo);
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 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	837 + return a;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	838 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	839 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	840 +unittest
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	841 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	842 + char[] a = "abcd"c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	843 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	844 + char[] r = a.dup.reverse;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	845 + //writefln(r);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	846 + assert(r == "dcba");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	847 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	848 + a = "a\u1235\u1234c";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	849 + //writefln(a);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	850 + r = a.dup.reverse;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	851 + //writefln(r);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	852 + assert(r == "c\u1234\u1235a");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	853 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	854 + a = "ab\u1234c";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	855 + //writefln(a);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	856 + r = a.dup.reverse;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	857 + //writefln(r);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	858 + assert(r == "c\u1234ba");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	859 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	860 + a = "\u3026\u2021\u3061\n";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	861 + r = a.dup.reverse;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	862 + assert(r == "\n\u3061\u2021\u3026");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	863 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	864 +
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 + * Reverse array of wchars.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	868 + * 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	869 + * reversed.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	870 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	871 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	872 +extern (C) wchar[] _adReverseWchar(wchar[] a)
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 + if (a.length > 1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	875 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	876 + wchar[2] tmp;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	877 + wchar* lo = a.ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	878 + wchar* hi = &a[length - 1];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	879 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	880 + while (lo < hi)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	881 + { auto clo = *lo;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	882 + auto chi = *hi;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	883 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	884 + if ((clo < 0xD800 \|\| clo > 0xDFFF) &&
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	885 + (chi < 0xD800 \|\| chi > 0xDFFF))
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	886 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	887 + *lo = chi;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	888 + *hi = clo;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	889 + lo++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	890 + hi--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	891 + continue;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	892 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	893 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	894 + 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	895 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	896 + int stridehi = 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	897 + if (chi >= 0xDC00 && chi <= 0xDFFF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	898 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	899 + chi = *--hi;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	900 + stridehi++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	901 + assert(hi >= lo);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	902 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	903 + if (lo == hi)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	904 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	905 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	906 + if (stridelo == stridehi)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	907 + { int stmp;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	908 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	909 + assert(stridelo == 2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	910 + assert(stmp.sizeof == 2 * (*lo).sizeof);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	911 + stmp = cast(int)lo;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	912 + cast(int)lo = cast(int)hi;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	913 + cast(int)hi = stmp;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	914 + lo += stridelo;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	915 + hi--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	916 + continue;
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 + /* 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	920 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	921 + 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	922 + 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	923 + 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	924 + 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	925 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	926 + lo += stridehi;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	927 + hi = hi - 1 + (stridehi - stridelo);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	928 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	929 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	930 + return a;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	931 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	932 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	933 +unittest
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	934 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	935 + wchar[] a = "abcd";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	936 + wchar[] r;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	937 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	938 + r = a.dup.reverse;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	939 + assert(r == "dcba");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	940 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	941 + a = "a\U00012356\U00012346c";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	942 + r = a.dup.reverse;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	943 + assert(r == "c\U00012346\U00012356a");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	944 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	945 + a = "ab\U00012345c";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	946 + r = a.dup.reverse;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	947 + assert(r == "c\U00012345ba");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	948 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	949 +
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 +/**********************************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	952 + * Support for array.reverse property.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	953 + * 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	954 + * 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	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 +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	958 + out (result)
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 + assert(result.ptr is a.ptr);
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 + body
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 + if (a.length >= 2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	965 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	966 + byte* tmp;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	967 + byte[16] buffer;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	968 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	969 + void* lo = a.ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	970 + 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	971 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	972 + tmp = buffer.ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	973 + if (szelem > 16)
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 + //version (Win32)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	976 + //tmp = cast(byte*) alloca(szelem);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	977 + //else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	978 + tmp = cast(byte*) gc_malloc(szelem);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	979 + }
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 + 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	982 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	983 + memcpy(tmp, lo, szelem);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	984 + memcpy(lo, hi, szelem);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	985 + memcpy(hi, tmp, szelem);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	986 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	987 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	988 + version (Win32)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	989 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	990 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	991 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	992 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	993 + //if (szelem > 16)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	994 + // 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	995 + // to call delclass.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	996 + //gc_free(tmp);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	997 + }
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 + return a.ptr[0 .. a.length];
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1002 +unittest
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1003 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1004 + 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	1005 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1006 + int[] a = new int[5];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1007 + int[] b;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1008 + size_t i;
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 + for (i = 0; i < 5; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1011 + a[i] = i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1012 + b = a.reverse;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1013 + assert(b is a);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1014 + for (i = 0; i < 5; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1015 + assert(a[i] == 4 - i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1016 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1017 + struct X20
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1018 + { // More than 16 bytes in size
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1019 + int a;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1020 + int b, c, d, e;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1021 + }
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 + X20[] c = new X20[5];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1024 + X20[] d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1025 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1026 + for (i = 0; i < 5; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1027 + { c[i].a = i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1028 + c[i].e = 10;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1029 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1030 + d = c.reverse;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1031 + assert(d is c);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1032 + for (i = 0; i < 5; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1033 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1034 + assert(c[i].a == 4 - i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1035 + assert(c[i].e == 10);
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 +
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 + * Sort array of chars.
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1043 +extern (C) char[] _adSortChar(char[] a)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1044 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1045 + if (a.length > 1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1046 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1047 + dstring da = toUTF32(a);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1048 + da.sort;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1049 + size_t i = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1050 + foreach (dchar d; da)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1051 + { char[4] buf;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1052 + auto t = toUTF8(buf, d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1053 + a[i .. i + t.length] = t[];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1054 + i += t.length;
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 + delete da;
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 + return a;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1061 +/**********************************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1062 + * Sort array of wchars.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1063 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1064 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1065 +extern (C) wchar[] _adSortWchar(wchar[] a)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1066 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1067 + if (a.length > 1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1068 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1069 + dstring da = toUTF32(a);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1070 + da.sort;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1071 + size_t i = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1072 + foreach (dchar d; da)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1073 + { wchar[2] buf;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1074 + auto t = toUTF16(buf, d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1075 + a[i .. i + t.length] = t[];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1076 + i += t.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1077 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1078 + delete da;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1079 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1080 + return a;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1081 +}
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 +/***************************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1084 + * Support for array equality test.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1085 + * 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	1086 + * Given lengths are number of elements
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1089 +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	1090 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1091 + 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	1092 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1093 + if (a1.length != a2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1094 + return 0; // not equal
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1095 + else if (a1.ptr == a2.ptr)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1096 + return 1; // equal
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1097 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1098 + // let typeinfo decide
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1099 + return ti.equals(&a1, &a2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1100 +}
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 +unittest
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1103 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1104 + 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	1105 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1106 + char[] a = "hello"c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1107 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1108 + assert(a != "hel");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1109 + assert(a != "helloo");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1110 + assert(a != "betty");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1111 + assert(a == "hello");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1112 + assert(a != "hxxxx");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1113 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1114 +
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 + * Support for array compare test.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1117 + * 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	1118 + * Given lengths are number of elements
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1119 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1120 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1121 +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	1122 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1123 + debug(adi) printf("adCmp()\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1124 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1125 + if (a1.ptr == a2.ptr &&
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1126 + a1.length == a2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1127 + return 0;
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 + auto len = a1.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1130 + if (a2.length < len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1131 + len = a2.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1132 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1133 + // let typeinfo decide
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1134 + return ti.compare(&a1, &a2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1135 +}
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 +unittest
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 + 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	1140 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1141 + char[] a = "hello"c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1142 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1143 + assert(a > "hel");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1144 + assert(a >= "hel");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1145 + assert(a < "helloo");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1146 + assert(a <= "helloo");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1147 + assert(a > "betty");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1148 + assert(a >= "betty");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1149 + assert(a == "hello");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1150 + assert(a <= "hello");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1151 + assert(a >= "hello");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1152 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1153 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1154 +/***************************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1155 + * Support for array compare test.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1156 + * 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	1157 + * Given lengths are number of elements
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1160 +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	1161 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1162 + version(D_InlineAsm_X86)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1163 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1164 + //version = Asm86;
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 + version (Asm86)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1167 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1168 + asm
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1169 + { naked ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1170 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1171 + push EDI ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1172 + push ESI ;
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 + mov ESI,a1+4[4+ESP] ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1175 + mov EDI,a2+4[4+ESP] ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1176 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1177 + mov ECX,a1[4+ESP] ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1178 + mov EDX,a2[4+ESP] ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1179 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1180 + cmp ECX,EDX ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1181 + jb GotLength ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1182 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1183 + mov ECX,EDX ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1184 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1185 +GotLength:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1186 + cmp ECX,4 ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1187 + jb DoBytes ;
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 + // 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	1190 + test ESI,3 ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1191 + jz Aligned ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1192 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1193 + test EDI,3 ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1194 + jz Aligned ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1195 +DoAlign:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1196 + 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	1197 + mov DL,[EDI] ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1198 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1199 + cmp AL,DL ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1200 + jnz Unequal ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1201 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1202 + inc ESI ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1203 + inc EDI ;
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 + test ESI,3 ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1206 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1207 + lea ECX,[ECX-1] ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1208 + jnz DoAlign ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1209 +Aligned:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1210 + mov EAX,ECX ;
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 + // 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	1213 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1214 + shr ECX,2 ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1215 + jz TryOdd ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1216 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1217 + repe ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1218 + cmpsd ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1219 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1220 + jnz UnequalQuad ;
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 +TryOdd:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1223 + mov ECX,EAX ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1224 +DoBytes:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1225 + // 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	1226 + // slower.
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 + and ECX,3 ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1229 + jz Equal ;
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 + repe ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1232 + cmpsb ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1233 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1234 + jnz Unequal ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1235 +Equal:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1236 + mov EAX,a1[4+ESP] ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1237 + mov EDX,a2[4+ESP] ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1238 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1239 + sub EAX,EDX ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1240 + pop ESI ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1241 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1242 + pop EDI ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1243 + ret ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1244 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1245 +UnequalQuad:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1246 + mov EDX,[EDI-4] ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1247 + mov EAX,[ESI-4] ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1248 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1249 + cmp AL,DL ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1250 + jnz Unequal ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1251 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1252 + cmp AH,DH ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1253 + jnz Unequal ;
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 + shr EAX,16 ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1256 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1257 + shr EDX,16 ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1258 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1259 + cmp AL,DL ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1260 + jnz Unequal ;
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 + cmp AH,DH ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1263 +Unequal:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1264 + sbb EAX,EAX ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1265 + pop ESI ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1266 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1267 + or EAX,1 ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1268 + pop EDI ;
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 + ret ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1271 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1272 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1273 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1274 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1275 + int len;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1276 + int c;
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 + debug(adi) printf("adCmpChar()\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1279 + len = cast(int)a1.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1280 + if (a2.length < len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1281 + len = cast(int)a2.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1282 + 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	1283 + if (!c)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1284 + 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	1285 + return c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1286 + }
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 +unittest
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 + 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	1292 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1293 + char[] a = "hello"c;
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 + assert(a > "hel");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1296 + assert(a >= "hel");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1297 + assert(a < "helloo");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1298 + assert(a <= "helloo");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1299 + assert(a > "betty");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1300 + assert(a >= "betty");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1301 + assert(a == "hello");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1302 + assert(a <= "hello");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1303 + assert(a >= "hello");
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 Index: src/compiler/ldc/lifetime.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1306 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1307 --- 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	1308 +++ 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	1309 @@ -0,0 +1,1147 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1310 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1311 + * 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	1312 + * allocation, resizing, deallocation, and finalization.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1313 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1314 + * 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	1315 + * All rights reserved.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1316 + * License:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1317 + * 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	1318 + * 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	1319 + * 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	1320 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1321 + * 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	1322 + * 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	1323 + * 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	1324 + * restrictions:
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 + * 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	1327 + * 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	1328 + * 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	1329 + * appreciated but is not required.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1330 + * 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	1331 + * 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	1332 + * 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	1333 + * distribution.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1334 + * 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	1335 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1336 +module lifetime;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1337 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1338 +//debug=PRINTF;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1339 +//debug=PRINTF2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1340 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1341 +private
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1342 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1343 + version( D_Version2 )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1344 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1345 + import core.stdc.stdlib;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1346 + import core.stdc.string;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1347 + import core.stdc.stdarg;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1348 + debug(PRINTF) import core.stdc.stdio;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1349 + 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	1350 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1351 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1352 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1353 + import tango.stdc.stdlib;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1354 + import tango.stdc.string;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1355 + import tango.stdc.stdarg;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1356 + debug(PRINTF) import tango.stdc.stdio;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1357 + 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	1358 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1359 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1360 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1361 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1362 +private
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1363 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1364 + enum BlkAttr : uint
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 + FINALIZE = 0b0000_0001,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1367 + NO_SCAN = 0b0000_0010,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1368 + NO_MOVE = 0b0000_0100,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1369 + ALL_BITS = 0b1111_1111
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1370 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1371 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1372 + struct BlkInfo
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 + void* base;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1375 + size_t size;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1376 + uint attr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1377 + }
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 + 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	1380 + 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	1381 + 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	1382 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1383 + 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	1384 + 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	1385 + 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	1386 + 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	1387 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1388 + 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	1389 + 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	1390 + 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	1391 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1392 + extern (C) bool onCollectResource( Object o );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1393 + 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	1394 + extern (C) void onOutOfMemoryError();
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_monitordelete(Object h, bool det = true);
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 + enum
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 + PAGESIZE = 4096
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1403 + alias bool function(Object) CollectHandler;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1404 + CollectHandler collectHandler = null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1405 +}
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 +
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 + *
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 +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	1412 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1413 + void* p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1414 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1415 + 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	1416 + /+
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1417 + 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	1418 + { /* 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	1419 + * 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	1420 + * 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	1421 + * to zero.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1422 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1423 + 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	1424 + if (!p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1425 + onOutOfMemoryError();
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 + else
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 + p = gc_malloc(ci.init.length,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1431 + 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	1432 + 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	1433 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1434 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1435 + debug(PRINTF2)
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 + printf("p = %p\n", p);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1438 + 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	1439 + 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	1440 + 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	1441 + 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	1442 + 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	1443 + 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	1444 + 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	1445 + 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	1446 + 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	1447 + }
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 + // initialize it
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1450 + // ldc does this inline
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1451 + //(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	1452 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1453 + debug(PRINTF) printf("initialization done\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1454 + return cast(Object) p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1455 +}
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 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1458 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1459 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1460 +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	1461 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1462 + if (p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1463 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1464 + Interface* pi = cast(Interface *)p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1465 + 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	1466 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1467 + _d_delclass(o);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1468 + //*p = null;
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 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1471 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1472 +// used for deletion
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1473 +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	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 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1477 + *
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_delclass(Object p)
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 + if (p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1482 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1483 + 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	1484 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1485 + ClassInfo pc = cast(ClassInfo )p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1486 + if (*pc)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1487 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1488 + ClassInfo c = **pc;
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 + rt_finalize(cast(void*) p);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1491 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1492 + if (c.deallocator)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1493 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1494 + 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	1495 + (*fp)(p); // call deallocator
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1496 + //*p = null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1497 + return;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1498 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1499 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1500 + else
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 + rt_finalize(cast(void*) p);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1503 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1504 + gc_free(cast(void*) p);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1505 + //*p = null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1506 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1507 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1508 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1509 +/+
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 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1512 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1513 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1514 +struct Array
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1515 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1516 + size_t length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1517 + void* data;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1518 +}
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 ++/
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 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1523 + * 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	1524 + * 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	1525 + * 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	1526 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1527 +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	1528 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1529 + void* p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1530 + 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	1531 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1532 + 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	1533 + if (length == 0 \|\| size == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1534 + return null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1535 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1536 + version (D_InlineAsm_X86)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1537 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1538 + asm
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1539 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1540 + mov EAX,size ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1541 + mul EAX,length ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1542 + mov size,EAX ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1543 + jc Loverflow ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1544 + }
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 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1547 + size *= length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1548 + 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	1549 + 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	1550 + memset(p, 0, size);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1551 + return p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1552 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1553 +Loverflow:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1554 + onOutOfMemoryError();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1555 + return null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1556 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1557 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1558 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1559 + * As _d_newarrayT, but
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1560 + * 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	1561 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1562 +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	1563 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1564 + void* result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1565 + 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	1566 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1567 + 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	1568 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1569 + if (length == 0 \|\| size == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1570 + result = null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1571 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1572 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1573 + auto initializer = ti.next.init();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1574 + auto isize = initializer.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1575 + auto q = initializer.ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1576 + version (D_InlineAsm_X86)
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 + asm
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1579 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1580 + mov EAX,size ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1581 + mul EAX,length ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1582 + mov size,EAX ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1583 + jc Loverflow ;
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 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1586 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1587 + size *= length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1588 + 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	1589 + 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	1590 + if (isize == 1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1591 + memset(p, cast(ubyte)q, size);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1592 + else if (isize == int.sizeof)
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 + int init = cast(int)q;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1595 + size /= int.sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1596 + 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	1597 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1598 + (cast(int*)p)[u] = init;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1599 + }
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 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1602 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1603 + 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	1604 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1605 + memcpy(p + u, q, isize);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1606 + }
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 + result = p;
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 + return result;
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 +Loverflow:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1613 + onOutOfMemoryError();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1614 + return null;
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 +
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 + * As _d_newarrayT, but without initialization
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 +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	1621 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1622 + void* p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1623 + 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	1624 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1625 + 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	1626 + if (length == 0 \|\| size == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1627 + return null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1628 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1629 + version (D_InlineAsm_X86)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1630 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1631 + asm
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 + mov EAX,size ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1634 + mul EAX,length ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1635 + mov size,EAX ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1636 + jc Loverflow ;
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 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1639 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1640 + size *= length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1641 + 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	1642 + 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	1643 + return p;
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 +Loverflow:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1646 + onOutOfMemoryError();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1647 + return null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1648 +}
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 + * 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	1652 + * 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	1653 + * 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	1654 + * 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	1655 + * 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	1656 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1657 +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	1658 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1659 + void* result;
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 + 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	1662 + if (ndims == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1663 + result = null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1664 + else
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 + 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	1667 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1668 + size_t dim = *pdim;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1669 + void[] p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1670 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1671 + 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	1672 + if (ndims == 1)
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 + auto r = _d_newarrayT(ti, dim);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1675 + return r[0 .. dim];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1676 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1677 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1678 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1679 + 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	1680 + 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	1681 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1682 + (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	1683 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1684 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1685 + return p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1686 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1687 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1688 + result = foo(ti, dims, ndims).ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1689 + 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	1690 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1691 + version (none)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1692 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1693 + 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	1694 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1695 + 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	1696 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1697 + }
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 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1700 +}
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 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1704 + * As _d_newarraymT, but
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1705 + * 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	1706 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1707 +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	1708 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1709 + void* result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1710 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1711 + 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	1712 + if (ndims == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1713 + result = null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1714 + else
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 + 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	1717 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1718 + size_t dim = *pdim;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1719 + void[] p;
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 + if (ndims == 1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1722 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1723 + auto r = _d_newarrayiT(ti, dim);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1724 + p = r[0 .. dim];
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 + else
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 + 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	1729 + 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	1730 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1731 + (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	1732 + }
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 p;
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 + result = foo(ti, dims, ndims).ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1738 + 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	1739 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1740 + version (none)
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 + 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	1743 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1744 + 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	1745 + printf("init = %d\n", *dims++);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1746 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1747 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1748 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1749 + return result;
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 + * As _d_newarraymT, but without initialization
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 +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	1756 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1757 + void* result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1758 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1759 + 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	1760 + if (ndims == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1761 + result = null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1762 + else
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 + 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	1765 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1766 + size_t dim = *pdim;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1767 + void[] p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1768 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1769 + 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	1770 + if (ndims == 1)
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 + auto r = _d_newarrayvT(ti, dim);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1773 + return r[0 .. dim];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1774 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1775 + else
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 + 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	1778 + 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	1779 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1780 + (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	1781 + }
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 + return 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 + result = foo(ti, dims, ndims).ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1787 + 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	1788 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1789 + version (none)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1790 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1791 + 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	1792 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1793 + 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	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 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1798 +}
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 +/+
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 +/**
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 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1805 +void* _d_allocmemory(size_t nbytes)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1806 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1807 + return gc_malloc(nbytes);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1808 +}
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 ++/
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 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1813 + * for allocating a single POD value
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1814 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1815 +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	1816 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1817 + 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	1818 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1819 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1820 +/**
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 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1823 +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	1824 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1825 +// if (p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1826 +// {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1827 + assert(!plength \|\| pdata);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1828 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1829 + if (pdata)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1830 + gc_free(pdata);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1831 +// p.data = null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1832 +// p.length = 0;
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 +}
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 +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	1840 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1841 + if (p)
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 + gc_free(p);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1844 + //*p = null;
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 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1847 +
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 + *
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 +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	1852 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1853 + if (p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1854 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1855 + Interface pi = cast(Interface **)p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1856 + 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	1857 + rt_finalize(cast(void*)o);
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 +
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 + *
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 +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	1865 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1866 + rt_finalize( p );
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1869 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1870 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1871 + *
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 +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	1874 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1875 + collectHandler = h;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1876 +}
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 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1879 + *
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 +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	1882 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1883 + 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	1884 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1885 + 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	1886 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1887 + ClassInfo pc = cast(ClassInfo)p;
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 + if (*pc)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1890 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1891 + ClassInfo c = **pc;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1892 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1893 + try
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1894 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1895 + 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	1896 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1897 + do
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 + if (c.destructor)
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 + 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	1902 + 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	1903 + (*fp)(cast(Object)p); // call destructor
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 + c = c.base;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1906 + } while (c);
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 + 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	1909 + _d_monitordelete(cast(Object)p, det);
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 + catch (Exception e)
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 + onFinalizeError(**pc, e);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1914 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1915 + finally
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1916 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1917 + *pc = null; // zero vptr
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 + }
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 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1922 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1923 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1924 + * Resize dynamic arrays with 0 initializers.
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 +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	1927 +in
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1928 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1929 + assert(ti);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1930 + assert(!plength \|\| pdata);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1931 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1932 +body
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1933 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1934 + byte* newdata;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1935 + size_t sizeelem = ti.next.tsize();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1936 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1937 + debug(PRINTF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1938 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1939 + 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	1940 + 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	1941 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1942 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1943 + if (newlength)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1944 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1945 + version (D_InlineAsm_X86)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1946 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1947 + size_t newsize = void;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1948 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1949 + asm
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1950 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1951 + mov EAX, newlength;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1952 + mul EAX, sizeelem;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1953 + mov newsize, EAX;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1954 + jc Loverflow;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1955 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1956 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1957 + else
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 + size_t newsize = sizeelem * 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 + if (newsize / newlength != sizeelem)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1962 + goto Loverflow;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1963 + }
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 + 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	1966 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1967 + if (pdata)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1968 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1969 + newdata = pdata;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1970 + if (newlength > plength)
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 + size_t size = plength * sizeelem;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1973 + auto info = gc_query(pdata);
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 + 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	1976 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1977 + 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	1978 + { // Try to extend in-place
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1979 + 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	1980 + if (u)
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 + goto L1;
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 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1985 + 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	1986 + newdata[0 .. size] = pdata[0 .. size];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1987 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1988 + L1:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1989 + newdata[size .. newsize] = 0;
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 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1992 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1993 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1994 + 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	1995 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1996 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1997 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1998 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	1999 + newdata = pdata;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2002 + return newdata;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2003 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2004 +Loverflow:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2005 + onOutOfMemoryError();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2006 + return null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2007 +}
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 +
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 + * Resize arrays for non-zero initializers.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2012 + * 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	2013 + * newlength new .length property of array
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2014 + * 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	2015 + * initsize size of initializer
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2016 + * ... initializer
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 +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	2019 +in
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 + assert(!plength \|\| pdata);
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 +body
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 + byte* newdata;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2026 + TypeInfo tinext = ti.next;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2027 + size_t sizeelem = tinext.tsize();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2028 + void[] initializer = tinext.init();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2029 + size_t initsize = initializer.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2030 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2031 + assert(sizeelem);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2032 + assert(initsize);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2033 + assert(initsize <= sizeelem);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2034 + assert((sizeelem / initsize) * initsize == sizeelem);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2035 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2036 + debug(PRINTF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2037 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2038 + 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	2039 + 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	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 + if (newlength)
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 + version (D_InlineAsm_X86)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2045 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2046 + size_t newsize = void;
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 + asm
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 + mov EAX,newlength ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2051 + mul EAX,sizeelem ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2052 + mov newsize,EAX ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2053 + jc Loverflow ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2054 + }
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 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2057 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2058 + size_t newsize = sizeelem * newlength;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2059 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2060 + if (newsize / newlength != sizeelem)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2061 + goto Loverflow;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2062 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2063 + 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	2064 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2065 + size_t size = plength * sizeelem;
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 + if (pdata)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2068 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2069 + newdata = pdata;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2070 + if (newlength > plength)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2071 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2072 + auto info = gc_query(pdata);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2073 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2074 + 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	2075 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2076 + 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	2077 + { // Try to extend in-place
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2078 + 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	2079 + if (u)
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 + goto L1;
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 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2084 + 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	2085 + newdata[0 .. size] = pdata[0 .. size];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2086 + L1: ;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2087 + }
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 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2091 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2092 + 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	2093 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2094 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2095 + 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	2096 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2097 + if (newsize > size)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2098 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2099 + if (initsize == 1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2100 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2101 + 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	2102 + newdata[size .. newsize] = (cast(byte)q);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2103 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2104 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2105 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2106 + 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	2107 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2108 + memcpy(newdata + u, q, initsize);
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 + }
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 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2113 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2114 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2115 + newdata = pdata;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2116 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2117 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2118 + return newdata;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2119 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2120 +Loverflow:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2121 + onOutOfMemoryError();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2122 + return null;
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 +/+
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 + * Append y[] to array x[].
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2129 + * 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	2130 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2131 +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	2132 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2133 + 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	2134 + auto info = gc_query(px.data);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2135 + auto length = px.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2136 + auto newlength = length + y.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2137 + auto newsize = newlength * sizeelem;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2138 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2139 + 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	2140 + { byte* newdata;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2141 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2142 + 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	2143 + { // Try to extend in-place
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2144 + 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	2145 + if (u)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2146 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2147 + goto L1;
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 + 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	2151 + memcpy(newdata, px.data, length * sizeelem);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2152 + px.data = newdata;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2153 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2154 + L1:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2155 + px.length = newlength;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2156 + 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	2157 + return cast(long)px;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2158 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2159 +
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 +/**
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 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2164 +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	2165 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2166 + version(none)
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 + size_t newcap = newlength * size;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2169 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2170 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2171 + {
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 + * Better version by Dave Fladebo:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2174 + * 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	2175 + * space for larger arrays.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2176 + * - 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	2177 + * 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	2178 + * 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	2179 + * current).
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2180 + * - 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	2181 + * - 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	2182 + * - 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	2183 + * 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	2184 + * 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	2185 + * 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	2186 + * just as fast as GCC).
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2187 + * - 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	2188 + * is decreased significantly for demanding environments.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2189 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2190 + size_t newcap = newlength * size;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2191 + size_t newext = 0;
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 + if (newcap > PAGESIZE)
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 + //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	2196 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2197 + // 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	2198 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2199 + static int log2plus1(size_t c)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2200 + { int i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2201 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2202 + if (c == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2203 + i = -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2204 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2205 + for (i = 1; c >>= 1; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2206 + {
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 + return i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2209 + }
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 + /* 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	2212 + * 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	2213 + * 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	2214 + * 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	2215 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2216 + //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	2217 + 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	2218 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2219 + // 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	2220 + if (mult < 102)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2221 + mult = 102;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2222 + 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	2223 + newext -= newext % size;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2224 + 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	2225 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2226 + newcap = newext > newcap ? newext : newcap;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2227 + 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	2228 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2229 + return newcap;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2230 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2231 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2232 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2233 +/**
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 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2236 +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	2237 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2238 + 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	2239 + auto info = gc_query(x.ptr);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2240 + auto length = x.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2241 + auto newlength = length + 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2242 + auto newsize = newlength * sizeelem;
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 + 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	2245 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2246 + 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	2247 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2248 + 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	2249 + { byte* newdata;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2250 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2251 + 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	2252 + { // Try to extend in-place
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2253 + 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	2254 + if (u)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2255 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2256 + goto L1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2257 + }
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 + 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	2260 + auto newcap = newCapacity(newlength, sizeelem);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2261 + assert(newcap >= newlength * sizeelem);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2262 + 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	2263 + memcpy(newdata, x.ptr, length * sizeelem);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2264 + (cast(void**)(&x))[1] = newdata;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2265 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2266 + L1:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2267 + byte argp = cast(byte )(&ti + 2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2268 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2269 + cast(size_t )&x = newlength;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2270 + 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	2271 + 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	2272 + 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	2273 + return x;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2274 +}
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2277 +/**
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 +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	2281 +out (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2282 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2283 + 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	2284 + 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	2285 + 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	2286 + 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	2287 + 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	2288 + 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	2289 + 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	2290 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2291 + 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	2292 + assert(!cap \|\| cap > result.length * sizeelem);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2293 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2294 +body
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 + version (none)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2297 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2298 + /* Cannot use this optimization because:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2299 + * char[] a, b;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2300 + * char c = 'a';
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2301 + * b = a ~ c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2302 + * c = 'b';
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2303 + * will change the contents of b.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2304 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2305 + if (!y.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2306 + return x;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2307 + if (!x.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2308 + return y;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2311 + 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	2312 + 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	2313 + 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	2314 + size_t xlen = x.length * sizeelem;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2315 + size_t ylen = y.length * sizeelem;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2316 + size_t len = xlen + ylen;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2317 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2318 + if (!len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2319 + return null;
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 + 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	2322 + memcpy(p, x.ptr, xlen);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2323 + memcpy(p + xlen, y.ptr, ylen);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2324 + p[len] = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2325 + 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	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 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2331 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2332 +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	2333 +{ void* a;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2334 + size_t length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2335 + byte[]* p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2336 + uint i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2337 + byte[] b;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2338 + 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	2339 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2340 + p = cast(byte[]*)(&n + 1);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2341 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2342 + for (i = 0; i < n; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2343 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2344 + b = *p++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2345 + length += b.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2346 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2347 + if (!length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2348 + return null;
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 + 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	2351 + p = cast(byte[]*)(&n + 1);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2352 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2353 + uint j = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2354 + for (i = 0; i < n; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2355 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2356 + b = *p++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2357 + if (b.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 + 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	2360 + j += b.length * size;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2361 + }
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2364 + byte[] result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2365 + cast(int )&result = length; // jam length
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2366 + (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	2367 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2368 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2369 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2370 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2371 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2372 + *
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 +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	2375 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2376 + 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	2377 + void* result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2378 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2379 + 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	2380 + if (length == 0 \|\| sizeelem == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2381 + result = null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2382 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2383 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2384 + 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	2385 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2386 + va_list q;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2387 + va_start!(size_t)(q, length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2388 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2389 + 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	2390 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2391 + if (stacksize == sizeelem)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2392 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2393 + memcpy(result, q, length * sizeelem);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2394 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2395 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2396 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2397 + 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	2398 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2399 + memcpy(result + i * sizeelem, q, sizeelem);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2400 + q += stacksize;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2404 + va_end(q);
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 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2407 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2408 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2409 ++/
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2410 +
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 array.dup property.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2414 + * 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	2415 + * Given length is number of elements
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2416 + * Returned length is number of elements
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2417 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2418 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2419 +
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 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2423 +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	2424 +out (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2425 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2426 + 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	2427 + 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	2428 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2429 +body
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 + void* ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2432 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2433 + if (a.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2434 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2435 + 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	2436 + auto size = a.length * sizeelem;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2437 + 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	2438 + memcpy(ptr, a.ptr, size);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2439 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2440 + return ptr[0 .. a.length];
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 +
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 +unittest
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2445 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2446 + int[] a;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2447 + int[] b;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2448 + int i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2449 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2450 + a = new int[3];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2451 + 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	2452 + b = a.dup;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2453 + assert(b.length == 3);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2454 + for (i = 0; i < 3; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2455 + assert(b[i] == i + 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 Index: src/compiler/ldc/switch.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2458 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2459 --- 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	2460 +++ 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	2461 @@ -0,0 +1,428 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2462 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2463 + * 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	2464 + * Written by Walter Bright
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 + * 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	2467 + * 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	2468 + * 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	2469 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2470 + * 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	2471 + * 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	2472 + * 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	2473 + * restrictions:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2474 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2475 + * 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	2476 + * 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	2477 + * 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	2478 + * appreciated but is not required.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2479 + * 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	2480 + * 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	2481 + * 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	2482 + * distribution.
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 +
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 + * 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	2487 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2488 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2489 +version( D_Version2 )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2490 +private import core.stdc.string;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2491 +else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2492 +private import tango.stdc.string;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2493 +//private import tango.stdc.stdio;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2494 +
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 + * 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	2497 + * Input:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2498 + * 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	2499 + * 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	2500 + * Output:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2501 + * result index of match in table[]
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2502 + * -1 if not in table
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2503 + */
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 +extern (C):
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2506 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2507 +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	2508 +in
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 + //printf("in _d_switch_string()\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2511 + assert(table.length >= 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2512 + assert(ca.length >= 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 + // Make sure table[] is sorted correctly
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2515 + int j;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2516 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2517 + 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	2518 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2519 + 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	2520 + size_t len2 = table[j].length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2521 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2522 + assert(len1 <= len2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2523 + if (len1 == len2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2524 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2525 + int ci;
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 + 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	2528 + 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	2529 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2530 + }
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 +out (result)
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 + int i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2535 + int cj;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2536 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2537 + //printf("out _d_switch_string()\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2538 + if (result == -1)
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 + // Not found
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2541 + 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	2542 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2543 + if (table[i].length == ca.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2544 + { 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	2545 + assert(cj != 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2546 + }
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 + else
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 + assert(0 <= result && result < table.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2552 + for (i = 0; 1; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2553 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2554 + assert(i < table.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2555 + if (table[i].length == ca.length)
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 + 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	2558 + if (cj == 0)
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 + assert(i == result);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2561 + break;
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 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2564 + }
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 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2567 +body
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2568 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2569 + //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	2570 + size_t low;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2571 + size_t high;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2572 + size_t mid;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2573 + ptrdiff_t c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2574 + char[] pca;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2575 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2576 + low = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2577 + high = table.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2578 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2579 + version (none)
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 + // Print table
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2582 + 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	2583 + for (mid = 0; mid < high; mid++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2584 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2585 + pca = table[mid];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2586 + 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	2587 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2588 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2589 + if (high &&
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2590 + ca.length >= table[0].length &&
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2591 + ca.length <= table[high - 1].length)
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 + // 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	2594 + if (ca.length == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2595 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2596 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2597 + char c1 = ca[0];
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 + // Do binary search
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2600 + while (low < high)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2601 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2602 + mid = (low + high) >> 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2603 + pca = table[mid];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2604 + 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	2605 + if (c == 0)
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 + 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	2608 + if (c == 0)
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 + 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	2611 + if (c == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2612 + { //printf("found %d\n", mid);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2613 + return cast(int)mid;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2614 + }
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 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2617 + if (c < 0)
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 + high = mid;
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 + else
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 + low = mid + 1;
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 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2626 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2627 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2628 + //printf("not found\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2629 + return -1; // not found
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2630 +}
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 +unittest
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2633 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2634 + switch (cast(char []) "c")
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 + case "coo":
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2637 + default:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2638 + break;
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 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2641 +
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 + * Same thing, but for wide chars.
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2646 +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	2647 +in
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2648 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2649 + //printf("in _d_switch_ustring()\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2650 + assert(table.length >= 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2651 + assert(ca.length >= 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 + // Make sure table[] is sorted correctly
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2654 + int j;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2655 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2656 + 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	2657 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2658 + 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	2659 + size_t len2 = table[j].length;
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 + assert(len1 <= len2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2662 + if (len1 == len2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2663 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2664 + int c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2665 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2666 + 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	2667 + 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	2668 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2669 + }
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 +out (result)
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 + int i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2674 + int c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2675 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2676 + //printf("out _d_switch_string()\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2677 + if (result == -1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2678 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2679 + // Not found
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2680 + 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	2681 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2682 + if (table[i].length == ca.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2683 + { 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	2684 + assert(c != 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2685 + }
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 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2689 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2690 + assert(0 <= result && result < table.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2691 + for (i = 0; 1; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2692 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2693 + assert(i < table.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2694 + if (table[i].length == ca.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2695 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2696 + 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	2697 + if (c == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2698 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2699 + assert(i == result);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2700 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2701 + }
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 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2704 + }
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 +body
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 + //printf("body _d_switch_ustring()\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2709 + size_t low;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2710 + size_t high;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2711 + size_t mid;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2712 + ptrdiff_t c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2713 + wchar[] pca;
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 + low = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2716 + high = table.length;
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 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2719 + // Print table
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2720 + wprintf("ca[] = '%.*s'\n", ca);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2721 + for (mid = 0; mid < high; mid++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2722 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2723 + pca = table[mid];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2724 + 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	2725 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2726 +*/
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 + // Do binary search
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2729 + while (low < high)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2730 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2731 + mid = (low + high) >> 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2732 + pca = table[mid];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2733 + 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	2734 + if (c == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2735 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2736 + 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	2737 + if (c == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2738 + { //printf("found %d\n", mid);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2739 + return cast(int)mid;
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 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2742 + if (c < 0)
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 + high = mid;
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 + else
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 + low = mid + 1;
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 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2751 + //printf("not found\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2752 + return -1; // not found
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2753 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2754 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2755 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2756 +unittest
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2757 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2758 + switch (cast(wchar []) "c")
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 + case "coo":
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2761 + default:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2762 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2763 + }
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2766 +
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 + * Same thing, but for wide chars.
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2771 +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	2772 +in
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2773 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2774 + //printf("in _d_switch_dstring()\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2775 + assert(table.length >= 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2776 + assert(ca.length >= 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 + // Make sure table[] is sorted correctly
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2779 + int j;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2780 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2781 + 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	2782 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2783 + 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	2784 + size_t len2 = table[j].length;
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 + assert(len1 <= len2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2787 + if (len1 == len2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2788 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2789 + int c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2790 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2791 + 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	2792 + 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	2793 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2794 + }
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 +out (result)
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 + int i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2799 + int c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2800 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2801 + //printf("out _d_switch_string()\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2802 + if (result == -1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2803 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2804 + // Not found
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2805 + 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	2806 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2807 + if (table[i].length == ca.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2808 + { 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	2809 + assert(c != 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2810 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2811 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2812 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2813 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2814 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2815 + assert(0 <= result && result < table.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2816 + for (i = 0; 1; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2817 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2818 + assert(i < table.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2819 + if (table[i].length == ca.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2820 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2821 + 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	2822 + if (c == 0)
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 + assert(i == result);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2825 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2826 + }
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 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2829 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2830 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2831 +body
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 + //printf("body _d_switch_ustring()\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2834 + size_t low;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2835 + size_t high;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2836 + size_t mid;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2837 + ptrdiff_t c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2838 + dchar[] pca;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2839 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2840 + low = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2841 + high = table.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2842 +
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 + // Print table
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2845 + wprintf("ca[] = '%.*s'\n", ca);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2846 + for (mid = 0; mid < high; mid++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2847 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2848 + pca = table[mid];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2849 + 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	2850 + }
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2853 + // Do binary search
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2854 + while (low < high)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2855 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2856 + mid = (low + high) >> 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2857 + pca = table[mid];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2858 + 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	2859 + if (c == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2860 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2861 + 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	2862 + if (c == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2863 + { //printf("found %d\n", mid);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2864 + return cast(int)mid;
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 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2867 + if (c < 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2868 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2869 + high = mid;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2870 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2871 + else
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 + low = mid + 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2874 + }
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 + //printf("not found\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2877 + return -1; // not found
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2878 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2879 +
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 +unittest
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2882 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2883 + switch (cast(dchar []) "c")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2884 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2885 + case "coo":
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2886 + default:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2887 + break;
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 Index: src/compiler/ldc/arrayInit.d
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 --- 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	2893 +++ 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	2894 @@ -0,0 +1,158 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2895 +private import ldc.intrinsics;
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 +extern(C):
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2898 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2899 +int memcmp(void,void,size_t);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2900 +size_t strlen(char*);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2901 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2902 +version(LLVM64)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2903 +alias llvm_memcpy_i64 llvm_memcpy;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2904 +else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2905 +alias llvm_memcpy_i32 llvm_memcpy;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2906 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2907 +// per-element array init routines
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2908 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2909 +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	2910 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2911 + auto p = a;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2912 + auto end = a+n;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2913 + while (p !is end)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2914 + *p++ = 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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2917 +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	2918 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2919 + auto p = a;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2920 + auto end = a+n;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2921 + while (p !is end)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2922 + *p++ = v;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2925 +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	2926 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2927 + auto p = a;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2928 + auto end = a+n;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2929 + while (p !is end)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2930 + *p++ = v;
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_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	2934 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2935 + auto p = a;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2936 + auto end = a+n;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2937 + while (p !is end)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2938 + *p++ = v;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2939 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2940 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2941 +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	2942 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2943 + auto p = a;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2944 + auto end = a+n;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2945 + while (p !is end)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2946 + *p++ = v;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2947 +}
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 +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	2950 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2951 + auto p = a;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2952 + auto end = a+n;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2953 + while (p !is end)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2954 + *p++ = v;
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 +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	2958 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2959 + auto p = a;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2960 + auto end = a+n;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2961 + while (p !is end)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2962 + *p++ = v;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2963 +}
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 +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	2966 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2967 + auto p = a;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2968 + auto end = a+n;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2969 + while (p !is end)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2970 + *p++ = v;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2973 +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	2974 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2975 + auto p = a;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2976 + auto end = a+n;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2977 + while (p !is end)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2978 + *p++ = v;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2981 +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	2982 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2983 + auto p = a;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2984 + auto end = a+n;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2985 + while (p !is end)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2986 + *p++ = v;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2987 +}
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 +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	2990 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2991 + auto p = a;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2992 + auto end = a+n;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2993 + while (p !is end)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2994 + *p++ = v;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2995 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2996 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2997 +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	2998 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	2999 + auto p = a;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3000 + auto end = a+n;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3001 + while (p !is end)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3002 + *p++ = v;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3003 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3004 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3005 +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	3006 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3007 + auto p = a;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3008 + auto end = a + na*nv;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3009 + while (p !is end) {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3010 + llvm_memcpy(p,v,nv,0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3011 + p += nv;
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 +}
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 +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	3017 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3018 + auto initializer = ti.next.init();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3019 + auto isize = initializer.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3020 + auto q = initializer.ptr;
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 + if (isize == 1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3023 + memset(p, cast(ubyte)q, size);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3024 + else if (isize == int.sizeof)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3025 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3026 + int init = cast(int)q;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3027 + size /= int.sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3028 + 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	3029 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3030 + (cast(int*)p)[u] = init;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3031 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3032 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3033 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3034 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3035 + 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	3036 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3037 + memcpy(p + u, q, isize);
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 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3040 +}*/
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 +// for array cast
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3043 +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	3044 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3045 + if (newelemsz == 1) {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3046 + return len*elemsz;
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 + else if ((len*elemsz) % newelemsz) {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3049 + throw new Exception("Bad array cast");
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 + return (len*elemsz)/newelemsz;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3052 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3053 Index: src/compiler/ldc/genobj.d
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 --- 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	3056 +++ 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	3057 @@ -0,0 +1,1527 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3058 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3059 + * 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	3060 + * 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	3061 + * 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	3062 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3063 + * This module is implicitly imported.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3064 + * Macros:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3065 + * WIKI = Object
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 + * 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	3070 + * Written by Walter Bright
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3071 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3072 + * 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	3073 + * 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	3074 + * 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	3075 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3076 + * 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	3077 + * 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	3078 + * 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	3079 + * restrictions:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3080 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3081 + * 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	3082 + * 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	3083 + * 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	3084 + * appreciated but is not required.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3085 + * 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	3086 + * 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	3087 + * 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	3088 + * distribution.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3089 + */
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 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3092 + * 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	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 + * 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	3097 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3098 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3099 +module object;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3100 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3101 +//debug = PRINTF;
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 +private
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 + import core.stdc.string;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3106 + import core.stdc.stdlib;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3107 + import util.string;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3108 + debug(PRINTF) import core.stdc.stdio;
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 + extern (C) void onOutOfMemoryError();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3111 + 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	3112 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3113 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3114 +// 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	3115 +// 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	3116 +// be a DMD thing.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3117 +//alias typeof(int.sizeof) size_t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3118 +//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	3119 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3120 +version(X86_64)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3121 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3122 + alias ulong size_t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3123 + alias long ptrdiff_t;
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 +else
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 + alias uint size_t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3128 + alias int ptrdiff_t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3129 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3130 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3131 +alias size_t hash_t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3132 +alias bool equals_t;
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 +alias invariant(char)[] string;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3135 +alias invariant(wchar)[] wstring;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3136 +alias invariant(dchar)[] dstring;
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 + * 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	3140 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3141 +class Object
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3142 +{
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 + * 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	3145 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3146 + string toString()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3147 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3148 + return this.classinfo.name;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3149 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3150 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3151 + /**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3152 + * Compute hash function for Object.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3153 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3154 + hash_t toHash()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3155 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3156 + // 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	3157 + 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	3158 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3159 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3160 + /**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3161 + * Compare with another Object obj.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3162 + * Returns:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3163 + * $(TABLE
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3164 + * $(TR $(TD this < obj) $(TD < 0))
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3165 + * $(TR $(TD this == obj) $(TD 0))
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3166 + * $(TR $(TD this > obj) $(TD > 0))
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3167 + * )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3168 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3169 + int opCmp(Object o)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3170 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3171 + // 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	3172 + //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	3173 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3174 + 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	3175 + //return this !is o;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3178 + /**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3179 + * 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	3180 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3181 + equals_t opEquals(Object o)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3182 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3183 + return this is o;
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 + interface Monitor
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 + void lock();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3189 + void unlock();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3190 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3191 +
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 + * 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	3194 + * 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	3195 + * a default constructor.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3196 + * Returns:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3197 + * null if failed
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 + static Object factory(string classname)
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 + auto ci = ClassInfo.find(classname);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3202 + if (ci)
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 + return ci.create();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3205 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3206 + return null;
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 +}
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 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3211 + * Information about an interface.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3212 + * 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	3213 + * first entry in its vtbl.
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 +struct Interface
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 + 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	3218 + void*[] vtbl;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3219 + 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	3220 +}
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 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3223 + * 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	3224 + * 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	3225 + * 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	3226 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3227 +class ClassInfo : Object
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3228 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3229 + byte[] init; /** class static initializer
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3230 + * (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	3231 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3232 + string name; /// class name
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3233 + void*[] vtbl; /// virtual function pointer table
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3234 + Interface[] interfaces; /// interfaces this class implements
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3235 + ClassInfo base; /// base class
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3236 + void* destructor;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3237 + void function(Object) classInvariant;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3238 + uint flags;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3239 + // 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	3240 + // 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	3241 + // 4: // has offTi[] member
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3242 + // 8: // has constructors
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3243 + // 16: // has xgetMembers member
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3244 + void* deallocator;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3245 + OffsetTypeInfo[] offTi;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3246 + void function(Object) defaultConstructor; // default Constructor
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3247 + const(MemberInfo[]) function(in char[]) xgetMembers;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3248 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3249 + /**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3250 + * 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	3251 + * Returns: null if not found
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3252 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3253 + static ClassInfo find(in char[] classname)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3254 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3255 + foreach (m; ModuleInfo)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3256 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3257 + //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	3258 + foreach (c; m.localClasses)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3259 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3260 + //writefln("\tclass %s", c.name);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3261 + if (c.name == classname)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3262 + return c;
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 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3265 + return null;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3268 + /**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3269 + * 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	3270 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3271 + Object create()
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 + if (flags & 8 && !defaultConstructor)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3274 + return null;
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 + Object o = _d_allocclass(this);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3277 + // initialize it
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3278 + (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	3279 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3280 + if (flags & 8 && defaultConstructor)
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 + defaultConstructor(o);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3283 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3284 + return o;
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 + * 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	3289 + * 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	3290 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3291 + const(MemberInfo[]) getMembers(in char[] name)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3292 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3293 + if (flags & 16 && xgetMembers)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3294 + return xgetMembers(name);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3295 + return null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3296 + }
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3299 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3300 + * 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	3301 + * member in an aggregate.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3302 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3303 +struct OffsetTypeInfo
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 + 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	3306 + TypeInfo ti; /// TypeInfo for this member
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 +
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 + * Runtime type information about a type.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3311 + * 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	3312 + * <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	3313 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3314 +class TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3315 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3316 + override hash_t toHash()
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 + hash_t hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3319 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3320 + foreach (char c; this.toString())
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3321 + hash = hash * 9 + c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3322 + return hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3323 + }
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 int opCmp(Object o)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3326 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3327 + if (this is o)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3328 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3329 + TypeInfo ti = cast(TypeInfo)o;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3330 + if (ti is null)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3331 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3332 + return dstrcmp(this.toString(), ti.toString());
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3335 + override equals_t opEquals(Object o)
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 + /* 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	3338 + * 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	3339 + * sufficient.
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 + if (this is o)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3342 + return true;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3343 + TypeInfo ti = cast(TypeInfo)o;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3344 + return ti && this.toString() == ti.toString();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3345 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3346 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3347 + /// 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	3348 + 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	3349 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3350 + /// Compares two instances for equality.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3351 + 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	3352 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3353 + /// Compares two instances for <, ==, or >.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3354 + 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	3355 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3356 + /// Returns size of the type.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3357 + size_t tsize() { return 0; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3358 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3359 + /// Swaps two instances of the type.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3360 + void swap(void* p1, void* p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3361 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3362 + size_t n = tsize();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3363 + 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	3364 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3365 + byte t = (cast(byte *)p1)[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3366 + (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	3367 + (cast(byte*)p2)[i] = t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3368 + }
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 + /// 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	3372 + /// null if none.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3373 + TypeInfo next() { return null; }
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 + /// 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	3376 + void[] init() { return null; }
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 + /// 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	3379 + uint flags() { return 0; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3380 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3381 + /// 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	3382 + OffsetTypeInfo[] offTi() { return null; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3383 + /// 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	3384 + void destroy(void* p) {}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3385 + /// 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	3386 + void postblit(void* p) {}
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_Typedef : 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 name; }
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_Typedef 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_Typedef)o) !is null &&
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3398 + this.name == c.name &&
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3399 + this.base == c.base);
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3402 + 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	3403 + 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	3404 + 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	3405 + 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	3406 + 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	3407 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3408 + override TypeInfo next() { return base.next(); }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3409 + override uint flags() { return base.flags(); }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3410 + 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	3411 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3412 + TypeInfo base;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3413 + string name;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3414 + void[] m_init;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3415 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3416 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3417 +class TypeInfo_Enum : TypeInfo_Typedef
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3418 +{
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 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3421 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3422 +class TypeInfo_Pointer : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3423 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3424 + 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	3425 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3426 + override equals_t opEquals(Object o)
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 + TypeInfo_Pointer c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3429 + return this is o \|\|
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3430 + ((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	3431 + this.m_next == c.m_next);
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3434 + 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	3435 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3436 + 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	3437 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3438 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3439 + 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	3440 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3441 + 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	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 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	3445 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3446 + 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	3447 + return -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3448 + 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	3449 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3450 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3451 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3452 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3453 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3454 + override size_t tsize()
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 + return (void*).sizeof;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3459 + 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	3460 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3461 + void* tmp = cast(void*)p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3462 + cast(void)p1 = cast(void**)p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3463 + cast(void*)p2 = tmp;
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 + override TypeInfo next() { return m_next; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3467 + override uint flags() { return 1; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3468 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3469 + TypeInfo m_next;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3470 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3471 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3472 +class TypeInfo_Array : TypeInfo
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 string toString() { return value.toString() ~ "[]"; }
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 + override equals_t opEquals(Object o)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3477 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3478 + TypeInfo_Array c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3479 + return this is o \|\|
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3480 + ((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	3481 + this.value == c.value);
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3484 + 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	3485 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3486 + size_t sz = value.tsize();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3487 + hash_t hash = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3488 + void[] a = cast(void[])p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3489 + 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	3490 + 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	3491 + return hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3492 + }
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 + 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	3495 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3496 + void[] a1 = cast(void[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3497 + void[] a2 = cast(void[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3498 + if (a1.length != a2.length)
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 + size_t sz = value.tsize();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3501 + 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	3502 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3503 + 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	3504 + return false;
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 + return true;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3509 + 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	3510 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3511 + void[] a1 = cast(void[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3512 + void[] a2 = cast(void[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3513 + size_t sz = value.tsize();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3514 + size_t len = a1.length;
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 + if (a2.length < len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3517 + len = a2.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3518 + 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	3519 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3520 + 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	3521 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3522 + return result;
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 + 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	3525 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3526 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3527 + override size_t tsize()
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 + return (void[]).sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3530 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3531 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3532 + 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	3533 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3534 + void[] tmp = cast(void[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3535 + cast(void[])p1 = cast(void[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3536 + cast(void[])p2 = tmp;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3537 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3538 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3539 + TypeInfo value;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3540 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3541 + override TypeInfo next()
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 + return value;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3544 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3545 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3546 + override uint flags() { return 1; }
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3549 +class TypeInfo_StaticArray : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3550 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3551 + override string toString()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3552 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3553 + char[10] tmp = void;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3554 + 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	3555 + }
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 + override equals_t opEquals(Object o)
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 + TypeInfo_StaticArray c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3560 + return this is o \|\|
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3561 + ((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	3562 + this.len == c.len &&
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3563 + this.value == c.value);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3564 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3565 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3566 + 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	3567 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3568 + size_t sz = value.tsize();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3569 + hash_t hash = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3570 + 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	3571 + hash += value.getHash(p + i * sz);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3572 + return hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3573 + }
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 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	3576 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3577 + size_t sz = value.tsize();
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 + 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	3580 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3581 + 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	3582 + return false;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3583 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3584 + return true;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3585 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3586 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3587 + 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	3588 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3589 + size_t sz = value.tsize();
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 + 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	3592 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3593 + 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	3594 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3595 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3596 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3597 + return 0;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3600 + override size_t tsize()
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 + return len * value.tsize();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3603 + }
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 void swap(void* p1, void* p2)
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 + void* tmp;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3608 + size_t sz = value.tsize();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3609 + ubyte[16] buffer;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3610 + void* pbuffer;
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 + if (sz < buffer.sizeof)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3613 + tmp = buffer.ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3614 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3615 + tmp = pbuffer = (new void[sz]).ptr;
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 + 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	3618 + { size_t o = u * sz;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3619 + memcpy(tmp, p1 + o, sz);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3620 + memcpy(p1 + o, p2 + o, sz);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3621 + memcpy(p2 + o, tmp, sz);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3622 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3623 + if (pbuffer)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3624 + delete pbuffer;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3625 + }
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 + override void[] init() { return value.init(); }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3628 + override TypeInfo next() { return value; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3629 + override uint flags() { return value.flags(); }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3630 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3631 + override void destroy(void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3632 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3633 + auto sz = value.tsize();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3634 + p += sz * len;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3635 + foreach (i; 0 .. len)
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 + p -= sz;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3638 + value.destroy(p);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3639 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3640 + }
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 + override void postblit(void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3643 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3644 + auto sz = value.tsize();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3645 + foreach (i; 0 .. len)
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 + value.postblit(p);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3648 + p += sz;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3652 + TypeInfo value;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3653 + size_t len;
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_AssociativeArray : 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()
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 + 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	3661 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3662 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3663 + override equals_t opEquals(Object o)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3664 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3665 + TypeInfo_AssociativeArray c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3666 + return this is o \|\|
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3667 + ((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	3668 + this.key == c.key &&
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3669 + this.value == c.value);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3670 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3671 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3672 + // 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	3673 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3674 + override size_t tsize()
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 + return (char[int]).sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3677 + }
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 + override TypeInfo next() { return value; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3680 + override uint flags() { return 1; }
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 + TypeInfo value;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3683 + TypeInfo key;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3684 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3685 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3686 +class TypeInfo_Function : TypeInfo
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 + override string toString()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3689 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3690 + return cast(string)(next.toString() ~ "()");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3691 + }
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 + override equals_t opEquals(Object o)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3694 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3695 + TypeInfo_Function c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3696 + return this is o \|\|
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3697 + ((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	3698 + this.next == c.next);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3699 + }
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 + // 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	3702 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3703 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3704 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3705 + return 0; // no size for functions
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3706 + }
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 + TypeInfo next;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3709 +}
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 +class TypeInfo_Delegate : TypeInfo
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 + override string toString()
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 + return cast(string)(next.toString() ~ " delegate()");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3716 + }
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 + override equals_t opEquals(Object o)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3719 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3720 + TypeInfo_Delegate c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3721 + return this is o \|\|
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3722 + ((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	3723 + this.next == c.next);
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3726 + // 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	3727 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3728 + override size_t tsize()
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 + alias int delegate() dg;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3731 + return dg.sizeof;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3734 + override uint flags() { return 1; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3735 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3736 + TypeInfo next;
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 +class TypeInfo_Class : TypeInfo
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 + override string toString() { return info.name; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3742 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3743 + override equals_t opEquals(Object o)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3744 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3745 + TypeInfo_Class c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3746 + return this is o \|\|
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3747 + ((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	3748 + this.info.name == c.classinfo.name);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3749 + }
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 + 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	3752 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3753 + Object o = cast(Object)p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3754 + return o ? o.toHash() : 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3755 + }
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 + 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	3758 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3759 + Object o1 = cast(Object)p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3760 + Object o2 = cast(Object)p2;
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 + 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	3763 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3764 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3765 + 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	3766 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3767 + Object o1 = cast(Object)p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3768 + Object o2 = cast(Object)p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3769 + int c = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3770 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3771 + // 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	3772 + if (o1 !is o2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3773 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3774 + if (o1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3775 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3776 + if (!o2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3777 + c = 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3778 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3779 + c = o1.opCmp(o2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3780 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3781 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3782 + c = -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3783 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3784 + return c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3785 + }
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 size_t tsize()
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 + return Object.sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3790 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3791 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3792 + override uint flags() { return 1; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3793 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3794 + override OffsetTypeInfo[] offTi()
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 + 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	3797 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3798 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3799 + ClassInfo info;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3802 +class TypeInfo_Interface : TypeInfo
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 + override string toString() { return info.name; }
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 + override equals_t opEquals(Object o)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3807 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3808 + TypeInfo_Interface c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3809 + return this is o \|\|
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3810 + ((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	3811 + this.info.name == c.classinfo.name);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3812 + }
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 + 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	3815 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3816 + 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	3817 + 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	3818 + assert(o);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3819 + return o.toHash();
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3822 + 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	3823 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3824 + 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	3825 + 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	3826 + pi = cast(Interface )cast(void**)p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3827 + 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	3828 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3829 + 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	3830 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3831 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3832 + 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	3833 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3834 + 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	3835 + 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	3836 + pi = cast(Interface )cast(void**)p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3837 + 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	3838 + int c = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3839 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3840 + // 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	3841 + if (o1 != o2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3842 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3843 + if (o1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3844 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3845 + if (!o2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3846 + c = 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3847 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3848 + c = o1.opCmp(o2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3849 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3850 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3851 + c = -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3852 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3853 + return c;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3856 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3857 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3858 + return Object.sizeof;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3861 + override uint flags() { return 1; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3862 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3863 + ClassInfo info;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3864 +}
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 +class TypeInfo_Struct : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3867 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3868 + override string toString() { return name; }
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 equals_t opEquals(Object o)
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 + TypeInfo_Struct s;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3873 + return this is o \|\|
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3874 + ((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	3875 + this.name == s.name &&
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3876 + this.init.length == s.init.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3877 + }
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 + 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	3880 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3881 + assert(p);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3882 + if (xtoHash)
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 + 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	3885 + return (*xtoHash)(p);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3886 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3887 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3888 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3889 + hash_t h;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3890 + 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	3891 + // A sorry hash algorithm.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3892 + // Should use the one for strings.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3893 + // 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	3894 + auto q = cast(const(ubyte)*)p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3895 + 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	3896 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3897 + h = h * 9 + *q;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3898 + q++;
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 + return h;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3901 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3902 + }
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 + 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	3905 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3906 + if (p1 == p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3907 + return true;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3908 + else if (!p1 \|\| !p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3909 + return false;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3910 + else if (xopEquals)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3911 + return (*xopEquals)(p1, p2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3912 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3913 + // 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	3914 + 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	3915 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3916 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3917 + 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	3918 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3919 + // 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	3920 + if (p1 != p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3921 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3922 + if (p1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3923 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3924 + if (!p2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3925 + return true;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3926 + else if (xopCmp)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3927 + return (*xopCmp)(p2, p1);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3928 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3929 + // 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	3930 + return memcmp(p1, p2, init.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3931 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3932 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3933 + return -1;
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 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3936 + }
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 + override size_t tsize()
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 + return init.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3941 + }
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 + override void[] init() { return m_init; }
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 + override uint flags() { return m_flags; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3946 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3947 + override void destroy(void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3948 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3949 + if (xdtor)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3950 + (*xdtor)(p);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3951 + }
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 + override void postblit(void* p)
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 + if (xpostblit)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3956 + (*xpostblit)(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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3959 + string name;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3960 + 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	3961 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3962 + hash_t function(in void*) xtoHash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3963 + 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	3964 + 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	3965 + char[] function(in void*) xtoString;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3966 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3967 + uint m_flags;
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 + const(MemberInfo[]) function(in char[]) xgetMembers;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3970 + void function(void*) xdtor;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3971 + void function(void*) xpostblit;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3972 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3973 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3974 +class TypeInfo_Tuple : TypeInfo
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 + TypeInfo[] elements;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3977 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3978 + override string toString()
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 + string s = "(";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3981 + foreach (i, element; elements)
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 + if (i)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3984 + s ~= ',';
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3985 + s ~= element.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 + s ~= ")";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3988 + return s;
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 + override equals_t opEquals(Object o)
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 + if (this is o)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3994 + return true;
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 + auto t = cast(TypeInfo_Tuple)o;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3997 + 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	3998 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	3999 + 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	4000 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4001 + if (elements[i] != t.elements[i])
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4002 + return false;
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 + return true;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4005 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4006 + return false;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4007 + }
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 + 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	4010 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4011 + assert(0);
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 + 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	4015 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4016 + assert(0);
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4019 + 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	4020 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4021 + assert(0);
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 size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4025 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4026 + assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4027 + }
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 + 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	4030 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4031 + assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4032 + }
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 + override void destroy(void* p)
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 + assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4037 + }
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 + override void postblit(void* p)
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 + assert(0);
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 +}
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 +class TypeInfo_Const : TypeInfo
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 + override string toString()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4048 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4049 + return cast(string) ("const(" ~ base.toString() ~ ")");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4050 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4051 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4052 + 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	4053 + 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	4054 + 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	4055 + 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	4056 + 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	4057 + 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	4058 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4059 + override TypeInfo next() { return base.next(); }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4060 + override uint flags() { return base.flags(); }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4061 + override void[] init() { return base.init(); }
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 + TypeInfo base;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4064 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4065 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4066 +class TypeInfo_Invariant : TypeInfo_Const
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 + override string toString()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4069 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4070 + return cast(string) ("invariant(" ~ base.toString() ~ ")");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4071 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4072 +}
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 +abstract class MemberInfo
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 + string name();
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4079 +class MemberInfo_field : MemberInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4080 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4081 + 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	4082 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4083 + m_name = name;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4084 + m_typeinfo = ti;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4085 + m_offset = offset;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4086 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4087 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4088 + override string name() { return m_name; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4089 + TypeInfo typeInfo() { return m_typeinfo; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4090 + size_t offset() { return m_offset; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4091 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4092 + string m_name;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4093 + TypeInfo m_typeinfo;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4094 + size_t m_offset;
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 +class MemberInfo_function : MemberInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4098 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4099 + 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	4100 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4101 + m_name = name;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4102 + m_typeinfo = ti;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4103 + m_fp = fp;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4104 + m_flags = flags;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4105 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4106 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4107 + override string name() { return m_name; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4108 + TypeInfo typeInfo() { return m_typeinfo; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4109 + void* fp() { return m_fp; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4110 + uint flags() { return m_flags; }
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 + string m_name;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4113 + TypeInfo m_typeinfo;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4114 + void* m_fp;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4115 + uint m_flags;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4116 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4117 +
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 +///////////////////////////////////////////////////////////////////////////////
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4120 +// Throwable
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4121 +///////////////////////////////////////////////////////////////////////////////
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4122 +
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 +class Throwable : Object
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4125 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4126 + interface TraceInfo
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 + int opApply(int delegate(inout char[]));
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4131 + string msg;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4132 + string file;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4133 + size_t line;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4134 + TraceInfo info;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4135 + Throwable next;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4136 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4137 + this(string msg, Throwable next = null)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4138 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4139 + this.msg = msg;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4140 + this.next = next;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4141 + this.info = traceContext();
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4144 + 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	4145 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4146 + this(msg, next);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4147 + this.file = file;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4148 + this.line = line;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4149 + this.info = traceContext();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4150 + }
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 + override string toString()
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 + char[10] tmp = void;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4155 + char[] buf;
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 + 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	4158 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4159 + if (e.file)
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 + 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	4162 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4163 + else
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 + buf ~= e.classinfo.name ~ ": " ~ e.msg;
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 + if (e.info)
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 + buf ~= "\n----------------";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4170 + foreach (t; e.info)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4171 + buf ~= "\n" ~ t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4172 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4173 + if (e.next)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4174 + buf ~= "\n";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4175 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4176 + return cast(string) buf;
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 +
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 +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	4182 +private TraceHandler traceHandler = null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4183 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4184 +
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 + * 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	4187 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4188 + * Params:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4189 + * 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	4190 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4191 +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	4192 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4193 + traceHandler = h;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4194 +}
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 +
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 + * 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	4199 + * 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	4200 + * otherwise no trace will be generated.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4201 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4202 + * Params:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4203 + * 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	4204 + * 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	4205 + * itself.
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 + * Returns:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4208 + * 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	4209 + * supplied.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4210 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4211 +Throwable.TraceInfo traceContext(void* ptr = null)
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 + if (traceHandler is null)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4214 + return null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4215 + return traceHandler(ptr);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4216 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4217 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4218 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4219 +class Exception : Throwable
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4220 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4221 + this(string msg, Throwable next = null)
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 + super(msg, next);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4224 + }
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 + 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	4227 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4228 + super(msg, file, line, next);
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 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4231 +
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 +class Error : Throwable
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4234 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4235 + this(string msg, Throwable next = null)
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 + super(msg, next);
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4240 + 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	4241 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4242 + super(msg, file, line, next);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4243 + }
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4246 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4247 +///////////////////////////////////////////////////////////////////////////////
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4248 +// ModuleInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4249 +///////////////////////////////////////////////////////////////////////////////
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4250 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4251 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4252 +enum
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 + 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	4255 + MIctordone = 2, // finished construction
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4256 + 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	4257 + // ctors being done first
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4258 + MIhasictor = 8, // has ictor member
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4262 +class ModuleInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4263 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4264 + string name;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4265 + ModuleInfo[] importedModules;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4266 + ClassInfo[] localClasses;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4267 + uint flags;
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 + 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	4270 + void function() dtor; // module static destructor
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4271 + void function() unitTest; // module unit tests
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4272 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4273 + void* xgetMembers; // module getMembers() function
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4274 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4275 + 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	4276 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4277 + 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	4278 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4279 + int ret = 0;
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 + foreach (m; _moduleinfo_array)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4282 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4283 + ret = dg(m);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4284 + if (ret)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4285 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4286 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4287 + return ret;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4288 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4289 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4290 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4291 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4292 +// 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	4293 +// linux: this gets initialized in _moduleCtor()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4294 +extern (C) ModuleInfo[] _moduleinfo_array;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4297 +version (linux)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4298 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4299 + // 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	4300 + // 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	4301 + struct ModuleReference
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4302 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4303 + ModuleReference* next;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4304 + ModuleInfo mod;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4305 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4306 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4307 + 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	4308 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4309 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4310 +ModuleInfo[] _moduleinfo_dtors;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4311 +uint _moduleinfo_dtors_i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4312 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4313 +// Register termination function pointers
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4314 +extern (C) int _fatexit(void*);
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 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4317 + * Initialize the modules.
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 +extern (C) void _moduleCtor()
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 + debug(PRINTF) printf("_moduleCtor()\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4323 + version (linux)
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 + int len = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4326 + ModuleReference *mr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4327 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4328 + 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	4329 + len++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4330 + _moduleinfo_array = new ModuleInfo[len];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4331 + len = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4332 + 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	4333 + { _moduleinfo_array[len] = mr.mod;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4334 + len++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4335 + }
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4338 + version (Windows)
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 + // 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	4341 + //_fatexit(&_STD_moduleDtor);
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4344 + _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	4345 + 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	4346 + _moduleIndependentCtors();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4347 + _moduleCtor2(_moduleinfo_array, 0);
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 +extern (C) void _moduleIndependentCtors()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4351 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4352 + debug(PRINTF) printf("_moduleIndependentCtors()\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4353 + foreach (m; _moduleinfo_array)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4354 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4355 + 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	4356 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4357 + (*m.ictor)();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4358 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4359 + }
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4362 +void _moduleCtor2(ModuleInfo[] mi, int skip)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4363 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4364 + 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	4365 + 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	4366 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4367 + ModuleInfo m = mi[i];
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 + 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	4370 + if (!m)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4371 + continue;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4372 + 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	4373 + if (m.flags & MIctordone)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4374 + continue;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4375 + 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	4376 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4377 + if (m.ctor \|\| m.dtor)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4378 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4379 + if (m.flags & MIctorstart)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4380 + { if (skip \|\| m.flags & MIstandalone)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4381 + continue;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4382 + 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	4383 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4384 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4385 + m.flags \|= MIctorstart;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4386 + _moduleCtor2(m.importedModules, 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4387 + if (m.ctor)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4388 + (*m.ctor)();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4389 + m.flags &= ~MIctorstart;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4390 + m.flags \|= MIctordone;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4391 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4392 + // 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	4393 + //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	4394 + 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	4395 + _moduleinfo_dtors[_moduleinfo_dtors_i++] = m;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4396 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4397 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4398 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4399 + m.flags \|= MIctordone;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4400 + _moduleCtor2(m.importedModules, 1);
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 + }
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 +
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 + * Destruct the modules.
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4409 +// 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	4410 +// 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	4411 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4412 +extern (C) void _moduleDtor()
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 + 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	4415 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4416 + 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	4417 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4418 + ModuleInfo m = _moduleinfo_dtors[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4419 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4420 + 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	4421 + if (m.dtor)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4422 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4423 + (*m.dtor)();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4424 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4425 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4426 + debug(PRINTF) printf("_moduleDtor() done\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4427 +}
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 +///////////////////////////////////////////////////////////////////////////////
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4430 +// Monitor
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4433 +alias Object.Monitor IMonitor;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4434 +alias void delegate(Object) DEvent;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4435 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4436 +// 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	4437 +// 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	4438 +// 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	4439 +// 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	4440 +// 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	4441 +// null.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4442 +struct Monitor
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4443 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4444 + IMonitor impl;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4445 + /* internal */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4446 + DEvent[] devt;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4447 + /* stuff */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4448 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4449 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4450 +Monitor* getMonitor(Object h)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4451 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4452 + 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	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 +void setMonitor(Object h, Monitor* m)
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 + (cast(void**) h)[1] = m;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4460 +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	4461 +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	4462 +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	4463 +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	4464 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4465 +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	4466 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4467 + Monitor* m = getMonitor(h);
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 + if (m !is null)
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 + IMonitor i = m.impl;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4472 + if (i is null)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4473 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4474 + _d_monitor_devt(m, h);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4475 + _d_monitor_destroy(h);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4476 + setMonitor(h, null);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4477 + return;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4478 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4479 + 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	4480 + delete i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4481 + setMonitor(h, null);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4482 + }
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4485 +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	4486 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4487 + Monitor* m = getMonitor(h);
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 + if (m is null)
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 + _d_monitor_create(h);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4492 + m = getMonitor(h);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4493 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4494 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4495 + IMonitor i = m.impl;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4496 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4497 + if (i is null)
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 + _d_monitor_lock(h);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4500 + return;
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 + i.lock();
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4505 +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	4506 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4507 + Monitor* m = getMonitor(h);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4508 + IMonitor i = m.impl;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4509 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4510 + if (i is null)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4511 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4512 + _d_monitor_unlock(h);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4513 + return;
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 + i.unlock();
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 +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	4519 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4520 + if (m.devt.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4521 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4522 + DEvent[] devt;
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 + synchronized (h)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4525 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4526 + devt = m.devt;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4527 + m.devt = null;
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 + foreach (v; devt)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4530 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4531 + if (v)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4532 + v(h);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4533 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4534 + free(devt.ptr);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4535 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4536 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4537 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4538 +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	4539 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4540 + synchronized (h)
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 + Monitor* m = getMonitor(h);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4543 + assert(m.impl is null);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4544 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4545 + foreach (inout v; m.devt)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4546 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4547 + if (v is null \|\| v == e)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4548 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4549 + v = e;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4550 + return;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4551 + }
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4554 + 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	4555 + 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	4556 + 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	4557 + if (!p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4558 + onOutOfMemoryError();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4559 + 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	4560 + m.devt[pos+1 .. len] = null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4561 + m.devt[pos] = e;
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 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4564 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4565 +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	4566 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4567 + synchronized (h)
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 + Monitor* m = getMonitor(h);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4570 + assert(m.impl is null);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4571 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4572 + foreach (p, v; m.devt)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4573 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4574 + if (v == e)
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 + memmove(&m.devt[p],
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4577 + &m.devt[p+1],
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4578 + (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	4579 + m.devt[$ - 1] = null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4580 + return;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4581 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4582 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4583 + }
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 Index: src/compiler/ldc/mars.h
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 --- 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	4588 +++ 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	4589 @@ -0,0 +1,105 @@
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 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4592 + * Placed into the Public Domain
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4593 + * written by Walter Bright, Digital Mars
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4594 + * www.digitalmars.com
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4595 + */
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 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4598 + * 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	4599 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4600 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4601 +#include <stddef.h>
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 +#if __cplusplus
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4604 +extern "C" {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4605 +#endif
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4606 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4607 +struct ClassInfo;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4608 +struct Vtbl;
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 +typedef struct Vtbl
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 + size_t len;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4613 + void **vptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4614 +} Vtbl;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4615 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4616 +typedef struct Interface
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 + struct ClassInfo *classinfo;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4619 + struct Vtbl vtbl;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4620 + int offset;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4621 +} Interface;
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 +typedef struct Object
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4624 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4625 + void **vptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4626 + void *monitor;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4627 +} Object;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4628 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4629 +typedef struct ClassInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4630 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4631 + Object object;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4632 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4633 + size_t initlen;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4634 + void *init;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4635 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4636 + size_t namelen;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4637 + char *name;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4638 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4639 + Vtbl vtbl;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4640 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4641 + size_t interfacelen;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4642 + Interface *interfaces;
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 + struct ClassInfo *baseClass;
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 + void *destructor;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4647 + void *invariant;
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 + int flags;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4650 +} ClassInfo;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4651 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4652 +typedef struct Exception
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 + Object object;
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 + size_t msglen;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4657 + char* msg;
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 + size_t filelen;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4660 + char* file;
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 + size_t line;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4663 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4664 + struct Interface *info;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4665 + struct Exception *next;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4666 +} Exception;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4667 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4668 +typedef struct Array
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4669 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4670 + size_t length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4671 + void *ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4672 +} Array;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4673 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4674 +typedef struct Delegate
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4675 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4676 + void *thisptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4677 + void (*funcptr)();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4678 +} Delegate;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4679 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4680 +void _d_monitorenter(Object *h);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4681 +void _d_monitorexit(Object *h);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4682 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4683 +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	4684 +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	4685 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4686 +Object * _d_allocclass(ClassInfo *ci);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4687 +void _d_delclass(Object **p);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4688 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4689 +void _d_OutOfMemory();
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 +#if __cplusplus
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 +#endif
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4694 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4695 Index: src/compiler/ldc/aApplyR.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4696 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4697 --- 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	4698 +++ 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	4699 @@ -0,0 +1,975 @@
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 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4702 + * 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	4703 + */
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 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4706 + * 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	4707 + * Written by Walter Bright
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4708 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4709 + * 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	4710 + * 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	4711 + * 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	4712 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4713 + * 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	4714 + * 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	4715 + * 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	4716 + * restrictions:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4717 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4718 + * 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	4719 + * 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	4720 + * 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	4721 + * appreciated but is not required.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4722 + * 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	4723 + * 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	4724 + * 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	4725 + * distribution.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4726 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4727 +
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 + * 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	4730 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4731 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4732 +/* 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	4733 + * 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	4734 + * 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	4735 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4736 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4737 +private import util.utf;
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 +/**********************************************/
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4740 +/* 1 argument versions */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4741 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4742 +// 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	4743 +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	4744 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4745 +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	4746 +{ int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4747 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4748 + 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	4749 + 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	4750 + { dchar d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4751 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4752 + i--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4753 + d = aa[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4754 + if (d & 0x80)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4755 + { char c = cast(char)d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4756 + uint j;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4757 + uint m = 0x3F;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4758 + d = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4759 + while ((c & 0xC0) != 0xC0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4760 + { if (i == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4761 + onUnicodeError("Invalid UTF-8 sequence", 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4762 + i--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4763 + d \|= (c & 0x3F) << j;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4764 + j += 6;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4765 + m >>= 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4766 + c = aa[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4767 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4768 + d \|= (c & m) << j;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4769 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4770 + result = dg(cast(void *)&d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4771 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4772 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4773 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4774 + return result;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4777 +unittest
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4778 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4779 + debug(apply) printf("_aApplyRcd1.unittest\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4780 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4781 + char[] s = "hello"c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4782 + int i;
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 + foreach_reverse(dchar d; s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4785 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4786 + switch (i)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4787 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4788 + case 0: assert(d == 'o'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4789 + case 1: assert(d == 'l'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4790 + case 2: assert(d == 'l'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4791 + case 3: assert(d == 'e'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4792 + case 4: assert(d == 'h'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4793 + default: assert(0);
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 + i++;
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 + assert(i == 5);
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 + s = "a\u1234\U00100456b";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4800 + i = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4801 + foreach_reverse(dchar d; s)
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 + //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	4804 + switch (i)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4805 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4806 + case 0: assert(d == 'b'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4807 + case 1: assert(d == '\U00100456'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4808 + case 2: assert(d == '\u1234'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4809 + case 3: assert(d == 'a'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4810 + default: assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4811 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4812 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4813 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4814 + assert(i == 4);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4815 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4816 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4817 +/*****************************/
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4818 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4819 +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	4820 +{ int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4821 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4822 + 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	4823 + 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	4824 + { dchar d;
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 + i--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4827 + d = aa[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4828 + if (d >= 0xDC00 && d <= 0xDFFF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4829 + { if (i == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4830 + onUnicodeError("Invalid UTF-16 sequence", 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4831 + i--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4832 + 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	4833 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4834 + result = dg(cast(void *)&d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4835 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4836 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4837 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4838 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4839 +}
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 +unittest
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 + debug(apply) printf("_aApplyRwd1.unittest\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4844 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4845 + wchar[] s = "hello"w;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4846 + int i;
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 + foreach_reverse(dchar d; s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4849 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4850 + switch (i)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4851 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4852 + case 0: assert(d == 'o'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4853 + case 1: assert(d == 'l'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4854 + case 2: assert(d == 'l'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4855 + case 3: assert(d == 'e'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4856 + case 4: assert(d == 'h'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4857 + default: assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4858 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4859 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4860 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4861 + assert(i == 5);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4862 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4863 + s = "a\u1234\U00100456b";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4864 + i = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4865 + foreach_reverse(dchar d; s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4866 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4867 + //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	4868 + switch (i)
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 + case 0: assert(d == 'b'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4871 + case 1: assert(d == '\U00100456'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4872 + case 2: assert(d == '\u1234'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4873 + case 3: assert(d == 'a'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4874 + default: assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4875 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4876 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4877 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4878 + assert(i == 4);
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 +
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4883 +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	4884 +{ int result;
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 + 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	4887 + 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	4888 + { dchar d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4889 + wchar w;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4890 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4891 + i--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4892 + w = aa[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4893 + if (w & 0x80)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4894 + { char c = cast(char)w;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4895 + uint j;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4896 + uint m = 0x3F;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4897 + d = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4898 + while ((c & 0xC0) != 0xC0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4899 + { if (i == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4900 + onUnicodeError("Invalid UTF-8 sequence", 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4901 + i--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4902 + d \|= (c & 0x3F) << j;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4903 + j += 6;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4904 + m >>= 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4905 + c = aa[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4906 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4907 + d \|= (c & m) << j;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4908 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4909 + if (d <= 0xFFFF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4910 + w = cast(wchar) d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4911 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4912 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4913 + 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	4914 + result = dg(cast(void *)&w);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4915 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4916 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4917 + 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	4918 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4919 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4920 + result = dg(cast(void *)&w);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4921 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4922 + break;
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 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4925 +}
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 +unittest
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 + debug(apply) printf("_aApplyRcw1.unittest\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4930 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4931 + char[] s = "hello"c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4932 + int i;
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 + foreach_reverse(wchar d; s)
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 + switch (i)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4937 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4938 + case 0: assert(d == 'o'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4939 + case 1: assert(d == 'l'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4940 + case 2: assert(d == 'l'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4941 + case 3: assert(d == 'e'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4942 + case 4: assert(d == 'h'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4943 + default: assert(0);
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 + i++;
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 + assert(i == 5);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4948 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4949 + s = "a\u1234\U00100456b";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4950 + i = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4951 + foreach_reverse(wchar d; s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4952 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4953 + //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	4954 + switch (i)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4955 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4956 + case 0: assert(d == 'b'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4957 + case 1: assert(d == 0xDBC1); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4958 + case 2: assert(d == 0xDC56); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4959 + case 3: assert(d == 0x1234); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4960 + case 4: assert(d == 'a'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4961 + default: assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4962 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4963 + i++;
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 + assert(i == 5);
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 +
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 +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	4971 +{ int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4972 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4973 + 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	4974 + 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	4975 + { dchar d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4976 + char c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4977 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4978 + i--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4979 + d = aa[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4980 + if (d >= 0xDC00 && d <= 0xDFFF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4981 + { if (i == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4982 + onUnicodeError("Invalid UTF-16 sequence", 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4983 + i--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4984 + 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	4985 + }
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 + if (d & ~0x7F)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4988 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4989 + char[4] buf;
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 + auto b = toUTF8(buf, d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4992 + foreach (char c2; b)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4993 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4994 + result = dg(cast(void *)&c2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4995 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4996 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4997 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4998 + continue;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	4999 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5000 + c = cast(char)d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5001 + result = dg(cast(void *)&c);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5002 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5003 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5004 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5005 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5006 +}
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 +unittest
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5009 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5010 + debug(apply) printf("_aApplyRwc1.unittest\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5011 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5012 + wchar[] s = "hello"w;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5013 + int 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 + foreach_reverse(char d; s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5016 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5017 + switch (i)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5018 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5019 + case 0: assert(d == 'o'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5020 + case 1: assert(d == 'l'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5021 + case 2: assert(d == 'l'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5022 + case 3: assert(d == 'e'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5023 + case 4: assert(d == 'h'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5024 + default: assert(0);
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 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5027 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5028 + assert(i == 5);
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 + s = "a\u1234\U00100456b";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5031 + i = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5032 + foreach_reverse(char d; s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5033 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5034 + //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	5035 + switch (i)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5036 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5037 + case 0: assert(d == 'b'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5038 + case 1: assert(d == 0xF4); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5039 + case 2: assert(d == 0x80); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5040 + case 3: assert(d == 0x91); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5041 + case 4: assert(d == 0x96); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5042 + case 5: assert(d == 0xE1); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5043 + case 6: assert(d == 0x88); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5044 + case 7: assert(d == 0xB4); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5045 + case 8: assert(d == 'a'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5046 + default: assert(0);
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 + i++;
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 + assert(i == 9);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5051 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5052 +
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5055 +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	5056 +{ int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5057 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5058 + 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	5059 + 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	5060 + { dchar d = aa[--i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5061 + char c;
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 + if (d & ~0x7F)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5064 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5065 + char[4] buf;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5066 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5067 + auto b = toUTF8(buf, d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5068 + foreach (char c2; b)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5069 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5070 + result = dg(cast(void *)&c2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5071 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5072 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5073 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5074 + continue;
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 + else
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 + c = cast(char)d;
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 + result = dg(cast(void *)&c);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5081 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5082 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5083 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5084 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5085 +}
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 +unittest
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5088 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5089 + debug(apply) printf("_aApplyRdc1.unittest\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5090 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5091 + dchar[] s = "hello"d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5092 + int i;
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 + foreach_reverse(char d; s)
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 + switch (i)
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 + case 0: assert(d == 'o'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5099 + case 1: assert(d == 'l'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5100 + case 2: assert(d == 'l'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5101 + case 3: assert(d == 'e'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5102 + case 4: assert(d == 'h'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5103 + default: assert(0);
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 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5106 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5107 + assert(i == 5);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5108 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5109 + s = "a\u1234\U00100456b";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5110 + i = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5111 + foreach_reverse(char d; s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5112 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5113 + //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	5114 + switch (i)
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 + case 0: assert(d == 'b'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5117 + case 1: assert(d == 0xF4); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5118 + case 2: assert(d == 0x80); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5119 + case 3: assert(d == 0x91); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5120 + case 4: assert(d == 0x96); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5121 + case 5: assert(d == 0xE1); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5122 + case 6: assert(d == 0x88); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5123 + case 7: assert(d == 0xB4); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5124 + case 8: assert(d == 'a'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5125 + default: assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5126 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5127 + i++;
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 + assert(i == 9);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5130 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5131 +
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5134 +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	5135 +{ int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5136 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5137 + 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	5138 + 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	5139 + { dchar d = aa[--i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5140 + wchar w;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5141 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5142 + if (d <= 0xFFFF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5143 + w = cast(wchar) d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5144 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5145 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5146 + 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	5147 + result = dg(cast(void *)&w);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5148 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5149 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5150 + 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	5151 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5152 + result = dg(cast(void *)&w);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5153 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5154 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5155 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5156 + return result;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5159 +unittest
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5160 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5161 + debug(apply) printf("_aApplyRdw1.unittest\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5162 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5163 + dchar[] s = "hello"d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5164 + int i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5165 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5166 + foreach_reverse(wchar d; s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5167 + {
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(wchar 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, d = %x\n", i, 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'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5189 + case 1: assert(d == 0xDBC1); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5190 + case 2: assert(d == 0xDC56); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5191 + case 3: assert(d == 0x1234); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5192 + case 4: assert(d == 'a'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5193 + default: assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5194 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5195 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5196 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5197 + assert(i == 5);
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 +/****************************************************************************/
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5202 +/* 2 argument versions */
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 +// 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	5205 +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	5206 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5207 +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	5208 +{ int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5209 + size_t i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5210 + size_t len = aa.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5211 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5212 + 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	5213 + for (i = len; i != 0; )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5214 + { dchar d;
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 + i--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5217 + d = aa[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5218 + if (d & 0x80)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5219 + { char c = cast(char)d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5220 + uint j;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5221 + uint m = 0x3F;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5222 + d = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5223 + while ((c & 0xC0) != 0xC0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5224 + { if (i == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5225 + onUnicodeError("Invalid UTF-8 sequence", 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5226 + i--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5227 + d \|= (c & 0x3F) << j;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5228 + j += 6;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5229 + m >>= 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5230 + c = aa[i];
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 + d \|= (c & m) << j;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5233 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5234 + result = dg(&i, cast(void *)&d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5235 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5236 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5237 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5238 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5239 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5240 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5241 +unittest
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 + debug(apply) printf("_aApplyRcd2.unittest\n");
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 + char[] s = "hello"c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5246 + int i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5247 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5248 + foreach_reverse(k, dchar d; s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5249 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5250 + assert(k == 4 - i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5251 + switch (i)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5252 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5253 + case 0: assert(d == 'o'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5254 + case 1: assert(d == 'l'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5255 + case 2: assert(d == 'l'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5256 + case 3: assert(d == 'e'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5257 + case 4: assert(d == 'h'); 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 == 5);
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 + s = "a\u1234\U00100456b";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5265 + i = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5266 + foreach_reverse(k, dchar d; s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5267 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5268 + //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	5269 + switch (i)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5270 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5271 + 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	5272 + 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	5273 + 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	5274 + 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	5275 + default: assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5276 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5277 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5278 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5279 + assert(i == 4);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5280 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5281 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5282 +/*****************************/
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5283 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5284 +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	5285 +{ int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5286 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5287 + 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	5288 + 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	5289 + { dchar d;
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 + i--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5292 + d = aa[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5293 + if (d >= 0xDC00 && d <= 0xDFFF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5294 + { if (i == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5295 + onUnicodeError("Invalid UTF-16 sequence", 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5296 + i--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5297 + 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	5298 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5299 + result = dg(&i, cast(void *)&d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5300 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5301 + break;
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 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5304 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5305 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5306 +unittest
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 + debug(apply) printf("_aApplyRwd2.unittest\n");
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 + wchar[] s = "hello"w;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5311 + int i;
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 + foreach_reverse(k, dchar d; s)
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 + //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	5316 + assert(k == 4 - i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5317 + switch (i)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5318 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5319 + case 0: assert(d == 'o'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5320 + case 1: assert(d == 'l'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5321 + case 2: assert(d == 'l'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5322 + case 3: assert(d == 'e'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5323 + case 4: assert(d == 'h'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5324 + default: assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5325 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5326 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5327 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5328 + assert(i == 5);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5329 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5330 + s = "a\u1234\U00100456b";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5331 + i = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5332 + foreach_reverse(k, dchar d; s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5333 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5334 + //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	5335 + switch (i)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5336 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5337 + 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	5338 + 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	5339 + 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	5340 + 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	5341 + default: assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5342 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5343 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5344 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5345 + assert(i == 4);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5346 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5347 +
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5350 +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	5351 +{ int result;
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 + 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	5354 + 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	5355 + { dchar d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5356 + wchar w;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5357 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5358 + i--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5359 + w = aa[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5360 + if (w & 0x80)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5361 + { char c = cast(char)w;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5362 + uint j;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5363 + uint m = 0x3F;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5364 + d = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5365 + while ((c & 0xC0) != 0xC0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5366 + { if (i == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5367 + onUnicodeError("Invalid UTF-8 sequence", 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5368 + i--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5369 + d \|= (c & 0x3F) << j;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5370 + j += 6;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5371 + m >>= 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5372 + c = aa[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5373 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5374 + d \|= (c & m) << j;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5375 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5376 + if (d <= 0xFFFF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5377 + w = cast(wchar) d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5378 + else
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 + 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	5381 + result = dg(&i, cast(void *)&w);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5382 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5383 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5384 + 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	5385 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5386 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5387 + result = dg(&i, cast(void *)&w);
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("_aApplyRcw2.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 + char[] s = "hello"c;
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, wchar 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, wchar 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 == 8); 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 == 4); assert(d == 0xDBC1); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5427 + 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	5428 + 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	5429 + 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	5430 + default: assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5431 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5432 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5433 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5434 + assert(i == 5);
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 +
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5439 +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	5440 +{ int result;
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 + 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	5443 + 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	5444 + { dchar d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5445 + char c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5446 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5447 + i--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5448 + d = aa[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5449 + if (d >= 0xDC00 && d <= 0xDFFF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5450 + { if (i == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5451 + onUnicodeError("Invalid UTF-16 sequence", 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5452 + i--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5453 + 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	5454 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5455 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5456 + if (d & ~0x7F)
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 + char[4] buf;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5459 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5460 + auto b = toUTF8(buf, d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5461 + foreach (char c2; b)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5462 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5463 + result = dg(&i, cast(void *)&c2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5464 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5465 + return result;
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 + continue;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5468 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5469 + c = cast(char)d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5470 + result = dg(&i, cast(void *)&c);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5471 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5472 + break;
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 + return result;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5477 +unittest
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5478 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5479 + debug(apply) printf("_aApplyRwc2.unittest\n");
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 + wchar[] s = "hello"w;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5482 + int i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5483 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5484 + foreach_reverse(k, char d; s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5485 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5486 + //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	5487 + assert(k == 4 - i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5488 + switch (i)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5489 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5490 + case 0: assert(d == 'o'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5491 + case 1: assert(d == 'l'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5492 + case 2: assert(d == 'l'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5493 + case 3: assert(d == 'e'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5494 + case 4: assert(d == 'h'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5495 + default: assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5496 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5497 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5498 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5499 + assert(i == 5);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5500 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5501 + s = "a\u1234\U00100456b";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5502 + i = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5503 + foreach_reverse(k, char d; s)
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 + //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	5506 + switch (i)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5507 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5508 + 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	5509 + 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	5510 + 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	5511 + 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	5512 + 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	5513 + 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	5514 + 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	5515 + 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	5516 + 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	5517 + default: assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5518 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5519 + i++;
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 + assert(i == 9);
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5524 +/*****************************/
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 +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	5527 +{ int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5528 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5529 + 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	5530 + 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	5531 + { dchar d = aa[--i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5532 + char c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5533 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5534 + if (d & ~0x7F)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5535 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5536 + char[4] buf;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5537 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5538 + auto b = toUTF8(buf, d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5539 + foreach (char c2; b)
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 *)&c2);
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 + return result;
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 + continue;
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 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5548 + { c = cast(char)d;
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 + result = dg(&i, cast(void *)&c);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5551 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5552 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5553 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5554 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5555 +}
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 +unittest
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5558 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5559 + debug(apply) printf("_aApplyRdc2.unittest\n");
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 + dchar[] s = "hello"d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5562 + int i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5563 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5564 + foreach_reverse(k, char d; s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5565 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5566 + //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	5567 + assert(k == 4 - i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5568 + switch (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 + case 0: assert(d == 'o'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5571 + case 1: assert(d == 'l'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5572 + case 2: assert(d == 'l'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5573 + case 3: assert(d == 'e'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5574 + case 4: assert(d == 'h'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5575 + default: assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5576 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5577 + 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 + assert(i == 5);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5580 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5581 + s = "a\u1234\U00100456b";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5582 + i = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5583 + foreach_reverse(k, char d; s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5584 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5585 + //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	5586 + switch (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 + 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	5589 + 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	5590 + 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	5591 + 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	5592 + 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	5593 + 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	5594 + 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	5595 + 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	5596 + 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	5597 + default: assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5598 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5599 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5600 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5601 + assert(i == 9);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5602 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5603 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5604 +/*****************************/
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5605 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5606 +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	5607 +{ int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5608 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5609 + 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	5610 + 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	5611 + { dchar d = aa[--i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5612 + wchar w;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5613 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5614 + if (d <= 0xFFFF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5615 + w = cast(wchar) d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5616 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5617 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5618 + 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	5619 + result = dg(&i, cast(void *)&w);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5620 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5621 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5622 + 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	5623 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5624 + result = dg(&i, cast(void *)&w);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5625 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5626 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5627 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5628 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5629 +}
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 +unittest
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5632 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5633 + debug(apply) printf("_aApplyRdw2.unittest\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5634 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5635 + dchar[] s = "hello"d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5636 + int i;
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 + foreach_reverse(k, wchar d; s)
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 + //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	5641 + assert(k == 4 - i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5642 + switch (i)
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 + case 0: assert(d == 'o'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5645 + case 1: assert(d == 'l'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5646 + case 2: assert(d == 'l'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5647 + case 3: assert(d == 'e'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5648 + case 4: assert(d == 'h'); break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5649 + default: assert(0);
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 + i++;
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 + assert(i == 5);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5654 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5655 + s = "a\u1234\U00100456b";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5656 + i = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5657 + foreach_reverse(k, wchar d; s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5658 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5659 + //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	5660 + switch (i)
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 + 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	5663 + 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	5664 + 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	5665 + 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	5666 + 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	5667 + default: assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5668 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5669 + i++;
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 + assert(i == 5);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5672 +}
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5675 Index: src/compiler/ldc/memory.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5676 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5677 --- 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	5678 +++ 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	5679 @@ -0,0 +1,323 @@
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 + * 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	5682 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5683 + * 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	5684 + * All rights reserved.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5685 + * License:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5686 + * 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	5687 + * 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	5688 + * 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	5689 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5690 + * 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	5691 + * 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	5692 + * 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	5693 + * restrictions:
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 + * 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	5696 + * 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	5697 + * 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	5698 + * appreciated but is not required.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5699 + * 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	5700 + * 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	5701 + * 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	5702 + * distribution.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5703 + * Authors: Walter Bright, Sean Kelly
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 +module memory;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5706 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5707 +version = GC_Use_Dynamic_Ranges;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5708 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5709 +// does Posix suffice?
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5710 +version(Posix)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5711 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5712 + version = GC_Use_Data_Proc_Maps;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5715 +version(GC_Use_Data_Proc_Maps)
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 + version(Posix) {} else {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5718 + 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	5719 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5720 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5721 + version( D_Version2 )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5722 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5723 + private import core.sys.posix.unistd;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5724 + private import core.sys.posix.fcntl;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5725 + private import core.stdc.string;
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 + else
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 + private import tango.stdc.posix.unistd;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5730 + private import tango.stdc.posix.fcntl;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5731 + private import tango.stdc.string;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5732 + }
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 = GC_Use_Dynamic_Ranges;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5737 +private
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5738 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5739 + version( linux )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5740 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5741 + //version = SimpleLibcStackEnd;
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 + version( SimpleLibcStackEnd )
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 + 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	5746 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5747 + else
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 + version( D_Version2 )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5750 + import core.sys.posix.dlfcn;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5751 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5752 + import tango.stdc.posix.dlfcn;
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 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5755 + version(LDC)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5756 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5757 + pragma(intrinsic, "llvm.frameaddress")
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 + void* llvm_frameaddress(uint level=0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5760 + }
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 +
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 +/**
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 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5768 +extern (C) void* rt_stackBottom()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5769 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5770 + version( Win32 )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5771 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5772 + void* bottom;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5773 + asm
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5774 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5775 + mov EAX, FS:4;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5776 + mov bottom, EAX;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5777 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5778 + return bottom;
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 + else version( linux )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5781 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5782 + version( SimpleLibcStackEnd )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5783 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5784 + return __libc_stack_end;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5785 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5786 + else
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 + // 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	5789 + static void** libc_stack_end;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5790 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5791 + 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	5792 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5793 + void* handle = dlopen( null, RTLD_NOW );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5794 + 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	5795 + dlclose( handle );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5796 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5797 + return *libc_stack_end;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5798 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5799 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5800 + else version( darwin )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5801 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5802 + // darwin has a fixed stack bottom
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5803 + return cast(void*) 0xc0000000;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5804 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5805 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5806 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5807 + 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	5808 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5809 +}
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5812 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5813 + *
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 +extern (C) void* rt_stackTop()
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 + version( D_InlineAsm_X86 )
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 + asm
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5820 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5821 + naked;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5822 + mov EAX, ESP;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5823 + ret;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5824 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5825 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5826 + else
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 + return llvm_frameaddress();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5829 + }
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 +
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 +private
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5834 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5835 + version( Win32 )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5836 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5837 + extern (C)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5838 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5839 + extern int _data_start__;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5840 + extern int _bss_end__;
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 + alias _data_start__ Data_Start;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5843 + alias _bss_end__ Data_End;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5844 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5845 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5846 + else version( linux )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5847 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5848 + extern (C)
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 + extern int _data;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5851 + extern int __data_start;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5852 + extern int _end;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5853 + extern int _data_start__;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5854 + extern int _data_end__;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5855 + extern int _bss_start__;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5856 + extern int _bss_end__;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5857 + extern int __fini_array_end;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5858 + }
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 + alias __data_start Data_Start;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5861 + alias _end Data_End;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5862 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5863 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5864 + version( GC_Use_Dynamic_Ranges )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5865 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5866 + version( D_Version2 )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5867 + private import core.stdc.stdlib;
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 + private import tango.stdc.stdlib;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5870 + }
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 + 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	5873 + 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	5874 +}
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5877 +void initStaticDataGC()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5878 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5879 + enum S = (void*).sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5880 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5881 + // 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	5882 + static void* adjust_up( void* p )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5883 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5884 + 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	5885 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5886 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5887 + static void * adjust_down( void* p )
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 + 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	5890 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5891 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5892 + version( Win32 )
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 + void* start = adjust_up( &Data_Start );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5895 + void* end = adjust_down( &Data_End );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5896 + 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	5897 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5898 + 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	5899 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5900 + // TODO: Exclude zero-mapped regions
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5901 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5902 + 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	5903 + 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	5904 + char buf[2024];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5905 + char* p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5906 + char* e;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5907 + char* s;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5908 + void* start;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5909 + void* end;
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* dataStart = adjust_up( &Data_Start );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5912 + void* dataEnd = adjust_down( &Data_End );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5913 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5914 + 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	5915 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5916 + p = buf.ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5917 + if (fd != -1)
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 + 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	5920 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5921 + e = p + count;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5922 + p = buf.ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5923 + while (true)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5924 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5925 + s = p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5926 + while (p < e && *p != '\n')
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5927 + p++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5928 + if (p < e)
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 + // parse the entry in [s, p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5931 + static if( S == 4 )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5932 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5933 + enum Ofs
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 + Write_Prot = 19,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5936 + Start_Addr = 0,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5937 + End_Addr = 9,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5938 + Addr_Len = 8,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5939 + }
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 + else static if( S == 8 )
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 + enum Ofs
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5944 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5945 + Write_Prot = 35,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5946 + Start_Addr = 0,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5947 + End_Addr = 9,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5948 + Addr_Len = 17,
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 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5951 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5952 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5953 + static assert( false );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5954 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5955 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5956 + // %% this is wrong for 64-bit:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5957 + // uint strtoul(char ,char *,int);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5958 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5959 + if( s[Ofs.Write_Prot] == 'w' )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5960 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5961 + 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	5962 + 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	5963 + 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	5964 + 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	5965 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5966 + // 1. Exclude anything overlapping [dataStart, dataEnd)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5967 + // 2. Exclude stack
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5968 + if ( ( !dataEnd \|\|
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5969 + !( dataStart >= start && dataEnd <= end ) ) &&
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5970 + !( &buf[0] >= start && &buf[0] < end ) )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5971 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5972 + // 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	5973 + // is heap (%% check)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5974 + 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	5975 + 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	5976 + }
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 + p++;
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 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5981 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5982 + count = p - s;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5983 + memmove(buf.ptr, s, count);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5984 + p = buf.ptr + count;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5985 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5986 + }
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 + close(fd);
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 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5992 + else version(linux)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5993 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5994 + void* start = adjust_up( &Data_Start );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5995 + void* end = adjust_down( &Data_End );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5996 + 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	5997 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5998 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	5999 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6000 + 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	6001 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6002 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6003 Index: src/compiler/ldc/dmain2.d
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 --- 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	6006 +++ 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	6007 @@ -0,0 +1,378 @@
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 + * Placed into the Public Domain.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6010 + * written by Walter Bright
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6011 + * www.digitalmars.com
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 +
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 + * 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	6016 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6017 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6018 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6019 + * 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	6020 + */
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 +module rt.dmain2;
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 +private
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 + import memory;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6027 + import util.console;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6028 + import core.stdc.stddef;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6029 + import core.stdc.stdlib;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6030 + import core.stdc.string;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6031 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6032 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6033 +version (Windows)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6034 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6035 + extern (Windows) alias int function() FARPROC;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6036 + 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	6037 + extern (Windows) void* LoadLibraryA(in char*);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6038 + extern (Windows) int FreeLibrary(void*);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6039 + extern (Windows) void* LocalFree(void*);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6040 + extern (Windows) wchar_t* GetCommandLineW();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6041 + 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	6042 + 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	6043 + 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	6044 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6045 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6046 +extern (C) void _STI_monitor_staticctor();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6047 +extern (C) void _STD_monitor_staticdtor();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6048 +extern (C) void _STI_critical_init();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6049 +extern (C) void _STD_critical_term();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6050 +extern (C) void gc_init();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6051 +extern (C) void gc_term();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6052 +extern (C) void _minit();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6053 +extern (C) void _moduleCtor();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6054 +extern (C) void _moduleDtor();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6055 +extern (C) void thread_joinAll();
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 + * 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	6059 + * 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	6060 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6061 +extern (C)
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 + void* gc_getProxy();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6064 + void gc_setProxy(void* p);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6065 + void gc_clrProxy();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6066 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6067 + alias void* function() gcGetFn;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6068 + alias void function(void*) gcSetFn;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6069 + alias void function() gcClrFn;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6070 +}
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 +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	6073 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6074 + version (Windows)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6075 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6076 + char[260] temp = void;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6077 + temp[0 .. name.length] = name[];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6078 + temp[name.length] = cast(char) 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6079 + void* ptr = LoadLibraryA(temp.ptr);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6080 + if (ptr is null)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6081 + return ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6082 + 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	6083 + if (gcSet !is null)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6084 + gcSet(gc_getProxy());
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6085 + return ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6086 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6087 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6088 + else version (linux)
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 + 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	6091 + }
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6094 +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	6095 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6096 + version (Windows)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6097 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6098 + 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	6099 + if (gcClr !is null)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6100 + gcClr();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6101 + return FreeLibrary(ptr) != 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6102 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6103 + else version (linux)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6104 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6105 + 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	6106 + }
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6109 +/***********************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6110 + * 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	6111 + * against this library.
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 +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	6114 +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	6115 +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	6116 +extern (C) void onHiddenFuncError(Object o);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6117 +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	6118 +extern (C) bool runModuleUnitTests();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6119 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6120 +// 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	6121 +//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	6122 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6123 +/***********************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6124 + * 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	6125 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6126 +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	6127 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6128 + onAssertError(file, line);
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6131 +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	6132 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6133 + onAssertErrorMsg(file, line, msg);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6134 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6135 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6136 +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	6137 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6138 + onRangeError(file, line);
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6141 +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	6142 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6143 + onSwitchError(file, line);
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 +extern (C) void _d_hidden_func()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6147 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6148 + Object o;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6149 + asm
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 + mov o, EAX;
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 + onHiddenFuncError(o);
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6156 +bool _d_isHalting = false;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6157 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6158 +extern (C) bool rt_isHalting()
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 + return _d_isHalting;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6161 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6162 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6163 +extern (C) bool rt_trapExceptions = true;
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 +void _d_criticalInit()
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 + version (linux)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6168 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6169 + _STI_monitor_staticctor();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6170 + _STI_critical_init();
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 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6173 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6174 +alias void delegate(Throwable) ExceptionHandler;
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 +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	6177 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6178 + _d_criticalInit();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6179 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6180 + try
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6181 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6182 + gc_init();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6183 + initStaticDataGC();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6184 + version (Windows)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6185 + _minit();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6186 + _moduleCtor();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6187 + return true;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6188 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6189 + catch (Throwable e)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6190 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6191 + if (dg)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6192 + dg(e);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6193 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6194 + catch
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6195 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6196 +
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 + _d_criticalTerm();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6199 + return false;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6200 +}
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 +void _d_criticalTerm()
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 + version (linux)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6205 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6206 + _STD_critical_term();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6207 + _STD_monitor_staticdtor();
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 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6210 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6211 +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	6212 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6213 + try
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 + thread_joinAll();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6216 + _d_isHalting = true;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6217 + _moduleDtor();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6218 + gc_term();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6219 + return true;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6220 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6221 + catch (Throwable e)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6222 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6223 + if (dg)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6224 + dg(e);
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
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 +
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 + finally
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 + _d_criticalTerm();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6233 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6234 + return false;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6235 +}
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 +/***********************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6238 + * 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	6239 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6240 +int main(char[][] args);
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 +/***********************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6243 + * Substitutes for the C main() function.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6244 + * 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	6245 + * function and catch any unhandled exceptions.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6246 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6247 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6248 +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	6249 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6250 + char[][] args;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6251 + int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6252 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6253 + version (linux)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6254 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6255 + _STI_monitor_staticctor();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6256 + _STI_critical_init();
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 + version (Windows)
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 + wchar_t* wcbuf = GetCommandLineW();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6262 + size_t wclen = wcslen(wcbuf);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6263 + int wargc = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6264 + wchar_t** wargs = CommandLineToArgvW(wcbuf, &wargc);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6265 + assert(wargc == argc);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6266 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6267 + char* cargp = null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6268 + 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	6269 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6270 + cargp = cast(char*) alloca(cargl);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6271 + 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	6272 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6273 + 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	6274 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6275 + int wlen = wcslen(wargs[i]);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6276 + 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	6277 + args[i] = cargp[p .. p+clen];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6278 + p += clen; assert(p <= cargl);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6279 + 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	6280 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6281 + LocalFree(wargs);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6282 + wargs = null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6283 + wargc = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6284 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6285 + else version (linux)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6286 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6287 + 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	6288 + scope(exit) free(am);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6289 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6290 + 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	6291 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6292 + auto len = strlen(argv[i]);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6293 + am[i] = argv[i][0 .. len];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6294 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6295 + args = am[0 .. argc];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6296 + }
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 + bool trapExceptions = rt_trapExceptions;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6299 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6300 + void tryExec(scope void delegate() dg)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6301 + {
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 + if (trapExceptions)
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 + try
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6306 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6307 + dg();
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 + catch (Throwable e)
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 + while (e)
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 + if (e.file)
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 + // 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	6316 + 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	6317 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6318 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6319 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6320 + // fprintf(stderr, "%.*s\n", e.toString());
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6321 + console (e.toString)("\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6322 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6323 + if (e.info)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6324 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6325 + console ("----------------\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6326 + foreach (t; e.info)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6327 + console (t)("\n");
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 + if (e.next)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6330 + console ("\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6331 + e = e.next;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6332 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6333 + result = EXIT_FAILURE;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6334 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6335 + catch (Object o)
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 + // fprintf(stderr, "%.*s\n", o.toString());
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6338 + console (o.toString)("\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6339 + result = EXIT_FAILURE;
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 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6342 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6343 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6344 + dg();
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 + }
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 + // 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	6349 + // 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	6350 + // 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	6351 + // 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	6352 + // 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	6353 + // 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	6354 + // 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	6355 + // 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	6356 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6357 + void runMain()
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 + result = main(args);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6360 + }
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 + void runAll()
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 + gc_init();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6365 + initStaticDataGC();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6366 + version (Windows)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6367 + _minit();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6368 + _moduleCtor();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6369 + if (runModuleUnitTests())
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6370 + tryExec(&runMain);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6371 + thread_joinAll();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6372 + _d_isHalting = true;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6373 + _moduleDtor();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6374 + gc_term();
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6377 + tryExec(&runAll);
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 + version (linux)
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 + _STD_critical_term();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6382 + _STD_monitor_staticdtor();
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 + return result;
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 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	6387 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6388 --- 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	6389 +++ 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	6390 @@ -0,0 +1,43 @@
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 +// void
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6393 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6394 +module rt.typeinfo.ti_void;
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 +class TypeInfo_v : TypeInfo
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 + override string toString() { return "void"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6399 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6400 + 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	6401 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6402 + assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6403 + }
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 + 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	6406 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6407 + 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	6408 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6409 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6410 + 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	6411 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6412 + 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	6413 + }
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 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6416 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6417 + return void.sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6418 + }
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 + 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	6421 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6422 + byte t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6423 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6424 + t = cast(byte )p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6425 + cast(byte )p1 = cast(byte )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6426 + cast(byte )p2 = t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6427 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6428 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6429 + override uint flags()
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 + return 1;
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 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6434 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	6435 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6436 --- 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	6437 +++ 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	6438 @@ -0,0 +1,43 @@
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 +module rt.typeinfo.ti_wchar;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6441 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6442 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6443 +class TypeInfo_u : TypeInfo
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 string toString() { return "wchar"; }
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 + 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	6448 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6449 + return cast(wchar )p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6450 + }
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 + 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	6453 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6454 + 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	6455 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6456 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6457 + 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	6458 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6459 + 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	6460 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6461 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6462 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6463 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6464 + return wchar.sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6465 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6466 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6467 + 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	6468 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6469 + wchar t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6470 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6471 + t = cast(wchar )p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6472 + cast(wchar )p1 = cast(wchar )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6473 + cast(wchar )p2 = t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6474 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6475 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6476 + override void[] init()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6477 + { static wchar c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6478 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6479 + return (cast(wchar *)&c)[0 .. 1];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6480 + }
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 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	6483 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6484 --- 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	6485 +++ 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	6486 @@ -0,0 +1,46 @@
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 +// pointer
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6489 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6490 +module rt.typeinfo.ti_ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6491 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6492 +class TypeInfo_P : TypeInfo
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 + 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	6495 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6496 + return cast(uint)cast(void *)p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6497 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6498 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6499 + 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	6500 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6501 + 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	6502 + }
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 + 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	6505 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6506 + 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	6507 + if (c < 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6508 + return -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6509 + else if (c > 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6510 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6511 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6512 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6513 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6514 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6515 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6516 + return (void*).sizeof;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6519 + 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	6520 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6521 + void* t;
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 + t = cast(void *)p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6524 + cast(void )p1 = cast(void* *)p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6525 + cast(void *)p2 = t;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6528 + override uint flags()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6529 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6530 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6531 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6532 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6533 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	6534 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6535 --- 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	6536 +++ 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	6537 @@ -0,0 +1,114 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6538 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6539 + * 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	6540 + * Written by Walter Bright
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 + * 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	6543 + * 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	6544 + * 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	6545 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6546 + * 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	6547 + * 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	6548 + * 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	6549 + * restrictions:
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 + * 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	6552 + * 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	6553 + * 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	6554 + * appreciated but is not required.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6555 + * 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	6556 + * 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	6557 + * 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	6558 + * distribution.
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6561 +module rt.typeinfo.ti_Afloat;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6562 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6563 +private import typeinfo.ti_float;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6564 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6565 +// float[]
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6566 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6567 +class TypeInfo_Af : TypeInfo
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 + override string toString() { return "float[]"; }
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 + 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	6572 + { float[] s = cast(float[])p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6573 + size_t len = s.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6574 + auto str = s.ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6575 + hash_t hash = 0;
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 + while (len)
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 + hash *= 9;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6580 + hash += cast(uint )str;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6581 + str++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6582 + len--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6583 + }
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 hash;
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 + 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	6589 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6590 + float[] s1 = cast(float[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6591 + float[] s2 = cast(float[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6592 + size_t len = s1.length;
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 + if (len != s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6595 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6596 + 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	6597 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6598 + 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	6599 + return false;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6600 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6601 + return true;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6604 + 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	6605 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6606 + float[] s1 = cast(float[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6607 + float[] s2 = cast(float[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6608 + size_t len = s1.length;
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 + if (s2.length < len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6611 + len = s2.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6612 + 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	6613 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6614 + 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	6615 + if (c)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6616 + return c;
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 + if (s1.length < s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6619 + return -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6620 + else if (s1.length > s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6621 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6622 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6623 + }
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 + override size_t tsize()
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 + return (float[]).sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6628 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6629 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6630 + override uint flags()
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 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6633 + }
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 + override TypeInfo next()
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 + return typeid(float);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6638 + }
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6641 +// ifloat[]
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6642 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6643 +class TypeInfo_Ao : TypeInfo_Af
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6644 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6645 + override string toString() { return "ifloat[]"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6646 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6647 + override TypeInfo next()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6648 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6649 + return typeid(ifloat);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6650 + }
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 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	6653 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6654 --- 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	6655 +++ 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	6656 @@ -0,0 +1,64 @@
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 +// double
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 +module rt.typeinfo.ti_double;
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 +class TypeInfo_d : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6663 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6664 + override string toString() { return "double"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6665 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6666 + 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	6667 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6668 + 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	6669 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6670 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6671 + 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	6672 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6673 + return f1 == f2 \|\|
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6674 + (f1 !<>= f1 && f2 !<>= f2);
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 + 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	6678 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6679 + 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	6680 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6681 + if (d1 !<>= d1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6682 + { if (d2 !<>= d2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6683 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6684 + return -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6685 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6686 + return 1;
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 + 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	6689 + }
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 + 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	6692 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6693 + 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	6694 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6695 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6696 + 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	6697 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6698 + 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	6699 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6700 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6701 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6702 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6703 + return double.sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6704 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6705 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6706 + 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	6707 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6708 + double t;
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 + t = cast(double )p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6711 + cast(double )p1 = cast(double )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6712 + cast(double )p2 = t;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6715 + override void[] init()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6716 + { static double r;
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 + return (cast(double *)&r)[0 .. 1];
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 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6721 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	6722 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6723 --- 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	6724 +++ 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	6725 @@ -0,0 +1,39 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6726 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6727 +// delegate
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6728 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6729 +module rt.typeinfo.ti_delegate;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6730 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6731 +alias void delegate(int) dg;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6732 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6733 +class TypeInfo_D : TypeInfo
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 + 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	6736 + { long l = cast(long )p;
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 + return cast(uint)(l + (l >> 32));
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6741 + 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	6742 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6743 + 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	6744 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6745 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6746 + override size_t tsize()
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 + return dg.sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6749 + }
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 + 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	6752 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6753 + dg t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6754 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6755 + t = cast(dg )p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6756 + cast(dg )p1 = cast(dg )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6757 + cast(dg )p2 = t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6758 + }
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 + override uint flags()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6761 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6762 + return 1;
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 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6765 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	6766 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6767 --- 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	6768 +++ 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	6769 @@ -0,0 +1,115 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6770 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6771 + * 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	6772 + * Written by Walter Bright
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 + * 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	6775 + * 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	6776 + * 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	6777 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6778 + * 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	6779 + * 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	6780 + * 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	6781 + * restrictions:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6782 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6783 + * 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	6784 + * 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	6785 + * 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	6786 + * appreciated but is not required.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6787 + * 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	6788 + * 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	6789 + * 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	6790 + * distribution.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6791 + */
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 +module rt.typeinfo.ti_Adouble;
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 +private import typeinfo.ti_double;
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 +// double[]
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 +class TypeInfo_Ad : TypeInfo
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 + override string toString() { return "double[]"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6802 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6803 + 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	6804 + { double[] s = cast(double[])p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6805 + size_t len = s.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6806 + auto str = s.ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6807 + hash_t hash = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6808 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6809 + while (len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6810 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6811 + hash *= 9;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6812 + hash += (cast(uint *)str)[0];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6813 + hash += (cast(uint *)str)[1];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6814 + str++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6815 + len--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6816 + }
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 + return hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6819 + }
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 + 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	6822 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6823 + double[] s1 = cast(double[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6824 + double[] s2 = cast(double[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6825 + size_t len = s1.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6826 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6827 + if (len != s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6828 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6829 + 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	6830 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6831 + 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	6832 + return false;
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 + return true;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6837 + 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	6838 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6839 + double[] s1 = cast(double[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6840 + double[] s2 = cast(double[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6841 + size_t len = s1.length;
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 + if (s2.length < len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6844 + len = s2.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6845 + 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	6846 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6847 + 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	6848 + if (c)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6849 + return c;
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 + if (s1.length < s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6852 + return -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6853 + else if (s1.length > s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6854 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6855 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6856 + }
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 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6859 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6860 + return (double[]).sizeof;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6863 + override uint flags()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6864 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6865 + return 1;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6868 + override TypeInfo next()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6869 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6870 + return typeid(double);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6871 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6872 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6873 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6874 +// idouble[]
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 +class TypeInfo_Ap : TypeInfo_Ad
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6877 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6878 + override string toString() { return "idouble[]"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6879 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6880 + override TypeInfo next()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6881 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6882 + return typeid(idouble);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6883 + }
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 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	6886 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6887 --- 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	6888 +++ 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	6889 @@ -0,0 +1,42 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6890 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6891 +module rt.typeinfo.ti_char;
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 +class TypeInfo_a : TypeInfo
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 + override string toString() { return "char"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6896 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6897 + 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	6898 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6899 + return cast(char )p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6900 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6901 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6902 + 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	6903 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6904 + 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	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 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	6908 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6909 + 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	6910 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6911 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6912 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6913 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6914 + return char.sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6915 + }
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 + 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	6918 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6919 + char t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6920 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6921 + t = cast(char )p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6922 + cast(char )p1 = cast(char )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6923 + cast(char )p2 = t;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6926 + override void[] init()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6927 + { static char c;
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 + return (cast(char *)&c)[0 .. 1];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6930 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6931 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6932 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	6933 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6934 --- 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	6935 +++ 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	6936 @@ -0,0 +1,105 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6937 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6938 + * 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	6939 + * Written by Walter Bright
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6940 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6941 + * 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	6942 + * 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	6943 + * 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	6944 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6945 + * 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	6946 + * 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	6947 + * 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	6948 + * restrictions:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6949 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6950 + * 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	6951 + * 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	6952 + * 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	6953 + * appreciated but is not required.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6954 + * 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	6955 + * 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	6956 + * 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	6957 + * distribution.
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6960 +module rt.typeinfo.ti_Acdouble;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6961 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6962 +private import typeinfo.ti_cdouble;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6963 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6964 +// cdouble[]
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6965 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6966 +class TypeInfo_Ar : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6967 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6968 + override string toString() { return "cdouble[]"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6969 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6970 + 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	6971 + { cdouble[] s = cast(cdouble[])p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6972 + size_t len = s.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6973 + cdouble *str = s.ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6974 + hash_t hash = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6975 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6976 + while (len)
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 + hash *= 9;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6979 + hash += (cast(uint *)str)[0];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6980 + hash += (cast(uint *)str)[1];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6981 + hash += (cast(uint *)str)[2];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6982 + hash += (cast(uint *)str)[3];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6983 + str++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6984 + len--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6985 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6986 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6987 + return hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6988 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6989 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6990 + 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	6991 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6992 + cdouble[] s1 = cast(cdouble[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6993 + cdouble[] s2 = cast(cdouble[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6994 + size_t len = s1.length;
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 + if (len != s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6997 + return false;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	6998 + 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	6999 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7000 + 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	7001 + return false;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7002 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7003 + return true;
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 + 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	7007 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7008 + cdouble[] s1 = cast(cdouble[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7009 + cdouble[] s2 = cast(cdouble[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7010 + size_t len = s1.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7011 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7012 + if (s2.length < len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7013 + len = s2.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7014 + 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	7015 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7016 + 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	7017 + if (c)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7018 + return c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7019 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7020 + if (s1.length < s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7021 + return -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7022 + else if (s1.length > s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7023 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7024 + return 0;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7027 + override size_t tsize()
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 + return (cdouble[]).sizeof;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7032 + override uint flags()
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 + return 1;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7037 + override TypeInfo next()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7038 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7039 + return typeid(cdouble);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7040 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7041 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7042 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	7043 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7044 --- 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	7045 +++ 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	7046 @@ -0,0 +1,42 @@
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 +// uint
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 +module rt.typeinfo.ti_uint;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7051 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7052 +class TypeInfo_k : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7053 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7054 + override string toString() { return "uint"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7055 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7056 + 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	7057 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7058 + return cast(uint )p;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7061 + 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	7062 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7063 + 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	7064 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7065 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7066 + 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	7067 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7068 + 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	7069 + return -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7070 + 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	7071 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7072 + return 0;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7075 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7076 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7077 + return uint.sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7078 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7079 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7080 + 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	7081 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7082 + int t;
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 + t = cast(uint )p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7085 + cast(uint )p1 = cast(uint )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7086 + cast(uint )p2 = t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7087 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7088 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7089 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	7090 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7091 --- 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	7092 +++ 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	7093 @@ -0,0 +1,95 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7094 +module rt.typeinfo.ti_AC;
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 +// Object[]
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 +class TypeInfo_AC : TypeInfo
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 + 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	7101 + { Object[] s = cast(Object[])p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7102 + hash_t hash = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7103 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7104 + foreach (Object o; s)
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 + if (o)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7107 + hash += o.toHash();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7108 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7109 + return hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7110 + }
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 + 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	7113 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7114 + Object[] s1 = cast(Object[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7115 + Object[] s2 = cast(Object[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7116 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7117 + if (s1.length == s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7118 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7119 + 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	7120 + { Object o1 = s1[u];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7121 + Object o2 = s2[u];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7122 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7123 + // 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	7124 + if (o1 is o2 \|\|
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7125 + (!(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	7126 + continue;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7127 + return false;
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 + return true;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7130 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7131 + return false;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7132 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7133 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7134 + 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	7135 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7136 + Object[] s1 = cast(Object[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7137 + Object[] s2 = cast(Object[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7138 + ptrdiff_t c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7139 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7140 + 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	7141 + if (c == 0)
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 + 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	7144 + { Object o1 = s1[u];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7145 + Object o2 = s2[u];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7146 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7147 + if (o1 is o2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7148 + continue;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7149 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7150 + // 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	7151 + if (o1)
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 + if (!o2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7154 + { c = 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7155 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7156 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7157 + c = o1.opCmp(o2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7158 + if (c)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7159 + break;
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 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7162 + { c = -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7163 + break;
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 + }
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 + if (c < 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7168 + c = -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7169 + else if (c > 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7170 + c = 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7171 + return c;
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 + override size_t tsize()
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 (Object[]).sizeof;
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 + override uint flags()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7180 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7181 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7182 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7183 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7184 + override TypeInfo next()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7185 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7186 + return typeid(Object);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7187 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7188 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7189 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	7190 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7191 --- 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	7192 +++ 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	7193 @@ -0,0 +1,42 @@
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 +// ulong
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 +module rt.typeinfo.ti_ulong;
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 +class TypeInfo_m : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7200 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7201 + override string toString() { return "ulong"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7202 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7203 + 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	7204 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7205 + 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	7206 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7207 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7208 + 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	7209 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7210 + 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	7211 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7212 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7213 + 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	7214 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7215 + 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	7216 + return -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7217 + 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	7218 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7219 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7220 + }
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 + override size_t tsize()
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 + return ulong.sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7225 + }
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 + 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	7228 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7229 + ulong t;
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 + t = cast(ulong )p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7232 + cast(ulong )p1 = cast(ulong )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7233 + cast(ulong )p2 = t;
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 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7236 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	7237 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7238 --- 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	7239 +++ 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	7240 @@ -0,0 +1,67 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7241 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7242 +// creal
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 +module rt.typeinfo.ti_creal;
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 +class TypeInfo_c : TypeInfo
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 + override string toString() { return "creal"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7249 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7250 + 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	7251 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7252 + 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	7253 + (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	7254 + (cast(uint *)p)[4];
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7257 + 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	7258 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7259 + return f1 == f2;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7262 + 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	7263 + { int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7264 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7265 + if (f1.re < f2.re)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7266 + result = -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7267 + else if (f1.re > f2.re)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7268 + result = 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7269 + else if (f1.im < f2.im)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7270 + result = -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7271 + else if (f1.im > f2.im)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7272 + result = 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7273 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7274 + result = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7275 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7276 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7277 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7278 + 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	7279 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7280 + 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	7281 + }
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 + 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	7284 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7285 + 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	7286 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7287 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7288 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7289 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7290 + return creal.sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7291 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7292 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7293 + 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	7294 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7295 + creal t;
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 + t = cast(creal )p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7298 + cast(creal )p1 = cast(creal )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7299 + cast(creal )p2 = t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7300 + }
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 + override void[] init()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7303 + { static creal r;
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 + return (cast(creal *)&r)[0 .. 1];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7306 + }
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 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	7309 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7310 --- 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	7311 +++ 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	7312 @@ -0,0 +1,43 @@
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 +// ubyte
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7315 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7316 +module rt.typeinfo.ti_ubyte;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7317 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7318 +class TypeInfo_h : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7319 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7320 + override string toString() { return "ubyte"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7321 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7322 + 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	7323 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7324 + return cast(ubyte )p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7325 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7326 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7327 + 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	7328 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7329 + 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	7330 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7331 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7332 + 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	7333 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7334 + 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	7335 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7336 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7337 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7338 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7339 + return ubyte.sizeof;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7342 + 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	7343 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7344 + ubyte t;
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 + t = cast(ubyte )p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7347 + cast(ubyte )p1 = cast(ubyte )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7348 + cast(ubyte )p2 = t;
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 +class TypeInfo_b : TypeInfo_h
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 + override string toString() { return "bool"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7355 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7356 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	7357 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7358 --- 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	7359 +++ 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	7360 @@ -0,0 +1,129 @@
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 +module rt.typeinfo.ti_Aint;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7363 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7364 +private import core.stdc.string;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7365 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7366 +// int[]
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7367 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7368 +class TypeInfo_Ai : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7369 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7370 + override string toString() { return "int[]"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7371 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7372 + 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	7373 + { int[] s = cast(int[])p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7374 + auto len = s.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7375 + auto str = s.ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7376 + hash_t hash = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7377 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7378 + while (len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7379 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7380 + hash *= 9;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7381 + hash += cast(uint )str;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7382 + str++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7383 + len--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7384 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7385 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7386 + return hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7387 + }
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 + 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	7390 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7391 + int[] s1 = cast(int[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7392 + int[] s2 = cast(int[])p2;
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 + return s1.length == s2.length &&
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7395 + 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	7396 + }
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 + 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	7399 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7400 + int[] s1 = cast(int[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7401 + int[] s2 = cast(int[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7402 + size_t len = s1.length;
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 + if (s2.length < len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7405 + len = s2.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7406 + 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	7407 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7408 + int result = s1[u] - s2[u];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7409 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7410 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7411 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7412 + if (s1.length < s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7413 + return -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7414 + else if (s1.length > s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7415 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7416 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7417 + }
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 + override size_t tsize()
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 + return (int[]).sizeof;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7424 + override uint flags()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7425 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7426 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7427 + }
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 + override TypeInfo next()
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 + return typeid(int);
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 +}
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 +unittest
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 + 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	7438 + a.sort;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7439 + 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	7440 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7441 + 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	7442 + a.sort;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7443 + 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	7444 +}
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 +// uint[]
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7447 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7448 +class TypeInfo_Ak : TypeInfo_Ai
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7449 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7450 + override string toString() { return "uint[]"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7451 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7452 + 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	7453 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7454 + uint[] s1 = cast(uint[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7455 + uint[] s2 = cast(uint[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7456 + size_t len = s1.length;
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 + if (s2.length < len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7459 + len = s2.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7460 + 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	7461 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7462 + int result = s1[u] - s2[u];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7463 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7464 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7465 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7466 + if (s1.length < s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7467 + return -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7468 + else if (s1.length > s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7469 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7470 + return 0;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7473 + override TypeInfo next()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7474 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7475 + return typeid(uint);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7476 + }
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7479 +// dchar[]
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7480 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7481 +class TypeInfo_Aw : TypeInfo_Ak
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7482 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7483 + override string toString() { return "dchar[]"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7484 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7485 + override TypeInfo next()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7486 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7487 + return typeid(dchar);
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 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7490 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	7491 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7492 --- 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	7493 +++ 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	7494 @@ -0,0 +1,11 @@
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 +// ireal
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 +module rt.typeinfo.ti_ireal;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7499 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7500 +private import typeinfo.ti_real;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7501 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7502 +class TypeInfo_j : TypeInfo_e
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 string toString() { return "ireal"; }
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 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	7507 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7508 --- 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	7509 +++ 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	7510 @@ -0,0 +1,42 @@
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 +// long
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7513 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7514 +module rt.typeinfo.ti_long;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7515 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7516 +class TypeInfo_l : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7517 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7518 + override string toString() { return "long"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7519 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7520 + 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	7521 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7522 + 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	7523 + }
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 + 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	7526 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7527 + 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	7528 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7529 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7530 + 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	7531 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7532 + 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	7533 + return -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7534 + 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	7535 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7536 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7537 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7538 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7539 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7540 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7541 + return long.sizeof;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7544 + 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	7545 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7546 + long t;
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 + t = cast(long )p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7549 + cast(long )p1 = cast(long )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7550 + cast(long )p2 = t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7551 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7552 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7553 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	7554 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7555 --- 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	7556 +++ 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	7557 @@ -0,0 +1,38 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7558 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7559 +// short
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 +module rt.typeinfo.ti_short;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7562 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7563 +class TypeInfo_s : TypeInfo
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 + override string toString() { return "short"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7566 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7567 + 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	7568 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7569 + return cast(short )p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7570 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7571 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7572 + 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	7573 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7574 + 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	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 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	7578 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7579 + 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	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 size_t tsize()
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 short.sizeof;
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 void swap(void p1, void p2)
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 + short t;
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 + t = cast(short )p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7592 + cast(short )p1 = cast(short )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7593 + cast(short )p2 = t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7594 + }
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 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	7597 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7598 --- 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	7599 +++ 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	7600 @@ -0,0 +1,109 @@
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 +module rt.typeinfo.ti_Along;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7603 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7604 +private import core.stdc.string;
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 +// long[]
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7607 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7608 +class TypeInfo_Al : TypeInfo
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 + override string toString() { return "long[]"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7611 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7612 + 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	7613 + { long[] s = cast(long[])p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7614 + size_t len = s.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7615 + auto str = s.ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7616 + hash_t hash = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7617 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7618 + while (len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7619 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7620 + hash *= 9;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7621 + 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	7622 + str++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7623 + len--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7624 + }
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 + return hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7627 + }
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 + 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	7630 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7631 + long[] s1 = cast(long[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7632 + long[] s2 = cast(long[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7633 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7634 + return s1.length == s2.length &&
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7635 + 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	7636 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7637 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7638 + 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	7639 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7640 + long[] s1 = cast(long[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7641 + long[] s2 = cast(long[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7642 + size_t len = s1.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7643 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7644 + if (s2.length < len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7645 + len = s2.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7646 + 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	7647 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7648 + if (s1[u] < s2[u])
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7649 + return -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7650 + else if (s1[u] > s2[u])
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7651 + return 1;
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 + if (s1.length < s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7654 + return -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7655 + else if (s1.length > s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7656 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7657 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7658 + }
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 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7661 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7662 + return (long[]).sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7663 + }
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 + override uint flags()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7666 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7667 + return 1;
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 + override TypeInfo next()
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 + return typeid(long);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7673 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7674 +}
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7677 +// ulong[]
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7678 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7679 +class TypeInfo_Am : TypeInfo_Al
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7680 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7681 + override string toString() { return "ulong[]"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7682 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7683 + 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	7684 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7685 + ulong[] s1 = cast(ulong[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7686 + ulong[] s2 = cast(ulong[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7687 + size_t len = s1.length;
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 + if (s2.length < len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7690 + len = s2.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7691 + 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	7692 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7693 + if (s1[u] < s2[u])
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7694 + return -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7695 + else if (s1[u] > s2[u])
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7696 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7697 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7698 + if (s1.length < s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7699 + return -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7700 + else if (s1.length > s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7701 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7702 + return 0;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7705 + override TypeInfo next()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7706 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7707 + return typeid(ulong);
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 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7710 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	7711 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7712 --- 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	7713 +++ 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	7714 @@ -0,0 +1,38 @@
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 +// byte
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 +module rt.typeinfo.ti_byte;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7719 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7720 +class TypeInfo_g : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7721 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7722 + override string toString() { return "byte"; }
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 hash_t getHash(in void* p)
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 + return cast(byte )p;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7729 + 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	7730 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7731 + 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	7732 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7733 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7734 + 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	7735 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7736 + 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	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 + override size_t tsize()
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 + return byte.sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7742 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7743 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7744 + 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	7745 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7746 + byte t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7747 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7748 + t = cast(byte )p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7749 + cast(byte )p1 = cast(byte )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7750 + cast(byte )p2 = t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7751 + }
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 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	7754 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7755 --- 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	7756 +++ 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	7757 @@ -0,0 +1,64 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7758 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7759 +// float
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7760 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7761 +module rt.typeinfo.ti_float;
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 +class TypeInfo_f : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7764 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7765 + override string toString() { return "float"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7766 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7767 + 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	7768 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7769 + return cast(uint )p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7770 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7771 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7772 + 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	7773 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7774 + return f1 == f2 \|\|
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7775 + (f1 !<>= f1 && f2 !<>= f2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7776 + }
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 + 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	7779 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7780 + 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	7781 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7782 + if (d1 !<>= d1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7783 + { if (d2 !<>= d2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7784 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7785 + return -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7786 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7787 + return 1;
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 + 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	7790 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7791 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7792 + 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	7793 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7794 + 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	7795 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7796 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7797 + 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	7798 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7799 + 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	7800 + }
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 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7803 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7804 + return float.sizeof;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7807 + 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	7808 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7809 + float t;
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 + t = cast(float )p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7812 + cast(float )p1 = cast(float )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7813 + cast(float )p2 = t;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7816 + override void[] init()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7817 + { static float r;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7818 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7819 + return (cast(float *)&r)[0 .. 1];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7820 + }
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 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	7823 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7824 --- 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	7825 +++ 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	7826 @@ -0,0 +1,65 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7827 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7828 +// cfloat
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7829 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7830 +module rt.typeinfo.ti_cfloat;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7831 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7832 +class TypeInfo_q : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7833 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7834 + override string toString() { return "cfloat"; }
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 + 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	7837 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7838 + 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	7839 + }
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 + 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	7842 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7843 + return f1 == f2;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7846 + 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	7847 + { int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7848 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7849 + if (f1.re < f2.re)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7850 + result = -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7851 + else if (f1.re > f2.re)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7852 + result = 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7853 + else if (f1.im < f2.im)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7854 + result = -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7855 + else if (f1.im > f2.im)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7856 + result = 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7857 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7858 + result = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7859 + return result;
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 + 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	7863 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7864 + 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	7865 + }
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 + 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	7868 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7869 + 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	7870 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7871 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7872 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7873 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7874 + return cfloat.sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7875 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7876 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7877 + 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	7878 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7879 + cfloat t;
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 + t = cast(cfloat )p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7882 + cast(cfloat )p1 = cast(cfloat )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7883 + cast(cfloat )p2 = t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7884 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7885 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7886 + override void[] init()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7887 + { static cfloat r;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7888 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7889 + return (cast(cfloat *)&r)[0 .. 1];
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 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7892 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	7893 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7894 --- 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	7895 +++ 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	7896 @@ -0,0 +1,103 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7897 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7898 + * 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	7899 + * Written by Walter Bright
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 + * 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	7902 + * 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	7903 + * 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	7904 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7905 + * 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	7906 + * 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	7907 + * 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	7908 + * restrictions:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7909 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7910 + * 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	7911 + * 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	7912 + * 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	7913 + * appreciated but is not required.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7914 + * 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	7915 + * 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	7916 + * 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	7917 + * distribution.
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7920 +module rt.typeinfo.ti_Acfloat;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7921 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7922 +private import typeinfo.ti_cfloat;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7923 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7924 +// cfloat[]
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7925 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7926 +class TypeInfo_Aq : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7927 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7928 + override string toString() { return "cfloat[]"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7929 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7930 + 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	7931 + { cfloat[] s = cast(cfloat[])p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7932 + size_t len = s.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7933 + cfloat *str = s.ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7934 + hash_t hash = 0;
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 + while (len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7937 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7938 + hash *= 9;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7939 + hash += (cast(uint *)str)[0];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7940 + hash += (cast(uint *)str)[1];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7941 + str++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7942 + len--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7943 + }
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 + return hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7946 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7947 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7948 + 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	7949 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7950 + cfloat[] s1 = cast(cfloat[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7951 + cfloat[] s2 = cast(cfloat[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7952 + size_t len = s1.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7953 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7954 + if (len != s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7955 + return false;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7956 + 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	7957 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7958 + 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	7959 + return false;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7960 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7961 + return true;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7964 + 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	7965 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7966 + cfloat[] s1 = cast(cfloat[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7967 + cfloat[] s2 = cast(cfloat[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7968 + size_t len = s1.length;
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 + if (s2.length < len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7971 + len = s2.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7972 + 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	7973 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7974 + 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	7975 + if (c)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7976 + return c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7977 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7978 + if (s1.length < s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7979 + return -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7980 + else if (s1.length > s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7981 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7982 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7983 + }
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 + override size_t tsize()
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 + return (cfloat[]).sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7988 + }
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 + override uint flags()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7991 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7992 + return 1;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7995 + override TypeInfo next()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7996 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7997 + return typeid(cfloat);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	7998 + }
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 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	8001 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8002 --- 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	8003 +++ 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	8004 @@ -0,0 +1,66 @@
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 +// cdouble
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8007 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8008 +module rt.typeinfo.ti_cdouble;
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 +class TypeInfo_r : TypeInfo
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 + override string toString() { return "cdouble"; }
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 + 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	8015 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8016 + 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	8017 + (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	8018 + }
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 + 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	8021 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8022 + return f1 == f2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8023 + }
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 + 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	8026 + { int result;
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 + if (f1.re < f2.re)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8029 + result = -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8030 + else if (f1.re > f2.re)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8031 + result = 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8032 + else if (f1.im < f2.im)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8033 + result = -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8034 + else if (f1.im > f2.im)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8035 + result = 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8036 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8037 + result = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8038 + return result;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8041 + 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	8042 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8043 + 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	8044 + }
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 + 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	8047 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8048 + 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	8049 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8050 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8051 + override size_t tsize()
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 + return cdouble.sizeof;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8056 + 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	8057 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8058 + cdouble t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8059 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8060 + t = cast(cdouble )p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8061 + cast(cdouble )p1 = cast(cdouble )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8062 + cast(cdouble )p2 = t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8063 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8064 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8065 + override void[] init()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8066 + { static cdouble r;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8067 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8068 + return (cast(cdouble *)&r)[0 .. 1];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8069 + }
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 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	8072 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8073 --- 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	8074 +++ 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	8075 @@ -0,0 +1,11 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8076 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8077 +// ifloat
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8078 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8079 +module rt.typeinfo.ti_ifloat;
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 +private import typeinfo.ti_float;
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 +class TypeInfo_o : TypeInfo_f
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 + override string toString() { return "ifloat"; }
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 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	8088 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8089 --- 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	8090 +++ 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	8091 @@ -0,0 +1,44 @@
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 +// dchar
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 +module rt.typeinfo.ti_dchar;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8096 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8097 +class TypeInfo_w : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8098 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8099 + override string toString() { return "dchar"; }
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 hash_t getHash(in void* p)
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 + return cast(dchar )p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8104 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8105 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8106 + 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	8107 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8108 + 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	8109 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8110 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8111 + 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	8112 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8113 + 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	8114 + }
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 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8117 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8118 + return dchar.sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8119 + }
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 + 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	8122 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8123 + dchar t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8124 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8125 + t = cast(dchar )p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8126 + cast(dchar )p1 = cast(dchar )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8127 + cast(dchar )p2 = t;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8130 + override void[] init()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8131 + { static dchar c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8132 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8133 + return (cast(dchar *)&c)[0 .. 1];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8134 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8135 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8136 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	8137 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8138 --- 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	8139 +++ 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	8140 @@ -0,0 +1,74 @@
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 + * 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	8143 + * Written by Walter Bright
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8144 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8145 + * 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	8146 + * 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	8147 + * 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	8148 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8149 + * 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	8150 + * 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	8151 + * 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	8152 + * restrictions:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8153 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8154 + * 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	8155 + * 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	8156 + * 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	8157 + * appreciated but is not required.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8158 + * 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	8159 + * 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	8160 + * 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	8161 + * distribution.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8162 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8163 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8164 +module rt.typeinfo.ti_C;
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 +// Object
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 +class TypeInfo_C : TypeInfo
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 + 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	8171 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8172 + Object o = cast(Object)p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8173 + return o ? o.toHash() : 0;
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 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	8177 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8178 + Object o1 = cast(Object)p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8179 + Object o2 = cast(Object)p2;
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 + return o1 == o2;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8184 + 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	8185 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8186 + Object o1 = cast(Object)p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8187 + Object o2 = cast(Object)p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8188 + int c = 0;
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 + // 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	8191 + if (!(o1 is o2))
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8192 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8193 + if (o1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8194 + { if (!o2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8195 + c = 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8196 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8197 + c = o1.opCmp(o2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8198 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8199 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8200 + c = -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8201 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8202 + return c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8203 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8204 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8205 + override size_t tsize()
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 + return Object.sizeof;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8210 + override uint flags()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8211 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8212 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8213 + }
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 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	8216 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8217 --- 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	8218 +++ 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	8219 @@ -0,0 +1,64 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8220 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8221 +// real
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 +module rt.typeinfo.ti_real;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8224 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8225 +class TypeInfo_e : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8226 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8227 + override string toString() { return "real"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8228 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8229 + 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	8230 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8231 + 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	8232 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8233 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8234 + 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	8235 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8236 + return f1 == f2 \|\|
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8237 + (f1 !<>= f1 && f2 !<>= f2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8238 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8239 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8240 + 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	8241 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8242 + 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	8243 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8244 + if (d1 !<>= d1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8245 + { if (d2 !<>= d2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8246 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8247 + return -1;
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 + return 1;
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 + 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	8252 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8253 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8254 + 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	8255 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8256 + 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	8257 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8258 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8259 + 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	8260 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8261 + 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	8262 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8263 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8264 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8265 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8266 + return real.sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8267 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8268 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8269 + 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	8270 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8271 + real t;
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 + t = cast(real )p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8274 + cast(real )p1 = cast(real )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8275 + cast(real )p2 = t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8276 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8277 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8278 + override void[] init()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8279 + { static real r;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8280 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8281 + return (cast(real *)&r)[0 .. 1];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8282 + }
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 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	8285 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8286 --- 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	8287 +++ 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	8288 @@ -0,0 +1,11 @@
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 +// idouble
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 +module rt.typeinfo.ti_idouble;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8293 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8294 +private import typeinfo.ti_double;
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 +class TypeInfo_p : TypeInfo_d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8297 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8298 + override string toString() { return "idouble"; }
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 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	8301 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8302 --- 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	8303 +++ 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	8304 @@ -0,0 +1,116 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8305 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8306 + * 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	8307 + * Written by Walter Bright
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8308 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8309 + * 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	8310 + * 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	8311 + * 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	8312 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8313 + * 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	8314 + * 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	8315 + * 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	8316 + * restrictions:
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 + * 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	8319 + * 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	8320 + * 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	8321 + * appreciated but is not required.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8322 + * 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	8323 + * 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	8324 + * 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	8325 + * distribution.
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8328 +module rt.typeinfo.ti_Areal;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8329 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8330 +private import typeinfo.ti_real;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8331 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8332 +// real[]
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8333 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8334 +class TypeInfo_Ae : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8335 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8336 + override string toString() { return "real[]"; }
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 + 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	8339 + { real[] s = cast(real[])p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8340 + size_t len = s.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8341 + auto str = s.ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8342 + hash_t hash = 0;
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 + while (len)
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 + hash *= 9;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8347 + hash += (cast(uint *)str)[0];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8348 + hash += (cast(uint *)str)[1];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8349 + hash += (cast(ushort *)str)[4];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8350 + str++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8351 + len--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8352 + }
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 hash;
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 + real[] s1 = cast(real[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8360 + real[] s2 = cast(real[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8361 + size_t len = s1.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8362 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8363 + if (len != s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8364 + return false;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8365 + 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	8366 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8367 + 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	8368 + return false;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8369 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8370 + return true;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8373 + 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	8374 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8375 + real[] s1 = cast(real[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8376 + real[] s2 = cast(real[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8377 + size_t len = s1.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8378 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8379 + if (s2.length < len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8380 + len = s2.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8381 + 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	8382 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8383 + 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	8384 + if (c)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8385 + return c;
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 + if (s1.length < s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8388 + return -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8389 + else if (s1.length > s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8390 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8391 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8392 + }
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 + override size_t tsize()
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 + return (real[]).sizeof;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8399 + override uint flags()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8400 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8401 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8402 + }
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 + override TypeInfo next()
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 + return typeid(real);
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 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8409 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8410 +// ireal[]
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8411 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8412 +class TypeInfo_Aj : TypeInfo_Ae
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8413 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8414 + override string toString() { return "ireal[]"; }
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 + override TypeInfo next()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8417 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8418 + return typeid(ireal);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8419 + }
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 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	8422 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8423 --- 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	8424 +++ 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	8425 @@ -0,0 +1,38 @@
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 +// ushort
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8428 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8429 +module rt.typeinfo.ti_ushort;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8430 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8431 +class TypeInfo_t : TypeInfo
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8432 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8433 + override string toString() { return "ushort"; }
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 + 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	8436 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8437 + return cast(ushort )p;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8440 + 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	8441 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8442 + 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	8443 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8444 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8445 + 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	8446 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8447 + 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	8448 + }
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 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8451 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8452 + return ushort.sizeof;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8455 + 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	8456 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8457 + ushort t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8458 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8459 + t = cast(ushort )p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8460 + cast(ushort )p1 = cast(ushort )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8461 + cast(ushort )p2 = t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8462 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8463 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8464 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	8465 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8466 --- 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	8467 +++ 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	8468 @@ -0,0 +1,204 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8469 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8470 +module rt.typeinfo.ti_Ag;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8471 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8472 +private import util.string;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8473 +private import core.stdc.string;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8474 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8475 +// byte[]
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8476 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8477 +class TypeInfo_Ag : TypeInfo
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 string toString() { return "byte[]"; }
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 + 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	8482 + { byte[] s = cast(byte[])p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8483 + size_t len = s.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8484 + byte *str = s.ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8485 + hash_t hash = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8486 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8487 + while (1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8488 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8489 + switch (len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8490 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8491 + case 0:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8492 + return hash;
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 + case 1:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8495 + hash *= 9;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8496 + hash += cast(ubyte )str;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8497 + return hash;
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 + case 2:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8500 + hash *= 9;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8501 + hash += cast(ushort )str;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8502 + return hash;
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 + case 3:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8505 + hash *= 9;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8506 + hash += (cast(ushort )str << 8) +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8507 + (cast(ubyte *)str)[2];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8508 + return hash;
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 + default:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8511 + hash *= 9;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8512 + hash += cast(uint )str;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8513 + str += 4;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8514 + len -= 4;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8515 + break;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8519 + return hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8520 + }
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 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	8523 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8524 + byte[] s1 = cast(byte[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8525 + byte[] s2 = cast(byte[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8526 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8527 + return s1.length == s2.length &&
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8528 + 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	8529 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8530 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8531 + 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	8532 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8533 + byte[] s1 = cast(byte[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8534 + byte[] s2 = cast(byte[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8535 + size_t len = s1.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8536 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8537 + if (s2.length < len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8538 + len = s2.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8539 + 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	8540 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8541 + int result = s1[u] - s2[u];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8542 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8543 + return result;
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 + if (s1.length < s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8546 + return -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8547 + else if (s1.length > s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8548 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8549 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8550 + }
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 + override size_t tsize()
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 + return (byte[]).sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8555 + }
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 + override uint flags()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8558 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8559 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8560 + }
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 + override TypeInfo next()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8563 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8564 + return typeid(byte);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8565 + }
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8568 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8569 +// ubyte[]
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8570 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8571 +class TypeInfo_Ah : TypeInfo_Ag
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 + override string toString() { return "ubyte[]"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8574 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8575 + 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	8576 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8577 + char[] s1 = cast(char[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8578 + char[] s2 = cast(char[])p2;
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 + return dstrcmp(s1, s2);
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8583 + override TypeInfo next()
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 + return typeid(ubyte);
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 +}
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 +// void[]
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8590 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8591 +class TypeInfo_Av : TypeInfo_Ah
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8592 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8593 + override string toString() { return "void[]"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8594 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8595 + override TypeInfo next()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8596 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8597 + return typeid(void);
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 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8600 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8601 +// bool[]
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 +class TypeInfo_Ab : TypeInfo_Ah
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8604 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8605 + override string toString() { return "bool[]"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8606 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8607 + override TypeInfo next()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8608 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8609 + return typeid(bool);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8610 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8611 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8612 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8613 +// char[]
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8614 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8615 +class TypeInfo_Aa : TypeInfo_Ag
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 + override string toString() { return "char[]"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8618 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8619 + 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	8620 + { char[] s = cast(char[])p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8621 + hash_t hash = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8622 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8623 +version (all)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8624 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8625 + foreach (char c; s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8626 + hash = hash * 11 + c;
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 +else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8629 +{
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 + char *str = s;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8632 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8633 + while (1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8634 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8635 + switch (len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8636 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8637 + case 0:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8638 + return hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8639 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8640 + case 1:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8641 + hash *= 9;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8642 + hash += cast(ubyte )str;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8643 + return hash;
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 + case 2:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8646 + hash *= 9;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8647 + hash += cast(ushort )str;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8648 + return hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8649 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8650 + case 3:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8651 + hash *= 9;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8652 + hash += (cast(ushort )str << 8) +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8653 + (cast(ubyte *)str)[2];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8654 + return hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8655 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8656 + default:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8657 + hash *= 9;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8658 + hash += cast(uint )str;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8659 + str += 4;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8660 + len -= 4;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8661 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8662 + }
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 + return hash;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8668 + override TypeInfo next()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8669 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8670 + return typeid(char);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8671 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8672 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8673 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	8674 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8675 --- 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	8676 +++ 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	8677 @@ -0,0 +1,106 @@
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 + * 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	8680 + * Written by Walter Bright
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8681 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8682 + * 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	8683 + * 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	8684 + * 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	8685 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8686 + * 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	8687 + * 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	8688 + * 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	8689 + * restrictions:
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 + * 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	8692 + * 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	8693 + * 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	8694 + * appreciated but is not required.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8695 + * 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	8696 + * 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	8697 + * 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	8698 + * distribution.
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 +module rt.typeinfo.ti_Acreal;
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 +private import typeinfo.ti_creal;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8704 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8705 +// creal[]
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 +class TypeInfo_Ac : TypeInfo
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 + override string toString() { return "creal[]"; }
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 + 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	8712 + { creal[] s = cast(creal[])p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8713 + size_t len = s.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8714 + creal *str = s.ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8715 + hash_t hash = 0;
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 + while (len)
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 + hash *= 9;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8720 + hash += (cast(uint *)str)[0];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8721 + hash += (cast(uint *)str)[1];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8722 + hash += (cast(uint *)str)[2];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8723 + hash += (cast(uint *)str)[3];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8724 + hash += (cast(uint *)str)[4];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8725 + str++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8726 + len--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8727 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8728 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8729 + return hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8730 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8731 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8732 + 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	8733 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8734 + creal[] s1 = cast(creal[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8735 + creal[] s2 = cast(creal[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8736 + size_t len = s1.length;
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 + if (len != s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8739 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8740 + 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	8741 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8742 + 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	8743 + return false;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8744 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8745 + return true;
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 + 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	8749 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8750 + creal[] s1 = cast(creal[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8751 + creal[] s2 = cast(creal[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8752 + size_t len = s1.length;
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 + if (s2.length < len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8755 + len = s2.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8756 + 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	8757 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8758 + 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	8759 + if (c)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8760 + return c;
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 + if (s1.length < s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8763 + return -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8764 + else if (s1.length > s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8765 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8766 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8767 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8768 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8769 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8770 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8771 + return (creal[]).sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8772 + }
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 + override uint flags()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8775 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8776 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8777 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8778 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8779 + override TypeInfo next()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8780 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8781 + return typeid(creal);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8782 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8783 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8784 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	8785 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8786 --- 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	8787 +++ 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	8788 @@ -0,0 +1,42 @@
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 +// int
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8791 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8792 +module rt.typeinfo.ti_int;
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 +class TypeInfo_i : TypeInfo
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 + override string toString() { return "int"; }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8797 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8798 + 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	8799 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8800 + return cast(uint )p;
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 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	8804 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8805 + 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	8806 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8807 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8808 + 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	8809 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8810 + 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	8811 + return -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8812 + 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	8813 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8814 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8815 + }
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 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8818 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8819 + return int.sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8820 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8821 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8822 + 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	8823 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8824 + int t;
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 + t = cast(int )p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8827 + cast(int )p1 = cast(int )p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8828 + cast(int )p2 = t;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8829 + }
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 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	8832 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8833 --- 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	8834 +++ 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	8835 @@ -0,0 +1,132 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8836 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8837 +module rt.typeinfo.ti_Ashort;
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 +private import core.stdc.string;
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 +// short[]
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_As : TypeInfo
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 "short[]"; }
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 hash_t getHash(in void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8848 + { short[] s = cast(short[])p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8849 + size_t len = s.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8850 + short *str = s.ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8851 + hash_t hash = 0;
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 + while (1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8854 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8855 + switch (len)
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 + case 0:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8858 + return hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8859 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8860 + case 1:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8861 + hash *= 9;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8862 + hash += cast(ushort )str;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8863 + return hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8864 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8865 + default:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8866 + hash *= 9;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8867 + hash += cast(uint )str;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8868 + str += 2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8869 + len -= 2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8870 + break;
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 + return hash;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8877 + 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	8878 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8879 + short[] s1 = cast(short[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8880 + short[] s2 = cast(short[])p2;
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 s1.length == s2.length &&
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8883 + 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	8884 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8885 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8886 + 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	8887 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8888 + short[] s1 = cast(short[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8889 + short[] s2 = cast(short[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8890 + size_t len = s1.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8891 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8892 + if (s2.length < len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8893 + len = s2.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8894 + 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	8895 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8896 + int result = s1[u] - s2[u];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8897 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8898 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8899 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8900 + if (s1.length < s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8901 + return -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8902 + else if (s1.length > s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8903 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8904 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8905 + }
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 + override size_t tsize()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8908 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8909 + return (short[]).sizeof;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8910 + }
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 + override uint flags()
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 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8915 + }
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 + override TypeInfo next()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8918 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8919 + return typeid(short);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8920 + }
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8924 +// ushort[]
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8925 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8926 +class TypeInfo_At : TypeInfo_As
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 + override string toString() { return "ushort[]"; }
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 + 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	8931 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8932 + ushort[] s1 = cast(ushort[])p1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8933 + ushort[] s2 = cast(ushort[])p2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8934 + size_t len = s1.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8935 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8936 + if (s2.length < len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8937 + len = s2.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8938 + 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	8939 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8940 + int result = s1[u] - s2[u];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8941 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8942 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8943 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8944 + if (s1.length < s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8945 + return -1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8946 + else if (s1.length > s2.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8947 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8948 + return 0;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8951 + override TypeInfo next()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8952 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8953 + return typeid(ushort);
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 +}
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 +// wchar[]
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8958 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8959 +class TypeInfo_Au : TypeInfo_At
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8960 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8961 + override string toString() { return "wchar[]"; }
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 + override TypeInfo next()
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 + return typeid(wchar);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8966 + }
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 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	8969 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8970 --- 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	8971 +++ 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	8972 @@ -0,0 +1,43 @@
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 + * 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	8975 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8976 + * 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	8977 + */
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 +module ldc.Vararg;
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 +// Check for the right compiler
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8982 +version(LDC)
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 + // OK
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8985 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8986 +else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8987 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8988 + 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	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 +alias void* va_list;
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 +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	8994 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8995 + // not needed !
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8996 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8997 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	8998 +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	8999 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9000 + T* arg = cast(T*) vp;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9001 + // 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	9002 + 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	9003 + return *arg;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9004 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9005 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9006 +void va_end( va_list ap )
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 + // not needed !
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9009 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9010 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9011 +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	9012 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9013 + // seems pretty useless !
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9014 + dst = src;
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 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	9017 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9018 --- 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	9019 +++ 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	9020 @@ -0,0 +1,81 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9021 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9022 + * D phobos intrinsics for LDC
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9023 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9024 + * From GDC ... public domain!
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 +module ldc.bitmanip;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9027 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9028 +// Check for the right compiler
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9029 +version(LDC)
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 + // OK
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9032 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9033 +else
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 + 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	9036 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9037 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9038 +int bsf(uint v)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9039 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9040 + uint m = 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9041 + uint i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9042 + 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	9043 + if (v&m)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9044 + return i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9045 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9046 + return i; // supposed to be undefined
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9047 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9048 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9049 +int bsr(uint v)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9050 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9051 + uint m = 0x80000000;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9052 + uint i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9053 + 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	9054 + if (v&m)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9055 + return i-1;
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 + return i; // supposed to be undefined
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9058 +}
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 +int bt(uint *p, uint bitnum)
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 + 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	9063 +}
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 +int btc(uint *p, uint bitnum)
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 + 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	9068 + 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	9069 + int result = *q & mask;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9070 + *q ^= mask;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9071 + return result ? -1 : 0;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9074 +int btr(uint *p, uint bitnum)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9075 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9076 + 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	9077 + 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	9078 + int result = *q & mask;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9079 + *q &= ~mask;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9080 + return result ? -1 : 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9081 +}
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 +int bts(uint *p, uint bitnum)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9084 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9085 + 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	9086 + 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	9087 + int result = *q & mask;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9088 + *q \|= mask;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9089 + return result ? -1 : 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9090 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9091 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9092 +pragma(intrinsic, "llvm.bswap.i32")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9093 + uint bswap(uint val);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9094 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9095 +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	9096 +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	9097 +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	9098 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9099 +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	9100 +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	9101 +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	9102 Index: src/compiler/ldc/aaA.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9103 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9104 --- 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	9105 +++ 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	9106 @@ -0,0 +1,837 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9107 +//_ aaA.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9108 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9109 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9110 + * 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	9111 + * Implementation of associative arrays.
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9114 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9115 + * 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	9116 + * Written by Walter Bright
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9117 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9118 + * 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	9119 + * 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	9120 + * 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	9121 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9122 + * 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	9123 + * 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	9124 + * freely, subject to the following restrictions:
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 + * 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	9127 + * 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	9128 + * 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	9129 + * appreciated but is not required.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9130 + * 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	9131 + * 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	9132 + * 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	9133 + * distribution.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9134 + */
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 + * 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	9138 + * 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	9139 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9140 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9141 +private
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9142 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9143 + version( D_Version2 )
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 + import core.stdc.stdarg;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9146 + import core.stdc.string;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9147 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9148 + else
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 + import tango.stdc.stdarg;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9151 + import tango.stdc.string;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9154 + enum BlkAttr : uint
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9155 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9156 + FINALIZE = 0b0000_0001,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9157 + NO_SCAN = 0b0000_0010,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9158 + NO_MOVE = 0b0000_0100,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9159 + ALL_BITS = 0b1111_1111
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9160 + }
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 + 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	9163 + 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	9164 + 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	9165 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9166 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9167 +// 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	9168 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9169 +static size_t[] prime_list = [
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9170 + 97UL, 389UL,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9171 + 1_543UL, 6_151UL,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9172 + 24_593UL, 98_317UL,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9173 + 393_241UL, 1_572_869UL,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9174 + 6_291_469UL, 25_165_843UL,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9175 + 100_663_319UL, 402_653_189UL,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9176 + 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	9177 +// 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	9178 +];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9179 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9180 +struct aaA
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9181 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9182 + aaA *left;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9183 + aaA *right;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9184 + hash_t hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9185 + /* key */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9186 + /* value */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9187 +}
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 +struct BB
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9190 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9191 + aaA*[] b;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9192 + 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	9193 + 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	9194 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9195 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9196 +/* 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	9197 + * it is completely opaque.
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 +// 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	9201 +alias BB* AA;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9202 +
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 + * 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	9205 + * 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	9206 + * in value.
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9209 +size_t aligntsize(size_t tsize)
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 + 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	9212 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9213 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9214 +extern (C):
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9215 +
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 + * Invariant for aa.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9218 + */
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 +/+
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9221 +void _aaInvAh(aaA*[] aa)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9222 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9223 + 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	9224 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9225 + if (aa[i])
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9226 + _aaInvAh_x(aa[i]);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9227 + }
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 +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	9231 +{ int c;
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 + c = e1.hash - e2.hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9234 + if (c == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9235 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9236 + 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	9237 + if (c == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9238 + 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	9239 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9240 + return c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9241 +}
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 +private void _aaInvAh_x(aaA *e)
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 + hash_t key_hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9246 + aaA *e1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9247 + aaA *e2;
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 + key_hash = getHash(e.key);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9250 + assert(key_hash == e.hash);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9251 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9252 + while (1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9253 + { int c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9254 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9255 + e1 = e.left;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9256 + if (e1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9257 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9258 + _aaInvAh_x(e1); // ordinary recursion
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9259 + do
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 + c = _aaCmpAh_x(e1, e);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9262 + assert(c < 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9263 + e1 = e1.right;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9264 + } while (e1 != null);
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9267 + e2 = e.right;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9268 + if (e2)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9269 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9270 + do
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9271 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9272 + c = _aaCmpAh_x(e, e2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9273 + assert(c < 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9274 + e2 = e2.left;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9275 + } while (e2 != null);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9276 + e = e.right; // tail recursion
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 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9279 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9280 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9281 +}
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 +
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 + * 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	9286 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9287 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9288 +size_t _aaLen(AA aa)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9289 +in
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9290 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9291 + //printf("_aaLen()+\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9292 + //_aaInv(aa);
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 +out (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9295 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9296 + size_t len = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9297 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9298 + void _aaLen_x(aaA* ex)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9299 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9300 + auto e = ex;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9301 + len++;
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 + while (1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9304 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9305 + if (e.right)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9306 + _aaLen_x(e.right);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9307 + e = e.left;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9308 + if (!e)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9309 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9310 + len++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9311 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9312 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9313 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9314 + if (aa)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9315 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9316 + foreach (e; aa.b)
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 + if (e)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9319 + _aaLen_x(e);
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 + assert(len == result);
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 + //printf("_aaLen()-\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9325 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9326 +body
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 + return aa ? aa.nodes : 0;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9331 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9332 +/*************************************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9333 + * 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	9334 + * 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	9335 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9336 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9337 +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	9338 +in
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 + assert(aa_arg);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9341 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9342 +out (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9343 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9344 + assert(result);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9345 + assert(*aa_arg);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9346 + assert((*aa_arg).b.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9347 + //assert(_aaInAh(*aa, key));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9348 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9349 +body
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9350 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9351 + //auto pkey = cast(void *)(&valuesize + 1);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9352 + size_t i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9353 + aaA *e;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9354 + auto keysize = aligntsize(keyti.tsize());
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 + if (!*aa_arg)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9357 + *aa_arg = new BB();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9358 + auto aa = *aa_arg;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9359 + aa.keyti = keyti;
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 + if (!aa.b.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9362 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9363 + alias aaA *pa;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9364 + auto len = prime_list[0];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9365 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9366 + aa.b = new pa[len];
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9369 + auto key_hash = keyti.getHash(pkey);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9370 + //printf("hash = %d\n", key_hash);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9371 + i = key_hash % aa.b.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9372 + auto pe = &aa.b[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9373 + while ((e = *pe) !is null)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9374 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9375 + if (key_hash == e.hash)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9376 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9377 + 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	9378 + if (c == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9379 + goto Lret;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9380 + 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	9381 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9382 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9383 + 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	9384 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9385 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9386 + // Not found, create new elem
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9387 + //printf("create new one\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9388 + 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	9389 + e = cast(aaA *) gc_calloc(size);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9390 + memcpy(e + 1, pkey, keysize);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9391 + e.hash = key_hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9392 + *pe = e;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9393 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9394 + auto nodes = ++aa.nodes;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9395 + //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	9396 + if (nodes > aa.b.length * 4)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9397 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9398 + _aaRehash(aa_arg,keyti);
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9401 +Lret:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9402 + return cast(void *)(e + 1) + keysize;
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 +/*************************************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9407 + * 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	9408 + * 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	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 +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	9412 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9413 + //printf("_aaGetRvalue(valuesize = %u)\n", valuesize);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9414 + if (!aa)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9415 + return null;
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 *)(&valuesize + 1);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9418 + auto keysize = aligntsize(keyti.tsize());
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9419 + auto len = aa.b.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9420 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9421 + if (len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9422 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9423 + auto key_hash = keyti.getHash(pkey);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9424 + //printf("hash = %d\n", key_hash);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9425 + size_t i = key_hash % len;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9426 + auto e = aa.b[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9427 + while (e !is null)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9428 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9429 + if (key_hash == e.hash)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9430 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9431 + 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	9432 + if (c == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9433 + return cast(void *)(e + 1) + keysize;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9434 + 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	9435 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9436 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9437 + 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	9438 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9439 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9440 + 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	9441 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9442 +
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 +/*************************************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9445 + * Determine if key is in aa.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9446 + * Returns:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9447 + * null not in aa
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9448 + * !=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	9449 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9450 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9451 +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	9452 +in
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9453 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9454 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9455 +out (result)
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 + //assert(result == 0 \|\| result == 1);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9458 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9459 +body
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 + if (aa)
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 + //auto pkey = cast(void *)(&keyti + 1);
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 + //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	9466 + auto len = aa.b.length;
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 + if (len)
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 + auto key_hash = keyti.getHash(pkey);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9471 + //printf("hash = %d\n", key_hash);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9472 + size_t i = key_hash % len;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9473 + auto e = aa.b[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9474 + while (e !is null)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9475 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9476 + if (key_hash == e.hash)
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 + 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	9479 + if (c == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9480 + 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	9481 + 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	9482 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9483 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9484 + 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	9485 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9486 + }
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9489 + // Not found
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9490 + return null;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9493 +/*************************************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9494 + * Delete key entry in aa[].
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9495 + * 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	9496 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9497 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9498 +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	9499 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9500 + //auto pkey = cast(void *)(&keyti + 1);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9501 + aaA *e;
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 + if (aa && aa.b.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9504 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9505 + auto key_hash = keyti.getHash(pkey);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9506 + //printf("hash = %d\n", key_hash);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9507 + 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	9508 + auto pe = &aa.b[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9509 + 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	9510 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9511 + if (key_hash == e.hash)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9512 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9513 + 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	9514 + if (c == 0)
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.left && !e.right)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9517 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9518 + *pe = null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9519 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9520 + else if (e.left && !e.right)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9521 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9522 + *pe = e.left;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9523 + e.left = null;
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 + else if (!e.left && e.right)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9526 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9527 + *pe = e.right;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9528 + e.right = null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9529 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9530 + else
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 + *pe = e.left;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9533 + e.left = null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9534 + do
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9535 + pe = &(*pe).right;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9536 + while (*pe);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9537 + *pe = e.right;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9538 + e.right = null;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9541 + aa.nodes--;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9542 + gc_free(e);
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 + break;
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 + 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	9547 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9548 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9549 + 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	9550 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9551 + }
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9554 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9555 +/********************************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9556 + * Produce array of values from aa.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9557 + * 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	9558 + * 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	9559 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9560 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9561 +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	9562 +in
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 + assert(keysize == aligntsize(keysize));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9565 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9566 +body
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 + size_t resi;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9569 + void[] a;
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 + void _aaValues_x(aaA* e)
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 + do
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 + memcpy(a.ptr + resi * valuesize,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9576 + cast(byte*)e + aaA.sizeof + keysize,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9577 + valuesize);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9578 + resi++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9579 + if (e.left)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9580 + { if (!e.right)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9581 + { e = e.left;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9582 + continue;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9583 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9584 + _aaValues_x(e.left);
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 + e = e.right;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9587 + } while (e !is null);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9588 + }
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 + if (aa)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9591 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9592 + auto len = _aaLen(aa);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9593 + 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	9594 + 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	9595 + a = ptr[0 .. len];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9596 + resi = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9597 + foreach (e; aa.b)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9598 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9599 + if (e)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9600 + _aaValues_x(e);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9601 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9602 + assert(resi == a.length);
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 + return a;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9607 +
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 + * Rehash an array.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9610 + */
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 +void* _aaRehash(AA* paa, TypeInfo keyti)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9613 +in
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 + //_aaInvAh(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 +out (result)
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 + //_aaInvAh(result);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9620 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9621 +body
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9622 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9623 + BB newb;
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 _aaRehash_x(aaA* olde)
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 + while (1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9628 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9629 + auto left = olde.left;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9630 + auto right = olde.right;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9631 + olde.left = null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9632 + olde.right = null;
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 + aaA *e;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9635 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9636 + //printf("rehash %p\n", olde);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9637 + auto key_hash = olde.hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9638 + 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	9639 + auto pe = &newb.b[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9640 + while ((e = *pe) !is null)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9641 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9642 + //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	9643 + assert(e.left != e);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9644 + assert(e.right != e);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9645 + if (key_hash == e.hash)
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 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	9648 + assert(c != 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9649 + 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	9650 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9651 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9652 + 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	9653 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9654 + *pe = olde;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9655 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9656 + if (right)
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 + if (!left)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9659 + { olde = right;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9660 + continue;
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 + _aaRehash_x(right);
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 + if (!left)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9665 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9666 + olde = left;
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 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9669 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9670 + //printf("Rehash\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9671 + if (*paa)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9672 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9673 + auto aa = *paa;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9674 + auto len = _aaLen(aa);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9675 + if (len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9676 + { size_t i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9677 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9678 + 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	9679 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9680 + if (len <= prime_list[i])
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9681 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9682 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9683 + len = prime_list[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9684 + newb.b = new aaA*[len];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9685 + newb.keyti = keyti;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9686 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9687 + foreach (e; aa.b)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9688 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9689 + if (e)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9690 + _aaRehash_x(e);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9691 + }
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 + newb.nodes = (*aa).nodes;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9694 + }
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 + **paa = newb;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9697 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9698 + return *paa;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9701 +
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 + * 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	9704 + * 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	9705 + * 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	9706 + */
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 +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	9709 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9710 + byte[] res;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9711 + size_t resi;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9712 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9713 + void _aaKeys_x(aaA* e)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9714 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9715 + do
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 + 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	9718 + resi++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9719 + if (e.left)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9720 + { if (!e.right)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9721 + { e = e.left;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9722 + continue;
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 + _aaKeys_x(e.left);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9725 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9726 + e = e.right;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9727 + } while (e !is null);
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9730 + auto len = _aaLen(aa);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9731 + if (!len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9732 + return null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9733 + 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	9734 + !(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	9735 + resi = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9736 + foreach (e; aa.b)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9737 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9738 + if (e)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9739 + _aaKeys_x(e);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9740 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9741 + assert(resi == len);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9742 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9743 + return res.ptr[0 .. len];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9744 +}
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9747 +/**********************************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9748 + * '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	9749 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9750 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9751 +// 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	9752 +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	9753 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9754 +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	9755 +in
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9756 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9757 + assert(aligntsize(keysize) == keysize);
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 +body
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9760 +{ int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9761 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9762 + //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	9763 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9764 + int treewalker(aaA* e)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9765 + { int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9766 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9767 + do
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 + //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	9770 + 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	9771 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9772 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9773 + if (e.right)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9774 + { if (!e.left)
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 + e = e.right;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9777 + continue;
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 + result = treewalker(e.right);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9780 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9781 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9782 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9783 + e = e.left;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9784 + } while (e);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9785 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9786 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9787 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9788 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9789 + if (aa)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9790 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9791 + foreach (e; aa.b)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9792 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9793 + if (e)
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 + result = treewalker(e);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9796 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9797 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9798 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9799 + }
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 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9802 +}
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 +// 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	9805 +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	9806 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9807 +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	9808 +in
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9809 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9810 + assert(aligntsize(keysize) == keysize);
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 +body
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9813 +{ int result;
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 + //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	9816 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9817 + int treewalker(aaA* e)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9818 + { int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9819 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9820 + do
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9821 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9822 + //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	9823 + 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	9824 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9825 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9826 + if (e.right)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9827 + { if (!e.left)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9828 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9829 + e = e.right;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9830 + continue;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9831 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9832 + result = treewalker(e.right);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9833 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9834 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9835 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9836 + e = e.left;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9837 + } while (e);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9838 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9839 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9840 + }
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 (aa)
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 + foreach (e; aa.b)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9845 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9846 + if (e)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9847 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9848 + result = treewalker(e);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9849 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9850 + break;
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 + }
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 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9855 +}
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 +
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 + * 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	9860 + * length pairs of key/value pairs.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9861 + */
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 +/+
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9864 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9865 +extern (C)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9866 +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	9867 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9868 + 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	9869 + auto keyti = ti.key;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9870 + auto keysize = keyti.tsize(); // key size
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9871 + BB* result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9872 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9873 + //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	9874 + //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	9875 + 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	9876 + {
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 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9879 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9880 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9881 + va_list q;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9882 + va_start!(size_t)(q, length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9883 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9884 + result = new BB();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9885 + size_t i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9886 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9887 + 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	9888 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9889 + if (length <= prime_list[i])
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9890 + break;
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 + auto len = prime_list[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9893 + result.b = new aaA*[len];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9894 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9895 + 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	9896 + 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	9897 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9898 + size_t keytsize = aligntsize(keysize);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9899 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9900 + 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	9901 + { void* pkey = q;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9902 + q += keystacksize;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9903 + void* pvalue = q;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9904 + q += valuestacksize;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9905 + aaA* e;
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 + auto key_hash = keyti.getHash(pkey);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9908 + //printf("hash = %d\n", key_hash);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9909 + i = key_hash % len;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9910 + auto pe = &result.b[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9911 + while (1)
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 + e = *pe;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9914 + if (!e)
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 + // Not found, create new elem
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9917 + //printf("create new one\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9918 + 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	9919 + memcpy(e + 1, pkey, keysize);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9920 + e.hash = key_hash;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9921 + *pe = e;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9922 + result.nodes++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9923 + break;
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 + if (key_hash == e.hash)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9926 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9927 + 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	9928 + if (c == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9929 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9930 + 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	9931 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9932 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9933 + 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	9934 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9935 + 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	9936 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9937 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9938 + va_end(q);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9939 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9940 + return result;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9943 ++/
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9944 Index: src/compiler/ldc/aApply.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 --- 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	9947 +++ 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	9948 @@ -0,0 +1,414 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9949 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9950 + * 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	9951 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9952 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9953 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9954 + * 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	9955 + * Written by Walter Bright
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 + * 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	9958 + * 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	9959 + * 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	9960 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9961 + * 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	9962 + * 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	9963 + * 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	9964 + * restrictions:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9965 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9966 + * 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	9967 + * 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	9968 + * 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	9969 + * appreciated but is not required.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9970 + * 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	9971 + * 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	9972 + * 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	9973 + * distribution.
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9976 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9977 + * 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	9978 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9979 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9980 +/* 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	9981 + * 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	9982 + * 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	9983 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9984 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9985 +private import util.utf;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9986 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9987 +//debug = apply;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9988 +debug(apply)
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 + extern(C) int printf(char*, ...);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9991 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9992 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9993 +/**********************************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9994 + */
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 +// 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	9997 +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	9998 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	9999 +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	10000 +{ int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10001 + size_t i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10002 + size_t len = aa.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10003 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10004 + 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	10005 + for (i = 0; i < len; )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10006 + { dchar d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10007 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10008 + d = aa[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10009 + if (d & 0x80)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10010 + d = decode(aa, i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10011 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10012 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10013 + result = dg(cast(void *)&d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10014 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10015 + break;
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 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10018 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10019 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10020 +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	10021 +{ int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10022 + size_t i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10023 + size_t len = aa.length;
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 + 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	10026 + for (i = 0; i < len; )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10027 + { dchar d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10028 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10029 + d = aa[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10030 + if (d & ~0x7F)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10031 + d = decode(aa, i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10032 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10033 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10034 + result = dg(cast(void *)&d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10035 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10036 + break;
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 + return result;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10041 +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	10042 +{ int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10043 + size_t i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10044 + size_t len = aa.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10045 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10046 + 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	10047 + for (i = 0; i < len; )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10048 + { dchar d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10049 + wchar w;
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 + w = aa[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10052 + if (w & 0x80)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10053 + { d = decode(aa, i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10054 + if (d <= 0xFFFF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10055 + w = cast(wchar) d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10056 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10057 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10058 + 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	10059 + result = dg(cast(void *)&w);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10060 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10061 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10062 + 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	10063 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10064 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10065 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10066 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10067 + result = dg(cast(void *)&w);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10068 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10069 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10070 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10071 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10072 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10073 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10074 +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	10075 +{ int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10076 + size_t i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10077 + size_t len = aa.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10078 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10079 + 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	10080 + for (i = 0; i < len; )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10081 + { dchar d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10082 + wchar w;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10083 + char c;
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 + w = aa[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10086 + if (w & ~0x7F)
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 + char[4] buf;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10089 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10090 + d = decode(aa, i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10091 + auto b = toUTF8(buf, d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10092 + foreach (char c2; b)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10093 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10094 + result = dg(cast(void *)&c2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10095 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10096 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10097 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10098 + continue;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10099 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10100 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10101 + { c = cast(char)w;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10102 + i++;
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 + result = dg(cast(void *)&c);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10105 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10106 + break;
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 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10109 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10110 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10111 +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	10112 +{ int result;
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 + 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	10115 + foreach (dchar d; aa)
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 + char c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10118 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10119 + if (d & ~0x7F)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10120 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10121 + char[4] buf;
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 + auto b = toUTF8(buf, d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10124 + foreach (char c2; b)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10125 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10126 + result = dg(cast(void *)&c2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10127 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10128 + return result;
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 + continue;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10131 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10132 + else
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 + c = cast(char)d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10135 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10136 + result = dg(cast(void *)&c);
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 _aApplydw1(dchar[] aa, dg_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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10146 + 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	10147 + foreach (dchar d; aa)
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 + wchar w;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10150 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10151 + if (d <= 0xFFFF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10152 + w = cast(wchar) d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10153 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10154 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10155 + 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	10156 + result = dg(cast(void *)&w);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10157 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10158 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10159 + 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	10160 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10161 + result = dg(cast(void *)&w);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10162 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10163 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10164 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10165 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10166 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10167 +
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10171 +// 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	10172 +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	10173 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10174 +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	10175 +{ int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10176 + size_t i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10177 + size_t n;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10178 + size_t len = aa.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10179 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10180 + 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	10181 + 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	10182 + { dchar d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10183 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10184 + d = aa[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10185 + if (d & 0x80)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10186 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10187 + n = i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10188 + d = decode(aa, n);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10189 + n -= i;
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 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10192 + n = 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10193 + result = dg(&i, cast(void *)&d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10194 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10195 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10196 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10197 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10198 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10199 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10200 +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	10201 +{ int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10202 + size_t i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10203 + size_t n;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10204 + size_t len = aa.length;
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 + 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	10207 + 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	10208 + { dchar d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10209 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10210 + d = aa[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10211 + if (d & ~0x7F)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10212 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10213 + n = i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10214 + d = decode(aa, n);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10215 + n -= i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10216 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10217 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10218 + n = 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10219 + result = dg(&i, cast(void *)&d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10220 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10221 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10222 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10223 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10224 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10225 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10226 +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	10227 +{ int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10228 + size_t i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10229 + size_t n;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10230 + size_t len = aa.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10231 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10232 + 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	10233 + 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	10234 + { dchar d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10235 + wchar w;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10236 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10237 + w = aa[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10238 + if (w & 0x80)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10239 + { n = i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10240 + d = decode(aa, n);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10241 + n -= i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10242 + if (d <= 0xFFFF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10243 + w = cast(wchar) d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10244 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10245 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10246 + 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	10247 + result = dg(&i, cast(void *)&w);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10248 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10249 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10250 + 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	10251 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10252 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10253 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10254 + n = 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10255 + result = dg(&i, cast(void *)&w);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10256 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10257 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10258 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10259 + return result;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10262 +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	10263 +{ int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10264 + size_t i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10265 + size_t n;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10266 + size_t len = aa.length;
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 + 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	10269 + 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	10270 + { dchar d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10271 + wchar w;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10272 + char c;
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 + w = aa[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10275 + if (w & ~0x7F)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10276 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10277 + char[4] buf;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10278 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10279 + n = i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10280 + d = decode(aa, n);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10281 + n -= i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10282 + auto b = toUTF8(buf, d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10283 + foreach (char c2; b)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10284 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10285 + result = dg(&i, cast(void *)&c2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10286 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10287 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10288 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10289 + continue;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10290 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10291 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10292 + { c = cast(char)w;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10293 + n = 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10294 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10295 + result = dg(&i, cast(void *)&c);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10296 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10297 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10298 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10299 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10300 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10301 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10302 +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	10303 +{ int result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10304 + size_t i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10305 + size_t len = aa.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10306 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10307 + 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	10308 + for (i = 0; i < len; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10309 + { dchar d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10310 + char c;
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 + d = aa[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10313 + 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	10314 + if (d & ~0x7F)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10315 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10316 + char[4] buf;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10317 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10318 + auto b = toUTF8(buf, d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10319 + foreach (char c2; b)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10320 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10321 + 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	10322 + result = dg(&i, cast(void *)&c2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10323 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10324 + return result;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10325 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10326 + continue;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10327 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10328 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10329 + { c = cast(char)d;
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 + result = dg(&i, cast(void *)&c);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10332 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10333 + break;
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 + return result;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10338 +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	10339 +{ int result;
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 + 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	10342 + 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	10343 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10344 + wchar w;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10345 + auto j = i;
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 + if (d <= 0xFFFF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10348 + w = cast(wchar) d;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10349 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10350 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10351 + 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	10352 + result = dg(&j, cast(void *)&w);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10353 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10354 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10355 + 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	10356 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10357 + result = dg(&j, cast(void *)&w);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10358 + if (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10359 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10360 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10361 + return result;
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 Index: src/compiler/ldc/monitor.c
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10364 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10365 --- 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	10366 +++ 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	10367 @@ -0,0 +1,212 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10368 +// D programming language runtime library
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10369 +// Public Domain
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10370 +// written by Walter Bright, Digital Mars
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10371 +// www.digitalmars.com
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10372 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10373 +// 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	10374 +// to D yet.
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10377 +#include <stdio.h>
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10378 +#include <stdlib.h>
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10379 +#include <assert.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 +#if _WIN32
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10382 +#elif linux \|\| __APPLE__
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10383 +#define USE_PTHREADS 1
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10384 +#else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10385 +#endif
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10386 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10387 +#if _WIN32
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10388 +#include <windows.h>
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10389 +#endif
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 +#if USE_PTHREADS
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10392 +#include <pthread.h>
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10393 +#endif
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10394 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10395 +#include "mars.h"
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10396 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10397 +// 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	10398 +typedef struct Monitor
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* impl; // for user-level monitors
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10401 + Array devt; // for internal monitors
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10402 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10403 +#if _WIN32
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10404 + CRITICAL_SECTION mon;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10405 +#endif
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 +#if USE_PTHREADS
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10408 + pthread_mutex_t mon;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10409 +#endif
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10410 +} Monitor;
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 +#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	10413 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10414 +static volatile int inited;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10415 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10416 +/* =============================== Win32 ============================ */
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 +#if _WIN32
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 CRITICAL_SECTION _monitor_critsec;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10421 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10422 +void _STI_monitor_staticctor()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10423 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10424 + if (!inited)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10425 + { InitializeCriticalSection(&_monitor_critsec);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10426 + inited = 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10427 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10428 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10429 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10430 +void _STD_monitor_staticdtor()
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 + if (inited)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10433 + { inited = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10434 + DeleteCriticalSection(&_monitor_critsec);
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 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10437 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10438 +void _d_monitor_create(Object *h)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10439 +{
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 + * 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	10442 + * 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	10443 + * 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	10444 + * 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	10445 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10446 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10447 + //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	10448 + assert(h);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10449 + Monitor *cs = NULL;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10450 + EnterCriticalSection(&_monitor_critsec);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10451 + if (!h->monitor)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10452 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10453 + cs = (Monitor *)calloc(sizeof(Monitor), 1);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10454 + assert(cs);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10455 + InitializeCriticalSection(&cs->mon);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10456 + h->monitor = (void *)cs;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10457 + cs = NULL;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10458 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10459 + LeaveCriticalSection(&_monitor_critsec);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10460 + if (cs)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10461 + free(cs);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10462 + //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	10463 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10464 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10465 +void _d_monitor_destroy(Object *h)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10466 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10467 + //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	10468 + 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	10469 + DeleteCriticalSection(MONPTR(h));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10470 + free((void *)h->monitor);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10471 + h->monitor = NULL;
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 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10474 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10475 +int _d_monitor_lock(Object *h)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10476 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10477 + //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	10478 + 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	10479 + EnterCriticalSection(MONPTR(h));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10480 + //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	10481 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10482 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10483 +void _d_monitor_unlock(Object *h)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10484 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10485 + //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	10486 + 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	10487 + LeaveCriticalSection(MONPTR(h));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10488 + //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	10489 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10490 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10491 +#endif
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10492 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10493 +/* =============================== linux ============================ */
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 +#if USE_PTHREADS
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10496 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10497 +#if !linux
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10498 +#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	10499 +#endif
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10500 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10501 +// 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	10502 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10503 +static pthread_mutex_t _monitor_critsec;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10504 +static pthread_mutexattr_t _monitors_attr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10505 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10506 +void _STI_monitor_staticctor()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10507 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10508 + if (!inited)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10509 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10510 + pthread_mutexattr_init(&_monitors_attr);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10511 + 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	10512 + pthread_mutex_init(&_monitor_critsec, 0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10513 + inited = 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10514 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10515 +}
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 +void _STD_monitor_staticdtor()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10518 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10519 + if (inited)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10520 + { inited = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10521 + pthread_mutex_destroy(&_monitor_critsec);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10522 + pthread_mutexattr_destroy(&_monitors_attr);
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 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10525 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10526 +void _d_monitor_create(Object *h)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10527 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10528 + /*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10529 + * 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	10530 + * 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	10531 + * 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	10532 + * 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	10533 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10534 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10535 + //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	10536 + assert(h);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10537 + Monitor *cs = NULL;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10538 + pthread_mutex_lock(&_monitor_critsec);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10539 + if (!h->monitor)
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 + cs = (Monitor *)calloc(sizeof(Monitor), 1);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10542 + assert(cs);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10543 + 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	10544 + h->monitor = (void *)cs;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10545 + cs = NULL;
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 + pthread_mutex_unlock(&_monitor_critsec);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10548 + if (cs)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10549 + free(cs);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10550 + //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	10551 +}
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 +void _d_monitor_destroy(Object *h)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10554 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10555 + //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	10556 + 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	10557 + pthread_mutex_destroy(MONPTR(h));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10558 + free((void *)h->monitor);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10559 + h->monitor = NULL;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10560 + //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	10561 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10562 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10563 +int _d_monitor_lock(Object *h)
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 + //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	10566 + 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	10567 + pthread_mutex_lock(MONPTR(h));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10568 + //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	10569 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10570 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10571 +void _d_monitor_unlock(Object *h)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10572 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10573 + //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	10574 + 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	10575 + pthread_mutex_unlock(MONPTR(h));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10576 + //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	10577 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10578 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10579 +#endif
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10580 Index: src/compiler/ldc/ldc.mak
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10581 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10582 --- 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	10583 +++ 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	10584 @@ -0,0 +1,166 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10585 +# 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	10586 +# Designed to work with GNU make
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10587 +# Targets:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10588 +# make
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10589 +# Same as make all
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10590 +# make lib
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10591 +# Build the compiler runtime library
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10592 +# make doc
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10593 +# Generate documentation
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10594 +# make clean
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10595 +# 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	10596 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10597 +LIB_TARGET=libdruntime-rt-ldc.a
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10598 +LIB_MASK=libdruntime-rt-ldc*.a
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10599 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10600 +CP=cp -f
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10601 +RM=rm -f
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10602 +MD=mkdir -p
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10603 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10604 +#CFLAGS=-O $(ADD_CFLAGS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10605 +CFLAGS=-g $(ADD_CFLAGS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10606 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10607 +#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	10608 +DFLAGS=-g -w $(ADD_DFLAGS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10609 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10610 +#TFLAGS=-O -inline -w $(ADD_DFLAGS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10611 +TFLAGS=-g -w $(ADD_DFLAGS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10612 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10613 +DOCFLAGS=-version=DDoc
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10614 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10615 +CC=gcc
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10616 +LC=$(AR) -qsv
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10617 +DC=ldc2
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10618 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10619 +LIB_DEST=../../../lib
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10620 +IMPORT_DEST=../../../import/
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10621 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10622 +.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	10623 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10624 +.s.o:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10625 + $(CC) -c $(CFLAGS) $< -o$@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10626 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10627 +.S.o:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10628 + $(CC) -c $(CFLAGS) $< -o$@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10629 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10630 +.c.o:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10631 + $(CC) -c $(CFLAGS) $< -o$@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10632 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10633 +.cpp.o:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10634 + g++ -c $(CFLAGS) $< -o$@
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 +.d.o:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10637 + $(DC) -c $(DFLAGS) $< -of$@
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 +.d.html:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10640 + $(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	10641 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10642 +targets : lib doc
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10643 +all : lib doc
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10644 +lib : ldc.lib
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10645 +doc : ldc.doc
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10646 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10647 +######################################################
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 +OBJ_BASE= \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10650 + aaA.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10651 + aApply.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10652 + aApplyR.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10653 + adi.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10654 + arrayInit.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10655 + cast.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10656 + critical.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10657 + eh.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10658 + dmain2.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10659 + invariant.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10660 + lifetime.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10661 + memory.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10662 + monitor.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10663 + genobj.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10664 + qsort2.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10665 + switch.o
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10666 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10667 +OBJ_UTIL= \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10668 + util/console.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10669 + util/ctype.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10670 + util/string.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10671 + util/utf.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10672 + ldc/bitmanip.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10673 + ldc/vararg.o
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10674 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10675 +OBJ_TI= \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10676 + typeinfo/ti_AC.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10677 + typeinfo/ti_Acdouble.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10678 + typeinfo/ti_Acfloat.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10679 + typeinfo/ti_Acreal.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10680 + typeinfo/ti_Adouble.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10681 + typeinfo/ti_Afloat.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10682 + typeinfo/ti_Ag.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10683 + typeinfo/ti_Aint.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10684 + typeinfo/ti_Along.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10685 + typeinfo/ti_Areal.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10686 + typeinfo/ti_Ashort.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10687 + typeinfo/ti_byte.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10688 + typeinfo/ti_C.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10689 + typeinfo/ti_cdouble.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10690 + typeinfo/ti_cfloat.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10691 + typeinfo/ti_char.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10692 + typeinfo/ti_creal.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10693 + typeinfo/ti_dchar.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10694 + typeinfo/ti_delegate.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10695 + typeinfo/ti_double.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10696 + typeinfo/ti_float.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10697 + typeinfo/ti_idouble.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10698 + typeinfo/ti_ifloat.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10699 + typeinfo/ti_int.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10700 + typeinfo/ti_ireal.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10701 + typeinfo/ti_long.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10702 + typeinfo/ti_ptr.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10703 + typeinfo/ti_real.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10704 + typeinfo/ti_short.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10705 + typeinfo/ti_ubyte.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10706 + typeinfo/ti_uint.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10707 + typeinfo/ti_ulong.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10708 + typeinfo/ti_ushort.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10709 + typeinfo/ti_void.o \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10710 + typeinfo/ti_wchar.o
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10711 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10712 +ALL_OBJS= \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10713 + $(OBJ_BASE) \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10714 + $(OBJ_UTIL) \
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10715 + $(OBJ_TI)
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 +######################################################
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 +ALL_DOCS=
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10720 +
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10723 +ldc.lib : $(LIB_TARGET)
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 +$(LIB_TARGET) : $(ALL_OBJS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10726 + $(RM) $@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10727 + $(LC) $@ $(ALL_OBJS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10728 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10729 +ldc.doc : $(ALL_DOCS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10730 + echo No documentation available.
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 +################### LDC SPECIALS #####################
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 +ldc/bitmanip.o : ldc/bitmanip.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10735 + $(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	10736 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10737 +ldc/vararg.o : ldc/vararg.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10738 + $(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	10739 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10740 +######################################################
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10741 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10742 +clean :
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10743 + find . -name "*.di" \| xargs $(RM)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10744 + $(RM) $(ALL_OBJS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10745 + $(RM) $(ALL_DOCS)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10746 + $(RM) $(LIB_MASK)
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 +install :
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10749 + $(MD) $(LIB_DEST)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10750 + $(CP) $(LIB_MASK) $(LIB_DEST)/.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10751 Index: src/compiler/ldc/critical.c
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10752 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10753 --- 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	10754 +++ 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	10755 @@ -0,0 +1,164 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10756 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10757 + * Placed into the Public Domain
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10758 + * written by Walter Bright, Digital Mars
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10759 + * www.digitalmars.com
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10762 +/* ================================= Win32 ============================ */
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 +#if _WIN32
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10765 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10766 +#include <windows.h>
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 + * Enter/exit 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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10772 +/* 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	10773 + * 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	10774 + * 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	10775 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10776 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10777 +typedef struct D_CRITICAL_SECTION
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 + struct D_CRITICAL_SECTION *next;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10780 + CRITICAL_SECTION cs;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10781 +} D_CRITICAL_SECTION;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10782 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10783 +static D_CRITICAL_SECTION *dcs_list;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10784 +static D_CRITICAL_SECTION critical_section;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10785 +static volatile int inited;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10786 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10787 +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	10788 +{
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 + EnterCriticalSection(&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 + InitializeCriticalSection(&dcs->cs);
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 + LeaveCriticalSection(&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 + EnterCriticalSection(&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 + LeaveCriticalSection(&dcs->cs);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10806 +}
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 +void _STI_critical_init()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10809 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10810 + if (!inited)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10811 + { InitializeCriticalSection(&critical_section.cs);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10812 + dcs_list = &critical_section;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10813 + inited = 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10814 + }
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10817 +void _STD_critical_term()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10818 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10819 + if (inited)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10820 + { inited = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10821 + while (dcs_list)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10822 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10823 + DeleteCriticalSection(&dcs_list->cs);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10824 + dcs_list = dcs_list->next;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10825 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10826 + }
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10829 +#endif
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10830 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10831 +/* ================================= linux ============================ */
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 +#if linux \|\| __APPLE__ \|\| __FreeBSD__
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 +#include <stdio.h>
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10836 +#include <stdlib.h>
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10837 +#include <pthread.h>
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 +#if !linux
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10840 +#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	10841 +#endif
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 + * Enter/exit critical section.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10845 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10846 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10847 +/* 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	10848 + * 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	10849 + * 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	10850 + */
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 +typedef struct D_CRITICAL_SECTION
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 + struct D_CRITICAL_SECTION *next;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10855 + pthread_mutex_t cs;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10856 +} D_CRITICAL_SECTION;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10857 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10858 +static D_CRITICAL_SECTION *dcs_list;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10859 +static D_CRITICAL_SECTION critical_section;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10860 +static pthread_mutexattr_t _criticals_attr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10861 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10862 +void _STI_critical_init(void);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10863 +void _STD_critical_term(void);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10864 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10865 +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	10866 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10867 + if (!dcs_list)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10868 + { _STI_critical_init();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10869 + atexit(_STD_critical_term);
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 + //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	10872 + if (!dcs->next)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10873 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10874 + pthread_mutex_lock(&critical_section.cs);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10875 + 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	10876 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10877 + dcs->next = dcs_list;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10878 + dcs_list = dcs;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10879 + 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	10880 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10881 + pthread_mutex_unlock(&critical_section.cs);
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 + pthread_mutex_lock(&dcs->cs);
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10886 +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	10887 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10888 + //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	10889 + pthread_mutex_unlock(&dcs->cs);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10890 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10891 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10892 +void _STI_critical_init()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10893 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10894 + if (!dcs_list)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10895 + { //printf("_STI_critical_init()\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10896 + pthread_mutexattr_init(&_criticals_attr);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10897 + 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	10898 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10899 + // 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	10900 + 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	10901 + dcs_list = &critical_section;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10902 + }
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10905 +void _STD_critical_term()
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10906 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10907 + if (dcs_list)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10908 + { //printf("_STI_critical_term()\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10909 + while (dcs_list)
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 + //printf("\tlooping... %x\n", dcs_list);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10912 + pthread_mutex_destroy(&dcs_list->cs);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10913 + dcs_list = dcs_list->next;
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 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10916 +}
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 +#endif
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10919 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10920 Index: src/compiler/ldc/qsort2.d
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 --- 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	10923 +++ 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	10924 @@ -0,0 +1,67 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10925 +
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 + * Placed into Public Domain
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10928 + * written by Walter Bright
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10929 + * www.digitalmars.com
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10930 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10931 + * 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	10932 + * 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	10933 + * 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	10934 + */
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 + * 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	10938 + */
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 +//debug=qsort;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10941 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10942 +version( D_Version2 )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10943 +private import stdlib = core.stdc.stdlib;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10944 +else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10945 +private import stdlib = tango.stdc.stdlib;
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 +private TypeInfo tiglobal;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10948 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10949 +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	10950 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10951 + return tiglobal.compare(p1, p2);
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 +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	10955 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10956 + synchronized
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10957 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10958 + tiglobal = ti;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10959 + 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	10960 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10961 + return a;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10962 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10963 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10964 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10965 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10966 +unittest
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10967 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10968 + 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	10969 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10970 + int a[] = new int[10];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10971 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10972 + a[0] = 23;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10973 + a[1] = 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10974 + a[2] = 64;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10975 + a[3] = 5;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10976 + a[4] = 6;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10977 + a[5] = 5;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10978 + a[6] = 17;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10979 + a[7] = 3;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10980 + a[8] = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10981 + a[9] = -1;
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 + a.sort;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10984 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10985 + 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	10986 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10987 + //printf("i = %d", i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10988 + //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	10989 + assert(a[i] <= a[i + 1]);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10990 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10991 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10992 Index: src/compiler/ldc/cast.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10993 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10994 --- 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	10995 +++ 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	10996 @@ -0,0 +1,196 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10997 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	10998 + * 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	10999 + * Written by Walter Bright
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11000 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11001 + * 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	11002 + * 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	11003 + * 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	11004 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11005 + * 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	11006 + * 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	11007 + * 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	11008 + * restrictions:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11009 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11010 + * 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	11011 + * 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	11012 + * 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	11013 + * appreciated but is not required.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11014 + * 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	11015 + * 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	11016 + * 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	11017 + * distribution.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11018 + */
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 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11021 + * 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	11022 + */
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 +extern (C):
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11025 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11026 +//debug = PRINTF;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11027 +debug(PRINTF) int printf(char*, ...);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11028 +
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 + * Given a pointer:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11031 + * 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	11032 + * 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	11033 + * If it is null, return null.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11034 + * Else, undefined crash
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11035 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11036 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11037 +Object _d_toObject(void* p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11038 +{ Object o;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11039 + 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	11040 + if (p)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11041 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11042 + o = cast(Object)p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11043 + 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	11044 + 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	11045 + ClassInfo oc = o.classinfo;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11046 + 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	11047 + Interface pi = cast(Interface **)p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11048 + 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	11049 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11050 + /* 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	11051 + * 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	11052 + * 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	11053 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11054 + if (pi.offset < 0x10000)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11055 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11056 + 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	11057 + o = cast(Object)(p - pi.offset);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11058 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11059 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11060 + 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	11061 + return o;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11064 +
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 + * 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	11067 + * 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	11068 + */
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 +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	11071 +{ Object o;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11072 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11073 + 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	11074 + if (p)
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 + Interface pi = cast(Interface **)p;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11077 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11078 + 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	11079 + o = cast(Object)(p - pi.offset);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11080 + return _d_dynamic_cast(o, c);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11081 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11082 + 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	11083 + return o;
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 +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	11087 +{ ClassInfo oc;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11088 + size_t offset = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11089 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11090 + 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	11091 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11092 + if (o)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11093 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11094 + oc = o.classinfo;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11095 + if (_d_isbaseof2(oc, c, offset))
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 + 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	11098 + 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	11099 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11100 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11101 + o = null;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11102 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11103 + //printf("\tresult = %p\n", o);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11104 + 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	11105 + return o;
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 +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	11109 +{ int i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11110 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11111 + 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	11112 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11113 + if (oc is c)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11114 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11115 + do
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 + 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	11118 + if (oc.base is c)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11119 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11120 + 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	11121 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11122 + ClassInfo ic;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11123 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11124 + ic = oc.interfaces[i].classinfo;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11125 + 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	11126 + if (ic is c)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11127 + { 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	11128 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11129 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11130 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11131 + 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	11132 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11133 + ClassInfo ic;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11134 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11135 + ic = oc.interfaces[i].classinfo;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11136 + if (_d_isbaseof2(ic, c, offset))
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11137 + { 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	11138 + return 1;
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 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11141 + oc = oc.base;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11142 + } while (oc);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11143 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11144 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11145 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11146 +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	11147 +{ int i;
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 + if (oc is c)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11150 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11151 + do
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11152 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11153 + if (oc.base is c)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11154 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11155 + 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	11156 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11157 + ClassInfo ic;
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 + ic = oc.interfaces[i].classinfo;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11160 + 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	11161 + return 1;
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 + oc = oc.base;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11164 + } while (oc);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11165 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11166 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11167 +
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 + * 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	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 +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	11173 +{ int i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11174 + ClassInfo oc;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11175 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11176 + //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	11177 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11178 + assert(o);
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 + oc = o.classinfo;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11181 + 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	11182 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11183 + ClassInfo oic;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11184 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11185 + oic = oc.interfaces[i].classinfo;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11186 + if (oic is ic)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11187 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11188 + 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	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 + assert(0);
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 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	11194 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11195 --- 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	11196 +++ 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	11197 @@ -0,0 +1,917 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11198 +// Written in the D programming language
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11199 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11200 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11201 + * 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	11202 + * Written by Walter Bright
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11203 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11204 + * 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	11205 + * 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	11206 + * 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	11207 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11208 + * 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	11209 + * 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	11210 + * freely, subject to the following restrictions:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11211 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11212 + * 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	11213 + * 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	11214 + * 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	11215 + * appreciated but is not required.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11216 + * 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	11217 + * 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	11218 + * 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	11219 + * distribution.
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 +
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 + * 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	11224 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11225 + * 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	11226 + * wchar type.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11227 + * 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	11228 + * the D utf.dchar type.
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 + * 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	11231 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11232 + * See_Also:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11233 + * $(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	11234 + * $(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	11235 + * $(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	11236 + * Macros:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11237 + * WIKI = Phobos/StdUtf
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11238 + */
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 +module rt.util.utf;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11243 +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	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 + * 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	11247 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11248 + * \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	11249 + * 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	11250 + * 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	11251 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11252 + * 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	11253 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11254 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11255 +bool isValidDchar(dchar c)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11256 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11257 + /* 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	11258 + * 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	11259 + * allowed for interchange.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11260 + * (thanks to Arcane Jill)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11261 + */
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 + return c < 0xD800 \|\|
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11264 + (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	11265 +}
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 +unittest
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11268 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11269 + 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	11270 + assert(isValidDchar(cast(dchar)'a') == true);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11271 + assert(isValidDchar(cast(dchar)0x1FFFFF) == false);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11272 +}
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 +
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 +auto UTF8stride =
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11277 +[
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11278 + cast(ubyte)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11279 + 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	11280 + 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	11281 + 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	11282 + 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	11283 + 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	11284 + 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	11285 + 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	11286 + 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	11287 + 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	11288 + 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	11289 + 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	11290 + 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	11291 + 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	11292 + 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	11293 + 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	11294 + 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	11295 +];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11296 +
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 + * 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	11299 + * in string s.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11300 + * Returns:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11301 + * 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	11302 + * 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	11303 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11304 +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	11305 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11306 + return UTF8stride[s[i]];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11307 +}
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 + * 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	11311 + * in string s.
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 +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	11314 +{ uint u = s[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11315 + return 1 + (u >= 0xD800 && u <= 0xDBFF);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11316 +}
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 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11319 + * 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	11320 + * in string s.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11321 + * 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	11322 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11323 +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	11324 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11325 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11326 +}
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 + * 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	11330 + * 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	11331 + * 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	11332 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11333 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11334 +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	11335 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11336 + size_t n;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11337 + size_t j;
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 + for (j = 0; j < i; )
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 + j += stride(s, j);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11342 + n++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11343 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11344 + if (j > i)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11345 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11346 + onUnicodeError("invalid UTF-8 sequence", j);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11347 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11348 + return n;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11349 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11350 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11351 +/** ditto */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11352 +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	11353 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11354 + size_t n;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11355 + size_t j;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11356 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11357 + for (j = 0; j < i; )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11358 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11359 + j += stride(s, j);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11360 + n++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11361 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11362 + if (j > i)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11363 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11364 + onUnicodeError("invalid UTF-16 sequence", j);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11365 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11366 + return n;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11367 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11368 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11369 +/** ditto */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11370 +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	11371 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11372 + return i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11373 +}
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 + * 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	11377 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11378 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11379 +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	11380 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11381 + size_t i;
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 + while (n--)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11384 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11385 + uint j = UTF8stride[s[i]];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11386 + if (j == 0xFF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11387 + onUnicodeError("invalid UTF-8 sequence", i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11388 + i += j;
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 + return i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11391 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11392 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11393 +/** ditto */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11394 +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	11395 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11396 + size_t i;
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 + while (n--)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11399 + { wchar u = s[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11400 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11401 + i += 1 + (u >= 0xD800 && u <= 0xDBFF);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11402 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11403 + return i;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11406 +/** ditto */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11407 +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	11408 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11409 + return n;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11412 +/* =================== Decode ======================= */
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 + * 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	11416 + * 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	11417 + * thrown and idx remains unchanged.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11418 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11419 +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	11420 + in
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 + assert(idx >= 0 && idx < s.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11423 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11424 + out (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11425 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11426 + assert(isValidDchar(result));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11427 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11428 + body
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11429 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11430 + size_t len = s.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11431 + dchar V;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11432 + size_t i = idx;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11433 + char u = s[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11434 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11435 + if (u & 0x80)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11436 + { uint n;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11437 + char u2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11438 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11439 + /* 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	11440 + * combinations:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11441 + * 0xxxxxxx
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11442 + * 110xxxxx 10xxxxxx
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11443 + * 1110xxxx 10xxxxxx 10xxxxxx
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11444 + * 11110xxx 10xxxxxx 10xxxxxx 10xxxxxx
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11445 + * 111110xx 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11446 + * 1111110x 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11447 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11448 + for (n = 1; ; n++)
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 + if (n > 4)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11451 + 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	11452 + if (((u << n) & 0x80) == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11453 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11454 + if (n == 1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11455 + goto Lerr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11456 + break;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11460 + // 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	11461 + 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	11462 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11463 + if (i + (n - 1) >= len)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11464 + goto Lerr; // off end of string
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11465 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11466 + /* 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	11467 + * 1100000x (10xxxxxx)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11468 + * 11100000 100xxxxx (10xxxxxx)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11469 + * 11110000 1000xxxx (10xxxxxx 10xxxxxx)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11470 + * 11111000 10000xxx (10xxxxxx 10xxxxxx 10xxxxxx)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11471 + * 11111100 100000xx (10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx)
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 + u2 = s[i + 1];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11474 + if ((u & 0xFE) == 0xC0 \|\|
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11475 + (u == 0xE0 && (u2 & 0xE0) == 0x80) \|\|
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11476 + (u == 0xF0 && (u2 & 0xF0) == 0x80) \|\|
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11477 + (u == 0xF8 && (u2 & 0xF8) == 0x80) \|\|
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11478 + (u == 0xFC && (u2 & 0xFC) == 0x80))
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11479 + goto Lerr; // overlong combination
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11480 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11481 + 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	11482 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11483 + u = s[i + j];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11484 + if ((u & 0xC0) != 0x80)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11485 + goto Lerr; // trailing bytes are 10xxxxxx
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11486 + V = (V << 6) \| (u & 0x3F);
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 + if (!isValidDchar(V))
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11489 + goto Lerr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11490 + i += n;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11491 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11492 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11493 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11494 + V = cast(dchar) u;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11495 + i++;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11498 + idx = i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11499 + return V;
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 + Lerr:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11502 + onUnicodeError("invalid UTF-8 sequence", i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11503 + return V; // dummy return
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11504 + }
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 +unittest
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11507 +{ size_t i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11508 + dchar c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11509 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11510 + 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	11511 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11512 + static s1 = "abcd"c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11513 + i = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11514 + c = decode(s1, i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11515 + assert(c == cast(dchar)'a');
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11516 + assert(i == 1);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11517 + c = decode(s1, i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11518 + assert(c == cast(dchar)'b');
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11519 + assert(i == 2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11520 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11521 + static s2 = "\xC2\xA9"c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11522 + i = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11523 + c = decode(s2, i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11524 + assert(c == cast(dchar)'\u00A9');
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11525 + assert(i == 2);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11526 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11527 + static s3 = "\xE2\x89\xA0"c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11528 + i = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11529 + c = decode(s3, i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11530 + assert(c == cast(dchar)'\u2260');
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11531 + assert(i == 3);
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 + static s4 =
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11534 + [ "\xE2\x89"c, // too short
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11535 + "\xC0\x8A",
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11536 + "\xE0\x80\x8A",
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11537 + "\xF0\x80\x80\x8A",
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11538 + "\xF8\x80\x80\x80\x8A",
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11539 + "\xFC\x80\x80\x80\x80\x8A",
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11540 + ];
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 + 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	11543 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11544 + try
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11545 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11546 + i = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11547 + c = decode(s4[j], i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11548 + assert(0);
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 + catch (Object o)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11551 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11552 + i = 23;
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 + assert(i == 23);
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 +}
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 +/** ditto */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11559 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11560 +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	11561 + in
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11562 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11563 + assert(idx >= 0 && idx < s.length);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11564 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11565 + out (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11566 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11567 + assert(isValidDchar(result));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11568 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11569 + body
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11570 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11571 + string msg;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11572 + dchar V;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11573 + size_t i = idx;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11574 + uint u = s[i];
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 + if (u & ~0x7F)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11577 + { if (u >= 0xD800 && u <= 0xDBFF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11578 + { uint u2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11579 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11580 + if (i + 1 == s.length)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11581 + { 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	11582 + goto Lerr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11583 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11584 + u2 = s[i + 1];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11585 + if (u2 < 0xDC00 \|\| u2 > 0xDFFF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11586 + { 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	11587 + goto Lerr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11588 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11589 + u = ((u - 0xD7C0) << 10) + (u2 - 0xDC00);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11590 + i += 2;
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 (u >= 0xDC00 && u <= 0xDFFF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11593 + { msg = "unpaired surrogate UTF-16 value";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11594 + goto Lerr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11595 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11596 + else if (u == 0xFFFE \|\| u == 0xFFFF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11597 + { msg = "illegal UTF-16 value";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11598 + goto Lerr;
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 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11602 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11603 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11604 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11605 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11606 + }
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 + idx = i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11609 + return cast(dchar)u;
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 + Lerr:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11612 + onUnicodeError(msg, i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11613 + return cast(dchar)u; // dummy return
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11614 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11615 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11616 +/** ditto */
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 +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	11619 + in
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11620 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11621 + assert(idx >= 0 && idx < s.length);
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 + body
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11624 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11625 + size_t i = idx;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11626 + dchar c = s[i];
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 + if (!isValidDchar(c))
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11629 + goto Lerr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11630 + idx = i + 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11631 + return c;
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 + Lerr:
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11634 + onUnicodeError("invalid UTF-32 value", i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11635 + return c; // dummy return
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 +
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 +/* =================== Encode ======================= */
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 +/*******************************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11642 + * 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	11643 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11644 +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	11645 + in
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 + assert(isValidDchar(c));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11648 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11649 + body
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 + char[] r = s;
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 + if (c <= 0x7F)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11654 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11655 + r ~= cast(char) c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11656 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11657 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11658 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11659 + char[4] buf;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11660 + uint L;
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 + if (c <= 0x7FF)
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 + 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	11665 + 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	11666 + L = 2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11667 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11668 + else if (c <= 0xFFFF)
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 + 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	11671 + 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	11672 + 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	11673 + L = 3;
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 + else if (c <= 0x10FFFF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11676 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11677 + 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	11678 + 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	11679 + 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	11680 + 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	11681 + L = 4;
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
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 + assert(0);
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 + r ~= buf[0 .. L];
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 + s = r;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11690 + }
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 +unittest
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 + 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	11695 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11696 + char[] s = "abcd".dup;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11697 + encode(s, cast(dchar)'a');
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11698 + assert(s.length == 5);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11699 + assert(s == "abcda");
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 + encode(s, cast(dchar)'\u00A9');
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11702 + assert(s.length == 7);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11703 + assert(s == "abcda\xC2\xA9");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11704 + //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	11705 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11706 + encode(s, cast(dchar)'\u2260');
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11707 + assert(s.length == 10);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11708 + 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	11709 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11710 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11711 +/** ditto */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11712 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11713 +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	11714 + in
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11715 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11716 + assert(isValidDchar(c));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11717 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11718 + body
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11719 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11720 + wchar[] r = s;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11721 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11722 + if (c <= 0xFFFF)
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 + r ~= cast(wchar) c;
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 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11727 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11728 + wchar[2] buf;
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 + 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	11731 + 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	11732 + r ~= buf;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11733 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11734 + s = r;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11735 + }
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 +/** ditto */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11738 +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	11739 + in
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11740 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11741 + assert(isValidDchar(c));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11742 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11743 + body
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 + s ~= c;
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 +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	11750 +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	11751 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11752 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11753 +ubyte codeLength(C)(dchar c)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11754 +{
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 + static if (C.sizeof == 1)
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
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11759 + c <= 0x7F ? 1
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11760 + : c <= 0x7FF ? 2
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11761 + : c <= 0xFFFF ? 3
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11762 + : c <= 0x10FFFF ? 4
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11763 + : (assert(false), 6);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11764 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11765 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11766 + else static if (C.sizeof == 2)
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 + return c <= 0xFFFF ? 1 : 2;
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 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11771 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11772 + static assert(C.sizeof == 4);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11773 + return 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11774 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11775 +}
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 +/* =================== Validation ======================= */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11778 +
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 +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	11781 + 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	11782 + 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	11783 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11784 +void validate(S)(in S s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11785 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11786 + auto len = s.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11787 + 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	11788 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11789 + decode(s, i);
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 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11792 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11793 +/* =================== Conversion to UTF8 ======================= */
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 +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	11796 + in
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11797 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11798 + assert(isValidDchar(c));
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 + body
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11801 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11802 + if (c <= 0x7F)
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 + buf[0] = cast(char) c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11805 + return buf[0 .. 1];
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 + else if (c <= 0x7FF)
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 + 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	11810 + 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	11811 + return buf[0 .. 2];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11812 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11813 + else if (c <= 0xFFFF)
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 + 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	11816 + 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	11817 + 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	11818 + return buf[0 .. 3];
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 + else if (c <= 0x10FFFF)
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 + 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	11823 + 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	11824 + 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	11825 + 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	11826 + return buf[0 .. 4];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11827 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11828 + assert(0);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11829 + }
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 +/*******************
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11832 + * 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	11833 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11834 +string toUTF8(string s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11835 + in
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 + validate(s);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11838 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11839 + body
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11840 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11841 + return s;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11842 + }
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 +/** ditto */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11845 +string toUTF8(in wchar[] s)
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 + char[] r;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11848 + size_t i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11849 + size_t slen = s.length;
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 + r.length = slen;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11852 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11853 + for (i = 0; i < slen; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11854 + { wchar c = s[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11855 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11856 + if (c <= 0x7F)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11857 + 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	11858 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11859 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11860 + r.length = i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11861 + foreach (dchar c; s[i .. slen])
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 + encode(r, c);
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 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11866 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11867 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11868 + return cast(string)r;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11871 +/** ditto */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11872 +string toUTF8(in dchar[] s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11873 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11874 + char[] r;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11875 + size_t i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11876 + size_t slen = s.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11877 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11878 + r.length = slen;
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 + for (i = 0; i < slen; i++)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11881 + { dchar c = s[i];
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 + if (c <= 0x7F)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11884 + 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	11885 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11886 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11887 + r.length = i;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11888 + foreach (dchar d; s[i .. slen])
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11889 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11890 + encode(r, d);
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 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11893 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11894 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11895 + return cast(string)r;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11898 +/* =================== Conversion to UTF16 ======================= */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11899 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11900 +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	11901 + in
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 + assert(isValidDchar(c));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11904 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11905 + body
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 + if (c <= 0xFFFF)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11908 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11909 + buf[0] = cast(wchar) c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11910 + return buf[0 .. 1];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11911 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11912 + else
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 + 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	11915 + 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	11916 + return buf[0 .. 2];
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 +
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 + * 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	11922 + * 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	11923 + * an LPWSTR or LPCWSTR argument.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11924 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11925 +wstring toUTF16(in char[] s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11926 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11927 + wchar[] r;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11928 + size_t slen = s.length;
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;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11931 + r.length = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11932 + 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	11933 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11934 + dchar c = s[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11935 + if (c <= 0x7F)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11936 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11937 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11938 + r ~= cast(wchar)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 + else
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 + c = decode(s, i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11943 + encode(r, c);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11944 + }
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 + return cast(wstring)r;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11947 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11948 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11949 +alias const(wchar)* wptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11950 +/** ditto */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11951 +wptr toUTF16z(in char[] s)
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 + wchar[] r;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11954 + size_t slen = s.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11955 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11956 + r.length = slen + 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11957 + r.length = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11958 + 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	11959 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11960 + dchar c = s[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11961 + if (c <= 0x7F)
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 + i++;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11964 + r ~= cast(wchar)c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11965 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11966 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11967 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11968 + c = decode(s, i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11969 + encode(r, c);
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 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11972 + r ~= "\000";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11973 + return r.ptr;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11974 +}
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 +/** ditto */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11977 +wstring toUTF16(wstring s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11978 + in
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 + validate(s);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11981 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11982 + body
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11983 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11984 + return s;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11987 +/** ditto */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11988 +wstring toUTF16(in dchar[] s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11989 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11990 + wchar[] r;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11991 + size_t slen = s.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11992 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11993 + r.length = slen;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11994 + r.length = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11995 + 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	11996 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11997 + encode(r, s[i]);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11998 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	11999 + return cast(wstring)r;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12000 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12001 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12002 +/* =================== Conversion to UTF32 ======================= */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12003 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12004 +/*****
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12005 + * 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	12006 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12007 +dstring toUTF32(in char[] s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12008 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12009 + dchar[] r;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12010 + size_t slen = s.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12011 + size_t j = 0;
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 + 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	12014 + 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	12015 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12016 + dchar c = s[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12017 + if (c >= 0x80)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12018 + c = decode(s, i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12019 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12020 + 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	12021 + r[j++] = c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12022 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12023 + return cast(dstring)r[0 .. j];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12024 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12025 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12026 +/** ditto */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12027 +dstring toUTF32(in wchar[] s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12028 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12029 + dchar[] r;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12030 + size_t slen = s.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12031 + size_t j = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12032 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12033 + 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	12034 + 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	12035 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12036 + dchar c = s[i];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12037 + if (c >= 0x80)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12038 + c = decode(s, i);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12039 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12040 + 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	12041 + r[j++] = c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12042 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12043 + return cast(dstring)r[0 .. j];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12044 +}
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 +/** ditto */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12047 +dstring toUTF32(dstring s)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12048 + in
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12049 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12050 + validate(s);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12051 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12052 + body
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12053 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12054 + return s;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12055 + }
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 +/* ================================ tests ================================== */
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 +unittest
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 + 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	12062 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12063 + auto c = "hello"c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12064 + auto w = toUTF16(c);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12065 + assert(w == "hello");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12066 + auto d = toUTF32(c);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12067 + assert(d == "hello");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12068 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12069 + c = toUTF8(w);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12070 + assert(c == "hello");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12071 + d = toUTF32(w);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12072 + assert(d == "hello");
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 + c = toUTF8(d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12075 + assert(c == "hello");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12076 + w = toUTF16(d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12077 + assert(w == "hello");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12078 +
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 + c = "hel\u1234o";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12081 + w = toUTF16(c);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12082 + assert(w == "hel\u1234o");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12083 + d = toUTF32(c);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12084 + assert(d == "hel\u1234o");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12085 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12086 + c = toUTF8(w);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12087 + assert(c == "hel\u1234o");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12088 + d = toUTF32(w);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12089 + assert(d == "hel\u1234o");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12090 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12091 + c = toUTF8(d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12092 + assert(c == "hel\u1234o");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12093 + w = toUTF16(d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12094 + assert(w == "hel\u1234o");
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12097 + c = "he\U0010AAAAllo";
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12098 + w = toUTF16(c);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12099 + //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	12100 + //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	12101 + assert(w == "he\U0010AAAAllo");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12102 + d = toUTF32(c);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12103 + assert(d == "he\U0010AAAAllo");
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 + c = toUTF8(w);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12106 + assert(c == "he\U0010AAAAllo");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12107 + d = toUTF32(w);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12108 + assert(d == "he\U0010AAAAllo");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12109 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12110 + c = toUTF8(d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12111 + assert(c == "he\U0010AAAAllo");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12112 + w = toUTF16(d);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12113 + assert(w == "he\U0010AAAAllo");
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 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	12116 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12117 --- 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	12118 +++ 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	12119 @@ -0,0 +1,49 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12120 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12121 + * 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	12122 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12123 + * Copyright: Public Domain
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12124 + * License: Public Domain
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12125 + * Authors: Sean Kelly
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12126 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12127 +module rt.util.console;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12128 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12129 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12130 +private
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 + version (Windows)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12133 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12134 + import core.sys.windows.windows;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12135 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12136 + else version( Posix )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12137 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12138 + import core.sys.posix.unistd;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12139 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12140 + import util.string;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12143 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12144 +struct Console
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12145 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12146 + Console opCall( in char[] val )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12147 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12148 + version( Windows )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12149 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12150 + uint count = void;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12151 + 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	12152 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12153 + else version( Posix )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12154 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12155 + write( 2, val.ptr, val.length );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12156 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12157 + return *this;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12158 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12159 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12160 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12161 + Console opCall( uint val )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12162 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12163 + char[10] tmp = void;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12164 + return opCall( tmp.intToString( val ) );
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12168 +Console console;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12169 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	12170 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12171 --- 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	12172 +++ 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	12173 @@ -0,0 +1,106 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12174 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12175 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12176 + * 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	12177 + * Written by Walter Bright
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12178 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12179 + * 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	12180 + * 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	12181 + * 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	12182 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12183 + * 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	12184 + * 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	12185 + * 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	12186 + * restrictions:
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 + * 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	12189 + * 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	12190 + * 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	12191 + * appreciated but is not required.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12192 + * 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	12193 + * 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	12194 + * 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	12195 + * distribution.
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12198 +// Simple ASCII char classification functions
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12199 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12200 +module rt.util.ctype;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12201 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12202 +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	12203 +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	12204 +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	12205 +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	12206 +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	12207 +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	12208 +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	12209 +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	12210 +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	12211 +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	12212 +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	12213 +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	12214 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12215 +dchar tolower(dchar c)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12216 + out (result)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12217 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12218 + assert(!isupper(result));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12219 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12220 + body
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12221 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12222 + 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	12223 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12224 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12225 +dchar toupper(dchar c)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12226 + out (result)
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 + assert(!islower(result));
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 + body
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12231 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12232 + 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	12233 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12234 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12235 +private:
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 +enum
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 + _SPC = 8,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12240 + _CTL = 0x20,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12241 + _BLK = 0x40,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12242 + _HEX = 0x80,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12243 + _UC = 1,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12244 + _LC = 2,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12245 + _PNC = 0x10,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12246 + _DIG = 4,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12247 + _ALP = _UC\|_LC,
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12250 +ubyte _ctype[128] =
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 + _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	12253 + _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	12254 + _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	12255 + _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	12256 + _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	12257 + _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	12258 + _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	12259 + _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	12260 + _PNC,_PNC,_PNC,_PNC,_PNC,_PNC,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12261 + _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	12262 + _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	12263 + _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	12264 + _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	12265 + _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	12266 + _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	12267 + _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	12268 + _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	12269 +];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12270 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12271 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12272 +unittest
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12273 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12274 + assert(isspace(' '));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12275 + assert(!isspace('z'));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12276 + assert(toupper('a') == 'A');
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12277 + assert(tolower('Q') == 'q');
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12278 + assert(!isxdigit('G'));
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12279 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12280 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	12281 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12282 --- 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	12283 +++ 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	12284 @@ -0,0 +1,35 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12285 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12286 + * 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	12287 + * 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	12288 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12289 + * 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	12290 + * License: BSD Style, see LICENSE
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12291 + * Authors: Sean Kelly
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 +module rt.util.string;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12294 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12295 +private import core.stdc.string;
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 +char[] intToString( char[] buf, uint val )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12298 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12299 + assert( buf.length > 9 );
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12300 + auto p = buf.ptr + buf.length;
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 + do
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12303 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12304 + *--p = cast(char)(val % 10 + '0');
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12305 + } while( val /= 10 );
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 + return buf[p - buf.ptr .. $];
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12308 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12309 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12310 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12311 +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	12312 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12313 + auto len = s1.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12314 + if( s2.length < len )
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12315 + len = s2.length;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12316 + 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	12317 + return 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12318 + 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	12319 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12320 Index: src/compiler/ldc/invariant.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12321 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12322 --- 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	12323 +++ 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	12324 @@ -0,0 +1,25 @@
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 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12327 + * Placed into the Public Domain
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12328 + * written by Walter Bright
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12329 + * www.digitalmars.com
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12330 + */
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 +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	12333 +{ ClassInfo c;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12334 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12335 + //printf("__d_invariant(%p)\n", o);
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 + // 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	12338 + 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	12339 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12340 + c = o.classinfo;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12341 + do
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12342 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12343 + if (c.classInvariant)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12344 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12345 + (*c.classInvariant)(o);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12346 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12347 + c = c.base;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12348 + } while (c);
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 Index: src/compiler/ldc/eh.d
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12351 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12352 --- 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	12353 +++ 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	12354 @@ -0,0 +1,388 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12355 +/**
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12356 + * 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	12357 + * exception handling.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12358 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12359 +module eh;
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 +import util.console;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12362 +import ldc.cstdarg;
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 +// debug = EH_personality;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12365 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12366 +// current EH implementation works on x86
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12367 +// 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	12368 +version(X86) {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12369 + version(linux) version=X86_UNWIND;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12370 + version(darwin) version=X86_UNWIND;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12371 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12372 +version(X86_64) {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12373 + version(linux) version=X86_UNWIND;
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 +private extern(C) void abort();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12377 +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	12378 +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	12379 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12380 +// D runtime functions
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12381 +extern(C) {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12382 + 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	12383 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12384 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12385 +// libunwind headers
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12386 +extern(C)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12387 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12388 + enum _Unwind_Reason_Code
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 + NO_REASON = 0,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12391 + FOREIGN_EXCEPTION_CAUGHT = 1,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12392 + FATAL_PHASE2_ERROR = 2,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12393 + FATAL_PHASE1_ERROR = 3,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12394 + NORMAL_STOP = 4,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12395 + END_OF_STACK = 5,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12396 + HANDLER_FOUND = 6,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12397 + INSTALL_CONTEXT = 7,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12398 + CONTINUE_UNWIND = 8
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12401 + enum _Unwind_Action
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 + SEARCH_PHASE = 1,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12404 + CLEANUP_PHASE = 2,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12405 + HANDLER_PHASE = 3,
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12406 + FORCE_UNWIND = 4
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12407 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12408 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12409 + alias void* _Unwind_Context_Ptr;
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 + 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	12412 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12413 + struct _Unwind_Exception
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12414 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12415 + char[8] exception_class;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12416 + _Unwind_Exception_Cleanup_Fn exception_cleanup;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12417 + int private_1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12418 + int private_2;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12421 +version(X86_UNWIND)
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 + void _Unwind_Resume(_Unwind_Exception*);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12424 + _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	12425 + 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	12426 + 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	12427 + 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	12428 + 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	12429 + 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	12430 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12431 +else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12432 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12433 + // runtime calls these directly
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12434 + void _Unwind_Resume(_Unwind_Exception*)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12435 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12436 + 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	12437 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12438 + _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	12439 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12440 + 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	12441 + 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	12442 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12443 +}
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 +}
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 +// error and exit
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12448 +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	12449 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12450 + va_list args;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12451 + va_start(args, format);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12452 + printf("Fatal error in EH code: ");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12453 + vprintf(format, args);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12454 + printf("\n");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12455 + abort();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12456 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12457 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12458 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12459 +// helpers for reading certain DWARF data
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12460 +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	12461 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12462 + res = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12463 + size_t bitsize = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12464 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12465 + // 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	12466 + while(*addr & 0x80) {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12467 + res \|= (*addr & 0x7f) << bitsize;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12468 + bitsize += 7;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12469 + addr += 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12470 + if(bitsize >= size_t.sizeof*8)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12471 + 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	12472 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12473 + // read last
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12474 + 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	12475 + 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	12476 + res \|= (*addr) << bitsize;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12477 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12478 + return addr + 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12479 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12480 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12481 +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	12482 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12483 + res = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12484 + size_t bitsize = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12485 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12486 + // 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	12487 + while(*addr & 0x80) {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12488 + res \|= (*addr & 0x7f) << bitsize;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12489 + bitsize += 7;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12490 + addr += 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12491 + if(bitsize >= size_t.sizeof*8)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12492 + 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	12493 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12494 + // read last
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12495 + 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	12496 + 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	12497 + res \|= (*addr) << bitsize;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12498 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12499 + // take care of sign
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12500 + 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	12501 + 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	12502 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12503 + return addr + 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12504 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12505 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12506 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12507 +// exception struct used by the runtime.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12508 +// _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	12509 +// _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	12510 +// 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	12511 +// surrounding the unwind info.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12512 +struct _d_exception
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 + Object exception_object;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12515 + _Unwind_Exception unwind_info;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12516 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12517 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12518 +// 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	12519 +// 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	12520 +//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	12521 +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	12522 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12523 +
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 +// 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	12526 +// and helpers
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12527 +//
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12528 +version(X86_UNWIND)
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12531 +// 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	12532 +// 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	12533 +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	12534 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12535 + // 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	12536 + if(ver != 1)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12537 + 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	12538 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12539 + // check exceptionClass
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12540 + //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	12541 + 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	12542 + 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	12543 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12544 + // 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	12545 + // 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	12546 + // 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	12547 + // 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	12548 + ubyte* callsite_table;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12549 + ubyte* action_table;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12550 + ClassInfo* classinfo_table;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12551 + _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	12552 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12553 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12554 + /*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12555 + 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	12556 + the callsite_table
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12557 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12558 + ubyte* callsite_walker = callsite_table;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12559 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12560 + // get the instruction pointer
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12561 + // 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	12562 + // -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	12563 + ulong ip = _Unwind_GetIP(context) - 1;
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 + // address block_start is relative to
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12566 + ulong region_start = _Unwind_GetRegionStart(context);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12567 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12568 + // table entries
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12569 + uint block_start_offset, block_size;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12570 + ulong landing_pad;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12571 + size_t action_offset;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12572 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12573 + while(true) {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12574 + // 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	12575 + if(callsite_walker >= action_table)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12576 + return _Unwind_Reason_Code.CONTINUE_UNWIND;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12577 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12578 + 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	12579 + 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	12580 + 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	12581 + if(landing_pad)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12582 + landing_pad += region_start;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12583 + 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	12584 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12585 + 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	12586 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12587 + // 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	12588 + // 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	12589 + 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	12590 + return _Unwind_Reason_Code.CONTINUE_UNWIND;
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 + // 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	12593 + 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	12594 + break;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12595 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12596 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12597 + 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	12598 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12599 + // 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	12600 + // 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	12601 + // the runtime allocated. get that now
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12602 + _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	12603 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12604 + // 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	12605 + if(!action_offset && !landing_pad)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12606 + return _Unwind_Reason_Code.CONTINUE_UNWIND;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12607 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12608 + // 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	12609 + else if(!action_offset && landing_pad)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12610 + 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	12611 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12612 + /*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12613 + 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	12614 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12615 + 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	12616 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12617 + 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	12618 + while(true) {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12619 + 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	12620 + // 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	12621 + // 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	12622 + 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	12623 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12624 + // 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	12625 + if(!(ti_offset >= 0))
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12626 + fatalerror("Filter actions are unsupported");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12627 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12628 + // 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	12629 + if(ti_offset == 0) {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12630 + if(!(next_action_offset == 0))
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12631 + 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	12632 + 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	12633 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12634 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12635 + // 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	12636 + // exception structure is a base
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12637 + 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	12638 + 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	12639 + 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	12640 + 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	12641 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12642 + // 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	12643 + if(next_action_offset == 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12644 + return _Unwind_Reason_Code.CONTINUE_UNWIND;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12645 + else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12646 + action_walker += next_action_offset;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12647 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12648 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12649 + fatalerror("reached unreachable");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12650 + 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	12651 +}
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 +// 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	12654 +// 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	12655 +// will pick up.
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12656 +// Found by trial-and-error :/
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12657 +version (X86_64)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12658 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12659 + private int eh_exception_regno = 3;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12660 + private int eh_selector_regno = 1;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12661 +} else {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12662 + private int eh_exception_regno = 0;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12663 + private int eh_selector_regno = 2;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12664 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12665 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12666 +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	12667 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12668 + 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	12669 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12670 + if(actions & _Unwind_Action.SEARCH_PHASE)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12671 + return _Unwind_Reason_Code.HANDLER_FOUND;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12672 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12673 + 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	12674 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12675 + 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	12676 + _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	12677 + _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	12678 + _Unwind_SetIP(context, landing_pad);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12679 + return _Unwind_Reason_Code.INSTALL_CONTEXT;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12680 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12681 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12682 + fatalerror("reached unreachable");
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12683 + 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	12684 +}
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 +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	12687 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12688 + // 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	12689 + if(actions & _Unwind_Action.SEARCH_PHASE)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12690 + return _Unwind_Reason_Code.CONTINUE_UNWIND;
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 + 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	12693 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12694 + _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	12695 + _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	12696 + _Unwind_SetIP(context, landing_pad);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12697 + return _Unwind_Reason_Code.INSTALL_CONTEXT;
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12700 +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	12701 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12702 + 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	12703 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12704 + //TODO: Do proper DWARF reading here
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12705 + if(*data++ != 0xff)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12706 + 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	12707 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12708 + if(*data++ != 0x00)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12709 + 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	12710 + size_t cioffset;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12711 + data = get_uleb128(data, cioffset);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12712 + ci = cast(ClassInfo*)(data + cioffset);
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 + if(*data++ != 0x03)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12715 + 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	12716 + size_t callsitelength;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12717 + data = get_uleb128(data, callsitelength);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12718 + action = data + callsitelength;
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 + callsite = data;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12721 +}
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 +} // end of x86 Linux specific implementation
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12724 +
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 +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	12727 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12728 + if (e !is null)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12729 + {
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12730 + _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	12731 + 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	12732 + exc_struct.exception_object = e;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12733 + _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	12734 + 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	12735 + }
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12736 + abort();
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 +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	12740 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12741 + _Unwind_Resume(&exception_struct.unwind_info);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12742 +}
763 9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	12743 Index: import/object.di
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	12744 ===================================================================
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	12745 --- import/object.di (revision 46)
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	12746 +++ import/object.di (working copy)
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	12747 @@ -208,6 +208,13 @@
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	12748 void function() dtor;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	12749 void function() unitTest;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	12750
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	12751 + // 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	12752 + version( LDC )
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	12753 + {
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	12754 + void* xgetMembers;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	12755 + void function() ictor;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	12756 + }
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	12757 +
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	12758 static int opApply(int delegate(inout ModuleInfo));
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	12759 }
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	12760
768 85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12761 Index: import/ldc/intrinsics.di
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12762 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12763 --- import/ldc/intrinsics.di (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12764 +++ import/ldc/intrinsics.di (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12765 @@ -0,0 +1,343 @@
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 + * 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	12768 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12769 + * 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	12770 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12771 + * - 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	12772 + *
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12773 + */
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 +module ldc.intrinsics;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12776 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12777 +// Check for the right compiler
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12778 +version(LDC)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12779 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12780 + // OK
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12781 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12782 +else
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 + 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	12785 +}
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 +//
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12788 +// CODE GENERATOR INTRINSICS
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12789 +//
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12790 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12791 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12792 +// 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	12793 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12794 +pragma(intrinsic, "llvm.returnaddress")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12795 + void* llvm_returnaddress(uint level);
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12798 +// 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	12799 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12800 +pragma(intrinsic, "llvm.frameaddress")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12801 + void* llvm_frameaddress(uint level);
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.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	12805 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12806 +pragma(intrinsic, "llvm.stacksave")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12807 + void* llvm_stacksave();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12808 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12809 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12810 +// 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	12811 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12812 +pragma(intrinsic, "llvm.stackrestore")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12813 + void llvm_stackrestore(void* ptr);
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 +// 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	12817 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12818 +pragma(intrinsic, "llvm.prefetch")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12819 + 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	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 +// 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	12823 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12824 +pragma(intrinsic, "llvm.pcmarker")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12825 + void llvm_pcmarker(uint id);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12826 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12827 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12828 +// 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	12829 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12830 +pragma(intrinsic, "llvm.readcyclecounter")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12831 + ulong readcyclecounter();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12832 +
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 +
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 +// STANDARD C LIBRARY INTRINSICS
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12838 +//
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 +// 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	12842 +// 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	12843 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12844 +pragma(intrinsic, "llvm.memcpy.i32")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12845 + 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	12846 +pragma(intrinsic, "llvm.memcpy.i64")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12847 + 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	12848 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12849 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12850 +// 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	12851 +// 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	12852 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12853 +pragma(intrinsic, "llvm.memmove.i32")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12854 + 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	12855 +pragma(intrinsic, "llvm.memmove.i64")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12856 + 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	12857 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12858 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12859 +// 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	12860 +// 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	12861 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12862 +pragma(intrinsic, "llvm.memset.i32")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12863 + 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	12864 +pragma(intrinsic, "llvm.memset.i64")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12865 + 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	12866 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12867 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12868 +// 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	12869 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12870 +pragma(intrinsic, "llvm.sqrt.f32")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12871 + float llvm_sqrt_f32(float val);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12872 +pragma(intrinsic, "llvm.sqrt.f64")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12873 + double llvm_sqrt_f64(double val);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12874 +version(X86)
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.sqrt.f80")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12877 + real llvm_sqrt_f80(real val);
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 +version(X86_64)
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 +pragma(intrinsic, "llvm.sqrt.f80")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12883 + real llvm_sqrt_f80(real val);
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 +
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 +// 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	12888 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12889 +pragma(intrinsic, "llvm.sin.f32")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12890 + float llvm_sin_f32(float val);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12891 +pragma(intrinsic, "llvm.sin.f64")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12892 + double llvm_sin_f64(double val);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12893 +version(X86)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12894 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12895 +pragma(intrinsic, "llvm.sin.f80")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12896 + real llvm_sin_f80(real val);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12897 +}
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 +version(X86_64)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12900 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12901 +pragma(intrinsic, "llvm.sin.f80")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12902 + real llvm_sin_f80(real val);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12903 +}
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12906 +// 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	12907 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12908 +pragma(intrinsic, "llvm.cos.f32")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12909 + float llvm_cos_f32(float val);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12910 +pragma(intrinsic, "llvm.cos.f64")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12911 + double llvm_cos_f64(double val);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12912 +version(X86)
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.cos.f80")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12915 + real llvm_cos_f80(real val);
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12918 +version(X86_64)
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.cos.f80")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12921 + real llvm_cos_f80(real val);
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12924 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12925 +// 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	12926 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12927 +pragma(intrinsic, "llvm.powi.f32")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12928 + 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	12929 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12930 +pragma(intrinsic, "llvm.powi.f64")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12931 + 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	12932 +version(X86)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12933 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12934 +pragma(intrinsic, "llvm.powi.f80")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12935 + 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	12936 +}
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 +version(X86_64)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12939 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12940 +pragma(intrinsic, "llvm.powi.f80")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12941 + 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	12942 +}
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 +// 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	12945 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12946 +pragma(intrinsic, "llvm.pow.f32")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12947 + 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	12948 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12949 +pragma(intrinsic, "llvm.pow.f64")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12950 + 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	12951 +version(X86)
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.pow.f80")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12954 + 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	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 +version(X86_64)
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 +pragma(intrinsic, "llvm.pow.f80")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12960 + 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	12961 +}
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 +// BIT MANIPULATION INTRINSICS
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12968 +// 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	12969 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12970 +pragma(intrinsic, "llvm.bswap.i16.i16")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12971 + ushort llvm_bswap_i16(ushort val);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12972 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12973 +pragma(intrinsic, "llvm.bswap.i32.i32")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12974 + uint llvm_bswap_i32(uint val);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12975 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12976 +pragma(intrinsic, "llvm.bswap.i64.i64")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12977 + ulong llvm_bswap_i64(ulong val);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12978 +
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 +// 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	12981 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12982 +pragma(intrinsic, "llvm.ctpop.i8")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12983 + ubyte llvm_ctpop_i8(ubyte src);
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 +pragma(intrinsic, "llvm.ctpop.i16")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12986 + ushort llvm_ctpop_i16(ushort src);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12987 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12988 +pragma(intrinsic, "llvm.ctpop.i32")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12989 + uint llvm_ctpop_i32(uint src);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12990 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12991 +pragma(intrinsic, "llvm.ctpop.i64")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12992 + ulong llvm_ctpop_i64(ulong src);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12993 +
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 +// 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	12996 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12997 +pragma(intrinsic, "llvm.ctlz.i8")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12998 + ubyte llvm_ctlz_i8(ubyte src);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	12999 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13000 +pragma(intrinsic, "llvm.ctlz.i16")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13001 + ushort llvm_ctlz_i16(ushort src);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13002 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13003 +pragma(intrinsic, "llvm.ctlz.i32")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13004 + uint llvm_ctlz_i32(uint src);
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 +pragma(intrinsic, "llvm.ctlz.i64")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13007 + ulong llvm_ctlz_i64(ulong src);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13008 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13009 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13010 +// 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	13011 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13012 +pragma(intrinsic, "llvm.cttz.i8")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13013 + ubyte llvm_cttz_i8(ubyte src);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13014 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13015 +pragma(intrinsic, "llvm.cttz.i16")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13016 + ushort llvm_cttz_i16(ushort src);
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 +pragma(intrinsic, "llvm.cttz.i32")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13019 + uint llvm_cttz_i32(uint src);
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 +pragma(intrinsic, "llvm.cttz.i64")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13022 + ulong llvm_cttz_i64(ulong src);
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13025 +// 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	13026 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13027 +pragma(intrinsic, "llvm.part.select.i8")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13028 + 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	13029 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13030 +pragma(intrinsic, "llvm.part.select.i16")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13031 + 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	13032 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13033 +pragma(intrinsic, "llvm.part.select.i32")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13034 + 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	13035 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13036 +pragma(intrinsic, "llvm.part.select.i64")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13037 + 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	13038 +
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 +// 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	13041 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13042 +// TODO
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13043 +// 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	13044 +// 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	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 +
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 +//
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13050 +// ATOMIC OPERATIONS AND SYNCHRONIZATION INTRINSICS
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 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13053 +// 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	13054 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13055 +pragma(intrinsic, "llvm.memory.barrier")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13056 + 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	13057 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13058 +// 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	13059 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13060 +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	13061 + 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	13062 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13063 +// 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	13064 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13065 +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	13066 + 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	13067 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13068 +// 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	13069 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13070 +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	13071 + 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	13072 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13073 +// 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	13074 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13075 +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	13076 + 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	13077 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13078 +// 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	13079 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13080 +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	13081 + 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	13082 +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	13083 + 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	13084 +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	13085 + 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	13086 +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	13087 + 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	13088 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13089 +// 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	13090 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13091 +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	13092 + 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	13093 +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	13094 + 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	13095 +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	13096 + 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	13097 +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	13098 + 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	13099 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13100 +//
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13101 +// GENERAL INTRINSICS
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13102 +//
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13103 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13104 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13105 +// 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	13106 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13107 +pragma(intrinsic, "llvm.trap")
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13108 + void llvm_trap();
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13109 Index: import/ldc/cstdarg.di
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13110 ===================================================================
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13111 --- import/ldc/cstdarg.di (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13112 +++ import/ldc/cstdarg.di (revision 0)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13113 @@ -0,0 +1,29 @@
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13114 +/*
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13115 + * vararg support for extern(C) functions
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13116 + */
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13117 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13118 +module ldc.cstdarg;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13119 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13120 +// Check for the right compiler
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13121 +version(LDC)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13122 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13123 + // OK
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13124 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13125 +else
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13126 +{
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13127 + 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	13128 +}
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13129 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13130 +alias void* va_list;
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13131 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13132 +pragma(va_start)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13133 + 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	13134 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13135 +pragma(va_arg)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13136 + 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	13137 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13138 +pragma(va_end)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13139 + void va_end(va_list args);
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13140 +
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13141 +pragma(va_copy)
85e2093edd73 Updated runtime README a bit. Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 767 diff changeset	13142 + void va_copy(va_list dst, va_list src);
763 9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13143 Index: import/core/stdc/stdarg.d
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13144 ===================================================================
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13145 --- import/core/stdc/stdarg.d (revision 46)
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13146 +++ import/core/stdc/stdarg.d (working copy)
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13147 @@ -9,8 +9,12 @@
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13148 module core.stdc.stdarg;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13149
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13150
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13151 -version( GNU )
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13152 +version( LDC )
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13153 {
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13154 + public import ldc.cstdarg;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13155 +}
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13156 +else version( GNU )
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13157 +{
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13158 public import std.c.stdarg;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13159 }
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13160 else
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13161 Index: import/core/bitmanip.di
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13162 ===================================================================
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13163 --- import/core/bitmanip.di (revision 46)
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13164 +++ import/core/bitmanip.di (working copy)
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13165 @@ -171,6 +171,10 @@
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13166 */
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13167 uint outpl( uint port_address, uint value );
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13168 }
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13169 +else version( LDC )
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13170 +{
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13171 + public import ldc.bitmanip;
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13172 +}
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13173 else
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13174 {
9a9f403ab399 D2 changes! Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: diff changeset	13175 public import std.intrinsic;

Mercurial > projects > ldc

annotate runtime/ldc2.diff @ 883:b52d5de7783f