Gpc October 1997

gpc@gnu.de

31 participants
158 discussions

gpc on Linux
by tomko＠tt62.ntfmim.uni-lj.si 27 Oct '97

27 Oct '97

When compiling pas files with gpc I get a message: cannot open -lgpc: No such file or directory Version of gpc and gcc is 2.7.2.1 Can somebody help? T.Kolenko

1 0

Re: Re: Need help.......
by OHMH＠nets.com.jo 27 Oct '97

27 Oct '97

Ron Perrella,perrella(a)mindspring.com,Internet writes: > * > * And how to access the program parameters from an ASM program. > > Thanx for your help > Hi I don't know what you mean by parameters but if you mean procedure and function parameters then read this if you mean command line then this will not the answer : - Procedure Putpix ( x , y : word ; c : byte ); Assembler ; Asm Push x Push y Push c . . . . End; That was on Borland Pascal , but on Gnu I don't know how asm look like but I think it will be better because 386 instruction support ; but in pure X86 assembler you must use registers , Good luck .

1 0

Re: us_Timer in TimeStamp
by Peter Gerwinski 27 Oct '97

27 Oct '97

According to Thomas Tan: > Are you guys going to implement us_Timer field of TimeStamps soon? If you tell us how to do that in a portable way - at once! ;-) > I need a seed for a random function and this seems to be the best way to go. On 21 September, Frank Heckenbach posted a Unit `Rand' to this list which implements a `random' and a `randomize' function just this way. You can extract it from the GPC mailing list archives (see http://home.pages.de/~GNU-Pascal/support.html) or download it from ftp://agnes.dida.physik.uni-essen.de/gnu-pascal/contrib/rand.pas. Hope this helps, Peter Dipl.-Phys. Peter Gerwinski, Essen, Germany, free physicist and programmer peter.gerwinski(a)uni-essen.de - http://home.pages.de/~peter.gerwinski/ [971005] maintainer GNU Pascal [971001] - http://home.pages.de/~gnu-pascal/ [971005]

1 0

Re: Error in Beta version (100197)
by Frank Heckenbach 27 Oct '97

27 Oct '97

Thomas Tan wrote: > I get the following error when I try to compile this program in GPC beta > (100197) for DJ > Compiling: assign7Sort.pas > gpi-hash.c(321) Error: failed assertion `ss.key == -DEBUG_HASH_KEY' > Abort! At the moment I'm only guessing, but I got the same error messages when I was trying to use a unit compiled with an older GPC version. The .gpi files (precompiled unit interfaces) are not compatible between different GPC versions, and unfortunately (currently), GPC does not warn about this problem, but cause this error message. So just recompile everything, and it ought to work. (However, when recompiling system, you might encounter another problem causing a segmentation fault in GPC. If so, you can temporarily solve it by commenting out the initialization code related to CmdLine and PPJunk.) > This is a bug report for RHIDE Version 1.4 (Sep 30 1997 23:06:59) > I am running MS-DOS 7.10 (Windows 95) BTW: AFAIK, this bug report form is to be used for bugs in RHIDE itself, not for bugs in a compiler (GPC) that are not related to RHIDE... -- Frank Heckenbach, Erlangen, Germany heckenb(a)mi.uni-erlangen.de http://home.pages.de/~fjf/links.htm

1 0

Error in Beta version (100197)
by Thomas_Tan＠fc.choate.edu 27 Oct '97

27 Oct '97

I get the following error when I try to compile this program in GPC beta (100197) for DJ Compiling: assign7Sort.pas gpi-hash.c(321) Error: failed assertion `ss.key == -DEBUG_HASH_KEY' Abort! This program compiled fine under the 2.0 verison of GPC, this program does use BPcompat. The source of this program is attached to this message (open it in Rhide if you want to "see" the line breaks) and I also attached the output of the bug-report-generator from Rhide. Good thing I backed up my GPC 2.0 before I installed the beta version :-) I hope you can find out what's wrong. Thanks, Tom ------------------------------------------------------ This message sent using the FirstClass SMTP/NNTP Gateway. From: Choate Rosemary Hall 333 Christian St. Wallingford, CT. 06492 begin 0666 assign7Sort.pas M<')O9W)A;2!T:6UE=&5S="AI;G!U="QO=71P=70I.R!U<V5S('-Y<W1E;3L- M"F-O;G-T($U!6"`](#4P.PT*#0IT>7!E#0H@4&AR87-E5%E012`](&%R<F%Y M(%LQ+BY-05A=(&]F(&EN=&5G97([#0H-"E-O<G1S(#T@;V)J96-T#0H@("`@ M(&-O;G-T<G5C=&]R($EN:70[#0H@("`@('!R;V-E9'5R92!$;U-O<G0H=F%R M($1A=&$Z4&AR87-E5%E012D[('9I<G1U86P[#0H@("`@('!R;V-E9'5R92!4 M96QL3F%M93MV:7)T=6%L.PT*96YD.PT*#0I"=6)3;W)T(#T@;V)J96-T*%-O M<G1S*0T*("`@("!C;VYS=')U8W1O<B!);FET.PT*("`@("!P<F]C961U<F4@ M1&]3;W)T*'9A<B!$871A.E!H<F%S95194$4I.R!V:7)T=6%L.PT*("`@("!P M<F]C961U<F4@5&5L;$YA;64[=FER='5A;#L-"F5N9#L-"DEN<U-O<G0@/2!O M8FIE8W0H4V]R=',I#0H@("`@(&-O;G-T<G5C=&]R($EN:70[#0H@("`@('!R M;V-E9'5R92!$;U-O<G0H=F%R($1A=&$Z4&AR87-E5%E012D[('9I<G1U86P[ M#0H@("`@('!R;V-E9'5R92!496QL3F%M93MV:7)T=6%L.PT*96YD.PT*4V5L M4V]R="`](&]B:F5C="`H4V]R=',I#0H@("`@(&-O;G-T<G5C=&]R($EN:70[ M#0H@("`@('!R;V-E9'5R92!$;U-O<G0H=F%R($1A=&$Z4&AR87-E5%E012D[ M('9I<G1U86P[#0H@("`@('!R;V-E9'5R92!496QL3F%M93MV:7)T=6%L.PT* M96YD.PT*('!3;W)T<R`](%Y3;W)T<SL-"B!P0G5B4V]R="`](%Y"=6)3;W)T M.PT*('!396Q3;W)T(#T@7E-E;%-O<G0[#0H@<$EN<U-O<G0@/2!>26YS4V]R M=#L-"@T*#0I605(@5&EM94]F4W1A<G1I;F<Z(&EN=&5G97([#0IA0G5B4V]R M=#IP0G5B4V]R=#L-"F%396Q3;W)T.G!396Q3;W)T.PT*84EN<U-O<G0Z<$EN M<U-O<G0[#0H-"F9U;F-T:6]N(%1I8VM#;W5N=#II;G1E9V5R.PT*=F%R(&1T M.E1I;653=&%M<#L-"F)E9VEN#0H@("`@($=E=%1I;653=&%M<"AD="D[#0H@ M("`@(%1I8VM#;W5N="`Z/2`H9'0N:&]U<BHS-C`P("L@9'0N;6EN=71E*C8P M("L@9'0N<V5C;VYD*3L-"F5N9#L-"@T*#0I[#0IQ=6%S:5-O<G0Z(')E='5R M;G,@86X@87)R87D@;V8@:6YT96=E<G,@;V8@<VEZ92!L:6UI="!I;B!W:&EC M:"!A;B!I;G1E<G9A;"!O9B!N=6UB97)S#0IA<F4@<F%N9&]M+B`@92YG+B!I M9B!L:6UI="!W97)E(#$P,"!A;F0@:6YT97)V86P@=V5R92`Q,"P@=&AE(&9I M<G-T(#$P(&5N=')I97,-"G=O=6QD(&)E(')A;F1O;2`C)W,@8F5T=V5E;B`Q M(&%N9"`Q,#L@=&AE('-E8V]N9"!I;G1E<G9A;"!W;W5L9"!B92!R86YD;VT@ M(R=S#0IB971W965N(#$Q(&%N9"`R,"P@971C+BXN#0I);G!U=#H@('-E960@ M("`@("`@("`@("!I;G1E9V5R("`@("`@("`@<V5E9"!T;R!S=&%R="!R86YD M;VT@9V5N97)A=&]R#0IL:6UI="`@("`@("`@("`@:6YT96=E<B`@("`@("`@ M('-I>F4@;V8@87)R87D-"FEN=&5R=F%L("`@("`@("!I;G1E9V5R("`@("`@ M("`@=VAA="!I;G1E<G9A;"!R86YG92!I<PT*4F5T=7)N<SH@26YT07)Y("`@ M("`@("`@=&AE('%U87-I+7-O<G1E9"!A<G)A>7T-"@T*9G5N8W1I;VX@<75A M<VE3;W)T*'9A<B!S965D.FEN=&5G97([(&EN=&5R=F%L.FEN=&5G97([(&QI M;6ET.FEN=&5G97(I.E!H<F%S95194$4[#0IV87(@(')A;F0L:2QJ+&EN9&5X M.FEN=&5G97([(&%R>3I0:')A<V5465!%.V)E9VEN(&EN9&5X.CTQ.PT*9F]R M(&D@.CT@,2!T;R`H;&EM:70@9&EV(&EN=&5R=F%L*2!D;R!B96=I;@T*("`@ M(&9O<B!J(#H](#$@=&\@:6YT97)V86P@9&\@8F5G:6X-"B`@("`@($EN:712 M86YD;VTH<V5E9"D[#0H@("`@("!R86YD(#H](%)A;F1);G0H:6YT97)V86PI M.PT*("`@("`@87)Y6VEN9&5X73H]*"AI+3$I*FEN=&5R=F%L*2`K(')A;F0[ M#0H-"B`@("`(a)(&EN9&5X.CUI;F1E>"LQ.PT*("`@("`(a)96YD.PT*("`@("`@ M96YD.PT*("`@("`@<75A<VE3;W)T.CUA<GD[#0H@("`@("!E;F0[#0H-"B`@ M("`@('!R;V-E9'5R92!1=6%S:5)A;F1O;5-O<G0H=F%R($$Z(%!H<F%S9519 M4$4I.PT*=F%R(&DL:BQK.FEN=&5G97([#0I"96=I;@T*>PEF;W(@:2`Z/2`Q M('1O($U!6"!D;PT*"0E!6VE=(#H](%)A;F1);G0H,3`P,#`I.R!]#0H-"B`@ M('MC87-E($U!6"!O9@T*("`@-3`Z("!B96=I;GT-"B`@("`@("`@("`@("!J M(#H](#`[#0H@("`@("`@("`@("`@9F]R(&D@.CT@,2!T;R`U(&1O(&)E9VEN M#0H@("`@("`@("`@("`@("`@(&9O<B!K(#H]("AI*C$P("TY*2!T;R`H:2HQ M,"D@9&\@8F5G:6X-"B`@("`@("`@("`@("`@("`@("`@($EN:71286YD;VTH M5&EC:T-O=6YT*3L-"B`@("`@("`@("`@("`@("`@("`@($%;:UT@.CT@4F%N M9$EN="@Q,#`P*2`K(&H[#0H@("`@("`@("`@("`@("`@(&5N9#L-"B`@("`@ M("`@("`@("!J(#H](&H(a)*R`Q,#`P.PT*("`@("`@("`@("`@(&5N9#L-"@T* M96YD.PT*#0H-"G!R;V-E9'5R92!286YD;VU$871A*'9A<B!!.B!0:')A<V54 M65!%*3L-"G9A<B!I.FEN=&5G97([#0I"96=I;@T*"69O<B!I(#H](#$@=&\@ M34%8(&1O#0H)"4%;:5T@.CT@4F%N9$EN="@Q,#`P,"D[#0H-"D5.1#L-"@T* M>RHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*DEM<&QE;65N=&%T:6]N(&]F(%-O<G0@ M3V)J96-T<RHJ*BHJ*BHJ*BHJ*BHJ*BHJ?0T*#0IC;VYS=')U8W1O<B!3;W)T M<RY);FET.PT*8F5G:6X-"F5N9#L-"F-O;G-T<G5C=&]R($)U8E-O<G0N26YI M=#L-"F)E9VEN#0IE;F0[#0IC;VYS=')U8W1O<B!396Q3;W)T+DEN:70[#0IB M96=I;(a)T*96YD.PT*8V]N<W1R=6-T;W(@26YS4V]R="Y);FET.PT*8F5G:6X- M"F5N9#L-"@T*<')O8V5D=7)E(%-O<G1S+E1E;&Q.86UE.PT*8F5G:6X-"G=R M:71E*"=3;W)T<R!496QL($YA;64@0V%L;&5D+"!"040G*3L-"F5N9#L-"@T* M<')O8V5D=7)E($)U8E-O<G0N5&5L;$YA;64[#0IB96=I;@T*=W)I=&4H)T)U M8F)L92!3;W)T)RD[#0IE;F0[#0H-"G!R;V-E9'5R92!396Q3;W)T+E1E;&Q. M86UE.PT*8F5G:6X-"G=R:71E*"=396QE8W1I;VX@4V]R="<I.PT*96YD.PT* M#0IP<F]C961U<F4@26YS4V]R="Y496QL3F%M93L-"F)E9VEN#0IW<FET92@G M26YS97)T(%-O<G0G*3L-"F5N9#L-"@T*<')O8V5D=7)E(%-O<G1S+D1O4V]R M="`H=F%R($1A=&$Z4&AR87-E5%E012D[#0IB96=I;@T*=W)I=&5L;B@G4V]R M=',@4V]R="!C86QL960L($)!1$0G*3L-"F5N9#L-"@T*<')O8V5D=7)E(%-E M;%-O<G0N1&]3;W)T("AV87(@1&%T83H@(%!H<F%S95194$4I.PT*("![57-E M<R!T:&4@<V5L96-T:6]N('-O<G0@86QG;W)I=&AM('1O(&]R9&5R(&%N(&%R M<F%Y(&]F(&-H87)A8W1E<G,N?0T*#0H@('9A<B!&:7)S="P@0W5R<F5N="P@ M3&%R9V5S="P@0V]M<&%R:7-O;G,L(%-W87!S.B`@:6YT96=E<CL-"B`@("`@ M(%1E;7`Z("!I;G1E9V5R.PT*#0H@(&)E9VEN#0H@("`@0V]M<&%R:7-O;G,@ M.CT@,#L-"B`@("!3=V%P<R`Z/2`P.PT*("`@(&9O<B!&:7)S="`Z/2`Q('1O M($U!6"`M(#$@9&\@8F5G:6X-"B`@("`@($QA<F=E<W0@.CT@1FER<W0[#0H@ M("`@("!F;W(@0W5R<F5N="`Z/2!&:7)S="`K(#$@=&\@34%8(&1O(&)E9VEN M#0H@("`@("`@('M$;VXG="!B;W1H97(@8V]M<&%R:6YG('1H92!F:7)S="!C M;VUP;VYE;G0@=&\@:71S96QF+GT-"B`@("`@("`@0V]M<&%R:7-O;G,@.CT@ M0V]M<&%R:7-O;G,@*R`Q.PT*("`@("`@("!I9B!$871A(%M#=7)R96YT72`^ M($1A=&$@6TQA<F=E<W1=('1H96X@8F5G:6X-"B`@("`@("`@("!,87)G97-T M(#H]($-U<G)E;G0-"B`@("`@("`@96YD#0H@("`@("!E;F0[("`@("`@("`@ M("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@ M('M#=7)R96YT(&9O<GT-"B`@("`@('M0;W-T8V]N9&ET:6]N.B`@3&%R9V5S M="!S=6)S8W)I<'1S('1H92!L87)G97-T(&ET96T@9G)O;2!&:7)S="`N+B!- M05@N?0T*("`@("`@:68@3&%R9V5S="`\/B!&:7)S="!T:&5N(&)E9VEN("`@ M("`@("`@("`@("`@("![5V4@:&%V92!T;R!M86ME(&$@<W=A<"Y]#0H@("`@ M("`@(%-W87!S(#H](%-W87!S("L@,3L-"B`@("`@("`@5&5M<"`Z/2!$871A M(%M,87)G97-T73L-"B`@("`@("`@1&%T82!;3&%R9V5S=%T@.CT@1&%T82!; M1FER<W1=.R`@("`@("`@("`@("`@("`@("`@("`@>TUA:V4@=&AE('-W87`N M?0T*("`@("`@("!$871A(%M&:7)S=%T@.CT@5&5M<`T*("`@("`@96YD("`@ M("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@ M("`@("`@("`@("`@("`@("![:69]#0H@("`@("![4&]S=&-O;F1I=&EO;CH@ M(#$@=&AR;W5G:"!&:7)S="!S=6)S8W)I<'0@=&AE(&%R<F%Y)W,@;&%R9V5S M="!V86QU97,N?0T*("`@(&5N9#L@("`@("`@("`@("`@("`@("`@("`@("`@ M("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@('M&:7)S="!F;W)] M#0H@('L@('=R:71E("A#;VUP87)I<V]N<R`Z(#$I.R`@('=R:71E("@G(&-O M;7!A<FES;VYS+"`G*3L-"B`@("!W<FET92`H4W=A<',@.B`Q*3L@("!W<FET M96QN("@G('-W87!S+B<I("`@?0T*("!E;F0[("`@("`@("`@("`@("`@("`@ M("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@ M('M396QE8W1]#0H-"G!R;V-E9'5R92!);G-3;W)T+D1O4V]R="AV87(@1&%T M83H@(%!H<F%S95194$4I.PT*("![57-E<R!T:&4@:6YS97)T:6]N('-O<G0@ M86QG;W)I=&AM('1O(&]R9&5R(&%N(&%R<F%Y(&]F(&-H87)A8W1E<G,N?0T* M#0H@('9A<B!.97=E<W0L($-U<G)E;G0L($-O;7!A<FES;VYS+"!3=V%P<SH@ M(&EN=&5G97([#0H@("`@("!.97=)=&5M.B`@:6YT96=E<CL-"B`@("`@(%-E M96MI;F<Z("!B;V]L96%N.PT*#0H@(&)E9VEN#0H@("`@0V]M<&%R:7-O;G,@ M.CT@,#L-"B`@("!3=V%P<R`Z/2`P.PT*("`@("`@("!F;W(@3F5W97-T(#H] M(#(@=&\@34%8(&1O(&)E9VEN#0H@("`@("`@("`@4V5E:VEN9R`Z/2!44E5% M.PT*("`@("`@("`@($-U<G)E;G0@.CT@3F5W97-T.PT*("`@("`@("`@($YE M=TET96T@.CT@1&%T82!;3F5W97-T73L-"B`@("`@("`@("!W:&EL92!3965K M:6YG(&1O(&)E9VEN#0H@("`@("`@("`@("!#;VUP87)I<V]N<R`Z/2!#;VUP M87)I<V]N<R`K(#$[#0H@("`@("`@("`@("!I9B`H1&%T82!;0W5R<F5N="`M M(#%=(#P@3F5W271E;2D@=&AE;B!B96=I;@T*("`@("`@("`@("`@("!$871A M(%M#=7)R96YT72`Z/2!$871A(%M#=7)R96YT("T@,5T[("`@>U-L:61E(&$@ M=F%L=64@=&\@=&AE(')I9VAT+GT-"B`@("`@("`@("`@("`@4W=A<',@.CT@ M4W=A<',(a)*R`Q.PT*("`@("`@("`@("`@("!#=7)R96YT(#H]($-U<G)E;G0@ M+2`Q.PT*("`@("`@("`@("`@("!3965K:6YG(#H]($-U<G)E;G0@/B`Q#0H@ M("`@("`@("`@("!E;F0-"B`@("`@("`@("`@(&5L<V4@8F5G:6X@4V5E:VEN M9R`Z/2!&04Q312!E;F0[("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@ M>VEF?0T*("`@("`@("`@(&5N9#L@("`@("`@("`@("`@("`@("`@("`@("`@ M("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("![=VAI;&5]#0H@("`@ M("`@("`@>U!O<W1C;VYD:71I;VXZ("!.97=)=&5M(&)E;&]N9W,@:6X@1&%T M82!;0W5R<F5N=%TN?0T*("`@("`@("`@($1A=&$@6T-U<G)E;G1=(#H]($YE M=TET96T-"B`@("`@("`@96YD.R`@("`@("`@("`@("`@("`@("`@("`@("`@ M("`@("`@("`@("`@("`@("`@("`@("`@("`@('M.97=E<W0@9F]R?0T*("`@ M("`@("!W<FET92`H0V]M<&%R:7-O;G,@.B`Q*3L@("!W<FET92`H)R!C;VUP M87)I<V]N<RP@)RD[#0H@("`@("`@('=R:71E("A3=V%P<R`Z(#$I.R`@('=R M:71E;&X@*"<@<W=A<',N)RD-"B`@("`@(&5N9#L@("`@("`@("`@("`@("`@ M("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("![ M26YS97)T?0T*#0H-"@T*<')O8V5D=7)E($)U8E-O<G0N1&]3;W)T("AV87(@ M1&%T83H@(%!H<F%S95194$4I.PT*("![57-E<R!T:&4@8G5B8FQE('-O<G0@ M86QG;W)I=&AM('1O(&]R9&5R(&%N(&%R<F%Y(&]F(&-H87)A8W1E<G,N?0T* M#0H@('9A<B!,87-T+"!#=7)R96YT+"!#;VUP87)I<V]N<RP@4W=A<',Z("!I M;G1E9V5R.PT*("`@("`@5&5M<#H@(&EN=&5G97([#0H-"B`@8F5G:6X-"B`@ M("!#;VUP87)I<V]N<R`Z/2`P.PT*("`@(%-W87!S(#H](#`[#0H@("`@9F]R M($QA<W0@.CT@34%8(&1O=VYT;R`R(&1O(&)E9VEN#0H@("`@("!F;W(@0W5R M<F5N="`Z/2`Q('1O($QA<W0@+2`Q(&1O(&)E9VEN#0H@("`@("`@($-O;7!A M<FES;VYS(#H]($-O;7!A<FES;VYS("L@,3L-"B`@("`@("`@:68@1&%T82!; M0W5R<F5N=%T@/"!$871A(%M#=7)R96YT*S%=('1H96X@8F5G:6X-"B`@("`@ M("`@("!3=V%P<R`Z/2!3=V%P<R`K(#$[#0H@("`@("`@("`@5&5M<"`Z/2!$ M871A(%M#=7)R96YT73L-"B`@("`@("`@("!$871A(%M#=7)R96YT72`Z/2!$ M871A(%M#=7)R96YT("L@,5T[#0H@("`@("`@("`@1&%T82!;0W5R<F5N="`K M(#%=(#H](%1E;7`-"B`@("`@("`@96YD("`@("`@("`@("`@("`@("`@("`@ M("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@>VEF M?0T*("`@("`@96YD("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@ M("`@("`@("`@("`@("`@("`@("`@("![0W5R<F5N="!F;W)]#0H@("`@("![ M4&]S=&-O;F1I=&EO;CH@($-O;7!O;F5N=',@3&%S="!T:')O=6=H('1H92!E M;F0@;V8@=&AE(&%R<F%Y(&%R92!O<F1E<F5D+GT-"B`@("!E;F0[("`@("`@ M("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@ M("`@("`@("`@>TQA<W0@9F]R?0T*("`@>R!W<FET92`H0V]M<&%R:7-O;G,@ M.B`Q*3L@("!W<FET92`H)R!C;VUP87)I<V]N<RP@)RD[#0H@("`@=W)I=&4@ M*%-W87!S(#H@,2D[("`@=W)I=&5L;B`H)R!S=V%P<RXG*7T-"B`@96YD.R`@ M("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@ M("`@("`@("`@("`@("`@("![0G5B8FQE?0T*#0IF=6YC=&EO;B!,:6YE87)3 M96%R8V@H=F%R($$Z(%!H<F%S95194$4[('1O1FEN9#II;G1E9V5R*3II;G1E M9V5R.PT*=F%R(&DL<&]S:71I;VXZ:6YT96=E<CL@9F]U;F0Z8F]O;&5A;CL- M"F)E9VEN#0H):2`Z/2`Q.PT*"69O=6YD(#H](&9A;'-E.PT*"7!O<VET:6]N M(#H]("TQ.PT*"7=H:6QE("A-05@@/CT@:2D@86YD("AF;W5N9"`](&9A;'-E M*2!D;R`-"@EB96=I;@T*"0EI9B!!6VE=(#T@=&]&:6YD('1H96X@#0H)"6)E M9VEN#0H)"0EF;W5N9"`Z/2!T<G5E.PT*"0D)<&]S:71I;VX@.CT@:3L-"@D) M96YD.PT*"65N9#L-"@D-"@E,:6YE87)396%R8V@@.CT@<&]S:71I;VX[#0H) M"0T*#0IE;F0[#0H-"F9U;F-T:6]N($)I;F%R>5-E87)C:"`H1&%T83H@(%!H M<F%S95194$4[=&]396%R8V@Z:6YT96=E<BDZ:6YT96=E<CL-"B`@>T)I;F%R M>2!S96%R8V@@9F]R($QE='1E<BX@(%)E='5R;G,@4&]S:71I;VX@/2`M,2!I M9B!N;W0@9F]U;F0N?0T*("!V87(@36ED9&QE+"!,;W=E<BP@57!P97(L('!O M<VET:6]N.B`@:6YT96=E<CL-"@T*("!B96=I;@T*("`@($QO=V5R(#H](#$[ M#0H@("`@57!P97(@.CT@34%8.PT*("`@(')E<&5A=`T*("`@("`@36ED9&QE M(#H]("A,;W=E<B`K(%5P<&5R*2!D:78@,CL-"B`@("`@(&EF('1O4V5A<F-H M(#P@1&%T82!;36ED9&QE70T*("`@("`@("!T:&5N(%5P<&5R(#H]($UI9&1L M92`M(#$-"B`@("`@("`@96QS92!,;W=E<B`Z/2!-:61D;&4@*R`Q#0H@("`@ M=6YT:6P@*$1A=&$@6TUI9&1L95T@/2!T;U-E87)C:"D@;W(@*$QO=V5R(#X@ M57!P97(I.PT*("`@('M0;W-T8V]N9&ET:6]N.B`@268@1&%T82!;36ED9&QE M72!I<VXG="!,971T97(L(&YO(&-O;7!O;F5N="!I<RY]#0H@("`@:68@1&%T M82!;36ED9&QE72`]('1O4V5A<F-H#0H@("`@("!T:&5N(%!O<VET:6]N(#H] M($UI9&1L90T*("`@("`@96QS92!0;W-I=&EO;B`Z/2`M,3L-"B`@("`@(`T* M("`@("!":6YA<GE396%R8V@@.CT@4&]S:71I;VX[#0H@(&5N9#L@("`@("`@ M("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@ M("`@("`@("`@("`@>T)I;F%R>7T-"@T*#0I04D]#14154D4@4W1A<G14:6UE M.R`-"D)%1TE.(`T*("!4:6UE3V93=&%R=&EN9R`Z/2!4:6-K0V]U;G0[(`T* M14Y$.PT*#0I04D]#14154D4@1'5M;7E"=6)B;&53;W)T*'9A<B!$871A.B!0 M:')A<V5465!%*3L-"D)%1TE.#0I%3D0[#0H-"@T*#0I&54Y#5$E/3B!496QL M5&EM93H@:6YT96=E<CL-"E9!4B!&:6YI<VA4:6UE.B!I;G1E9V5R.R`-"D)% M1TE.(`T*($9I;FES:%1I;64@.CT@5&EC:T-O=6YT.PT*(%1E;&Q4:6UE(#H] M($9I;FES:%1I;64@+2!4:6UE3V93=&%R=&EN9SL-"D5.1#L-"@T*#0I04D]# M14154D4@1&]3;6%L;%)A;F1O;5-O<G0H=F%R('1H95-O<G0Z<%-O<G1S.R!V M87(@03I0:')A<V5465!%*3L-"G9A<B!P+$]V97)(96%D=&]T86Q4:6UE+&]V M97)H96%D+'1O=&%L5&EM93II;G1E9V5R.PT*($-O=6YT.FEN=&5G97([(`T* M#0H@8F5G:6X-"@D)4W1A<G14:6UE.PT*"0E&3U(@0V]U;G0@.CT@,2!43R`Q M,#`@1$\-"@D)0D5'24X-"B`@("`@("`@('`@.CT@5&EC:T-O=6YT.PT*"0D@ M("!!(#H]("!Q=6%S:5-O<G0H<"P@,3`L($U!6"D[#0H@"0D)"41U;6UY0G5B M8FQE4V]R="A!*3L-"@D)14Y$.PT*"4]V97)H96%D(#H](%1E;&Q4:6UE.PT* M#0H)4W1A<G14:6UE.PT*"49/4B!#;W5N="`Z/2`Q(%1/(#$P,"!$3PT*"0E" M14=)3@T*("`@("`@<"`Z/2!4:6-K0V]U;G0[#0H)"4$@.CT@('%U87-I4V]R M="AP+#$P+$U!6"D[.PT*(`E["69O<B!#;W5N="`Z/2`Q('1O($U!6"!D;PT* M(`D)"7=R:71E;&XH05M#;W5N=%TI.R`@?0T*#0H@"0D)=&AE4V]R=%XN1&]3 M;W)T*$$I.PT*(`D)"2`)>PEF;W(@0V]U;G0@.CT@,2!T;R!-05@@9&\-"B`) M"0EW<FET96QN*$%;0V]U;G1=*3L@?0T*"0E%3D0[#0H)=&]T86Q4:6UE.CT@ M5&5L;%1I;64[#0IW<FET92@G270@=&]O:R`G+'1O=&%L5&EM92PG('-E8V]N M9',@=&\@)RD[#0IT:&53;W)T7BY496QL3F%M93L-"G=R:71E;&XH)R`G+"!- M05@L("<@4D%.1$]-(&1A=&%S)RD[#0IE;F0[#0H-"G!R;V-E9'5R92!);FET M:6%L:7IE.PT*8F5G:6X-"B`@("`@;F5W*&%"=6)3;W)T*3L-"B`@("`@;F5W M*&%396Q3;W)T*3L-"B`@("`@;F5W*&%);G-3;W)T*3L-"@T*("`@("!A0G5B M4V]R=%XN26YI=#L-"B`@("`@85-E;%-O<G1>+DEN:70[#0H@("`@(&%);G-3 M;W)T7BY);FET.PT*96YD.PT*#0IP<F]C961U<F4@1FEN86QI>F4[#0IB96=I M;@T*("`@("!D:7-P;W-E*&%"=6)3;W)T*3L-"B`@("`@9&ES<&]S92AA4V5L M4V]R="D[#0H@("`@(&1I<W!O<V4H84EN<U-O<G0I.PT*96YD.PT*#0IV87(@ M;7E!<G)A>3H@4&AR87-E5%E013L-"FDZ:6YT96=E<CL-"F)E9VEN#0H@("`@ M26YI=&EA;&EZ93L-"B`@("!F;W(@:2`Z/2`Q('1O(#,@9&\-"B`@("`@("`@ M1&]3;6%L;%)A;F1O;5-O<G0H84)U8E-O<G0@+&UY07)R87DI.PT*#0H@("`@ M9F]R(&D@.CT@,2!T;R`S(&1O#0H@("`@("`@($1O4VUA;&Q286YD;VU3;W)T M*&%396Q3;W)T("QM>4%R<F%Y*3L-"@T*("`@(&9O<B!I(#H](#$@=&\@,R!D M;PT*("`@("`@("!$;U-M86QL4F%N9&]M4V]R="AA26YS4V]R="`L;7E!<G)A M>2D[#0H@("`@('L-"B`@("!1=6%S:5)A;F1O;5-O<G0H;7E!<G)A>2D[#0H- M"B`@("!F;W(@:2`Z/2`Q('1O($U!6"!D;PT*("`@("`@("!I9B!I(&UO9"`Y M(#T@,"!T:&5N#0H@("`@("`@(&)E9VEN#0H@("`@("`@("`@("`@=W)I=&5L M;CL-"B`@("`@("`@("`@("!W<FET92AM>4%R<F%Y6VE=.C8I.PT*("`@("`@ M("!E;F0-"B`@("`@("`@96QS92!B96=I;@T*("`@("`@("`@("`@=W)I=&4H M;7E!<G)A>5MI73HV*3L-"B`@("`@("`(a)96YD.PT*("`@("`@?0T*("`@($9I M;F%L:7IE.PT*("`@>R!$;U)E9W5L87)3;W)T*&UY07)R87DI.R!]#0H-"F5N (9"X-"@T*#0H ` end This is a bug report for RHIDE Version 1.4 (Sep 30 1997 23:06:59) I am running MS-DOS 7.10 (Windows 95) Important environment variables: PATH=C:\WIN95;C:\WIN95\COMMAND;D:\TMTPL\BIN;D:\GPC\BIN;C:\JDK11~1.3\BIN;C:\UTILS DJGPP=D:\GPC\DJGPP.ENV LFN=y INFOPATH=d:/gpc/info;d:/gpc/gnu/emacs/info;d:/gpc/info;d:/gpc/gnu/emacs/info LOCALEDIR= LANGUAGE= SHELL= COMSPEC=C:\WIN95\COMMAND.COM DJSYSFLAGS= Here is the output from a sample compilation and link for C executing: echo "int main(){return 0;}" | redir -eo gcc -Xlinker -v -Wa,-v -v -o /dev/null -x c - Reading specs from d:/gpc/lib\specs gcc version 2.7.2.1 d:/gpc/bin\cpp.exe -lang-c -v -undef -D__GNUC__=2 -D__GNUC_MINOR__=7 -Dunix -Di386 -DGO32 -DMSDOS -DDJGPP=2 -DDJGPP_MINOR=1 -D__unix__ -D__i386__ -D__GO32__ -D__MSDOS__ -D__DJGPP__=2 -D__DJGPP_MINOR__=1 -D__unix -D__i386 -D__GO32 -D__MSDOS -D__DJGPP=2 -D__DJGPP_MINOR=1 - d:/gpc/tmp/RHgaaaaa\ccbaaaaa GNU CPP version 2.7.2.1 (80386, BSD syntax) #include "..." search starts here: #include <...> search starts here: d:/gpc/include d:/gpc/contrib/grx20/include d:/gpc/contrib/grx22/include /usr/local/include /usr/local/go32/include /usr/local/lib/gcc-lib/go32/2.7.2.1/include /usr/include End of search list. d:/gpc/bin\cc1.exe d:/gpc/tmp/RHgaaaaa\ccbaaaaa -quiet -dumpbase -.c -version -o d:/gpc/tmp/RHgaaaaa\cccaaaaa GNU C version 2.7.2.1 (80386, BSD syntax) compiled by GNU C version 2.7.2.1. d:/gpc/bin\as.exe -v -o d:/gpc/tmp/RHgaaaaa\ccdaaaaa d:/gpc/tmp/RHgaaaaa\cccaaaaa GNU assembler version 2.8.1 (i386-pc-msdosdjgpp) d:/gpc/bin\ld.exe -o /dev/null d:/gpc/lib\crt0.o -Ld:/gpc/lib -Ld:/gpc/contrib/grx22/lib -v d:/gpc/tmp/RHgaaaaa\ccdaaaaa -Tdjgpp.djl -lgcc -lc -lgcc GNU ld version 2.8.1 (with BFD 2.8.1) d:/gpc/bin\stubify.exe -v /dev/null Warning: input file is not COFF or stubbed COFF .exe: No such file or directory (ENOENT) stubify for djgpp V2.X executables, Copyright (C) 1995 DJ Delorie End of the sample Here is the output from a sample compilation and link for C++ executing: echo "int main(){return 0;}" | redir -eo gcc -Xlinker -v -Wa,-v -v -o /dev/null -x c++ - Reading specs from d:/gpc/lib\specs gcc version 2.7.2.1 d:/gpc/bin\cpp.exe -lang-c++ -v -undef -D__GNUC__=2 -D__GNUG__=2 -D__cplusplus -D__GNUC_MINOR__=7 -Dunix -Di386 -DGO32 -DMSDOS -DDJGPP=2 -DDJGPP_MINOR=1 -D__unix__ -D__i386__ -D__GO32__ -D__MSDOS__ -D__DJGPP__=2 -D__DJGPP_MINOR__=1 -D__unix -D__i386 -D__GO32 -D__MSDOS -D__DJGPP=2 -D__DJGPP_MINOR=1 - d:/gpc/tmp/RHgaaaaa\ccbaaaaa GNU CPP version 2.7.2.1 (80386, BSD syntax) #include "..." search starts here: #include <...> search starts here: d:/gpc/lang/cxx d:/gpc/include d:/gpc/contrib/grx20/include d:/gpc/contrib/grx22/include /usr/local/lib/g++-include /usr/local/include /usr/local/go32/include /usr/local/lib/gcc-lib/go32/2.7.2.1/include /usr/include End of search list. d:/gpc/bin\cc1plus.exe d:/gpc/tmp/RHgaaaaa\ccbaaaaa -quiet -dumpbase -.cc -version -o d:/gpc/tmp/RHgaaaaa\cccaaaaa GNU C++ version 2.7.2.1 (80386, BSD syntax) compiled by GNU C version 2.7.2.1. d:/gpc/bin\as.exe -v -o d:/gpc/tmp/RHgaaaaa\ccdaaaaa d:/gpc/tmp/RHgaaaaa\cccaaaaa GNU assembler version 2.8.1 (i386-pc-msdosdjgpp) d:/gpc/bin\ld.exe -o /dev/null d:/gpc/lib\crt0.o -Ld:/gpc/lib -Ld:/gpc/contrib/grx22/lib -v d:/gpc/tmp/RHgaaaaa\ccdaaaaa -Tdjgpp.djl -lgcc -lc -lgcc GNU ld version 2.8.1 (with BFD 2.8.1) d:/gpc/bin\stubify.exe -v /dev/null Warning: input file is not COFF or stubbed COFF .exe: No such file or directory (ENOENT) stubify for djgpp V2.X executables, Copyright (C) 1995 DJ Delorie End of the sample My problem is the following: ============================

1 0

Need help.......
by The Kilobug Team 27 Oct '97

27 Oct '97

Hi! I'm trying to make a DOS "shell", to improve the limited COMMAND.COM function. In order to reduce memory usage, I need help... Does one of you: * Know a Pascal or C compiler which can make COM programs, * Know how to execute programs from an ASM program, * And how to access the program parameters from an ASM program. Thanx for your help -- -= The Kilobug Team =- DOS Real&Protected mode programming. Home page: http://www.planetepc.fr/users/kilobug/ NEW site (beta, french obly): http://www.mygale.org/~kilobug/

2 1

us_Timer in TimeStamp
by Thomas_Tan＠fc.choate.edu 26 Oct '97

26 Oct '97

Are you guys going to implement us_Timer field of TimeStamps soon? I need a seed for a random function and this seems to be the best way to go. ------------------------------------------------------ This message sent using the FirstClass SMTP/NNTP Gateway. From: Choate Rosemary Hall 333 Christian St. Wallingford, CT. 06492

1 0

Re: EFLIB strategy and encouragement
by Peter Gerwinski 26 Oct '97

26 Oct '97

Hi, Johan; hi, everybody! According to Johan Larsson: > > EFLIB is licensed under a GNU compatible license which is not ready. Didn't you write in your last mail that you want to charge for commercial use of EFLIB? If so, the license would *not* be GNU compatible because it is an essential component of the GNU GPL and the GNU LGPL that there is no distinction between commercial and non-commercial use of a program or a library. Peter Dipl.-Phys. Peter Gerwinski, Essen, Germany, free physicist and programmer peter.gerwinski(a)uni-essen.de - http://home.pages.de/~peter.gerwinski/ [971005] maintainer GNU Pascal [971001] - http://home.pages.de/~gnu-pascal/ [971005]

1 0

EFLIB strategy and encouragement
by Johan Larsson 26 Oct '97

26 Oct '97

* The EFLIB project have changed strategy: we now aim to establish a standard template library for every Pascal programmer. Hello all, * Introduction EFLIB is a free object-oriented library aiming to become an open standard for all Pascal programming languages. EFLIB includes data structures packaged in classic ADT's, data streams, filtering and conversion, text processing, mathematics (including matrices, complex numbers and vectors). A cross-platform GUI is planned for EFLIB. EFLIB is licensed under a GNU compatible license which is not ready. Therefore, the source code is not released to the public at this time. * Try it You can go to http://ftp.sunet.se/EFLIB/ to download EFLIB or read any of the on-line material. * Get involved We'd love to see you getting involved in the EFLIB project! EFLIB need help from expert programmers on any Pascal platform such as FPK Pascal, GNU Pascal or Borland Delphi. The prototyping language is Borland Pascal, but efforts are made to make the source code very independent of the PL dialect. * More information Check out the Home of EFLIB, especially the on-line documentations and the specification PostScript documents at http://ftp.sunet.se/EFLIB/Manual/Documents/Specifications/. * Mailing lists You can subscribe to any of the EFLIB mailing lists (eflib-users(a)ts.umu.se, eflib-developers(a)ts.umu.se). Read the how-to at http://ftp.sunet.se/EFLIB/Lists/. * Response If you decide to get involved in the free GNU-licensed Pascal standard known as EFLIB, you are encouraged to write an e-mail to EFLIB(a)ts.umu.se or jola(a)ts.umu.se and give a some brief information about yourself. We'll discuss the details with you. Best Regards, Johan Larsson EFLIB Project Manager http://www.ts.umu.se/~jola/ jola(a)ts.umu.se

1 0

Re: Objects question
by Peter Gerwinski 25 Oct '97

25 Oct '97

According to Thomas Tan: > When I took a look at objects.pas in the \test\borland_\ directory (a copy > below), a few questions raise to mind. > [...] > Program Objects;(* Bug fixed: objects only worked in units, not in programs. > *)Type ParentPtr = ^ParentObj; ChildPtr = ^ChildObj;ParentObj = object > Constructor Init; Destructor Fini; Procedure O; c: Char; [...] To me, too. Either your mailer's text editor or your "FirstClass SMTP/NNTP GateWay" or something else has eaten up all line breaks in the source. Or is this just a joke? > 1. Does the character c have to be desposed in the destructor? Of course, not. Only *pointer* variables have to be disposed in the destructor. This is the same with GPC as with BP. > If so, is char > (0) a null character? It is, although this has nothing to do with `Dispose'. > 2. If there are variables (character, arrays ,strings, etc) in a function in > an object, do they have to be manually deleted? Only if they are pointers. > If so, how would I erase each one of them? A modified version of the `objects.pas' test program follows below. Please note that this is a test program which has the only purpose of testing whether the OOP mechanisms in GPC work correctly. For demo programs you can see section "OOP" in the GPC Texinfo online documentation (`info -f gpc -n OOP'). It's not too detailed, but it documents how GPC's OOP differs from that of BP. Since these differences are rather small, any book about "OOP with BP" can help you with GPC, too. > 3. Is there such a thing as a pointer to a function? Yes: Type ProcPtr = ^Procedure; FuncPtr = ^Function ( x: Real ): Real; If you omit the `^', you have BP's "procedural variables" which work in GPC, too. (* Here and in my other mails, I am referring to recent beta versions of GPC, not to the hopelessly outdated gpc-2.0 from December 1996. ;*) Hope this helps, Peter Dipl.-Phys. Peter Gerwinski, Essen, Germany, free physicist and programmer peter.gerwinski(a)uni-essen.de - http://home.pages.de/~peter.gerwinski/ [971005] maintainer GNU Pascal [971001] - http://home.pages.de/~gnu-pascal/ [971005] 8< -------------------------------------------------------------------------- Program Objects; Type StringPtr = ^String; ParentPtr = ^ParentObj; ChildPtr = ^ChildObj; ParentObj = object S: StringPtr; Constructor Init ( Const SomeString: String ); Destructor Fini; Procedure O; c: Char; (* GNU extension: mixing of fields and methods *) Procedure K; virtual; end (* ParentObj *); ChildObj = object ( ParentObj ) Procedure O; Procedure K; virtual; end (* ChildObj *); Var MyObject: ParentPtr; Constructor ParentObj.Init ( Const SomeString: String ); begin (* ParentObj.Init *) New ( S, length ( SomeString ) ); S^:= SomeString; c:= 'K'; end (* ParentObj.Init *); Destructor ParentObj.Fini; begin (* ParentObj.Fini *) Dispose ( S ); end (* ParentObj.Fini *); Procedure ParentObj.O; begin (* ParentObj.O *) write ( 'O' ); end (* ParentObj.O *); Procedure ParentObj.K; begin (* ParentObj.K *) write ( 'y' ); end (* ParentObj.K *); Procedure ChildObj.O; begin (* ChildObj.O *) write ( 'x' ); end (* ChildObj.O *); Procedure ChildObj.K; begin (* ChildObj.K *) inherited K; writeln ( chr ( 8 ) + c ); end (* ChildObj.K *); begin MyObject:= New ( ChildPtr, Init ( 'Hello, world!' ) ); with MyObject^ do begin O; K; writeln ( S^ ); end (* with *); Dispose ( MyObject, Fini ); end. (* The output should be: *) (* OK *) (* Hello, world! *)

1 0

← Newer
1
2
3
4
5
6
7
8
...
16
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

2002

2001

2000

1999

1998

1997

1996

1995

Gpc October 1997