Gpc

gpc@gnu.de

5400 discussions

Goodbye, but I'll be back
by Bill Currie 13 Nov '97

13 Nov '97

Well, goodbye. I'm leaving my (now ex) employer and going on to a new on. I should be back on the net soon and I will send posts to the appropriate places when I get my new address. It's been nice knowing you and being part of the djgpp community for the last 2.5 years and gpc for 0.5 years. For anyone trying to get in touch with me, just send posts to djgpp and I'll check the archives (assuming I have web access). Well anyway, goodbye, good luck, and good hacking. Bill -- Leave others their otherness.

1 0

Re: probs compiling current beta GPC
by Clyde Meli 13 Nov '97

13 Nov '97

> According to Clyde Meli: > > /usr/local/lib/gcc-lib/sparc-sun-solaris2.5.1/2.7.2.3/include/unistd.h:230: conf > > licting types for `rename' > > /usr/local/lib/gcc-lib/sparc-sun-solaris2.5.1/2.7.2.3/include/stdio.h:161: previ > > ous declaration of `rename' > > It seems as if the (AutoConf) configuration script did not recognize > your system correctly. Please try and edit `gpc-config.h' manually > and flip the `HAVE_UNISTD_H' switch. > > Good luck, > > 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] > I found what was confusing AUTOCONF - I did not set the CC environment variable (I never did and I never had problems :) ) to /usr/local/bin/gcc (or wherever gcc is located). I recompiled the C compiler now using the precompiled gcc 2.7.2.1 package available on the net. Now I attempted to compile the beta but I ran into problems again, this time with parse.y (I've recompiled bison again - version 1.25 - from what I tried to check I found it should be the latest version) and using the new parse.h which you gave me. Now I got the following errors: # make LANGUAGES=pascal CC=/usr/local/bin/gcc cd p; make "AR_FLAGS=rc" "AR_FOR_TARGET=/usr/local/sparc-sun-solaris2.5.1/bin/ar " "BISON=bison" "BISONFLAGS=" "CC=/usr/local/bin/gcc" "CFLAGS=-g" "GCC_FOR_TARGE T=./xgcc -B./" "LDFLAGS=" "LEX=flex" "LEXFLAGS=" "MAKEINFO=makeinfo" "MAKEINFOFL AGS=" "RANLIB_FOR_TARGET=/usr/local/sparc-sun-solaris2.5.1/bin/ranlib" "RANLIB_T EST_FOR_TARGET=[ -f /usr/local/sparc-sun-solaris2.5.1/bin/ranlib ]" "SHELL=/bin/ sh" "exeext=" "objext=.o" "exec_prefix=/usr/local" "prefix=/usr/local" "tooldir= /usr/local/sparc-sun-solaris2.5.1" "bindir=/usr/local/bin" "libsubdir=/usr/local /lib/gcc-lib/sparc-sun-solaris2.5.1/2.7.2.3" "CROSS=" "AR_FLAGS=rc" "AR_FOR_TARG ET=/usr/local/sparc-sun-solaris2.5.1/bin/ar" "BISON=bison" "BISONFLAGS=" "CFLAGS =-g" "X_CFLAGS=-DSVR4" "LDFLAGS=" "LEX=flex" "LEXFLAGS=" "MAKEINFO=makeinfo" "MA KEINFOFLAGS=" "MAYBE_TARGET_DEFAULT=" "MAYBE_USE_COLLECT2=" "RANLIB_FOR_TARGET=/ usr/local/sparc-sun-solaris2.5.1/bin/ranlib" "RANLIB_TEST_FOR_TARGET=[ -f /usr/l ocal/sparc-sun-solaris2.5.1/bin/ranlib ]" "SHELL=/bin/sh" "bindir=/usr/local/bin " "exec_prefix=/usr/local" "gxx_include_dir=/usr/local/lib/g++-include" "include dir=/usr/local/include" "libsubdir=/usr/local/lib/gcc-lib/sparc-sun-solaris2.5.1 /2.7.2.3" "prefix=/usr/local" "target_alias=" "tooldir=/usr/local/sparc-sun-sola ris2.5.1" "gpc_version=971001" "rts_version=2.8" "version=2.7.2.3" ../gpc1 make[1]: Entering directory `/usr1/local/src/GNU/SOURCE/gcc-2.7.2.3/p' /usr/local/bin/gcc -c -DIN_GCC -DGPC -DSVR4 -g -Wall \ -I. -I.. -I. -I./.. -I./../config \ `echo ./parse.c | sed 's,^\./,,'` parse.y: In function `yyparse': parse.y:744: warning: implicit declaration of function `error' parse.y:748: warning: implicit declaration of function `get_main_program_name' parse.y:748: warning: assignment makes pointer from integer without a cast parse.y:752: warning: implicit declaration of function `pedwarn' parse.y:755: warning: implicit declaration of function `initialize_module' parse.y:756: `current_module' undeclared (first use this function) parse.y:756: (Each undeclared identifier is reported only once parse.y:756: for each function it appears in.) parse.y:779: warning: implicit declaration of function `associate_external_objec ts' parse.y:789: warning: implicit declaration of function `check_external_objects' parse.y:820: warning: implicit declaration of function `concat' parse.y:821: warning: assignment makes pointer from integer without a cast parse.y:823: warning: implicit declaration of function `no_parameters' parse.y:823: warning: assignment makes pointer from integer without a cast parse.y:839: warning: implicit declaration of function `init_constructor' parse.y:840: warning: implicit declaration of function `un_initialize_block' parse.y:858: warning: assignment makes pointer from integer without a cast parse.y:860: warning: assignment makes pointer from integer without a cast parse.y:884: warning: implicit declaration of function `output_real_main_program ' parse.y:912: warning: implicit declaration of function `store_executable_name' parse.y:1298: `const_id' undeclared (first use this function) parse.y:1305: warning: implicit declaration of function `handle_autoexport' parse.y:1335: warning: implicit declaration of function `declare_vars' parse.y:1487: `size_volatile' undeclared (first use this function) parse.y:1503: warning: implicit declaration of function `build_schema_type' parse.y:1503: warning: assignment makes pointer from integer without a cast parse.y:1506: `type_id' undeclared (first use this function) parse.y:1653: warning: implicit declaration of function `build_pascal_string_sch ema' parse.y:1653: warning: assignment makes pointer from integer without a cast parse.y:1706: warning: implicit declaration of function `declared_string_capacit y' parse.y:1716: warning: assignment makes pointer from integer without a cast parse.y:1851: warning: implicit declaration of function `maybe_schema_discrimina nt' parse.y:1851: warning: implicit declaration of function `string_may_be_char' parse.y:1851: warning: assignment makes pointer from integer without a cast parse.y:1852: warning: assignment makes pointer from integer without a cast parse.y:1859: warning: implicit declaration of function `build_pascal_range_type ' parse.y:1859: warning: assignment makes pointer from integer without a cast parse.y:1870: warning: assignment makes pointer from integer without a cast parse.y:1871: warning: assignment makes pointer from integer without a cast parse.y:1878: warning: implicit declaration of function `grok_packed' parse.y:1878: warning: assignment makes pointer from integer without a cast parse.y:1897: warning: implicit declaration of function `build_pascal_pointer_ty pe' parse.y:1897: warning: assignment makes pointer from integer without a cast parse.y:2007: `string_schema_proto_type' undeclared (first use this function) parse.y:2045: warning: unused variable `size' parse.y:2087: warning: assignment makes pointer from integer without a cast parse.y:2104: warning: implicit declaration of function `check_object_pointer' parse.y:2124: warning: passing arg 2 of `build_tree_list' makes pointer from int eger without a cast parse.y:2135: warning: implicit declaration of function `build_pascal_array_type ' parse.y:2135: warning: assignment makes pointer from integer without a cast parse.y:2176: warning: implicit declaration of function `convert_type_to_range' parse.y:2176: warning: passing arg 2 of `build_tree_list' makes pointer from int eger without a cast parse.y:2178: warning: passing arg 2 of `build_tree_list' makes pointer from int eger without a cast parse.y:2184: warning: implicit declaration of function `build_file_type' parse.y:2184: warning: assignment makes pointer from integer without a cast parse.y:2203: warning: implicit declaration of function `build_set_type' parse.y:2203: warning: assignment makes pointer from integer without a cast parse.y:2199: warning: unused variable `range' parse.y:2211: warning: assignment makes pointer from integer without a cast parse.y:2299: warning: implicit declaration of function `p_grokfields' parse.y:2299: warning: assignment makes pointer from integer without a cast parse.y:2316: warning: implicit declaration of function `build_record_variant_pa rt' parse.y:2317: warning: passing arg 2 of `build_tree_list' makes pointer from int eger without a cast parse.y:2425: warning: passing arg 2 of `build_tree_list' makes pointer from int eger without a cast parse.y:2429: warning: passing arg 1 of `build_tree_list' makes pointer from int eger without a cast parse.y:2429: warning: passing arg 2 of `build_tree_list' makes pointer from int eger without a cast parse.y:2460: warning: implicit declaration of function `store_object_name' parse.y:2461: warning: implicit declaration of function `add_vmt_field' parse.y:2462: warning: implicit declaration of function `construct_vmt' parse.y:2476: warning: implicit declaration of function `inherit' parse.y:2536: warning: implicit declaration of function `mark_virtual_method' parse.y:2536: warning: assignment makes pointer from integer without a cast parse.y:2545: warning: assignment makes pointer from integer without a cast parse.y:2564: warning: assignment makes pointer from integer without a cast parse.y:2578: warning: implicit declaration of function `get_method_name' parse.y:2579: warning: assignment makes pointer from integer without a cast parse.y:2601: warning: assignment makes pointer from integer without a cast parse.y:2665: `const_string_schema_proto_type' undeclared (first use this functi on) parse.y:2672: warning: assignment makes pointer from integer without a cast parse.y:2682: warning: passing arg 1 of `get_identifier' makes pointer from inte ger without a cast parse.y:2762: `extern_id' undeclared (first use this function) parse.y:2779: `static_id' undeclared (first use this function) parse.y:2781: `volatile_id' undeclared (first use this function) parse.y:2783: `attribute_id' undeclared (first use this function) parse.y:3102: warning: implicit declaration of function `name_exported_p' parse.y:3103: warning: implicit declaration of function `maybe_make_static' parse.y:3103: warning: assignment makes pointer from integer without a cast parse.y:3255: warning: assignment makes pointer from integer without a cast parse.y:3265: warning: passing arg 1 of `get_identifier' makes pointer from inte ger without a cast parse.y:3306: warning: passing arg 1 of `get_identifier' makes pointer from inte ger without a cast parse.y:3326: `inline_id' undeclared (first use this function) parse.y:3348: warning: assignment makes pointer from integer without a cast parse.y:3551: warning: implicit declaration of function `push_self_parameter' parse.y:3603: warning: implicit declaration of function `handle_formal_param_lis t' parse.y:3633: warning: implicit declaration of function `handle_formal_conf_arra y_param_list' parse.y:3722: warning: passing arg 2 of `build_tree_list' makes pointer from int eger without a cast parse.y:3723: warning: assignment makes pointer from integer without a cast parse.y:3772: warning: implicit declaration of function `emit_nop' parse.y:3886: warning: implicit declaration of function `emit_line_note' parse.y:3916: warning: implicit declaration of function `warning_with_file_and_l ine' parse.y:3926: warning: passing arg 1 of `c_expand_start_case' makes pointer from integer without a cast parse.y:3952: warning: implicit declaration of function `error_with_decl' parse.y:4153: warning: implicit declaration of function `check_for_control_varia ble' parse.y:4158: warning: assignment makes pointer from integer without a cast parse.y:4163: warning: implicit declaration of function `get_unique_identifier' parse.y:4172: warning: passing arg 1 of `start_decl' makes pointer from integer without a cast parse.y:4197: warning: passing arg 1 of `start_decl' makes pointer from integer without a cast parse.y:4266: warning: implicit declaration of function `construct_set' parse.y:4266: warning: assignment makes pointer from integer without a cast parse.y:4300: warning: implicit declaration of function `make_new_variable' parse.y:4300: warning: assignment makes pointer from integer without a cast parse.y:4373: warning: implicit declaration of function `expand_computed_goto' parse.y:4393: warning: implicit declaration of function `suspend_function_calls' parse.y:4397: warning: implicit declaration of function `resume_function_calls' parse.y:4437: warning: implicit declaration of function `allow_function_calls' parse.y:4462: warning: implicit declaration of function `maybe_call_function' parse.y:4462: warning: assignment makes pointer from integer without a cast parse.y:4464: warning: implicit declaration of function `call_method' parse.y:4464: warning: assignment makes pointer from integer without a cast parse.y:4489: warning: passing arg 1 of `lookup_name' makes pointer from integer without a cast parse.y:4516: warning: passing arg 1 of `get_identifier' makes pointer from inte ger without a cast parse.y:4607: warning: assignment makes pointer from integer without a cast parse.y:4612: warning: implicit declaration of function `base_type' parse.y:4612: invalid type argument of `->' parse.y:4614: warning: assignment makes pointer from integer without a cast parse.y:4615: warning: implicit declaration of function `is_string_type' parse.y:4617: warning: implicit declaration of function `assign_string' parse.y:4645: `schema_id' undeclared (first use this function) parse.y:4699: warning: implicit declaration of function `build_rts_call' parse.y:5040: warning: passing arg 2 of `build_tree_list' makes pointer from int eger without a cast parse.y:5044: warning: passing arg 2 of `build_tree_list' makes pointer from int eger without a cast parse.y:5056: warning: passing arg 2 of `build_tree_list' makes pointer from int eger without a cast parse.y:5065: warning: passing arg 2 of `build_tree_list' makes pointer from int eger without a cast parse.y:5071: warning: passing arg 1 of `build_tree_list' makes pointer from int eger without a cast parse.y:5071: warning: passing arg 2 of `build_tree_list' makes pointer from int eger without a cast parse.y:5076: warning: passing arg 2 of `build_tree_list' makes pointer from int eger without a cast parse.y:5088: warning: passing arg 2 of `build_tree_list' makes pointer from int eger without a cast parse.y:5300: `string_id' undeclared (first use this function) parse.y:5360: warning: initialization makes pointer from integer without a cast parse.y:5473: warning: assignment makes pointer from integer without a cast parse.y:5475: warning: assignment makes pointer from integer without a cast parse.y:5486: warning: assignment makes pointer from integer without a cast parse.y:5501: warning: implicit declaration of function `get_standard_output' parse.y:5501: warning: assignment makes pointer from integer without a cast parse.y:5503: warning: implicit declaration of function `get_standard_input' parse.y:5503: warning: assignment makes pointer from integer without a cast parse.y:5510: warning: passing arg 1 of `get_identifier' makes pointer from inte ger without a cast parse.y:5523: warning: implicit declaration of function `is_schema_discriminant_ access' parse.y:5527: warning: assignment makes pointer from integer without a cast parse.y:5544: warning: assignment makes pointer from integer without a cast parse.y:5564: warning: implicit declaration of function `build_buffer_ref' parse.y:5564: warning: assignment makes pointer from integer without a cast parse.y:5575: `empty_arglist' undeclared (first use this function) parse.y:5575: warning: assignment makes pointer from integer without a cast parse.y:5596: warning: implicit declaration of function `build_pascal_array_ref' parse.y:5596: warning: assignment makes pointer from integer without a cast parse.y:5626: warning: assignment makes pointer from integer without a cast parse.y:5638: warning: passing arg 1 of `start_decl' makes pointer from integer without a cast parse.y:5646: warning: initialization makes pointer from integer without a cast parse.y:5662: warning: initialization makes pointer from integer without a cast parse.y:5687: warning: initialization makes pointer from integer without a cast parse.y:5697: warning: assignment makes pointer from integer without a cast parse.y:5720: warning: passing arg 1 of `get_identifier' makes pointer from inte ger without a cast parse.y:5744: warning: implicit declaration of function `build_set_constructor' parse.y:5744: warning: assignment makes pointer from integer without a cast parse.y:5773: warning: implicit declaration of function `construct_set_member' parse.y:5773: warning: assignment makes pointer from integer without a cast parse.y:5775: warning: assignment makes pointer from integer without a cast parse.y:5780: warning: assignment makes pointer from integer without a cast parse.y:5784: warning: assignment makes pointer from integer without a cast parse.y:5787: warning: assignment makes pointer from integer without a cast parse.y:5789: warning: assignment makes pointer from integer without a cast parse.y:6077: warning: implicit declaration of function `finalize_module' parse.y:6078: `NULL_MODULE' undeclared (first use this function) parse.y:6105: warning: implicit declaration of function `export_interface' parse.y:6110: warning: implicit declaration of function `module_repair_exported_ ranges' parse.y:6111: warning: implicit declaration of function `create_gpi_files' parse.y:6113: warning: implicit declaration of function `handle_pending_decls' parse.y:6134: warning: implicit declaration of function `create_gpm_file' parse.y:6161: warning: implicit declaration of function `load_gpm_file' parse.y:6235: `we_are_loading_a_gpi_file' undeclared (first use this function) parse.y:6275: warning: initialization makes pointer from integer without a cast parse.y:6277: warning: initialization makes pointer from integer without a cast parse.y:6329: warning: initialization makes pointer from integer without a cast parse.y:6331: warning: initialization makes pointer from integer without a cast parse.y:6376: warning: initialization makes pointer from integer without a cast parse.y:6378: warning: initialization makes pointer from integer without a cast parse.y:6477: warning: implicit declaration of function `module_export_range' parse.y:6477: warning: assignment makes pointer from integer without a cast parse.y:6479: warning: implicit declaration of function `module_export_clause' parse.y:6479: warning: assignment makes pointer from integer without a cast parse.y:6481: warning: assignment makes pointer from integer without a cast parse.y:6484: warning: assignment makes pointer from integer without a cast parse.y:6539: warning: implicit declaration of function `import_interface' make[1]: *** [parse.o] Error 1 make[1]: Leaving directory `/usr1/local/src/GNU/SOURCE/gcc-2.7.2.3/p' make: *** [gpc1] Error 2

