/[eiffelstudio]/trunk/eweasel/tests/exec131/test.e
ViewVC logotype

Contents of /trunk/eweasel/tests/exec131/test.e

Parent Directory Parent Directory | Revision Log Revision Log


Revision 65297 - (show annotations)
Thu Nov 30 20:22:33 2006 UTC (12 years, 10 months ago) by manus
File size: 551 byte(s)
Moved from trunk/Src/eweasel to trunk/eweasel so that a simple checkout of the source code is not penalized by the lenghty process of checking out all the tests of eweasel.
1
2 --| Copyright (c) 1993-2006 University of Southern California and contributors.
3 --| All rights reserved.
4 --| Your use of this work is governed under the terms of the GNU General
5 --| Public License version 2.
6
7 class TEST
8
9 creation
10
11 make
12
13 feature
14
15 make is
16 local
17 double_value: DOUBLE
18 temp_ptr: POINTER
19 buffer: POINTER
20 do
21 buffer := buffer.memory_alloc (8)
22 buffer.memory_copy ($double_value, 8)
23 double_value := 1.0
24 temp_ptr := $double_value
25 temp_ptr.memory_copy (buffer, 8)
26 print (double_value)
27 io.new_line
28 end
29
30 end

Properties

Name Value
svn:eol-style native
svn:keywords Author Date Id Revision

  ViewVC Help
Powered by ViewVC 1.1.23