00:00:00 --- log: started retro/13.01.09
01:41:23 --- join: karswell_ (~coat@93-97-29-243.zone5.bethere.co.uk) joined #retro
01:43:03 --- quit: karswell (*.net *.split)
01:52:30 --- quit: saper (Ping timeout: 240 seconds)
03:14:04 --- join: saper (saper@wikipedia/saper) joined #retro
03:54:35 --- nick: tangentstorm -> tangentsleep
04:18:28 --- quit: saper (Read error: Connection reset by peer)
04:37:24 --- join: saper (saper@wikipedia/saper) joined #retro
08:57:28 --- quit: karswell_ (Remote host closed the connection)
09:07:43 --- join: karswell_ (~coat@93-97-29-243.zone5.bethere.co.uk) joined #retro
09:36:42 --- quit: harrison (Read error: Connection reset by peer)
11:08:30 --- quit: karswell_ (Remote host closed the connection)
11:18:47 --- join: karswell_ (~coat@93-97-29-243.zone5.bethere.co.uk) joined #retro
11:37:45 --- join: harrison (~quassel@li89-226.members.linode.com) joined #retro
11:43:51 <crc> https://gist.github.com/4496071 implements counted loops (with indexes) in parable
11:44:28 <crc> probably still some bugs though
12:11:18 --- join: ncv (~quassel@unaffiliated/neceve) joined #retro
12:17:25 --- quit: karswell_ (Remote host closed the connection)
12:27:42 --- join: karswell_ (~coat@93-97-29-243.zone5.bethere.co.uk) joined #retro
13:16:37 <erider> hi crc 
13:32:51 --- join: impomatic (~digital_w@46.208.50.63) joined #retro
13:38:14 <crc> hi erider
13:41:27 <erider> crc: did you get the code? I am still debugging 
13:49:44 <erider> I think I am setting the ip wrong 
13:51:18 <erider> its setting the ip = 9579
13:52:54 <crc> when I run it, I get:  http://sprunge.us/JTHC
13:54:02 <erider> ah yeah remove the $ from sp 
13:55:08 <erider> where is that because I don't see that error in the code 
13:56:22 --- join: Mat2 (5b419085@gateway/web/freenode/ip.91.65.144.133) joined #retro
13:56:31 <Mat2> hello
13:56:39 <erider> hi Mat2 
13:56:46 <Mat2> hi erider !
13:56:54 <erider> crc: let me give you the version I am working from 
13:56:59 <Mat2> have you found the error ?
13:57:07 <erider> I think so 
13:57:20 <Mat2> I'm curious, what was it ?
13:58:13 <erider> I think the ip is getting set to opcode instead a index in memory 
13:59:33 <erider> also this is an error         lset stack [incr sp -1] $a
14:00:08 <erider> I am some semantic errors which I am fixing now 
14:00:34 <crc> erider: removing the $ from sp gives:  http://sprunge.us/ZQDJ  
14:00:54 <erider> lset [expr {$sp - 1}] $a 
14:01:04 <erider> it what it should be 
14:01:23 <erider> yes! 
14:01:29 <Mat2> yes, the dereferencing prefix is a common mistake
14:01:32 <erider> that is the bug I am fixing now 
14:03:06 <erider> Mat2: but I am not sure where that creped in at  
14:03:57 <Mat2> the $ prefix replaces a string (as variable label) with it's content
14:04:40 <erider> lset stack [expr {sp - 1}] $a
14:04:57 <erider> oops $sp 
14:05:41 <erider> crc: does ip get set to opcode or index in memory 
14:08:52 <Mat2> erider: try 'set 1 42' for example  <- correct TCL statement
14:09:05 <erider> crc: let me give you want I am working with 
14:09:52 <erider> I know because everything is a valid string :-) 
14:10:19 <erider> I can do "set <- 3" 
14:12:06 <erider> but the only to get the value is "set <-"  
14:13:21 <Mat2> handling the $ operator is a bit tricky because the behaviour depends on the syntactical construct
14:13:47 <erider> dereferencing 
14:13:53 <erider> crc: http://pastebin.com/Ac08P4Gu
14:14:29 <erider> Mat2: true 
14:19:06 <Mat2> hmm, opcode dispatch should work
14:19:23 --- quit: karswell_ (Remote host closed the connection)
14:20:48 <Mat2> but why is ip,memory,stack,ports,sp,address and rp  setted global each iteration ?
14:25:50 <erider> I guess I can use them with their full name 
14:26:01 <erider> ::memory 
14:27:20 <erider> This command has no effect unless executed in the context of a proc body.
14:27:54 <erider> If the global command is executed in the context of a proc body, it creates local variables linked to the corresponding global variables 
14:28:53 <erider> Mat2: I guess I will worry about optimizing later. :-) 
14:29:05 <Mat2> ah ok
14:29:42 --- join: karswell_ (~coat@93-97-29-243.zone5.bethere.co.uk) joined #retro
14:30:04 <erider> Mat2: where did crc run off to 
14:30:25 <Mat2> I guess he is at work
14:31:20 <erider> we were just talking 
14:32:40 <erider> Mat2: also it maybe a semantic error from the port of the other VMs 
14:33:30 <erider> it should be close a one for one translation but there are some differences 
14:33:42 <erider> close to a... 
14:36:16 <Mat2> hmm
14:36:20 <Mat2> set a [lindex $stack $sp]; set b [lindex $stack [expr $sp - 1]]           lset stack $sp [expr {floor($b / $a)}]             lset stack [expr $sp - 1] [expr $b % $a] 
14:37:22 <erider> Mat2: http://pastebin.com/Ac08P4Gu try this one 
14:41:48 --- quit: karswell_ (Remote host closed the connection)
14:47:52 <erider> Mat2: did you have something to say about that last posting 
14:48:14 <Mat2> I'm just on the installation of a new TCL interpreter
14:49:48 <Mat2> I get a core dump
14:51:39 <erider> hmm
14:51:50 <erider> I don't get that! 
14:52:06 --- join: karswell_ (~coat@93-97-29-243.zone5.bethere.co.uk) joined #retro
14:53:41 <Mat2> ok, I get an error now handling the port routines
14:55:39 <erider> where are you at? are you in retro or tcl script 
14:55:56 <Mat2> in the TCL script
14:56:09 <erider> what line 
14:57:44 <Mat2> it was a trailing white-space character
14:57:50 <Mat2> at line 72
15:00:15 <Mat2> ok, retro started
15:00:48 <Mat2> Retro 11.4
15:00:50 <Mat2> words
15:01:14 <Mat2> list index out of range     while executing "lset memory [lindex $stack $sp] [lindex $stack [expr $sp - 1]]"     (procedure "rxProcessOpcode" line 71)     invoked from within "rxProcessOpcode"     (procedure "rxMain" line 6)     invoked from within "rxMain"     (file "retro.tcl" line 267)
15:01:22 <erider> words crashes 
15:01:45 <erider> Yeah I am looking at that 
15:02:41 <Mat2> the list index is out of bounds
15:03:10 <erider> yeah 
15:04:07 <Mat2> I mean the list have to much entries, that was also the reason for the crash
15:04:48 <Mat2> after loading the retro image the index hold a negative number on my system
15:07:32 <erider> hmm 
15:08:09 <erider> which index?
15:08:57 <Mat2> there exist an internal counter for list structures
15:11:47 <Mat2> you can use also ldepth on the list
15:14:23 <Mat2> ok, loading the retro image fails here returning -1 which is the error code so TCL return correctly this value for the list depth
15:15:13 <erider> I most be indexing something wrong 
15:16:17 <Mat2> the retro image is loaded inclusive one byte in addition after EOF, this causes the error (at least on my system)
15:17:47 <Mat2> the crazy thing is, the list holds still the complete image, only the internal counter seem to be setted to the error code
15:18:04 <Mat2> I do not know if this was intended
15:21:09 <erider> Yeah it is getting an extra byte 
15:21:55 <erider> I documented that in the issues 
15:22:26 <Mat2> that's because of the while loop
15:23:25 <erider> a possible solution maybe "set memory [lindex $memory 0 end-1]"
15:24:00 <erider> that will chomp the last 0 off 
15:25:10 <Mat2> just misusing for works also
15:25:31 <Mat2> file loads, ok
15:26:00 <Mat2> ah, now I get exactly a depth of zero
15:26:27 <erider> so I shouldn't use the while loop 
15:27:00 <erider> ?
15:28:11 <erider> set memory [lrange $memory 0 end-1]
15:28:38 <erider> I should add that to rxLoadImage? 
15:29:30 <erider> nah that will not work 
15:31:20 <Mat2> the image get loaded, only the internal state is corrupted
15:31:32 <Mat2> I found a bug report for this
15:32:24 <erider> where is the bug 
15:33:21 <Mat2> it's not a TCL related bug, only a side effect of these damn ubuntu box here
15:33:30 <Mat2> loading works now fine here
15:34:03 <erider> what did you do? 
15:34:18 <Mat2> I have patched the TCL interpreter
15:35:32 <Mat2> get the "list index out of range" error though
15:36:17 <Mat2> if I type words
15:36:41 <Mat2> lset memory [lindex $stack $sp] [lindex $stack [expr $sp - 1]]
15:36:50 <Mat2> ^this statement couses the error
15:37:32 <erider> but I wonder is it related to the extra data 
15:38:23 <erider> because it would make the memory not aligned right? 
15:38:43 <Mat2> I think so
15:39:30 <erider> that image is loading because it has the space in the memory cells since the size is 10000000
15:39:41 <erider> 1000000
15:41:18 <erider> but the ip get set but the data from the memory 
15:42:12 <erider> so if that is off be one that may cause a problem with the index counter or the stack pointer 
15:42:54 <erider> because the image is too large 
15:43:09 <erider> the is my guess 
15:43:38 <erider> or it maybe a semantic problem that I have not caught yet 
15:44:04 <Mat2> its a semantic problem
15:44:20 <erider> you found it? 
15:44:42 <Mat2> no but we get to the retro promt so the listener works
15:45:43 <erider> so you don't think that the size of that one byte is kicking us in the butt 
15:45:50 <Mat2> no
15:45:56 <erider> ok 
15:46:19 <Mat2> [lindex $stack $sp] [lindex $stack [expr $sp - 1]]
15:46:53 <Mat2> this procedere is the problem
15:47:06 <Mat2> but I do not know yet why
15:47:07 * erider is going to be disturbed if his is missing a bracket somewhere
15:47:18 <erider> he... 
15:48:36 <Mat2> have you found a lost bracket ?
15:49:35 <erider> no 
15:50:41 <Mat2> it's after midnight here, I need some sleep
15:50:59 <Mat2> probably tomorrow I can be of better help
15:51:35 <erider> thanks for you help, at least I have a starting point 
15:51:45 <Mat2> ciao
15:51:54 --- quit: Mat2 (Quit: Page closed)
16:01:30 --- join: kumul (~kumul@173.215.194.228) joined #retro
16:10:19 --- quit: erider (Remote host closed the connection)
16:11:27 --- join: erider (~chatzilla@unaffiliated/erider) joined #retro
16:52:25 --- quit: ncv (Remote host closed the connection)
16:56:41 <erider> it load the image fine hmm but it not processing right...
18:11:06 <erider> I guess I can play with the idea of using a dynamic list and append to it as needed 
18:14:12 <erider> the fixed size maybe giving me the issue 
18:23:11 <erider> I may have another approach 
20:19:08 --- nick: tangentsleep -> tangentstorm
20:23:13 <tangentstorm> erider: how goes your port?
21:42:39 --- quit: kumul (Quit: Leaving)
22:29:36 --- quit: harrison (Ping timeout: 256 seconds)
23:59:59 --- log: ended retro/13.01.09