Fix PF_NO_SHELL build (#217)

Move convertDictionaryInfoRead() out of conditional
so it can be called by pfLoadDictionary().

Author: philburk

csrc/pf_cglue.c

@@ -100,4 +100,6 @@ Err CreateGlueToC( const char *CName, ucell_t Index, cell_t ReturnMode, int32_t
 
     return 0;
 }
+#else
+#warning "CreateGlueToC() not compiled. OK"
 #endif

csrc/pf_save.c

@@ -299,6 +299,33 @@ int IsHostLittleEndian( void )
     return (int) (*bp); /* Return byte pointed to by address. If LSB then == 1 */
 }
 
+/* Convert dictionary info chunk between native and on-disk (big-endian). */
+static void
+convertDictionaryInfoWrite (DictionaryInfoChunk *sd)
+{
+/* Convert all fields in DictionaryInfoChunk from Native to BigEndian.
+ * This assumes they are all 32-bit integers.
+ */
+    int   i;
+    uint32_t *p = (uint32_t *) sd;
+    for (i=0; i<((int)(sizeof(*sd)/sizeof(uint32_t))); i++)
+    {
+        Write32BigEndian( (uint8_t *)&p[i], p[i] );
+    }
+}
+
+static void
+convertDictionaryInfoRead (DictionaryInfoChunk *sd)
+{
+/* Convert all fields in structure from BigEndian to Native. */
+    int   i;
+    uint32_t *p = (uint32_t *) sd;
+    for (i=0; i<((int)(sizeof(*sd)/sizeof(uint32_t))); i++)
+    {
+        p[i] = Read32BigEndian( (uint8_t *)&p[i] );
+    }
+}
+
 #if defined(PF_NO_FILEIO) || defined(PF_NO_SHELL)
 
 cell_t ffSaveForth( const char *FileName, ExecToken EntryPoint, cell_t NameSize, cell_t CodeSize)
@@ -347,33 +374,6 @@ static cell_t WriteChunkToFile( FileStream *fid, cell_t ID, char *Data, int32_t
     return -1;
 }
 
-/* Convert dictionary info chunk between native and on-disk (big-endian). */
-static void
-convertDictionaryInfoWrite (DictionaryInfoChunk *sd)
-{
-/* Convert all fields in DictionaryInfoChunk from Native to BigEndian.
- * This assumes they are all 32-bit integers.
- */
-    int   i;
-    uint32_t *p = (uint32_t *) sd;
-    for (i=0; i<((int)(sizeof(*sd)/sizeof(uint32_t))); i++)
-    {
-        Write32BigEndian( (uint8_t *)&p[i], p[i] );
-    }
-}
-
-static void
-convertDictionaryInfoRead (DictionaryInfoChunk *sd)
-{
-/* Convert all fields in structure from BigEndian to Native. */
-    int   i;
-    uint32_t *p = (uint32_t *) sd;
-    for (i=0; i<((int)(sizeof(*sd)/sizeof(uint32_t))); i++)
-    {
-        p[i] = Read32BigEndian( (uint8_t *)&p[i] );
-    }
-}
-
 /****************************************************************
 ** Save Dictionary in File.
 ** If EntryPoint is NULL, save as development environment.