See ChangeLog entry 19990610-11:40 EDT David G. Holm <dholm@jsd-llc.com>

harbour/ChangeLog

@@ -1,3 +1,11 @@
+19990610-11:40 EDT David G. Holm <dholm@jsd-llc.com>
+  + tests/working/makerunr.dos
+    - New make file to build RUNNER.EXE using DJGPP
+  * tests/working/runner.c
+    - Added 'static' to several forward declarations
+  + tests/working/runrdos.bat
+    - New batch file to build RUNNER.EXE using DJGPP
+
 19990610-09:30 CET Patrick Mast (Changes made by Jose Lalin)
   * source/rtl/asort.prg
     Resloved bug (Changed line 28 )

harbour/tests/working/makerunr.dos

@@ -0,0 +1,18 @@
+# $Id$
+# Makefile for DOS DJGPP
+# Usage:
+# make -r -f makerunr.dos <target>
+# where <target> is the name of compiled file without extension
+#
+include ..\..\makedos.env
+
+TARGET=$(MAKECMDGOALS)
+
+$(TARGET): $(TARGET).exe
+
+$(TARGET).exe: $(TARGET).o
+	$(CC) $? -L$(HARBOURDIR)/libs -lharb -o $@ 
+
+$(TARGET).o: $(TARGET).c
+	$(CC) $(CFLAGS) -c -o $@ $?
+

harbour/tests/working/runner.c

@@ -45,13 +45,13 @@ typedef struct
 #define SYM_NOT_FOUND 0xFFFFFFFF                /* Symbol not found.
                                                    FindSymbol               */
 
-PASM_CALL CreateFun( PSYMBOL, PBYTE );          /* Create a dynamic function*/
+static PASM_CALL CreateFun( PSYMBOL, PBYTE );          /* Create a dynamic function*/
 void      Do( WORD );
-ULONG     FindSymbol( char *, PDYNFUNC, ULONG );
+static ULONG     FindSymbol( char *, PDYNFUNC, ULONG );
 HARBOUR   HB_RUN();
-void      HRB_FileClose( FILE * );
-void      HRB_FileRead ( char *, int, int, FILE * );
-FILE     *HRB_FileOpen ( char * );
+static void      HRB_FileClose( FILE * );
+static void      HRB_FileRead ( char *, int, int, FILE * );
+static FILE     *HRB_FileOpen ( char * );
 void      Push( PHB_ITEM );
 void      PushNil( void );
 void      PushSymbol( PSYMBOL );
@@ -116,7 +116,7 @@ HARBOUR HB_RUN( void )
          {
             pSymRead[ ul ].szName  = ReadId( file );
             pSymRead[ ul ].cScope  = ReadByte( file );
-            pSymRead[ ul ].pFunPtr = (void *) ReadByte( file );
+            pSymRead[ ul ].pFunPtr = ( HARBOURFUNC ) ReadByte( file );
             pSymRead[ ul ].pDynSym = NULL;
          }
 
@@ -259,7 +259,6 @@ static ULONG FindSymbol( char *szName, PDYNFUNC pDynFunc, ULONG ulLoaded )
    Read the next (zero terminated) identifier */
 char *ReadId( FILE *file )
 {
-   char *szFileName;
    char *szTemp;                                /* Temporary buffer         */
    char *szIdx;
    char *szRet;

harbour/tests/working/runrdos.bat

@@ -0,0 +1,4 @@
+rem runner.c -> runner.exe using gcc (djgpp)
+
+make -r -fmakerunr.dos runner
+