rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix socket_client_open/3

Browse Source
This commit is contained in:
Adrián Arroyo Calle
2022-01-08 23:31:32 +01:00
parent d01806ee2d
commit 07bc97fb31
2 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/lib/sockets.pl
View File

@@ -25,7 +25,7 @@ socket_client_open(Addr, Stream, Options) :-
builtins:parse_stream_options(Options, builtins:parse_stream_options(Options,
[Alias, EOFAction, Reposition, Type], [Alias, EOFAction, Reposition, Type],
socket_client_open/3), socket_client_open/3),
'$socket_client_open'(Address, Port, Stream, Alias, EOFAction, Reposition, Type). '$socket_client_open'(Address, Port, Stream, Alias, EOFAction, Reposition, Type, false).
socket_server_open(Addr, ServerSocket) :- socket_server_open(Addr, ServerSocket) :-

7
src/machine/system_calls.rs
View File

@@ -4115,7 +4115,7 @@ impl Machine {
let socket_atom = cell_as_atom!(addr); let socket_atom = cell_as_atom!(addr);
let _port = read_heap_cell!(port, let port = read_heap_cell!(port,
(HeapCellValueTag::Atom, (name, arity)) => { (HeapCellValueTag::Atom, (name, arity)) => {
debug_assert_eq!(arity, 0); debug_assert_eq!(arity, 0);
name name
@@ -4132,9 +4132,10 @@ impl Machine {
); );
let socket_addr = if socket_atom == atom!("") { let socket_addr = if socket_atom == atom!("") {
atom!("127.0.0.1") atom!("127.0.0.1:80")
} else { } else {
socket_atom let buffer = format!("{}:{}", socket_atom.as_str(), port.as_str());
self.machine_st.atom_tbl.build_with(&buffer)
}; };
let alias = self.machine_st.registers[4]; let alias = self.machine_st.registers[4];