1 0

undeclared identifiers
by Tom Dye 12 Nov '97

12 Nov '97

Hello Peter, Thank you for helping so often and so well. With the code below gpc says I is an undeclared identifier and that the condition that I is part of must be of Boolean type. I've been through the examples in the Extended Pascal Standard to see if something is obviously wrong with the code, but didn't find anything there. Sorry if this is an obvious error in Extended Pascal. My Borland Pascal background leads me to believe that the code is OK, though. Is gpc not doing something right here? Tom Thomas S. Dye, Ph.D. Home: 813 16th Avenue, Honolulu, Hawaii 96816. Voice (808) 734-2087. Work: International Archaeological Research Institute, Inc., 949 McCully St., Suite 5, Honolulu, Hawaii 96826. Voice (808) 946-2548; Fax 943-0716. module charbug interface; export charbug = (IsAlphaNum); function IsAlphaNum (ch : char; i : integer) : boolean; end. module charbug implementation; function IsAlphaNum; begin if i > 2 then IsAlphaNum:= ch in ['A'..'Z','a'..'z','0'..'9']; end; end.

1 0

Re: DPMI calls (Was: Re: Backflips, ...)...
by Frank Heckenbach 12 Nov '97

12 Nov '97

<Pine.3.89.9711111023.A17958-0100000@@bc> Orlando Llanes wrote: > <grin> I wish there was something that overlaps instead of it > increasing the size :-/ I guess the only way around it is Type-casting. Variant records are overlapping, as I said. Type-casting is another way, absolute variables are a third one (though I don't recommend it since it's IMHO quite unsafe)... > I mean does GPC add to the size of the record? Or are all the cases > one size? For example, in my SomeVar example, would GPC treat it as 4 > elements? Or 2? 2 elements (GPC and BP). -- Frank Heckenbach, Erlangen, Germany fjf(a)gmx.de http://home.pages.de/~fjf/links.htm

