home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / lang / pascal / 6864 < prev    next >
Encoding:
Internet Message Format  |  1992-11-24  |  1.7 KB
  1. Path: sparky!uunet!news.univie.ac.at!apap4.pap.univie.ac.at!roesel
  2. From: roesel@apap4.pap.univie.ac.at
  3. Newsgroups: comp.lang.pascal
  4. Subject: Re: Pointer problems...
  5. Message-ID: <1992Nov23.182354.58@apap4>
  6. Date: 23 Nov 92 18:23:54 GMT
  7. References: <1992Nov21.181025.18275@jupiter.sun.csd.unb.ca>
  8. Organization: Vienna University Computer Center
  9. Lines: 66
  10.  
  11. In article <1992Nov21.181025.18275@jupiter.sun.csd.unb.ca>, tcsmith@mta.ca (Tim Smith) writes:
  12. > {*****problem 1**********************}
  13. > var
  14. >   p1: ^byte;
  15. >   p2: ^byte;
  16. >   p3   : pointer;
  17. > begin
  18. >   getmem(p3,100);
  19. >   p1:=P3;
  20. >   p2:=addr(p1);
  21. > 
  22. >   writeln(p1^,' ',p2^,' ');
  23. >           ^^^-----^^^ Why won't these two values be equal?
  24. >   freemem(p3,100);
  25. > end.
  26.  
  27. p2 points at the location where the pointer p1 itself is stored. E.g. if
  28. p1 is stored in memory at location 3000h:0 and points to 4000h:1234h then
  29. the memory at 3000h:0 contains the bytes 34h 12h 00h 40h. Therefore p2^
  30. would be 34h, whereas p1^ is the byte at 4000h:1234h, which can be of any
  31. value.
  32.  
  33. > 
  34. > {*****problem 2**********************}
  35. > var
  36. >   P1 : ^Byte;
  37. >   P2 : ^Byte;
  38.  
  39. Turbo Pascal treats these declarations as different ones, therefore it
  40. will not allow the following assignment
  41.  
  42. > begin
  43. >   new(p1);
  44. >   p2:=p1;   { Why is this illegal }
  45. > 
  46. >   dispose(p1);
  47. > end.
  48. > 
  49.  
  50. To solve the problem you must write
  51.  
  52. type
  53.  pByte = ^Byte;
  54.  
  55. var
  56.    P1 : pByte;
  57.    P2 : pByte;
  58.  
  59. { or alternativ
  60.  var
  61.  P1, P2 : ^Byte }
  62.  
  63. begin
  64.    new(p1);
  65.    p2:=p1;   
  66.    dispose(p1);
  67. end.
  68.  
  69.  
  70. I hope this helps
  71.  
  72.         Martin
  73.  
  74. ------------------------------------------------------------------------------
  75. Martin Roesel, Institute of Solid State Physics, University of Vienna, Austria
  76. roesel@apap1.pap.univie.ac.at
  77.