/[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 81 by dpavlin, Wed Aug 1 15:53:54 2007 UTC revision 82 by dpavlin, Wed Aug 1 21:40:17 2007 UTC
# Line 3  Line 3 
3  #include "M6502.h"  #include "M6502.h"
4  #include "config.h"  #include "config.h"
5    
 #if DEBUGF  
 #define debugf(x)  do {         \  
         PerlIO_stdoutf("#> ");  \  
         PerlIO_stdoutf x ;      \  
 } while (0)  
 #else  
 #define debugf(x)  
 #endif  
   
6  static PerlInterpreter *my_perl;  static PerlInterpreter *my_perl;
7    
8  static M6502 *R;  static M6502 *R;
# Line 81  byte Debug6502(M6502 *R) { Line 72  byte Debug6502(M6502 *R) {
72  byte mem(word Addr) {  byte mem(word Addr) {
73          byte byte;          byte byte;
74          int count;          int count;
75            debugf(("mem(%04x)\n", Addr));
76          dSP;          dSP;
77          ENTER;          ENTER;
78          SAVETMPS;          SAVETMPS;
Legend:
Removed from v.81  
changed lines
  Added in v.82
  ViewVC Help
Powered by ViewVC 1.1.26