Skip to content

Commit

Permalink
Move more built-in contextuals into PROCESS:: .
Browse files Browse the repository at this point in the history
  • Loading branch information
pmichaud committed Sep 4, 2009
1 parent 6a0eb0c commit b87755c
Showing 1 changed file with 4 additions and 4 deletions.
8 changes: 4 additions & 4 deletions src/builtins/globals.pir
Expand Up @@ -22,7 +22,7 @@ src/builtins/globals.pir - initialize miscellaneous global variables
p6meta.'register'('Env', 'parent'=>$P0, 'protoobject'=>$P0)
.local pmc env
env = root_new ['parrot';'Env']
set_hll_global '%ENV', env
set_hll_global ['PROCESS'], '%ENV', env

## set up @*INC
$S0 = env['PERL6LIB']
Expand All @@ -41,17 +41,17 @@ src/builtins/globals.pir - initialize miscellaneous global variables
info = sysinfo .SYSINFO_PARROT_OS
$P0 = new ['Str']
$P0 = info
set_hll_global '$OS', $P0
set_hll_global ['PROCESS'], '$OS', $P0

info = sysinfo .SYSINFO_PARROT_OS_VERSION
$P0 = new ['Str']
$P0 = info
set_hll_global '$OSVER', $P0
set_hll_global ['PROCESS'], '$OSVER', $P0

info = interpinfo .INTERPINFO_EXECUTABLE_FULLNAME
$P0 = new ['Str']
$P0 = info
set_hll_global '$EXECUTABLE_NAME', $P0
set_hll_global ['PROCESS'], '$EXECUTABLE_NAME', $P0

## create basic $*CWD
.local pmc os
Expand Down

0 comments on commit b87755c

Please sign in to comment.