1 0

Re: DPMI calls (Was: Re: Backflips, ...)...
by Frank Heckenbach 11 Nov '97

11 Nov '97

Orlando Llanes wrote: > > On the x86 platform, it is. All variables (global, local and dynamic) and > > code are in the same segment, and pointers and references are just 32-bit > > offsets. (On other platforms, there may not be anything like Descriptors, or > > pointers may have a different size, e.g. 64 bits.) > > Cool :) Where can I Get info on the Machine specifics of Alphas? I > want to know the low level details like how graphics are displayed, if > sound is available, the architecture of the memory (for example: PC has > segments, offsets, etc). Though I can't really give you any information about this, and Peter gave you some, I just want to remak that these things are not actually dependent on the processor, but on the other hardware and the OS. While I don't know if there's more than one hardware architecture with Alphas, I'm quite sure that there are different OS's running on the Alpha. > > Unfortunately, there is something wrong there, namely the declaration of > > __dpmi_regs. Instead of ShortCard (16 bit unsigned integers on the x86, and > > the natural translation of the "unsigned short" of dpmi.h), it uses Bytes for > > the 16-bit registers. Try changing it as below. (I did not check your program, > > however, because I'm too lazy now to boot DosEmu... ;-) > > Doh! It's *always* those dang pesky minor details that are so elusive, > the ones that you would never think could possibly go wrong :P One thing > tho, I think I tried it using the following declarations (and I changed > the sizes accordingly as well): > > TYPE > DWord = Cardinal(32); > Word = Cardinal(16); > Byte = Cardinal(8); > > So what said Byte previously, I changed to Word, and what was Word > previously I changed to DWord. I'll try it again, mayhaps I did something > wrong :} These declarations seem OK, they always guarantee the correct register sizes (in constrast to the other types which are merely a 1-to-1 translation of the types used in the C header; they might be different on other platforms, but then, for DPMI specific code, that's not much of an issue...). However, I would not call it "Word" because in a 32-bit environment, some people would expect a "Word" to have 32 bits (as the built-in Word type does). Perhaps something like "Word16", to avoid possible confusion... > > BTW: "Packed" is (I think) not necessary for this record, because all fields > > are aligned, anyway, i.e. 32-bit fields are preceeded only by other 32-bit > > fields, and so on. The original record is a "struct" in dpmi.h, and I think > > C's "struct"s correspond to non-packed records in Pascal. Is this right? > > Does Packed align on a Dword boundary? Or does it lump all the fields > together to ensure that they are continuous? I ask because from what I > remmeber about Pascal, it's to keep them continuous (the only time in > Borin... errr... Standard Pascal that I've seen Packed is for a character > array). Yes, it keeps them together. What I meant is: since the fields are aligned, anyway, even a non-packed array would not insert any gaps, so it doesn't matter here if packed or non-packed. Since the corresponding function was written in C, it has to use non-packed "struct"s, so a non-packed array would be the 1-to-1 translation into Pascal. > Ok, I think I figured out what went wrong. Apparently in C, the way > __dpmi_regs is defined is in a way such that the 3 sections (d, x, and h) > overlap, but it doens't appear to be overlapping in Pascal. I noticed a > quirk with Borland Pascal, and I was wondering if it was present in GPC, > when you define a record structure as follows: > > TYPE > MyRec = RECORD > CASE Integer OF > 0 : (SomeVar : Integer; SomeVar2 : Integer); > 1 : AnotherVar : ARRAY[ 1..2 ] OF Integer; > END; > END; > > Supposedly, you want to tell the compiler to use SomeVar, or AnotherVar > as if they were overlapping. An Integer is 16 bits in BP, with that in > mind, BP would report 8 when you use SizeOf( MyRec ), logically it should > be 4. By overlapping, I mean like a type cast. Is there a way to do this > in GPC like C apparently does? Variant records *are* overlapping in Pascal (both BP and GPC). I don't know what you tried, but the following program gives 8 in GPC and 4 in BP, both as I expected for an overlapping type. program x; TYPE MyRec = RECORD CASE Integer OF 0 : (SomeVar : Integer; SomeVar2 : Integer); 1 : (AnotherVar : ARRAY[ 1..2 ] OF Integer); END; begin writeln(sizeof(myrec)) end. If you still don't get the program working, please post a complete program that tries to set the mode, so we can try it. Kevin A. Foss wrote: > >> Is there anything in C that corresponds to packed records in Pascal? > > [...] > > However there are a lot of caveats, like you can only use integer > types, and the behavior if a field crosses a word boundry is > implementation defined. So it would take a lot of work to simulate > anything but the simplest Packed Pascal records--although I lost where > the discussion began so I don't know for what reason you want to pack > things in C. Nothing particular, just curiosity. Thanks for the info. -- Frank Heckenbach, Erlangen, Germany fjf(a)gmx.de http://home.pages.de/~fjf/links.htm

