15 Jul
1997
15 Jul
'97
4:32 p.m.
Ok, this could very easily be something I've done (I had to make a slight chage to gpi-hash.c to get gpc to link for djgpp (patch attached)) but I get segmentation/page faults for the attached code whenever ANY ONE of the commented out sections of code are uncommented. (Yes, it's the same file as before, just trimmed down for the segfaults)
Oh, and I had to rename rts-conf.h to rts-config.h and rts-vers.c to rts-version.c to build libgpc.a.
I'll try rebuilding gpc/gcc from scratch to see if that helps.
Ug, this is frustrating.
Bill
--
Leave others their otherness.
*** gpi-hash.c.~ Mon Jul 7 21:44:56 1997
--- gpi-hash.c Tue Jul 15 15:44:22 1997
***************
*** 49,55 ****
#endif
! extern unsigned long _end;
/* integer type for void * representative */
#define IRP_TYPE long
--- 49,59 ----
#endif
! extern unsigned long _end
! #ifdef __DJGPP__
! __asm__("end")
! #endif
! ;
/* integer type for void * representative */
#define IRP_TYPE long
unit foo;
interface
type wrkstring=string[255];
function DecToBin( DecInput : string ) : wrkstring;
implementation
function DecToBin{( DecInput : string ) : wrkstring};
{ converts a decimal string[ up to 256 ] into binary string }
var
TempStr : wrkstring;
DecNum,
Mask : word;
Pos : byte;
Err : integer;
begin
(* TempStr := '';*)
mask := $8000;
(* ReadStr(DecInput,DecNum);*)
for Pos := 1 to 16 do begin
(*if (mask and DecNum) > 0 then*)
mask := mask;
(* if (mask and DecNum) > 0 then
TempStr := TempStr + '1'
else TempStr := TempStr + '0';
mask := mask div 2;*)
end;
(* while (TempStr[1] = '0') and (length(TempStr) > 1) do { returns at least 0}
delete(TempStr,1,1);*)
DecToBin := TempStr;
end;
end.