[Scummvm-cvs-logs] SF.net SVN: scummvm: [28089] tools/branches/gsoc2007-decompiler
brixxie at users.sourceforge.net
brixxie at users.sourceforge.net
Sun Jul 15 05:41:29 CEST 2007
Revision: 28089
http://scummvm.svn.sourceforge.net/scummvm/?rev=28089&view=rev
Author: brixxie
Date: 2007-07-14 20:41:29 -0700 (Sat, 14 Jul 2007)
Log Message:
-----------
graphviz format: don't show opcode value, show script offset instead
Modified Paths:
--------------
tools/branches/gsoc2007-decompiler/graph.scm
Property Changed:
----------------
tools/branches/gsoc2007-decompiler/
Property changes on: tools/branches/gsoc2007-decompiler
___________________________________________________________________
Name: svk:merge
- 489ca303-0d3d-4dc1-a57d-017c7912a06a:/local/gsoc2007-decompiler:49
+ 489ca303-0d3d-4dc1-a57d-017c7912a06a:/local/gsoc2007-decompiler:51
Modified: tools/branches/gsoc2007-decompiler/graph.scm
===================================================================
--- tools/branches/gsoc2007-decompiler/graph.scm 2007-07-15 03:36:37 UTC (rev 28088)
+++ tools/branches/gsoc2007-decompiler/graph.scm 2007-07-15 03:41:29 UTC (rev 28089)
@@ -2,7 +2,7 @@
;;; Antipasto - Scumm Script Disassembler Prototype
;;; Copyright (C) 2007 Andreas Scholta
-;;; Time-stamp: <2007-07-15 05:27:08 brx>
+;;; Time-stamp: <2007-07-15 05:39:43 brx>
;;; This program is free software; you can redistribute it and/or
;;; modify it under the terms of the GNU General Public License
@@ -29,13 +29,16 @@
(print* " n"
n
" [label = \""
- (quote-string (format "~S"
- (cdr (assq (car (bb-range block))
- disassembly)))))
+ (quote-string (format "[~S] ~S"
+ (car (bb-range block))
+ (cddr (assq (car (bb-range block))
+ disassembly)))))
(for-each
(lambda (in)
(print* "\\l"
- (quote-string (format "~S" (cdr (assq in disassembly))))))
+ (quote-string (format "[~S] ~S"
+ in
+ (cddr (assq in disassembly))))))
(cdr (bb-range block)))
(print "\""
(cond ((zero? (car (bb-range block)))
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
More information about the Scummvm-git-logs
mailing list