/[VRac]/M6502/perl.c
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /M6502/perl.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 48 by dpavlin, Tue Jul 31 10:47:30 2007 UTC revision 60 by dpavlin, Tue Jul 31 16:20:06 2007 UTC
# Line 187  int main(int argc, char **argv) { Line 187  int main(int argc, char **argv) {
187                          FREETMPS;                          FREETMPS;
188                          LEAVE;                          LEAVE;
189                          cycles = SvIV( get_sv("M6502::run_for", FALSE) );                          cycles = SvIV( get_sv("M6502::run_for", FALSE) );
190                          printf("run CPU for %d cycles\n", cycles);                          if ( cycles > 0 ) {
191                          dump_R;                                  printf("run CPU for %d cycles\n", cycles);
192                          //Run6502(R);                                  dump_R;
193                          Exec6502(R, cycles);                                  //Run6502(R);
194                          dump_R;                                  Exec6502(R, cycles);
195                          push_R(R);                                  dump_R;
196                          printf("end of %d cycles CPU run\n", cycles);                                  push_R(R);
197                                    printf("end of %d cycles CPU run\n", cycles);
198                            } else {
199                                    printf("no cpu cycles set for run\n");
200                                    cycles = 1; // never exit, prevents segfault
201                            }
202                  }                  }
203          }          }
204          free(R);          free(R);
Legend:
Removed from v.48  
changed lines
  Added in v.60
  ViewVC Help
Powered by ViewVC 1.1.26