/ Amiga Tools 4 / Amiga Tools 4.iso / tools / developer-tools / basic / blitzbasic / bb_bugs / d2trash.bb

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 3b 49 20 46 6f 75 | 6e 64 20 74 68 61 74 20 |..;I Fou|nd that |
|00000010| 44 65 66 74 79 70 65 20 | 74 72 61 73 68 65 73 20 |Deftype |trashes |
|00000020| 44 32 20 72 65 67 69 73 | 74 65 72 20 69 66 20 75 |D2 regis|ter if u|
|00000030| 73 65 64 20 69 6e 73 69 | 64 65 20 61 20 73 74 61 |sed insi|de a sta|
|00000040| 74 65 6d 65 6e 74 00 3b | 6f 72 20 61 20 66 75 6e |tement.;|or a fun|
|00000050| 63 74 69 6f 6e 20 77 69 | 74 68 20 61 20 6e 65 77 |ction wi|th a new|
|00000060| 6c 79 20 64 65 66 69 6e | 65 64 20 74 79 70 65 2e |ly defin|ed type.|
|00000070| 00 3b 54 68 65 72 65 20 | 61 72 65 20 61 6c 73 6f |.;There |are also|
|00000080| 20 6f 74 68 65 72 20 62 | 75 67 73 2c 20 72 65 6c | other b|ugs, rel|
|00000090| 61 74 65 64 20 74 6f 20 | 44 65 66 54 79 70 65 2e |ated to |DefType.|
|000000a0| 2e 2e 2e 20 66 6f 6c 6c | 6f 77 20 6d 65 20 74 72 |... foll|ow me tr|
|000000b0| 6f 75 67 68 00 3b 74 68 | 65 20 73 6f 75 72 63 65 |ough.;th|e source|
|000000c0| 20 63 6f 64 65 00 00 00 | 00 3b 4e 6f 72 6d 61 6c | code...|.;Normal|
|000000d0| 20 75 73 65 72 2d 64 65 | 66 69 6e 65 64 20 73 74 | user-de|fined st|
|000000e0| 72 75 63 74 75 72 65 00 | 00 80 01 2e 4d 79 54 79 |ructure.|....MyTy|
|000000f0| 70 65 00 61 2e 6c 00 62 | 2e 77 00 63 2e 62 00 64 |pe.a.l.b|.w.c.b.d|
|00000100| 2e 73 00 65 2e 71 00 80 | 02 20 80 01 00 00 00 3b |.s.e.q..|. .....;|
|00000110| 64 65 66 69 6e 65 20 73 | 6f 6d 65 20 76 61 72 69 |define s|ome vari|
|00000120| 61 62 6c 65 73 20 61 6e | 64 20 70 72 69 6e 74 20 |ables an|d print |
|00000130| 70 61 73 73 65 64 20 70 | 61 72 61 6d 65 74 65 72 |passed p|arameter|
|00000140| 73 00 3b 6e 6f 20 70 72 | 6f 62 6c 65 6d 73 3a 20 |s.;no pr|oblems: |
|00000150| 74 68 69 73 20 66 75 6e | 63 74 69 6f 6e 20 69 73 |this fun|ction is|
|00000160| 20 6f 6b 20 21 00 00 80 | 09 20 4e 6f 5f 54 72 61 | ok !...|. No_Tra|
|00000170| 73 68 7b 44 30 2e 6c 2c | 44 31 2e 6c 2c 44 32 2e |sh{D0.l,|D1.l,D2.|
|00000180| 6c 2c 44 33 2e 6c 2c 44 | 34 2e 6c 2c 44 35 2e 6c |l,D3.l,D|4.l,D5.l|
|00000190| 7d 00 00 20 20 80 33 2e | 71 20 71 2c 71 71 2c 71 |}..  .3.|q q,qq,q|
|000001a0| 71 71 2c 71 71 71 71 00 | 20 20 80 33 2e 6c 20 2a |qq,qqqq.|  .3.l *|
|000001b0| 63 2c 2a 69 2c 2a 61 2c | 2a 6f 00 20 20 80 33 2e |c,*i,*a,|*o.  .3.|
|000001c0| 62 20 2a 65 76 65 72 79 | 6b 69 6e 64 6f 66 76 61 |b *every|kindofva|
|000001d0| 72 00 20 20 80 33 2e 4d | 79 54 79 70 65 20 2a 50 |r.  .3.M|yType *P|
|000001e0| 74 72 5f 54 6f 5f 4d 79 | 54 79 70 65 20 20 20 3b |tr_To_My|Type   ;|
|000001f0| 6c 6f 6f 6b 20 6d 61 2c | 20 6e 6f 20 65 72 72 6f |look ma,| no erro|
|00000200| 72 73 20 69 66 20 49 20 | 75 73 65 20 70 6f 69 6e |rs if I |use poin|
|00000210| 74 65 72 73 20 74 6f 20 | 4e 65 77 54 79 70 65 73 |ters to |NewTypes|
|00000220| 00 00 20 20 dd 82 20 22 | 44 30 3d 22 2c 44 30 00 |..  .. "|D0=",D0.|
|00000230| 20 20 dd 82 20 22 44 31 | 3d 22 2c 44 31 00 20 20 |  .. "D1|=",D1.  |
|00000240| dd 82 20 22 44 32 3d 22 | 2c 44 32 00 20 20 dd 82 |.. "D2="|,D2.  ..|
|00000250| 20 22 44 33 3d 22 2c 44 | 33 00 20 20 dd 82 20 22 | "D3=",D|3.  .. "|
|00000260| 44 34 3d 22 2c 44 34 00 | 20 20 dd 82 20 22 44 35 |D4=",D4.|  .. "D5|
|00000270| 3d 22 2c 44 35 00 00 20 | 20 80 09 20 80 07 20 44 |=",D5.. | .. .. D|
|00000280| 32 00 00 80 02 20 80 09 | 00 00 00 3b 74 68 69 73 |2.... ..|...;this|
|00000290| 20 66 75 6e 63 74 69 6f | 6e 20 74 72 61 73 68 65 | functio|n trashe|
|000002a0| 73 20 44 32 20 62 65 63 | 61 75 73 65 20 6f 66 20 |s D2 bec|ause of |
|000002b0| 74 68 65 20 64 65 66 74 | 79 70 65 2e 4d 79 54 79 |the deft|ype.MyTy|
|000002c0| 70 65 00 3b 61 70 70 61 | 72 65 6e 74 6c 79 20 6e |pe.;appa|rently n|
|000002d0| 6f 20 73 74 61 63 6b 20 | 70 72 6f 62 6c 65 6d 73 |o stack |problems|
|000002e0| 20 62 75 74 20 74 68 65 | 72 65 20 69 73 20 61 20 | but the|re is a |
|000002f0| 6d 61 6c 66 75 6e 63 74 | 69 6f 6e 2e 00 00 80 09 |malfunct|ion.....|
|00000300| 20 54 72 61 73 68 44 32 | 7b 44 30 2e 6c 2c 44 31 | TrashD2|{D0.l,D1|
|00000310| 2e 6c 2c 44 32 2e 6c 7d | 00 00 20 20 80 33 2e 4d |.l,D2.l}|..  .3.M|
|00000320| 79 54 79 70 65 20 42 6f | 6e 6b 20 3b 74 68 69 73 |yType Bo|nk ;this|
|00000330| 20 69 73 20 65 6e 6f 75 | 67 68 20 74 6f 20 6b 69 | is enou|gh to ki|
|00000340| 6c 6c 20 44 32 20 28 73 | 6f 62 2c 73 6f 62 21 29 |ll D2 (s|ob,sob!)|
|00000350| 00 00 20 20 dd 82 20 22 | 44 30 3d 22 2c 44 30 00 |..  .. "|D0=",D0.|
|00000360| 20 20 dd 82 20 22 44 31 | 3d 22 2c 44 31 00 20 20 |  .. "D1|=",D1.  |
|00000370| dd 82 20 22 44 32 3d 22 | 2c 44 32 00 00 20 80 09 |.. "D2="|,D2.. ..|
|00000380| 20 80 07 20 44 32 00 00 | 80 02 20 80 09 00 00 00 | .. D2..|.. .....|
|00000390| 3b 54 68 69 73 20 66 75 | 6e 63 74 69 6f 6e 20 74 |;This fu|nction t|
|000003a0| 72 61 73 68 65 73 20 44 | 32 20 61 6e 64 20 74 68 |rashes D|2 and th|
|000003b0| 65 20 6c 6f 63 61 6c 20 | 73 74 61 63 6b 20 28 49 |e local |stack (I|
|000003c0| 20 73 75 70 70 6f 73 65 | 29 00 3b 63 61 75 73 69 | suppose|).;causi|
|000003d0| 6e 67 20 61 6e 20 49 4e | 46 49 4e 49 54 45 20 4c |ng an IN|FINITE L|
|000003e0| 4f 4f 50 20 21 21 21 21 | 00 00 80 09 20 54 72 61 |OOP !!!!|.... Tra|
|000003f0| 73 68 44 32 5f 53 74 61 | 63 6b 7b 44 30 2e 6c 2c |shD2_Sta|ck{D0.l,|
|00000400| 44 31 2e 6c 2c 44 32 2e | 6c 2c 44 33 2e 6c 2c 44 |D1.l,D2.|l,D3.l,D|
|00000410| 34 2e 6c 2c 44 35 2e 6c | 7d 00 00 20 20 80 33 2e |4.l,D5.l|}..  .3.|
|00000420| 4d 79 54 79 70 65 20 42 | 6f 6e 6b 20 3b 74 68 69 |MyType B|onk ;thi|
|00000430| 73 20 69 73 20 65 6e 6f | 75 67 68 20 74 6f 20 6b |s is eno|ugh to k|
|00000440| 69 6c 6c 20 44 32 20 28 | 73 6f 62 2c 73 6f 62 21 |ill D2 (|sob,sob!|
|00000450| 29 00 00 20 20 dd 82 20 | 22 44 30 3d 22 2c 44 30 |)..  .. |"D0=",D0|
|00000460| 00 20 20 dd 82 20 22 44 | 31 3d 22 2c 44 31 00 20 |.  .. "D|1=",D1. |
|00000470| 20 dd 82 20 22 44 32 3d | 22 2c 44 32 00 20 20 dd | .. "D2=|",D2.  .|
|00000480| 82 20 22 44 33 3d 22 2c | 44 33 00 20 20 dd 82 20 |. "D3=",|D3.  .. |
|00000490| 22 44 34 3d 22 2c 44 34 | 00 20 20 dd 82 20 22 44 |"D4=",D4|.  .. "D|
|000004a0| 35 3d 22 2c 44 35 00 00 | 00 20 80 09 20 80 07 20 |5=",D5..|. .. .. |
|000004b0| 44 32 00 00 80 02 20 80 | 09 00 00 00 dd 82 20 22 |D2.... .|...... "|
|000004c0| 4e 4f 5f 54 52 41 53 48 | 22 00 dd 82 20 22 44 32 |NO_TRASH|"... "D2|
|000004d0| 20 69 73 20 73 75 72 65 | 6c 79 20 22 2c 4e 6f 5f | is sure|ly ",No_|
|000004e0| 54 72 61 73 68 7b 2d 31 | 30 30 2c 2d 31 30 31 2c |Trash{-1|00,-101,|
|000004f0| 2d 31 30 32 2c 2d 31 30 | 33 2c 2d 31 30 34 2c 2d |-102,-10|3,-104,-|
|00000500| 31 30 35 7d 00 fe 1b 35 | 30 00 dd 82 20 22 54 52 |105}...5|0... "TR|
|00000510| 41 53 48 20 44 32 22 00 | dd 82 20 22 44 32 20 69 |ASH D2".|.. "D2 i|
|00000520| 73 20 73 75 72 65 6c 79 | 20 22 2c 54 72 61 73 68 |s surely| ",Trash|
|00000530| 44 32 7b 2d 31 30 30 2c | 2d 31 30 31 2c 2d 31 30 |D2{-100,|-101,-10|
|00000540| 32 7d 00 fe 1b 35 30 00 | dd 82 20 22 54 52 41 53 |2}...50.|.. "TRAS|
|00000550| 48 20 44 32 20 2b 20 53 | 54 41 43 4b 22 00 dd 82 |H D2 + S|TACK"...|
|00000560| 20 22 44 32 20 69 73 20 | 73 75 72 65 6c 79 20 22 | "D2 is |surely "|
|00000570| 2c 54 72 61 73 68 44 32 | 5f 53 74 61 63 6b 7b 2d |,TrashD2|_Stack{-|
|00000580| 31 30 30 2c 2d 31 30 31 | 2c 2d 31 30 32 2c 2d 31 |100,-101|,-102,-1|
|00000590| 30 33 2c 2d 31 30 34 2c | 2d 31 30 35 7d 00 fe 1b |03,-104,|-105}...|
|000005a0| 35 30 00 80 0a 00 00 00 | 00                      |50......|.       |
+--------+-------------------------+-------------------------+--------+--------+