c_struct: remove debug statements

diff --git a/fth/c_struct.fth b/fth/c_struct.fth
index bd06a50..1773255 100644 (file)
--- 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 -- )
 : (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
     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 -- )
 : (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
     swap [compile] literal   \ compile offset into word
     CASE
     cell OF compile (s+@)  ENDOF


@@ -177,8 +177,6 @@ decimal
     (s@)
 ; immediate
 
     (s@)
 ; immediate
 

-
-

 exists? F* [IF]
 \ 951112 Floating Point support
 : FLPT  ( <name> -- , declare space for a floating point value. )
 exists? F* [IF]
 \ 951112 Floating Point support
 : FLPT  ( <name> -- , declare space for a floating point value. )