Escape " since disassembled strings are between "".

git-svn-id: https://svn.parrot.org/parrot/trunk@1601 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
parrot · Jun 4, 2002 · 42faf3f · 42faf3f
1 parent 10ea239
commit 42faf3f
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 2 deletions.
diff --git a/debug.c b/debug.c
@@ -504,7 +504,7 @@ PDB_break(struct Parrot_Interp *interpreter)
 }
 
 /* PDB_escape
- * escapes \r \n \t \a and \\
+ * escapes " \r \n \t \a and \\
  */
 char *
 PDB_escape(const char *string)
@@ -541,6 +541,10 @@ PDB_escape(const char *string)
                 *(fill++) = '\\';
                 *(fill++) = '\\';
                 break;
+            case '"':
+                *(fill++) = '\\';
+                *(fill++) = '"';
+                break;
             default:
                 *(fill++) = *string;
                 break;

diff --git a/src/debug.c b/src/debug.c
@@ -504,7 +504,7 @@ PDB_break(struct Parrot_Interp *interpreter)
 }
 
 /* PDB_escape
- * escapes \r \n \t \a and \\
+ * escapes " \r \n \t \a and \\
  */
 char *
 PDB_escape(const char *string)
@@ -541,6 +541,10 @@ PDB_escape(const char *string)
                 *(fill++) = '\\';
                 *(fill++) = '\\';
                 break;
+            case '"':
+                *(fill++) = '\\';
+                *(fill++) = '"';
+                break;
             default:
                 *(fill++) = *string;
                 break;