From: Phil Burk <philburk@mobileer.com>
Date: Wed, 29 May 2019 00:16:34 +0000 (-0700)
Subject: c_struct: remove debug statements
X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/commitdiff_plain/cf39ac971d6cd1e16bf84c2c05adb4b699064b2f

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. )