From: Phil Burk <philburk@mobileer.com>
Date: Wed, 29 May 2019 00:18:18 +0000 (-0700)
Subject: Merge pull request #63 from philburk/removedebug
X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/commitdiff_plain/14d4661c819309db4334fe7e82783a44ec6b0417?hp=0a063a8778e267ded154dadeaa6042fbff35a3c5

Merge pull request #63 from philburk/removedebug

c_struct: remove debug statements
---

diff --git a/fth/c_struct.fth b/fth/c_struct.fth
index bd06a50..1773255 100644
--- a/fth/c_struct.fth
+++ b/fth/c_struct.fth
@@ -94,7 +94,7 @@ decimal
 : (S+REL!)  ( ptr addr offset -- )  + >r if.use->rel r> ! ;
 
 : compile+!bytes ( offset size -- )
-    ." compile+!bytes ( " over . dup . ." )" cr
+    \ ." compile+!bytes ( " over . dup . ." )" cr
     swap [compile] literal   \ compile offset into word
     CASE
     cell OF compile (s+!)  ENDOF
@@ -152,7 +152,7 @@ decimal
 : (S+W@)  ( addr offset -- val )  + w@ w->s ;
 
 : compile+@bytes ( offset size -- )
-   ." compile+@bytes ( " over . dup . ." )" cr
+    \ ." compile+@bytes ( " over . dup . ." )" cr
     swap [compile] literal   \ compile offset into word
     CASE
     cell OF compile (s+@)  ENDOF
@@ -177,8 +177,6 @@ decimal
     (s@)
 ; immediate
 
-
-
 exists? F* [IF]
 \ 951112 Floating Point support
 : FLPT  ( <name> -- , declare space for a floating point value. )