Add -m32 and -x c to Makefile for 64-bit Snow Leopard.

[pforth] / fth / utils / dump_struct.fth

diff --git a/fth/utils/dump_struct.fth b/fth/utils/dump_struct.fth
index b7fd173..39a32c0 100644 (file)
--- a/fth/utils/dump_struct.fth
+++ b/fth/utils/dump_struct.fth
@@ -9,8 +9,9 @@
 \ MOD: PLB 9/9/88 Print U/S , add ADST\r
 \ MOD: PLB 12/6/90 Modified to work with H4th\r
 \ 941109 PLB Converted to pforth.  Added RP detection.\r
 \ MOD: PLB 9/9/88 Print U/S , add ADST\r
 \ MOD: PLB 12/6/90 Modified to work with H4th\r
 \ 941109 PLB Converted to pforth.  Added RP detection.\r

+\ 090609 PLB Convert >rel to use->rel and ..! to s!\r

 \r
 \r

-include? task-member member.fth\r
+include? task-member.fth member.fth\r

 include? task-c_struct c_struct.fth\r
 \r
 ANEW TASK-DUMP_STRUCT\r
 include? task-c_struct c_struct.fth\r
 \r
 ANEW TASK-DUMP_STRUCT\r


@@ -84,11 +85,11 @@ VARIABLE DS-ADDR
 ; immediate\r
 \r
 : ADST ( absolute_address -- , dump structure )\r
 ; immediate\r
 \r
 : ADST ( absolute_address -- , dump structure )\r

-    >rel [compile] dst\r
+    use->rel [compile] dst     \ mod 090609\r

 ; immediate\r
 \r
 \ For Testing Purposes\r
 ; immediate\r
 \r
 \ For Testing Purposes\r

-false .IF\r
+false [IF]\r

 :STRUCT GOO\r
     LONG DATAPTR\r
     SHORT GOO_WIDTH\r
 :STRUCT GOO\r
     LONG DATAPTR\r
     SHORT GOO_WIDTH\r


@@ -105,11 +106,11 @@ false .IF
 \r
 FOO AFOO\r
 : AFOO.INIT\r
 \r
 FOO AFOO\r
 : AFOO.INIT\r

-    $ 12345678 afoo ..! along1\r
-    $ -665 afoo ..! ashort1\r
-    $ 21 afoo ..! abyte\r
-    $ 43 afoo ..! abyte2\r
-    -234 afoo .. agoo ..! goo_height\r
+    $ 12345678 afoo s! along1\r
+    $ -665 afoo s! ashort1\r
+    $ 21 afoo s! abyte\r
+    $ 43 afoo s! abyte2\r
+    -234 afoo .. agoo s! goo_height\r

 ;\r
 afoo.init\r
 \r
 ;\r
 afoo.init\r
 \r


@@ -117,4 +118,5 @@ afoo.init
     dst foo\r
 ;\r
 \r
     dst foo\r
 ;\r
 \r

-.THEN\r
+[THEN]\r
+\r