1 0

Re: GPC and GPT
by Frank Heckenbach 11 Nov '97

11 Nov '97

In news:comp.lang.pascal.borland, Brian Jones <brijones(a)usa.net> wrote: > I have copies of both GPC and GPT, along with RH-IDE and the GNU binutils, > as well as almost the rest of the entire DJGPP collection. I have tried to > write programs in Pascal using RH-IDE, and have had success getting them to > compile, but I can't get them to link (although I can get programs written > in C to link). My question is this, has anyone else had this same problem, > or does anyone know how to fix this? When replying, it's probably necessary to CC a copy to the poster. -- Frank Heckenbach, Erlangen, Germany fjf(a)gmx.de http://home.pages.de/~fjf/links.htm

1 0

Re: DPMI calls (Was: Re: Backflips, ...)...
by Peter Gerwinski 11 Nov '97

11 Nov '97

According to Orlando Llanes: > I noticed a > quirk with Borland Pascal, and I was wondering if it was present in GPC, > when you define a record structure as follows: > > TYPE > MyRec = RECORD > CASE Integer OF > 0 : (SomeVar : Integer; SomeVar2 : Integer); > 1 : AnotherVar : ARRAY[ 1..2 ] OF Integer; > END; > END; This is not a quirk but a variant record which is even part of the ISO standard. (Hmmm ... so maybe it "must" be a quirk?;-) (BTW, you have one superfluous `END' in the above.) > Supposedly, you want to tell the compiler to use SomeVar, or AnotherVar > as if they were overlapping. An Integer is 16 bits in BP, with that in > mind, BP would report 8 when you use SizeOf( MyRec ), logically it should > be 4. By overlapping, I mean like a type cast. Is there a way to do this > in GPC like C apparently does? GPC accepts this, just like BP or any other Pascal compiler does. Greetings, 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]

2 1

Turbo/Free Vision --- or EFLIB
by Johan Larsson 11 Nov '97

11 Nov '97

[ EFLIB vs. Free Vision for FPK Pascal ] Hi Daniel Mantione and everybody, Pierre Phaneuf writes: >> EFLIB to be crushed by advanced capabilities, extreme flexibility >> and out-of-this-world performance! ;-) Daniel Mantione writes: >> What do you think of making EFLIB as a supplement to the objects unit? Daniel: yes - and no, depending on how to interprete ;-) your question! EFLIB will never be written to be compatible with Turbo Vision: let me explain why! The goal with EFLIB is to create a standardized class library. But as Pierre said, we also aim to create an extreme flexibility as well as modularity and code reusability - and simplicity. These are the main goals with EFLIB - not to follow existing standards thus limiting the new thinking and Java-alike solutions, event mechanisms, design patterns and so on. The only consideration that affect the way EFLIB will evolve is **what is the best solution**. "What is the best backward compatible solution" is of little or no concern (with one exception; backward compatiblity to earlier EFLIB releases starting with the first official release, but that will be a piece of cake when the modular interface is set). Let me give concrete examples. When classic data structures are designed, we do not look at traditional solutions and try to follow the expectations of the user. Instead, we find the solution we prefer, and try to package that solution in a simple interface and an intuitive design. Iterator classes for the data structures are one example. Hash table class hierarchy is one. ADT inheritance is yet one. But there is one thing that may be of interest for you. Since the capabilities of Turbo Vision (or Free Vision) is likely to be a subset of the capabilities of EFLIB, we could (with help from some Turbo Vision enthusiast of course) create classes that ***emulate Turbo Vision*** within EFLIB. The same goes with other features in EFLIB; for example the extended stream engine to be designed by Pierre Phaenuf or the GUI components to be designed by Aleksandar Dlabac and Miroslav Kharchuk - or anything else. We could provide a complete set of Turbo Vision (read: Free Vision) classes built on the modular and standardized EFLIB solutions. Thus, we can provide a dual interface so that old users can make use of the new features... But then, I'd rather see that you all learned EFLIB straight from the start... But I guess that never will happen --- ;-) Best Regards, Johan Larsson E-MAIL jola(a)ts.umu.se, EFLIB(a)ts.umu.se, EFLIB-Developers(a)ts.umu.se, EFLIB-Users(a)ts.umu.se HOME http://www.ts.umu.se/~jola/ Also, REMEMBER to check out http://ftp.sunet.se/EFLIB/ for a free application framework - SIMPLY SOPHISTICATED. Also, Subscribe to the EFLIB mailing lists! See http://www.ts.umu.se/EFLIB/Lists/.

1 0

Re: Backflips, cartwheels, and proc params...
by Peter Gerwinski 11 Nov '97

11 Nov '97

According to Orlando Llanes: > > Cool :) Where can I Get info on the Machine specifics of Alphas? I > want to know the low level details like how graphics are displayed, if > sound is available, the architecture of the memory (for example: PC has > segments, offsets, etc). [...] See the source (and its documentation) of the Linux kernel for the Alpha. > BTW, are there plans to port DJGPP and/or GPC to > the Mac platform? Are there any free tools you or anybody know of that > compile on it? AFAIK, the GNU project does not support the Mac platform because Apple did not give them the necessary information. > TYPE > DWord = Cardinal(32); > Word = Cardinal(16); > Byte = Cardinal(8); > > So what said Byte previously, I changed to Word, and what was Word > previously I changed to DWord. I'll try it again, mayhaps I did something > wrong :} `Byte' always has the smallest size direcly accessible to the processor anyway - usually eight bits ... > Does Packed align on a Dword boundary? Or does it lump all the fields > together to ensure that they are continuous? The second. Without `packed', you get the first. > I ask because from what I > remmeber about Pascal, it's to keep them continuous (the only time in > Borin... errr... Standard Pascal that I've seen Packed is for a character > array). It does not stop there: Try the following with BP and with GPC: Var foo: packed array [ 1..64 ] of Boolean; writeln ( SizeOf ( foo ) ); :-) > Got me on that one :( Although I am very familiar with the types, > type definitions, and I haven't seen anything really about packing the > records like in Pascal. I could be wrong tho, if there is something, it's > one of those deep dark secrets of C :P There are bit fields: struct foo { int i : 4; unsigned j : 2; int k : 1; unsigned l: 1; } is the same as the following in Pascal foo = packed record i: -8..7; j: 0..3; k, l: 0..1; end (* foo *); and both fit in a single byte. Have fun, 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: Binary installation
by Peter Gerwinski 11 Nov '97

11 Nov '97

According to Tom Dye: > > There might be another problem. The following code once compiled, but > doesn't now. > > *** code snippet *** > > module bug interface; > > export > bug = (StrPCopy); > > const > LONGEST_STRING = 256; > > type > Any_String = String(LONGEST_STRING); > CString = __cstring__; > > function StrPCopy (Dest : CString; Src : Any_String) : CString; > > end. > > module bug implementation; > [...] > function StrPCopy (Dest : CString; Src : Any_String) : CString; Since `Any_String' isn't exported, the implementation module does not know about it. (Should it? What does the standard say about this?) You can either export `Any_String' or change `StrPCopy' to accept just a `String' parameter. The latter method did not work in gpc-2.0 but is in fact the correct way to pass an arbitrary string. function StrPCopy (Dest : CString; Src : String) : CString; or function StrPCopy (Dest : CString; Const Src : String) : CString; Greetings, 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

Jump to page:

2025

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