50 lines
1.7 KiB
C
50 lines
1.7 KiB
C
/*
|
|
* SPDX-FileCopyrightText: 2025 William Bell
|
|
*
|
|
* SPDX-License-Identifier: GPL-3.0-or-later
|
|
*/
|
|
|
|
#include "assignment.h"
|
|
#include "../../hash_data/hash_data.h"
|
|
#include "../../parser/assignable/identifier/identifier.h"
|
|
#include "../translator.h"
|
|
#include <stddef.h>
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
|
|
size_t translate_parsed_assignment(Translated *translated,
|
|
ParsedAssign *assignment, ArErr *err) {
|
|
set_registers(translated, 1);
|
|
DArray *old_return_jumps = translated->return_jumps;
|
|
translated->return_jumps = NULL;
|
|
size_t first = translate_parsed(translated, assignment->from, err);
|
|
if (err->exists)
|
|
return first;
|
|
switch (assignment->to->type) {
|
|
case AST_IDENTIFIER:;
|
|
ParsedIdentifier *identifier = assignment->to->data;
|
|
size_t length = strlen(identifier->name);
|
|
size_t offset =
|
|
arena_push(&translated->constants, identifier->name, length);
|
|
|
|
push_instruction_byte(translated, OP_SOURCE_LOCATION);
|
|
push_instruction_code(translated, identifier->line);
|
|
push_instruction_code(translated, identifier->column);
|
|
push_instruction_code(translated, length);
|
|
|
|
push_instruction_byte(translated, OP_ASSIGN);
|
|
push_instruction_code(translated, length);
|
|
push_instruction_code(translated, offset);
|
|
push_instruction_code(translated,
|
|
siphash64_bytes(identifier->name, length,
|
|
siphash_key_fixed_for_translator));
|
|
push_instruction_byte(translated, 0);
|
|
break;
|
|
default:
|
|
fprintf(stderr, "panic: freeing NULL pointer\n");
|
|
exit(EXIT_FAILURE);
|
|
}
|
|
translated->return_jumps = old_return_jumps;
|
|
return first;
|
|
} |